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     ! 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.