home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / editor / gal210a1.arc / PS14.DEF < prev    next >
Encoding:
Text File  |  1988-08-31  |  3.0 KB  |  38 lines
  1. %! version 2.10
  2. /!linewidth 1 def
  3. /!line 996 def
  4. /!blank 0 def
  5. /!printit /widthshow def
  6. /!nor /Times-Roman def
  7. /!it /Times-Italic def
  8. /!bld /Times-Bold def
  9. /!bi /Times-BoldItalic def
  10. /!make {/!altrestore !nor def !nor findfont !fs scalefont setfont} def
  11. /!normal {!printit cvx exec /!altrestore !nor def !nor findfont !fs scalefont setfont !blank 0 32} def
  12. /!italics {!printit cvx exec /!altrestore !it def !it findfont !fs scalefont setfont !blank 0 32} def
  13. /!bold {!printit cvx exec /!altrestore !bld def !bld findfont !fs scalefont setfont !blank 0 32} def
  14. /!bolditalics {!printit cvx exec /!altrestore !bi def !bi findfont !fs scalefont setfont !blank 0 32} def
  15. /!underline {!printit cvx exec currentpoint 2 sub !printit /widthshow ne {3 -1 roll} if !blank 0 32} def
  16. /!stopunder {!printit cvx exec !printit /widthshow eq {currentpoint 2 sub 4 2 roll moveto lineto 0.5 setlinewidth currentpoint 2 add stroke !linewidth setlinewidth moveto} {3 1 roll pop pop} ifelse !blank 0 32} def
  17. /!alt {!printit cvx exec /Symbol findfont !fs scalefont setfont !blank 0 32} def
  18. /!altnormal {!printit cvx exec !altrestore findfont !fs scalefont setfont !blank 0 32} def
  19. /!Times {/!fs exch def /!nor /Times-Roman def /!it /Times-Italic def /!bld /Times-Bold def /!bi /Times-BoldItalic def !make} def
  20. /!Helvetica {/!fs exch def /!nor /Helvetica def /!it /Helvetica-Oblique def /!bld /Helvetica-Bold def /!bi /Helvetica-BoldOblique def !make} def
  21. /!Palatino {/!fs exch def /!nor /Palatino-Roman def /!it /Palatino-Italic def /!bld /Palatino-Bold def /!bi /Palatino-BoldItalic def !make} def
  22. /!Schoolbook {/!fs exch def /!nor /NewCenturySchlbk-Roman def /!it /NewCenturySchlbk-Italic def /!bld /NewCenturySchlbk-Bold def /!bi /NewCenturySchlbk-BoldItalic def !make} def
  23. /!Gothic {/!fs exch def /!nor /AvantGarde-Book def /!it /AvantGarde-BookOblique def /!bld /AvantGarde-Demi def /!bi /AvantGarde-DemiOblique def !make} def
  24. /!Zapf {/!fs exch def /!nor /ZapfChancery-MediumItalic def /!bld /ZapfDingbats def !make} def
  25. /!Courier {/!fs exch def /!nor /Courier def /!it /Courier-Oblique def /!bld /Courier-Bold def /!bi /Courier-BoldOblique def !make} def
  26. /!Symbol {/!fs exch def /!nor /Symbol def !make} def
  27. /!startss {3 div 5 1 roll widthshow currentpoint 3 -1 roll 0 exch rmoveto !blank 0 32} def
  28. /!endss {3 div 6 2 roll widthshow exch 1 eq {0 exch rmoveto pop pop} {pop moveto} ifelse !blank 0 32} def
  29. /!crnolf {!line moveto 0 0 0} def
  30. /!downonehalf {2 idiv !line exch sub /!line exch def} def
  31. /!downss {!line exch sub /!line exch def} def
  32. /!tab {!printit /widthshow eq {5 1 roll show pop pop pop !line moveto !blank 0 32} {clear 0 0 0 0} ifelse} def
  33. /!backup {!printit /widthshow eq {5 1 roll widthshow !fs mul 11 div 0 rmoveto} {6 1 roll stringwidth pop 6 1 roll pop pop pop exch !fs mul 11 div add add} ifelse !blank 0 32} def
  34. /!measure (stringwidth pop 5 1 roll pop pop pop add) def
  35. /!endpage {1 eq {showpage} if /!line 996 def} def
  36. /!endfile {statusdict /manualfeed false put} def
  37. /!single_feed {statusdict /manualfeed true put} def
  38.