グモウスキーとミラの写像を描画するためのマクロです。
//**********************************************************************************
#macro Gumowski(P,M,A,B,X,Y)
#local G=M*X+2*(1-M)*X*X/(1+X*X);
#local N=0; #while(N
100) sphere {
#local Xn=X; #local X=G+(1+A*(1-B*Y*Y))*Y;
#local G=M*X+2*(1-M)*X*X/(1+X*X); #local Y=G-Xn;
#local N=N+1; #end
#end
//**********************************************************************************
定数 Sc は、描画マクロ呼び出しの時点で指定され、パラメータとして描画マクロに渡していませんが、描画マクロ内で参照します。