%!PS EPSF %%Title: Typesetting along arcs %%Creator: cgl %%CreationDate: June 4 1996 %%BoundingBox: -100 50 100 125 %%Pages: 1 %%EndProlog %%Page: 1 1 /Courier findfont 10 scalefont setfont %150 650 translate % /text (happybirthday) def 60 rotate 0 1 12{0 100 moveto dup%double loop var text exch 1 getinterval show -10 rotate }for stroke showpage