home *** CD-ROM | disk | FTP | other *** search
/ Frame 3.2 / Frame.iso / FrameDocs / BigLine.ps < prev    next >
Encoding:
Text File  |  1994-07-08  |  1.1 KB  |  38 lines
  1. % BigLine.ps
  2. % fills in entire FrameMaker textrect with a given string, outlined
  3. %
  4. % args in:
  5. %    1 = string to print in parenthesis    ie. (MYSTRING)
  6. %    2 = font desired: /font      ie.  /Times-Roman
  7. %    3 = mode code where /W = fill width, /H = fill height, /B = fill both
  8. %    4 = rotate value from -180 to +180
  9. %         where pos. = counterclockwise, neg = clockwise
  10. %    5 = starting corner: /LL /LR /UR /UL  where LL = lower left, etc.
  11. %    6 = thickness of line
  12. /thick exch def
  13. /start exch def
  14. /rotval exch def
  15. /mode exch def
  16. findfont /infont exch def
  17. /printme exch def
  18. /hframe exch def % left on stack by Maker
  19. /wframe exch def % ditto
  20. 0 0 moveto
  21. /scaler 12 def % avoid PS rounding problems
  22. infont scaler scalefont setfont
  23. /wfont wframe printme stringwidth
  24. pop div scaler mul def
  25. /hfont hframe (X) false charpath flattenpath
  26. pathbbox /temp exch def pop pop pop temp
  27. div scaler mul def
  28. mode /W eq {/hfont wfont def} if
  29. mode /H eq {/wfont hfont def} if
  30. infont [wfont 0 0 hfont 0 0] makefont setfont
  31. newpath 0 0 moveto
  32. start /LR eq {wframe 0 moveto} if
  33. start /UL eq {0 hframe moveto} if
  34. start /UR eq {wframe hframe moveto} if
  35. rotval rotate
  36. thick setlinewidth
  37. printme false charpath stroke
  38.