A = (-2.933333333333333, -0.7333333333333333)
B = (-0.03333333333333333, 4.733333333333333)
C = (9.766666666666666, 0.3333333333333333)
P, c, a, b = Polygon(A, B, C)
g = 0 (slider from 0 to 180, step 1)
f = OrthogonalLine(B, b)
F = Intersect(f, b)
h = Segment(B, F)
D = Midpoint(B, C)
A' = Rotate(A, g π / 180, D)
B' = Rotate(B, g π / 180, D)
C' = Rotate(C, g π / 180, D)
P', c', a', b' = Polygon(A', B', C')