k0 = 0.1
ancho: 16.63333 * k0
alto: 12.5 * k0
A = (1.23333, 1.57)
B = (0.3, -0.13333333333333333)
C: B + (ancho, 0)
D: B + (0, alto)
a = Ray(A, C)
b = Ray(A, B)
c = Ray(A, D)
k = 1 (slider from 1 to 13, step 0.01)
E = Dilate(B, k, A)
F = Dilate(C, k, A)
G = Dilate(D, k, A)
P, g, a1, e = Polygon(A, E, G)
Q, e1, a2, f = Polygon(A, F, E)
H: (x(C), y(D))
I = Dilate(H, k, A)
R, i, a3, g1 = Polygon(A, G, I)
S, i1, a4, f1 = Polygon(A, F, I)
radio: 4.34 * k0
J: B + k0 * (8.82, 7.12)
d = Circle(J, radio)
K = Dilate(J, k, A)
h = Circle(K, radio * k)
j, l = Tangent(A, h)
L = Intersect(h, l)
M = Intersect(h, j)
m = Segment(L, A)
n = Segment(A, M)
AA: A + (0, 0)
N = Point(h)
α = 0.19039955476301776 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
A_2 = (-11.8, -1.6)
q2 = OrthogonalLine(A_2, yAxis)
B2 = Point(q2)
C2 = Dilate(B2, k, A_2)
r2 = OrthogonalLine(B2, q2)
D2 = Point(r2)
s2 = Circle(B2, D2)
t2 = Ray(A_2, D2)
E2 = Intersect(s2, r2, 2)
b3 = Ray(A_2, E2)
c3 = OrthogonalLine(C2, q2)
F2 = Intersect(t2, c3)
G2 = Intersect(b3, c3)
d3 = Segment(F2, G2)
e3 = Segment(A_2, F2)
f3 = Segment(A_2, G2)
g3 = Segment(A_2, C2)
lista1 = Sequence(Segment[K, Rotate[N, 2 * 3.141592653589793 * s / 33, K]], s, 0, 32)