// Entry code: ukalsc
// Name      : Chassaing
// Frame rate: 15
// ===========================================
// Persistence Of Vision raytracer version 3.6
// Title:         Flower
// Author:        Denis Chassaing <denis.chassaing@cassaneus.fr>
// Created:       04/jan/2008
// Last Modified: 17/jan/2008 
// scene for POVRay Short Code Contest
//           Round 5
//           The animation round! 
// ===========================================
// readable version

#default { pigment { rgb<1,1,.5> } finish { brilliance 3 reflection.3 phong 1} }

light_source{2,1}                              //Lighting 

#declare a=21;                                 //number of arms
#declare X=0;                                  //Loop counter
union { sphere { 0,.5 }                        //The middle sphere

  #while(X<2*pi)
    #declare k=cos(a*X);
    union { difference { box { <-1,-1,-1><1,1,1> }
                         box { <-.9,-.9,-.9><.9,.9,.9> pigment { rgb 0 } }
                         sphere { 0,1.2 } 
                       }                       // end of difference
            sphere {0,1 pigment { rgb<2,clock*2,0> } finish { ambient.5+k diffuse.3 } }
    scale.04
    translate <sqrt(1-cos(clock*2*pi+a*X))*cos(clock*pi+X),sqrt(1-cos(a*X))*sin(clock*pi+X),k> rotate k*45*z}
    #declare X=X+.002;                         //Increment counter
  #end                                         //End loop

rotate 30*x translate <0,-.2,3.6>} 

//
// Frame rate = 15
//
// File : flower.ini
// 
// Input_File_Name=flower.pov
// Output_File_Type=N
// Width=400
// Height=300
// Quality=9
// Antialias=on
// Antialias_Threshold=0.01
// Initial_Frame = 0
// Final_Frame = 99
// Initial_Clock = 0
// Final_Clock = 1 
// +FS
//
//