花の形状

　花の形状を定義します。
　//**********************************************************************************
　　#local Torus_org =
　　object {
　　 torus { 4,1 sturm rotate -90*x }
　　 clipped_by { plane { x, 0 } rotate 0*z }
　　 clipped_by { plane { x, 0 } rotate 90*z }
　　}
　　#local Petal_org =
　　difference {
　　 sphere { 0, 8 }
　　 sphere { 0, 16 translate < 6, 6, 0 > }
　　 texture { T_petal }
　　}
　　#declare Petal_seg =
　　union {
　　 #local Ei=5; #local Si=0; #while(Si,1.4,< 0, -8, 0 >,1.2 texture { T_stamen } }
　　 cone { < 0, -2, 0 >,2,< 0, -8, 0 >,1 texture { T_stamen } }
　　 sphere { 0, 3.4 clipped_by { plane { y,0 } }
　　 texture { T_petal } scale < 1, 0.5, 1 > translate (-8+3.4/2-3.4/4)*y }
　　 object { Calyx_seg texture { T_twig } translate (-8-0.94)*y }
　　 sphere { 0, 1.4 texture { T_twig } scale < 1, 0.5, 1 > translate (-8+1.4/2-1.4/4-1.2)*y }
　　 object { Torus_org texture { T_twig } translate < 4, -8, 0 > }
　　translate < -4, 8+4, 0 > }
　//**********************************************************************************