Return to ps_include.h CVS log

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

Annotation of researchv10no/cmd/picasso/ps_include.h, revision 1.1.1.1

1.1       root        1: static char *PS_head[] = {
                      2:        "%ps_include: begin",
                      3:        "save",
                      4:        "/ed {exch def} def",
                      5:        "{} /showpage ed",
                      6:        "{} /copypage ed",
                      7:        "{} /erasepage ed",
                      8:        "{} /letter ed",
                      9:        "36 dict dup /PS-include-dict-dw ed begin",
                     10:        "/context ed",
                     11:        "count array astore /o-stack ed",
                     12:        "%ps_include: variables begin",
                     13:        0
                     14: };
                     15: 
                     16: static char *PS_setup[] = {
                     17:        "%ps_include: variables end",
                     18:        "{dup mul exch dup mul add sqrt} /len ed",
                     19:        "{2 copy gt {exch} if pop} /min ed",
                     20:        "{2 copy lt {exch} if pop} /max ed",
                     21:        "{6 array} /n ed",
                     22:        "n defaultmatrix n currentmatrix n invertmatrix n concatmatrix /A ed",
                     23:        "urx llx sub 0 A dtransform len /Sx ed",
                     24:        "0 ury lly sub A dtransform len /Sy ed",
                     25:        "llx urx add 2 div lly ury add 2 div A transform /Cy ed /Cx ed",
                     26: /*     "rot dup sin abs /S ed cos abs /C ed",
                     27: /*     "Sx S mul Sy C mul add /H ed",
                     28: /*     "Sx C mul Sy S mul add /W ed",
                     29: /*     "sy H div /Scaley ed",
                     30: /*     "sx W div /Scalex ed",
                     31: /*     "s 0 eq {Scalex Scaley min dup /Scalex ed /Scaley ed} if",
                     32: /*     "sx Scalex W mul sub 0 max ax 0.5 sub mul cx add /cx ed",
                     33: /*     "sy Scaley H mul sub 0 max ay 0.5 sub mul cy add /cy ed",
                     34: /*     "urx llx sub 0 A dtransform exch atan rot exch sub /rot ed",
                     35: /*     "n currentmatrix initgraphics setmatrix",
                     36: */     "sx Sx div /Scalex ed",
                     37:        "sy Sy div /Scaley ed",
                     38:        "cx cy translate",
                     39:        "Scalex Scaley scale",
                     40: /*     "rot rotate",
                     41: */     "Cx neg Cy neg translate",
                     42:        "A concat",
                     43:        "newpath",
                     44:        "end",
                     45:        "%ps_include: inclusion begin",
                     46:        0
                     47: };
                     48: 
                     49: static char *PS_tail[] = {
                     50:        "%ps_include: inclusion end",
                     51:        "PS-include-dict-dw begin",
                     52:        "clear o-stack aload pop",
                     53:        "context end restore",
                     54:        "%ps_include: end",
                     55:        0
                     56: };
                     57: 
                     58: static char *Pic_setup[] = {
                     59:        "%ps_include: variables end",
                     60:        "{dup mul exch dup mul add sqrt} /len ed",
                     61:        "{2 copy gt {exch} if pop} /min ed",
                     62:        "{2 copy lt {exch} if pop} /max ed",
                     63:        "{6 array} /n ed",
                     64:        "n defaultmatrix n currentmatrix n invertmatrix n concatmatrix /A ed",
                     65:        "urx llx sub 0 A dtransform len /Sx ed",
                     66:        "0 ury lly sub A dtransform len /Sy ed",
                     67:        "llx urx add 2 div lly ury add 2 div A transform /Cy ed /Cx ed",
                     68: /*     "rot dup sin abs /S ed cos abs /C ed",
                     69: /*     "Sx S mul Sy C mul add /H ed",
                     70: /*     "Sx C mul Sy S mul add /W ed",
                     71: /*     "sy H div /Scaley ed",
                     72: /*     "sx W div /Scalex ed",
                     73: /*     "s 0 eq {Scalex Scaley min dup /Scalex ed /Scaley ed} if",
                     74: /*     "sx Scalex W mul sub 0 max ax 0.5 sub mul cx add /cx ed",
                     75: /*     "sy Scaley H mul sub 0 max ay 0.5 sub mul cy add /cy ed",
                     76: /*     "urx llx sub 0 A dtransform exch atan rot exch sub /rot ed",
                     77: /*     "n currentmatrix initgraphics setmatrix",
                     78: */     "sx Sx div /Scalex ed",
                     79:        "sy Sy div /Scaley ed",
                     80:        "cx cy translate",
                     81:        "B concat",
                     82:        "newpath sx 2 div sy 2 div moveto sx neg 0 rlineto",
                     83:        "0 sy neg rlineto sx 0 rlineto closepath clip",
                     84:        "Scalex Scaley scale",
                     85: /*     "rot rotate",
                     86: */     "Cx neg Cy neg translate",
                     87:        "A concat",
                     88:        "newpath",
                     89:        "end",
                     90:        "%ps_include: inclusion begin",
                     91:        0
                     92: };

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