Manzana

Tres ángulos

Cubo de Necker

Cubo A

Cubo B

Hexágono

Dos triángulos y 
cinco cuadriláteros

paso = 6 (slider from 1 to 6, step 1)
r = 8 (slider from 4 to 8, step 0.1)
A = (0, 3)
B: A + (r, 0)
C: A + (0, (-r))
D: A + (r, (-r))
F = Rotate(A + (r, 0) / 2, 29.999999999999996°, A)
E = Rotate(A + (3 * (r, 0) / 2), 29.999999999999996°, A + (r, 0))
G: F + (0, (-r))
H: E + (0, (-r))
a = Segment(A, F)
b = Segment(F, E)
c = Segment(A, C)
d = Segment(C, G)
e = Segment(F, G)
f = Segment(C, D)
g = Segment(D, H)
h = Segment(E, H)
j = Segment(G, H)
k = Segment(E, B)
l = Segment(B, A)
m = Segment(B, D)
I = Intersect(l, e)
J = Intersect(m, j)
i = Segment(A, B)
p = Segment(B, D)
n = 6 (slider from -5 to 8, step 0.1)
o = 0 (slider from 0 to 1, step 0.01)
polígono1: {Polygon[A, B, E, F]}
polígono2: {Polygon[B, D, H, E]}
s = false
polígono3: {Polygon[A, C, G, F]}
polígono4: {Polygon[C, D, H, G]}
t = 0 (slider from 0 to 1, step 0.01)
a_1 = Segment(C, G)
b_1 = Segment(G, F)
c_1 = Segment(G, H)
e_1 = Segment(B, D)
f_1 = Segment(B, A)
q = Segment(B, E)
d_1 = Segment(B, E)
g_1 = Segment(C, D)
polígono5: {Polygon[A, I, F]}
polígono6: {Polygon[I, B, E, F]}
polígono7: {Polygon[A, I, G, C]}
polígono8: {Polygon[G, J, B, I]}
polígono9: {Polygon[J, H, E, B]}
polígono10: {Polygon[J, D, H]}
polígono11: {Polygon[D, J, G, C]}
K = (-3.74, 5.78)
P: K - (0, 10)
O: K - (0, 8)
N: K - (0, 6)
M: K - (0, 4)
L: K - (0, 2)
polígono12: {Polygon[C, D, H, E, F, A]}
u = 0 (slider from 0 to 1, step 0.01)