Author: 藍邦偉  老師

A = (-3.6095494377913426, -3.392372620464087)
r = 10 (slider from 1 to 10, step 0.1)
φ = 1.618033988749895
B: A + r * (0, 1)
C: A + φ * r * (1, 0)
D: B + C - A
a = Segment(B, A)
b = Segment(A, C)
c = Segment(C, D)
d = Segment(D, B)
e = Circle(A, a)
E = Intersect(e, b)
f = OrthogonalLine(E, b)
F = Intersect(f, d)
h = CircleArc(E, F, A)
k = Circle(D, F)
G = Intersect(k, c)
i = OrthogonalLine(G, f)
H = Intersect(i, f)
p = CircleArc(H, G, F)
q = Circle(C, G)
I = Intersect(q, b)
j = OrthogonalLine(I, i)
J = Intersect(i, j)
s = CircleArc(J, I, G)
t_1 = Circle(I, E)
K, L = Intersect(t_1, j)
l = OrthogonalLine(K, f)
M = Intersect(l, f)
c_1 = CircleArc(K, M, I)
d_1 = Circle(M, H)
N, O = Intersect(d_1, l)
m = OrthogonalLine(N, i)
P = Intersect(i, m)
e_1 = CircleArc(N, P, M)
f_1 = Circle(P, J)
Q, R = Intersect(f_1, m)
n_1 = OrthogonalLine(R, j)
S = Intersect(n_1, j)
g_1 = CircleArc(R, S, P)
r_1 = Segment(A, E)
t = 1.5707963267948966 rad (slider from 1.5707963267948966 to 3.141592653589793, step 0.017453292519943295)
P_1: (x(E) + r_1 * cos(t), y(E) + r_1 * sin(t))
n = 0 (slider from 0 to 5, step 1)