幼虫の描画マクロ

　グモウスキーとミラの写像の式を少し変えた式による描画マクロです。
　//**********************************************************************************
　　#macro Mira(P,M,A,X,Y)
　　 #local G=M*X+2*(1-M)*X*X/(1+X*X);
　　 #local N=0; #while( N < P+1 )
　　　#if( N > 100 ) sphere { 1/Sc } #end
　　　#local Xn=X; #local X=G+A*Y; #local G=M*X+2*(1-M)*X*X/(1+X*X);
　　　#local Y=G-Xn;
　　 #local N=N+1; #end
　　#end
　//**********************************************************************************