Pentominós

Rectángulo

Dos cuadrados

Cuadrícula

Un cuadrado

Duplicar la Z

Elegir objetivo

A1 = (0, -3)
r = 0.35
c1 = Circle(A1, r)
B1 = Point(c1)
C1: A1 + (r, 0.0)
α1 = Angle(C1, A1, B1)
A2 = (5, -3)
c2 = Circle(A2, r)
B2 = Point(c2)
C2: A2 + (r, 0.0)
α2 = Angle(C2, A2, B2)
α = 1.5707963267948966 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
D1 = Rotate(A1 + (2.5, -(0.5)), α * Div[α1 + α, α], A1)
I1 = Rotate(A1 - (2.5, 0.5), α * Div[α1 + α, α], A1)
p2 = 1 (slider from 0 to 1, step 1)
p3 = 0 (slider from 0 to 1, step 1)
p5 = 0 (slider from 0 to 1, step 1)
p6 = 1 (slider from 0 to 1, step 1)
p10 = 1 (slider from 0 to 1, step 1)
p11 = 1 (slider from 0 to 1, step 1)
A3 = (6, -2)
C3: A3 + (r, 0.0)
c3 = Circle(A3, r)
B3 = Point(c3)
α3 = Angle(C3, A3, B3)
A4 = (14, -4)
A5 = (7, -4)
A6 = (3, -1)
A7 = (10, -4)
A8 = (10, -2)
A9 = (2, -4)
A10 = (3, -3)
A11 = (13, -2)
A12 = (12, -4)
C4: A4 + (r, 0.0)
c4 = Circle(A4, r)
B4 = Point(c4)
α4 = Angle(C4, A4, B4)
D4 = Rotate(A4 + (1.5, -(0.5)), α * Div[α4 + α, α], A4)
I4 = Rotate(A4 - (1.5, 0.5), α * Div[α4 + α, α], A4)
C5: A5 + (r, 0.0)
c5 = Circle(A5, r)
B5 = Point(c5)
α5 = Angle(C5, A5, B5)
D5 = Rotate(A5 + (1.5, -(0.5)), α * Div[α5 + α, α], A5)
I5 = Rotate(A5 - (1.5, 0.5), α * Div[α5 + α, α], A5)
C6: A6 + (r, 0.0)
c6 = Circle(A6, r)
B6 = Point(c6)
α6 = Angle(C6, A6, B6)
C7: A7 + (r, 0.0)
c7 = Circle(A7, r)
B7 = Point(c7)
α7 = Angle(C7, A7, B7)
I7 = Rotate(A7 - (1.5, 1.5), α * Div[α7 + α, α], A7)
D7 = Rotate(A7 + (1.5, -(1.5)), α * Div[α7 + α, α], A7)
C8: A8 + (r, 0.0)
c8 = Circle(A8, r)
B8 = Point(c8)
α8 = Angle(C8, A8, B8)
I8 = Rotate(A8 - (1.5, 1.5), α * Div[α8 + α, α], A8)
D8 = Rotate(A8 + (1.5, -(1.5)), α * Div[α8 + α, α], A8)
C9: A9 + (r, 0.0)
c9 = Circle(A9, r)
B9 = Point(c9)
α9 = Angle(C9, A9, B9)
I9 = Rotate(A9 - (1.5, 1.5), α * Div[α9 + α, α], A9)
D9 = Rotate(A9 + (1.5, -(1.5)), α * Div[α9 + α, α], A9)
C10: A10 + (r, 0.0)
c10 = Circle(A10, r)
B10 = Point(c10)
α10 = Angle(C10, A10, B10)
I10 = Rotate(A10 - (1.5, 1.5), α * Div[α10 + α, α], A10)
D10 = Rotate(A10 + (1.5, -(1.5)), α * Div[α10 + α, α], A10)
C11: A11 + (r, 0.0)
c11 = Circle(A11, r)
B11 = Point(c11)
α11 = Angle(C11, A11, B11)
I11 = Rotate(A11 - (1.5, 1.5), α * Div[α11 + α, α], A11)
D11 = Rotate(A11 + (1.5, -(1.5)), α * Div[α11 + α, α], A11)
C12: A12 + (r, 0.0)
c12 = Circle(A12, r)
B12 = Point(c12)
α12 = Angle(C12, A12, B12)
I12 = Rotate(A12 - (1.5, 0.5), α * Div[α12 + α, α], A12)
D12 = Rotate(A12 + (1.5, -(0.5)), α * Div[α12 + α, α], A12)
I6 = Rotate(A6 - (1.5, 0.5), α * Div[α6 + α, α], A6)
D6 = Rotate(A6 + (2.5, -(0.5)), α * Div[α6 + α, α], A6)
D2 = Rotate(A2 + (2.5, -(0.5)), α * Div[α2 + α, α], A2)
I2 = Rotate(A2 - (1.5, 0.5), α * Div[α2 + α, α], A2)
D3 = Rotate(A3 + (2.5, -(0.5)), α * Div[α3 + α, α], A3)
I3 = Rotate(A3 - (1.5, 0.5), α * Div[α3 + α, α], A3)
a = false
polígono5: {Polygon[(0.5, -1.5), (5.5, -1.5), (5.5, 3.5), (0.5, 3.5)]}
polígono6: {Polygon[(6.5, -1.5), (11.5, -1.5), (11.5, 3.5), (6.5, 3.5)]}
b4 = false
b2 = false
w = false
polígono7: {Polygon[(0.5, -3.5), (8.5, -3.5), (8.5, 4.5), (0.5, 4.5)]}
polígono8: {Polygon[(0.5, 2.5), (2.5, 2.5), (2.5, -1.5), (6.5, -1.5), (6.5, 0.5), (4.5, 0.5), (4.5, 4.5), (0.5, 4.5)]}
b3 = false
b1 = false
lista1 = Sequence(Segment[(s, -(12.0)), (s, 5.14)], s, -3.5, 20.5)
lista2 = Sequence(Line[(0.0, s), (1.0, s)], s, -9.5, 4.5)
b = false