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

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.