| rsc | 13f7391 | 2004-05-15 23:45:13 +0000 | [diff] [blame] | 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 |
