Flower3.inc
// (c) Robert J Becraft, All Rights Reserved.
#declare S1=seed(383);
#declare Flower3=union{
sphere{<0,0,0> .01 scale <1,.35,1> texture{pigment{color Orange}}}
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)*-.0025;
#declare ZS=rand(S1)*1+2;
#declare XR=rand(S1)*-45-20;
cylinder{<0,0,0><0,.0001,0> .005 translate<0,Y1,.005>
scale <.5,1,ZS> rotate<XR,Count,0> texture{pigment{color Brown}}}
#declare Count=Count+rand(S1)*5;
#end
}