%!PS
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



/pi 3.14159265 def
/ci 0 def
/clrs [[.96 .76 .58] [.32 .36 .3] [.2 0 .02]
  [.02 .15 .45] [.87 .35 0] [.2 0 .02]] def
306 396 translate 0.8 dup scale
/u {2 index sub abs .9 exch exp} def
/F {
  -187.5 25.0 187.5 {u 60 neg mul add} for
  dup 2 mul sin 45 mul 3 2 roll add exch
  [-62.5 137.5] {u 60 mul add} forall
  dup 2 mul sin -90 mul 3 2 roll add exch -12 add
  [-162.5 37.5 237.5] {u 60 mul add} forall
  dup 2 mul sin 45 mul 3 2 roll add exch
} bind def


gsave
300 -4 2 {
  /pnts 6.28 2 index 0.8 mul mul 5 mul cvi def
  /d pi pnts div 180.0 pi div mul sin 2.0 mul def
  0 2 copy newpath F moveto
  pnts {
    dup 3 1 roll d mul sub dup d mul 3 2 roll add
    2 copy F lineto
  } repeat 

  clrs ci get aload pop setrgbcolor
  /ci ci 1 add 6 mod def
  pop pop closepath fill
} for
grestore


showpage