Point S moves the height of the segments.
Point C moves the width of the segments.
Point P moves the angle of the segments.

A = (3, 2)
B = (4, 2)
f = Line(A, B)
C = Point(f)
D = Point(f)
O = (3.986516831639164, 9.500936054063619)
i = Line(O, f)
S = (2.254730500953877, 3.18910073980129)
h_1 = Line(S, f)
c = Circle(D, Segment[B, C])
E = Intersect(c, f, 1)
F = Intersect(c, f, 2)
d = Circle(F, Segment[B, C])
G = Intersect(d, f, 1)
H = Intersect(d, f, 2)
e = Circle(H, Segment[F, H])
I = Intersect(e, f, 2)
g = Circle(I, Segment[H, I])
J = Intersect(g, f, 2)
h = Circle(J, Segment[I, J])
K = Intersect(h, f, 2)
k = Circle(K, Segment[J, K])
L = Intersect(k, f, 2)
p = Circle(L, Segment[K, L])
M = Intersect(p, f, 2)
q = Circle(M, Segment[L, M])
N = Intersect(q, f, 2)
P = Point(i)
j = Line(M, P)
l = Line(N, P)
m = Line(L, P)
n = Line(K, P)
r = Line(J, P)
s = Line(I, P)
t = Line(H, P)
a = Line(F, P)
b = Line(G, P)
Q = Intersect(h_1, l)
R = Intersect(h_1, j)
T = Intersect(h_1, m)
U = Intersect(h_1, n)
V = Intersect(r, h_1)
W = Intersect(h_1, s)
Z = Intersect(h_1, t)
A_1 = Intersect(a, h_1)
B_1 = Intersect(h_1, b)
f_1 = Segment(N, Q)
g_1 = Segment(M, R)
i_1 = Segment(L, T)
j_1 = Segment(K, U)
k_1 = Segment(J, V)
l_1 = Segment(I, W)
m_1 = Segment(H, Z)
n_1 = Segment(F, A_1)
p_1 = Segment(G, B_1)
q_1 = Line(P, E)
C_1 = Intersect(h_1, q_1)
r_1 = Segment(E, C_1)
s_1 = Segment(W, V)
D_1 = Midpoint(W, V)
t_1 = OrthogonalLine(D_1, i)
a_1 = Line(M, Q)
E_1 = Intersect(a_1, i)
b_1 = Line(E_1, B_1)