Return to Compositing.eps CVS log

Up to [NeXTSTEP 3.3 examples] / Examples / PostScript

Annotation of Examples/PostScript/Compositing.eps, revision 1.1

1.1     ! root        1: %!PS-Adobe-2.0 EPSF-2.0
        !             2: %%Title: Compositing.eps
        !             3: %%Creator: NeXT
        !             4: %%Pages: 0 1
        !             5: %%BoundingBox: 0 0 360 772
        !             6: %%DocumentFonts: Helvetica
        !             7: %%EndComments
        !             8: 
        !             9: 
        !            10: % A simple demo of the various compositing modes on the
        !            11: % NeXT computer. Change the alpha and gray values (below) 
        !            12: % and the source and destination draw procedures if you wish
        !            13: % to experiment further.
        !            14: 
        !            15: /thisGstate gstate def
        !            16: 
        !            17: % Change the following for experimentation purposes...
        !            18: 
        !            19: /sourceGray 0.333 def
        !            20: /sourceAlpha 1.0 def
        !            21: /destGray 0.667 def
        !            22: /destAlpha 1.0 def
        !            23: 
        !            24: % Some other parameters that probably need not be changed
        !            25: 
        !            26: /fontSize 12 def
        !            27: /sourceX 40 def /sourceY 10 def 
        !            28: /destX 200 def /destY 10 def 
        !            29: /width 120 def /height 32 def
        !            30: /titleOffset height 4 add def
        !            31: /opY destY height add fontSize add 20 add def
        !            32: /opYDelta height fontSize add 10 add def
        !            33: /opX 115 def
        !            34: 
        !            35: % Font 
        !            36: 
        !            37: /Helvetica findfont fontSize scalefont setfont
        !            38: 
        !            39: % Procedure to draw the destination; change this for different images
        !            40: 
        !            41: /drawDest {
        !            42:        1.0 setgray 0.0 setalpha 
        !            43:        destX destY width height rectfill
        !            44:        newpath
        !            45:        destX width add destY moveto
        !            46:        0 height rlineto
        !            47:        width neg 0 rlineto
        !            48:        closepath
        !            49:        destGray setgray 
        !            50:        destAlpha setalpha
        !            51:        fill
        !            52:        destX destY titleOffset add moveto
        !            53:        0.0 setgray 1.0 setalpha (Destination) show
        !            54:        0 setlinewidth destX destY width height rectstroke
        !            55: } def  
        !            56:        
        !            57: % Procedure to draw the source; changing this might be fun as well
        !            58: 
        !            59: /drawSource {
        !            60:        1.0 setgray 0.0 setalpha 
        !            61:        sourceX sourceY width height rectfill
        !            62:        newpath
        !            63:        sourceX sourceY moveto
        !            64:        0 height rlineto
        !            65:        width 0 rlineto
        !            66:        closepath
        !            67:        sourceGray setgray 
        !            68:        sourceAlpha setalpha
        !            69:        fill
        !            70:        sourceX sourceY titleOffset add moveto
        !            71:        0.0 setgray 1.0 setalpha (Source) show
        !            72:        0 setlinewidth sourceX sourceY width height rectstroke
        !            73: } def  
        !            74: 
        !            75: % Procedure to perform one compositing operator
        !            76: 
        !            77: /showComp {    % name destx desty operator showComp
        !            78:        /op exch def
        !            79:        /dy exch def
        !            80:        /dx exch def
        !            81: 
        !            82:        % Bring the destination picture over
        !            83:        destX destY width height thisGstate dx dy Copy composite
        !            84: 
        !            85:        % Composite the source on top of it
        !            86:        sourceX sourceY width height thisGstate dx dy op composite
        !            87: 
        !            88:        % Write the name
        !            89:        dx dy titleOffset add moveto
        !            90:        0.0 setgray 1.0 setalpha show
        !            91:        0 setlinewidth dx dy width height rectstroke
        !            92: } def
        !            93: 
        !            94: drawDest
        !            95: drawSource
        !            96: 
        !            97: /compositeOps [(Copy) (Clear) (Sover) (Dover) (Sin) (Din) 
        !            98: (Sout) (Dout) (Satop) (Datop) (Xor) (PlusD) (PlusL)] def
        !            99: 
        !           100: 
        !           101: % Run in a loop and do a composite with each of the above
        !           102: % operators...
        !           103: 
        !           104: /curX opX def
        !           105: /curY opY def
        !           106: 
        !           107: 0 1 12 {
        !           108:   compositeOps exch get dup    % Now we have two strings
        !           109:   cvx exec curX curY 3 -1 roll % (name) x y op
        !           110:   showComp
        !           111:   /curY curY opYDelta add def
        !           112: } for

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