home *** CD-ROM | disk | FTP | other *** search
/ Mac Expert 2 / Mac_Expert_2.iso / Applications / Fontographer® 4.0.2 / Disk 2 / PC Font Access / PC Font Access.rsrc / STR#_7031.txt < prev    next >
Encoding:
Text File  |  1993-06-17  |  1.2 KB  |  81 lines
  1. /concatsp{first_concat{first_matrix currentmatrix pop /first_concat false store}if concat}B
  2.  
  3. /rcsp{RCTA csp}B
  4.  
  5. }B
  6.  
  7. curveto
  8.  
  9. grestore
  10.  
  11. grestore dot currentpoint printcoords
  12.  
  13. gsave drawcpoint
  14.  
  15. gsave 6 -2 roll drawcpoint moveto
  16.  
  17. 6 copy
  18.  
  19. /csp{
  20.  
  21. /rlsp{RTA lsp}B
  22.  
  23. /lsp{2 copy lineto dot printcoords}B
  24.  
  25. /rmsp{RTA msp}B
  26.  
  27. /msp{2 copy moveto dot printcoords}B
  28.  
  29. }B
  30.  
  31. grestore
  32.  
  33. exch (,) exch ( \() 2 { show round cvi =string cvs show} repeat (\)) show
  34.  
  35. matrix defaultmatrix setmatrix /Courier findfont 5 scalefont setfont
  36.  
  37. gsave first_concat not{transform first_matrix itransform}if
  38.  
  39. /printcoords{
  40.  
  41. }B
  42.  
  43. grestore
  44.  
  45. -2 2 rmoveto 4 -4 rlineto 0 4 rmoveto -4 -4 rlineto stroke
  46.  
  47. 2 copy moveto printcoords [] 0 setdash
  48.  
  49. lineto zero setlinewidth [3] 0 setdash currentpoint reversepath stroke
  50.  
  51. gsave currentpoint newpath moveto
  52.  
  53. /drawcpoint{
  54.  
  55. }B
  56.  
  57. grestore
  58.  
  59. gsave currentpoint newpath moveto 0 0 rlineto 3 setlinewidth 1 setlinecap stroke
  60.  
  61. /dot{
  62.  
  63. }B
  64.  
  65. grestore
  66.  
  67. 2 copy moveto 5 5 rmoveto printcoords
  68.  
  69. -10 0 rmoveto 20 0 rlineto -10 10 rmoveto 0 -20 rlineto stroke
  70.  
  71. gsave currentpoint 2 copy newpath moveto 1 setlinewidth
  72.  
  73. /drawplus{
  74.  
  75. /zero 72 0 dtransform abs exch abs add 601 gt {.25}{0} ifelse def
  76.  
  77. /first_matrix matrix def
  78.  
  79. /first_concat true def
  80.  
  81.