- /
-
Transonic
on 7 Nov 2023
- 7
- 11
- 0
- 0
- 263
drawframe(1);
function drawframe(f)
t = linspace(0,2*pi);
ct = cos(t);
st = sin(t);
cla
k = interp1([0 48],[0 1],f);
d = 10;
ki = floor(d*k);
for n = 0:ki
k2 = k - n/d;
h = line(k2*ct + n/10,k2*st, ...
Color=0.8*[1 1 1]);
end
line(k,0, ...
Marker=".",MarkerSize=24, ...
Color="red");
axis([0 1 -0.5 0.5])
axis square
axis off
end