Return to ps_include.ps CVS log

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

Annotation of researchv10no/cmd/post.src/dpost.utf/ps_include.ps, revision 1.1.1.1

1.1       root        1: -> PS_head
                      2: 
                      3: %ps_include: begin
                      4: save
                      5: /ed {exch def} def
                      6: 
                      7: # redefine dangerous operators
                      8: {} /showpage ed
                      9: {} /copypage ed
                     10: {} /erasepage ed
                     11: {} /letter ed
                     12: 
                     13: # restore findfont from systemdict if it looks like it's be redefined
                     14: currentdict /findfont known systemdict /findfont known and {
                     15:        /findfont systemdict /findfont get def
                     16: } if
                     17: 
                     18: # computations are done in the context of a new dictionary
                     19: 36 dict dup /PS-include-dict-dw ed begin
                     20: 
                     21: # context holds the save object created earlier
                     22: /context ed
                     23: 
                     24: # save and clear the operand stack
                     25: count array astore /o-stack ed
                     26: 
                     27: # the following variables are now expected:
                     28: #      llx,lly,urx,ury bounding box of picture to be included
                     29: #      w               nonzero if space should be painted white to start
                     30: #      o               nonzero if space should be outlined
                     31: #      s               nonzero if both dimensions should be scaled
                     32: #      cx,cy           center of page space in current coordinates
                     33: #      sx,sy           size of page space in current coordinates
                     34: #      ax,ay           left-right, up-down adjustment of picture in page space
                     35: #      rot             rotation of picture in page space
                     36: %ps_include: variables begin
                     37: 
                     38: 
                     39: 
                     40: -> PS_setup
                     41: 
                     42: %ps_include: variables end
                     43: 
                     44: # some routines:
                     45: # - BBOX llx lly urx ury       put bounding box on stack
                     46: # llx lly urx ury BOXPATH -    make a path with given box corners
                     47: # dx dy LEN length             compute length of positionless vector
                     48: # a b MIN min                  compute minimum of two numbers
                     49: # a b MAX max                  compute maximum of two numbers
                     50: # x y NICE x y                 move to pixel boundaries in default coords
                     51: {llx lly urx ury} /bbox ed
                     52: {newpath 2 index exch 2 index exch dup 6 index exch
                     53:  moveto 3 {lineto} repeat closepath} /boxpath ed
                     54: {dup mul exch dup mul add sqrt} /len ed
                     55: {2 copy gt {exch} if pop} /min ed
                     56: {2 copy lt {exch} if pop} /max ed
                     57: {transform round exch round exch A itransform} /nice ed
                     58: 
                     59: # A is the transformation from default to current coordinates
                     60: {6 array} /n ed
                     61: n defaultmatrix n currentmatrix n invertmatrix n concatmatrix /A ed
                     62: 
                     63: # Sx,Sy and Cx,Cy are dimensions and size of bounding box in current coordinates
                     64: urx llx sub 0 A dtransform len /Sx ed
                     65: 0 ury lly sub A dtransform len /Sy ed
                     66: llx urx add 2 div lly ury add 2 div A transform /Cy ed /Cx ed
                     67: 
                     68: # H and W are height and width of rotated box in current coordinates
                     69: rot dup sin abs /S ed cos abs /C ed
                     70: Sx S mul Sy C mul add /H ed
                     71: Sx C mul Sy S mul add /W ed
                     72: 
                     73: # Scalex and Scaley are the required horizontal and vertical scaling factors
                     74: sy H div /Scaley ed
                     75: sx W div /Scalex ed
                     76: 
                     77: # Preserve aspect ratio if we're not scaling both dimensions (ie. s is 0)
                     78: s 0 eq {Scalex Scaley min dup /Scalex ed /Scaley ed} if
                     79: 
                     80: # add to cx,cy the shift needed within the page space
                     81: sx Scalex W mul sub 0 max ax 0.5 sub mul cx add /cx ed
                     82: sy Scaley H mul sub 0 max ay 0.5 sub mul cy add /cy ed
                     83: 
                     84: # the actual rotation needed is rot less the current rotation
                     85: urx llx sub 0 A dtransform exch atan rot exch sub /rot ed
                     86: 
                     87: # set up the coordinate system
                     88: n currentmatrix initgraphics setmatrix
                     89: cx cy translate
                     90: Scalex Scaley scale
                     91: rot rotate
                     92: Cx neg Cy neg translate
                     93: A concat
                     94: 
                     95: # set the clipping region, and conditionally whiteout and outline
                     96: bbox boxpath clip newpath
                     97: w 0 ne {gsave bbox boxpath 1 setgray fill grestore} if
                     98: 
                     99: # pop local dictionary from the dict stack
                    100: end
                    101: 
                    102: # now begins the actual material extracted from the file
                    103: gsave
                    104: %ps_include: inclusion begin
                    105: 
                    106: 
                    107: 
                    108: -> PS_tail
                    109: 
                    110: %ps_include: inclusion end
                    111: grestore
                    112: 
                    113: # within the context of the local dictionary ...
                    114: PS-include-dict-dw begin
                    115: 
                    116: o 0 ne {gsave A defaultmatrix /A ed llx lly nice urx ury nice
                    117:        initgraphics 0.1 setlinewidth boxpath stroke grestore} if
                    118: 
                    119: # ... restore the operand stack and the save context
                    120: clear o-stack aload pop
                    121: context end restore
                    122: %ps_include: end

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