がくの形状

　がくの形状を定義します。
　//**********************************************************************************
　　#local Calyx_org =
　　union {
　　 #local Ei=5; #local Si=0; #while(Si translate 2.3*x rotate 360*Si/Ei*y }
　　 #local Si=Si+1; #end
　　}
　　#local Calyx_wrk = sphere { 0,8 clipped_by { plane { y,0 } } translate 8*y }
　　#local Calyx_seg = object { Calyx_wrk clipped_by { object { Calyx_org } } scale 0.66 }
　//**********************************************************************************