Return to picasso.ps CVS log

Up to [Research Unix] / researchv10no / cmd / picasso

Annotation of researchv10no/cmd/picasso/picasso.ps, revision 1.1.1.1

1.1       root        1: %!
                      2: %      @(#)newpic newpic.ps 1.0b@(#)   10/27/89
                      3: 
                      4: /s /stroke load def
                      5: /f /fill load def
                      6: /n /newpath load def
                      7: /c /closepath load def
                      8: /l /lineto load def
                      9: /g /setgray load def
                     10: /d /setdash load def
                     11: /rgb /setrgbcolor load def
                     12: /w /setlinewidth load def
                     13: /gs /gsave load def
                     14: /gr /grestore load def
                     15: /slj /setlinejoin load def
                     16: /clj /currentlinejoin load def
                     17: /magnification 1 def
                     18: 
                     19: /PIC { % tx ty sx sy $ -- place origin at center
                     20:        clippath pathbbox newpath
                     21:        exch 4 -1 roll add 2 div 3 1 roll add 2 div translate
                     22:        scale magnification magnification scale translate
                     23: } bind def
                     24: 
                     25: /L { % p*N N p $
                     26:        moveto { lineto } repeat
                     27: } bind def
                     28: 
                     29: /rL { % p*N r N p $
                     30:        moveto
                     31:        1 sub
                     32:        { 3 1 roll 4 index 4 index 4 index arcto 4 { pop } repeat } repeat
                     33:        pop
                     34:        lineto
                     35: } bind def
                     36: 
                     37: /T { % string noofspace width p $
                     38:        moveto
                     39:        2 index stringwidth pop sub exch
                     40:        dup 0 eq
                     41:                { pop 1 index length div 0 3 -1 roll ashow }
                     42:                { div 0 8#40 4 -1 roll widthshow }
                     43:        ifelse
                     44: } bind def
                     45: 
                     46: /AT { % string noofspace width $
                     47:        2 index stringwidth pop sub exch
                     48:        dup 0 eq
                     49:                { pop 1 index length div 0 3 -1 roll ashow }
                     50:                { div 0 8#40 4 -1 roll widthshow }
                     51:        ifelse
                     52: } bind def
                     53: 
                     54: /Q { % llx lly urx ury $
                     55:        2 copy
                     56:        moveto
                     57:        3 index exch lineto
                     58:        3 1 roll dup 3 1 roll lineto lineto
                     59:        closepath
                     60: } bind def
                     61: 
                     62: /rQ { % llx lly urx ury r $
                     63:        2 index 2 index 5 index add 2 div moveto
                     64:        3 copy 7 index 2 index 3 -1 roll arcto 4 { pop } repeat
                     65:        4 index 2 index 1 index 6 index 4 index arcto 4 { pop } repeat
                     66:        5 copy exch pop 2 index exch arcto 4 { pop } repeat
                     67:        2 index 5 1 roll arcto 5 { pop } repeat
                     68:        closepath
                     69: } bind def
                     70: 
                     71: /E { % 0 0 1 ang1 ang2 matrix 
                     72:        matrix currentmatrix
                     73:        exch
                     74:        concat
                     75:        newpath
                     76:        6 1 roll
                     77:        arc
                     78:        setmatrix
                     79: } bind def
                     80: 
                     81: /Sp { % p*N N p p $
                     82:        2 copy
                     83:        moveto
                     84:        4 copy
                     85:        exch 4 -1 roll add 2 div 3 1 roll add 2 div lineto
                     86:        5 -1 roll
                     87:        {
                     88:                6 copy pop pop 2 copy
                     89:                exch 8 -1 roll sub 6 div 3 index exch sub
                     90:                exch 7 -1 roll sub 6 div 2 index exch sub
                     91:                6 2 roll 4 copy
                     92:                exch 4 -1 roll exch sub 6 div 4 index add
                     93:                3 1 roll sub 6 div 2 index add
                     94:                6 2 roll
                     95:                exch 4 -1 roll add 2 div 3 1 roll add 2 div
                     96:                curveto
                     97:        } repeat
                     98:        pop pop
                     99:        lineto
                    100: } bind def

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