ヘタの形状

　ピーマンのヘタの形状を定義します。
　//**********************************************************************************
　　#local Calyx_base =
　　union {
　　 #local Ei=4; #local Si=0; #while(Si translate 1.5*x rotate 360*Si/Ei*y }
　　 #local Si=Si+1; #end
　　}
　　#local Calyx_wrk = sphere { 0,9 clipped_by { plane { y,0 } } translate 9*y }
　　#local Calyx_org = object { Calyx_wrk clipped_by { object { Calyx_base } } }
　　#local Calyx_seg =
　　union {
　　 object { Calyx_org }
　　 disc { -0.35*y, y, 1.8 }
　　 torus { 1.6 0.1 translate -0.35*y }
　　}
　//**********************************************************************************