%!PS-Adobe-2.0 %%DocumentFonts: Times-Roman Times-Italic Times-Bold Symbol %%Pages: (atend) %%EndComments % $Header: /home/jjc/catps/RCS/catps.pro,v 1.1 89/01/08 11:00:18 jjc Exp $ /catps 13 dict def catps begin /F0 /Times-Roman findfont def /F1 /Times-Italic findfont def /F2 /Times-Bold findfont def /F3 /Symbol findfont def /F { scalefont setfont } bind def /S /show load def /M /moveto load def /BP { /level0 save def 1 6 div dup scale } bind def /EP { level0 restore showpage } bind def /T /end load def /fractiondict 5 dict def % num den FS -- print a fraction % it alters currentpoint but leaves currentfont unchanged /FS { fractiondict begin /den exch def /num 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 num show 0 .4 height mul neg rmoveto regularfont setfont (\244) show fractionfont setfont den show regularfont setfont end } def end %%EndProlog %%BeginSetup catps begin %%EndSetup %%Page: ? 1 BP F0 60 F 216 4382 M(a)S 336 4289 M(b)S 456 4196 M(c)S 576 4103 M(d)S 576 4010 M(e)S 576 3917 M(f)S 216 3821 M(g)S EP %%Trailer T