- /
-
Pokéball
on 25 Oct 2021
- 6
- 165
- 2
- 0
- 280
t=meshgrid(-pi:.002:pi);
p=t'/2;
k=.1;
x=cos(t).*cos(p);
y=sin(t).*cos(p);
z=sin(p);
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;
camlight;