|
(pete gamache) (gamache@gmail.com) /Courier 50 dup dup 666 add moveto dup dup 10 mul 1 exch{dup 50 sub dup 4 mul cos 50 mul exch 100 div neg 2 exch exp mul 666 add lineto } for 666 lineto findfont 16 scalefont setfont 300 666 translate 0 30 neg moveto show 0 30 moveto show stroke showpage %ftso