- /
-
Piet 1
on 25 Oct 2021
- 11
- 15
- 1
- 0
- 280
figure('color','k')
hold;
%rng shuffle
a=rand(999,1)+.2;
s=4; %scale
for k=1:5:500
x=a(k+1);y=a(k+2);
if ((x-2)^2+(y-2)^2)^.5<3
p(s*a(k+1)+a(k),s*a(k+2),1,.4*a(k+3));
p(s*a(k+4),s*a(k+6)-a(k),0,.3*a(k+7));
end
end
%p(1,1,1,.3)
axis off
function o=p(x,y,v,l)
L='LineW';
if v==1 %vertical
plot([x,x],[y-l,y+l],L,5)
else
plot([x,x+l],[y,y],L,2)
end
%drawnow
end