黃金螺線
Author: 高一忠賴永皓

開始動畫

黃金螺旋線Spiral

φ = 1.618033988749895 (slider from -5 to 5, step 0.1)
A = (-4.333142089878369, 1.4494642169907481)
r = 16 (slider from 5 to 16, step 0.1)
B: A + r * (1.0, 0.0)
C: A + r / φ * (0.0, 1.0)
D: C + r * (1.0, 0.0)
a = Segment(C, A)
b = Segment(C, D)
c = Segment(B, D)
d = Segment(A, B)
F: C + r / φ * (1.0, 0.0)
E: A + r / φ * (1.0, 0.0)
e = Segment(F, E)
f = Segment(E, B)
g = CircleArc(F, C, E)
h = Circle(B, E)
G = Intersect(h, c)
H = Intersect(h, c, 1.0)
k_2 = Circle(E, B)
I = Intersect(k_2, e)
i = Segment(I, H)
p = CircleArc(I, E, H)
q = Circle(D, H)
J = Intersect(q, b)
c_1 = Circle(F, J)
d_1 = Circle(J, F)
s = Circle(H, D)
K = Intersect(s, i)
t = Circle(D, H)
L = Intersect(t, b)
j = Segment(L, K)
e_1 = Circle(F, L)
M = Intersect(e_1, e)
f_1 = CircleArc(K, H, L)
g_1 = Circle(L, F)
N = Intersect(g_1, j)
l = Segment(M, N)
h_1 = CircleArc(N, L, M)
k_1 = Circle(I, M)
O = Intersect(k_1, i)
p_1 = Circle(M, I)
P = Intersect(p_1, l)
m = Segment(P, O)
q_1 = CircleArc(P, M, O)
r_1 = Circle(K, O)
Q = Intersect(r_1, j)
s_1 = Circle(O, K)
R = Intersect(s_1, m)
a_1 = Segment(R, Q)
b_1 = Segment(Q, R)
t_1 = CircleArc(R, O, Q)
k = 0 (slider from 0 to 16, step 1)
n = true