重ね描きする曲線の式を登録します。
//**********************************************************************************
#macro Line_function(Tp,Fn)
#switch(Fn)
#case( 0)
#local F=< 2*cos(Tp), 0, 2*sin(Tp) >; #break // circle
#case( 4)
#local F=< 3*pow(cos(Tp),3), 0, 2*pow(sin(Tp),3) >; #break // asteloid
#case( 5)
#local F=< 3*cos(Tp), 0, 2*sin(Tp) >; #break // ellipse
#case( 6)
#local Rr= sin(Tp/2); #local F=< 3*Rr*cos(Tp), 0, 2*Rr*sin(Tp) >; #break // leafs
#case( 7)
#local Rr= cos(2*Tp); #local F=< 3*Rr*cos(Tp), 0, 2*Rr*sin(Tp) >; #break // 4leafs
#case( 8)
#local Rr= cos(3*Tp); #local F=< 3*Rr*cos(Tp), 0, 2*Rr*sin(Tp) >; #break // 3leafs
#case( 9)
#local Rr= cos(4*Tp); #local F=< 3*Rr*cos(Tp), 0, 2*Rr*sin(Tp) >; #break // 8leafs
#end F
#end
//**********************************************************************************
