home *** CD-ROM | disk | FTP | other *** search
/ Creative Computers / CreativeComputers.iso / shareware / text / dvi_3.62 / config / dvilw.ps < prev   
Text File  |  1994-11-17  |  4KB  |  121 lines
  1. %%BeginProcSet
  2. /TeXdict 200 dict def
  3. TeXdict begin
  4. /bdf { bind def } def
  5. /Mtrx 6 array def
  6. /A { gsave newpath moveto lineto lineto closepath 0 setgray fill grestore } bdf
  7. /A0
  8. { gsave newpath moveto curveto curveto curveto closepath
  9.   0 setgray fill grestore } bdf
  10. /A1
  11. { gsave newpath moveto curveto curveto curveto closepath setlinewidth
  12.   1 setlinejoin gsave 1 setgray fill grestore stroke grestore } bdf
  13. /A2
  14. { gsave newpath moveto curveto curveto setlinewidth
  15.   1 setlinejoin 1 setlinecap stroke grestore } bdf
  16. /AX
  17. { gsave newpath moveto lineto setlinewidth stroke grestore } bdf
  18. /C { curveto } bdf
  19. /F { gsave setlinewidth 1 setlinejoin 0 setlinecap newpath moveto } bdf
  20. /E { gsave newpath 0 setgray 0 360 arc fill grestore } bdf
  21. /G { currentpoint newpath gsave moveto } bdf
  22. /H { currentpoint grestore clip moveto } bdf
  23. /I { currentpoint grestore gsave 1 setgray fill grestore clip moveto } bdf
  24. /J { initclip } bdf
  25. /K { moveto } bdf
  26. /L { stroke grestore } bdf
  27. /M { moveto } bdf
  28. /N { lineto } bdf
  29. /O { currentpoint grestore } bdf
  30. /P { show } bdf
  31. /T { currentpoint exch pop moveto show } bdf
  32. /V { 0 setdash } bdf
  33. /R { 0 rmoveto show } bdf
  34. /S { moveto show } bdf
  35. /SF {findfont exch scalefont setfont } bdf
  36. /U { gsave moveto } bdf
  37. /B
  38. { /h exch def    /w exch def
  39.   gsave    currentpoint    newpath    moveto
  40.     w 1 sub 0 rlineto    0 h 1 sub rlineto    w 1 sub neg 0 rlineto
  41.     closepath fill
  42.   grestore
  43. } bdf
  44. /Q { moveto w h B } bdf
  45. /LANDSCAPE
  46. { initmatrix   72 Resolution div dup scale   0 3300 translate   -90 rotate
  47.   Mtrx currentmatrix pop } bdf
  48. /LEGAL
  49. { initmatrix   72 Resolution div dup scale   0  900 translate
  50.   Mtrx currentmatrix pop } bdf
  51. /LETTER
  52. { initmatrix   72 Resolution div dup scale
  53.   Mtrx currentmatrix pop } bdf
  54. /NOTE
  55. { initmatrix   72 Resolution div dup scale
  56.   Mtrx currentmatrix pop } bdf
  57. /BOJ
  58. { initmatrix   /start-hook where { begin start-hook end } if clear 
  59.   NOTE } bdf
  60. /BOP
  61. { initmatrix   /bop-hook where { begin bop-hook end } if
  62.   clear   Mtrx setmatrix   25 0 translate } bdf
  63. /EOP
  64. { /#copies exch def    showpage
  65.   /eop-hook where { begin eop-hook end } if } bdf
  66. /EOJ { initmatrix   /end-hook where { begin end-hook end } if    end } bdf
  67. /ch-image  {ch-data 0 get} bdf
  68. /ch-xoff   {ch-data 1 get} bdf
  69. /ch-yoff   {ch-data 2 get} bdf
  70. /ch-width  {ch-data 3 get} bdf
  71. /ch-height {ch-data 4 get} bdf
  72. /ch-tfmw   {ch-data 5 get} bdf
  73. /CharBuilder
  74. { /ch-code exch def    /font-dict exch def
  75.   /ch-data font-dict /BitMaps get  ch-code get def
  76.   ch-data null ne
  77.   { ch-tfmw                 0
  78.     ch-xoff neg             ch-yoff ch-height sub
  79.     ch-width ch-xoff sub    ch-yoff
  80.     setcachedevice
  81.     ch-width ch-height true [ 1 0 0 -1 ch-xoff ch-yoff ] /ch-image load imagemask
  82.   } if
  83. } bdf
  84. /D
  85. { /ch-code exch def    /ch-data exch def
  86.   currentfont /BitMaps get ch-code ch-data put
  87.   currentfont /Encoding get ch-code dup 3 string cvs cvn put
  88. } bdf
  89. /NF
  90. { /newname exch  dup 7 dict def  def
  91.   newname load  begin
  92.     /BitMaps  256 array def    /BuildChar { CharBuilder } def
  93.     /Encoding 256 array def    0 1 255 { Encoding exch /.notdef put } for
  94.     /FontBBox [ 0 0 1 1 ] def  /FontMatrix [ 1 0 0 1 0 0 ] def  /FontType 3 def
  95.   end
  96.   newname newname load definefont pop
  97. } bdf
  98. /bitison
  99. { /ybit exch def   /xbit exch def
  100.   bstring  ybit bwidth mul xbit 8 idiv add  get
  101.   1 7 xbit 8 mod sub bitshift and 0 ne
  102. } bdf
  103. /setpattern
  104. { /freq exch def   /bwidth exch def   /bpside exch def   /bstring exch def
  105.   /onbits 0 def   /offbits 0 def
  106.   freq 0
  107.       { /y exch def   /x exch def
  108.         /xindex x 1 add 2 div bpside mul cvi def
  109.     /yindex y 1 add 2 div bpside mul cvi def
  110.     xindex yindex bitison
  111.         { /onbits  onbits  1 add def 1 }
  112.         { /offbits offbits 1 add def 0 }
  113.         ifelse
  114.       } setscreen
  115.   {} settransfer
  116.   offbits offbits onbits add div setgray
  117. } bdf
  118. /a4{}def  /legal{}def  /letter{}def  /note{}def
  119. end
  120. %%EndProcSet
  121.