Trasllada

Gira

CentreRapporteur = (0.03333333333333333, 3.5)
a = 6 (slider from -5 to 7, step 0.1)
f = 2 (slider from -5 to 5, step 0.1)
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)
Z3R = Intersect(d4R, d2R)
A_1 = (6.966666666666667, 2.3)
B_1 = (12.033333333333333, 2.3666666666666667)
C = (14.366666666666667, 0.6666666666666666)
A = (7.433333333333334, 3.2333333333333334)
B = (12.033333333333333, 9.2)
α = Angle(C, A, B)
c = Segment(A, B)
d = Segment(A, C)