Marcello Morandini - bianco e nero
Setup
N = Slider( 1, 25, 1, 1, 300, false, true, false)
SetValue(N,15)
f(x) = (N+1-x)/(2N)
p(x) = (2x-1)/N - 1
r(x,y)= (x+y)*90°
Sqr = Polygon({(1,1),(-1,1),(-1,-1),(1,-1)})
Lrec = Zip(Stretch(Dilate(Sqr,1/N), xAxis, f(k)), k,1..N)
LXY = Zip(Zip(Translate(Rotate(rec,r(X,Y)),(p(X),p(Y))), rec,Lrec, Y,1..N), X,1..N)
#-------------------------------------------------
# Settings
#-------------------------------------------------
h = 2.3
xd = x(Corner(3)-Corner(1))
yd = y(Corner(3)-Corner(1))
CenterView( (-1.08,-1.22) + (h,h)/2 + (xd-yd,0)/2)
ZoomIn(yd/h,(-1.08,-1.22) + (h,h)/2)
SetBackgroundColor("Black")
ShowAxes(False)
ShowGrid(False)
SetColor(N, "White")
SetCoords(N,25,y(Corner(5))-20)
SetColor(Sqr, "White")
SetFilling(Sqr,0)
SetLineThickness(Sqr,2)
SetColor(LXY, "White")
SetFilling(LXY,1)
SetLineThickness(LXY,0)
SetConditionToShowObject(f,false)
SetConditionToShowObject(p,false)
SetConditionToShowObject(Lrec,false)
SetConditionToShowObject(LXY,true)
#-------------------------------------------------
# Manually
#-------------------------------------------------
# Sqr : Selection Allowed : off
# LXY : Selection Allowed : off
# Line Thickness 0 (doesn't work in script)