Hey guys,

With TheMachine02 we made a contest about who could write the fastest 3D cube, me vs GLib The rules are simple :

• XY rotation
• The cube must be made out of 8 dots that are always visible
• Each dot appears on-screen as a 2*2 square
• No ASM code, only pure Axe
• 6 MHz only

My program reaches 56 FPS (when not moving, and 54 FPS when moving) while respecting all these conditions. I'm pretty proud



And here's the source :

:.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
:
:L₃→°CosLUT
:
:L₃+512→°CosX+2→°CosY+2→°SinX+2→°SinY+2→°CXCY+2→°CXSY+2→°SXCY+2→°SXSY
:
:‾1
:For(256)
:Select(+1,cos(→r₁)→{r₁*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→r₂}r*CosY+(SinY*{r₂+4}r)//128→{°Back}r
:SXSY*{r₂}r+(CosX*{r₂+2}r)-(SXCY*{r₂+4}r)//128→{°Back+2}r
:CXSY*{r₂}r+(SinX*{r₂+2}r)+(CXCY*{r₂+4}r)//128+192→{°Back+4}r
:
:Rect({°Back}r*64//{°Back+4}r+48,{°Back+2}r*64//{°Back+4}r+32,2,)
:r₂
: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

Generated by the BBify'r (http://clrhome.org/bbify/)

If you want to try, please do

Looks very fast indeed.

Thanks guys

@XiiR3CR34T10N : I only use very basic 3D here (simple usually means fast). All you have to know is the rotation matrices (I multiplied the X one by the Y one, you can find all three X, Y and Z on the internet, even on Wikipedia by searching "rotation matrix"), how to multiply a 3D point by a matrix and how to project a 3D point on a 2D screen.
For this latter, it's very simple : divide the 3D X and Y coordinates by the Z one to get the 2D coordinates. Make sure to multiply the 3D X/Y coordinates by a zoom factor to lower visual distortion. Also, remember that (0,0) must be the center of the screen, so just add 48 and 32 to the 2D X and Y coordinate resectively.

Of course, the source code is here to help you

Thanks guys

@XiiR3CR34T10N : I only use very basic 3D here (simple usually means fast). All you have to know is the rotation matrices (I multiplied the X one by the Y one, you can find all three X, Y and Z on the internet, even on Wikipedia by searching "rotation matrix"), how to multiply a 3D point by a matrix and how to project a 3D point on a 2D screen.
For this latter, it's very simple : divide the 3D X and Y coordinates by the Z one to get the 2D coordinates. Make sure to multiply the 3D X/Y coordinates by a zoom factor to lower visual distortion. Also, remember that (0,0) must be the center of the screen, so just add 48 and 32 to the 2D X and Y coordinate resectively.

Of course, the source code is here to help you

Wow, thanks actually makes so much more sense now!

The amount of things I have learned from Omnimaga is truly amazing.

matref will always beat me  as I have to programm thing as functions, but I am still very close to him :

55 fps when moving
57 when not

source :  (a lot more small)

.TE
2->^^oGCamera

prgmGCORE

Data(40^^r,~40^^r,40^^r)->^^oVertices
Data(40^^r,40^^r,40^^r
Data(~40^^r,~40^^r,40^^r
Data(~40^^r,40^^r,40^^r
Data(40^^r,~40^^r,~40^^r
Data(40^^r,40^^r,~40^^r
Data(~40^^r,~40^^r,~40^^r
Data(~40^^r,40^^r,~40^^r

While 1
GInit()

^^oVertices-6

For(8)
GSpac2Scr({+6->r5}^^r,{r5+2}^^r,{r5+4}^^r
Rect(,{^^oGVertex+2}^^r,2,
r5
End

GGetkey()

DispGraphClrDraw
EndIf getKey(15)
and a little screen :

I went to 58-55 FPS no code though, I'm not home atm, and the screenie looks the same anyway.

... What... 

What What What. Stahp

Lol

No, this is really confusing even though I get it, if that makes sense...