home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 March B / SCO_CASTOR4RRT.iso / cmds / root.3 / usr / lib / font / devpost / charlib / rf / rf~
Text File  |  1998-08-19  |  990b  |  38 lines
  1. %ident    "@(#)rf    1.2"
  2. %
  3. % This stuff has gotten terribly complicated - sorry.
  4. %
  5.  
  6. currentdict /bvbbox known not {/bvbbox [0 0 0 0 0 0 0] def} if
  7.  
  8. /build_rf {
  9.     pop
  10.     gsave
  11.     currentpoint translate newpath
  12.     bvbbox 6 get size ne {
  13.         gsave
  14.         initgraphics
  15.         scaling scaling scale
  16.         0 0 moveto
  17.         (\357) false charpath flattenpath pathbbox 0 0 size bvbbox astore pop
  18.         0 1 idtransform dup mul exch dup mul add sqrt dup
  19.         bvbbox 1 get add bvbbox 1 3 -1 roll put
  20.         bvbbox 3 get exch sub bvbbox 3 3 -1 roll put
  21.         bvbbox 2 get bvbbox 0 get sub bvbbox 4 3 -1 roll put
  22.         bvbbox 2 get bvbbox 0 get add 2 div bvbbox 5 3 -1 roll put
  23.         grestore
  24.     } if
  25.     bvbbox 2 get bvbbox 1 get moveto
  26.     bvbbox 2 get bvbbox 3 get lineto
  27.     bvbbox 5 get bvbbox 4 get 8 mul sub dup bvbbox 3 get lineto
  28.     bvbbox 1 get lineto closepath clip newpath
  29.     0 0 moveto (\357) show
  30.     bvbbox 5 get bvbbox 1 get moveto
  31.     bvbbox 4 get dup dup
  32.     8 mul neg 0 rlineto
  33.     0 exch rlineto
  34.     8 mul 0 rlineto
  35.     closepath clip eofill
  36.     grestore
  37. } def
  38.