%% Setting Fractions
%%                PostScript Language Tutorial and Cookbook

/fractiondict 5 dict def
/fractionshow {
  fractiondict begin
    /denominator exch def
    /numerator exch def
    /regularfont currentfont def
    /fractionfont currentfont [.65 0 0 .6 0 0] makefont def
    gsave
      newpath 0 0 moveto (1) true charpath flattenpath pathbbox
      /height exch def pop pop pop grestore
    0 .4 height mul rmoveto
    fractionfont setfont numerator show
    0 .4 height mul neg rmoveto
    regularfont setfont (/) show
    fractionfont setfont denominator show
    regularfont setfont
    end
  } def

/Times-Roman findfont 300 scalefont setfont
100 72 moveto (7) (8) fractionshow

/Times-Roman findfont 18 scalefont setfont
72 550 moveto
(Slowly stir in 5) show (1) (2) fractionshow
( lbs. of chocolate and then blend on high.) show

/Times-Roman findfont 40 scalefont setfont
420 650 moveto (13) (22) fractionshow
100 450 moveto (3) (4) fractionshow

showpage


