home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / texmf / ps / special.pro < prev    next >
Text File  |  1994-09-28  |  4KB  |  58 lines
  1. %!
  2. TeXDict begin /SDict 200 dict N SDict begin /@SpecialDefaults{/hs 612 N
  3. /vs 792 N /ho 0 N /vo 0 N /hsc 1 N /vsc 1 N /ang 0 N /CLIP 0 N /rwiSeen
  4. false N /rhiSeen false N /letter{}N /note{}N /a4{}N /legal{}N}B
  5. /@scaleunit 100 N /@hscale{@scaleunit div /hsc X}B /@vscale{@scaleunit
  6. div /vsc X}B /@scale{dup /hsc X /vsc X}B /@hsize{/hs X /CLIP 1 N}B
  7. /@vsize{/vs X /CLIP 1 N}B /@clip{/CLIP 2 N}B /@hoffset{/ho X}B /@voffset
  8. {/vo X}B /@angle{/ang X}B /@rwi{10 div /rwi X /rwiSeen true N}B /@rhi{
  9. 10 div /rhi X /rhiSeen true N}B /@llx{/llx X}B /@lly{/lly X}B /@urx{
  10. /urx X}B /@ury{/ury X}B /magscale true def end /@MacSetUp{userdict /md
  11. known{userdict /md get type /dicttype eq{userdict begin md length 10 add
  12. md maxlength ge{/md md dup length 20 add dict copy def}if end md begin
  13. /letter{}N /note{}N /legal{}N /od{txpose 1 0 mtx defaultmatrix
  14. dtransform S atan/pa X newpath clippath mark{transform{itransform moveto
  15. }}{transform{itransform lineto}}{6 -2 roll transform 6 -2 roll transform
  16. 6 -2 roll transform{itransform 6 2 roll itransform 6 2 roll itransform 6
  17. 2 roll curveto}}{{closepath}}pathforall newpath counttomark array astore
  18. /gc xdf pop ct 39 0 put 10 fz 0 fs 2 F/|______Courier fnt invertflag{
  19. PaintBlack}if}N /txpose{pxs pys scale ppr aload pop por{noflips{pop S
  20. neg S TR pop 1 -1 scale}if xflip yflip and{pop S neg S TR 180 rotate 1
  21. -1 scale ppr 3 get ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg
  22. TR}if xflip yflip not and{pop S neg S TR pop 180 rotate ppr 3 get ppr 1
  23. get neg sub neg 0 TR}if yflip xflip not and{ppr 1 get neg ppr 0 get neg
  24. TR}if}{noflips{TR pop pop 270 rotate 1 -1 scale}if xflip yflip and{TR
  25. pop pop 90 rotate 1 -1 scale ppr 3 get ppr 1 get neg sub neg ppr 2 get
  26. ppr 0 get neg sub neg TR}if xflip yflip not and{TR pop pop 90 rotate ppr
  27. 3 get ppr 1 get neg sub neg 0 TR}if yflip xflip not and{TR pop pop 270
  28. rotate ppr 2 get ppr 0 get neg sub neg 0 S TR}if}ifelse scaleby96{ppr
  29. aload pop 4 -1 roll add 2 div 3 1 roll add 2 div 2 copy TR .96 dup scale
  30. neg S neg S TR}if}N /cp{pop pop showpage pm restore}N end}if}if}N
  31. /normalscale{Resolution 72 div VResolution 72 div neg scale magscale{
  32. DVImag dup scale}if 0 setgray}N /psfts{S 65781.76 div N}N /startTexFig{
  33. /psf$SavedState save N userdict maxlength dict begin /magscale true def
  34. normalscale currentpoint TR /psf$ury psfts /psf$urx psfts /psf$lly psfts
  35. /psf$llx psfts /psf$y psfts /psf$x psfts currentpoint /psf$cy X /psf$cx
  36. X /psf$sx psf$x psf$urx psf$llx sub div N /psf$sy psf$y psf$ury psf$lly
  37. sub div N psf$sx psf$sy scale psf$cx psf$sx div psf$llx sub psf$cy
  38. psf$sy div psf$ury sub TR /showpage{}N /erasepage{}N /copypage{}N /p 3
  39. def @MacSetUp}N /doclip{psf$llx psf$lly psf$urx psf$ury currentpoint 6 2
  40. roll newpath 4 copy 4 2 roll moveto 6 -1 roll S lineto S lineto S lineto
  41. closepath clip newpath moveto}N /endTexFig{end psf$SavedState restore}N
  42. /@beginspecial{SDict begin /SpecialSave save N gsave normalscale
  43. currentpoint TR @SpecialDefaults count /ocount X /dcount countdictstack
  44. N}N /@setspecial{CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto
  45. hs neg 0 rlineto closepath clip}if ho vo TR hsc vsc scale ang rotate
  46. rwiSeen{rwi urx llx sub div rhiSeen{rhi ury lly sub div}{dup}ifelse
  47. scale llx neg lly neg TR}{rhiSeen{rhi ury lly sub div dup scale llx neg
  48. lly neg TR}if}ifelse CLIP 2 eq{newpath llx lly moveto urx lly lineto urx
  49. ury lineto llx ury lineto closepath clip}if /showpage{}N /erasepage{}N
  50. /copypage{}N newpath}N /@endspecial{count ocount sub{pop}repeat
  51. countdictstack dcount sub{end}repeat grestore SpecialSave restore end}N
  52. /@defspecial{SDict begin}N /@fedspecial{end}B /li{lineto}B /rl{rlineto}
  53. B /rc{rcurveto}B /np{/SaveX currentpoint /SaveY X N 1 setlinecap newpath
  54. }N /st{stroke SaveX SaveY moveto}N /fil{fill SaveX SaveY moveto}N
  55. /ellipse{/endangle X /startangle X /yrad X /xrad X /savematrix matrix
  56. currentmatrix N TR xrad yrad scale 0 0 1 startangle endangle arc
  57. savematrix setmatrix}N end
  58.