home *** CD-ROM | disk | FTP | other *** search
/ OneVision 3.03 / OneVision3.03.iso / Apps / OneVision.app / ShapeElement.1Vmod / Shapes / AD_Rounded-Rectangle.shape < prev    next >
Encoding:
Text File  |  1996-11-12  |  458 b   |  13 lines
  1. "AD_1" = "float:0:1:0.5";
  2. "Closepath" = "YES";
  3. "shape" = "
  4. { /Eckenradius AD_1 def
  5.  /Eckenradius Eckenradius width 2 div height 2 div 2 copy gt {exch} if pop mul def
  6.  Eckenradius 0 gt
  7.  {width 2 div 0 moveto width 0 width height Eckenradius arct width height 0 height Eckenradius arct
  8.   0 height 0 0 Eckenradius arct 0 0 width 0 Eckenradius arct
  9.  width 2 div 0 lineto}
  10.  {0 0 moveto width 0 rlineto 0 height rlineto width neg 0 rlineto 0 0 lineto}
  11.  ifelse
  12. }";
  13.