Double Period by rolf

(%stdin) (r) file dup token pop /a exch def token pop /p exch def
(%stdout) (w) file /o exch def
/t -.01 def
p 2 mul 
  t sin a mul a add .9999 mul cvi 1 add { o ( ) writestring } repeat 
  o (*\n) writestring
  /t t 360 p div add def
} repeat

Note that non-ascii characters in the above source code will be escaped (such as \x9f).


return to the top page