ƒ ECIRCLETXT.PS     D_  PRG formatted GEOS file V1.0 x€4LaserWriter 2.1 28 V2.0 or higher        ³G_ Ànonps           ¿G_ BLASTER'S CONVERTER V2.5HX #ƒ ÖLW_Greek         ÕW .ÞCAVE GIRL R     ÝGV:¿?ÿ 'ÿà$ $ÿü$€$€$µ4$¥$$µ4$¥$$¥´$€$‚$‚<„‚‚€ÿüƒÿÿWrite Image V2.1Red StormgeoWrite V1.1 This file was created with Wrong is Write. Written by Joe Buckley..Îÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@à0 %% Ron King %% THIS FILE MUST BE CONVERTED TO TRUE ASCII %% BEFORE UPLOADING TO A POSTSCRIPT PRINTER %% Puts text running around a circular arc in %% the middle of the page %% From the Postscript Cookbook by Adobe Systems %% Next 3 lines puts 64/128 under arc /Times-Roman findfont 72 scalefont setfont 210 504 moveto (64/128) show %% Circletext code /outsidecircletext { circtextdict begin /radius exch def /centerangle exch def /ptsize exch def /str exch def /xradius radius ptsize 4 div add def gsave centerangle str findhalfangle add rotate str { /charcode exch def ( ) dup 0 charcode put outsideplacechar} forall grestore end } def /circtextdict 16 dict def circtextdict begin /findhalfangle { stringwidth pop 2 div 2 xradius mul pi mul div 360 mul } def /outsideplacechar { /char exch def /halfangle char findhalfangle def gsave halfangle neg rotate radius 0 translate -90 rotate char stringwidth pop 2 div neg 0 moveto char show grestore halfangle 2 mul neg rotate} def %% Next line defines pi /pi 3.1415923 def end %% Next line defines the font and size /Times-Bold findfont 36 scalefont setfont %% next line sets origin to page center 306 448 translate %% Your text goes in between the parenthesees (You Can do Anything With a Commodore) @à0 %% next line inputs point 36 (font size) %% angle (90 degrees) %% radius of the arc 160 (in points) %% 250 504 moveto (64/128) show 36 90 200 outsidecircletext showpag@à0 %% next line inputs point 36 (font size) %% angle (90 degrees) %% radius of the arc 160 (in points) 250 504 moveto (64/128) show 36 90 200 outsidecircletext showpage ÿ