%!PS

% Mirrored from http://www.thep.lu.se/~bjorn/postscript/

/I/S/L/W/G/+/Z/F/E/D[/def/exch/for{E D}/add{s E get mul}{Z -16.2001 1
13}{25 E S rlineto}{/q Z dup q G E q 1 + G}{Z 2 2}]{cvx def}forall[0 72
1008{dup sin E cos}F]1 setlinejoin/s W{/a W{/b I 10{/i I 4{/m I moveto
i m +/j I 10{/l Z b m l + G a l G sub s m get div .2 + floor .3 + 25
mul j l + S rmoveto}F i L j L stroke}F}F}F}F showpage