- /
-
Reverse Fractal
on 7 Oct 2021
- 40
- 62
- 1
- 0
- 222
figure('color','k')
axis equal off
rotate(0,0,90,10)
function rotate(x1,y1,t,d)
x2=x1+sind(t+90)*d;
y2=y1+cosd(t+90)*d;
if d~=0
line([x1 x2],[y1 y2],'color',[.8 .8 0],'LineWidth',2);
rotate(x2,y2,t+20,d-1);
rotate(x2,y2,t-20,d-1);
end
end