蔕の形状を定義します。
//**********************************************************************************
#local P_calyx = pigment { color rgbt < 0.811, 0.811, 0.589, 0.2 > }
#local Calyx_org =
difference {
union {
#local Ei=4; #local Si=0; #while( Si < Ei )
cylinder { -4*y,4*y,1 scale <1.4,1,1.2> translate 1.5*x rotate 360*Si/Ei*y }
#local Si=Si+1; #end
}
cylinder { -2*y y 1.2 }
}
#local Calyx_wrk = sphere { 0,8 clipped_by { plane { y,0 } } translate 8*y }
#local Calyx_seg_A = object { Calyx_wrk clipped_by { object { Calyx_org } } }
#local Calyx_seg_B =
difference { cone { 0.1*y 1.15, 0.9*y 0.8 }
cone { 0*y 1.15-0.05, 0.8*y 0.8-0.05 } }
#local Calyx_seg =
union {
object { Calyx_seg_A }
object { Calyx_seg_B }
}
//**********************************************************************************