1 m

A = (-20.322244372699608, 0.18352990763024135)
B = Point(Circle[A, 1])
f = Segment(A, B)
X_1 = 0.296705972839036 rad (slider from 0° to 90°, step 0.1°)
B' = Rotate(B, X_1, A)
X = Angle(B, A, B')
g = Segment(A, B')
h = OrthogonalLine(A, f)
c = Circle(A, 100)
C, D = Intersect(c, h)
d = CircleArc(A, B, D)
i = Line(B', f)
j = Line(B, g)
E = Intersect(i, j)
AireLosange, a, b, e, b' = Polygon(A, B, E, B')
F = Point(d)
k = Segment(A, F)
texte2 = LaTeX(AireLosange, true, true)