// Parametric object bug test scene. 
// Bug: Object shows up to be completely black due to self-shadowing. 
// Written by Wolfgang Wieser. 

#include "functions.inc"

global_settings { assumed_gamma 2.2 }
//light_source { <-0.4,0.2,-0.3>*20, rgb <2,2,2>/2 }
light_source { <0.2,0.3,-0.3>*20*5, rgb <2,2,2>/1.7 }

#declare m=3;
parametric {
        function { u*sin(v) }
        function { 15*sqrt(pow(sin(m*v)*sin(u/2)/3,2)+
                pow(cos(m*v)*m/u*sin(u/2)/3,2)) }
        function { u*cos(v) }
        <0.001,0>, <15,2*pi>
        contained_by {  sphere { 0, 15 }  }
        precompute 12 x,y,z
        accuracy 0.0001
		
		pigment { rgb y }
}

//sphere { 0, 15  pigment { rgb y } }

plane { y,-15 pigment { rgb x }}

camera {  location <0,0.6,-1>*8.3*4 up y  look_at <0,0,0> }