Return to Fractions.eps CVS log

Up to [NeXTSTEP 3.3 examples] / Examples / PostScript

Annotation of Examples/PostScript/Fractions.eps, revision 1.1.1.1

1.1       root        1: %!PS-Adobe-2.0
                      2: %%Title: Blue Book Program 8, on page 161
                      3: %%Creator: Adobe Systems Incorporated 
                      4: %%CreationDate: Thu Dec 28 13:30:57 PST 1989
                      5: %%BoundingBox: 0 0 592 750
                      6: %%DocumentFonts: Times-Roman
                      7: %%EndComments
                      8: 
                      9: /fractiondict 5 dict def
                     10: /fractionshow
                     11:        { fractiondict begin
                     12:          /denominator exch def
                     13:          /numerator exch def
                     14:          
                     15:          /regularfont currentfont def
                     16:          /fractionfont currentfont [.65 0 0 .6 0 0] 
                     17:            makefont def
                     18:          
                     19:          gsave
                     20:            newpath
                     21:            0 0 moveto
                     22:            (1) true charpath
                     23:            flattenpath pathbbox
                     24:            /height exch def pop pop pop
                     25:          grestore
                     26:          
                     27:          0 .4 height mul rmoveto
                     28:          
                     29:          fractionfont setfont numerator show
                     30:          0 .4 height mul neg rmoveto
                     31:          regularfont setfont (\244) show
                     32:          
                     33:          fractionfont setfont denominator show
                     34:          regularfont setfont
                     35:          end
                     36:        } def
                     37: 
                     38: /Times-Roman findfont 300 scalefont setfont
                     39: 100 72 moveto
                     40: (7) (8) fractionshow
                     41: 
                     42: /Times-Roman findfont 18 scalefont setfont
                     43: 72 550 moveto
                     44: (Slowly stir in 5) show
                     45: (1) (2) fractionshow
                     46: ( lbs. of chocolate and then blend on high.) show
                     47: 
                     48: /Times-Roman findfont 40 scalefont setfont
                     49: 420 650 moveto
                     50: (13) (22) fractionshow
                     51: 100 450 moveto
                     52: (3) (4) fractionshow
                     53: 
                     54: showpage
                     55:            

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