hansschmucker
02-14-2003, 03:07 PM
I just thought about how it should be possible to make a fast 3dgame and since I am no programmer came up with this solution (I know it's Basic, literally but you'l' get the idea):
I tried porting the system of the camera obscura and while this little testing example does actually only 2d work it could be turned into 3d quite easily. Also while right now it only draws lines, you could imagine both end of the line as vector and voila 3d-to-go. It's just an idea right now
An image can be found at
http://hansschmucker.no-ip.biz/testop.gif
And the all the sources are just this
OPENW #1,320,400,640,480,0
x1 = 160
x1 = 240
WHILE MOUSEK <> 2
x1 = MOUSEX
x2 = MOUSEY
zx1 = 160 + (160 - x1) / (240 - x2) * 90
a = SQR((160 - x1) ^ 2 + (240 - x2) ^ 2)
a = -a / 288 * 255
RGBCOLOR RGB(a,a,a)
IF MOUSEK = 1
PLOT x1,x2
DRAW 640 - zx1,-15 - a TO 640 - zx1,495 + a
ENDIF
WEND
CLOSEW #1
Just tell me if you think that the system _might_ work
I tried porting the system of the camera obscura and while this little testing example does actually only 2d work it could be turned into 3d quite easily. Also while right now it only draws lines, you could imagine both end of the line as vector and voila 3d-to-go. It's just an idea right now
An image can be found at
http://hansschmucker.no-ip.biz/testop.gif
And the all the sources are just this
OPENW #1,320,400,640,480,0
x1 = 160
x1 = 240
WHILE MOUSEK <> 2
x1 = MOUSEX
x2 = MOUSEY
zx1 = 160 + (160 - x1) / (240 - x2) * 90
a = SQR((160 - x1) ^ 2 + (240 - x2) ^ 2)
a = -a / 288 * 255
RGBCOLOR RGB(a,a,a)
IF MOUSEK = 1
PLOT x1,x2
DRAW 640 - zx1,-15 - a TO 640 - zx1,495 + a
ENDIF
WEND
CLOSEW #1
Just tell me if you think that the system _might_ work