How to make the camera move in it's own z-axis?

Author

Message

JoeOh

17

Years of Service

User Offline

Joined: 25th Feb 2009

Location:

Posted: 13th Nov 2012 05:32

Link

Whats the best way to move the camera in it's own z-axis independent of it's orientation? I can do it in it's own "x" axis with the "move camera right" (Matrix1 dll) command but I can't find the command or code a working function to do it right.

This is for moving over a terrain with a camera that can change it's viewing angle with the middle mouse button.

Thanks-

Home is where my souped-up computer is...

Back to top

Profile PM

Zotoaster

21

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 13th Nov 2012 06:15

Link

Have you tried the 'move camera' command? Moving along your own local z-axis is the same as moving forward, the way you're facing. I may have misunderstood the problem though.

"everyone forgets a semi-colon sometimes." - Phaelax

Back to top

Profile PM Email

MrValentine

AGK Backer

15

Years of Service

User Offline

Joined: 5th Dec 2010

Playing: FFVII

Posted: 13th Nov 2012 11:19

Link

EZ Rotate

That will fix all your rotational problems, there is a basic free version floating on the forums, so you can try that before committing if you are interested in it...

Thinking about it, I should probably look for it too sometime soon...

Back to top

Profile PM

Chris Tate

DBPro Master

17

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 13th Nov 2012 12:41 Edited at: 13th Nov 2012 12:43

Link

It seems you want to move a camera forward, that is not facing forwards.

There are a number of ways to do this; my two prefered methods are:

+ Code Snippet

ax# = Camera Angle X()
ay# = Camera Angle Y()
az# = Camera Angle Z()
direction# = 45
x# = NewXValue( Camera Position X(), direction#, speed# )
z# = NewZValue( Camera Position Z(), direction#, speed# )
Position Camera x#, Camera Position Y(), z#

+ Code Snippet

ax# = Camera Angle X()
ay# = Camera Angle Y()
az# = Camera Angle Z()
direction# = 45.0
Rotate Camera 0, direction#, 0
Move Camera speed#
Rotate Camera ax#, ay#, az#

They both do the same thing, and your camera will look in what ever direction you like, whilst moving in a set direction. Use Terrain ground height to clamp the camera's Y position.

Add some Sin/Cos math to add character bobbling; and some random math to give it mild camera shake.

Back to top

Profile PM Email Website

basjak

16

Years of Service

User Offline

Joined: 16th Apr 2010

Location: feel like signing up for mars

Posted: 13th Nov 2012 17:19

Link

it's all good, however, if you have "Matrix1Util plugin 09" then you can have these commands:

move camera right
move camera left
move camera up
move camera down

Back to top

Profile PM Email Website

JoeOh

17

Years of Service

User Offline

Joined: 25th Feb 2009

Location:

Posted: 14th Nov 2012 12:19 Edited at: 14th Nov 2012 12:47

Link

Chris, I am at a loss on how to apply your snippet to my program and have it do what I need for it to do.

Let me re-explain what I need to do.

If I click on the left mouse button, it moves the camera in it's own independent x-asis direction, as well as it's own independent z-axis direction.

I also need for the mouse wheel to zoom in and out of the camera position on the terrain. as well as using the mouse button wheel to rotate around that "focal point" on the terrain.

I thought this would be simple to do in DBPro....but I guess not-

I'm just about at wits end....I would hate to have a project die because of the camera limitations within DBPro.

here's the link to the thread that has the code I am using...

http://forum.thegamecreators.com/?m=forum_view&t=201398&b=1

Home is where my souped-up computer is...

Back to top

Profile PM

JoeOh

17

Years of Service

User Offline

Joined: 25th Feb 2009

Location:

Posted: 14th Nov 2012 14:13 Edited at: 14th Nov 2012 14:17

Link

I seemed to have found a work-around.....I made a "dummy" object and had the camera track that object position. As I rotated the terrain view, I rotated the object in kind so I was able to achieve what I needed.

Whew-

Here's the new code for anyone who cares

Just a few more tweaks and I'll have my ideal camera controls for my project-

set display mode desktop width(), desktop height(), 32
set window off 
autocam off
backdrop on 
color backdrop rgb(90,90,255)
set ambient light 5
set camera range .1, 5000

load image "terrain_c_map.bmp", 1

Dim TransitConnector(25000) as TransitConnector

type TransitConnector
XPos as integer
YPos as integer
ZPos as integer
ConnectorID as integer
ConnectorType as integer
ConnectorExist as integer
AttachPoint1 as integer
AttachPoint2 as integer
AttachPoint3 as integer
AttachPoint4 as integer
endtype

Dim TransitLink(25000) as TransitLink

type TransitLink
LinkID as integer
ConnectorAttachA as integer
ConnectorAttachB as integer
LinkTransitType as integer
LinkExist as integer
AXPos as integer
AYPos as integer
AZPos as integer
BXPos as integer
BYPos as integer
BZPos as integer
endtype

global XAng as float
global LowestTerrainSpot as integer
global TerrainHeightAverage as float
global YAng as float
global CameraDist as float
global mx as float
global my as float
global xpos as float
global ypos as float
global zpos as float
global mmx as float
global mmy as float
global mmz as float
global mmzr as float
mmzr = .025
global smmx as float
global smmy as float
global rmmx as float
global rmmy as float
global dXAng as float
global dYAng as float
global CullState = 1
global num_objects = 20
global lmb
global CameraTickRate = 0
global tag_state = 0
global tempmousex as float
global tempmousey as float
global tempmousez as float
global xposdiff as float
global yposdiff as float
global zposdiff as float
global OriginalZPos
global tmx as float
global tmy as float
global num_objects=50
dXAng = 0
global camposx as float
global camposy as float
global camposz as float

TransitConnector(1).ConnectorID = 5

make object terrain 1
set terrain heightmap 1, "terrain_h_map.bmp"
` split value by 16 * 16
`set terrain split 1, 4
` detail map tiling
set terrain tiling 1, 2
` light - xdir, ydir, zdir, red, green, blue, intensity
set terrain light 1, 1, -0.25, 0, 1, 1, 0.78, 0.5
set terrain scale 1, 1, .5, 1
` base and detail texture
set terrain texture 1, 1, 3
` finally build the terrain
build terrain 1

position object 1, 0, 0, 0

make object sphere 2, 5, 8, 16
position object 2, 0, 0, 0
disable object zdepth 2

YAng = 90
CameraDist=-450
position camera 0, 0, 0, -50
point camera 0, 0, 0, -1
Move Camera 0, CameraDist
ControlCamera()

`----------------------------------------Begin Main Loop--------------------------------

while escapekey()=0

ControlCamera()

text 0, 0, "camera position x(0) "+ str$(camera position x(0))
text 0, 10, "XAng "+ str$(XAng)
text 0, 20, "YAng "+ str$(YAng)
text 0, 30, "xang "+ str$(xang)
text 0, 40, "yang "+ str$(yang)
text 0, 50, "tmx "+ str$(tmx)
text 0, 60, "tmy "+ str$(tmy)
text 0, 70, "  "+ str$(tmy)
text 0, 80, "cpx+tmx:  "+ str$(tmx + ((get pick vector x() + camera position x(0))))
text 0, 90, "cpy-tmy:  "+ str$((get pick vector y() + camera position y(0)) - tempmousey)
text 0, 100, "cpz-tmz: "+ str$((get pick vector z() + camera position z(0)) - tempmousez)
endwhile

`----------------------------------------End Main Loop----------------------------------

function ControlCamera()

mx=mousex()
my=mousey()
mmx = MouseMoveX()
mmy = MouseMoveY()
mmz = MouseMoveZ() * (mmzr-(CameraDist*.0001))

if MouseClick() = 1 and tag_state=0
`Take a snapshot of initial mouse cursor click location on the terrain
if  pick object(mx, my,1,1) =1
	tempmousex = (get pick vector x() + camera position x(0))
	tempmousey = (get pick vector y() + camera position y(0))
	tempmousez = (get pick vector z() + camera position z(0))
endif
tag_state=1
endif

If MouseClick() = 1 and tag_state=1
if pick object(mx,my,1,1) = 1
	tmx=tmx+(mmx)
	tmy=tmy+(mmy)
	movecameraX(2, mmx)
	movecameraY(2, -mmy) `work on this one
endif
endif

if MouseClick()=4 and shiftkey()=0 
XAng = XAng + ((mmx)*.15)
YAng = YAng + ((mmy)*.15)
endif

if MouseClick()=4 and shiftkey()=1 
XAng = XAng + ((mmx)*.0075)
YAng = YAng + ((mmy)*.0075)
endif

if YAng>90 then YAng=90
if YAng<0 then YAng=0

CameraDist = CameraDist + mmz
if CameraDist>-.25 then CameraDist = -.25

if ypos<23 then ypos=23
if ypos>40 then ypos=40

if XAng<0 then XAng=360
if XAng>360 then XAng=0

position camera 0, object position x(2), object position y(2), object position z(2)
rotate camera 0, YAng, XAng, 0
move camera 0, cameradist

mmx=0
mmy=0
mmz=0
if MouseCLick() = 0 
tag_state = 0
endif

endfunction

function movecameraY(cams as integer, amount as float)
turn object left 2, XAng
move object 2, amount
turn object left 2, XAng
endfunction

function movecameraX(cams as integer, amount as float)
turn object right 2, XAng+90
move object 2, amount
turn object right 2, XAng-90
endfunction

+ Code Snippet

set display mode desktop width(), desktop height(), 32
set window off 
autocam off
backdrop on 
color backdrop rgb(90,90,255)
set ambient light 5
set camera range .1, 5000

load image "terrain_c_map.bmp", 1

Dim TransitConnector(25000) as TransitConnector

type TransitConnector
XPos as integer
YPos as integer
ZPos as integer
ConnectorID as integer
ConnectorType as integer
ConnectorExist as integer
AttachPoint1 as integer
AttachPoint2 as integer
AttachPoint3 as integer
AttachPoint4 as integer
endtype

Dim TransitLink(25000) as TransitLink

type TransitLink
LinkID as integer
ConnectorAttachA as integer
ConnectorAttachB as integer
LinkTransitType as integer
LinkExist as integer
AXPos as integer
AYPos as integer
AZPos as integer
BXPos as integer
BYPos as integer
BZPos as integer
endtype

global XAng as float
global LowestTerrainSpot as integer
global TerrainHeightAverage as float
global YAng as float
global CameraDist as float
global mx as float
global my as float
global xpos as float
global ypos as float
global zpos as float
global mmx as float
global mmy as float
global mmz as float
global mmzr as float
mmzr = .025
global smmx as float
global smmy as float
global rmmx as float
global rmmy as float
global dXAng as float
global dYAng as float
global CullState = 1
global num_objects = 20
global lmb
global CameraTickRate = 0
global tag_state = 0
global tempmousex as float
global tempmousey as float
global tempmousez as float
global xposdiff as float
global yposdiff as float
global zposdiff as float
global OriginalZPos
global tmx as float
global tmy as float
global num_objects=50
dXAng = 0
global camposx as float
global camposy as float
global camposz as float

TransitConnector(1).ConnectorID = 5

make object terrain 1
set terrain heightmap 1, "terrain_h_map.bmp"
` split value by 16 * 16
`set terrain split 1, 4
` detail map tiling
set terrain tiling 1, 2
` light - xdir, ydir, zdir, red, green, blue, intensity
set terrain light 1, 1, -0.25, 0, 1, 1, 0.78, 0.5
set terrain scale 1, 1, .5, 1
` base and detail texture
set terrain texture 1, 1, 3
` finally build the terrain
build terrain 1

position object 1, 0, 0, 0

make object sphere 2, 5, 8, 16
position object 2, 0, 0, 0
disable object zdepth 2

YAng = 90
CameraDist=-450
position camera 0, 0, 0, -50
point camera 0, 0, 0, -1
Move Camera 0, CameraDist
ControlCamera()

`----------------------------------------Begin Main Loop--------------------------------

while escapekey()=0

ControlCamera()

text 0, 0, "camera position x(0) "+ str$(camera position x(0))
text 0, 10, "XAng "+ str$(XAng)
text 0, 20, "YAng "+ str$(YAng)
text 0, 30, "xang "+ str$(xang)
text 0, 40, "yang "+ str$(yang)
text 0, 50, "tmx "+ str$(tmx)
text 0, 60, "tmy "+ str$(tmy)
text 0, 70, "  "+ str$(tmy)
text 0, 80, "cpx+tmx:  "+ str$(tmx + ((get pick vector x() + camera position x(0))))
text 0, 90, "cpy-tmy:  "+ str$((get pick vector y() + camera position y(0)) - tempmousey)
text 0, 100, "cpz-tmz: "+ str$((get pick vector z() + camera position z(0)) - tempmousez)
endwhile

`----------------------------------------End Main Loop----------------------------------

function ControlCamera()

mx=mousex()
my=mousey()
mmx = MouseMoveX()
mmy = MouseMoveY()
mmz = MouseMoveZ() * (mmzr-(CameraDist*.0001))



if MouseClick() = 1 and tag_state=0
`Take a snapshot of initial mouse cursor click location on the terrain
if  pick object(mx, my,1,1) =1
	tempmousex = (get pick vector x() + camera position x(0))
	tempmousey = (get pick vector y() + camera position y(0))
	tempmousez = (get pick vector z() + camera position z(0))
endif
tag_state=1
endif

If MouseClick() = 1 and tag_state=1
if pick object(mx,my,1,1) = 1
	tmx=tmx+(mmx)
	tmy=tmy+(mmy)
	movecameraX(2, mmx)
	movecameraY(2, -mmy) `work on this one
endif
endif

if MouseClick()=4 and shiftkey()=0 
XAng = XAng + ((mmx)*.15)
YAng = YAng + ((mmy)*.15)
endif

if MouseClick()=4 and shiftkey()=1 
XAng = XAng + ((mmx)*.0075)
YAng = YAng + ((mmy)*.0075)
endif

if YAng>90 then YAng=90
if YAng<0 then YAng=0

CameraDist = CameraDist + mmz
if CameraDist>-.25 then CameraDist = -.25

if ypos<23 then ypos=23
if ypos>40 then ypos=40

if XAng<0 then XAng=360
if XAng>360 then XAng=0


position camera 0, object position x(2), object position y(2), object position z(2)
rotate camera 0, YAng, XAng, 0
move camera 0, cameradist

mmx=0
mmy=0
mmz=0
if MouseCLick() = 0 
tag_state = 0
endif

endfunction

function movecameraY(cams as integer, amount as float)
turn object left 2, XAng
move object 2, amount
turn object left 2, XAng
endfunction

function movecameraX(cams as integer, amount as float)
turn object right 2, XAng+90
move object 2, amount
turn object right 2, XAng-90
endfunction

Home is where my souped-up computer is...

Back to top

Profile PM

Chris Tate

DBPro Master

17

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 14th Nov 2012 19:38 Edited at: 14th Nov 2012 19:42

Link

Ok it seems your view system is more sophisticated than I at first thought.

Using objects and limbs (even particles) to move and rotate cameras, other objects and vectors around is something I tend to do for complex movement systems. It's efficient, easy and concise. If you get into trouble, you could make use of limb and object commands, and track the object as you say; glue to limb is useful for this when dealing with pivot rotation.

You can shorten your code a little and boost performance in a few places, for example:

turn object right 2, XAng+90
move object 2, amount
turn object right 2, XAng-90

can be

Move Object Right 2, amount

Hope it goes well.

Back to top

Profile PM Email Website

JoeOh

17

Years of Service

User Offline

Joined: 25th Feb 2009

Location:

Posted: 15th Nov 2012 05:42

Link

yea chris, I likes my programs nice and sophisticated

but the code revision you stated doesn't work as I tried it.

As far as performance, I can deal with that down the road. For now this will do. Besides I only use the camera commands when the appropriate mouse buttons are used.

Home is where my souped-up computer is...

Back to top

Profile PM

Chris Tate

DBPro Master

17

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 15th Nov 2012 10:17 Edited at: 15th Nov 2012 10:39

Link

I think am completely mis-understanding what you are making; the code above is wrong! I did not spot your use of X Angle instead of Y Angle.

Quote: "turn object right 2, XAng+90
move object 2, amount
turn object right 2, XAng-90"

I'm not sure now why the object would need to rotate its Y angle based on its X angle, perhaps post up it in action some time, I want to see what you are doing.

(Note that if your program crashes or you find something strange is going on with angles; you might find that the turn object command is the cause. Use YRotate Object. I've seen turn object cause crashes with glue object active. And turn camera & object does not wrap its angle in degrees 360 degrees, it goes from -90 to 90, see for youself)

+ Code Snippet

make object box 1, 100, 2, 100
do
	turn object left 1, 0.2
	turn camera left 0.2
	set cursor 0, 0
	print Str$( Object Angle Y(1))
	print Str$( Camera Angle Y(0))
	sync
Loop

Back to top

Profile PM Email Website

JoeOh

17

Years of Service

User Offline

Joined: 25th Feb 2009

Location:

Posted: 16th Nov 2012 05:23

Link

Chris, When I get home from work (I work 7pm to 3:45am) I'll post my newest code after I try your 'YRotate Object" Approach. I'll post the DBPro file and the 2 images that comprise the color and heightmap. If this project makes some real headway, I'll buy the Blitzwerks terrain plugin so my terrain won't be clipped at the top as you will see. Yes, they both are 512x512 wide images.

I already added the use of arrow keys in the code for quick and easy (independent)X/Y movement across the map. So far I like the results.

Home is where my souped-up computer is...

Back to top

Profile PM

JoeOh

17

Years of Service

User Offline

Joined: 25th Feb 2009

Location:

Posted: 16th Nov 2012 12:28

Link

here's the newest code:

set display mode desktop width(), desktop height(), 32
set window off 
autocam off
backdrop on 
color backdrop rgb(90,90,255)
set ambient light 5
set camera range .1, 25000

load image "terrain_c_map.jpg", 1

Dim TransitConnector(25000) as TransitConnector

type TransitConnector
XPos as integer
YPos as integer
ZPos as integer
ConnectorID as integer
ConnectorType as integer
ConnectorExist as integer
AttachPoint1 as integer
AttachPoint2 as integer
AttachPoint3 as integer
AttachPoint4 as integer
endtype

Dim TransitLink(25000) as TransitLink

type TransitLink
LinkID as integer
ConnectorAttachA as integer
ConnectorAttachB as integer
LinkTransitType as integer
LinkExist as integer
AXPos as integer
AYPos as integer
AZPos as integer
BXPos as integer
BYPos as integer
BZPos as integer
endtype

global XAng as float
global LowestTerrainSpot as integer
global TerrainHeightAverage as float
global YAng as float
global CameraDist as float
global mx as float
global my as float
global xpos as float
global ypos as float
global zpos as float
global mmx as float
global mmy as float
global mmz as float
global mmzr as float
mmzr = .025
global smmx as float
global smmy as float
global rmmx as float
global rmmy as float
global dXAng as float
global dYAng as float
global CullState = 1
global num_objects = 20
global lmb
global CameraTickRate = 0
global tag_state = 0
global tempmousex as float
global tempmousey as float
global tempmousez as float
global xposdiff as float
global yposdiff as float
global zposdiff as float
global OriginalZPos
global tmx as float
global tmy as float
global rmx as float
global rmy as float
global num_objects=50
dXAng = 0
global camposx as float
global camposy as float
global camposz as float
global ooxx as integer
global ttmx as float
global ttmy as float

make object terrain 1
set terrain heightmap 1, "terrain_h_map.bmp"
` split value by 16 * 16
`set terrain split 1, 4
` detail map tiling
set terrain tiling 1, 2
` light - xdir, ydir, zdir, red, green, blue, intensity
set terrain light 1, 1, -0.25, 0, 1, 1, 0.78, 0.5
set terrain scale 1, 2, .5, 2
` base and detail texture
set terrain texture 1, 1, 3
` finally build the terrain
build terrain 1

position object 1, 0, 0, 0

make object sphere 2, 5, 8, 16
position object 2, 0, 0, 0
disable object zdepth 2
hide object 2

YAng = 90
CameraDist=-450
position camera 0, 0, 0, -50
point camera 0, 0, 0, -1
Move Camera 0, CameraDist
ControlCamera()

`----------------------------------------Begin Main Loop--------------------------------

while escapekey()=0

mx=mousex()
my=mousey()
mmx = MouseMoveX()
mmy = MouseMoveY()
mmz = MouseMoveZ() * (mmzr-(CameraDist*.0001))

ControlCamera()

PlaceRoadConnector()

text 0, 0, "fps "+ str$(screen fps())
text 0, 10, "tempmousex: " + str$(XAng)
text 0, 20, "tempmousey: " + str$(tempmousey)
text 0, 30, "tempmousez: " + str$(tempmousez)
endwhile

`----------------------------------------End Main Loop----------------------------------
function PlaceRoadConnector()

if MouseClick() = 1 and tag_state=0
ttmx = mx
ttmy = my
`Take a snapshot of initial mouse cursor click location on the terrain
if  pick object(mx, my,1,1) = 1
	tempmousex = (get pick vector x() + camera position x(0))
	tempmousey = (get pick vector y() + camera position y(0))
	tempmousez = (get pick vector z() + camera position z(0))
	make object sphere ooxx+5000, 20, 12, 6
	position object ooxx+5000, tempmousex, tempmousey+30, tempmousez
	ooxx=ooxx+1
	endif
endif
tag_State=1
endfunction

function ControlCamera()

`mx=mousex()
`my=mousey()
`mmx = MouseMoveX()
`mmy = MouseMoveY()
`mmz = MouseMoveZ() * (mmzr-(CameraDist*.0001))

if MouseClick() = 1 and tag_state=0
hide mouse
`Take a snapshot of initial mouse cursor click location on the terrain
if  pick object(mx, my,1,1) =1
	tempmousex = (get pick vector x() + camera position x(0))
	tempmousey = (get pick vector y() + camera position y(0))
	tempmousez = (get pick vector z() + camera position z(0))
endif
tag_state=1
endif

If MouseClick() = 1 and tag_state=1
hide mouse
	tmx=tmx+(mmx)
	tmy=tmy+(mmy)
	movecameraX(2, -mmx)
	movecameraY(2, mmy) `work on this one
endif

if rightkey()=1 then rmx=rmx-(1)*((CameraDist*.025))
if leftkey()=1 then rmx=rmx+(1)*((CameraDist*.025))
if upkey()=1 then rmy=rmy-(1)*((CameraDist*.025))
if downkey()=1 then rmy=rmy+((1)*(CameraDist*.025))
movecameraX(2, rmx)
movecameraY(2, rmy)
rmx=0
rmy=0

if MouseClick()=4 and shiftkey()=0 
hide mouse
XAng = XAng + ((mmx)*.15)
YAng = YAng + ((mmy)*.15)
endif

if MouseClick()=4 and shiftkey()=1
hide mouse
XAng = XAng + ((mmx)*.0075)
YAng = YAng + ((mmy)*.0075)
endif

if YAng>90 then YAng=90
if YAng<0 then YAng=0

CameraDist = CameraDist + mmz
if CameraDist>-.25 then CameraDist = -.25

if ypos<23 then ypos=23
if ypos>40 then ypos=40

if XAng<0 then XAng=360
if XAng>360 then XAng=0

position camera 0, object position x(2), object position y(2)+24.5, object position z(2)
rotate camera 0, YAng, XAng, 0
move camera 0, cameradist

mmx=0
mmy=0
mmz=0
if MouseCLick() = 0
show mouse
tag_state = 0
endif

endfunction

function movecameraY(cams as integer, amount as float)
turn object left 2, XAng
move object 2, amount
turn object left 2, XAng
endfunction

function movecameraX(cams as integer, amount as float)
turn object right 2, XAng+90
move object 2, amount
turn object right 2, XAng-90
endfunction

+ Code Snippet

set display mode desktop width(), desktop height(), 32
set window off 
autocam off
backdrop on 
color backdrop rgb(90,90,255)
set ambient light 5
set camera range .1, 25000

load image "terrain_c_map.jpg", 1

Dim TransitConnector(25000) as TransitConnector

type TransitConnector
XPos as integer
YPos as integer
ZPos as integer
ConnectorID as integer
ConnectorType as integer
ConnectorExist as integer
AttachPoint1 as integer
AttachPoint2 as integer
AttachPoint3 as integer
AttachPoint4 as integer
endtype

Dim TransitLink(25000) as TransitLink

type TransitLink
LinkID as integer
ConnectorAttachA as integer
ConnectorAttachB as integer
LinkTransitType as integer
LinkExist as integer
AXPos as integer
AYPos as integer
AZPos as integer
BXPos as integer
BYPos as integer
BZPos as integer
endtype

global XAng as float
global LowestTerrainSpot as integer
global TerrainHeightAverage as float
global YAng as float
global CameraDist as float
global mx as float
global my as float
global xpos as float
global ypos as float
global zpos as float
global mmx as float
global mmy as float
global mmz as float
global mmzr as float
mmzr = .025
global smmx as float
global smmy as float
global rmmx as float
global rmmy as float
global dXAng as float
global dYAng as float
global CullState = 1
global num_objects = 20
global lmb
global CameraTickRate = 0
global tag_state = 0
global tempmousex as float
global tempmousey as float
global tempmousez as float
global xposdiff as float
global yposdiff as float
global zposdiff as float
global OriginalZPos
global tmx as float
global tmy as float
global rmx as float
global rmy as float
global num_objects=50
dXAng = 0
global camposx as float
global camposy as float
global camposz as float
global ooxx as integer
global ttmx as float
global ttmy as float

make object terrain 1
set terrain heightmap 1, "terrain_h_map.bmp"
` split value by 16 * 16
`set terrain split 1, 4
` detail map tiling
set terrain tiling 1, 2
` light - xdir, ydir, zdir, red, green, blue, intensity
set terrain light 1, 1, -0.25, 0, 1, 1, 0.78, 0.5
set terrain scale 1, 2, .5, 2
` base and detail texture
set terrain texture 1, 1, 3
` finally build the terrain
build terrain 1

position object 1, 0, 0, 0

make object sphere 2, 5, 8, 16
position object 2, 0, 0, 0
disable object zdepth 2
hide object 2

YAng = 90
CameraDist=-450
position camera 0, 0, 0, -50
point camera 0, 0, 0, -1
Move Camera 0, CameraDist
ControlCamera()



`----------------------------------------Begin Main Loop--------------------------------

while escapekey()=0

mx=mousex()
my=mousey()
mmx = MouseMoveX()
mmy = MouseMoveY()
mmz = MouseMoveZ() * (mmzr-(CameraDist*.0001))

ControlCamera()

PlaceRoadConnector()

text 0, 0, "fps "+ str$(screen fps())
text 0, 10, "tempmousex: " + str$(XAng)
text 0, 20, "tempmousey: " + str$(tempmousey)
text 0, 30, "tempmousez: " + str$(tempmousez)
endwhile

`----------------------------------------End Main Loop----------------------------------
function PlaceRoadConnector()

if MouseClick() = 1 and tag_state=0
ttmx = mx
ttmy = my
`Take a snapshot of initial mouse cursor click location on the terrain
if  pick object(mx, my,1,1) = 1
	tempmousex = (get pick vector x() + camera position x(0))
	tempmousey = (get pick vector y() + camera position y(0))
	tempmousez = (get pick vector z() + camera position z(0))
	make object sphere ooxx+5000, 20, 12, 6
	position object ooxx+5000, tempmousex, tempmousey+30, tempmousez
	ooxx=ooxx+1
	endif
endif
tag_State=1
endfunction

function ControlCamera()

`mx=mousex()
`my=mousey()
`mmx = MouseMoveX()
`mmy = MouseMoveY()
`mmz = MouseMoveZ() * (mmzr-(CameraDist*.0001))



if MouseClick() = 1 and tag_state=0
hide mouse
`Take a snapshot of initial mouse cursor click location on the terrain
if  pick object(mx, my,1,1) =1
	tempmousex = (get pick vector x() + camera position x(0))
	tempmousey = (get pick vector y() + camera position y(0))
	tempmousez = (get pick vector z() + camera position z(0))
endif
tag_state=1
endif

If MouseClick() = 1 and tag_state=1
hide mouse
	tmx=tmx+(mmx)
	tmy=tmy+(mmy)
	movecameraX(2, -mmx)
	movecameraY(2, mmy) `work on this one
endif

if rightkey()=1 then rmx=rmx-(1)*((CameraDist*.025))
if leftkey()=1 then rmx=rmx+(1)*((CameraDist*.025))
if upkey()=1 then rmy=rmy-(1)*((CameraDist*.025))
if downkey()=1 then rmy=rmy+((1)*(CameraDist*.025))
movecameraX(2, rmx)
movecameraY(2, rmy)
rmx=0
rmy=0

if MouseClick()=4 and shiftkey()=0 
hide mouse
XAng = XAng + ((mmx)*.15)
YAng = YAng + ((mmy)*.15)
endif

if MouseClick()=4 and shiftkey()=1
hide mouse
XAng = XAng + ((mmx)*.0075)
YAng = YAng + ((mmy)*.0075)
endif

if YAng>90 then YAng=90
if YAng<0 then YAng=0

CameraDist = CameraDist + mmz
if CameraDist>-.25 then CameraDist = -.25

if ypos<23 then ypos=23
if ypos>40 then ypos=40

if XAng<0 then XAng=360
if XAng>360 then XAng=0

position camera 0, object position x(2), object position y(2)+24.5, object position z(2)
rotate camera 0, YAng, XAng, 0
move camera 0, cameradist

mmx=0
mmy=0
mmz=0
if MouseCLick() = 0
show mouse
tag_state = 0
endif

endfunction

function movecameraY(cams as integer, amount as float)
turn object left 2, XAng
move object 2, amount
turn object left 2, XAng
endfunction

function movecameraX(cams as integer, amount as float)
turn object right 2, XAng+90
move object 2, amount
turn object right 2, XAng-90
endfunction

I tried the YRotate Objcect command again with no success. I wonder, will DBPro (probably) crash if I "glue" an object to the camera dummy object, or is it if I glue ANY other object togeather with another object besides the dummy camera object?

Home is where my souped-up computer is...

Back to top

Profile PM

JoeOh

17

Years of Service

User Offline

Joined: 25th Feb 2009

Location:

Posted: 16th Nov 2012 12:29

Link

here's the color map attached...

Home is where my souped-up computer is...

Back to top

Profile PM

JoeOh

17

Years of Service

User Offline

Joined: 25th Feb 2009

Location:

Posted: 16th Nov 2012 12:30

Link

here's the heightmap attached...

Home is where my souped-up computer is...

Back to top

Profile PM

JoeOh

17

Years of Service

User Offline

Joined: 25th Feb 2009

Location:

Posted: 18th Nov 2012 11:39 Edited at: 26th Nov 2012 11:22

Link

here's what I have so far with the program. I'll start a new thread on this project if it proceeds further.

Home is where my souped-up computer is...

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / How to make the camera move in it's own z-axis?