Return to Outlines.eps CVS log

Up to [NeXTSTEP 3.3 examples] / Examples / PostScript

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

1.1     ! root        1: %!PS-Adobe-2.0
        !             2: %%Title: Blue Book Program 16, on page 203
        !             3: %%Creator: Adobe Systems Incorporated 
        !             4: %%CreationDate: Fri Dec 29 12:39:20 PST 1989
        !             5: %%Pages: 0 1
        !             6: %%BoundingBox: 0 0 240 110
        !             7: %%DocumentFonts: Helvetica-Bold
        !             8: %%EndComments
        !             9: 
        !            10: /makeoutlinedict 7 dict def
        !            11: /MakeOutlineFont
        !            12:   { makeoutlinedict begin
        !            13:     /uniqueid exch def
        !            14:        /strokewidth exch def
        !            15:        /newfontname exch def
        !            16:        /basefontname exch def
        !            17: 
        !            18:        /basefontdict basefontname findfont def
        !            19:        
        !            20:        /numentries basefontdict maxlength 1 add def
        !            21:        
        !            22:        basefontdict /UniqueID known not
        !            23:          { /numentries numentries 1 add def } if
        !            24:          
        !            25:        /outfontdict numentries dict def
        !            26: 
        !            27:        basefontdict
        !            28:          { exch dup /FID ne
        !            29:                  { exch outfontdict 3 1 roll put }
        !            30:                  { pop pop }
        !            31:                  ifelse
        !            32:                } forall
        !            33:                
        !            34:        outfontdict /FontName newfontname put
        !            35:        outfontdict /PaintType 2 put
        !            36:        outfontdict /StrokeWidth strokewidth put
        !            37:        outfontdict /UniqueID uniqueid put
        !            38:        
        !            39:        newfontname outfontdict definefont pop
        !            40:        end
        !            41:   } def
        !            42: 
        !            43: /Helvetica-Bold /Helvetica-Outline1 1000 54 div 
        !            44: 
        !            45:   /Helvetica-Bold findfont dup /UniqueID known
        !            46:     { /UniqueID get 1 add }
        !            47:     { pop 1 }
        !            48:     ifelse
        !            49:   MakeOutlineFont
        !            50: 
        !            51: /Helvetica-Outline1 findfont 36 scalefont setfont 
        !            52:   5 65 moveto (NeXT) show
        !            53: 
        !            54: /Helvetica-Outline1 findfont 54 scalefont setfont 
        !            55:   (NeXT) show
        !            56:   
        !            57: /Helvetica-Bold /Helvetica-Outline2 1000 36 div 
        !            58: 
        !            59:   /Helvetica-Bold findfont dup /UniqueID known
        !            60:     { /UniqueID get 2 add }
        !            61:     { pop 1 }
        !            62:     ifelse
        !            63:   MakeOutlineFont
        !            64: 
        !            65: /Helvetica-Outline2 findfont 36 scalefont setfont 
        !            66:   5 5 moveto (NeXT) show
        !            67:   
        !            68: /Helvetica-Outline2 findfont 54 scalefont setfont 
        !            69:   (NeXT) show
        !            70: showpage

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