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