Dragon Curve / Nuage
27652 points
Script par actualisation du curseur n:
ActualiserConstruction()
Si(a<0.5,SoitValeur(X,0.5*x(A)-0.5*y(A)),SoitValeur(X,-0.5*x(A)-0.5*y(A)+1))
Si(a<0.5,SoitValeur(Y,0.5*x(A)+0.5*y(A)),SoitValeur(Y,0.5*x(A)-0.5*y(A)))
SoitValeur(A,(X,Y))
SoitValeur(lp,Ajouter(lp,A))