Net of an Octaherdron
Author: Edward M. Knote

n

A_1

B_1

s = 7 (slider from 1 to 7, step 0.1)
H_2 = (-6.497640636586213, -1.2528791565629251)
I_2 = Point(Circle[H_2, s])
k_4 = Segment(H_2, I_2)
m_4 = Line(H_2, I_2)
q_4 = Circle(I_2, (3 * s / 4.5))
J_2 = Intersect(q_4, m_4, 2)
K_2 = Rotate(J_2, 30*°, I_2)
n_4 = Line(K_2, m_4)
r_4 = Segment(I_2, K_2)
t_4 = Line(H_2, r_4)
L_2 = Intersect(n_4, t_4)
a_5 = Segment(H_2, K_2)
c_5 = Segment(I_2, L_2)
M_2 = Intersect(a_5, c_5)
e_5 = Circle(M_2, (s * sqrt(3) / 2))
f_5 = OrthogonalLine(M_2, m_4)
g_5 = Rotate(f_5, 5*°, M_2)
N_2 = Intersect(e_5, g_5, 2)
O_2 = Intersect(e_5, g_5, 1)
poly20, n_5, h_5, i_5 = Polygon(H_2, I_2, N_2)
poly21, i_6, n_6, k_5 = Polygon(N_2, K_2, I_2)
poly22, o_2, i_7, k_6 = Polygon(I_2, K_2, O_2)
poly23, i_8, o_1, h_6 = Polygon(O_2, H_2, I_2)
j_5 = Segment(H_2, L_2)
l_5 = Segment(L_2, N_2)
m_5 = Segment(L_2, K_2)
p_5 = Segment(L_2, O_2)