P = (6, 1)
α = 0.8726646259971648 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
MatrizAxial: {{cos(2.0 * α), sin(2.0 * α)}, {sin(2.0 * α), -cos(2.0 * α)}}
MatrizGiro: {{cos(α), -sin(α)}, {sin(α), cos(α)}}
O = (5, 4)
Paxial: O + MatrizAxial * (P - O)
Pgiro: O + MatrizGiro * (P - O)
r: y = y(O) + tan(α) * (x - x(O))
c = CircleArc(O, P, Pgiro)
lista1: {Polygon[O, P, Pgiro]}
a = Segment(P, Paxial)