bug.PS

   1 %!PS-Adobe-2.0
   2 %%DocumentFonts: Times-Roman Times-Italic Times-Bold Symbol
   3 %%Pages: (atend)
   4 %%EndComments
   5 % $Header: /home/jjc/catps/RCS/catps.pro,v 1.1 89/01/08 11:00:18 jjc Exp $
   6
   7 /catps 13 dict def
   8
   9 catps begin
  10
  11 /F0 /Times-Roman findfont def
  12 /F1 /Times-Italic findfont def
  13 /F2 /Times-Bold findfont def
  14 /F3 /Symbol findfont def
  15 /F { scalefont setfont } bind def
  16 /S /show load def
  17 /M /moveto load def
  18 /BP { /level0 save def 1 6 div dup scale } bind def
  19 /EP { level0 restore showpage } bind def
  20 /T /end load def
  21
  22 /fractiondict 5 dict def
  23 % num den FS -- print a fraction
  24 % it alters currentpoint but leaves currentfont unchanged
  25
  26 /FS {
  27         fractiondict begin
  28         /den exch def
  29         /num exch def
  30         /regularfont currentfont def
  31         /fractionfont currentfont [.65 0 0 .6 0 0] makefont def
  32         gsave
  33                 newpath 0 0 moveto (1) true charpath flattenpath pathbbox
  34                 /height exch def pop pop pop
  35         grestore
  36         0 .4 height mul rmoveto
  37         fractionfont setfont num show
  38         0 .4 height mul neg rmoveto
  39         regularfont setfont (\244) show
  40         fractionfont setfont den show
  41         regularfont setfont
  42         end
  43 } def
  44
  45 end
  46
  47
  48 %%EndProlog
  49 %%BeginSetup
  50 catps begin
  51 %%EndSetup
  52
  53 %%Page: ? 1
  54 BP
  55 F0 60 F
  56 216 4382 M(a)S
  57 336 4289 M(b)S
  58 456 4196 M(c)S
  59 576 4103 M(d)S
  60 576 4010 M(e)S
  61 576 3917 M(f)S
  62 216 3821 M(g)S
  63 EP
  64 %%Trailer
  65 T
  66