トーラスを切り取ることにより、りんごの一部となる茎の形状を生成します。
//**********************************************************************************
#local Tr=60; #local Lw=1; #local Sr=180; #local Er=166;
#local Ox=Tr; #local Oz=0;
#local Ra1=-Sr; #local Ra2=-Er+180;
#local Apple_calyx =
union {
torus { Tr,Lw
clipped_by { plane { z, 0 } rotate Ra1*y }
clipped_by { plane { z, 0 } rotate Ra2*y } }
cone { 0, Lw, <0,0,5>, Lw*2 rotate Ra2*y
translate <-Tr*cos(radians(Ra2)),0,Tr*sin(radians(Ra2))> }
translate < Ox, 0, Oz > rotate -90*x }
//**********************************************************************************