Show diameter

radius = 3.4 (slider from 3 to 10, step 0.1)
A = (7.545454545454545, 2.0254545454545467)
c = Circle(A, radius)
B = Point(c)
a = Line(B, A)
C = Intersect(c, a, 2)
b = Segment(B, C)
D = Point(c)
ChordlengthBD = Segment(B, D)
E = Point(c)
e = false
F = Point(c)
G = Point(c)
ChordlengthGF = Segment(G, F)
g = OrthogonalLine(A, ChordlengthGF)
h = OrthogonalLine(A, ChordlengthBD)
H = Intersect(g, ChordlengthGF)
I = Intersect(h, ChordlengthBD)
i = Segment(A, I)
j = Segment(A, H)
Curve(x) = NaN

Tool: SquareTool
Tool2[ <Number>, <Point> ]
Input: side, A
Output: poly1

B = Point(Circle[A, side])
a = Segment(A, B)
c = Circle(A, side)
b = OrthogonalLine(A, a)
C = Intersect(c, b, 2)
d = Circle(C, side)
e = OrthogonalLine(C, b)
D = Intersect(d, e, 1)
poly1, a_1, b_1, d_1, c_1 = Polygon(A, B, D, C)