#include "colors.inc"
#declare Co1 = rgb <1.0,0.9,0.9> ;
#declare Co2 = rgb <0.9,1.0,0.9> ;
#declare Co3 = rgb <0.9,0.9,1.0> ;
#declare Co4 = rgb <1.0,1.0,0.9> ;
#declare Co5 = rgb <0.9,1.0,1.0> ;
#declare Co6 = rgb <1.0,0.9,1.0> ; 
camera { location <0,8,4>
direction -y
up z
right 4/3*x
look_at <0,0,0>
//orthographic
}
global_settings { max_trace_level 30 ambient_light 1 }
#declare klok=int(clock);
#declare demo=texture { pigment { 
#switch (klok)
#case(0)
polytetragone 1,0
#declare num=1;
#declare sc=1;
#break
#case(1)
polytetragone 2,0
#declare num=1;
#declare sc=1;
#break
#range(2,3)
polytetragone 3,(klok-2)
#declare num=1;
#declare sc=1;
#break
#range(4,8)
polytetragone 4,(klok-4)
#declare num=1;
#declare sc=1;
#break
#range(9,20)
polytetragone 5,(klok-9)
#declare num=1;
#declare sc=1;
#break
#range(21,55)
polytetragone 6,(klok-21)
#declare num=1;
#declare sc=1;
#break
#end
#switch(num)
#case(5)
pigment_map {
[0 Co1]
[1/5-0.03 Co1/2]
[1/5-0.03 Black]
[1/5 Black]
[1/5 Co2]
[2/5-0.03 Co2/2]
[2/5-0.03 Black]
[2/5 Black]
[2/5 Co3]
[3/5-0.03 Co3/2]
[3/5-0.03 Black]
[3/5 Black]
[3/5 Co4]
[4/5-0.03 Co4/2]
[4/5-0.03 Black]
[4/5 Black]
[4/5+0.03 Black]
[4/5+0.03 Co5/2]
[1 Co5]
}
#break
#case(1)
#declare kk=mod(clock,6); 
#if (kk=0)
#declare Co=Co1;
#end
#if (kk=1)
#declare Co=Co2;
#end
#if (kk=2)
#declare Co=Co3;
#end
#if (kk=3)
#declare Co=Co4;
#end
#if (kk=4)
#declare Co=Co5;
#end
#if (kk=5)
#declare Co=Co6;
#end
pigment_map {
[0 Co]
[1-0.03 Co/2]
[1-0.03 Black]
[1 Black]      
}
#break
#case(2)
pigment_map {
[0 Co1]
[1/2-0.03 Co1/2]
[1/2-0.03 Black]
[1/2+0.03 Black]
[1/2+0.03 Co2/2]
[1 Co2]      
}
#break
#case(3)
pigment_map {
[0 Co1]
[1/3-0.03 Co1/2]
[1/3-0.03 Black]
[1/3 Black]
[1/3 Co2]
[2/3-0.03 Co2/2]
[2/3-0.03 Black]
[2/3+0.03 Black]
[2/3+0.03 Co3/2]
[1 Co3]      
}
#break
#case(6)
pigment_map {
[0 Co1]
[1/6-0.03 Co1/2]
[1/6-0.03 Black]
[1/6 Black]
[1/6 Co2]
[1/3-0.03 Co2/2]
[1/3-0.03 Black]
[1/3 Black]
[1/3 Co3]
[1/2-0.03 Co3/2]
[1/2-0.03 Black]
[1/2 Black]
[1/2 Co4]
[2/3-0.03 Co4/2]
[2/3-0.03 Black]
[2/3 Black]
[2/3 Co5]
[5/6-0.03 Co5/2]
[5/6-0.03 Black]
[5/6+0.03 Black]
[5/6+0.03 Co6/2]
[1 Co6]
}
#break
#end
// scale sc 
}
finish { ambient 1.0 }
}

plane {
y,0
texture { demo }
}
/*
box { <-1,0,1>,<-6,1,6>
 texture { demo rotate <0,45,0> scale 1/3 }
}

cylinder { < 0,0,-3>,<0,0.3,-3>,2
 texture { demo rotate <0,60,0> scale 1/2}
}
light_source { <10,20,5>, 1 }
#declare Mycolor= material{ texture { pigment { color rgb <1,0.5,0.1> }
   finish {
      ambient 0.2
      diffuse 0.7
      phong 1
      phong_size 80
      brilliance 2
   }                  
  }
 interior { ior 1.25 }
}
cylinder { <-3,0.01,-3>, <-3,1.5,-3>,0.5
   material {Mycolor}
} 
cone { <3,0.01,-3>,0.5, <3,1.5,-3>,0
   material {Mycolor}
} 
sphere { <0,0.51,0>,0.5
   material {Mycolor}
} 
box { -0.5,0.5 
   material {Mycolor}
   translate <2,0.51,2>

} 
*/