グモウスキーとミラの写像の式を少し変えた式の写像を点で描画するマクロです。
//**********************************************************************************
#macro Mira(P,M,A,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+A*Y; #local G=M*X+2*(1-M)*X*X/(1+X*X); #local Y=G-Xn;
#local N=N+1; #end
#end
//**********************************************************************************
繰り返し回数Nが、101回から定数Pで指定した5000回まで、点での描画を繰り返します。