http://www.perlmonks.org?node_id=644067
User since: Oct 10, 2007 at 19:03 UTC (13 years ago)
Last here: Oct 02, 2010 at 04:43 UTC (10 years ago)
Experience: 970
Level: Friar (9)
Writeups: 133
Location:Cambridge, MA, US
User's localtime: Jun 03, 2020 at 18:55 EDT
Scratchpad: View
For this user:Search nodes

(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