P = (-4, -1)
v = (-3, 4)
α = 1.0471975511965976 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
D: {{cos(α), -sin(α)}, {sin(α), cos(α)}}
w: v - D * v
Q = (4, 0)
R = (-3, 2)
Q': D * Q + w
R': D * R + w
Vieleck1, q, t, p = Polygon(R, P, Q)
P': D * P + w
Vieleck2, q', p', t' = Polygon(P', R', Q')