%!PS
%
% @file      lorenz1.ps
% @author    Mitch Richling <https://www.mitchr.me>
% @Copyright Copyright 1996 by Mitch Richling.  All rights reserved.
% @brief     Draw the Lorenz strange attractor -- in COLOR.@EOL

0.12 10 div setlinewidth 
0 setlinewidth    % Most PostScript implementations will set the linewidth
                  % to the minimum supported by the HW.  This is not std.

100 400 translate
10.0 15.0 scale

0 100 moveto
0 -100 lineto
stroke

-100 1 100 {
  dup 0.25 moveto
  dup -0.25 lineto
  stroke
  dup 0.25 exch moveto
  -0.25 exch lineto
  stroke
} for

100 0 moveto
-100 0 lineto
stroke

0.1 0.0 0.0
1 1 80000 {
  80000 div dup 1 exch sub 1 setrgbcolor
  3 copy exch pop exch moveto
  3 copy pop exch sub 10.0 mul 0.001 mul 3 index add 4 1 roll
  3 copy 2 index mul add exch 28.0 mul exch sub 0.001 mul 2 index add 4 1 roll
  3 copy 8.0 3.0 div mul 3 1 roll mul exch sub 0.001 mul add exch pop exch pop
  3 copy exch pop exch lineto 
  stroke
} for 
showpage