#declare FlwrRed = 
texture{pigment{rgb<.814,0,.153>}
finish{ambient 0.2 diffuse 0.5 phong_size 1.0 specular 0.4 roughness 0.01}}

#declare LeafGrn =
texture{pigment{rgb<0,.666,0>}   
finish{ambient 0.2 diffuse 0.5 phong_size 1.0 specular 0.4 roughness 0.01}}

#declare Brwn =
texture{pigment{rgb<.4,.284615,.2>}   
finish{ambient 0.2 diffuse 0.5 phong_size 1.0 specular 0.4 roughness 0.01}}

#declare LeafPieceL1 =
prism{linear_sweep linear_spline -0.01,0.0
  22  // control points
<0.00263,-0.001155>,<0.378342,0.073072>,<0.538791,0.250242>,<0.505139,0.269532>,
<0.579814,0.358065>,<0.611997,0.510387>,<0.576477,0.504041>,<0.612281,0.61396>,
<0.639725,0.721467>,<0.594765,0.726413>,<0.586542,1.039226>,<0.530822,1.007878>,
<0.536188,1.212113>,<0.512349,1.188274>,<0.426332,1.415216>,<0.386908,1.37849>,
<0.29611,1.659771>,<0.276093,1.628185>,<0.140396,1.800253>,<0.111515,1.754053>,
<0.0,2.0>,<0.00263,-0.001155> rotate -x*90 texture{LeafGrn} rotate -10.0*y translate<0.0,-0.1,-0.3>}

#declare LeafPieceL2 =
prism{linear_sweep linear_spline -0.01,0.0 22  // control points
<0.002630,-0.001155>,<0.378342,0.073072>,<0.538791,0.250242>,<0.505139,0.269532>,
<0.579814, 0.358065>,<0.611997,0.510387>,<0.576477,0.504041>,<0.612281,0.613960>,
<0.639725, 0.721467>,<0.594765,0.726413>,<0.586542,1.039226>,<0.530822,1.007878>,
<0.536188, 1.212113>,<0.512349,1.188274>,<0.426332,1.415216>,<0.386908,1.378490>,
<0.296110, 1.659771>,<0.276093,1.628185>,<0.140396,1.800253>,<0.111515,1.754053>,
<0.000000, 2.000000>,<0.00263,-0.001155>
rotate -x*90 texture{LeafGrn} rotate -10.0*y translate<0.0,-0.1,-0.3>}

#declare Petal1 = object{object{bicubic_patch{type 1 flatness 0.0100 u_steps 3 v_steps 3,
<-0.200000,0.000000,0.000000>,<-0.100000,0.000000,0.000000>,<0.100000,0.000000,0.000000>,<0.200000,0.000000,0.000000>,
<-1.300000,1.200000,0.700000>,<-0.500000,1.000000,0.000000>,<0.500000,1.000000,0.000000>,<1.100000,1.200000,0.700000>,
<-1.300000,1.800000,0.700000>,<-0.500000,2.000000,0.000000>,<0.500000,2.000000,0.000000>,<1.100000,1.800000,0.700000>,
<-0.268090,2.470780,0.860808>,<-0.109499,2.592624,0.806396>,<0.049091,2.592624,0.806396>,<0.207682,2.470780,0.860808>}}
rotate 20.0*x}
#declare Petal2 = object{object{bicubic_patch{type 1 flatness 0.0100 u_steps 3 v_steps 3,
<-0.200000,0.000000,0.000000>,<-0.100000,0.000000,0.000000>,<0.100000,0.000000,0.000000>,<0.200000,0.000000,0.000000>,
<-1.300000,1.200000,0.700000>,<-0.500000,1.000000,0.000000>,<0.500000,1.000000,0.000000>,<1.100000,1.200000,0.700000>,
<-1.300000,1.800000,0.700000>,<-0.500000,2.000000,0.000000>,<0.500000,2.000000,0.000000>,<1.100000,1.800000,0.700000>,
<-0.268090,2.470780,0.860808>,<-0.094433,2.615991,0.742548>,<0.064158,2.615991,0.742548>,<0.207682,2.470780,0.860808>}}
rotate<20.0,0.0,-90.0>}
#declare Petal3 = object{object{bicubic_patch{type 1 flatness 0.0100 u_steps 3 v_steps 3,
<-0.200000,0.000000,0.000000>,<-0.100000,0.000000,0.000000>,<0.100000,0.000000,0.000000>,<0.200000,0.000000,0.000000>,
<-1.300000,1.200000,0.700000>,<-0.500000,1.000000,0.000000>,<0.500000,1.000000,0.000000>,<1.100000,1.200000,0.700000>,
<-1.300000,1.800000,0.700000>,<-0.500000,2.000000,0.000000>,<0.500000,2.000000,0.000000>,<1.100000,1.800000,0.700000>,
<-0.268090,2.470780,0.860808>,<-0.109499,2.552398,0.819999>,<0.049091,2.552398,0.819999>,<0.207682,2.470780,0.860808>}}
rotate<20.0,0.0,95.0>}
#declare Petal4 = object{object{bicubic_patch{type 1 flatness 0.0100 u_steps 3 v_steps 3,
<-0.200000,0.000000,0.000000>,<-0.100000,0.000000,0.000000>,<0.100000,0.000000,0.000000>,<0.200000,0.000000,0.000000>,
<-1.300000,1.200000,0.700000>,<-0.500000,1.000000,0.000000>,<0.500000,1.000000,0.000000>,<1.100000,1.200000,0.700000>,
<-1.300000,1.800000,0.700000>,<-0.500000,2.000000,0.000000>,<0.500000,2.000000,0.000000>,<1.100000,1.800000,0.700000>,
<-0.268090,2.470780,0.860808>,<-0.109499,2.538795,0.792793>,<0.049091,2.538795,0.792793>,<0.207682,2.470780,0.860808>}}
rotate<20.0,0.0,-160.0>}
#declare Petal5 = object{object{bicubic_patch{type 1 flatness 0.0100 u_steps 3 v_steps 3,
<-0.200000,0.000000,0.000000>,<-0.100000,0.000000,0.000000>,<0.100000,0.000000,0.000000>,<0.200000,0.000000,0.000000>,
<-1.147366,0.809139,0.896332>,<-0.449134,0.859575,0.000000>,<0.449134,0.859575,0.000000>,<1.008479,0.809139,0.896332>,
<-1.147366,1.484763,0.700000>,<-0.449134,1.889342,0.000000>,<0.449134,1.889342,0.000000>,<1.008479,1.484763,0.700000>,
<-0.268090,2.197748,1.272171>,<-0.091373,2.369963,1.163346>,<0.067218,2.369963,1.163346>,<0.207682,2.197748,1.272171>}}
rotate<20.0,0.0,-30.0>}
#declare Petal6 = object{object{bicubic_patch{type 1 flatness 0.0100 u_steps 3 v_steps 3,
<-0.200000,0.000000,0.000000>,<-0.100000,0.000000,0.000000>,<0.100000,0.000000,0.000000>,<0.200000,0.000000,0.000000>,
<-1.147366,0.809139,0.896332>,<-0.449134,0.859575,0.000000>,<0.449134,0.859575,0.000000>,<1.008479,0.809139,0.896332>,
<-1.147366,1.484763,0.700000>,<-0.449134,1.889342,0.000000>,<0.449134,1.889342,0.000000>,<1.008479,1.484763,0.700000>,
<-0.268090,2.197748,1.272171>,<-0.109499,2.347381,1.190552>,<0.049091,2.347381,1.190552>,<0.207682,2.197748,1.272171>}}
rotate<18.0,-0.0,-120.0>}

#declare Petal7 = object{object{bicubic_patch{type 1 flatness 0.0100 u_steps 3 v_steps 3,
<-0.200000,0.000000,0.000000>,<-0.100000,0.000000,0.000000>,<0.100000,0.000000,0.000000>,<0.200000,0.000000,0.000000>,
<-1.147366,0.809139,0.896332>,<-0.449134,0.859575,0.000000>,<0.449134,0.859575,0.000000>,<1.008479,0.809139,0.896332>,
<-1.147366,1.484763,0.700000>,<-0.449134,1.889342,0.000000>,<0.449134,1.889342,0.000000>,<1.008479,1.484763,0.700000>,
<-0.268090,2.197748,1.272171>,<-0.109499,2.320175,1.217759>,<0.049091,2.320175,1.217759>,<0.207682,2.197748,1.272171>}}
rotate<21.0,-0.0,145.0>}
#declare Petal8 = object{object{bicubic_patch{type 1 flatness 0.0100 u_steps 3 v_steps 3,
<-0.200000,0.000000,0.000000>,<-0.100000,0.000000,0.000000>,<0.100000,0.000000,0.000000>,<0.200000,0.000000,0.000000>,
<-1.147366,0.809139,0.896332>,<-0.449134,0.859575,0.000000>,<0.449134,0.859575,0.000000>,<1.008479,0.809139,0.896332>,
<-1.147366,1.484763,0.700000>,<-0.449134,1.889342,0.000000>,<0.449134,1.889342,0.000000>,<1.008479,1.484763,0.700000>,
<-0.268090,2.197748,1.272171>,<-0.109499,2.279366,1.204156>,<0.049091,2.279366,1.204156>,<0.207682,2.197748,1.272171>}}
rotate<19.0,-0.0,50.0>}
#declare Petal9 = object{object{bicubic_patch{type 1 flatness 0.0100 u_steps 3 v_steps 3,
<-0.200000,0.000000,0.000000>,<-0.100000,0.000000,0.000000>,<0.100000,0.000000,0.000000>,<0.200000,0.000000,0.000000>,
<-0.949887,0.805208,0.896332>,<-0.350451,0.854162,0.000000>,<0.420718,0.854162,0.000000>,<0.900919,0.805208,0.896332>,
<-0.949887,1.286608,0.834732>,<-0.449134,1.889342,0.000000>,<0.449134,1.889342,0.000000>,<0.900919,1.286608,0.834732>,
<-0.268090,1.748643,1.440585>,<-0.109499,1.871070,1.413379>,<0.049091,1.871070,1.413379>,<0.207682,1.748643,1.440585>}}
rotate<31.0,0.0,-0.0>}
#declare Petal10 = object{object{bicubic_patch{type 1 flatness 0.0100 u_steps 3 v_steps 3,
<-0.200000,0.000000,0.000000>,<-0.100000,0.000000,0.000000>,<0.100000,0.000000,0.000000>,<0.200000,0.000000,0.000000>,
<-0.949887,0.805208,0.896332>,<-0.350451,0.854162,0.000000>,<0.420718,0.854162,0.000000>,<0.900919,0.805208,0.896332>,
<-0.949887,1.286608,0.834732>,<-0.449134,1.889342,0.000000>,<0.449134,1.889342,0.000000>,<0.900919,1.286608,0.834732>,
<-0.268090,1.748643,1.440585>,<-0.109499,1.871070,1.386173>,<0.049091,1.871070,1.386173>,<0.207682,1.748643,1.440585>}}
rotate<28.0,0.0,-80.0>}
#declare Petal11 = object{object{bicubic_patch{type 1 flatness 0.0100 u_steps 3 v_steps 3,
<-0.200000,0.000000,0.000000>,<-0.100000,0.000000,0.000000>,<0.100000,0.000000,0.000000>,<0.200000,0.000000,0.000000>,
<-0.949887,0.805208,0.896332>,<-0.350451,0.854162,0.000000>,<0.420718,0.854162,0.000000>,<0.900919,0.805208,0.896332>,
<-0.949887,1.286608,0.834732>,<-0.449134,1.889342,0.000000>,<0.449134,1.889342,0.000000>,<0.900919,1.286608,0.834732>,
<-0.268090,1.748643,1.440585>,<-0.109499,1.843864,1.413379>,<0.049091,1.843864,1.413379>,<0.207682,1.748643,1.440585>}}
rotate<30.0,0.0,165.0>}
#declare Petal12 = object{object{bicubic_patch{type 1 flatness 0.0100 u_steps 3 v_steps 3,
<-0.200000,0.000000,0.000000>,<-0.100000,0.000000,0.000000>,<0.100000,0.000000,0.000000>,<0.200000,0.000000,0.000000>,
<-0.949887,0.805208,0.896332>,<-0.350451,0.854162,0.000000>,<0.420718,0.854162,0.000000>,<0.900919,0.805208,0.896332>,
<-0.949887,1.286608,0.834732>,<-0.449134,1.889342,0.000000>,<0.449134,1.889342,0.000000>,<0.900919,1.286608,0.834732>,
<-0.268090,1.748643,1.440585>,<-0.109499,1.884673,1.372570>,<0.049091,1.884673,1.372570>,<0.207682,1.748643,1.440585>}}
rotate<32.0,0.0,85.0>}

#declare RoseFlower = union{
object{Petal1}  object{Petal2}
object{Petal3}  object{Petal4}
object{Petal5}  object{Petal6}
object{Petal7}  object{Petal8}
object{Petal9}  object{Petal10}
object{Petal11} object{Petal12}
texture{FlwrRed}translate<0,.05,-0.05>}

#declare Leaf1 = union{
object{LeafPieceL1 }
object{LeafPieceL1 texture{LeafGrn}
scale<-1.0,1.0,1.0>rotate -0.0*y}
texture{LeafGrn}rotate 20.0*x translate  -1.55*z}
#declare Leaf2 =
union{
object{LeafPieceL2 }
object{LeafPieceL2 scale<-1.0,1.0,1.0>rotate -0.0*y translate  -0.0*x}
texture{LeafGrn}rotate<20.0,-0.0,-140.0>translate  -2.9*z}

#declare Stem = union{
object{bicubic_patch{type 1 flatness 0.0100 u_steps 3 v_steps 3,
<-1.374118,0.657851,-7.135900>,<-1.417299,0.567654,-7.135900>,
<-1.285009,0.504321,-7.165644>,<-1.241828,0.594517,-7.165644>,
<-0.835290,0.399890,-6.009803>,<-0.878471,0.309693,-6.009803>,
<-0.744819,0.245708,-6.030773>,<-0.701638,0.335905,-6.030773>,
<-0.385446,0.184530,-4.845990>,<-0.428627,0.094334,-4.845990>,
<-0.293999,0.029881,-4.856842>,<-0.250818,0.120078,-4.856842>,
<-0.226204,0.108962,-3.639050>,<-0.269650,0.018224,-3.639050>,
<-0.134844,-0.046313,-3.644476>,<-0.091928,0.043342,-3.644476>}}
object{bicubic_patch{type 1 flatness 0.0100 u_steps 3 v_steps 3,
<-1.241828,0.594517,-7.165644>,<-1.198647,0.684714,-7.165644>,
<-1.330937,0.748047,-7.135900>,<-1.374118,0.657851,-7.135900>,
<-0.701638,0.335905,-6.030773>,<-0.658457,0.426101,-6.030773>,
<-0.792109,0.490086,-6.009803>,<-0.835290,0.399890,-6.009803>,
<-0.250818,0.120078,-4.856842>,<-0.207637,0.210274,-4.856842>,
<-0.342265,0.274727,-4.845990>,<-0.385446,0.184530,-4.845990>,
<-0.091928,0.043342,-3.644476>,<-0.048482,0.134080,-3.644476>,
<-0.183288,0.198617,-3.639050>,<-0.226204,0.108962,-3.639050>}}
object{bicubic_patch{type 1 flatness 0.0100 u_steps 3 v_steps 3,
<-0.226204, 0.108962,-3.639050>,<-0.269650, 0.018224,-3.639050>,
<-0.134844,-0.046313,-3.644476>,<-0.091928, 0.043342,-3.644476>,
<-0.067492, 0.032311,-2.432110>,<-0.110673,-0.057885,-2.432110>,
< 0.024311,-0.122508,-2.432110>,< 0.067492,-0.032311,-2.432110>,
<-0.067492, 0.032311,-1.216055>,<-0.110673,-0.057885,-1.216055>,
< 0.024311,-0.122508,-1.216055>,< 0.067492,-0.032311,-1.216055>,
<-0.067492, 0.032311, 0.000000>,<-0.110673,-0.057885, 0.000000>,
< 0.024311,-0.122508, 0.000000>,< 0.067492,-0.032311, 0.000000>}}
object{bicubic_patch{type 1 flatness 0.0100 u_steps 3 v_steps 3,
<-0.091928, 0.043342,-3.644476>,<-0.048482, 0.134080,-3.644476>,
<-0.183288, 0.198617,-3.639050>,<-0.226204, 0.108962,-3.639050>,
< 0.067492,-0.032311,-2.432110>,< 0.110673, 0.057885,-2.432110>,
<-0.024311, 0.122508,-2.432110>,<-0.067492, 0.032311,-2.432110>,
< 0.067492,-0.032311,-1.216055>,< 0.110673, 0.057885,-1.216055>,
<-0.024311, 0.122508,-1.216055>,<-0.067492, 0.032311,-1.216055>,
< 0.067492,-0.032311, 0.000000>,< 0.110673, 0.057885, 0.000000>,
<-0.024311, 0.122508, 0.000000>,<-0.067492, 0.032311, 0.000000>}}
texture{LeafGrn}}

#declare SteamLeaf = union{object{bicubic_patch{type 1 flatness 0.0100 u_steps 2 v_steps 2,
<-0.501341,-0.501341,0.257086>,<-0.060246,-0.086065,0.000000>,<0.000000,-0.668455,0.257086>,<0.000000,-0.668455,0.257086>,
<-0.086065,-0.060246,0.000000>,<-0.134915,-0.134915,0.000000>,<-0.057821,-0.134915,0.000000>,<0.000000,-0.134915,0.000000>,
<-0.668455,0.000000,0.257086>,<-0.134915,-0.057821,0.000000>,<-0.057821,-0.057821,0.000000>,<0.000000,-0.057821,0.000000>,
<-0.668455,0.000000,0.257086>,<-0.134915,0.000000,0.000000>,<-0.057821,0.000000,0.000000>,<0.000000,0.000000,0.000000>}}
object{bicubic_patch{type 1 flatness 0.0100 u_steps 2 v_steps 2,
<-0.668455,0.000000,0.257086>,<-0.134915,0.000000,0.000000>,<-0.057821,0.000000,0.000000>,<0.000000,0.000000,0.000000>,
<-0.668455,0.000000,0.257086>,<-0.134915,0.057821,0.000000>,<-0.057821,0.057821,0.000000>,<0.000000,0.057821,0.000000>,
<-0.086065,0.060246,0.000000>,<-0.134915,0.134915,0.000000>,<-0.057821,0.134915,0.000000>,<0.000000,0.134915,0.000000>,
<-0.501341,0.501341,0.257086>,<-0.060246,0.086065,0.000000>,<0.000000,0.668455,0.257086>,<0.000000,0.668455,0.257086>}}
object{bicubic_patch{type 1 flatness 0.0100 u_steps 2 v_steps 2,
<0.000000,-0.668455,0.257086>,<0.000000,-0.668455,0.257086>,<0.060246,-0.086065,0.000000>,<0.501341,-0.501341,0.257086>,
<0.000000,-0.134915,0.000000>,<0.057821,-0.134915,0.000000>,<0.134915,-0.134915,0.000000>,<0.086065,-0.060246,0.000000>,
<0.000000,-0.057821,0.000000>,<0.057821,-0.057821,0.000000>,<0.134915,-0.057821,0.000000>,<0.668455,0.000000,0.257086>,
<0.000000,0.000000,0.000000>,<0.057821,0.000000,0.000000>,<0.134915,0.000000,0.000000>,<0.668455,0.000000,0.257086>}}
object{bicubic_patch{type 1 flatness 0.0100 u_steps 2 v_steps 2,
<0.000000,0.000000,0.000000>,<0.057821,0.000000,0.000000>,<0.134915,0.000000,0.000000>,<0.668455,0.000000,0.257086>,
<0.000000,0.057821,0.000000>,<0.057821,0.057821,0.000000>,<0.134915,0.057821,0.000000>,<0.668455,0.000000,0.257086>,
<0.000000,0.134915,0.000000>,<0.057821,0.134915,0.000000>,<0.134915,0.134915,0.000000>,<0.086065,0.060246,0.000000>,
<0.000000,0.668455,0.257086>,<0.000000,0.668455,0.257086>,<0.060246,0.086065,0.000000>,<0.501341,0.501341,0.257086>}}
texture{LeafGrn}translate -0.06*z}

#declare Rose =
union{// Rose
object{RoseFlower}
object{Leaf1}
object{Leaf2}
object{Stem}
object{SteamLeaf}
cone{<0,0,0>,0.1,<0,0,1>,0.0 texture{Brwn}
scale<1.0,1.0,0.2>rotate<0.0,70.0,60.0>translate<0.0,0.05,-0.6>}
cone{<0,0,0>,0.1,<0,0,1>,0.0 texture{Brwn}
scale<1.0,1.0,0.2> rotate<40.0,-40.0,45.0>translate -1.55*z}
cone{<0,0,0>,0.1,<0,0,1>,0.0 texture{Brwn}
scale<1.0,1.0,0.2>rotate -70.0*x translate<-0.05,0.05,-2.35>}
cone{<0,0,0>,0.1,<0,0,1>,0.0 texture{Brwn}
scale<1.0,1.0,0.2>rotate<70.0,0.0,-20.0>translate<-0.15,0.05,-3.6>}
cone{<0,0,0>,0.1,<0,0,1>,0.0 texture{Brwn}
scale<1.0,1.0,0.2>rotate<-70.0,0.0,-30.0>translate<-0.35,0.2,-4.55>}
cone{<0,0,0>,0.06,<0,0,1>,0.0 texture{Brwn}
scale<1.0,1.0,0.2>rotate<80.0,0.0,-40.0>translate<-0.6,0.25,-5.4>}
cone{<0,0,0>,0.1,<0,0,1>,0.0 texture{Brwn}
scale<1.0,1.0,0.2>rotate<80.0,0.0,-40.0>translate<-0.6,0.25,-5.4>}
cone{<0,0,0>,0.1,<0,0,1>,0.0 texture{Brwn}
scale<1.0,1.0,0.2>rotate<-60.0,0.0,-20.0>translate<-0.9,0.45,-6.2>}}

#declare  CC=0;
#while   (CC<8)
#declare  AA=0;
#while   (AA<8)
object{Rose scale 1 rotate<0,150,0>
translate<-16,-16,0>translate<5*AA,5*CC,0>}
#declare AA=AA+1; #end
#declare CC=CC+1; #end

camera{location<0,1,-25>look_at 1*y}
light_source{<0,10,-100>rgb 1}