- /
-
H
on 11 Oct 2021
- 7
- 57
- 5
- 0
- 254
figure('Color','k')
axis equal off
rotate(0,0,0,1)
rotate(0,0,180,1)
function rotate(x1,y1,t,d)
s=.5^.5;
x2=x1+cosd(t)*(d);
y2=y1+sind(t)*(d/s);
if d>0.02
line([x1 x2],[y1 y2],'LineWi',4*d^.5,'Color',[d^.5,d^.5,1-d]);
rotate(x2,y2,t-90,d*s);
rotate(x2,y2,t+90,d*s);
end
end