Return to cropmarks.ps CVS log

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

Annotation of researchv10no/cmd/postscript/cropmarks/cropmarks.ps, revision 1.1

1.1     ! root        1: %
        !             2: % Center pages, based on pageheight and pagewidth, and redefine showpage
        !             3: % to put cropmarks at each corner. Device dependent code to expand the
        !             4: % paper size goes in procedure expandpagesize. Currently only supports
        !             5: % a Linotronic 200P typesetter using 12 inch wide paper. You'll have to
        !             6: % add code to expandpagesize to support different typesetters or even a
        !             7: % 200P that's running differently.
        !             8: %
        !             9: 
        !            10: /CropmarkDict 40 dict dup begin
        !            11: 
        !            12: /expandpage true def
        !            13: /magnification 1 def
        !            14: /pageheight 11.0 def
        !            15: /pagewidth 8.5 def
        !            16: /scaletofit false def
        !            17: /scaling 1 def
        !            18: 
        !            19: /marklength .3 def     % inches
        !            20: /markstart .125 def    % inches
        !            21: /markend .04 def       % inches
        !            22: /marklinewidth .25 def % points
        !            23: 
        !            24: /inch {72 mul} def
        !            25: /min {2 copy gt {exch} if pop} def
        !            26: /max {2 copy lt {exch} if pop} def
        !            27: 
        !            28: /setup {
        !            29:        /markspace markstart marklength add markend add inch marklinewidth add def
        !            30:        /totalheight pageheight inch markspace 2 mul add def
        !            31:        /totalwidth pagewidth inch markspace 2 mul add def
        !            32: 
        !            33:        pagedimensions
        !            34:        checkpagesize
        !            35:        /scaling getscaling def
        !            36:        xcenter ycenter translate
        !            37:        scaling scaling scale
        !            38:        pagewidth inch 2 div neg pageheight inch 2 div neg translate
        !            39:        clippage
        !            40: } def
        !            41: 
        !            42: /pagedimensions {
        !            43:        clippath pathbbox newpath
        !            44:        4 -1 roll exch 4 1 roll 4 copy
        !            45:        sub /width exch def
        !            46:        sub /height exch def
        !            47:        add 2 div /xcenter exch def
        !            48:        add 2 div /ycenter exch def
        !            49: } def
        !            50: 
        !            51: /checkpagesize {
        !            52:        height totalheight lt width totalwidth lt or expandpage and {
        !            53:                expandpagesize
        !            54:                pagedimensions
        !            55:        } if
        !            56: } def
        !            57: 
        !            58: /expandpagesize {      % device dependent code
        !            59:        /Product statusdict begin /product where {pop product}{()} ifelse end def
        !            60: 
        !            61:        Product (Linotype) eq {         % Linotronic 200P and other models?
        !            62:                statusdict /setpageparams known {
        !            63:                        /maxwidth 12.0 inch def         % 12 inch wide paper?
        !            64:                        totalheight maxwidth le {
        !            65:                                totalheight
        !            66:                                totalwidth
        !            67:                                maxwidth totalheight sub 2 div
        !            68:                                0
        !            69:                        }{
        !            70:                                totalwidth maxwidth min
        !            71:                                totalheight
        !            72:                                maxwidth totalwidth maxwidth min sub 2 div
        !            73:                                1
        !            74:                        } ifelse
        !            75:                        statusdict /setpageparams get exec
        !            76:                } if
        !            77:        } if
        !            78: } def
        !            79: 
        !            80: /getscaling {
        !            81:        scaletofit
        !            82:                {height totalheight div width totalwidth div min 1 min}
        !            83:                {1}
        !            84:        ifelse
        !            85: } def
        !            86: 
        !            87: /clippage {
        !            88:        newpath
        !            89:        0 0 moveto
        !            90:        pagewidth inch 0 rlineto
        !            91:        0 pageheight inch rlineto
        !            92:        pagewidth neg inch 0 rlineto
        !            93:        closepath clip
        !            94:        newpath
        !            95: } def
        !            96: 
        !            97: /cropmark {
        !            98:        gsave
        !            99:        translate
        !           100:        rotate
        !           101:        marklinewidth dup translate
        !           102:        0 0 transform round exch round exch itransform translate
        !           103:        markstart inch 0 moveto marklength inch 0 rlineto stroke
        !           104:        0 markstart inch moveto 0 marklength inch rlineto stroke
        !           105:        grestore
        !           106: } bind def
        !           107: 
        !           108: /@PreviousShowpage /showpage load def
        !           109: 
        !           110: end def
        !           111: 
        !           112: %
        !           113: % Cropmarks - in the default coordinate system.
        !           114: %
        !           115: 
        !           116: /showpage {
        !           117:        gsave
        !           118:        CropmarkDict begin
        !           119:                initgraphics
        !           120:                marklinewidth setlinewidth
        !           121:                xcenter ycenter translate
        !           122:                scaling scaling scale
        !           123:                0 pagewidth inch 2 div pageheight inch 2 div cropmark
        !           124:                90 pagewidth inch neg 2 div pageheight inch 2 div cropmark
        !           125:                180 pagewidth inch neg 2 div pageheight inch 2 div neg cropmark
        !           126:                270 pagewidth inch 2 div pageheight inch 2 div neg cropmark
        !           127:                @PreviousShowpage
        !           128:        end
        !           129:        grestore
        !           130: } bind def
        !           131: 

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