りんごの形状を定義します。
//**********************************************************************************
#local Apple_obj =
union {
object { Apple_seg texture { T_apple } scale 4 }
object { Apple_calyx pigment { P_calyx } translate 2*y }
}
//**********************************************************************************