歯車を組み合わせた形状を定義します。
//**********************************************************************************
#local Cm_x=-30; #local Cm_z=sqrt(pow(-45,2)-pow(Cm_x,2));
#local Cl_x= 35; #local Cl_z=sqrt(pow(-60,2)-pow(Cl_x,2))+Cm_z;
#local Cl_x=Cl_x+Cm_x;
#local Ca_x=-42; #local Ca_z=sqrt(pow(-45,2)-pow(Ca_x,2))+Cm_z;
#local Ca_x=Ca_x+Cm_x;
#local Gear_seg =
union {
object { Cogwheel_a translate < Ca_x,-4.0,-Ca_z > }
object { Cogwheel_l translate < Cl_x,-4.0,-Cl_z > }
object { Cogwheel_m translate < Cm_x,-2.5,-Cm_z > }
object { Cogwheel_s }
}
//**********************************************************************************