/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
/txys [-71 -47.3 -23.7 0 23.7 47.3 71] def
306 396 translate 3.6 dup scale
/u {2 index sub abs .7 exch exp} def
/F {
  txys {u 20 mul add} forall exch
  txys {u 20 mul add} forall exch
  txys {u 20 neg mul add} forall exch
  txys {u 20 neg mul add} forall exch
} bind def
gsave
newpath 71 71 neg moveto 71 71 lineto 71 neg 71 lineto
  71 neg 71 neg lineto closepath clip
100 -2 2 {
  /pnts 6.28 2 index 3.6 mul mul 3 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