A = (-2, -2)[br]B = (2, -2)[br]f = Segment(A, B)[br]square = Polygon(A, B, 4)[br]E = Midpoint(h)[br]F = Midpoint(g)[br]G = Midpoint(j)[br]H = Midpoint(i)[br]c = CircularArc(C, H, E)[br]d = CircularArc(A, F, G)[br]l1 = {0, π / 2, π, 3π / 2}[br]l2 = Rotate({c, d}, RandomElement(l1))[br]# hide all the previous stuff manually :)[br][br]size = Sequence(k, k, -24, 24, 4)[br][br]l3 = Zip(Zip(Translate(Rotate({c, d}, RandomElement(l1)), (a, b)), a, size), b, size)[br][br]speed = 0.5[br]n = Slider(0, 1, 0.1, speed, 200, false, true, false, false)[br]SetVisibleInView(n, 1, false)[br][br]ShowGrid(false)[br]ShowAxes(false)[br]CenterView((0, 0))[br]SetBackgroundColor("BLACK")

A = (-2, -2)[br]B = (2, -2)[br]C = (2, 2)[br]D = (-2, 2)[br][br]E = Midpoint(Segment(A, B))[br]F = Midpoint(Segment(B, C))[br]G = Midpoint(Segment(C, D))[br]H = Midpoint(Segment(D, A))[br]c = CircularArc(C, G, F)[br]d = CircularArc(A, E, H)[br]l1 = {0, π / 2, π, 3π / 2}[br]l2 = Rotate({c, d}, RandomElement(l1))[br]# hide all the previous stuff manually :)[br][br]size = Sequence(k, k, -24, 24, 4)[br][br]l3 = Zip(Zip(Translate(Rotate({c, d}, RandomElement(l1)), (a, b)), a, size), b, size)[br][br]speed = 0.5[br]n = Slider(0, 1, 0.1, speed, 200, false, true, false, false)[br]SetVisibleInView(n, 1, false)[br][br]ShowGrid(false)[br]ShowAxes(false)[br]CenterView((0, 0))[br]SetBackgroundColor("BLACK")