home *** CD-ROM | disk | FTP | other *** search
/ OneVision 3.03 / OneVision3.03.iso / Apps / OneVision.app / ShapeElement.1Vmod / Shapes / AM_Arrow.shape < prev    next >
Encoding:
Text File  |  1996-11-12  |  589 b   |  22 lines
  1. "AM_1" = "float:0:1:0.5";
  2. "AM_2" = "float:0:1:0.5";
  3. "AM_3" = "float:1:90:45";
  4. "Closepath" = "YES";
  5. "shape" = "
  6. {width height scale
  7.  /Pfeilspitze AM_1 def
  8.  /Pfeilschaft AM_2 def
  9.  /Pfeilwinkel AM_3 def
  10.  Pfeilwinkel 0 le {/Pfeilwinkel 1 def} if
  11.  /x 1 Pfeilschaft sub 2 div def
  12.  /Pfeilwinkel Pfeilspitze Pfeilwinkel cos x mul Pfeilwinkel sin div sub def  
  13.  0 1 Pfeilschaft sub 2 div moveto
  14.  0 Pfeilschaft rlineto
  15.  Pfeilspitze 0 rlineto
  16.  Pfeilwinkel 1 lineto
  17.  1 0.5 lineto
  18.  Pfeilwinkel 0 lineto
  19.  Pfeilspitze Pfeilwinkel sub 1 Pfeilschaft sub 2 div rlineto
  20.  0 1 Pfeilschaft sub 2 div lineto
  21. }";
  22.