/*  Here is a quick do of a klein-bottle. It is generated with
    the poly command in PoV . The formula is:

           (x^2+y^2+z^2+2*y-1)*((x^2+y^2+z^2-2*y-1)^2-8*z^2)+
           16*x*z*(x^2+y^2+z^2-2*y-1)=0

    Fool around with it, and let me know what you think.
    
    T. Nordstrand  tore@maxwell.fi.uib.no or nfytn@alf.uib.no
    
*/    

#include "colors.inc"
#include "textures.inc"
/*
#declare Peel2 = texture {
 pigment 
  {gradient < 1, 1, 0 > 
   color_map {
      [0.00, 0.01  color Orange
                   color Orange]
      [0.01, 0.9  color Clear
                   color Clear]
      [0.9, 1.001 color Orange
                   color Orange]
   }
 }
}
*/

camera {
   location  <0, 0,-8>
   direction <0, 0,  1>
   up        <0, 1,  0>
   right   <4/3, 0,  0>
   look_at   <0, 1, 0>
}

light_source {<10, 20, -30> color White}
light_source {<-10, 5, 0> color White} 
light_source {<7, 8, -20> color White}
// Sky sphere 
sphere { <0, 0, 0>, 10000
   pigment {color Gray60}
   finish {Luminous}
}

// Floor plane 
plane { y,-10
   pigment {NeonBlue}
   finish {ambient 0.15 diffuse 0.8}
}
object {
   poly{6,   
   < 1, 0, 0, 0, 3, 0, -2, 3, 0, -3, 0, 0, 0, 0, 0, 0, 0, 
     0, 16, 0, 3, 0, -4, 6, 0, -10, 0, -4, 0, 4, 3, 0, 
    -14, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 16, 0, 0, 0, 0, 
    -32, 0, 0, 0, 16, 0, -16, 0, 1, 0, -2, 3, 0, -7, 0, 
     -4, 0, 12, 3, 0, -18, 0, 7, 0, -2, 0, -12, 0, -2, 
      1, 0, -11, 0, 11, 0, -1>
   
      
  texture{pigment{Orange}
         
 }
    rotate <27 260 0>
}
}