Flower7.inc

//(c) Robert J Becraft, All Rights Reserved.
#declare S1=seed(383);
#declare Flower7=union{ // white lacy flower
  sphere{<0,0,0> .00351 scale <1,.25,1> texture{pigment{color Orange}}}
  sphere{<0,0,0> .00351 scale <1,.5,1> translate<0,-.005,0> 
        texture{pigment{color Khaki}}}
  cone{<0,0,0> .0051 <0,-.018,0> .0035 texture{pigment{color Khaki}}}
  sphere{<0,-.018,0> .0035 texture{pigment{color Khaki}}}

  #declare Count=1;
  #while (Count<360)
     #declare Y1=rand(S1)*-.0025;
     #declare ZS=rand(S1)*.75+.5;
     #declare XR=rand(S1)*-25-20; 
     #declare CO=int(rand(S1)*6)+1; 
     cylinder{<0,0,0><0,.0001,0> .005 translate<0,Y1,.005>
         scale <.1,1,ZS> rotate<XR,Count,0> 
         #switch (CO)
           #case (1) texture{pigment{color LemonChiffon}}#break
           #case (2) texture{pigment{color LemonChiffon1}}#break
           #case (3) texture{pigment{color LemonChiffon2}}#break
           #case (4) texture{pigment{color LemonChiffon3}}#break
           #case (5) texture{pigment{color LemonChiffon4}}#break
           #case (6) texture{pigment{color LemonChiffon}} #break 
         #end 
        } 
      #declare Count=Count+rand(S1)*1;
  #end
}