TheGameCreators - CodeBase - basic 3d object control

Return to the CodeBase listing

Category: Miscellaneous

Version: 1.0

Information

Uploaded: 6th Jan 2004 19:55

Modified: 7th Jan 2004 15:06

Author: chris allen

Summary

simple 3d model controller, which lets the user rotate, move and zoom in/out on the model

Full Description

this is the first program i have written with DarkBasic on my own. I have only had DarkBasic for a couple of days and although I'm sure almost everyone else will be able to do this it is a real acheivement for me.<br /> <br /> one thing to note: make sure you copy a 3d model into the same folder as the source code (making sure to copy the texture bitmap as well) and dont forget to change the name of the file in the source code as well.

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem 3d object controller

rem set screen display mode

set display mode 800,600,16

rem hide the mouse pointer

hide mouse

rem turn sync on and set rate to 40

sync on

sync rate 40

rem create variables for positioning and rotation of the 3d object

rem positioning

xPos = 0

yPos = 0

zPos = 0

rem rotation

xRot = 0

yRot = 0

zRot = 0

rem load the 3d model

load object "car.3ds",1

rem main loop

rem draw the co-ordinates on screen

set cursor 0,0

print "x co-ordinate - ";xPos

print "y co-ordinate - ";yPos

print "z co-ordinate - ";zPos

print " "

print "horizontal rotation angle - ";xRot; " degrees"

print "vertical rotation angle   - ";yRot; " degrees"

rem print instructions

set cursor 0,380

print "controls:"

print "left cursor  - rotate model left"

print "right cursor - rotate model right"

print "up cursor    - rotate model up"

print "down cursor  - rotate model down"

print " "

print "on the numeric keypad:"

print "4 - to move model left"

print "6 - to move model right"

print "8 - to move model up"

print "2 - to move model down"

print "+ - to zoom in"

print "- - to zoom out"

rem draw the 3d object on screen in the correct position

position object 1,xPos,yPos,zPos

rotate object 1,xRot,yRot,zRot

rem check for user input

if leftkey()=1 then yRot=wrapvalue(yRot+3)

if rightkey()=1 then yRot=wrapvalue(yRot-3)

if upkey()=1 then xRot=wrapvalue(xrot+3)

if downkey()=1 then xRot=wrapvalue(xRot-3)

if inkey$()="4" then dec xPos

if inkey$()="6" then inc xPos

if inkey$()="8" then inc yPos

if inkey$()="2" then dec yPos

if inkey$()="-" then inc zPos

if inkey$()="+" then dec zPos

rem redraw the screen

sync

rem end of main loop

loop

Download

Please login to download

Comments

No comments yet.

Author Name:	chris allen
CodeBase Entries:	1

CodeBase - basic 3d object control