I have another solution, but it has speed and accuracy problems. Perhaps
interesting only for curiosity:

#version Unofficial MegaPov 0.5;

camera { location <-1,4,-5> look_at -y angle 35 }
light_source { <100,200,-50>, 1 }

#declare Spiral =
  function
  { pigment
    { spiral1 2 color_map { [0 rgb 0][1 rgb 1] }
      sine_wave
      rotate x*90 scale <.4,100,.4>
    }
  }

isosurface
{ function { 1/(sqrt(sqr(x)+sqr(z))+.01)+y+Spiral(x,y,z)*.05 }
  contained_by { box { <-2,-5,-2><2,1,2> } }
  max_gradient 100
  accuracy .01

  pigment { rgb <0,.5,1> } finish { specular .5 }
}


-- 
main(i,_){for(_?--i,main(i+2,"FhhQHFIJD|FQTITFN]zRFHhhTBFHhhTBFysdB"[i]
):5;i&&_>1;printf("%s",_-70?_&1?"[]":" ":(_=0,"\n")),_/=2);} /*- Warp -*/

Post a reply to this message