Back to Gallery
  • Remix
  • Share
  • New Entry
on 25 Oct 2021
  • 10
  • 42
  • 1
  • 0
  • 234
k=.1;
[x,y,z]=sphere(500);
f=@(n)(x.^2+z.^2<n^2).*(y<0);
a=f(.3);
b=f(.2);
r=min(1.1,max(1,1+(abs(z)>k)/20-k*a+2*b));
surf(r.*x,r.*y,r.*z,min(3,max(0,(z<-k)+2*(z>k)-2*a+5*b)))
colormap([0 0 0;1 1 1;1 0 0;1 1 0])
shading interp
axis equal off
camlight
Remix Tree