Flower4.inc

//(c) Robert J Becraft, All Rights Reserved.
#declare S1=seed(3838);
#declare Flower4=union{ // another mum-like flower
  sphere{<0,0,0> .01 scale <1,.35,1> translate<0,.002,0> 
     texture{pigment{color Orange}}}
sphere{<0,0,0> .009 scale <1,.36,1> translate<0,.0025,0> 
     texture{pigment{color Orange1}}}
sphere{<0,0,0> .01 scale <1,.5,1> translate<0,-.005,0> 
     texture{pigment{color DarkGreen}}}
cone{<0,0,0> .01 <0,-.018,0> .0035 texture{pigment{color DarkGreen}}}
sphere{<0,-.018,0> .0035 texture{pigment{color DarkGreen}}}

#declare Count=0;
#while (Count<360)
  #declare Y1=rand(S1)*-.0045;
  #declare ZS=rand(S1)*1+2;
  #declare XS=rand(S1)*.25+.25; 
  #declare ZR=rand(S1)*90-45;
  #declare XR=rand(S1)*-90+40;
  #declare CO=int(rand(S1)*6)+1;
  cylinder{<0,0,0><0,.0001,0> .005 translate<0,Y1,.005>
     rotate<0,0,ZR>
     scale <XS,1,ZS> rotate<XR,Count,0> 
     #switch (CO)
        #case (1)   texture{pigment{color MistyRose}}    #break
        #case (2)   texture{pigment{color MistyRose1}}  #break
        #case (3)   texture{pigment{color MistyRose2}}  #break
        #case (4)   texture{pigment{color MistyRose3}}  #break
        #case (5)   texture{pigment{color MistyRose4}}  #break
        #case (6)   texture{pigment{color MistyRose}}    #break 
      #end
     } 
  #declare Count=Count+rand(S1)*2;
#end
}