%!PS-Adobe-2.0 %%Title: Blue Book Program 3, on page 137 %%Creator: Adobe Systems Incorporated %%CreationDate: Thu Dec 28 13:17:45 PST 1989 %%EndComments /ellipsedict 8 dict def ellipsedict /mtrx matrix put /ellipse { ellipsedict begin /endangle exch def /startangle exch def /yrad exch def /xrad exch def /y exch def /x exch def /savematrix mtrx currentmatrix def x y translate xrad yrad scale 0 0 1 startangle endangle arc savematrix setmatrix end } def newpath 144 400 72 144 0 360 ellipse stroke newpath 400 400 144 36 0 360 ellipse fill newpath 300 180 144 72 30 150 ellipse stroke newpath 480 150 30 50 270 90 ellipse fill showpage