$\scalebox{2} {%n}$

$\scalebox{2} {%n}$

$\scalebox{2} {%n}$

$\scalebox{2} {%n}$

$\scalebox{2} {%n}$

$\scalebox{2} {%n}$

$\scalebox{2} {%n}$

$\scalebox{2} {%n}$

$\scalebox{2} {%n}$

$\scalebox{2} {%n}$

$\scalebox{2} {%n}$

$\scalebox{2} {%n}$

$\scalebox{2} {%n}$

$\scalebox{2} {%n}$

$\scalebox{2} {%n}$

$\scalebox{2} {%n}$

$\scalebox{2} {%n}$

$\scalebox{2} {%n}$

$\scalebox{2} {%n}$

$\scalebox{2} {%n}$

$\scalebox{2} {%n}$

$\scalebox{2} {%n}$

$\scalebox{2} {%n}$

$\scalebox{2} {%n}$

$\scalebox{2} {%n}$

$\scalebox{2} {%n}$

$\alpha$

1

1

ratioofnotes: 2^(1 / 24)
alpha: acosd(1 / ratioofnotes)
O = Intersect(xAxis, yAxis)
A_0 = Point(xAxis)
C = Point(xAxis)
B' = Rotate(A_0, alpha, O)
α = Angle(A_0, O, B')
f = Ray(O, B')
g = OrthogonalLine(A_0, xAxis)
h = Ray(O, A_0)
B_0 = Intersect(g, f)
i = OrthogonalLine(B_0, f)
A_1 = Intersect(i, h)
j = OrthogonalLine(A_1, h)
B_1 = Intersect(j, f)
k = OrthogonalLine(B_1, f)
A_2 = Intersect(k, h)
l = OrthogonalLine(A_2, h)
B_2 = Intersect(l, f)
m = OrthogonalLine(B_2, f)
A_3 = Intersect(m, h)
n = OrthogonalLine(A_3, h)
B_3 = Intersect(n, f)
p = OrthogonalLine(B_3, f)
A_4 = Intersect(p, h)
q = OrthogonalLine(A_4, h)
B_4 = Intersect(q, f)
r = OrthogonalLine(B_4, f)
A_5 = Intersect(r, h)
s = OrthogonalLine(A_5, h)
B_5 = Intersect(s, f)
t = OrthogonalLine(B_5, f)
A_6 = Intersect(t, h)
a = OrthogonalLine(A_6, h)
B_6 = Intersect(a, f)
b = OrthogonalLine(B_6, f)
A_7 = Intersect(b, h)
c = OrthogonalLine(A_7, h)
B_7 = Intersect(c, f)
d = OrthogonalLine(B_7, f)
A_8 = Intersect(d, h)
e = OrthogonalLine(A_8, h)
B_8 = Intersect(e, f)
f_1 = OrthogonalLine(B_8, f)
A_9 = Intersect(f_1, h)
g_1 = OrthogonalLine(A_9, h)
B_9 = Intersect(g_1, f)
h_1 = OrthogonalLine(B_9, f)
A_{10} = Intersect(h_1, h)
i_1 = OrthogonalLine(A_{10}, h)
B_{10} = Intersect(i_1, f)
j_1 = OrthogonalLine(B_{10}, f)
A_{11} = Intersect(j_1, h)
k_1 = OrthogonalLine(A_{11}, h)
B_{11} = Intersect(k_1, f)
l_1 = OrthogonalLine(B_{11}, f)
m_1 = Segment(A_0, B_0)
n_1 = Segment(B_0, A_1)
p_1 = Segment(A_1, B_1)
q_1 = Segment(B_1, A_2)
r_1 = Segment(A_2, B_2)
s_1 = Segment(B_2, A_3)
t_1 = Segment(A_3, B_3)
a_1 = Segment(B_3, A_4)
b_1 = Segment(A_4, B_4)
c_1 = Segment(B_4, A_5)
d_1 = Segment(A_5, B_5)
e_1 = Segment(B_5, A_6)
f_2 = Segment(A_6, B_6)
g_2 = Segment(B_6, A_7)
h_2 = Segment(A_7, B_7)
i_2 = Segment(B_7, A_8)
j_2 = Segment(A_8, B_8)
k_2 = Segment(B_8, A_9)
l_2 = Segment(A_9, B_9)
m_2 = Segment(B_9, A_{10})
n_2 = Segment(A_{10}, B_{10})
p_2 = Segment(B_{10}, A_{11})
q_2 = Segment(A_{11}, B_{11})
r_2 = Segment(B_{11}, C)
s_2 = OrthogonalLine(B_{11}, f)
A_{12} = Intersect(s_2, h)
t_2 = Segment(B_{11}, A_{12})
A = Point(f)
a_2 = OrthogonalLine(O, h)
b_2 = OrthogonalLine(A_0, h)
c_2 = OrthogonalLine(A_{12}, h)
B = Point(a_2)
D = Point(a_2)
d_2 = OrthogonalLine(B, a_2)
E = Intersect(b_2, d_2)
F = Intersect(c_2, d_2)
e_2 = OrthogonalLine(D, a_2)
G = Intersect(b_2, e_2)
H = Intersect(c_2, e_2)
f_3 = Segment(D, B)
g_3 = Segment(G, E)
h_3 = Segment(H, F)
i_3 = Segment(B, F)
j_3 = OrthogonalLine(A_{12}, h)
I = Intersect(j_3, f)
k_3 = Segment(I, A_{12})
l_3 = OrthogonalLine(A_0, f)
J = Intersect(l_3, f)
m_3 = OrthogonalLine(J, h)
K = Intersect(m_3, h)
n_3 = OrthogonalLine(K, f)
L = Intersect(n_3, f)
p_3 = OrthogonalLine(L, h)
M = Intersect(p_3, h)
q_3 = OrthogonalLine(M, f)
N = Intersect(q_3, f)
r_3 = OrthogonalLine(N, h)
P = Intersect(r_3, h)
s_3 = OrthogonalLine(P, f)
Q = Intersect(s_3, f)
t_3 = OrthogonalLine(Q, h)
R = Intersect(t_3, h)
a_3 = OrthogonalLine(R, f)
S = Intersect(a_3, f)
b_3 = OrthogonalLine(S, h)
T = Intersect(b_3, h)
c_3 = OrthogonalLine(T, f)
U = Intersect(c_3, f)
d_3 = OrthogonalLine(U, h)
V = Intersect(d_3, h)
e_3 = OrthogonalLine(V, f)
W = Intersect(e_3, f)
f_4 = OrthogonalLine(W, h)
Z = Intersect(f_4, h)
g_4 = OrthogonalLine(Z, f)
C_1 = Intersect(g_4, f)
h_4 = OrthogonalLine(C_1, h)
D_1 = Intersect(h_4, h)
i_4 = OrthogonalLine(D_1, f)
E_1 = Intersect(i_4, f)
j_4 = OrthogonalLine(E_1, h)
F_1 = Intersect(j_4, h)
k_4 = OrthogonalLine(F_1, f)
G_1 = Intersect(k_4, f)
l_4 = OrthogonalLine(G_1, h)
H_1 = Intersect(l_4, h)
m_4 = OrthogonalLine(H_1, f)