Return to posttek.ps CVS log

Up to [Research Unix] / researchv10no / cmd / post.src / posttek

Annotation of researchv10no/cmd/post.src/posttek/posttek.ps, revision 1.1.1.1

1.1       root        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

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.