- /
-
Chief Feather
on 19 Oct 2022
- 3
- 8
- 0
- 0
- 259
t=linspace(0,3*pi,1000);
r=0:.2:1;
[R,T]=ndgrid(r,t);
W = rescale(((1-mod(T*10,2*pi)/pi).^5-.3).^2,.5,1);
S=R.*W;
X=S.*cos(.1*T);
Y=S.*sin(.26*T);
set(gcf,Color='k')
surface(X,Y,X*0,R,AlphaData=1-W,FaceA='i',FaceC='i',EdgeC='n');
colormap turbo
alphamap(.2:.01:1)
axis equal off