posttek.ps (2392B)
1 % 2 % Version 3.3.2 prologue for tektronix 4014 files. 3 % 4 5 /#copies 1 store 6 /aspectratio 1 def 7 /fixlinewidth true def 8 /font /Courier def 9 /formsperpage 1 def 10 /landscape true def 11 /linewidth 0 def 12 /magnification 1 def 13 /margin 10 def 14 /orientation 0 def 15 /rotation 1 def 16 /screenheight 3120 def 17 /screenwidth 4150 def 18 /spotsize 1 def 19 /xoffset 0 def 20 /yoffset 0 def 21 22 /useclippath true def 23 /pagebbox [0 0 612 792] def 24 25 /inch {72 mul} bind def 26 /min {2 copy gt {exch} if pop} bind def 27 28 /kshow {kshow} bind def % so later references don't bind 29 30 /setup { 31 counttomark 2 idiv {def} repeat pop 32 33 landscape {/orientation 90 orientation add def} if 34 35 pagedimensions 36 /scaling 37 height margin sub screenheight div 38 width margin sub screenwidth div 39 min def 40 xcenter ycenter translate 41 orientation rotation mul rotate 42 xoffset inch yoffset inch translate 43 magnification dup aspectratio mul scale 44 scaling scaling scale 45 screenwidth 2 div neg screenheight 2 div neg translate 46 47 tietodevicespace 48 linewidth scaling div setlinewidth 49 1 setlinecap 50 newpath 51 } def 52 53 /pagedimensions { 54 useclippath { 55 /pagebbox [clippath pathbbox newpath] def 56 } if 57 pagebbox aload pop 58 4 -1 roll exch 4 1 roll 4 copy 59 landscape {4 2 roll} if 60 sub /width exch def 61 sub /height exch def 62 add 2 div /xcenter exch def 63 add 2 div /ycenter exch def 64 userdict /gotpagebbox true put 65 } def 66 67 /pagesetup {/page exch def} bind def 68 69 /tietodevicespace { 70 fixlinewidth linewidth 0 gt and linewidth 1 lt and { 71 /moveto { 72 2 copy /Y exch def /X exch def 73 transform round exch round exch itransform 74 moveto 75 } bind def 76 /lineto { 77 2 copy /Y exch def /X exch def 78 transform round exch round exch itransform 79 lineto 80 } bind def 81 /rlineto {Y add exch X add exch lineto} bind def 82 /v V 0 get bind def 83 } if 84 } def 85 86 /V [{moveto counttomark 2 idiv {rlineto} repeat stroke}] def 87 /v V 0 get bind def 88 /p {newpath spotsize 0 360 arc fill} bind def 89 90 /l {{scaling div} forall counttomark array astore 0 setdash} bind def 91 /w {linewidth 0 eq {.3} {linewidth} ifelse mul linewidth add scaling div setlinewidth} bind def 92 /i {3 mul 4 sub -100 div mul .5 add /spotsize exch def} bind def 93 94 /f {/charwidth exch def font findfont charwidth .6 div scalefont setfont} bind def 95 96 /t { 97 3 1 roll moveto 98 currentpoint { 99 pop pop 100 exch charwidth add exch 101 moveto currentpoint 102 } 4 -1 roll kshow 103 pop pop 104 } bind def 105 106 /done {/lastpage where {pop lastpage} if} def