Get slope of terrain - GameCreators Forum

Author

Message

david w

20

Years of Service

User Offline

Joined: 18th Dec 2005

Location: U.S.A. Michigan

Posted: 24th May 2012 21:27

Link

What I want to do is get the slope of the terrain.

My idea was to take two samples within a radius and then subtract the two to get the difference. Then use this value to rotate a grass plain so that it lines up with the surface of the terrain.

Does anyone have any ideas how to make this work? Thanks.

Back to top

Profile PM Website

zeroSlave

17

Years of Service

User Offline

Joined: 13th Jun 2009

Location: Springfield

Posted: 24th May 2012 22:55

Link

I don't quite remember right now, but I think Sparky's Collision has some type of raycasting to check angles of a surface. Not at my computer right now, but it might be a decent lead. Unless someone else gets to it, ill try to get something together when I get home later.

Everybody is a genius. But if you judge a fish by its ability to climb a tree, it will live its whole life believing that it is stupid.

Back to top

Profile PM Email

Brendy boy

21

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 24th May 2012 23:35

Link

there's lots of topics about that on the forum, you just need to do a little search

Here's one code snippet

Rem Project: Matrix_Align
rem by Scorpyo
Rem Created: 06/01/04 14.14.03

Rem ***** Main Source File *****
top:
rem **********  INITIALIZATION  ****************
set display mode 800,600,16
hide mouse
set global collision off
autocam off
backdrop on
sync on
cls
landsize=20000
grid=40
mtxrandomize=160
x#=10000.0
z#=10250.0
cubesize#=100.0
gosub maketextures
gosub Setupland1
gosub makewheels
gosub makecar
gosub Resetcam
do_loop:
do
if inkey$()="r" then a#=0.0
gosub Carcontrol
gosub groundalign
gosub camera_controls
gosub update_camera
gosub printdata
sync
loop
rem ***********************
groundalign:
rem Calculate wheel X+Z coordinates (4 wheels at 45° from center)
rem displacement=70 units=cube corners (must correspond to real wheel displacement)
 foot#=70
 frontra#=wrapvalue(a#+45)
 frontrx#=newxvalue(x#,frontra#,foot#) : frontrz#=newzvalue(z#,frontra#,foot#)
 frontla#=wrapvalue(a#-45)
 frontlx#=newxvalue(x#,frontla#,foot#) : frontlz#=newzvalue(z#,frontla#,foot#)
 backra#=wrapvalue(a#+135)
 backrx#=newxvalue(x#,backra#,foot#) : backrz#=newzvalue(z#,backra#,foot#)
 backla#=wrapvalue(a#+225)
 backlx#=newxvalue(x#,backla#,foot#) : backlz#=newzvalue(z#,backla#,foot#)
 rem calculate ground height at wheel points
 frontrh#=get ground height(1,frontrx#,frontrz#)
 frontlh#=get ground height(1,frontlx#,frontlz#)
 backrh#=get ground height(1,backrx#,backrz#)
 backlh#=get ground height(1,backlx#,backlz#)
 rem calculate wheel ground height differences
 rem front/back right wheel and front/back left wheel
 rem divide by 2 to get mid point on diagonal for exact tilt angle calculation
 rotrx#=(backrh#-frontrh#)/2
 rotlx#=(backlh#-frontlh#)/2
 rem  calculate car right/left side tilt X angles
 rem  based on car height from ground in units (50=half cube size)
 oarx#=atan (rotrx#/50)
 oalx#=atan (rotlx#/50)
 rem calculate difference between right side and left side X tilt angles
 diffx#=abs(oarx#-oalx#)
 rem height adjustment for vehicle + half cube size + 2
 h#=frontrh#+rotrx#+52
 rem if abs difference between the 2 X angles is above 1
 rem choose right side X angle for X rotation
 if diffx#>1
 oax#=oarx#
 position object 2,x#,h#,z#
 endif
 rem else choose left X angle
 if diffx#<=1
 oax#=oalx#
 position object 2,x#,h#,z#
 endif
 rem Z angles management
 rem get car front and car back Z tilt angles
 rotfz#=(frontrh#-frontlh#)/2
 rotbz#=(backrh#-backlh#)/2
 oafz#=atan (rotfz#/50)
 oabz#=atan (rotbz#/50)
 rem check abs difference
 diffz#=abs(oafz#-oabz#)
 if diffz#<=1
 rem routine tracing
 trace$="front_Z_angle_active"
 rem
 oaz#=oafz#
 position object 2,x#,h#-rotfz#,z#
 endif
 rem check real height of front left wheel
 lfwheelh#=backlh#-rotrx#*2
 if diffz#>1
 trace$="back_Z_angle_active"
 rem if front left wheel higher than ground height at wheel point
 rem choose back z angle rotation
 if lfwheelh#>frontlh# then oaz#=oabz#:position object 2,x#,h#-rotbz#-1,z#
 rem if front left wheel lower than ground height
 rem choose front z angle rotation
 if lfwheelh#<frontlh# then oaz#=oafz#:position object 2,x#,h#-rotfz#-1,z#
 endif
 rotate limb 2,0,oax#,0,oaz#
 return
Carcontrol:
rem ---- Control Vehicle ----
 x#=newxvalue(x#,a#,s#)
 z#=newzvalue(z#,a#,s#)
 yrotate object 2,a#
 if upkey()=1 and s#<8 then s#=s#+3
 if downkey()=1 and s#>-8 then s#=s#-3
 if leftkey()=1 then a#=wrapvalue(a#-6)
 if rightkey()=1 then a#=wrapvalue(a#+6)
 if inkey$()="ù" then s#=40
 if inkey$()="à" then s#=0
 return
rem ****** CREATE LEVEL ******
maketextures:
rem ground textures
rem create  texture
cls rgb(0,100,20)
inkcolor#=rgb(255,255,255)
line 0,0,0,250
line 1,1,1,250
line 2,2,2,250
line 0,0,250,0
line 1,1,250,1
line 2,2,250,2
line 0,0,250,250
line 0,250,250,0
rem next n
get image 2,0,0,256,256
cls rgb(0,10,200)
line 0,108,128,108
line 0,109,128,109
line 0,110,128,110
for n= 112 to 128
line 0,n,20,n
line 108,n,128,n
next n
get image 3,0,0,128,128
cls rgb(200,10,20)
get image 4,0,0,128,128
return
Setupland1:
rem Make landscape
make matrix 1,landsize,landsize,grid,grid
set matrix 1,1,0,0,1,1,1,1
prepare matrix texture 1,2,1,1
randomize matrix 1,mtxrandomize
for n=18 to 22
set matrix height 1,n,15,0
set matrix height 1,n,17,0
set matrix height 1,n,18,200
set matrix height 1,n,19,200
set matrix height 1,n,20,0
set matrix height 1,n,21,0
set matrix height 1,n,22,200
set matrix height 1,n,23,200
set matrix height 1,n,24,0
set matrix height 1,n,25,0
set matrix height 1,n,26,200
set matrix height 1,n,27,200
set matrix height 1,n,28,0
set matrix height 1,n,29,0
next n
rem ***********
rem get ground done
update matrix 1
return
makewheels:
make object cylinder 4,20
texture object 4,4
make object cylinder 5,20
texture object 5,4
make object cylinder 6,20
texture object 6,4
make object cylinder 7,20
texture object 7,4
return
makecar:
cubesize#=100.0
make object cube 2,cubesize#
position object 2,x#,cubesize#,z#
texture object 2,3
return
rem            CAMERA
camera_controls:
if inkey$()="z" then camdist=camdist+6
if inkey$()="Z" then camdist=camdist-6
if inkey$()="x" then camhgt=camhgt+6
if inkey$()="X" then camhgt=camhgt-6
if inkey$()="c" then camrot=wrapvalue(camrot+6)
if inkey$()="C" then camrot=wrapvalue(camrot-6)
if inkey$()="v" then camlen=camlen+6
if inkey$()="V" then camlen=camlen-6
if inkey$()="b" then camrot = 180
if inkey$()="B" then camrot = 0
if inkey$()="n" then camdist=80:camlen=0:camrot=180:camhgt=100:camflag=0:wait 1
if inkey$()="N" then camdist=80:camlen=0:camrot=0:camhgt=100:camflag=1:wait 1
if inkey$()=">" then gosub Resetcam
if inkey$()="m" then camdist=-1000:camhgt=500:set camera range 100,20000
if inkey$()="M" then camdist=-3000:camhgt=1000:set camera range 100,20000
return
rem camera update
update_camera:
rem Position camera to the back of the character
ca#=wrapvalue(a#+camrot)
cx#=newxvalue(x#,ca#,camdist)
cz#=newzvalue(z#,ca#,camdist)
cy#=get ground height(1,x#,z#)
position camera cx#,cy#+camhgt,cz#
rem Point camera at object
point camera x#,cy#+camhgt+camlen,z#
return
Resetcam:
set camera range 20,20000
camdist=-500
camhgt=200
camrot=0
camlen=0
return
rem       PRINT
printdata:
set cursor 0,0
set text opaque
rem debug check
print "polygons=",statistic(1)
print "Fps=",screen fps()
print "landsize=",landsize
print "grid=",grid
print "x#=",x#
print "z#=",z#
print "a#=",a#
print
print "h#=",h#-52
print
print "frontrh#=",frontrh#
print "frontlh#=",frontlh#
print "backrh#=",backrh#
print "backlh#=",backlh#
print
print "rotrx#=",rotrx#
print "rotlx#=",rotlx#
print "rotfz#=",rotfz#
print "rotbz#=",rotbz#
print
print "oarx#=",oarx#
print "oalx#=",oalx#
print "oafz#=",oafz#
print "oabz#=",oabz#
print
print "diffx#=",diffx#
print "diffz#=",diffz#
print
print "trace=",trace$
print "real_left_front_wheel_height=",lfwheelh#
return

end

+ Code Snippet

Rem Project: Matrix_Align
rem by Scorpyo
Rem Created: 06/01/04 14.14.03

Rem ***** Main Source File *****
top:
rem **********  INITIALIZATION  ****************
set display mode 800,600,16
hide mouse
set global collision off
autocam off
backdrop on
sync on
cls
landsize=20000
grid=40
mtxrandomize=160
x#=10000.0
z#=10250.0
cubesize#=100.0
gosub maketextures
gosub Setupland1
gosub makewheels
gosub makecar
gosub Resetcam
do_loop:
do
if inkey$()="r" then a#=0.0
gosub Carcontrol
gosub groundalign
gosub camera_controls
gosub update_camera
gosub printdata
sync
loop
rem ***********************
groundalign:
rem Calculate wheel X+Z coordinates (4 wheels at 45° from center)
rem displacement=70 units=cube corners (must correspond to real wheel displacement)
 foot#=70
 frontra#=wrapvalue(a#+45)
 frontrx#=newxvalue(x#,frontra#,foot#) : frontrz#=newzvalue(z#,frontra#,foot#)
 frontla#=wrapvalue(a#-45)
 frontlx#=newxvalue(x#,frontla#,foot#) : frontlz#=newzvalue(z#,frontla#,foot#)
 backra#=wrapvalue(a#+135)
 backrx#=newxvalue(x#,backra#,foot#) : backrz#=newzvalue(z#,backra#,foot#)
 backla#=wrapvalue(a#+225)
 backlx#=newxvalue(x#,backla#,foot#) : backlz#=newzvalue(z#,backla#,foot#)
 rem calculate ground height at wheel points
 frontrh#=get ground height(1,frontrx#,frontrz#)
 frontlh#=get ground height(1,frontlx#,frontlz#)
 backrh#=get ground height(1,backrx#,backrz#)
 backlh#=get ground height(1,backlx#,backlz#)
 rem calculate wheel ground height differences
 rem front/back right wheel and front/back left wheel
 rem divide by 2 to get mid point on diagonal for exact tilt angle calculation
 rotrx#=(backrh#-frontrh#)/2
 rotlx#=(backlh#-frontlh#)/2
 rem  calculate car right/left side tilt X angles
 rem  based on car height from ground in units (50=half cube size)
 oarx#=atan (rotrx#/50)
 oalx#=atan (rotlx#/50)
 rem calculate difference between right side and left side X tilt angles
 diffx#=abs(oarx#-oalx#)
 rem height adjustment for vehicle + half cube size + 2
 h#=frontrh#+rotrx#+52
 rem if abs difference between the 2 X angles is above 1
 rem choose right side X angle for X rotation
 if diffx#>1
 oax#=oarx#
 position object 2,x#,h#,z#
 endif
 rem else choose left X angle
 if diffx#<=1
 oax#=oalx#
 position object 2,x#,h#,z#
 endif
 rem Z angles management
 rem get car front and car back Z tilt angles
 rotfz#=(frontrh#-frontlh#)/2
 rotbz#=(backrh#-backlh#)/2
 oafz#=atan (rotfz#/50)
 oabz#=atan (rotbz#/50)
 rem check abs difference
 diffz#=abs(oafz#-oabz#)
 if diffz#<=1
 rem routine tracing
 trace$="front_Z_angle_active"
 rem
 oaz#=oafz#
 position object 2,x#,h#-rotfz#,z#
 endif
 rem check real height of front left wheel
 lfwheelh#=backlh#-rotrx#*2
 if diffz#>1
 trace$="back_Z_angle_active"
 rem if front left wheel higher than ground height at wheel point
 rem choose back z angle rotation
 if lfwheelh#>frontlh# then oaz#=oabz#:position object 2,x#,h#-rotbz#-1,z#
 rem if front left wheel lower than ground height
 rem choose front z angle rotation
 if lfwheelh#<frontlh# then oaz#=oafz#:position object 2,x#,h#-rotfz#-1,z#
 endif
 rotate limb 2,0,oax#,0,oaz#
 return
Carcontrol:
rem ---- Control Vehicle ----
 x#=newxvalue(x#,a#,s#)
 z#=newzvalue(z#,a#,s#)
 yrotate object 2,a#
 if upkey()=1 and s#<8 then s#=s#+3
 if downkey()=1 and s#>-8 then s#=s#-3
 if leftkey()=1 then a#=wrapvalue(a#-6)
 if rightkey()=1 then a#=wrapvalue(a#+6)
 if inkey$()="ù" then s#=40
 if inkey$()="à" then s#=0
 return
rem ****** CREATE LEVEL ******
maketextures:
rem ground textures
rem create  texture
cls rgb(0,100,20)
inkcolor#=rgb(255,255,255)
line 0,0,0,250
line 1,1,1,250
line 2,2,2,250
line 0,0,250,0
line 1,1,250,1
line 2,2,250,2
line 0,0,250,250
line 0,250,250,0
rem next n
get image 2,0,0,256,256
cls rgb(0,10,200)
line 0,108,128,108
line 0,109,128,109
line 0,110,128,110
for n= 112 to 128
line 0,n,20,n
line 108,n,128,n
next n
get image 3,0,0,128,128
cls rgb(200,10,20)
get image 4,0,0,128,128
return
Setupland1:
rem Make landscape
make matrix 1,landsize,landsize,grid,grid
set matrix 1,1,0,0,1,1,1,1
prepare matrix texture 1,2,1,1
randomize matrix 1,mtxrandomize
for n=18 to 22
set matrix height 1,n,15,0
set matrix height 1,n,17,0
set matrix height 1,n,18,200
set matrix height 1,n,19,200
set matrix height 1,n,20,0
set matrix height 1,n,21,0
set matrix height 1,n,22,200
set matrix height 1,n,23,200
set matrix height 1,n,24,0
set matrix height 1,n,25,0
set matrix height 1,n,26,200
set matrix height 1,n,27,200
set matrix height 1,n,28,0
set matrix height 1,n,29,0
next n
rem ***********
rem get ground done
update matrix 1
return
makewheels:
make object cylinder 4,20
texture object 4,4
make object cylinder 5,20
texture object 5,4
make object cylinder 6,20
texture object 6,4
make object cylinder 7,20
texture object 7,4
return
makecar:
cubesize#=100.0
make object cube 2,cubesize#
position object 2,x#,cubesize#,z#
texture object 2,3
return
rem            CAMERA
camera_controls:
if inkey$()="z" then camdist=camdist+6
if inkey$()="Z" then camdist=camdist-6
if inkey$()="x" then camhgt=camhgt+6
if inkey$()="X" then camhgt=camhgt-6
if inkey$()="c" then camrot=wrapvalue(camrot+6)
if inkey$()="C" then camrot=wrapvalue(camrot-6)
if inkey$()="v" then camlen=camlen+6
if inkey$()="V" then camlen=camlen-6
if inkey$()="b" then camrot = 180
if inkey$()="B" then camrot = 0
if inkey$()="n" then camdist=80:camlen=0:camrot=180:camhgt=100:camflag=0:wait 1
if inkey$()="N" then camdist=80:camlen=0:camrot=0:camhgt=100:camflag=1:wait 1
if inkey$()=">" then gosub Resetcam
if inkey$()="m" then camdist=-1000:camhgt=500:set camera range 100,20000
if inkey$()="M" then camdist=-3000:camhgt=1000:set camera range 100,20000
return
rem camera update
update_camera:
rem Position camera to the back of the character
ca#=wrapvalue(a#+camrot)
cx#=newxvalue(x#,ca#,camdist)
cz#=newzvalue(z#,ca#,camdist)
cy#=get ground height(1,x#,z#)
position camera cx#,cy#+camhgt,cz#
rem Point camera at object
point camera x#,cy#+camhgt+camlen,z#
return
Resetcam:
set camera range 20,20000
camdist=-500
camhgt=200
camrot=0
camlen=0
return
rem       PRINT
printdata:
set cursor 0,0
set text opaque
rem debug check
print "polygons=",statistic(1)
print "Fps=",screen fps()
print "landsize=",landsize
print "grid=",grid
print "x#=",x#
print "z#=",z#
print "a#=",a#
print
print "h#=",h#-52
print
print "frontrh#=",frontrh#
print "frontlh#=",frontlh#
print "backrh#=",backrh#
print "backlh#=",backlh#
print
print "rotrx#=",rotrx#
print "rotlx#=",rotlx#
print "rotfz#=",rotfz#
print "rotbz#=",rotbz#
print
print "oarx#=",oarx#
print "oalx#=",oalx#
print "oafz#=",oafz#
print "oabz#=",oabz#
print
print "diffx#=",diffx#
print "diffz#=",diffz#
print
print "trace=",trace$
print "real_left_front_wheel_height=",lfwheelh#
return

end

BBB GUI Plugin
Landscape & Map Creator

Back to top

Profile PM Email

david w

20

Years of Service

User Offline

Joined: 18th Dec 2005

Location: U.S.A. Michigan

Posted: 24th May 2012 23:45

Link

I did try to search, but it didn't return any relevant results. Thank you for the example.

Back to top

Profile PM Website

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 24th May 2012 23:47 Edited at: 24th May 2012 23:52

Link

Here you go.

rem ---------------------------------------------------------------------------
rem Slope Example
rem by TheComet
rem ---------------------------------------------------------------------------
rem Plugins used : Matrix1, Sparky's
rem ---------------------------------------------------------------------------

rem setup screen
sync on
sync rate 60
backdrop on
color backdrop 0
hide mouse

rem ---------------------------------------------------------------------------
rem UDTs
rem ---------------------------------------------------------------------------

type vec3
	x# as float
	y# as float
	z# as float
endtype

type PlayerVT
	pos as vec3
	angle as vec3
	CoreObj as word
	Obj as word
	grav# as float
endtype

type CameraVT
	angle as vec3
endtype

rem ---------------------------------------------------------------------------
rem global variables
rem ---------------------------------------------------------------------------

global Player as PlayerVT
global Camera as CameraVT
global n as integer
global x# as float
global y# as float
global z# as float

rem ---------------------------------------------------------------------------
rem images
rem ---------------------------------------------------------------------------

rem create a texture for the terrain
create bitmap 1 , 64 , 64
for n = 1 to 1000
	ink rgb( rnd(255) , rnd(255) , rnd(255) ) , 0
	circle rnd(63) , rnd(63) , rnd(4)
next n
get image 1 , 0 , 0 , 64 , 64
delete bitmap 1

rem ---------------------------------------------------------------------------
rem objects
rem ---------------------------------------------------------------------------

rem create terrain
make object plain 1 , 300 , 300 , 20 , 20
texture object 1 , 1
scale object texture 1 , 32 , 32

rem edit vertexdata to create hills
lock vertexdata for limb 1 , 0
	for n = 0 to get vertexdata vertex count()
		
		rem get current position of vertex
		x# = get vertexdata position x( n )
		y# = get vertexdata position y( n )
		z# = get vertexdata position z( n )
		
		rem add some height
		inc y# , rnd(200) * 0.05
		
		rem reposition
		set vertexdata position n , x# , y# , z#
		
	next n
unlock vertexdata

rem setup for collision
SC_SetupComplexObject 1 , 1 , 2

rem setup player object - glue the player object to a core object in order to correct rotations
Player.CoreObj = find free object()
make object plain Player.CoreObj , 0 , 0
Player.Obj = find free object()
make object cone Player.Obj , 5
glue object to limb Player.Obj , Player.CoreObj , 0
position object Player.Obj , 0 , 2.5 , 0

rem make a stick thingy and add to player
n = find free object()
make object box n , 0.5 , 0.5 , 6
make mesh from object 1 , n
delete object n
add limb Player.Obj , 1 , 1
delete mesh 1
offset limb Player.Obj , 1 , 0 , 1.5 , 3

rem starting positions
Player.pos.x# = 0
Player.pos.y# = 5
Player.pos.z# = 0

rem ---------------------------------------------------------------------------
rem main loop
rem ---------------------------------------------------------------------------

rem start of main loop
do
	
	rem user info
	center text 512 , 10 , "Use WASD to move, mouse to look"
	
	rem get direction of WASD
	a = -1
	if keystate(17) then a = 0
	if keystate(30) then a = 270
	if keystate(31) then a = 180
	if keystate(32) then a = 90
	if keystate(17) and keystate(30) then a = 315
	if keystate(30) and keystate(31) then a = 225
	if keystate(31) and keystate(32) then a = 135
	if keystate(32) and keystate(17) then a = 45
	
	rem use space to jump
	if spacekey() and Player.grav# = -1 then Player.grav# = 0.5
	
	rem move the player
	if a > -1
		Player.angle.y# = curveangle( wrapvalue( a + camera angle y() ) , Player.angle.y# , 3 )
		Player.pos.x# = newxvalue( Player.pos.x# , Player.angle.y# , 0.2 )
		Player.pos.z# = newzvalue( Player.pos.z# , Player.angle.y# , 0.2 )
	endif
	
	rem gravity
	dec Player.grav# , 0.025
	inc player.pos.y# , Player.grav#
	
	rem check for collision with terrain
	if SC_RayCast( 0 , Player.pos.x# , Player.pos.y# + 5 , Player.pos.z# , Player.pos.x# , Player.pos.y# , Player.pos.z# , 0 )
		
		rem handle sliding collision
		Player.pos.x# = SC_GetStaticCollisionX()
		Player.pos.y# = SC_GetStaticCollisionY()
		Player.pos.z# = SC_GetStaticCollisionZ()
		Player.grav# = -1
		
		rem get slope angle through normals and smooth (avoids jittering)
		Player.angle.x# = curveangle( asin( SC_GetCollisionNormalZ() ) , Player.angle.x# , 5 )
		Player.angle.z# = curveangle( asin( 0 - SC_GetCollisionNormalX() ) , Player.angle.z# , 5 )

endif
	
	rem move camera with mouse
	Camera.angle.y# = wrapvalue( Camera.angle.y# + mousemovex() )
	
	rem update player
	position object Player.CoreObj , Player.pos.x# , Player.pos.y# , Player.pos.z#
	rotate object Player.CoreObj , Player.angle.x# , 0 , Player.angle.z#
	rotate object Player.Obj , 0 , Player.angle.y# , 0
	
	rem update camera
	set camera to follow Player.pos.x# , Player.pos.y# , Player.pos.z# , Camera.angle.y# , 20 , 10 , 3 , 0
	point camera Player.pos.x# , Player.pos.y# , Player.pos.z#
	
	rem refresh screen
	sync
	
rem end of main loop
loop

rem end
end

+ Code Snippet

rem ---------------------------------------------------------------------------
rem Slope Example
rem by TheComet
rem ---------------------------------------------------------------------------
rem Plugins used : Matrix1, Sparky's
rem ---------------------------------------------------------------------------

rem setup screen
sync on
sync rate 60
backdrop on
color backdrop 0
hide mouse

rem ---------------------------------------------------------------------------
rem UDTs
rem ---------------------------------------------------------------------------

type vec3
	x# as float
	y# as float
	z# as float
endtype

type PlayerVT
	pos as vec3
	angle as vec3
	CoreObj as word
	Obj as word
	grav# as float
endtype

type CameraVT
	angle as vec3
endtype

rem ---------------------------------------------------------------------------
rem global variables
rem ---------------------------------------------------------------------------

global Player as PlayerVT
global Camera as CameraVT
global n as integer
global x# as float
global y# as float
global z# as float

rem ---------------------------------------------------------------------------
rem images
rem ---------------------------------------------------------------------------

rem create a texture for the terrain
create bitmap 1 , 64 , 64
for n = 1 to 1000
	ink rgb( rnd(255) , rnd(255) , rnd(255) ) , 0
	circle rnd(63) , rnd(63) , rnd(4)
next n
get image 1 , 0 , 0 , 64 , 64
delete bitmap 1

rem ---------------------------------------------------------------------------
rem objects
rem ---------------------------------------------------------------------------

rem create terrain
make object plain 1 , 300 , 300 , 20 , 20
texture object 1 , 1
scale object texture 1 , 32 , 32

rem edit vertexdata to create hills
lock vertexdata for limb 1 , 0
	for n = 0 to get vertexdata vertex count()
		
		rem get current position of vertex
		x# = get vertexdata position x( n )
		y# = get vertexdata position y( n )
		z# = get vertexdata position z( n )
		
		rem add some height
		inc y# , rnd(200) * 0.05
		
		rem reposition
		set vertexdata position n , x# , y# , z#
		
	next n
unlock vertexdata

rem setup for collision
SC_SetupComplexObject 1 , 1 , 2

rem setup player object - glue the player object to a core object in order to correct rotations
Player.CoreObj = find free object()
make object plain Player.CoreObj , 0 , 0
Player.Obj = find free object()
make object cone Player.Obj , 5
glue object to limb Player.Obj , Player.CoreObj , 0
position object Player.Obj , 0 , 2.5 , 0

rem make a stick thingy and add to player
n = find free object()
make object box n , 0.5 , 0.5 , 6
make mesh from object 1 , n
delete object n
add limb Player.Obj , 1 , 1
delete mesh 1
offset limb Player.Obj , 1 , 0 , 1.5 , 3

rem starting positions
Player.pos.x# = 0
Player.pos.y# = 5
Player.pos.z# = 0

rem ---------------------------------------------------------------------------
rem main loop
rem ---------------------------------------------------------------------------

rem start of main loop
do
	
	rem user info
	center text 512 , 10 , "Use WASD to move, mouse to look"
	
	rem get direction of WASD
	a = -1
	if keystate(17) then a = 0
	if keystate(30) then a = 270
	if keystate(31) then a = 180
	if keystate(32) then a = 90
	if keystate(17) and keystate(30) then a = 315
	if keystate(30) and keystate(31) then a = 225
	if keystate(31) and keystate(32) then a = 135
	if keystate(32) and keystate(17) then a = 45
	
	rem use space to jump
	if spacekey() and Player.grav# = -1 then Player.grav# = 0.5
	
	rem move the player
	if a > -1
		Player.angle.y# = curveangle( wrapvalue( a + camera angle y() ) , Player.angle.y# , 3 )
		Player.pos.x# = newxvalue( Player.pos.x# , Player.angle.y# , 0.2 )
		Player.pos.z# = newzvalue( Player.pos.z# , Player.angle.y# , 0.2 )
	endif
	
	rem gravity
	dec Player.grav# , 0.025
	inc player.pos.y# , Player.grav#
	
	rem check for collision with terrain
	if SC_RayCast( 0 , Player.pos.x# , Player.pos.y# + 5 , Player.pos.z# , Player.pos.x# , Player.pos.y# , Player.pos.z# , 0 )
		
		rem handle sliding collision
		Player.pos.x# = SC_GetStaticCollisionX()
		Player.pos.y# = SC_GetStaticCollisionY()
		Player.pos.z# = SC_GetStaticCollisionZ()
		Player.grav# = -1
		
		rem get slope angle through normals and smooth (avoids jittering)
		Player.angle.x# = curveangle( asin( SC_GetCollisionNormalZ() ) , Player.angle.x# , 5 )
		Player.angle.z# = curveangle( asin( 0 - SC_GetCollisionNormalX() ) , Player.angle.z# , 5 )

	endif
	
	rem move camera with mouse
	Camera.angle.y# = wrapvalue( Camera.angle.y# + mousemovex() )
	
	rem update player
	position object Player.CoreObj , Player.pos.x# , Player.pos.y# , Player.pos.z#
	rotate object Player.CoreObj , Player.angle.x# , 0 , Player.angle.z#
	rotate object Player.Obj , 0 , Player.angle.y# , 0
	
	rem update camera
	set camera to follow Player.pos.x# , Player.pos.y# , Player.pos.z# , Camera.angle.y# , 20 , 10 , 3 , 0
	point camera Player.pos.x# , Player.pos.y# , Player.pos.z#
	
	rem refresh screen
	sync
	
rem end of main loop
loop

rem end
end

The player (or whatever object you want to tilt) uses a core object to which it is glued. This is so the x and z angles aren't screwed up when you rotate it on the y axis. Here you can see that I handle xz rotations separately from y rotations:

+ Code Snippet

rem update player
	position object Player.CoreObj , Player.pos.x# , Player.pos.y# , Player.pos.z#
	rotate object Player.CoreObj , Player.angle.x# , 0 , Player.angle.z#
	rotate object Player.Obj , 0 , Player.angle.y# , 0

TheComet

TimePlan : https://docs.google.com/spreadsheet/ccc?key=0AmuAKJolqASndEVYOWMxb3l2OWV0UkV1anRSczZScHc

Back to top

Profile PM Email Website

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 25th May 2012 12:36

Link

Hi there....it looks like a challenge

here we go with a sample for a matrix terrain or Advance terrain...no Sparky`s

`Adjust the vehicle inclination with the terrain slope
create bitmap 1,50,50:for i= 1 to 1550:ink rgb(230,95,55),0:line rnd(60),i,i,rnd(130)
next i:blur bitmap 1,6:get image 1,10,10,50,50:delete bitmap 1

make matrix 1,10000.0,10000.0,25,25
prepare matrix texture 1,1,1,1
randomize matrix 1,350.0

update matrix 1
set ambient light 20

`The tank and the helper object (this helper will be hide)
make object sphere 1,0
make object sphere 5,0

make object box 2,50,5,80:color object 2,rgb(10,50,10)
make object box 3,40,20,50:offset limb 3,0,0,0,25
make mesh from object 1,3 :delete object 3
add limb 2,1,1 :add limb 2,2,1
scale limb 2,2,20,40,120 :offset limb 2,2,0,25,20:offset limb 2,1,0,10,-20
color limb 2,2,rgb(0,10,0):color limb 2,1,rgb(0,30,0)

x#=500
z#=500
sync on
do
if upkey()=1 then x#=newxvalue(x#,a#,1) : z#=newzvalue(z#,a#,1)
if downkey()=1 then x#=newxvalue(x#,a#,-1) : z#=newzvalue(z#,a#,-1)
if leftkey()=1 then a#=wrapvalue(a#-0.5)
if rightkey()=1 then a#=wrapvalue(a#+0.5)

`checking height of two helper
yb#=get ground height(1,object position x(1),object position z(1))
yb2#=get ground height(1,object position x(5),object position z(5))

`checking height of the tank
y#=get ground height(1,x#,z#)

`positioning helpers with the tank
position object 1,x#,yb#+40,z#
position object 2,x#,y#+30,z#
position object 5,x#,yb2#,z#

`turning
yrotate object 1,a#
yrotate object 2,a#
yrotate object 5,a#

`checking in front
move object 1,80
`checking on one side (left)
move object left 5,30

`pointing the tank to the coords of the helper 1
point object 2,object position x(1),object position y(1),object position z(1)

`rolling the tank its height less helper height
roll object left 2,y#-yb2#

`camera bihind the tank
cx#=newxvalue(x#,wrapvalue(a#+180),300)
cz#=newzvalue(z#,wrapvalue(a#+180),300)
cy#=get ground height(1,cx#,cz#)+100.0
position camera cx#,cy#+200,cz#
tr#=tr#+0.1
rotate limb 2,2,0,tr#,0
point camera x#,y#,z#

sync
loop

+ Code Snippet

`Adjust the vehicle inclination with the terrain slope
create bitmap 1,50,50:for i= 1 to 1550:ink rgb(230,95,55),0:line rnd(60),i,i,rnd(130)
next i:blur bitmap 1,6:get image 1,10,10,50,50:delete bitmap 1

make matrix 1,10000.0,10000.0,25,25
prepare matrix texture 1,1,1,1
randomize matrix 1,350.0

update matrix 1
set ambient light 20

`The tank and the helper object (this helper will be hide)
make object sphere 1,0
make object sphere 5,0

make object box 2,50,5,80:color object 2,rgb(10,50,10)
make object box 3,40,20,50:offset limb 3,0,0,0,25
make mesh from object 1,3 :delete object 3
add limb 2,1,1 :add limb 2,2,1
scale limb 2,2,20,40,120 :offset limb 2,2,0,25,20:offset limb 2,1,0,10,-20
color limb 2,2,rgb(0,10,0):color limb 2,1,rgb(0,30,0)

x#=500
z#=500
sync on
do
if upkey()=1 then x#=newxvalue(x#,a#,1) : z#=newzvalue(z#,a#,1)
if downkey()=1 then x#=newxvalue(x#,a#,-1) : z#=newzvalue(z#,a#,-1)
if leftkey()=1 then a#=wrapvalue(a#-0.5)
if rightkey()=1 then a#=wrapvalue(a#+0.5)

`checking height of two helper
yb#=get ground height(1,object position x(1),object position z(1))
yb2#=get ground height(1,object position x(5),object position z(5))

`checking height of the tank
y#=get ground height(1,x#,z#)

`positioning helpers with the tank
position object 1,x#,yb#+40,z#
position object 2,x#,y#+30,z#
position object 5,x#,yb2#,z#

`turning
yrotate object 1,a#
yrotate object 2,a#
yrotate object 5,a#


`checking in front
move object 1,80
`checking on one side (left)
move object left 5,30


`pointing the tank to the coords of the helper 1
point object 2,object position x(1),object position y(1),object position z(1)

`rolling the tank its height less helper height
roll object left 2,y#-yb2#

`camera bihind the tank
cx#=newxvalue(x#,wrapvalue(a#+180),300)
cz#=newzvalue(z#,wrapvalue(a#+180),300)
cy#=get ground height(1,cx#,cz#)+100.0
position camera cx#,cy#+200,cz#
tr#=tr#+0.1
rotate limb 2,2,0,tr#,0
point camera x#,y#,z#

sync
loop

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

david w

20

Years of Service

User Offline

Joined: 18th Dec 2005

Location: U.S.A. Michigan

Posted: 25th May 2012 21:26

Link

These are all really great samples, and I have learned from them. The more I looking into my problem I realize that I am not going to be able to rely on helper objects, or any external DLL's like sparkys, only built in commands.

My new idea is to use the get ground height function, and then get the polygon/face that is intersected and then somehow try to work out the angle based upon the positions or face normals returned.

If this is not possible can someone post that its not and if it is does anyone know the procedue to make this idea possible.

Thank you.

Back to top

Profile PM Website

Scorpyo

23

Years of Service

User Offline

Joined: 26th Aug 2002

Location: italy

Posted: 25th May 2012 22:02

Link

you'd be more realistic by "slightly" randomly inclining along the vertical.
Plants feel gravity and almost always grow up straight regardless of terrain slope

Back to top

Profile PM

Scorpyo

23

Years of Service

User Offline

Joined: 26th Aug 2002

Location: italy

Posted: 25th May 2012 22:17 Edited at: 25th May 2012 22:19

Link

Otherwise:
(loading carries the object number, terrain is object number 1))

groundalign:
rem ----------------------------------------
 objfrontx#=newxvalue(coordx#,angle#,objfrontoffset)
 objfrontz#=newzvalue(coordz#,angle#,objfrontoffset)
 objbackx#=newxvalue(coordx#,angle#,-objrearoffset)
 objbackz#=newzvalue(coordz#,angle#,-objrearoffset)
rem ----------------------------------------
 objrightx#=coordx#+cos(angle#)*65
 objrightz#=coordz#+sin(angle#)*-65
 objleftx#=coordx#+cos(angle#)*-65
 objleftz#=coordz#+sin(angle#)*65
 groundh#=10000-intersect object(1,coordx#,10000,coordz#,coordx#,-10000,coordz#)
 position object loading,coordx#,groundh#,coordz#
 front1h#=10000-intersect object(1,objfrontx#,10000,objfrontz#,objfrontx#,-10000,objfrontz#)
 back1h#=10000-intersect object(1,objbackx#,10000,objbackz#,objbackx#,-10000,objbackz#)
 right1h#=10000-intersect object(1,objrightx#,10000,objrightz#,objrightx#,-10000,objrightz#)
 left1h#=10000-intersect object(1,objleftx#,10000,objleftz#,objleftx#,-10000,objleftz#)
 acrossheightdiff1#=(right1h#-left1h#)
 objangz#=atan(acrossheightdiff1#/objwidth)
 alonghdiff1#=back1h#-front1h#
 rem objangx#=atan(alonghdiff1#/objlength)*0.9
 objangx#=atan(alonghdiff1#/objlength)
 xrotate object loading,objangx#
 rotate limb loading,0,0,0,objangz#
 return

+ Code Snippet

groundalign:
rem ----------------------------------------
 objfrontx#=newxvalue(coordx#,angle#,objfrontoffset)
 objfrontz#=newzvalue(coordz#,angle#,objfrontoffset)
 objbackx#=newxvalue(coordx#,angle#,-objrearoffset)
 objbackz#=newzvalue(coordz#,angle#,-objrearoffset)
rem ----------------------------------------
 objrightx#=coordx#+cos(angle#)*65
 objrightz#=coordz#+sin(angle#)*-65
 objleftx#=coordx#+cos(angle#)*-65
 objleftz#=coordz#+sin(angle#)*65
 groundh#=10000-intersect object(1,coordx#,10000,coordz#,coordx#,-10000,coordz#)
 position object loading,coordx#,groundh#,coordz#
 front1h#=10000-intersect object(1,objfrontx#,10000,objfrontz#,objfrontx#,-10000,objfrontz#)
 back1h#=10000-intersect object(1,objbackx#,10000,objbackz#,objbackx#,-10000,objbackz#)
 right1h#=10000-intersect object(1,objrightx#,10000,objrightz#,objrightx#,-10000,objrightz#)
 left1h#=10000-intersect object(1,objleftx#,10000,objleftz#,objleftx#,-10000,objleftz#)
 acrossheightdiff1#=(right1h#-left1h#)
 objangz#=atan(acrossheightdiff1#/objwidth)
 alonghdiff1#=back1h#-front1h#
 rem objangx#=atan(alonghdiff1#/objlength)*0.9
 objangx#=atan(alonghdiff1#/objlength)
 xrotate object loading,objangx#
 rotate limb loading,0,0,0,objangz#
 return

Back to top

Profile PM

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 26th May 2012 02:11

Link

Well I've modified my example to not use a dummy object as you requested. I suggest you download sparky's, as it's at least a hundred times faster than any DBP collision commands.

rem ---------------------------------------------------------------------------
rem Slope Example
rem by TheComet
rem ---------------------------------------------------------------------------
rem Plugins used : Matrix1, Sparky's
rem ---------------------------------------------------------------------------

rem setup screen
sync on
sync rate 60
backdrop on
color backdrop 0
hide mouse

rem ---------------------------------------------------------------------------
rem UDTs
rem ---------------------------------------------------------------------------

type vec3
        x# as float
        y# as float
        z# as float
endtype

type PlayerVT
        pos as vec3
        angle as vec3
        Obj as word
        grav# as float
endtype

type CameraVT
        angle as vec3
endtype

rem ---------------------------------------------------------------------------
rem global variables
rem ---------------------------------------------------------------------------

global Player as PlayerVT
global Camera as CameraVT
global n as integer
global x# as float
global y# as float
global z# as float

rem ---------------------------------------------------------------------------
rem images
rem ---------------------------------------------------------------------------

rem create a texture for the terrain
create bitmap 1 , 64 , 64
for n = 1 to 1000
        ink rgb( rnd(255) , rnd(255) , rnd(255) ) , 0
        circle rnd(63) , rnd(63) , rnd(4)
next n
get image 1 , 0 , 0 , 64 , 64
delete bitmap 1

rem ---------------------------------------------------------------------------
rem objects
rem ---------------------------------------------------------------------------

rem create terrain
make object plain 1 , 300 , 300 , 20 , 20
texture object 1 , 1
scale object texture 1 , 32 , 32

rem edit vertexdata to create hills
lock vertexdata for limb 1 , 0
        for n = 0 to get vertexdata vertex count()
                
                rem get current position of vertex
                x# = get vertexdata position x( n )
                y# = get vertexdata position y( n )
                z# = get vertexdata position z( n )
                
                rem add some height
                inc y# , rnd(200) * 0.05
                
                rem reposition
                set vertexdata position n , x# , y# , z#
                
        next n
unlock vertexdata

rem setup for collision
SC_SetupComplexObject 1 , 1 , 2

rem setup player object
Player.Obj = find free object()
make object cone Player.Obj , 5

rem make a stick thingy and add to player
n = find free object()
make object box n , 0.5 , 0.5 , 6
make mesh from object 1 , n
delete object n
add limb Player.Obj , 1 , 1
delete mesh 1
offset limb Player.Obj , 0 , 0 , 2.5 , 0

rem starting positions
Player.pos.x# = 0
Player.pos.y# = 5
Player.pos.z# = 0

rem ---------------------------------------------------------------------------
rem main loop
rem ---------------------------------------------------------------------------

rem start of main loop
do
        
        rem user info
        center text 512 , 10 , "Use WASD to move, mouse to look"
        
        rem get direction of WASD
        a = -1
        if keystate(17) then a = 0
        if keystate(30) then a = 270
        if keystate(31) then a = 180
        if keystate(32) then a = 90
        if keystate(17) and keystate(30) then a = 315
        if keystate(30) and keystate(31) then a = 225
        if keystate(31) and keystate(32) then a = 135
        if keystate(32) and keystate(17) then a = 45
        
        rem use space to jump
        if spacekey() and Player.grav# = -1 then Player.grav# = 0.5
        
        rem move the player
        if a > -1
                Player.angle.y# = curveangle( wrapvalue( a + camera angle y() ) , Player.angle.y# , 3 )
                Player.pos.x# = newxvalue( Player.pos.x# , Player.angle.y# , 0.2 )
                Player.pos.z# = newzvalue( Player.pos.z# , Player.angle.y# , 0.2 )
        endif
        
        rem gravity
        dec Player.grav# , 0.025
        inc player.pos.y# , Player.grav#
        
        rem check for collision with terrain
        if SC_RayCast( 0 , Player.pos.x# , Player.pos.y# + 5 , Player.pos.z# , Player.pos.x# , Player.pos.y# , Player.pos.z# , 0 )
                
                rem handle sliding collision
                Player.pos.x# = SC_GetStaticCollisionX()
                Player.pos.y# = SC_GetStaticCollisionY()
                Player.pos.z# = SC_GetStaticCollisionZ()
                Player.grav# = -1
                
                rem get slope angle through normals and smooth (avoids jittering)
                Player.angle.x# = curveangle( asin( SC_GetCollisionNormalZ() ) , Player.angle.x# , 5 )
                Player.angle.z# = curveangle( asin( 0 - SC_GetCollisionNormalX() ) , Player.angle.z# , 5 )

endif
        
        rem move camera with mouse
        Camera.angle.y# = wrapvalue( Camera.angle.y# + mousemovex() )
        
        rem update player
        position object Player.Obj , Player.pos.x# , Player.pos.y# , Player.pos.z#
        rotate object Player.Obj , Player.angle.x# , 0 , Player.angle.z#
        rotate limb Player.Obj , 0 , 0 , Player.angle.y# , 0
		  
		  rem rotate stick thingy
		  rotate limb Player.Obj , 1 , 0 , Player.angle.y# , 0
        
        rem update camera
        set camera to follow Player.pos.x# , Player.pos.y# , Player.pos.z# , Camera.angle.y# , 20 , 10 , 3 , 0
        point camera Player.pos.x# , Player.pos.y# , Player.pos.z#
        
        rem refresh screen
        sync
        
rem end of main loop
loop

rem end
end

+ Code Snippet

rem ---------------------------------------------------------------------------
rem Slope Example
rem by TheComet
rem ---------------------------------------------------------------------------
rem Plugins used : Matrix1, Sparky's
rem ---------------------------------------------------------------------------

rem setup screen
sync on
sync rate 60
backdrop on
color backdrop 0
hide mouse

rem ---------------------------------------------------------------------------
rem UDTs
rem ---------------------------------------------------------------------------

type vec3
        x# as float
        y# as float
        z# as float
endtype

type PlayerVT
        pos as vec3
        angle as vec3
        Obj as word
        grav# as float
endtype

type CameraVT
        angle as vec3
endtype

rem ---------------------------------------------------------------------------
rem global variables
rem ---------------------------------------------------------------------------

global Player as PlayerVT
global Camera as CameraVT
global n as integer
global x# as float
global y# as float
global z# as float

rem ---------------------------------------------------------------------------
rem images
rem ---------------------------------------------------------------------------

rem create a texture for the terrain
create bitmap 1 , 64 , 64
for n = 1 to 1000
        ink rgb( rnd(255) , rnd(255) , rnd(255) ) , 0
        circle rnd(63) , rnd(63) , rnd(4)
next n
get image 1 , 0 , 0 , 64 , 64
delete bitmap 1

rem ---------------------------------------------------------------------------
rem objects
rem ---------------------------------------------------------------------------

rem create terrain
make object plain 1 , 300 , 300 , 20 , 20
texture object 1 , 1
scale object texture 1 , 32 , 32

rem edit vertexdata to create hills
lock vertexdata for limb 1 , 0
        for n = 0 to get vertexdata vertex count()
                
                rem get current position of vertex
                x# = get vertexdata position x( n )
                y# = get vertexdata position y( n )
                z# = get vertexdata position z( n )
                
                rem add some height
                inc y# , rnd(200) * 0.05
                
                rem reposition
                set vertexdata position n , x# , y# , z#
                
        next n
unlock vertexdata

rem setup for collision
SC_SetupComplexObject 1 , 1 , 2

rem setup player object
Player.Obj = find free object()
make object cone Player.Obj , 5

rem make a stick thingy and add to player
n = find free object()
make object box n , 0.5 , 0.5 , 6
make mesh from object 1 , n
delete object n
add limb Player.Obj , 1 , 1
delete mesh 1
offset limb Player.Obj , 0 , 0 , 2.5 , 0

rem starting positions
Player.pos.x# = 0
Player.pos.y# = 5
Player.pos.z# = 0

rem ---------------------------------------------------------------------------
rem main loop
rem ---------------------------------------------------------------------------

rem start of main loop
do
        
        rem user info
        center text 512 , 10 , "Use WASD to move, mouse to look"
        
        rem get direction of WASD
        a = -1
        if keystate(17) then a = 0
        if keystate(30) then a = 270
        if keystate(31) then a = 180
        if keystate(32) then a = 90
        if keystate(17) and keystate(30) then a = 315
        if keystate(30) and keystate(31) then a = 225
        if keystate(31) and keystate(32) then a = 135
        if keystate(32) and keystate(17) then a = 45
        
        rem use space to jump
        if spacekey() and Player.grav# = -1 then Player.grav# = 0.5
        
        rem move the player
        if a > -1
                Player.angle.y# = curveangle( wrapvalue( a + camera angle y() ) , Player.angle.y# , 3 )
                Player.pos.x# = newxvalue( Player.pos.x# , Player.angle.y# , 0.2 )
                Player.pos.z# = newzvalue( Player.pos.z# , Player.angle.y# , 0.2 )
        endif
        
        rem gravity
        dec Player.grav# , 0.025
        inc player.pos.y# , Player.grav#
        
        rem check for collision with terrain
        if SC_RayCast( 0 , Player.pos.x# , Player.pos.y# + 5 , Player.pos.z# , Player.pos.x# , Player.pos.y# , Player.pos.z# , 0 )
                
                rem handle sliding collision
                Player.pos.x# = SC_GetStaticCollisionX()
                Player.pos.y# = SC_GetStaticCollisionY()
                Player.pos.z# = SC_GetStaticCollisionZ()
                Player.grav# = -1
                
                rem get slope angle through normals and smooth (avoids jittering)
                Player.angle.x# = curveangle( asin( SC_GetCollisionNormalZ() ) , Player.angle.x# , 5 )
                Player.angle.z# = curveangle( asin( 0 - SC_GetCollisionNormalX() ) , Player.angle.z# , 5 )

        endif
        
        rem move camera with mouse
        Camera.angle.y# = wrapvalue( Camera.angle.y# + mousemovex() )
        
        rem update player
        position object Player.Obj , Player.pos.x# , Player.pos.y# , Player.pos.z#
        rotate object Player.Obj , Player.angle.x# , 0 , Player.angle.z#
        rotate limb Player.Obj , 0 , 0 , Player.angle.y# , 0
		  
		  rem rotate stick thingy
		  rotate limb Player.Obj , 1 , 0 , Player.angle.y# , 0
        
        rem update camera
        set camera to follow Player.pos.x# , Player.pos.y# , Player.pos.z# , Camera.angle.y# , 20 , 10 , 3 , 0
        point camera Player.pos.x# , Player.pos.y# , Player.pos.z#
        
        rem refresh screen
        sync
        
rem end of main loop
loop

rem end
end

I use limb 0 instead.

I'm waiting for someone to come along and solve it using EZrotate or something.

Give me a few minutes, and I'll code an example for you using only get ground height() if you really don't want to use sparky's.

TheComet

TimePlan : https://docs.google.com/spreadsheet/ccc?key=0AmuAKJolqASndEVYOWMxb3l2OWV0UkV1anRSczZScHc

Back to top

Profile PM Email Website

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 26th May 2012 02:53

Link

Where did theory go wrong... Why doesn't this work? Can anyone help?

rem ---------------------------------------------------------------------------
rem Slope on Matrix example
rem by TheComet
rem ---------------------------------------------------------------------------

rem setup screen
sync on
sync rate 60
backdrop on
color backdrop 0
hide mouse

rem ---------------------------------------------------------------------------
rem user defined types
rem ---------------------------------------------------------------------------

type vec3
	x# as float
	y# as float
	z# as float
endtype

type PlayerVT
	pos as vec3
	angle as vec3
	grav# as float
endtype

type CameraVT
	angle as vec3
endtype

rem ---------------------------------------------------------------------------
rem global variables
rem ---------------------------------------------------------------------------

global Player as PlayerVT
global Camera as CameraVT

rem ---------------------------------------------------------------------------
rem images
rem ---------------------------------------------------------------------------

rem awesome stone brick texture
create bitmap 1 , 64 , 64
box 0 , 0 , 63 , 63 , rgb( 10 , 10 , 10 )
box 2 , 2 , 61 , 61 , rgb( 30 , 30 , 30 )
for n = 0 to 1000
	r = rnd(128) + 40
	ink rgb( r , r , r ) , 0
	circle rnd(55)+4 , rnd(55)+4 , rnd(3)+1
next n
blur bitmap 1 , 3
get image 1 , 0 , 0 , 64 , 64
delete bitmap 1

rem ---------------------------------------------------------------------------
rem terrain
rem ---------------------------------------------------------------------------

rem make landscape using matrix
make matrix 1 , 1000 , 1000 , 40 , 40
randomize matrix 1 , 12
prepare matrix texture 1 , 1 , 2 , 2
update matrix 1

rem ---------------------------------------------------------------------------
rem objects
rem ---------------------------------------------------------------------------

rem player object
make object cone 1 , 10
offset limb 1 , 0 , 0 , 5 , 0

Player.pos.x# = 500
Player.pos.y# = 15
Player.pos.z# = 500

rem ---------------------------------------------------------------------------
rem main loop
rem ---------------------------------------------------------------------------

rem start of main loop
do
	
	rem get key direction
	a = -1
	if keystate(17) then a = 0
	if keystate(30) then a = 270
	if keystate(31) then a = 180
	if keystate(32) then a = 90
	if keystate(17) and keystate(30) then a = 315
	if keystate(30) and keystate(31) then a = 225
	if keystate(31) and keystate(32) then a = 135
	if keystate(32) and keystate(17) then a = 45
	
	rem move player
	if a > -1
		Player.angle.y# = wrapvalue( Camera.angle.y# + a )
		Player.pos.x# = newxvalue( Player.pos.x# , Player.angle.y# , 0.8 )
		Player.pos.z# = newzvalue( Player.pos.z# , Player.angle.y# , 0.8 )
	endif
	
	rem jump
	if spacekey() and Player.grav# = -5 then Player.grav# = 0.8
	
	rem gravity
	dec Player.grav# , 0.03
	inc Player.pos.y# , Player.grav#
	
	rem collision with ground
	if Player.pos.y# < get ground height( 1 , Player.pos.x# , Player.pos.z# )
		Player.pos.y# = get ground height( 1 , Player.pos.x# , Player.pos.z# )
		Player.grav# = -5
	endif
	
	rem calculate tilt when on ground
	if Player.grav# = -5
		CastFrontX# = newxvalue( Player.pos.x# , Player.angle.y# , 1 )
		CastFrontZ# = newzvalue( Player.pos.z# , Player.angle.y# , 1 )
		CastBackX# = newxvalue( Player.pos.x# , Player.angle.y# , -1 )
		CastBackZ# = newzvalue( Player.pos.z# , Player.angle.y# , -1 )
		CastLeftX# = newxvalue( Player.pos.x# , Player.angle.y# - 90 , 1 )
		CastLeftZ# = newzvalue( Player.pos.z# , Player.angle.y# - 90 , 1 )
		CastRightX# = newxvalue( Player.pos.x# , Player.angle.y# + 90 , 1 )
		CastRightZ# = newzvalue( Player.pos.z# , Player.angle.y# + 90 , 1 )
		Player.angle.x# = atanfull( get ground height( 1 , CastFrontX# , CastFrontZ# ) - get ground height( 1 , CastBackX# , CastBackZ# ) , 2 )
		Player.angle.z# = atanfull( get ground height( 1 , CastRightX# , CastRightZ# ) - get ground height( 1 , CastLeftX# , CastLeftZ# ) , 2 )
		Player.angle.x# = wrapvalue( 0 - Player.angle.x# )
	endif
	
	rem control camera with mouse
	Camera.angle.y# = wrapvalue( Camera.angle.y# + mousemovex() )
	
	rem update player object
	position object 1 , Player.pos.x# , Player.pos.y# , Player.pos.z#
	rotate object 1 , Player.angle.x# , Player.angle.y# , Player.angle.z#
	
	rem update camera
	set camera to follow Player.pos.x# , Player.pos.y# , Player.pos.z# , Camera.angle.y# , 40 , 20 , 3 , 0
	point camera Player.pos.x# , Player.pos.y# , Player.pos.z#
	
	rem refresh screen
	sync
	
rem end of main loop
loop

rem end
end

+ Code Snippet

rem ---------------------------------------------------------------------------
rem Slope on Matrix example
rem by TheComet
rem ---------------------------------------------------------------------------

rem setup screen
sync on
sync rate 60
backdrop on
color backdrop 0
hide mouse

rem ---------------------------------------------------------------------------
rem user defined types
rem ---------------------------------------------------------------------------

type vec3
	x# as float
	y# as float
	z# as float
endtype

type PlayerVT
	pos as vec3
	angle as vec3
	grav# as float
endtype

type CameraVT
	angle as vec3
endtype

rem ---------------------------------------------------------------------------
rem global variables
rem ---------------------------------------------------------------------------

global Player as PlayerVT
global Camera as CameraVT

rem ---------------------------------------------------------------------------
rem images
rem ---------------------------------------------------------------------------

rem awesome stone brick texture
create bitmap 1 , 64 , 64
box 0 , 0 , 63 , 63 , rgb( 10 , 10 , 10 )
box 2 , 2 , 61 , 61 , rgb( 30 , 30 , 30 )
for n = 0 to 1000
	r = rnd(128) + 40
	ink rgb( r , r , r ) , 0
	circle rnd(55)+4 , rnd(55)+4 , rnd(3)+1
next n
blur bitmap 1 , 3
get image 1 , 0 , 0 , 64 , 64
delete bitmap 1

rem ---------------------------------------------------------------------------
rem terrain
rem ---------------------------------------------------------------------------

rem make landscape using matrix
make matrix 1 , 1000 , 1000 , 40 , 40
randomize matrix 1 , 12
prepare matrix texture 1 , 1 , 2 , 2
update matrix 1

rem ---------------------------------------------------------------------------
rem objects
rem ---------------------------------------------------------------------------

rem player object
make object cone 1 , 10
offset limb 1 , 0 , 0 , 5 , 0

Player.pos.x# = 500
Player.pos.y# = 15
Player.pos.z# = 500

rem ---------------------------------------------------------------------------
rem main loop
rem ---------------------------------------------------------------------------

rem start of main loop
do
	
	rem get key direction
	a = -1
	if keystate(17) then a = 0
	if keystate(30) then a = 270
	if keystate(31) then a = 180
	if keystate(32) then a = 90
	if keystate(17) and keystate(30) then a = 315
	if keystate(30) and keystate(31) then a = 225
	if keystate(31) and keystate(32) then a = 135
	if keystate(32) and keystate(17) then a = 45
	
	rem move player
	if a > -1
		Player.angle.y# = wrapvalue( Camera.angle.y# + a )
		Player.pos.x# = newxvalue( Player.pos.x# , Player.angle.y# , 0.8 )
		Player.pos.z# = newzvalue( Player.pos.z# , Player.angle.y# , 0.8 )
	endif
	
	rem jump
	if spacekey() and Player.grav# = -5 then Player.grav# = 0.8
	
	rem gravity
	dec Player.grav# , 0.03
	inc Player.pos.y# , Player.grav#
	
	rem collision with ground
	if Player.pos.y# < get ground height( 1 , Player.pos.x# , Player.pos.z# )
		Player.pos.y# = get ground height( 1 , Player.pos.x# , Player.pos.z# )
		Player.grav# = -5
	endif
	
	rem calculate tilt when on ground
	if Player.grav# = -5
		CastFrontX# = newxvalue( Player.pos.x# , Player.angle.y# , 1 )
		CastFrontZ# = newzvalue( Player.pos.z# , Player.angle.y# , 1 )
		CastBackX# = newxvalue( Player.pos.x# , Player.angle.y# , -1 )
		CastBackZ# = newzvalue( Player.pos.z# , Player.angle.y# , -1 )
		CastLeftX# = newxvalue( Player.pos.x# , Player.angle.y# - 90 , 1 )
		CastLeftZ# = newzvalue( Player.pos.z# , Player.angle.y# - 90 , 1 )
		CastRightX# = newxvalue( Player.pos.x# , Player.angle.y# + 90 , 1 )
		CastRightZ# = newzvalue( Player.pos.z# , Player.angle.y# + 90 , 1 )
		Player.angle.x# = atanfull( get ground height( 1 , CastFrontX# , CastFrontZ# ) - get ground height( 1 , CastBackX# , CastBackZ# ) , 2 )
		Player.angle.z# = atanfull( get ground height( 1 , CastRightX# , CastRightZ# ) - get ground height( 1 , CastLeftX# , CastLeftZ# ) , 2 )
		Player.angle.x# = wrapvalue( 0 - Player.angle.x# )
	endif
	
	rem control camera with mouse
	Camera.angle.y# = wrapvalue( Camera.angle.y# + mousemovex() )
	
	rem update player object
	position object 1 , Player.pos.x# , Player.pos.y# , Player.pos.z#
	rotate object 1 , Player.angle.x# , Player.angle.y# , Player.angle.z#
	
	rem update camera
	set camera to follow Player.pos.x# , Player.pos.y# , Player.pos.z# , Camera.angle.y# , 40 , 20 , 3 , 0
	point camera Player.pos.x# , Player.pos.y# , Player.pos.z#
	
	rem refresh screen
	sync
	
rem end of main loop
loop

rem end
end

TheComet

TimePlan : https://docs.google.com/spreadsheet/ccc?key=0AmuAKJolqASndEVYOWMxb3l2OWV0UkV1anRSczZScHc

Back to top

Profile PM Email Website

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 26th May 2012 03:56

Link

Quote: "Where did theory go wrong... Why doesn't this work? Can anyone help?"

Yeah...mmm it's driving me crazy....I can't see whats wrong...usually a minor error but I don't see it.

I'm not a grumpy grandpa

Back to top

Profile PM Email

david w

20

Years of Service

User Offline

Joined: 18th Dec 2005

Location: U.S.A. Michigan

Posted: 26th May 2012 06:37

Link

I changed it to this and it seems to work/follow the terrain correctly.

rem collision with ground
    //if Player.pos.y# = get ground height( 1 , Player.pos.x# , Player.pos.z# )
        Player.pos.y# = get ground height( 1 , Player.pos.x# , Player.pos.z# )
      //  Player.grav# = -5
    //endif
    
    rem calculate tilt when on ground
    //if Player.grav# = -5
        CastFrontX# = newxvalue( Player.pos.x# , Player.angle.y# , 1 )
        CastFrontZ# = newzvalue( Player.pos.z# , Player.angle.y# , 1 )
        CastBackX# = newxvalue( Player.pos.x# , Player.angle.y# , -1 )
        CastBackZ# = newzvalue( Player.pos.z# , Player.angle.y# , -1 )
        CastLeftX# = newxvalue( Player.pos.x# , Player.angle.y# - 90 , 1 )
        CastLeftZ# = newzvalue( Player.pos.z# , Player.angle.y# - 90 , 1 )
        CastRightX# = newxvalue( Player.pos.x# , Player.angle.y# + 90 , 1 )
        CastRightZ# = newzvalue( Player.pos.z# , Player.angle.y# + 90 , 1 )
        Player.angle.x# = atanfull( get ground height( 1 , CastFrontX# , CastFrontZ# ) - get ground height( 1 , CastBackX# , CastBackZ# ) , 2 )
        Player.angle.z# = atanfull( get ground height( 1 , CastRightX# , CastRightZ# ) - get ground height( 1 , CastLeftX# , CastLeftZ# ) , 2 )
        Player.angle.x# = wrapvalue( 0 - Player.angle.x# )
    //endif

+ Code Snippet

    rem collision with ground
    //if Player.pos.y# = get ground height( 1 , Player.pos.x# , Player.pos.z# )
        Player.pos.y# = get ground height( 1 , Player.pos.x# , Player.pos.z# )
      //  Player.grav# = -5
    //endif
    
    rem calculate tilt when on ground
    //if Player.grav# = -5
        CastFrontX# = newxvalue( Player.pos.x# , Player.angle.y# , 1 )
        CastFrontZ# = newzvalue( Player.pos.z# , Player.angle.y# , 1 )
        CastBackX# = newxvalue( Player.pos.x# , Player.angle.y# , -1 )
        CastBackZ# = newzvalue( Player.pos.z# , Player.angle.y# , -1 )
        CastLeftX# = newxvalue( Player.pos.x# , Player.angle.y# - 90 , 1 )
        CastLeftZ# = newzvalue( Player.pos.z# , Player.angle.y# - 90 , 1 )
        CastRightX# = newxvalue( Player.pos.x# , Player.angle.y# + 90 , 1 )
        CastRightZ# = newzvalue( Player.pos.z# , Player.angle.y# + 90 , 1 )
        Player.angle.x# = atanfull( get ground height( 1 , CastFrontX# , CastFrontZ# ) - get ground height( 1 , CastBackX# , CastBackZ# ) , 2 )
        Player.angle.z# = atanfull( get ground height( 1 , CastRightX# , CastRightZ# ) - get ground height( 1 , CastLeftX# , CastLeftZ# ) , 2 )
        Player.angle.x# = wrapvalue( 0 - Player.angle.x# )
    //endif

I don't know why its not working like you think but does this work as intended when you take those checks out?

Back to top

Profile PM Website

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 26th May 2012 12:40 Edited at: 26th May 2012 12:42

Link

Quote: "I changed it to this and it seems to work/follow the terrain correctly."

Not really ...it doesn't move as smooth as the Sparky's example. There is something strange that makes it shaky. There are several ways to achieve this effect....this is not a criticism, as the other example of TheComet works great, but in my example, I compare player height with just two more points (left and front), as presumably if we check at left and this point is lower than player then I roll object left (player height - left_height) ....if it is the case that left check is higher than player, then I roll it to the right....the same for the front checking, if the front is higher than player, I pitch object up and if it is lower I pith object down (in my example I use point objetc to an assistant hidden object). I think that if we make test front back left right, the response of the object would be the same, but maybe that will make it tremble.

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 26th May 2012 13:20 Edited at: 26th May 2012 13:20

Link

Quote: "...it doesn't move as smooth as the Sparky's example. There is something strange that makes it shaky."

Oh that's just because I didn't add the smoothing functions yet.

The problem is that the rotations are correct when the player is moving at Player.angle.y# = 0, but as soon as you start moving in another direction, this happens:

TheComet

TimePlan : https://docs.google.com/spreadsheet/ccc?key=0AmuAKJolqASndEVYOWMxb3l2OWV0UkV1anRSczZScHc

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Get slope of terrain