home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1998 January / VPR9801A.ISO / JA / NT4SP3 / I386 / PSCRIPT.DLL / 259 / 1 next >
Text File  |  1997-09-23  |  2KB  |  32 lines
  1.  
  2. %%BeginResource: procset NTPSOct95
  3. /NTPSOct95 200 dict dup begin/bd{bind def}bind def/ld{load def}bd/ed{exch def}
  4. bd/a/currentpoint ld/c/curveto ld/d/dup ld/e/eofill ld/f/fill ld/tr/translate
  5. ld/gr/grestore ld/gs/gsave ld/j/setlinejoin ld/L/lineto ld/M/moveto ld/n
  6. /newpath ld/cp/closepath ld/rm/rmoveto ld/sl/setlinewidth ld/sd/setdash ld/g
  7. /setgray ld/r/setrgbcolor ld/s/stroke ld/t/show ld/aw/awidthshow ld/im
  8. /imagemask ld/MS{moveto show}bd/SF{findfont exch scalefont setfont}bd/SM{cmtx
  9. setmatrix}bd/MF{findfont exch makefont setfont}bd/CM{/cmtx matrix currentmatrix
  10. def}bd/B{M exch dup 0 rlt exch 0 exch rlt neg 0 rlt}bd/CB{B cp eoclip}bd/EA{1
  11. index 0/G0 put 4 string 1 1 4 -1 roll{3 copy neg exch cvs dup 0 71 put cvn 3 -1
  12. roll exch put}for pop}bd/rlt/rlineto ld/L2?/languagelevel where{pop
  13. languagelevel 2 ge}{false}ifelse def/CoF{3 1 roll 1 index maxlength add dict
  14. begin{1 index/UniqueID ne 3 index or 2 index/FID ne and{1 index/FDepVector eq
  15. {dup length array copy}if 1 index/Encoding eq{dup length array copy}if 1 index
  16. /CD eq{dup maxlength dict copy}if 1 index/CharStrings eq{dup maxlength dict
  17. copy}if 1 index/Private eq{dup maxlength dict copy}if def}{pop pop}ifelse}
  18. forall pop currentdict end}bd/DupFont{findfont 0 false CoF definefont pop}bd/VF
  19. {1 index FontDirectory exch known{pop pop}{findfont dup maxlength dict begin{1
  20. index/UniqueID ne 2 index/FID ne and{1 index/WMode eq{pop 0}if def}{pop pop}
  21. ifelse}forall currentdict end definefont pop}ifelse}bd/_SF{currentfont dup/CF
  22. exch def}bd/_RF{CF setfont}bd/_SV{_SF dup/FontMatrix get dup matrix
  23. invertmatrix[0 1 -1 0 0 0]exch matrix concatmatrix matrix concatmatrix makefont
  24. dup/FontMatrix get exch setfont 1 index length 0 exch 2 exch 1 sub{-.12 -.88 3
  25. index transform rm 2 index exch 2 getinterval dup BF{SB}{show}ifelse
  26. stringwidth neg exch neg exch rm .12 -.12 2 index transform rm}for pop pop _RF}
  27. bd/MSV{M/BF false def _SV}bd/SB{gs blw sl dup show dup stringwidth neg exch neg
  28. exch rm{false charpath stroke}stopped{pop blw 3 mul dup rm show}if gr}bd/MSB{M
  29. SB}bd/MSBV{M/BF true def _SV}bd/SBV{/BF true def _SV}bd/SV{/BF false def _SV}bd
  30. /blw 1 def end def 
  31. %%EndResource
  32.