#include "shapes.inc"
#include "colors.inc"
#include "textures.inc"

background{color ForestGreen}

/*
Two of the three double lines in the (stnr) surface here coincide
along a line where the two noncompact "components" are tangent.
homogeneous implicit:x[0]2x[2]2-2x[0]x[1]x[2]2-x[0]x[1]x[3]2+
x[1]2x[2]2+x[1]2x[3]2-x[3]4
affine implicit:y^2-2*x*y^2-x*z^2+x^2*y^2+x^2*z^2-z^4=0
*/

//Steiner relative

poly { 4<
0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, -2, 0, 0, 0, 0, 
  -1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, -1, 0, 0, 
  0, 0 >
   scale < 8,8,8>
   texture {Rusty_Iron
scale 4
finish{ambient 0.7
       diffuse 0.8
phong 1
phong_size 150
}
/*
      pigment {Plum }
      finish {
	 phong 1.0
	 phong_size 102
	 ambient 0.4
	 diffuse 0.4
         reflection 0.2    
      }
*/
   }
clipped_by{sphere{<0,0,0>40}}
rotate<0,0,0>
bounded_by{sphere{<0,0,0>41}}
}

// Put down  
plane {
   y, -20.0
   texture {
      pigment {
          color Gray70 
         
      }
      finish {
	 ambient 0.1
	 diffuse 0.6
      }
   }

}

camera {
   location  <35.2, 40.3, -70.5>
   up        <0.0, 1.0,  0.0>
   right     <4/3, 0.0,  0.0>
   look_at   <0.1, 0.1,  0.1>
}

light_source { <200,500,-100> White
    spotlight
    radius  30
    falloff 50
    point_at <0,0,0>
}


//light_source { <1000, 300, -1301> color White }

light_source { <20, 61, -80> color White }