- /
-
gray infinite worm 1953
on 22 Oct 2021
- 6
- 16
- 0
- 0
- 254
C = [flipud(gray); gray];
C = [C; C; C];
C = C(16:end-64,:);
N = 999;
t = 2*pi*(1:N)/N;
x = cos(t)./(1+sin(t).^8);
z = sin(t);
y = x.*z;
r = 3e3*(.5 + abs(x)).^2;
C = C(1+round((length(C)-1)*abs(x)),:);
figure('color','k')
scatter3(x,y,z,r,C,'filled')
view(9,75)
axis equal off
%set(gcf,'color','k')