形状を配置し描画するマクロです。
//**********************************************************************************
#macro ALG_locus(P0,Lr,Func_type)
#local Sp=-pi; #local Ep=pi; #local Ap=pi/8; #local Mv=0; #local Mh=0;
#while(Sp
#local Sp=Sp+Ap; #end
#end
//**********************************************************************************