3D Chess Program in FreeBASIC

[Sisophon2001]

hey, I played i bit around in your code. here's small suggestion:
this code is in: FBChess.bas line 426

[syntax="QBASIC"] IF (MOUSEB AND 2) and (MOUSE_X>-1) and (MOUSE_Y>-1) THEN

IF OLDMOUSE_X > MOUSE_X THEN
u = u - 0.01 * ( OLDMOUSE_X - MOUSE_X )
ELSEIF OLDMOUSE_X < MOUSE_X THEN
u = u + 0.01 * ( MOUSE_X - OLDMOUSE_X )
END IF

IF OLDMOUSE_Y > MOUSE_Y THEN
y = y - 1.0 * ( OLDMOUSE_Y - MOUSE_Y )
ELSEIF OLDMOUSE_Y < MOUSE_Y THEN
y = y + 1.0 * ( MOUSE_Y - OLDMOUSE_Y )
END IF

IF OLDWHEEL > WHEEL THEN
w = w - 0.5*2
ELSEIF OLDWHEEL < WHEEL THEN
w = w + 0.5*2
END IF
END IF[/syntax]

a bit easier mouse rotation handling :wink:

This is a nice improvement.

I have a FreeBASIC console version that I built before putting the OpenGL front end on it, so I could put a 2D front end on it for older computers. The biggest hassle is menu’s. I would like try out the other gfx modes but some form of menu is needed for the program.

We will see.

Garvan