- /
-
The Mathworks Mondrian
on 16 Oct 2021
- 28
- 91
- 2
- 0
- 277
a=[6 6 0 9
8 8 0 6
0 9 1 1
1 4 4 4
1 8 5 5
0 6 7 7
6 9 6 6
1 1 0 9
4 4 1 9];
%patch coords
b=[1 4 5 7
4 8 1 5
6 9 6 9
0 6 0 1
1 4 7 9];
f=reshape([.5 .1 .1
.4 .7 .7
1 .9 .1
.8 .4 .1
.8 .4 .1],5,1,3);
patch([b(:,[1 2 2 1])]',[b(:,[3 3 4 4])]',f)
hold on
for k=1:9
plot(a(k,1:2),a(k,3:4),'k-','LineWidth',8);
end
axis off