Author: SKK
Date: 25 November 2013

α = 1.0471975511965976 rad (slider from 0 to 1.5707963267948966, step 0.017453292519943295)
A = (4, -1.585786437626905)
B = (5.414213562373095, -3)
C = (4, -4.414213562373095)
D = (2.585786437626905, -2.9999999999999996)
a = Segment(A, B)
b = Segment(B, C)
c = Segment(C, D)
d = Segment(D, A)
E = (4, -3)
e = Line(D, yAxis)
f = Line(A, yAxis)
g = Line(B, yAxis)
F = Point(e)
G = Point(f)
H = Point(g)
I = Point(e)
J = Point(f)
K = Point(g)
h = Segment(I, K)
i = Segment(K, H)
j = Segment(H, F)
k = Segment(F, I)
l = Segment(J, G)
L = (9, 0)
P: (9 - cos(α), sin(α))
m = Ray(L, P)
n = Line(L, yAxis)
N = Point(n)
p = Ray(L, N)
q = OrthogonalLine(I, m)
r = OrthogonalLine(J, m)
s = OrthogonalLine(K, m)
t = OrthogonalLine(F, m)
a_1 = OrthogonalLine(G, m)
b_1 = OrthogonalLine(H, m)
O = Intersect(q, m)
P_2 = Intersect(r, m)
Q = Intersect(s, m)
R = Intersect(t, m)
S = Intersect(a_1, m)
T = Intersect(b_1, m)
c_1 = Circle(L, O)
d_1 = Circle(L, P_2)
e_1 = Circle(L, Q)
f_1 = Circle(L, R)
g_1 = Circle(L, S)
h_1 = Circle(L, T)
U, V = Intersect(h_1, xAxis)
W, Z = Intersect(g_1, xAxis)
A_1, B_1 = Intersect(f_1, xAxis)
C_1, D_1 = Intersect(e_1, xAxis)
E_1, F_1 = Intersect(d_1, xAxis)
G_1, H_1 = Intersect(c_1, xAxis)
k_1 = CircleArc(L, V, T)
p_1 = CircleArc(L, Z, S)
q_1 = CircleArc(L, B_1, R)
r_1 = CircleArc(L, D_1, Q)
s_1 = CircleArc(L, F_1, P_2)
t_1 = CircleArc(L, H_1, O)
i_1 = Line(V, yAxis)
j_1 = Line(Z, yAxis)
l_1 = Line(B_1, yAxis)
m_1 = Line(D_1, yAxis)
n_1 = Line(H_1, yAxis)
a_2 = Line(F_1, yAxis)
b_2 = Line(A, xAxis)
c_2 = Line(B, xAxis)
d_2 = Line(C, xAxis)
I_1 = Intersect(a_2, b_2)
J_1 = Intersect(a_2, d_2)
K_1 = Intersect(j_1, b_2)
L_1 = Intersect(j_1, d_2)
M_1 = Intersect(i_1, c_2)
N_1 = Intersect(m_1, c_2)
O_1 = Intersect(n_1, c_2)
P_1 = Intersect(l_1, c_2)
e_2 = Segment(I_1, O_1)
f_2 = Segment(O_1, J_1)
g_2 = Segment(J_1, N_1)
h_2 = Segment(N_1, I_1)
i_2 = Segment(M_1, K_1)
j_2 = Segment(K_1, P_1)
k_2 = Segment(P_1, L_1)
l_2 = Segment(L_1, M_1)
m_2 = Segment(K_1, I_1)
n_2 = Segment(L_1, J_1)
p_2 = Segment(M_1, N_1)
q_2 = Segment(P_1, O_1)
A' = Rotate(A, 45*°, E)
D' = Rotate(D, 45*°, E)
C' = Rotate(C, 45*°, E)
B' = Rotate(B, 45*°, E)
r_2 = Segment(A', B')
s_2 = Segment(B', C')
t_2 = Segment(C', D')
a_3 = Segment(D', A')
Q_1 = Midpoint(P_1, N_1)
u = Vector(E, Q_1)
E' = Translate(E, u)
B'' = Translate(B', u)
A'' = Translate(A', u)
b_3 = Translate(c_2, u)
D'' = Translate(D', u)
C'' = Translate(C', u)
c_3 = Segment(A'', B'')
d_3 = Segment(B'', C'')
e_3 = Segment(C'', D'')
f_3 = Segment(D'', A'')