[Axe] Fastest 3D dotted cube I could write - 56 FPS

:.FASTCUBE
:#ExprOn
:FnOff
:Data(‾40r,40r,‾40r)→°Verts
:Data(40r,40r,‾40r)
:Data(40r,‾40r,‾40r)
:Data(‾40r,‾40r,‾40r)
:Data(‾40r,40r,40r)
:Data(40r,40r,40r)
:Data(40r,‾40r,40r)
:Data(‾40r,‾40r,40r)
:
:Buff(6)→°Back
:
:L3→°CosLUT
:
:L3+512→°CosX+2→°CosY+2→°SinX+2→°SinY+2→°CXCY+2→°CXSY+2→°SXCY+2→°SXSY
:
:‾1
:For(256)
:Select(+1,cos(→r1)→{r1*2+°CosLUT}r)
:End
:
:0→X→Y
:
:While 1
:Sin(X)→SinX
:Cos(Y)→CosY
:Sin(Y)→SinY
:*SinX//128→SXSY
:Cos(X)→CosX*CosY//128→CXCY
:‾CosX*SinY//128→CXSY
:CosY*SinX//128→SXCY
:
:°Verts-6
:For(8)
:{+6→r2}r*CosY+(SinY*{r2+4}r)//128→{°Back}r
:SXSY*{r2}r+(CosX*{r2+2}r)-(SXCY*{r2+4}r)//128→{°Back+2}r
:CXSY*{r2}r+(SinX*{r2+2}r)+(CXCY*{r2+4}r)//128+192→{°Back+4}r
:
:Rect({°Back}r*64//{°Back+4}r+48,{°Back+2}r*64//{°Back+4}r+32,2,)
:r2
:End
:
:DispGraphClrDraw
:getKey(3)-getKey(2)*4+Y→Y
:getKey(4)-getKey(1)*4+X→X
:EndIf getKey(15)
:Return
:
:Lbl Sin
:-64
:Lbl Cos
:{^256*2+°CosLUT}r