茎の形状を定義します。
//**********************************************************************************
#local Tr=30; #local Lw=2;
#local Stem_org =
union {
torus { Tr,Lw
clipped_by { plane { z, 0 } rotate ( 0)*y }
clipped_by { plane { -z, 0 } rotate (60)*y }
translate -Tr*x rotate -90*x }
}
#local Tm = texture { pigment { color rgb < 1, 0, 1 > } normal { bumps 0.8 scale 0.8 } }
#local Tx1=(1-cos(radians(-60))-(Tr+Lw))/2; #local Ty1=(Tr+Lw)*sin(radians(-60))/2;
#local Lr=14; #local Sy=1/3;
#local Stem_seg =
union {
sphere { 0, Lr scale <1,Sy,1> texture { Tm } translate Lr*Sy*y }
cone { (Lr*Sy-0.8)*y Lr+1, -3.1*y Lw }
object { Stem_org }
object { Stem_org rotate 120*y translate
}
//**********************************************************************************
