Flower9.inc

// (c) Robert J Becraft.  All Rights Reserved.
#declare S1=seed(48);
#declare Flower9=union{
sphere{<0,0,0> .005 scale <1,.35,1> translate<0,.002,0> 
     texture{pigment{color Orange1}}}
sphere{<0,0,0> .0045 scale <1,.36,1> translate<0,.0025,0> 
     texture{pigment{color Brown}}}
sphere{<0,0,0> .005 scale <1,.5,1> translate<0,-.005,0> 
     texture{pigment{color DarkGreen}}}
cone{<0,0,0> .005 <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+.5;
#declare XS=rand(S1)*.25+.25; 
#declare ZR=rand(S1)*70-35;
#declare XR=rand(S1)*-90+40;
#declare CO=int(rand(S1)*6)+1;
object{Petal9 
normal {wrinkles .0000050} 
translate<0,Y1,-.01>
rotate<0,0,ZR>
scale <1,1,ZS> rotate<XR,Count,0> 
#switch (CO)
#case (1) texture{pigment{color LightBlue}} #break
#case (2) texture{pigment{color LightBlue}}#break
#case (3) texture{pigment{color LightBlue1}}#break
#case (4) texture{pigment{color LightBlue2}}#break
#case (5) texture{pigment{color LightBlue3}}#break
#case (6) texture{pigment{color LightBlue4}}#break 
#end 
} 
#declare Count=Count+rand(S1)*45+60;
#end
}