home *** CD-ROM | disk | FTP | other *** search
/ NeXTSTEP 3.3.4.17 [SPARC, PA-RISC] / nextstep33_risc.iso / NextLibrary / TeX / tex / ps / tex.pro < prev    next >
Encoding:
Text File  |  1995-02-07  |  3.0 KB  |  43 lines
  1. %!
  2. /TeXDict 250 dict def TeXDict begin /N{def}def /B{bind def}N /S{exch}N /X{S N}
  3. B /TR{translate}N /isls false N /vsize 11 72 mul N /@rigin{isls{[0 -1 1 0 0 0]
  4. concat}if 72 Resolution div 72 VResolution div neg scale isls{Resolution hsize
  5. -72 div mul 0 TR}if Resolution VResolution vsize -72 div 1 add mul TR matrix
  6. currentmatrix dup dup 4 get round 4 exch put dup dup 5 get round 5 exch put
  7. setmatrix}N /@landscape{/isls true N}B /@manualfeed{statusdict /manualfeed
  8. true put}B /@copies{/#copies X}B /FMat[1 0 0 -1 0 0]N /FBB[0 0 0 0]N /nn 0 N
  9. /IE 0 N /ctr 0 N /df-tail{/nn 8 dict N nn begin /FontType 3 N /FontMatrix
  10. fntrx N /FontBBox FBB N string /base X array /BitMaps X /BuildChar{
  11. CharBuilder}N /Encoding IE N end dup{/foo setfont}2 array copy cvx N load 0 nn
  12. put /ctr 0 N[}B /df{/sf 1 N /fntrx FMat N df-tail}B /dfs{div /sf X /fntrx[sf 0
  13. 0 sf neg 0 0]N df-tail}B /E{pop nn dup definefont setfont}B /ch-width{ch-data
  14. dup length 5 sub get}B /ch-height{ch-data dup length 4 sub get}B /ch-xoff{128
  15. ch-data dup length 3 sub get sub}B /ch-yoff{ch-data dup length 2 sub get 127
  16. sub}B /ch-dx{ch-data dup length 1 sub get}B /ch-image{ch-data dup type
  17. /stringtype ne{ctr get /ctr ctr 1 add N}if}B /id 0 N /rw 0 N /rc 0 N /gp 0 N
  18. /cp 0 N /G 0 N /sf 0 N /CharBuilder{save 3 1 roll S dup /base get 2 index get
  19. S /BitMaps get S get /ch-data X pop /ctr 0 N ch-dx 0 ch-xoff ch-yoff ch-height
  20. sub ch-xoff ch-width add ch-yoff setcachedevice ch-width ch-height true[1 0 0
  21. -1 -.1 ch-xoff sub ch-yoff .1 add]{ch-image}imagemask restore}B /D{/cc X dup
  22. type /stringtype ne{]}if nn /base get cc ctr put nn /BitMaps get S ctr S sf 1
  23. ne{dup dup length 1 sub dup 2 index S get sf div put}if put /ctr ctr 1 add N}
  24. B /I{cc 1 add D}B /bop{userdict /bop-hook known{bop-hook}if /SI save N @rigin
  25. 0 0 moveto /V matrix currentmatrix dup 1 get dup mul exch 0 get dup mul add
  26. .99 lt{/QV}{/RV}ifelse load def pop pop}N /eop{SI restore showpage userdict
  27. /eop-hook known{eop-hook}if}N /@start{userdict /start-hook known{start-hook}
  28. if pop /VResolution X /Resolution X 1000 div /DVImag X /IE 256 array N 0 1 255
  29. {IE S 1 string dup 0 3 index put cvn put}for 65781.76 div /vsize X 65781.76
  30. div /hsize X}N /p{show}N /RMat[1 0 0 -1 0 0]N /BDot 260 string N /rulex 0 N
  31. /ruley 0 N /v{/ruley X /rulex X V}B /V{}B /RV statusdict begin /product where{
  32. pop product dup length 7 ge{0 7 getinterval dup(Display)eq exch 0 4
  33. getinterval(NeXT)eq or}{pop false}ifelse}{false}ifelse end{{gsave TR -.1 -.1
  34. TR 1 1 scale rulex ruley false RMat{BDot}imagemask grestore}}{{gsave TR -.1
  35. -.1 TR rulex ruley scale 1 1 false RMat{BDot}imagemask grestore}}ifelse B /QV{
  36. gsave transform round exch round exch itransform moveto rulex 0 rlineto 0
  37. ruley neg rlineto rulex neg 0 rlineto fill grestore}B /a{moveto}B /delta 0 N
  38. /tail{dup /delta X 0 rmoveto}B /M{S p delta add tail}B /b{S p tail}B /c{-4 M}
  39. B /d{-3 M}B /e{-2 M}B /f{-1 M}B /g{0 M}B /h{1 M}B /i{2 M}B /j{3 M}B /k{4 M}B
  40. /w{0 rmoveto}B /l{p -4 w}B /m{p -3 w}B /n{p -2 w}B /o{p -1 w}B /q{p 1 w}B /r{
  41. p 2 w}B /s{p 3 w}B /t{p 4 w}B /x{0 S rmoveto}B /y{3 2 roll p a}B /bos{/SS save
  42. N}B /eos{SS restore}B end
  43.