home *** CD-ROM | disk | FTP | other *** search
/ OneVision 3.03 / OneVision3.03.iso / Apps / OneVision.app / ShapeElement.1Vmod / Shapes / AL_NewPasser.shape < prev    next >
Encoding:
Text File  |  1996-11-12  |  478 b   |  23 lines
  1. "AL_1" = "float:0:1:0.5";
  2. "AL_2" = "float:0:0.25:0.02";
  3. "Closepath" = "YES";
  4. "shape" = "
  5. {width height scale
  6.  /Radius AL_1 def
  7.  /Passerstaerke AL_2 def
  8.  /Radius Radius 2 div def
  9.  0.5 Radius add 0.5 moveto
  10.  0.5 0.5 Radius 0 360 arc
  11.  0.5 Passerstaerke 2 div sub 0 moveto
  12.  0 1 rlineto
  13.  Passerstaerke 0 rlineto
  14.  0 -1 rlineto
  15.  0 Passerstaerke sub 0 rlineto
  16.  
  17.  0 0.5 Passerstaerke 2 div sub moveto
  18.  1 0 rlineto
  19.  0 Passerstaerke rlineto
  20.  -1 0 rlineto
  21.  0 0 Passerstaerke sub rlineto
  22. }";
  23.