NINANINA Printing via PostScript

My colleague, Corey Satten, has come up with a PostScript implementation of the NINA algorithm. He has also gotten some very interesting results using floating point numbers with the NINA algorithm. To get beautiful hard-copy output of your favorite NINA figures, save the following as a text file. You can simply copy and paste it, or you can download its contents from this link.

%!PS-Adobe-2.0 EPSF-1.2
%%BoundingBox: 10 100 605 695
%%Creator: Corey Satten inspired by Matt Freedman
/num_lines 1615 def
/a_pulse 938 def
/b_pulse 1556 def
72 8.5 mul 2 div 11 72 mul 2 div translate
72 2 mul dup scale 0 setlinewidth
2 0 moveto
1 1 num_lines {
/count exch def
/cur_x -360 a_pulse mul count mul num_lines div cos
       -360 b_pulse mul count mul num_lines div cos add def
/cur_y -360 a_pulse mul count mul num_lines div sin
       -360 b_pulse mul count mul num_lines div sin add def
cur_x cur_y lineto
} for
stroke grestore

You should be able to print this file as-is on any PostScript printer. You can use the NINA applet to find other figures you like, then simply edit your saved PostScript file and replace the numbers in the 3rd, 4th, and 5th lines with the values NINA displays for Number of Lines, A Pulse, and B Pulse respectively. You will find that many figures with large numbers of lines tend to just look like big blobs on a 100dpi computer screen, but look spectacular when printed on a 600 dpi laser printer.