α

ABC

A'B'C'

A = Point(xAxis)
B = Intersect(xAxis, yAxis)
α = 0.8726646259971648 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
A' = Rotate(A, α, B)
β = Angle(A, B, A')
s = Line(B, A')
C = (4, 1)
C' = Mirror(C, s)
D = (4.8, 4.28)
E = (3.28, 7.82)
F = (5.58, 7.58)
Vieleck1, f, d, e = Polygon(D, E, F)
D' = Mirror(D, s)
E' = Mirror(E, s)
F' = Mirror(F, s)
Vieleck1', f', d', e' = Polygon(D', E', F')
b = Segment(C', C)