4 ms·
This can be done in ONE line in Mathematica: Manipulate[ Graphics[{Rotate[Rectangle[{-size/2, -size/2}, {size/2, size/2}], rotation, {0, 0}]}, PlotRa
by deanmen 3y ago
This can be done in ONE line in Mathematica:
Manipulate[
Graphics[{Rotate[Rectangle[{-size/2, -size/2}, {size/2, size/2}],
rotation, {0, 0}]}, PlotRange -> {{-1, 1}, {-1, 1}}], {size, 0.1,
2, 0.1}, {rotation, 0, 2 Pi, Pi/12}]