A = (-4, 5)
B = (-3, 5)
lista1, lista2, C, D = BALDOSA1(A, B)
E = (-3, 5)
F = (-4, 5)
lista3, lista4, G, H = BALDOSA1(E, F)
I = (-2, 4)
J, lista5, lista6, K = BALDOSA2(E, I)

Tool: BALDOSA 1 (command BALDOSA1)
DOS PUNTOS
Input: A, B
Output: lista2, lista1, C', D'

polígono1, a, b, c, d, C, D = Polygon(A, B, 4)
C': C
D': D
lista1: {Polygon[A, B, D]}
lista2: {Polygon[B, D, C]}

Tool: BALDOSA 2 (command BALDOSA2)
DOS PUNTOS
Input: A, B
Output: C', lista1, lista2, D'

polígono1, a, b, c, d, C, D = Polygon(A, B, 4)
lista1: {Polygon[A, B, D]}
lista2: {Polygon[B, C, D]}
D': D
C': C