bug.ps

早期freebsd实现

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