Kitaoka's snakes

on 11 Oct 2021

%A rendering of Ayoshi Kitaoka's snakes (http://www.ritsumei.ac.jp/~akitaoka/index-e.html). Needs to be viewed

%close up and large!

n=280;

b=16/pi;

w=linspace(0,9*pi,n);

x=b*w.*cos(w);

y=b*w.*sin(w);

c=repmat([0 0 .8;0 0 0;1 1 0;1 1 1],70,1);

a=[-400 -100 200];

f=[-250 50];

[A,B]=meshgrid(a,a');

[C,D]=meshgrid(f,f');

t=[A(:);C(:)];

p=[B(:);D(:)];

for k=1:13

scatter(flip(x+t(k)),flip(y+p(k)),flip(25*w+8),c,'f');

hold on

end

axis off