TransformedRegion[Polygon[RandomReal[{}, {5, 2}]], ShearingTransform[q, {1, 0}, {0, 1}]]
Polygon[{{0.0649983 + 0.452399 Tan[q], 0.452399}, {0.118165 + 0.398944 Tan[q], 0.398944}, {0.278332 + 0.498002 Tan[q], 0.498002}, {0.30195 + 0.482465 Tan[q], 0.482465}, {0.974336 + 0.788029 Tan[q], 0.788029}, {0.974395 + 0.0400877 Tan[q], 0.0400877}}, {1, 3, 4, 2, 6, 4, 5}]