Return to posttek.ps CVS log

Up to [Research Unix] / researchv10no / cmd / postscript / posttek

Annotation of researchv10no/cmd/postscript/posttek/posttek.ps, revision 1.1.1.1

1.1       root        1: %
                      2: % Version 3.3.1 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: /setup {
                     29:        counttomark 2 idiv {def} repeat pop
                     30: 
                     31:        landscape {/orientation 90 orientation add def} if
                     32: 
                     33:        pagedimensions
                     34:        /scaling
                     35:                height margin sub screenheight div
                     36:                width margin sub screenwidth div
                     37:        min def
                     38:        xcenter ycenter translate
                     39:        orientation rotation mul rotate
                     40:        xoffset inch yoffset inch translate
                     41:        magnification dup aspectratio mul scale
                     42:        scaling scaling scale
                     43:        screenwidth 2 div neg screenheight 2 div neg translate
                     44: 
                     45:        tietodevicespace
                     46:        linewidth scaling div setlinewidth
                     47:        1 setlinecap
                     48:        newpath
                     49: } def
                     50: 
                     51: /pagedimensions {
                     52:        useclippath {
                     53:                /pagebbox [clippath pathbbox newpath] def
                     54:        } if
                     55:        pagebbox aload pop
                     56:        4 -1 roll exch 4 1 roll 4 copy
                     57:        landscape {4 2 roll} if
                     58:        sub /width exch def
                     59:        sub /height exch def
                     60:        add 2 div /xcenter exch def
                     61:        add 2 div /ycenter exch def
                     62:        userdict /gotpagebbox true put
                     63: } def
                     64: 
                     65: /pagesetup {/page exch def} bind def
                     66: 
                     67: /tietodevicespace {
                     68:        fixlinewidth linewidth 0 gt and linewidth 1 lt and {
                     69:                /moveto {
                     70:                        2 copy /Y exch def /X exch def
                     71:                        transform round exch round exch itransform
                     72:                        moveto
                     73:                } bind def
                     74:                /lineto {
                     75:                        2 copy /Y exch def /X exch def
                     76:                        transform round exch round exch itransform
                     77:                        lineto
                     78:                } bind def
                     79:                /rlineto {Y add exch X add exch lineto} bind def
                     80:                /v V 0 get bind def
                     81:        } if
                     82: } def
                     83: 
                     84: /V [{moveto counttomark 2 idiv {rlineto} repeat stroke}] def
                     85: /v V 0 get bind def
                     86: /p {newpath spotsize 0 360 arc fill} bind def
                     87: 
                     88: /l {{scaling div} forall counttomark array astore 0 setdash} bind def
                     89: /w {linewidth 0 eq {.3} {linewidth} ifelse mul linewidth add scaling div setlinewidth} bind def
                     90: /i {3 mul 4 sub -100 div mul .5 add /spotsize exch def} bind def
                     91: 
                     92: /f {/charwidth exch def font findfont charwidth .6 div scalefont setfont} bind def
                     93: 
                     94: /t {
                     95:        3 1 roll moveto
                     96:        currentpoint {
                     97:                pop pop
                     98:                exch charwidth add exch
                     99:                moveto currentpoint
                    100:        } 4 -1 roll kshow
                    101:        pop pop
                    102: } bind def
                    103: 
                    104: /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.