Patrón488

Dos puntos

b = Segment(A, B)
c = Circle(A, b * (1.0 - sqrt(2.0) / 2.0))
C = Intersect(c, b, 1.0)
d = Circle(B, b * (1.0 - sqrt(2.0) / 2.0))
D = Intersect(d, b, 1.0)
polígono1_1, e_1, f_1, g_1, h_1, i_1, j_1, k_1, l_1, E_1, F_1, G_1, H_1, I_1, J_1 = Polygon(C, D, 8.0)
polígono1, e, f, g, h, i, j, k, l, E, F, G, H, I, J = Polygon(C, D, 8.0)
n = Line(J, I)
p = Line(E, F)
q = Line(H, G)
K = Intersect(n, q)
L = Intersect(p, q)
lista1: {Polygon[A, C, J]}
lista2: {Polygon[B, E, D]}
lista3: {Polygon[I, K, H]}
lista4: {Polygon[G, L, F]}