Flower8.inc

#declare Flower8=union{ // bachelor button
sphere{<0,0,0> .00351 scale <1,.25,1> texture{pigment{color DarkBrown}}}
sphere{<0,0,0> .00351 scale <1,.5,1> translate<0,-.005,0> 
    texture{pigment{color DarkGreen}}}
cone{<0,0,0> .0045 <0,-.006,0> .003 texture{pigment{color DarkGreen}}}
sphere{<0,-.006,0> .003 texture{pigment{color DarkGreen}}}

#declare Count=1;
#while (Count<360)
#declare Y1=rand(S1)*-.0025;
#declare ZS=rand(S1)*.5+.5;
#declare XR=rand(S1)*-15-70; 
#declare CO=int(rand(S1)*6)+1; 
cylinder{<0,0,0><0,.0001,0> .005 translate<0,Y1,.02>
scale <.1,1,ZS> rotate<XR,Count,0> 
translate<0,-.008,0>
#switch (CO)
#case (1) texture{pigment{color SkyBlue}}#break
#case (2) texture{pigment{color SkyBlue1}}#break
#case (3) texture{pigment{color SkyBlue2}}#break
#case (4) texture{pigment{color SkyBlue3}}#break
#case (5) texture{pigment{color SkyBlue4}} #break
#case (6) texture{pigment{color LightSteelBlue}} #break 
#end 
} 
#declare Count=Count+rand(S1)*5;
#end
}