Cursed 3D Cube

n = 33;

ni = (index%n)/n;

r = time;

xf =

if(index < n,100*sqrt(2)*sin(r),

if(index < 2n,100*sqrt(2)*sin(r+(pi/2)),

if(index < 3n,100*sqrt(2)*sin(r+pi),

if(index < 4n,100*sqrt(2)*sin(r+(3pi/2)),

if(index < 5n,lerp(ni,100*sqrt(2)*sin(r),100*sqrt(2)*sin(r+(pi/2))),

if(index < 6n,lerp(ni,100*sqrt(2)*sin(r+(pi/2)),100*sqrt(2)*sin(r+pi)),

if(index < 7n,lerp(ni,100*sqrt(2)*sin(r+(pi)),100*sqrt(2)*sin(r+(3pi/2))),

if(index < 8n,lerp(ni,100*sqrt(2)*sin(r+(3pi/2)),100*sqrt(2)*sin(r)),

if(index < 9n,lerp(ni,100*sqrt(2)*sin(r),100*sqrt(2)*sin(r+(pi/2))),

if(index < 10n,lerp(ni,100*sqrt(2)*sin(r+(pi/2)),100*sqrt(2)*sin(r+pi)),

if(index < 11n,lerp(ni,100*sqrt(2)*sin(r+(pi)),100*sqrt(2)*sin(r+(3pi/2))),

if(index < 12n,lerp(ni,100*sqrt(2)*sin(r+(3pi/2)),100*sqrt(2)*sin(r)),0

))))))))))));

yf =

if(index < n,(0.2cos(r)+1)*lerp(ni,-100,100),

if(index < 2n,(0.2cos(r+(pi/2))+1)*lerp(ni,-100,100),

if(index < 3n,(0.2cos(r+(pi))+1)*lerp(ni,-100,100),

if(index < 4n,(0.2cos(r+(3pi/2))+1)*lerp(ni,-100,100),

if(index < 5n,lerp(ni,(0.2cos(r)+1)*(100),(0.2cos(r+(pi/2))+1)*(100)),

if(index < 6n,lerp(ni,(0.2cos(r+(pi/2))+1)*(100),(0.2cos(r+(pi))+1)*(100)),

if(index < 7n,lerp(ni,(0.2cos(r+(pi))+1)*(100),(0.2cos(r+(3pi/2))+1)*(100)),

if(index < 8n,lerp(ni,(0.2cos(r+(3pi/2))+1)*(100),(0.2cos(r)+1)*(100)),

if(index < 9n,-lerp(ni,(0.2cos(r)+1)*(100),(0.2cos(r+(pi/2))+1)*(100)),

if(index < 10n,-lerp(ni,(0.2cos(r+(pi/2))+1)*(100),(0.2cos(r+(pi))+1)*(100)),

if(index < 11n,-lerp(ni,(0.2cos(r+(pi))+1)*(100),(0.2cos(r+(3pi/2))+1)*(100)),

if(index < 12n,-lerp(ni,(0.2cos(r+(3pi/2))+1)*(100),(0.2cos(r)+1)*(100)),0

))))))))))));

h = 0;
s = 0;
v = if(index > 395,0,1);

xr = r;
yr = r;
zr = r;

xz = xf*cos(zr)-yf*sin(zr);
yz = xf*sin(zr)+yf*cos(zr);

x' = xz*cos(yr)+sin(yr)*yz*sin(xr);
y' = yz*cos(xr);