A

B

C

Les points A et B sont déplaçables

Le coté AB reste horizontale

CentreRapporteur = (19.330666642124328, 3.3568081233073546)
a = 6.9 (slider from -5 to 7, step 0.1)
f = 2.233
RotRapporteur = Point(Circle[CentreRapporteur, a])
zc1r = Segment(CentreRapporteur, RotRapporteur)
Z1R = Mirror(RotRapporteur, CentreRapporteur)
d1R = Line(Z1R, RotRapporteur)
d2R = OrthogonalLine(Z1R, d1R)
d3R = OrthogonalLine(RotRapporteur, d1R)
d4R = Rotate(d1R, atan(f / a), CentreRapporteur)
d5R = Rotate(d1R, -atan(f / a), CentreRapporteur)
Z2R = Intersect(d5R, d3R)
ang: round(random() 100) + 10
Z3R = Intersect(d4R, d2R)
B = Point(xAxis)
A = Point(xAxis)
C = Rotate(B, ang °, A)
α = Angle(B, A, C)
b = Segment(B, A)
c = Segment(C, A)
D: (ang, 0)
E = Point(xAxis)