Flower1.inc

// (c) Robert J Becraft.  All Rights Reserved.
#declare S1=seed(48); 
#declare Flower1=union{
sphere{<0,0,0> .015 scale <1,.25,1> texture{pigment{color Yellow}}}
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=1;
#while (Count<360)
  #declare Y1=rand(S1)*-.0025;
  #declare ZR=rand(S1)*90-45;
  #declare XR=rand(S1)*40-25; 
  #declare ZS=rand(S1)*2.5+4;
  cylinder{<0,0,0><0,.0001,0> .005 rotate<0,0,ZR>
    translate<0,Y1,.005> rotate<XR,0,0>
    scale <1,1,ZS> rotate<0,Count,0> texture{pigment{color Orange}}}
  #declare Count=Count+rand(S1)*25;
#end
}