- /
-
Tracework
on 27 Nov 2023
- 19
- 19
- 0
- 3
- 285
drawframe(1);
function drawframe(f)
theta1 = interp1([0 10 48],[0 pi/8 2*pi],f);
theta2 = interp1([0 10 48],[0 pi 2*pi],f);
theta = linspace(theta1,theta2);
r = sin(2*theta) + 0.24*sin(6*theta);
plot(r.*cos(theta),r.*sin(theta),LineWidth=6, ...
Color = [0.2 0.7 0.1])
axis square
axis([-1 1 -1 1])
axis off
set(gcf,Color=[0.95 1 0.9])
end