Show construction lines

a = 328 (slider from 0 to 500, step 0.1)
A = (35.752117904476286, -92.60115868908058)
D = Point(Circle[A, a])
a_1 = Segment(A, D)
q = OrthogonalLine(A, a_1)
b = 220 (slider from 0 to 500, step 1)
d = 215 (slider from 0 to 500, step 1)
c = 223 (slider from 0 to 500, step 1)
t = Circle(A, b)
r = Circle(D, d)
j = OrthogonalLine(D, a_1)
h: sqrt(b^(2.0) - ((d^(2.0) - b^(2.0) - (c - a)^(2.0)) / (2.0 * (c - a)))^(2.0))
w = Circle(A, h)
J, E = Intersect(w, q)
e = OrthogonalLine(E, q)
B_2, B_1 = Intersect(t, e)
b_2 = Segment(A, B_2)
g = false
i: b > d
text1: "h=" + h
C_2, C_1 = Intersect(r, e)
b_1 = Segment(A, B_1)
d_1 = Segment(D, C_1)
d_2 = Segment(D, C_2)
c_1 = Segment(B_2, C_1)
c_2 = Segment(B_1, C_1)
c_3 = Segment(B_2, C_2)
c_4 = Segment(B_1, C_2)