Vertex position and calculation... little help please

Author

Message

paul5147

20

Years of Service

User Offline

Joined: 11th Jan 2006

Location: Hot & Sunny

Posted: 31st May 2011 07:08

Link

Its a sparky`s collision dll command,i assumed thats how you would pick the polygon faces for your editing code as its the fastest way to get the vertex collision data you would need for this project of yours.

Back to top

Profile PM

Daryn Alsup

18

Years of Service

User Offline

Joined: 5th Jul 2008

Location: In your head... dun dun DUN!!!!!!!!

Posted: 1st Jun 2011 22:34

Link

well actually since the editing would be done in mesh data, I figured that after I make the meshdata following a memblock reconfiguration - that would arrange polys appropriately. IE, pick placing vertices in the memblock to automatically make the correct polys per plane, and a little seam work for the edges - I am not using sparkys

Jack and Jill went up a hill to fetch a pale of water... but Jill got tired of his s#%& so she shot him.

Back to top

Profile PM Email Website

paul5147

20

Years of Service

User Offline

Joined: 11th Jan 2006

Location: Hot & Sunny

Posted: 3rd Jun 2011 21:34

Link

Well i sugest you download it and give it a try,its free and makes what your trying so much easier,take a look at the code snippet below,its so easy to do vertex manipulation with,you dont even need to wory about memblock meshes, you can do it with the vertex data comands in real time,upto a point,and that is,trying to build meshes in real time just to bring the poly count down isnt allways the best way to speed things up.
It can take longer to edit a mesh data and rebuild the object than to just display the original.

`Ianm´s Matrix1 & Sparky´s Collision DLL´s test
`======================
`P Parkinson
`======================
`Main Source File

SYNC ON
SYNC RATE 0
AUTOCAM OFF
COLOR BACKDROP 0, 0
SET TEXT FONT "Arial"
SET TEXT SIZE 12
SET TEXT TRANSPARENT
HIDE MOUSE 
SET AMBIENT LIGHT 0

SET POINT LIGHT 0,0,500,0
SET LIGHT RANGE 0,5000

POSITION CAMERA 50,50,-100
POINT CAMERA 0,0,0

`column and row size
GLOBAL sz AS INTEGER=64

`actual object size to be created centred at 0,0,0 when created
GLOBAL obj_sz AS FLOAT=255.0

`array to hold the height data
DIM map_data(sz,sz) AS FLOAT

`ianm matrix1 command
MAKE OBJECT PLAIN 1,obj_sz,obj_sz,sz,sz,338
`set object wireframe 1,1

`make initial map
hmap_fractal()

LOCK VERTEXDATA FOR LIMB 1,0
poly=0
FOR z=0 TO sz
	FOR x=0 TO sz
		set_vertex_hight(poly,map_data(x,z))
		INC poly
	NEXT x
NEXT z
UNLOCK VERTEXDATA
SET OBJECT NORMALS 1

`add the landcsape to the collision data
SC_SETUPCOMPLEXOBJECT 1,0,2

`make object to use for raycasting
MAKE OBJECT CUBE 10000,1
HIDE OBJECT 10000

`make object to use for marker
MAKE OBJECT CUBE 10001,1
COLOR OBJECT 10001,RGB(255,0,0)

DO
	
	`make a new map
	`allways remove the old collision data then re add it once any updates are made
	IF SPACEKEY()
		SC_REMOVEOBJECT 1
		LOCK VERTEXDATA FOR LIMB 1,0
		poly=0
		hmap_fractal()
		FOR z=0 TO 64
			FOR x=0 TO 64
				set_vertex_hight(poly,map_data(x,z))
				INC poly
			NEXT x
		NEXT z
		UNLOCK VERTEXDATA
		SET OBJECT NORMALS 1
		SC_SETUPCOMPLEXOBJECT 1,0,2
	ENDIF
	
	`check for raycast to landscape and place marker
	raycast_landscape()
	
	IF INKEY$()="l" THEN lower_land()
	IF INKEY$()="r" THEN raise_land()
	IF INKEY$()="t" THEN create_texture()
	IF INKEY$()="s"
		SAVE OBJECT "land.dbo",1
		SAVE IMAGE "texture.bmp",1
	ENDIF
	mousecontrol(1.0)
	TEXT 0,0,"Press Space To Re-build The Landscape"
	TEXT 0,15,"Screen FPS "+STR$(SCREEN FPS())
	TEXT 0,30,"Mouse To Look Around - LMB/RMB To Zoom In/Out"
	TEXT 0,45,"´l´ To Lower Land ´r´ To Raise Land"
	TEXT 0,60,"´t´ To Texture Map"
	SYNC
	
LOOP

FUNCTION MouseControl(Speed AS FLOAT)
	
	XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
	YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
	IF MOUSECLICK()=1 THEN MOVE CAMERA Speed
	IF MOUSECLICK()=2 THEN MOVE CAMERA (0-Speed)
	
	r=MOUSEMOVEX()
	r=MOUSEMOVEY()
	
ENDFUNCTION

FUNCTION set_vertex_hight(p,h#)
	
	SET VERTEXDATA POSITION p,GET VERTEXDATA POSITION X(p),h#/10.0,GET VERTEXDATA POSITION Z(p)
	IF h#>=30 THEN SET VERTEXDATA DIFFUSE p,RGB(h#,255,h#)
	IF h#<30 THEN SET VERTEXDATA DIFFUSE p,RGB(255-h#,255-h#,0)
ENDFUNCTION

FUNCTION hmap_fractal()
`thanks to who ever did this code,had it so long,and it never fails to work for me
	av AS FLOAT
	rn AS FLOAT
	s=sz  ` units and array size; must be a power of 2
	rn=0.07  ` bigger numbers = smoother, smaller = spikier
	smt=1  ` how many times to smooth matrix
	DIM a(s,s,1) AS FLOAT
	` do the diamond square algorithm
	` paying special attention to wrapping around
	c=s
	REPEAT
	   FOR z=0 TO (s-c) STEP c
	      FOR x=0 TO (s-c) STEP c
	         av=(a(x,z)+a(x+c,z)+a(x,z+c)+a(x+c,z+c))/4.0
	         av=av+((-50+RND(100))/rn)
	         a(x+(c/2),z+(c/2))=av
	      NEXT x
	   NEXT z
	   w=1
	   FOR z=0 TO (s-(c/2)) STEP (c/2)
	      FOR x=0 TO (s-c) STEP c
	         x2=x+(w*(c/2))
	         av=a(x2,z+(c/2))+a(x2+(c/2),z)
	         IF x2=0
	            av=av+a(s-(c/2),z)
	         ELSE
	            av=av+a(x2-(c/2),z)
	         ENDIF
	         IF z=0
	            av=av+a(x2,s-(c/2))
	         ELSE
	            av=av+a(x2,z-(c/2))
	         ENDIF
	         av=av/4.0
	         av=av+((-50+RND(100))/rn)
	         a(x2,z,0)=av
	         IF x2=0 THEN a(s,z,0)=av
	         IF z=0 THEN a(x2,s,0)=av
	      NEXT x
	      w=1-w
	   NEXT z
	   c=c/2
	   rn=rn*2.0
	UNTIL c < 2
	
	` smooth the result
	FOR multiple=1 TO smt
	   FOR x=0 TO s-1
	      x2=x-1 : IF x2 < 0 THEN x2=s-1
	      FOR z=0 TO s-1
	         z2=z-1 : IF z2 < 0 THEN z2=s-1
	         v1#=a(x2,z+1,0)
	         v2#=a(x,z+1,0)
	         v3#=a(x+1,z+1,0)
	         v4#=a(x+1,z,0)
	         v5#=a(x+1,z2,0)
	         v6#=a(x,z2,0)
	         v7#=a(x2,z2,0)
	         v8#=a(x2,z,0)
	         av#=(v1#+v2#+v3#+v4#+v5#+v6#+v7#+v8#)/8.0
	         a(x,z,0)=av#
	      NEXT z
	   NEXT x
	   FOR f=0 TO s
	      a(s,f,0)=a(0,f,0)
	      a(f,s,0)=a(f,0,0)
	   NEXT f
	NEXT multiple
	
	`find min/max height
	minh#=5000:maxh#=-5000
	FOR z=0 TO sz
	   FOR x=0 TO sz
	      IF a(x,z,0)<minh# THEN minh#=a(x,z,0)
	      IF a(x,z,0)>maxh# THEN maxh#=a(x,z,0)
	   NEXT x
	NEXT z
	
	` raise it up so the lowest point is>=0
	FOR z=0 TO sz
	   FOR x=0 TO sz
	      av=a(x,z,0)
	      IF minh#<0 THEN map_data(x,z)=av+ABS(minh#)
	      IF minh#>=0 THEN map_data(x,z)=av-minh#
	     NEXT x
	NEXT z
	
	`find new maxh
	maxh#=-5000
	FOR z=0 TO sz
	   FOR x=0 TO sz
	      IF map_data(x,z)>maxh# THEN maxh#=map_data(x,z)
	   NEXT x
	NEXT z
	
	`set at 0 to 255
	IF maxh#>255
		d#=maxh#/255.0
		FOR z=0 TO sz
		   FOR x=0 TO sz
		      map_data(x,z)=map_data(x,z,)/d#
		   NEXT x
		NEXT z
	ENDIF

ENDFUNCTION

FUNCTION needed_for_sparkys()
	
	IF MEMBLOCK EXIST(1)
		
	ENDIF
	
ENDFUNCTION

FUNCTION raycast_landscape()
	
	POSITION OBJECT 10000,CAMERA POSITION X(),CAMERA POSITION Y(),CAMERA POSITION Z()
	SET OBJECT TO CAMERA ORIENTATION 10000
	MOVE OBJECT 10000,10000
	hit=SC_RAYCAST(0,CAMERA POSITION X(),CAMERA POSITION Y(),CAMERA POSITION Z(),OBJECT POSITION X(10000),OBJECT POSITION Y(10000),OBJECT POSITION Z(10000),0)
	IF hit>0
		cx# = SC_GETSTATICCOLLISIONX() : nx# = SC_GETCOLLISIONNORMALX()
     	cy# = SC_GETSTATICCOLLISIONY() : ny# = SC_GETCOLLISIONNORMALY()
      cz# = SC_GETSTATICCOLLISIONZ() : nz# = SC_GETCOLLISIONNORMALZ()
		POSITION OBJECT 10001,cx#,cy#,cz#
      POINT OBJECT 10001,cx#+(nx#*1000),cy#+(ny#*1000),cz#+(nz#*1000)
	ENDIF
	
ENDFUNCTION

FUNCTION lower_land()
	
	TEXTURE OBJECT 1,0
	``this is the marker object position
	x#=OBJECT POSITION X(10001)
	y#=OBJECT POSITION Y(10001)
	z#=OBJECT POSITION Z(10001)
	``quick bit of maths to change the real world object position to the closest vertex in the data
	st#=obj_sz/sz
	x#=x#+(obj_sz/2.0)+obj_sz/sz/2.0
	z#=obj_sz-z#
	z#=z#-(obj_sz/2.0)+obj_sz/sz/2.0
	
	vx=x#/st#
	vz=z#/st#
	TEXT 0,30,"vx "+STR$(vx)+" vz "+STR$(vz)
	
	`radius around center of explosion 
	`change the data to add a crater based on the positions above
	RESTORE crater:
	FOR z=-3 TO 3
		FOR x=-3 TO 3
			READ hd
			IF vx+x>=0 AND vx+x<=sz AND vz+z>=0 AND vz+z<=sz
				map_data(vx+x,vz+z)=map_data(vx+x,vz+z)-hd
				IF map_data(vx+x,vz+z)<0 THEN map_data(vx+x,vz+z)=0
			ENDIF
		NEXT x
	NEXT z
	
	`modify the vertex data for the object
	SC_REMOVEOBJECT 1
	LOCK VERTEXDATA FOR LIMB 1,0
	poly=0
	FOR z=0 TO 64
		FOR x=0 TO 64
			IF GET VERTEXDATA POSITION X(poly)<>map_data(x,z)
				set_vertex_hight(poly,map_data(x,z))
			ENDIF
			INC poly
		NEXT x
	NEXT z
	UNLOCK VERTEXDATA
	SET OBJECT NORMALS 1
	SC_SETUPCOMPLEXOBJECT 1,0,2
	
ENDFUNCTION

FUNCTION raise_land()
	
	TEXTURE OBJECT 1,0
	x#=OBJECT POSITION X(10001)
	y#=OBJECT POSITION Y(10001)
	z#=OBJECT POSITION Z(10001)
	
	st#=obj_sz/sz
	x#=x#+(obj_sz/2.0)+obj_sz/sz/2.0
	z#=obj_sz-z#
	z#=z#-(obj_sz/2.0)+obj_sz/sz/2.0
	
	vx=x#/st#
	vz=z#/st#
	
	`radius around center of explosion
	RESTORE crater:
	FOR z=-3 TO 3
		FOR x=-3 TO 3
			READ hd
			IF vx+x>=0 AND vx+x<=sz AND vz+z>=0 AND vz+z<=sz
				map_data(vx+x,vz+z)=map_data(vx+x,vz+z)+hd
				IF map_data(vx+x,vz+z)>255 THEN map_data(vx+x,vz+z)=255
			ENDIF
		NEXT x
	NEXT z
	
	SC_REMOVEOBJECT 1
	LOCK VERTEXDATA FOR LIMB 1,0
	poly=0
	FOR z=0 TO 64
		FOR x=0 TO 64
			IF GET VERTEXDATA POSITION X(poly)<>map_data(x,z)
				set_vertex_hight(poly,map_data(x,z))
			ENDIF
			INC poly
		NEXT x
	NEXT z
	UNLOCK VERTEXDATA
	SET OBJECT NORMALS 1
	SC_SETUPCOMPLEXOBJECT 1,0,2
	
ENDFUNCTION

crater:
DATA 0,1,2,4,2,1,0
DATA 1,2,4,8,4,2,1
DATA 2,4,8,10,8,4,2
DATA 4,8,10,15,10,8,4
DATA 2,4,8,10,8,4,2
DATA 1,2,4,8,4,2,1
DATA 0,1,2,4,2,1,0

FUNCTION create_texture()
	
	`make tiles
	`sand grass rock
	make_sprite(235,180,50,1000):SPRITE 1,-128,-128,1000
	make_sprite(205,128,50,1001):SPRITE 2,-128,-128,1001
	make_sprite(128,sz,50,1002):SPRITE 3,-128,-128,1002
	make_sprite(0,200,0,1003):SPRITE 4,-128,-128,1003
	make_sprite(0,128,0,1004):SPRITE 5,-128,-128,1004
	make_sprite(0,sz,0,1005):SPRITE 6,-128,-128,1005
	make_sprite(30,30,30,1006):SPRITE 7,-128,-128,1006
	make_sprite(70,70,70,1007):SPRITE 8,-128,-128,1007
	make_sprite(120,120,120,1008):SPRITE 9,-128,-128,1008
	make_sprite(170,170,170,1009):SPRITE 10,-128,-128,1009
	make_sprite(220,220,220,1010):SPRITE 11,-128,-128,1010
	
	CREATE BITMAP 1,sz*10,sz*10
	offset=RND(5)
	SET CURRENT BITMAP 1
	FOR t=1 TO 1
		FOR z=0 TO sz
			FOR x=0 TO sz
				IF map_data(x,z)>0+offset AND map_data(x,z)<20+offset
					ROTATE SPRITE 1,RND(90)
					PASTE SPRITE 1,x*10,z*10
				ENDIF
				IF map_data(x,z)>20+offset AND map_data(x,z)<40+offset
					ROTATE SPRITE 2,RND(90)
					PASTE SPRITE 2,x*10,z*10
				ENDIF
				IF map_data(x,z)>40+offset AND map_data(x,z)<60+offset
					ROTATE SPRITE 3,RND(90)
					PASTE SPRITE 3,x*10,z*10
				ENDIF
				IF map_data(x,z)>60+offset AND map_data(x,z)<100+offset
					ROTATE SPRITE 4,RND(90)
					PASTE SPRITE 4,x*10,z*10
				ENDIF
				IF map_data(x,z)>100+offset AND map_data(x,z)<130+offset
					ROTATE SPRITE 5,RND(90)
					PASTE SPRITE 5,x*10,z*10
				ENDIF
				IF map_data(x,z)>130+offset AND map_data(x,z)<160+offset
					ROTATE SPRITE 6,RND(90)
					PASTE SPRITE 6,x*10,z*10
				ENDIF
				IF map_data(x,z)>160+offset AND map_data(x,z)<190+offset
					ROTATE SPRITE 7,RND(90)
					PASTE SPRITE 7,x*10,z*10
				ENDIF
				IF map_data(x,z)>190+offset AND map_data(x,z)<210+offset
					ROTATE SPRITE 8,RND(90)
					PASTE SPRITE 8,x*10,z*10
				ENDIF
				IF map_data(x,z)>210+offset AND map_data(x,z)<230+offset
					ROTATE SPRITE 9,RND(90)
					PASTE SPRITE 9,x*10,z*10
				ENDIF
				IF map_data(x,z)>230+offset AND map_data(x,z)<300+offset
					ROTATE SPRITE 10,RND(90)
					PASTE SPRITE 10,x*10,z*10
				ENDIF
			NEXT x
		NEXT z
	NEXT t
	
	IF IMAGE EXIST(1) THEN DELETE IMAGE 1
	GET IMAGE 1,0,0,sz*10,sz*10	
	SET CURRENT BITMAP 0
	TEXTURE OBJECT 1,1
	
ENDFUNCTION

FUNCTION make_sprite(r#,g#,b#,image_num)
		
	IF BITMAP EXIST(1) THEN DELETE BITMAP 1
	SET BITMAP FORMAT 21
	CREATE BITMAP 1,128,128
	SET CURRENT BITMAP 1
	SET IMAGE COLORKEY 0,0,0
	FOR l=1 TO 1000
		x=RND(128)
		z=RND(128)
		DOT x,z,RGB(r#,g#,b#)
	NEXT l
	FOR l=1 TO 1000
		x=RND(128)
		z=RND(128)
		col#=RND(30)
		r2#=r#+col#
		IF r2#>255 THEN r2#=255
		IF r2#<0 THEN r2#=0
		g2#=g#+col#
		IF g2#>255 THEN g2#=255
		IF g2#<0 THEN g2#=0
		b2#=b#+col#
		IF b2#>255 THEN b2#=255
		IF b2#<0 THEN b2#=0
		DOT x,z,RGB(r2#,g2#,b2#)
	NEXT l
	FOR l=1 TO 100
		x=RND(128)
		z=RND(128)
		col#=RND(50)+50
		r2#=col#
		g2#=col#
		b2#=col#
		DOT x,z,RGB(r2#,g2#,b2#)
	NEXT l
	GET IMAGE image_num,0,0,128,128
	SET CURRENT BITMAP 0
	
ENDFUNCTION

+ Code Snippet

`Ianm´s Matrix1 & Sparky´s Collision DLL´s test
`======================
`P Parkinson
`======================
`Main Source File

SYNC ON
SYNC RATE 0
AUTOCAM OFF
COLOR BACKDROP 0, 0
SET TEXT FONT "Arial"
SET TEXT SIZE 12
SET TEXT TRANSPARENT
HIDE MOUSE 
SET AMBIENT LIGHT 0

SET POINT LIGHT 0,0,500,0
SET LIGHT RANGE 0,5000

POSITION CAMERA 50,50,-100
POINT CAMERA 0,0,0

`column and row size
GLOBAL sz AS INTEGER=64

`actual object size to be created centred at 0,0,0 when created
GLOBAL obj_sz AS FLOAT=255.0

`array to hold the height data
DIM map_data(sz,sz) AS FLOAT

`ianm matrix1 command
MAKE OBJECT PLAIN 1,obj_sz,obj_sz,sz,sz,338
`set object wireframe 1,1

`make initial map
hmap_fractal()

LOCK VERTEXDATA FOR LIMB 1,0
poly=0
FOR z=0 TO sz
	FOR x=0 TO sz
		set_vertex_hight(poly,map_data(x,z))
		INC poly
	NEXT x
NEXT z
UNLOCK VERTEXDATA
SET OBJECT NORMALS 1

`add the landcsape to the collision data
SC_SETUPCOMPLEXOBJECT 1,0,2

`make object to use for raycasting
MAKE OBJECT CUBE 10000,1
HIDE OBJECT 10000

`make object to use for marker
MAKE OBJECT CUBE 10001,1
COLOR OBJECT 10001,RGB(255,0,0)

DO
	
	`make a new map
	`allways remove the old collision data then re add it once any updates are made
	IF SPACEKEY()
		SC_REMOVEOBJECT 1
		LOCK VERTEXDATA FOR LIMB 1,0
		poly=0
		hmap_fractal()
		FOR z=0 TO 64
			FOR x=0 TO 64
				set_vertex_hight(poly,map_data(x,z))
				INC poly
			NEXT x
		NEXT z
		UNLOCK VERTEXDATA
		SET OBJECT NORMALS 1
		SC_SETUPCOMPLEXOBJECT 1,0,2
	ENDIF
	
	`check for raycast to landscape and place marker
	raycast_landscape()
	
	IF INKEY$()="l" THEN lower_land()
	IF INKEY$()="r" THEN raise_land()
	IF INKEY$()="t" THEN create_texture()
	IF INKEY$()="s"
		SAVE OBJECT "land.dbo",1
		SAVE IMAGE "texture.bmp",1
	ENDIF
	mousecontrol(1.0)
	TEXT 0,0,"Press Space To Re-build The Landscape"
	TEXT 0,15,"Screen FPS "+STR$(SCREEN FPS())
	TEXT 0,30,"Mouse To Look Around - LMB/RMB To Zoom In/Out"
	TEXT 0,45,"´l´ To Lower Land ´r´ To Raise Land"
	TEXT 0,60,"´t´ To Texture Map"
	SYNC
	
LOOP


FUNCTION MouseControl(Speed AS FLOAT)
	
	XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
	YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
	IF MOUSECLICK()=1 THEN MOVE CAMERA Speed
	IF MOUSECLICK()=2 THEN MOVE CAMERA (0-Speed)
	
	r=MOUSEMOVEX()
	r=MOUSEMOVEY()
	
ENDFUNCTION

FUNCTION set_vertex_hight(p,h#)
	
	SET VERTEXDATA POSITION p,GET VERTEXDATA POSITION X(p),h#/10.0,GET VERTEXDATA POSITION Z(p)
	IF h#>=30 THEN SET VERTEXDATA DIFFUSE p,RGB(h#,255,h#)
	IF h#<30 THEN SET VERTEXDATA DIFFUSE p,RGB(255-h#,255-h#,0)
ENDFUNCTION

FUNCTION hmap_fractal()
`thanks to who ever did this code,had it so long,and it never fails to work for me
	av AS FLOAT
	rn AS FLOAT
	s=sz  ` units and array size; must be a power of 2
	rn=0.07  ` bigger numbers = smoother, smaller = spikier
	smt=1  ` how many times to smooth matrix
	DIM a(s,s,1) AS FLOAT
	` do the diamond square algorithm
	` paying special attention to wrapping around
	c=s
	REPEAT
	   FOR z=0 TO (s-c) STEP c
	      FOR x=0 TO (s-c) STEP c
	         av=(a(x,z)+a(x+c,z)+a(x,z+c)+a(x+c,z+c))/4.0
	         av=av+((-50+RND(100))/rn)
	         a(x+(c/2),z+(c/2))=av
	      NEXT x
	   NEXT z
	   w=1
	   FOR z=0 TO (s-(c/2)) STEP (c/2)
	      FOR x=0 TO (s-c) STEP c
	         x2=x+(w*(c/2))
	         av=a(x2,z+(c/2))+a(x2+(c/2),z)
	         IF x2=0
	            av=av+a(s-(c/2),z)
	         ELSE
	            av=av+a(x2-(c/2),z)
	         ENDIF
	         IF z=0
	            av=av+a(x2,s-(c/2))
	         ELSE
	            av=av+a(x2,z-(c/2))
	         ENDIF
	         av=av/4.0
	         av=av+((-50+RND(100))/rn)
	         a(x2,z,0)=av
	         IF x2=0 THEN a(s,z,0)=av
	         IF z=0 THEN a(x2,s,0)=av
	      NEXT x
	      w=1-w
	   NEXT z
	   c=c/2
	   rn=rn*2.0
	UNTIL c < 2
	
	` smooth the result
	FOR multiple=1 TO smt
	   FOR x=0 TO s-1
	      x2=x-1 : IF x2 < 0 THEN x2=s-1
	      FOR z=0 TO s-1
	         z2=z-1 : IF z2 < 0 THEN z2=s-1
	         v1#=a(x2,z+1,0)
	         v2#=a(x,z+1,0)
	         v3#=a(x+1,z+1,0)
	         v4#=a(x+1,z,0)
	         v5#=a(x+1,z2,0)
	         v6#=a(x,z2,0)
	         v7#=a(x2,z2,0)
	         v8#=a(x2,z,0)
	         av#=(v1#+v2#+v3#+v4#+v5#+v6#+v7#+v8#)/8.0
	         a(x,z,0)=av#
	      NEXT z
	   NEXT x
	   FOR f=0 TO s
	      a(s,f,0)=a(0,f,0)
	      a(f,s,0)=a(f,0,0)
	   NEXT f
	NEXT multiple
	
	`find min/max height
	minh#=5000:maxh#=-5000
	FOR z=0 TO sz
	   FOR x=0 TO sz
	      IF a(x,z,0)<minh# THEN minh#=a(x,z,0)
	      IF a(x,z,0)>maxh# THEN maxh#=a(x,z,0)
	   NEXT x
	NEXT z
	
	` raise it up so the lowest point is>=0
	FOR z=0 TO sz
	   FOR x=0 TO sz
	      av=a(x,z,0)
	      IF minh#<0 THEN map_data(x,z)=av+ABS(minh#)
	      IF minh#>=0 THEN map_data(x,z)=av-minh#
	     NEXT x
	NEXT z
	
	`find new maxh
	maxh#=-5000
	FOR z=0 TO sz
	   FOR x=0 TO sz
	      IF map_data(x,z)>maxh# THEN maxh#=map_data(x,z)
	   NEXT x
	NEXT z
	
	`set at 0 to 255
	IF maxh#>255
		d#=maxh#/255.0
		FOR z=0 TO sz
		   FOR x=0 TO sz
		      map_data(x,z)=map_data(x,z,)/d#
		   NEXT x
		NEXT z
	ENDIF

ENDFUNCTION

FUNCTION needed_for_sparkys()
	
	IF MEMBLOCK EXIST(1)
		
	ENDIF
	
ENDFUNCTION

FUNCTION raycast_landscape()
	
	POSITION OBJECT 10000,CAMERA POSITION X(),CAMERA POSITION Y(),CAMERA POSITION Z()
	SET OBJECT TO CAMERA ORIENTATION 10000
	MOVE OBJECT 10000,10000
	hit=SC_RAYCAST(0,CAMERA POSITION X(),CAMERA POSITION Y(),CAMERA POSITION Z(),OBJECT POSITION X(10000),OBJECT POSITION Y(10000),OBJECT POSITION Z(10000),0)
	IF hit>0
		cx# = SC_GETSTATICCOLLISIONX() : nx# = SC_GETCOLLISIONNORMALX()
     	cy# = SC_GETSTATICCOLLISIONY() : ny# = SC_GETCOLLISIONNORMALY()
      cz# = SC_GETSTATICCOLLISIONZ() : nz# = SC_GETCOLLISIONNORMALZ()
		POSITION OBJECT 10001,cx#,cy#,cz#
      POINT OBJECT 10001,cx#+(nx#*1000),cy#+(ny#*1000),cz#+(nz#*1000)
	ENDIF
	
ENDFUNCTION

FUNCTION lower_land()
	
	TEXTURE OBJECT 1,0
	``this is the marker object position
	x#=OBJECT POSITION X(10001)
	y#=OBJECT POSITION Y(10001)
	z#=OBJECT POSITION Z(10001)
	``quick bit of maths to change the real world object position to the closest vertex in the data
	st#=obj_sz/sz
	x#=x#+(obj_sz/2.0)+obj_sz/sz/2.0
	z#=obj_sz-z#
	z#=z#-(obj_sz/2.0)+obj_sz/sz/2.0
	
	vx=x#/st#
	vz=z#/st#
	TEXT 0,30,"vx "+STR$(vx)+" vz "+STR$(vz)
	
	`radius around center of explosion 
	`change the data to add a crater based on the positions above
	RESTORE crater:
	FOR z=-3 TO 3
		FOR x=-3 TO 3
			READ hd
			IF vx+x>=0 AND vx+x<=sz AND vz+z>=0 AND vz+z<=sz
				map_data(vx+x,vz+z)=map_data(vx+x,vz+z)-hd
				IF map_data(vx+x,vz+z)<0 THEN map_data(vx+x,vz+z)=0
			ENDIF
		NEXT x
	NEXT z
	
	`modify the vertex data for the object
	SC_REMOVEOBJECT 1
	LOCK VERTEXDATA FOR LIMB 1,0
	poly=0
	FOR z=0 TO 64
		FOR x=0 TO 64
			IF GET VERTEXDATA POSITION X(poly)<>map_data(x,z)
				set_vertex_hight(poly,map_data(x,z))
			ENDIF
			INC poly
		NEXT x
	NEXT z
	UNLOCK VERTEXDATA
	SET OBJECT NORMALS 1
	SC_SETUPCOMPLEXOBJECT 1,0,2
	
ENDFUNCTION

FUNCTION raise_land()
	
	TEXTURE OBJECT 1,0
	x#=OBJECT POSITION X(10001)
	y#=OBJECT POSITION Y(10001)
	z#=OBJECT POSITION Z(10001)
	
	st#=obj_sz/sz
	x#=x#+(obj_sz/2.0)+obj_sz/sz/2.0
	z#=obj_sz-z#
	z#=z#-(obj_sz/2.0)+obj_sz/sz/2.0
	
	vx=x#/st#
	vz=z#/st#
	
	`radius around center of explosion
	RESTORE crater:
	FOR z=-3 TO 3
		FOR x=-3 TO 3
			READ hd
			IF vx+x>=0 AND vx+x<=sz AND vz+z>=0 AND vz+z<=sz
				map_data(vx+x,vz+z)=map_data(vx+x,vz+z)+hd
				IF map_data(vx+x,vz+z)>255 THEN map_data(vx+x,vz+z)=255
			ENDIF
		NEXT x
	NEXT z
	
	SC_REMOVEOBJECT 1
	LOCK VERTEXDATA FOR LIMB 1,0
	poly=0
	FOR z=0 TO 64
		FOR x=0 TO 64
			IF GET VERTEXDATA POSITION X(poly)<>map_data(x,z)
				set_vertex_hight(poly,map_data(x,z))
			ENDIF
			INC poly
		NEXT x
	NEXT z
	UNLOCK VERTEXDATA
	SET OBJECT NORMALS 1
	SC_SETUPCOMPLEXOBJECT 1,0,2
	
ENDFUNCTION

crater:
DATA 0,1,2,4,2,1,0
DATA 1,2,4,8,4,2,1
DATA 2,4,8,10,8,4,2
DATA 4,8,10,15,10,8,4
DATA 2,4,8,10,8,4,2
DATA 1,2,4,8,4,2,1
DATA 0,1,2,4,2,1,0

FUNCTION create_texture()
	
	`make tiles
	`sand grass rock
	make_sprite(235,180,50,1000):SPRITE 1,-128,-128,1000
	make_sprite(205,128,50,1001):SPRITE 2,-128,-128,1001
	make_sprite(128,sz,50,1002):SPRITE 3,-128,-128,1002
	make_sprite(0,200,0,1003):SPRITE 4,-128,-128,1003
	make_sprite(0,128,0,1004):SPRITE 5,-128,-128,1004
	make_sprite(0,sz,0,1005):SPRITE 6,-128,-128,1005
	make_sprite(30,30,30,1006):SPRITE 7,-128,-128,1006
	make_sprite(70,70,70,1007):SPRITE 8,-128,-128,1007
	make_sprite(120,120,120,1008):SPRITE 9,-128,-128,1008
	make_sprite(170,170,170,1009):SPRITE 10,-128,-128,1009
	make_sprite(220,220,220,1010):SPRITE 11,-128,-128,1010
	
	CREATE BITMAP 1,sz*10,sz*10
	offset=RND(5)
	SET CURRENT BITMAP 1
	FOR t=1 TO 1
		FOR z=0 TO sz
			FOR x=0 TO sz
				IF map_data(x,z)>0+offset AND map_data(x,z)<20+offset
					ROTATE SPRITE 1,RND(90)
					PASTE SPRITE 1,x*10,z*10
				ENDIF
				IF map_data(x,z)>20+offset AND map_data(x,z)<40+offset
					ROTATE SPRITE 2,RND(90)
					PASTE SPRITE 2,x*10,z*10
				ENDIF
				IF map_data(x,z)>40+offset AND map_data(x,z)<60+offset
					ROTATE SPRITE 3,RND(90)
					PASTE SPRITE 3,x*10,z*10
				ENDIF
				IF map_data(x,z)>60+offset AND map_data(x,z)<100+offset
					ROTATE SPRITE 4,RND(90)
					PASTE SPRITE 4,x*10,z*10
				ENDIF
				IF map_data(x,z)>100+offset AND map_data(x,z)<130+offset
					ROTATE SPRITE 5,RND(90)
					PASTE SPRITE 5,x*10,z*10
				ENDIF
				IF map_data(x,z)>130+offset AND map_data(x,z)<160+offset
					ROTATE SPRITE 6,RND(90)
					PASTE SPRITE 6,x*10,z*10
				ENDIF
				IF map_data(x,z)>160+offset AND map_data(x,z)<190+offset
					ROTATE SPRITE 7,RND(90)
					PASTE SPRITE 7,x*10,z*10
				ENDIF
				IF map_data(x,z)>190+offset AND map_data(x,z)<210+offset
					ROTATE SPRITE 8,RND(90)
					PASTE SPRITE 8,x*10,z*10
				ENDIF
				IF map_data(x,z)>210+offset AND map_data(x,z)<230+offset
					ROTATE SPRITE 9,RND(90)
					PASTE SPRITE 9,x*10,z*10
				ENDIF
				IF map_data(x,z)>230+offset AND map_data(x,z)<300+offset
					ROTATE SPRITE 10,RND(90)
					PASTE SPRITE 10,x*10,z*10
				ENDIF
			NEXT x
		NEXT z
	NEXT t
	
	IF IMAGE EXIST(1) THEN DELETE IMAGE 1
	GET IMAGE 1,0,0,sz*10,sz*10	
	SET CURRENT BITMAP 0
	TEXTURE OBJECT 1,1
	
ENDFUNCTION

FUNCTION make_sprite(r#,g#,b#,image_num)
		
	IF BITMAP EXIST(1) THEN DELETE BITMAP 1
	SET BITMAP FORMAT 21
	CREATE BITMAP 1,128,128
	SET CURRENT BITMAP 1
	SET IMAGE COLORKEY 0,0,0
	FOR l=1 TO 1000
		x=RND(128)
		z=RND(128)
		DOT x,z,RGB(r#,g#,b#)
	NEXT l
	FOR l=1 TO 1000
		x=RND(128)
		z=RND(128)
		col#=RND(30)
		r2#=r#+col#
		IF r2#>255 THEN r2#=255
		IF r2#<0 THEN r2#=0
		g2#=g#+col#
		IF g2#>255 THEN g2#=255
		IF g2#<0 THEN g2#=0
		b2#=b#+col#
		IF b2#>255 THEN b2#=255
		IF b2#<0 THEN b2#=0
		DOT x,z,RGB(r2#,g2#,b2#)
	NEXT l
	FOR l=1 TO 100
		x=RND(128)
		z=RND(128)
		col#=RND(50)+50
		r2#=col#
		g2#=col#
		b2#=col#
		DOT x,z,RGB(r2#,g2#,b2#)
	NEXT l
	GET IMAGE image_num,0,0,128,128
	SET CURRENT BITMAP 0
	
ENDFUNCTION

uncapped this runs at over a 1000fps on my netbook,but a slightly modified version that has 16X16 tiles and only updates the meshes that are needed each loop (max of 4) soon drops this to only a 100fps,but simply displaying the 16x16 tiles it stays at over 500.
Poly count is not the ultimate way of speeding up your games.

Back to top

Profile PM

Daryn Alsup

18

Years of Service

User Offline

Joined: 5th Jul 2008

Location: In your head... dun dun DUN!!!!!!!!

Posted: 9th Jun 2011 02:33 Edited at: 9th Jun 2011 02:38

Link

alright, changing the plane size to 512, the segment count per plane to 64 and the number of planes to 32 = (8ft x 8ft per segment, 8*512*32=131,072 units. 131,072/5280 (or one mile in feet) = 24.824... miles) I need it bigger, perhaps using this method of creating large plane objects and using an array to store them, I could do the same thing over and over again, hide them when they're out of camera sight/range.

Plane set 1
code for 32 planes each 512 units big and with 64 segments each
plane set 2
code for 32 planes each 512 units big and with 64 segments each
Plane set 3
...
Plane set 4
...
Plane set 5
...
...
...
Plane set 10
...

What is the limit for DBPro and the number of vertices that can be drawn? is there a limit to how many vertices can be created? - I am shooting for a minimum of 100 miles and a maximum of 500 miles (sq Miles)

edit:
Also - I have a terrain shader that I like to use, is there any way to fog the plains like so... image attatched.

Jack and Jill went up a hill to fetch a pale of water... but Jill got tired of his s#%& so she shot him.

Back to top

Profile PM Email Website

paul5147

20

Years of Service

User Offline

Joined: 11th Jan 2006

Location: Hot & Sunny

Posted: 9th Jun 2011 21:52 Edited at: 9th Jun 2011 22:02

Link

Dont know for sure if theres a vertex limit for the whole scene,it may depend on your video memory,but there is as far as i know a limit per object of 65536 which could be a grid of 256*256,but i`ve never tried making one that big.
Is the view your going to give the user of this world from a fixed point or do they have free movement to explore from any angle and position.If its fixed you could cheat and only show say a 3x3 grid of the actual area on view and flat planes of all the surounding areas textured to give the effect of detail at a distance from the camera.You would then only have to hide/unhide a max of 5 tiles.It would be like a 2d tile engine in a way but with multiple layers,but yould only show the most detailed layer when up close.Thinking about it,it could be done without a fixed view as long as you couldnt move too far from the scene to show up many more than the 3x3 grid tiles or it would spoil the illusion.

Edit:
See from your image you decided to give sparkys a try,but as for the fog GG is probably the man for shader type questions around here.Or have a search through the how to wright shaders post that was sticked on here somewhere,if no help then look into any of Evolveds shaders,theres a website of his thats packed with some realy good shaders that are easy to follow and make work.

Back to top

Profile PM

Daryn Alsup

18

Years of Service

User Offline

Joined: 5th Jul 2008

Location: In your head... dun dun DUN!!!!!!!!

Posted: 10th Jun 2011 07:07

Link

So what I'm doing is, on the set of planes - cities will grow, based on the distance from the camera (camera range) the fog will cut off which objects are displayed on the screen - including terrain, buildings and so fourth - basically anything that is beyond the camera range will not be rendered to the camera - BUT, the movement of the camera will extend from the max distance to the max negative distance for the set of planes - while the distance from each plane will have a max (since I'm not making a 3d sphere out of planes, we don't want the user to zoom out so far that the camera range hides everything, yet we also want to prevent the camera from intercepting the terrain and objects on it at an ubber close range), so to be blunt:

1) The camera can only zoom in and out a max of "X" based on the camera's range
2) The camera must move to various areas like traveling from and to other cities.

Jack and Jill went up a hill to fetch a pale of water... but Jill got tired of his s#%& so she shot him.

Back to top

Profile PM Email Website

Daryn Alsup

18

Years of Service

User Offline

Joined: 5th Jul 2008

Location: In your head... dun dun DUN!!!!!!!!

Posted: 11th Jun 2011 08:23 Edited at: 12th Jun 2011 21:09

Link

G.G.!!! I figured out the serious lag, and Paul you've managed to show me how to get rid of it - or at least part of it.

The initial lag is due to the pick commands - primarily pick object. Because we have so many planes and we're scanning to see the 3d location from a 2d location on EACH plane, the frame rate suffers a severe blow! - removing the pick commands solved the problem as Paul's method proves - and, by manipulating it further, my frame rate increased significantly.

The final part of the lag is due to... (yes, G.G. - you were right) the shader.

I need to first - figure out how to change the location of pauls target object and allow it to follow the mouse position, then through some method, use collision detection to find which objects are closest to the marker object manipulated by the mouse - those objects will be scanned rather than the 1024 (32*32 plane square) currently entering into the loop.

Paul, if you can help me figure this out I will give you cookies.

G.G., I need to find a terrain shader that uses fog to use while terraforming. Something that uses four or more textures but doesn't use normal mapping in the shader, just the "normal" normal procedure. If you can direct me in writing or creating/finding one, i will give you a cake

Jack and Jill went up a hill to fetch a pale of water... but Jill got tired of his s#%& so she shot him.

Back to top

Profile PM Email Website

Daryn Alsup

18

Years of Service

User Offline

Joined: 5th Jul 2008

Location: In your head... dun dun DUN!!!!!!!!

Posted: 19th Jun 2011 22:36

Link

Okay here's an update which I am very happy about

1) I am going to use this method for different projects - (I bet this is news to any programmer

)

2) If I used it for an RPG, the scale of the landscape would be much smaller, but because I am using it for a sim, each grid square will equal about 100 sq. feet. At that ratio, and with the planes being 512.0 units in size, each with 32x32 segments (512*32 plane segments*32 plane segments * 100 ft = Holy S***!!!/ 5280ft [[or one mile]])= Nearly 10,000 square miles. WOW!!!!!!!!!!!!

Here's the code, adapted for non-media use. Running on my machine (with a gig of ram and not the best v-card in the world) @ 55-45 frames a sec during non-edit mode and 44-34 during edit mode.

NOTE - I ahve reduced the grid unit scale size from 100 ft to 10 ft for this exercise - total size is 32 planes by 32 planes - each plane 512 units long and across, each with 32 segments by 32 segments.

Rem Project: tested adpt of terraform
Rem Created: Monday, June 06, 2011

Rem ***** Main Source File *****

`enviroment set up

IF CHECK DISPLAY MODE(1440,900,32) 
	
if ANTIALIAS AVAILABLE()=1
	SET DISPLAY MODE 1440,900,32, 1, 2, 0
	endif
	if ANTIALIAS AVAILABLE()=0
	SET DISPLAY MODE 1440,900,32,1
	endif
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-512
	posy=h/2-384
ELSE
if ANTIALIAS AVAILABLE()=1
	SET DISPLAY MODE 640,480,32, 1, 2, 0
	endif
	if ANTIALIAS AVAILABLE()=1
		SET DISPLAY MODE 640,480,32, 1,
	ENDIF
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-320
	posy=h/2-240
ENDIF

SYNC ON
SYNC RATE 60
AUTOCAM OFF
`HIDE MOUSE

COLOR BACKDROP 0,0
SET TEXT FONT "Arial"
SET TEXT SIZE 12
SET TEXT TRANSPARENT
SET CAMERA RANGE 1,1500
POSITION CAMERA 50,50,-50
POINT CAMERA 0,0,0
POSITION MOUSE SCREEN WIDTH()/2,SCREEN HEIGHT()/2
dummy=MOUSEMOVEX()
dummy=MOUSEMOVEY()
SET TEXT SIZE 20
SET TEXT TO BOLD
ink RGB(255,0,0), RGB(0,0,0)
CENTER TEXT screen width()/2, SCREEN HEIGHT()/2-150, "PLEASE WAIT DURING SET UP"
SET TEXT SIZE 16
SET TEXT TO NORMAL
ink RGB(255,255,255), RGB(0,0,0)
CENTER TEXT screen width()/2, SCREEN HEIGHT()/2-90, "• Right Click to rotate the camera"
CENTER TEXT screen width()/2, SCREEN HEIGHT()/2-75, "• Use the Up and Down keys or mouse scroll to zoom in and out"
CENTER TEXT screen width()/2, SCREEN HEIGHT()/2-60, "• Use the Left Click to raise terrain. Hold shift while clicking to increase the size of the edit area"
CENTER TEXT screen width()/2, SCREEN HEIGHT()/2-45, "• Right Click to rotate the camera"
CENTER TEXT screen width()/2, SCREEN HEIGHT()/2+45, "Press any key to continue"
SYNC 
SYNC
WAIT INPUT

`LOAD EFFECT "Shaders\TerrainTexture.fx", 1, 1, 0
`LOAD IMAGE "Shaders\Grass2.jpg", 1, 1
`LOAD IMAGE "Shaders\Grassy Rock.jpg", 2, 1
`LOAD IMAGE "Shaders\Ice Cliff.jpg", 3, 1
`LOAD IMAGE "Shaders\Snow.jpg", 4, 1
`LOAD IMAGE "Shaders\grid2.bmp", 5, 1

`*********************************	
`declarations and setup starts here

`*********************************
`make the objects that make up the landscape and set up the size variables

`column and row size
GLOBAL sz AS INTEGER=64
`actual object size to be created centred at 0,0,0 when created
GLOBAL obj_sz AS FLOAT=512.0
`how many tiles per row/col
GLOBAL tile_sz AS INTEGER=32`change this to 256 and watch what happens
`first object
GLOBAL lod_first_obj AS INTEGER
`array for object terraforming
global dim objNums(8)
cls

MaxSize#=tile_sz*tile_sz

FOR y=0 TO tile_sz
	FOR x=0 TO tile_sz
		obj=free_object()
		IF x=0 AND y=0 THEN lod_first_obj=obj
		`ianm matrix1 command
		MAKE OBJECT PLAIN obj,obj_sz,obj_sz,sz,sz,338
		`SET OBJECT EFFECT obj, 1
		`TEXTURE OBJECT obj, 0, 4
		`TEXTURE OBJECT obj, 1, 3
		`TEXTURE OBJECT obj, 2, 2
		`TEXTURE OBJECT obj, 3, 1
		`TEXTURE OBJECT obj, 0, 5
		`SCALE OBJECT TEXTURE obj, tile_sz, tile_sz
COLOR OBJECT obj, rgb(128,128,128)
		`SET OBJECT WIREFRAME obj,1	
		POSITION OBJECT obj,x*obj_sz,0,y*obj_sz
		SC_SETUPCOMPLEXOBJECT obj,0,2
		hide object obj
		inc AmountOfObj#
		Inc Percent

Box#=(Percent/MaxSize#)*100
					If Box#<99.9
			ink RGB(255,255,255), RGB(0,0,0)
CENTER TEXT SCREEN WIDTH()/2, SCREEN HEIGHT()/2, str$(int((obj_sz*(Percent)*10)/5280))+" Sq. Miles - "+Str$(int(Box#))+"% Completed"
box SCREEN WIDTH()/2-50, SCREEN HEIGHT()/2-20, SCREEN WIDTH()/2-50+int(box#), SCREEN HEIGHT()/2-25, RGB(0, 128, 255), RGB(100, 200, 255), RGB(20, 128, 255), RGB(0, 120, 255)
BOX OUTLINE SCREEN WIDTH()/2-52, SCREEN HEIGHT()/2-19, SCREEN WIDTH()/2+52, SCREEN HEIGHT()/2-27, RGB(255,255,255)
endif

If Box#=>100.0
	Box#=100.0
	CENTER TEXT SCREEN WIDTH()/2, SCREEN HEIGHT()/2, "Finalizing "+str$(int((obj_sz*(Maxsize#)*10)/5280))+" Sq. Miles - "+"Please Wait A Few Seconds..."
ENDIF
		sync
	NEXT x
NEXT y

`show a completion screen
sync
CENTER TEXT SCREEN WIDTH()/2, SCREEN HEIGHT()/2, "COMPLETE!"
sync
wait 0500

gtime=250
Bright#=0.85+(sin(Timer()/Gtime)*0.8)
`SET EFFECT CONSTANT FLOAT 1, "UVTilingX ", 32.0
`SET EFFECT CONSTANT FLOAT 1, "UVTilingY ", 32.0
`SET EFFECT CONSTANT FLOAT 1, "shadow", Bright#
`SET EFFECT CONSTANT FLOAT 1, "FogRed", RGBR(BGColor)
`SET EFFECT CONSTANT FLOAT 1, "FogGreen", RGBG(BGColor)
`SET EFFECT CONSTANT FLOAT 1, "FogBlue", RGBB(BGColor)

`SET EFFECT CONSTANT FLOAT 1, "fogHeight", FHeight#
`SET EFFECT CONSTANT FLOAT 1, "fogClearing", Clearing#

for Check=1 to int(AmountofObj#)
	SHOW OBJECT check
NEXT

`make object to use for raycasting
GLOBAL ray_cast_obj_target
ray_cast_obj_target=free_object()
MAKE OBJECT CUBE ray_cast_obj_target,1
HIDE OBJECT ray_cast_obj_target

`make object to use for marker
GLOBAL ray_cast_obj_marker
ray_cast_obj_marker=free_object()
MAKE OBJECT CUBE ray_cast_obj_marker,2
COLOR OBJECT ray_cast_obj_marker,RGB(255,0,0)

GLOBAL cx AS FLOAT
GLOBAL cy AS FLOAT
GLOBAL cz AS FLOAT
GLOBAL col_obj AS INTEGER
GLOBAL nx AS FLOAT
GLOBAL ny AS FLOAT
GLOBAL nz AS FLOAT
GLOBAL face_hit AS INTEGER

`*********************************
`main loop starts here
DO
	
DistObPick#=GET PICK DISTANCE()
PICK SCREEN MouseX(), MouseY(), DistToObj#
PickX#=GET PICK VECTOR X()+CAMERA POSITION X()
PickY#=GET PICK VECTOR Y()+CAMERA POSITION Y()
PickZ#=GET PICK VECTOR Z()+CAMERA POSITION Z()

`check for raycast to landscape and place marker
	raycast_landscape(PickX#, PickY#, PickZ#)
	DistToObj#=SC_getCollisionDistance() 
ObjectNumber2=SC_getObjectHit () 
	
	remstart
if keystate(34)=1 and ControlKEY()=0
SET EFFECT CONSTANT FLOAT 1, "GOpacity", 0.2
endif

if keystate(34)=1 and ControlKey()=1
SET EFFECT CONSTANT FLOAT 1, "GOpacity", 0.0
endif
remend

`show or hide the marker depending on collision
	IF col_obj>0
		SHOW OBJECT ray_cast_obj_marker
	ELSE
		HIDE OBJECT ray_cast_obj_marker
	ENDIF
	
	`move the camera
	mouse_control(1.0)
	
	`display info
	TEXT 0,0,"marker on object "+STR$(col_obj)
	TEXT 0,20,"At Position x="+STR$(PickX#)+" y="+STR$(Pick#)+" z="+STR$(PickZ#)
	TEXT 0,40,"screen fps="+STR$(SCREEN FPS())
	TEXT 0,60,"object face hit="+STR$(face_hit)
	
	If MouseClick()=1
		DistObPick#=GET PICK DISTANCE()
		PICK SCREEN MouseX(), MouseY(), DistToObj#
PickX#=GET PICK VECTOR X()+CAMERA POSITION X()
PickY#=GET PICK VECTOR Y()+CAMERA POSITION Y()
PickZ#=GET PICK VECTOR Z()+CAMERA POSITION Z()
		ObjectNumber2=SC_getObjectHit () 
		raycast_landscape(PickX#, PickY#, PickZ#)
If ShiftKey()=1 and ControlKey()=0
Multiplier#=3.0
endif
If ControlKey()=1 and ShiftKey()=0
Multiplier#=0.5
endif
If Shiftkey()=0 and ControlKey()=0
Multiplier#=1.0
endif
	
		 if Objectnumber2>0
    objNums(0) = ObjectNumber2
    objNums(1) = ObjectNumber2 + 1
    objNums(2) = ObjectNumber2 - 1
    objNums(3) = ObjectNumber2 + tile_sz
    objNums(4) = ObjectNumber2 + tile_sz + 1
    objNums(5) = ObjectNumber2 + tile_sz - 1
    objNums(6) = ObjectNumber2 - tile_sz
    objNums(7) = ObjectNumber2 - tile_sz + 1
    objNums(8) = ObjectNumber2 - tile_sz - 1
	ENDIF
	
	 for obj = 0 to 8
    reCalculateNormals = 0
      if objNums(obj) > 0 and objNums(obj) <= tile_sz*tile_sz
      LOCK VERTEXDATA FOR LIMB objNums(obj), 0
      Vcount=GET VERTEXDATA VERTEX COUNT()-1
        For Array=0 to Vcount
          VerX#=GET VERTEXDATA POSITION X(Array)
          VerY#=GET VERTEXDATA POSITION Y(Array)
          VerZ#=GET VERTEXDATA POSITION Z(Array)
			
          `calculate the correct vertices on the object to check against the others
          tempX# = VerX# + OBJECT POSITION X(objNums(obj))
          tempY# = VerY# + OBJECT POSITION Y(objNums(obj))
          tempZ# = VerZ# + OBJECT POSITION Z(objNums(obj))

Dist#=Distance#(length, TempX#, TempY#, TempZ#, PickX#, PickY#, PickZ#)
                    Ab=rnd(2)
          if Ab=0 then added#=-0.5
          if Ab=1 then added#=0.5
          if Ab=2 then added# = 0
                    AC=rnd(2)
          if Ac=0 then addedb#=-0.5
          if Ac=1 then addedb#=0.5
          if Ac=2 then addedb# = 0
          
          If vector exist(100)=0 then TempVector=MAKE VECTOR3(100)
          If vector exist(101)=0 then TempPickVector=MAKE VECTOR3(101)
          If vector exist(102)=0 then ResultVector=MAKE VECTOR3(102)
          SET VECTOR3 100, OBJECT POSITION X(objNums(obj)), OBJECT POSITION Y(objNums(obj)), OBJECT POSITION Z(objNums(obj))
          SET VECTOR3 101, PickX#, PickY#, PickZ#
          
          `the results of the vector math:
          SUBTRACT VECTOR3 102, 100, 101
          if X VECTOR3(100)-OBJECT SIZE X(objNums(obj))>-0.5 and X VECTOR3(100)+OBJECT SIZE X(objNums(obj))<0.5 then added#=0.0 and addedB#=0.0
          if y VECTOR3(100)-OBJECT SIZE y(objNums(obj))>-0.5 and y VECTOR3(100)+OBJECT SIZE y(objNums(obj))<0.5 then added#=0.0 and addedB#=0.0
          if z VECTOR3(100)-OBJECT SIZE z(objNums(obj))>-0.5 and z VECTOR3(100)+OBJECT SIZE z(objNums(obj))<0.5 then added#=0.0 and addedB#=0.0
          
                    If Dist#<100.0*Multiplier#
          IncAmount#=cos(Dist#/Multiplier#)*10.0+Added#
          endif
         
          If Dist#>100.0*Multiplier# or Dist#=<0.0*Multiplier#
            incAmount# = 0.0
          endif

if incAmount# > 0.0 then SET VERTEXDATA POSITION Array, VerX#, VerY# + incAmount#, VerZ# : reCalculateNormals = 1
                  
       NEXT ARRAY
     UNLOCK VERTEXDATA
     if reCalculateNormals=1
     SET OBJECT NORMALS objNums(obj)
     reCalculateNormals=0
     endif
     endif
   next obj
 endif
	
	SYNC
LOOP

`*********************************
`functions start here
FUNCTION mouse_control(speed AS FLOAT)
	if mouseclick()=2
	XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
	YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
	endif
	dummy=MOUSEMOVEX()
	dummy=MOUSEMOVEY()
	IF UPKEY()=1 THEN MOVE CAMERA speed
	IF DOWNKEY()=1 THEN MOVE CAMERA (0-speed)
Newmousez = MousemoveZ()
	If oldmousez <> newmousez
	
		If oldmousez < newmousez
		mousezz=speed*5
		endif
		
		If oldmousez > newmousez
		mousezz=-speed*5
		endif
		MOVE CAMERA mousezz
Oldmousez=Mousemovez()
Mousezz=0
endif
raycast_landscape(pickX#, PickY#, PickZ#)
ENDFUNCTION

//FUNCTION mouse_control(Speed AS FLOAT)
//	IF SPACEKEY()
//		XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
//		YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
//	ENDIF
//	IF msz>MOUSEZ() THEN MOVE CAMERA Speed:msz=MOUSEZ()
//	IF msz<MOUSEZ() THEN MOVE CAMERA (0-Speed):msz=MOUSEZ()
//	r=MOUSEMOVEX()
//	r=MOUSEMOVEY()
//
//ENDFUNCTION

FUNCTION free_object()
	REPEAT
		INC i 
		IF OBJECT EXIST(i)=0 THEN found=1
	UNTIL found
ENDFUNCTION i

FUNCTION raycast_landscape(X#, Y#, Z#)
	POSITION OBJECT ray_cast_obj_target,CAMERA POSITION X(),CAMERA POSITION Y(),CAMERA POSITION Z()
	SET OBJECT TO CAMERA ORIENTATION ray_cast_obj_target
	MOVE OBJECT ray_cast_obj_target,10000
	col_obj=SC_RAYCAST(0,CAMERA POSITION X(),CAMERA POSITION Y(),CAMERA POSITION Z(),OBJECT POSITION X(ray_cast_obj_target),OBJECT POSITION Y(ray_cast_obj_target),OBJECT POSITION Z(ray_cast_obj_target),0)
	IF col_obj>0
		cx = SC_GETSTATICCOLLISIONX() : nx = SC_GETCOLLISIONNORMALX()
     	cy = SC_GETSTATICCOLLISIONY() : ny = SC_GETCOLLISIONNORMALY()
      cz = SC_GETSTATICCOLLISIONZ() : nz = SC_GETCOLLISIONNORMALZ()
		POSITION OBJECT ray_cast_obj_marker,X#,Y#,Z#
      POINT OBJECT ray_cast_obj_marker,X#+(nx*1000),Y#+(ny*1000),Z#+(nz*1000)
      face_hit=SC_GETFACEHIT()
	ELSE 
		cx=0.0
		cy=0.0
		cz=0.0
		nx=0.0
		ny=0.0
		nz=0.0
		face_hit=0
	ENDIF
ENDFUNCTION

Function Distance#(VecNum, x1#, y1#, z1#, x2#,  y2#, z2#)
if VECTOR EXIST(vecnum)=0
	Temporary=MAKE VECTOR3(vecnum)
ENDIF

set vector3 VecNum, x2# - x1#, y2# - y1#, z2# - z1#
dist# = length vector3(VecNum)
EndFunction dist#

FUNCTION needed_for_sparkys()
	IF MEMBLOCK EXIST(1)
		
	ENDIF
ENDFUNCTION

+ Code Snippet

Rem Project: tested adpt of terraform
Rem Created: Monday, June 06, 2011

Rem ***** Main Source File *****

`enviroment set up

IF CHECK DISPLAY MODE(1440,900,32) 
	
if ANTIALIAS AVAILABLE()=1
	SET DISPLAY MODE 1440,900,32, 1, 2, 0
	endif
	if ANTIALIAS AVAILABLE()=0
	SET DISPLAY MODE 1440,900,32,1
	endif
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-512
	posy=h/2-384
ELSE
if ANTIALIAS AVAILABLE()=1
	SET DISPLAY MODE 640,480,32, 1, 2, 0
	endif
	if ANTIALIAS AVAILABLE()=1
		SET DISPLAY MODE 640,480,32, 1,
	ENDIF
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-320
	posy=h/2-240
ENDIF


SYNC ON
SYNC RATE 60
AUTOCAM OFF
`HIDE MOUSE

COLOR BACKDROP 0,0
SET TEXT FONT "Arial"
SET TEXT SIZE 12
SET TEXT TRANSPARENT
SET CAMERA RANGE 1,1500
POSITION CAMERA 50,50,-50
POINT CAMERA 0,0,0
POSITION MOUSE SCREEN WIDTH()/2,SCREEN HEIGHT()/2
dummy=MOUSEMOVEX()
dummy=MOUSEMOVEY()
SET TEXT SIZE 20
SET TEXT TO BOLD
ink RGB(255,0,0), RGB(0,0,0)
CENTER TEXT screen width()/2, SCREEN HEIGHT()/2-150, "PLEASE WAIT DURING SET UP"
SET TEXT SIZE 16
SET TEXT TO NORMAL
ink RGB(255,255,255), RGB(0,0,0)
CENTER TEXT screen width()/2, SCREEN HEIGHT()/2-90, "• Right Click to rotate the camera"
CENTER TEXT screen width()/2, SCREEN HEIGHT()/2-75, "• Use the Up and Down keys or mouse scroll to zoom in and out"
CENTER TEXT screen width()/2, SCREEN HEIGHT()/2-60, "• Use the Left Click to raise terrain. Hold shift while clicking to increase the size of the edit area"
CENTER TEXT screen width()/2, SCREEN HEIGHT()/2-45, "• Right Click to rotate the camera"
CENTER TEXT screen width()/2, SCREEN HEIGHT()/2+45, "Press any key to continue"
SYNC 
SYNC
WAIT INPUT

`LOAD EFFECT "Shaders\TerrainTexture.fx", 1, 1, 0
`LOAD IMAGE "Shaders\Grass2.jpg", 1, 1
`LOAD IMAGE "Shaders\Grassy Rock.jpg", 2, 1
`LOAD IMAGE "Shaders\Ice Cliff.jpg", 3, 1
`LOAD IMAGE "Shaders\Snow.jpg", 4, 1
`LOAD IMAGE "Shaders\grid2.bmp", 5, 1

`*********************************	
`declarations and setup starts here

`*********************************
`make the objects that make up the landscape and set up the size variables

`column and row size
GLOBAL sz AS INTEGER=64
`actual object size to be created centred at 0,0,0 when created
GLOBAL obj_sz AS FLOAT=512.0
`how many tiles per row/col
GLOBAL tile_sz AS INTEGER=32`change this to 256 and watch what happens
`first object
GLOBAL lod_first_obj AS INTEGER
`array for object terraforming
global dim objNums(8)
cls

MaxSize#=tile_sz*tile_sz

FOR y=0 TO tile_sz
	FOR x=0 TO tile_sz
		obj=free_object()
		IF x=0 AND y=0 THEN lod_first_obj=obj
		`ianm matrix1 command
		MAKE OBJECT PLAIN obj,obj_sz,obj_sz,sz,sz,338
		`SET OBJECT EFFECT obj, 1
		`TEXTURE OBJECT obj, 0, 4
		`TEXTURE OBJECT obj, 1, 3
		`TEXTURE OBJECT obj, 2, 2
		`TEXTURE OBJECT obj, 3, 1
		`TEXTURE OBJECT obj, 0, 5
		`SCALE OBJECT TEXTURE obj, tile_sz, tile_sz
COLOR OBJECT obj, rgb(128,128,128)
		`SET OBJECT WIREFRAME obj,1	
		POSITION OBJECT obj,x*obj_sz,0,y*obj_sz
		SC_SETUPCOMPLEXOBJECT obj,0,2
		hide object obj
		inc AmountOfObj#
		Inc Percent

					Box#=(Percent/MaxSize#)*100
					If Box#<99.9
			ink RGB(255,255,255), RGB(0,0,0)
CENTER TEXT SCREEN WIDTH()/2, SCREEN HEIGHT()/2, str$(int((obj_sz*(Percent)*10)/5280))+" Sq. Miles - "+Str$(int(Box#))+"% Completed"
box SCREEN WIDTH()/2-50, SCREEN HEIGHT()/2-20, SCREEN WIDTH()/2-50+int(box#), SCREEN HEIGHT()/2-25, RGB(0, 128, 255), RGB(100, 200, 255), RGB(20, 128, 255), RGB(0, 120, 255)
BOX OUTLINE SCREEN WIDTH()/2-52, SCREEN HEIGHT()/2-19, SCREEN WIDTH()/2+52, SCREEN HEIGHT()/2-27, RGB(255,255,255)
endif

If Box#=>100.0
	Box#=100.0
	CENTER TEXT SCREEN WIDTH()/2, SCREEN HEIGHT()/2, "Finalizing "+str$(int((obj_sz*(Maxsize#)*10)/5280))+" Sq. Miles - "+"Please Wait A Few Seconds..."
ENDIF
		sync
	NEXT x
NEXT y

`show a completion screen
sync
CENTER TEXT SCREEN WIDTH()/2, SCREEN HEIGHT()/2, "COMPLETE!"
sync
wait 0500

gtime=250
Bright#=0.85+(sin(Timer()/Gtime)*0.8)
`SET EFFECT CONSTANT FLOAT 1, "UVTilingX ", 32.0
`SET EFFECT CONSTANT FLOAT 1, "UVTilingY ", 32.0
`SET EFFECT CONSTANT FLOAT 1, "shadow", Bright#
`SET EFFECT CONSTANT FLOAT 1, "FogRed", RGBR(BGColor)
`SET EFFECT CONSTANT FLOAT 1, "FogGreen", RGBG(BGColor)
`SET EFFECT CONSTANT FLOAT 1, "FogBlue", RGBB(BGColor)

`SET EFFECT CONSTANT FLOAT 1, "fogHeight", FHeight#
`SET EFFECT CONSTANT FLOAT 1, "fogClearing", Clearing#

for Check=1 to int(AmountofObj#)
	SHOW OBJECT check
NEXT



`make object to use for raycasting
GLOBAL ray_cast_obj_target
ray_cast_obj_target=free_object()
MAKE OBJECT CUBE ray_cast_obj_target,1
HIDE OBJECT ray_cast_obj_target

`make object to use for marker
GLOBAL ray_cast_obj_marker
ray_cast_obj_marker=free_object()
MAKE OBJECT CUBE ray_cast_obj_marker,2
COLOR OBJECT ray_cast_obj_marker,RGB(255,0,0)

GLOBAL cx AS FLOAT
GLOBAL cy AS FLOAT
GLOBAL cz AS FLOAT
GLOBAL col_obj AS INTEGER
GLOBAL nx AS FLOAT
GLOBAL ny AS FLOAT
GLOBAL nz AS FLOAT
GLOBAL face_hit AS INTEGER

`*********************************
`main loop starts here
DO
	
DistObPick#=GET PICK DISTANCE()
PICK SCREEN MouseX(), MouseY(), DistToObj#
PickX#=GET PICK VECTOR X()+CAMERA POSITION X()
PickY#=GET PICK VECTOR Y()+CAMERA POSITION Y()
PickZ#=GET PICK VECTOR Z()+CAMERA POSITION Z()

	`check for raycast to landscape and place marker
	raycast_landscape(PickX#, PickY#, PickZ#)
	DistToObj#=SC_getCollisionDistance() 
ObjectNumber2=SC_getObjectHit () 
	
	remstart
if keystate(34)=1 and ControlKEY()=0
SET EFFECT CONSTANT FLOAT 1, "GOpacity", 0.2
endif

if keystate(34)=1 and ControlKey()=1
SET EFFECT CONSTANT FLOAT 1, "GOpacity", 0.0
endif
remend

	`show or hide the marker depending on collision
	IF col_obj>0
		SHOW OBJECT ray_cast_obj_marker
	ELSE
		HIDE OBJECT ray_cast_obj_marker
	ENDIF
	
	`move the camera
	mouse_control(1.0)
	
	`display info
	TEXT 0,0,"marker on object "+STR$(col_obj)
	TEXT 0,20,"At Position x="+STR$(PickX#)+" y="+STR$(Pick#)+" z="+STR$(PickZ#)
	TEXT 0,40,"screen fps="+STR$(SCREEN FPS())
	TEXT 0,60,"object face hit="+STR$(face_hit)
	
	If MouseClick()=1
		DistObPick#=GET PICK DISTANCE()
		PICK SCREEN MouseX(), MouseY(), DistToObj#
PickX#=GET PICK VECTOR X()+CAMERA POSITION X()
PickY#=GET PICK VECTOR Y()+CAMERA POSITION Y()
PickZ#=GET PICK VECTOR Z()+CAMERA POSITION Z()
		ObjectNumber2=SC_getObjectHit () 
		raycast_landscape(PickX#, PickY#, PickZ#)
If ShiftKey()=1 and ControlKey()=0
Multiplier#=3.0
endif
If ControlKey()=1 and ShiftKey()=0
Multiplier#=0.5
endif
If Shiftkey()=0 and ControlKey()=0
Multiplier#=1.0
endif
	
		 if Objectnumber2>0
    objNums(0) = ObjectNumber2
    objNums(1) = ObjectNumber2 + 1
    objNums(2) = ObjectNumber2 - 1
    objNums(3) = ObjectNumber2 + tile_sz
    objNums(4) = ObjectNumber2 + tile_sz + 1
    objNums(5) = ObjectNumber2 + tile_sz - 1
    objNums(6) = ObjectNumber2 - tile_sz
    objNums(7) = ObjectNumber2 - tile_sz + 1
    objNums(8) = ObjectNumber2 - tile_sz - 1
	ENDIF
	
	 for obj = 0 to 8
    reCalculateNormals = 0
      if objNums(obj) > 0 and objNums(obj) <= tile_sz*tile_sz
      LOCK VERTEXDATA FOR LIMB objNums(obj), 0
      Vcount=GET VERTEXDATA VERTEX COUNT()-1
        For Array=0 to Vcount
          VerX#=GET VERTEXDATA POSITION X(Array)
          VerY#=GET VERTEXDATA POSITION Y(Array)
          VerZ#=GET VERTEXDATA POSITION Z(Array)
			
          `calculate the correct vertices on the object to check against the others
          tempX# = VerX# + OBJECT POSITION X(objNums(obj))
          tempY# = VerY# + OBJECT POSITION Y(objNums(obj))
          tempZ# = VerZ# + OBJECT POSITION Z(objNums(obj))

          Dist#=Distance#(length, TempX#, TempY#, TempZ#, PickX#, PickY#, PickZ#)
                    Ab=rnd(2)
          if Ab=0 then added#=-0.5
          if Ab=1 then added#=0.5
          if Ab=2 then added# = 0
                    AC=rnd(2)
          if Ac=0 then addedb#=-0.5
          if Ac=1 then addedb#=0.5
          if Ac=2 then addedb# = 0
          
          If vector exist(100)=0 then TempVector=MAKE VECTOR3(100)
          If vector exist(101)=0 then TempPickVector=MAKE VECTOR3(101)
          If vector exist(102)=0 then ResultVector=MAKE VECTOR3(102)
          SET VECTOR3 100, OBJECT POSITION X(objNums(obj)), OBJECT POSITION Y(objNums(obj)), OBJECT POSITION Z(objNums(obj))
          SET VECTOR3 101, PickX#, PickY#, PickZ#
          
          `the results of the vector math:
          SUBTRACT VECTOR3 102, 100, 101
          if X VECTOR3(100)-OBJECT SIZE X(objNums(obj))>-0.5 and X VECTOR3(100)+OBJECT SIZE X(objNums(obj))<0.5 then added#=0.0 and addedB#=0.0
          if y VECTOR3(100)-OBJECT SIZE y(objNums(obj))>-0.5 and y VECTOR3(100)+OBJECT SIZE y(objNums(obj))<0.5 then added#=0.0 and addedB#=0.0
          if z VECTOR3(100)-OBJECT SIZE z(objNums(obj))>-0.5 and z VECTOR3(100)+OBJECT SIZE z(objNums(obj))<0.5 then added#=0.0 and addedB#=0.0
          
                    If Dist#<100.0*Multiplier#
          IncAmount#=cos(Dist#/Multiplier#)*10.0+Added#
          endif
         
          If Dist#>100.0*Multiplier# or Dist#=<0.0*Multiplier#
            incAmount# = 0.0
          endif

          if incAmount# > 0.0 then SET VERTEXDATA POSITION Array, VerX#, VerY# + incAmount#, VerZ# : reCalculateNormals = 1
                  
       NEXT ARRAY
     UNLOCK VERTEXDATA
     if reCalculateNormals=1
     SET OBJECT NORMALS objNums(obj)
     reCalculateNormals=0
     endif
     endif
   next obj
 endif
	
	SYNC
LOOP

`*********************************
`functions start here
FUNCTION mouse_control(speed AS FLOAT)
	if mouseclick()=2
	XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
	YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
	endif
	dummy=MOUSEMOVEX()
	dummy=MOUSEMOVEY()
	IF UPKEY()=1 THEN MOVE CAMERA speed
	IF DOWNKEY()=1 THEN MOVE CAMERA (0-speed)
Newmousez = MousemoveZ()
	If oldmousez <> newmousez
	
		If oldmousez < newmousez
		mousezz=speed*5
		endif
		
		If oldmousez > newmousez
		mousezz=-speed*5
		endif
		MOVE CAMERA mousezz
Oldmousez=Mousemovez()
Mousezz=0
endif
raycast_landscape(pickX#, PickY#, PickZ#)
ENDFUNCTION

//FUNCTION mouse_control(Speed AS FLOAT)
//	IF SPACEKEY()
//		XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
//		YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
//	ENDIF
//	IF msz>MOUSEZ() THEN MOVE CAMERA Speed:msz=MOUSEZ()
//	IF msz<MOUSEZ() THEN MOVE CAMERA (0-Speed):msz=MOUSEZ()
//	r=MOUSEMOVEX()
//	r=MOUSEMOVEY()
//
//ENDFUNCTION 

FUNCTION free_object()
	REPEAT
		INC i 
		IF OBJECT EXIST(i)=0 THEN found=1
	UNTIL found
ENDFUNCTION i

FUNCTION raycast_landscape(X#, Y#, Z#)
	POSITION OBJECT ray_cast_obj_target,CAMERA POSITION X(),CAMERA POSITION Y(),CAMERA POSITION Z()
	SET OBJECT TO CAMERA ORIENTATION ray_cast_obj_target
	MOVE OBJECT ray_cast_obj_target,10000
	col_obj=SC_RAYCAST(0,CAMERA POSITION X(),CAMERA POSITION Y(),CAMERA POSITION Z(),OBJECT POSITION X(ray_cast_obj_target),OBJECT POSITION Y(ray_cast_obj_target),OBJECT POSITION Z(ray_cast_obj_target),0)
	IF col_obj>0
		cx = SC_GETSTATICCOLLISIONX() : nx = SC_GETCOLLISIONNORMALX()
     	cy = SC_GETSTATICCOLLISIONY() : ny = SC_GETCOLLISIONNORMALY()
      cz = SC_GETSTATICCOLLISIONZ() : nz = SC_GETCOLLISIONNORMALZ()
		POSITION OBJECT ray_cast_obj_marker,X#,Y#,Z#
      POINT OBJECT ray_cast_obj_marker,X#+(nx*1000),Y#+(ny*1000),Z#+(nz*1000)
      face_hit=SC_GETFACEHIT()
	ELSE 
		cx=0.0
		cy=0.0
		cz=0.0
		nx=0.0
		ny=0.0
		nz=0.0
		face_hit=0
	ENDIF
ENDFUNCTION

Function Distance#(VecNum, x1#, y1#, z1#, x2#,  y2#, z2#)
if VECTOR EXIST(vecnum)=0
	Temporary=MAKE VECTOR3(vecnum)
ENDIF	

set vector3 VecNum, x2# - x1#, y2# - y1#, z2# - z1#
dist# = length vector3(VecNum)
EndFunction dist#  	

FUNCTION needed_for_sparkys()
	IF MEMBLOCK EXIST(1)
		
	ENDIF
ENDFUNCTION

@paul5147 - I had to tweak the collision object to get it to terraform without the slow down from the pick commands - without any media, using the pick commands gave me 0 fps - ouch.

There is still an error somewhere - something to do with the distance and hill drawing - maybe the object array and vertex position reading and changing - but I will keep going at it - if you see the solution at a glance, please let me know.

Jack and Jill went up a hill to fetch a pale of water... but Jill got tired of his s#%& so she shot him.

Back to top

Profile PM Email Website

paul5147

20

Years of Service

User Offline

Joined: 11th Jan 2006

Location: Hot & Sunny

Posted: 20th Jun 2011 07:11

Link

Nice to see your making some progress Daryn,glad to see your sticking with sparkys for this,there are a few commands i think you should check up on though that may help you.
SC_UpdateObject,this tells sparkys that the mesh data has changed and it resets its collision data for that object.
It can be quicker sometimes though to delete the DBpro object and the SC_DeleteObject and simply do SC_SetUpComplexObject on the new tile.You may have to run a few tests to see which is quicker for you.

Back to top

Profile PM

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 20th Jun 2011 12:42

Link

Daryn Alsup

Just seen your recent posts and questions especially the 11 June one. Sorry I missed that.

Can you post a simple version of your program, i.e. code and media but not the exe file (takes up unnecessary space), and I'll see if fog can be added easily? Email it to me if you prefer. I don't have Sparky's collision dll - looks like it's about time I did though

.

There might be a delay in me looking at it as my desktop is ill at the moment (it's seeing the doctor on Wednesday

).

Regarding the vertex limit of 65536, I'm fairly sure that limit is per limb not per object. This means that very large objects can be split into limbs in DBPro. I've started work on a program that does that for you but it isn't complete yet. I'm not sure of the advantages of using many limbs rather than many objects. You get less control with limbs (some commands are only for objects and not limbs) but I think many limbs might have some performance advantages over many objects. I'm not sure though.

I vaguely recall there being a more obscure limit which depends on the vertex format and the extra structures required by shaders (i.e. tangents, binormals, etc). The moral there is that it's probably a good idea to stay well within the overall limit per limb.

Back to top

Profile PM Email

Daryn Alsup

18

Years of Service

User Offline

Joined: 5th Jul 2008

Location: In your head... dun dun DUN!!!!!!!!

Posted: 20th Jun 2011 21:15

Link

Well gg,

I am actually happy with my 512 sq unit sized plane, 32 by 32 planes, each with 32 by 32 segments (a grid face = 100 sq ft) that's like 9992 sq miles - size is fine. I was just curious as to whether there is a limit to total object made - not rendered. I can hide objects out of view.

As for vertex limit - there seems to be a problem when using arrays - I was thinking about writing an LUA file via DBPro function that stores locations of planes and groups the objects - replacing all the array data needed - it could include LODS to a finite size and push further than the array's max size - which is relatively low in comparison to this method of object drawing and manipulation.

BUT - alas - I am focusing on another thing at the moment lol - anyone familiar with NBC's "The Voice" - your's truly will be on the show for blind auditions

- I am filling my day with music at the moment and will be distancing myself. Since you guys have helped me out so much with this and given me hints and tips and bits of knowledge - here's a little music for s***'s and giggles - and then back to the topic

PS - GG, I emailed you so check it and see the exe there. not posting here - I can't through a mock up as of yet - things aren't even near finished - give me a week and I'll have a basic program for you guys to fool with.

Jack and Jill went up a hill to fetch a pale of water... but Jill got tired of his s#%& so she shot him.

Back to top

Profile PM Email Website

paul5147

20

Years of Service

User Offline

Joined: 11th Jan 2006

Location: Hot & Sunny

Posted: 20th Jun 2011 23:35 Edited at: 20th Jun 2011 23:36

Link

Hi Daryn,hope all goes well with the audition.
Thanks for the music,have a gift for you as well,check the code snippet when you get chance,it may give you a few more clues as to how to manipulate the vertex data,and from here its a very short jump to using sparkys to pick the point you want to modify rather than a random point this uses.

`%ProjectTitle%
`======================
`©P.Parkinson
`======================
`Main Source File

`*********************************
`enviroment set up

IF CHECK DISPLAY MODE(1024,768,32) 
	SET DISPLAY MODE 1024,768,32
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-512
	posy=h/2-384
ELSE
	SET DISPLAY MODE 640,480,32
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-320
	posy=h/2-240
ENDIF
SET WINDOW POSITION posx,posy

SYNC ON
SYNC RATE 60
AUTOCAM OFF
HIDE MOUSE
COLOR BACKDROP 0,0
SET TEXT FONT "Arial"
SET TEXT SIZE 12
SET TEXT TRANSPARENT

POSITION CAMERA 50,50,-50
POINT CAMERA 0,0,0
POSITION MOUSE SCREEN WIDTH()/2,SCREEN HEIGHT()/2
dummy=MOUSEMOVEX()
dummy=MOUSEMOVEY()

`*********************************	
`declarations and setup starts here

``null=MAKE VECTOR4(1)``used in normal generation routine

`set up the world
`*********************************************************************************************************************************
`the grid_x#,grid_z# is for the hole object data the objects are hard coded at
`present to a 64x64 size so it makes a 8 x 8 grid of objects if you leave them at 512
`if you change this then you will have to change the amount of objects created
`or how many rows each object is made from
GLOBAL grid_x#
GLOBAL grid_z#
grid_x#=512:grid_z#=512`keep these the same
`grid_size# is the size of each polygon used,this will scale the whole world but only the x,z plane so the hills will be more abrupt
`make the changes in the fractal generator function to smooth this out
GLOBAL grid_size#
grid_size#=8.0
GLOBAL u# AS DOUBLE FLOAT:GLOBAL v# AS DOUBLE FLOAT
`hard coded size to match land creation routine uv for texture mapping later
u#=1.0/64.0
v#=1.0/64.0

`set up the array to hold the height map and normal data for each vertex
DIM old_map_data(grid_x#,grid_z#,5) AS FLOAT
DIM new_map_data(grid_x#,grid_z#,5) AS FLOAT

`make a random hight map
RANDOMIZE TIMER()
hmap_fractal()`make random fractal height map these are tileable,be aware that if you clone the objects to increase the landscape size the
`normals of the cloned objects will NOT be smoothed TO match the adjoining tile along the edge of the other map,and the textures are not
`seamless,AND under some circumstances like the maps meeting at a large peek this may look quit odd

`calculate and average normals
GLOBAL avx#:GLOBAL avy#:GLOBAL avz#
null = MAKE VECTOR3(0)
null = MAKE VECTOR3(1)
null = MAKE VECTOR3(2)
null = MAKE VECTOR3(5)
null = MAKE VECTOR3(6)
null = MAKE VECTOR3(9)
null = MAKE VECTOR3(10)

`old_map_data(xpos,zpos,5) array is used like this
`(1)=height (2),(3),(4)=normal x,y,z this is the total for all the normals at that vertex (5)=number of vertex sharing that point
`devides (2),(3),(4) by (5) to get the averaged normal 
make_normals()

`find the max number of poly per object
GLOBAL max_num_poly
max_num_poly=64*64*2

`creates a memblock big enough to hold the data for each object
create_memblockobject(1,max_num_poly*3)

`builds all the data into objects starting from obj
obj=100`first object and image number

`find total number of objects
GLOBAL max_objects
max_objects=64
`this is the parts that are hard coded to suit the grid_x/grid_z values
`build the objects
FOR z=0 TO 7
	FOR x=0 TO 7
		build_memblockobject(obj,x*64,z*64,x*64+64,z*64+64)
		INC obj
	NEXT x
NEXT z

`copy data arrays
FOR z=0 TO grid_z#
	FOR x=0 TO grid_x#
		FOR l=1 TO 5
			new_map_data(x,z,l)=old_map_data(x,z,l)
		NEXT l
	NEXT x
NEXT z

`set up camera and lights
POSITION CAMERA 0,1000,0
POINT CAMERA 2000,0,2000
MAKE LIGHT 1
SET POINT LIGHT 1,(grid_x#*grid_size#)/2,(grid_x#*grid_size#)/2,(grid_z#*grid_size#)/2
SET LIGHT RANGE 1,(grid_x#*grid_size#)*5
HIDE LIGHT 0
SET AMBIENT LIGHT 0
MAKE OBJECT SPHERE 10000,-25
COLOR OBJECT 10000,RGB(255,255,0)
lx=LIGHT POSITION X(1)
ly=LIGHT POSITION Y(1)
lz=LIGHT POSITION Z(1)
POSITION OBJECT 10000,lx,ly,lz

`used for updating map data
GLOBAL changed AS INTEGER=0

`*********************************
`main loop starts here
DO
	
	IF SPACEKEY()
		changed=1
		RESTORE crater
		posx=RND(grid_x#)
		posz=RND(grid_z#)
		scale=rnd(6)
		FOR z=0 TO 6
			FOR x=0 to 6
				READ h
				h=h*scale
				IF posx+x<=grid_x# AND posz+z<=grid_z#
					dec new_map_data(posx+x,posz+z,1),h
				ENDIF
			NEXT x
		NEXT z
		
	ENDIF
	
	`only update the needed objects
	IF changed=1
		obj=100
		FOR z=0 TO 7
			FOR x=0 TO 7
				object_changed=0
				object_changed=check_object_changed(x*64,z*64,x*64+64,z*64+64)
				IF object_changed
					reset_normal_count(x*64,z*64,x*64+64,z*64+64)
					update_normals(x*64,z*64,x*64+64,z*64+64)
					update_data_arrays(x*64,z*64,x*64+64,z*64+64)
					DELETE OBJECT obj
					build_memblockobject(obj,x*64,z*64,x*64+64,z*64+64)
				ENDIF
				INC obj
			NEXT x
		NEXT z
	ENDIF
	
	
	
	TEXT 0,0,"FPS="+STR$(SCREEN FPS())
	TEXT 0,20,"Press space to add random dimples"
	mouse_control(5.0)
	SYNC
	changed=0
LOOP

`*********************************
`functions start here
FUNCTION mouse_control(speed AS FLOAT)
	XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
	YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
	IF MOUSECLICK()=1 THEN MOVE CAMERA speed
	IF MOUSECLICK()=2 THEN MOVE CAMERA (0-speed)
	dummy=MOUSEMOVEX()
	dummy=MOUSEMOVEY()
ENDFUNCTION

FUNCTION make_normals()
	FOR z=0 TO grid_z#-1
		FOR x=0 TO grid_x#-1
			x1#=x*grid_size#:y1#=old_map_data(x,z,1):z1#=z*grid_size#
			x2#=x*grid_size#:y2#=old_map_data(x,z+1,1):z2#=(z+1)*grid_size#
			x3#=(x+1)*grid_size#:y3#=old_map_data(x+1,z,1):z3#=z*grid_size#
			`find the surface normal of the polygon
			normals(x1#,y1#,z1#,x2#,y2#,z2#,x3#,y3#,z3#)
			xn#=avx#
			yn#=avy#
			zn#=avz#
			`add it to any others at that vertex and increment the number of times that vertex has been used
			old_map_data(x,z,2)=old_map_data(x,z,2)+xn#
			old_map_data(x,z,3)=old_map_data(x,z,3)+yn#
			old_map_data(x,z,4)=old_map_data(x,z,4)+zn#
			INC old_map_data(x,z,5)
			old_map_data(x,z+1,2)=old_map_data(x,z+1,2)+xn#
			old_map_data(x,z+1,3)=old_map_data(x,z+1,3)+yn#
			old_map_data(x,z+1,4)=old_map_data(x,z+1,4)+zn#
			INC old_map_data(x,z+1,5)
			old_map_data(x+1,z,2)=old_map_data(x+1,z,2)+xn#
			old_map_data(x+1,z,3)=old_map_data(x+1,z,3)+yn#
			old_map_data(x+1,z,4)=old_map_data(x+1,z,4)+zn#
			INC old_map_data(x+1,z,5)
			
			x1#=(x+1)*grid_size#:y1#=old_map_data(x+1,z+1,1):z1#=(z+1)*grid_size#
			x2#=(x+1)*grid_size#:y2#=old_map_data(x+1,z,1):z2#=z*grid_size#
			x3#=x*grid_size#:y3#=old_map_data(x,z+1,1):z3#=(z+1)*grid_size#
			`find the surface normal of the polygon
			normals(x1#,y1#,z1#,x2#,y2#,z2#,x3#,y3#,z3#)
			xn#=avx#
			yn#=avy#
			zn#=avz#
			`add it to any others at that vertex and increment the number of times that vertex has been used
			old_map_data(x+1,z+1,2)=old_map_data(x+1,z+1,2)+xn#
			old_map_data(x+1,z+1,3)=old_map_data(x+1,z+1,3)+yn#
			old_map_data(x+1,z+1,4)=old_map_data(x+1,z+1,4)+zn#
			INC old_map_data(x+1,z+1,5)
			old_map_data(x+1,z,2)=old_map_data(x+1,z,2)+xn#
			old_map_data(x+1,z,3)=old_map_data(x+1,z,3)+yn#
			old_map_data(x+1,z,4)=old_map_data(x+1,z,4)+zn#
			INC old_map_data(x,z+1,5)
			old_map_data(x,z+1,2)=old_map_data(x,z+1,2)+xn#
			old_map_data(x,z+1,3)=old_map_data(x,z+1,3)+yn#
			old_map_data(x,z+1,4)=old_map_data(x,z+1,4)+zn#
			INC old_map_data(x+1,z,5)
			
		NEXT x
	NEXT z
	`average the normals at each point
	FOR z=0 TO grid_z#
		FOR x=0 TO grid_x#
			dumx#=old_map_data(x,z,2)/old_map_data(x,z,5)
			dumy#=old_map_data(x,z,3)/old_map_data(x,z,5)
			dumz#=old_map_data(x,z,4)/old_map_data(x,z,5)
			old_map_data(x,z,2)=dumx#
			old_map_data(x,z,3)=dumy#
			old_map_data(x,z,4)=dumz#
			
		NEXT x
	NEXT z
ENDFUNCTION

FUNCTION hmap_fractal()
`thanks to who ever did this code,had it so long,and it never fails to work for me
av AS FLOAT
rn AS FLOAT
s=grid_x#  ` units and array size; must be a power of 2
rn=0.10  ` bigger numbers = smoother, smaller = spikier
smt=1  ` how many times to smooth matrix
DIM a(s,s,1) AS FLOAT
` do the diamond square algorithm
` paying special attention to wrapping around
c=s
REPEAT
   FOR z=0 TO (s-c) STEP c
      FOR x=0 TO (s-c) STEP c
         av=(a(x,z)+a(x+c,z)+a(x,z+c)+a(x+c,z+c))/4.0
         av=av+((-50+RND(100))/rn)
         a(x+(c/2),z+(c/2))=av
      NEXT x
   NEXT z
   w=1
   FOR z=0 TO (s-(c/2)) STEP (c/2)
      FOR x=0 TO (s-c) STEP c
         x2=x+(w*(c/2))
         av=a(x2,z+(c/2))+a(x2+(c/2),z)
         IF x2=0
            av=av+a(s-(c/2),z)
         ELSE
            av=av+a(x2-(c/2),z)
         ENDIF
         IF z=0
            av=av+a(x2,s-(c/2))
         ELSE
            av=av+a(x2,z-(c/2))
         ENDIF
         av=av/4.0
         av=av+((-50+RND(100))/rn)
         a(x2,z,0)=av
         IF x2=0 THEN a(s,z,0)=av
         IF z=0 THEN a(x2,s,0)=av
      NEXT x
      w=1-w
   NEXT z
   c=c/2
   rn=rn*2.0
UNTIL c < 2

` smooth the result
FOR multiple=1 TO smt
   FOR x=0 TO s-1
      x2=x-1 : IF x2 < 0 THEN x2=s-1
      FOR z=0 TO s-1
         z2=z-1 : IF z2 < 0 THEN z2=s-1
         v1#=a(x2,z+1,0)
         v2#=a(x,z+1,0)
         v3#=a(x+1,z+1,0)
         v4#=a(x+1,z,0)
         v5#=a(x+1,z2,0)
         v6#=a(x,z2,0)
         v7#=a(x2,z2,0)
         v8#=a(x2,z,0)
         av#=(v1#+v2#+v3#+v4#+v5#+v6#+v7#+v8#)/8.0
         a(x,z,0)=av#
      NEXT z
   NEXT x
   FOR f=0 TO s
      a(s,f,0)=a(0,f,0)
      a(f,s,0)=a(f,0,0)
   NEXT f
NEXT multiple

`find min/max height
minh#=5000:maxh#=-5000
FOR z=0 TO grid_z#
   FOR x=0 TO grid_x#
      IF a(x,z,0)<minh# THEN minh#=a(x,z,0)
      IF a(x,z,0)>maxh# THEN maxh#=a(x,z,0)
   NEXT x
NEXT z

` update data array and make raise it up so the lowest point is>=0
FOR z=0 TO grid_z#
   FOR x=0 TO grid_x#
      av=a(x,z,0)
      IF minh#<0 THEN old_map_data(x,z,1)=av+ABS(minh#)
      IF minh#>=0 THEN old_map_data(x,z,1)=av-minh#
     NEXT x
NEXT z
ENDFUNCTION

FUNCTION create_memblockobject(memnum,v)
	MAKE MEMBLOCK memnum,12+(32*v)
   WRITE MEMBLOCK DWORD memnum,0,274
   WRITE MEMBLOCK DWORD memnum,4,32
   WRITE MEMBLOCK DWORD memnum,8,v
ENDFUNCTION

FUNCTION create_vertex(memnum,v,vposx#,vposy#,vposz#,color AS DWORD,u#,v#)
	WRITE MEMBLOCK FLOAT memnum,v*32+12,vposx#
   WRITE MEMBLOCK FLOAT memnum,v*32+16,vposy#
   WRITE MEMBLOCK FLOAT memnum,v*32+20,vposz#
   ``write memblock dword memnum,v*36+36,color `not needed in 274fvf format diffuse color seems to mess up some shader code
   WRITE MEMBLOCK FLOAT memnum,v*32+36,u#
   WRITE MEMBLOCK FLOAT memnum,v*32+40,v#
ENDFUNCTION

FUNCTION set_normal(memnum,v,normalx#,normaly#,normalz#)
	WRITE MEMBLOCK FLOAT memnum,v*32+24,normalx#
   WRITE MEMBLOCK FLOAT memnum,v*32+28,normaly#
   WRITE MEMBLOCK FLOAT memnum,v*32+32,normalz#
ENDFUNCTION

FUNCTION make_object(objnum,meshnum,memnum,imgnum)
	IF OBJECT EXIST (objnum) THEN DELETE OBJECT objnum
	IF MESH EXIST (meshnum) THEN DELETE MESH meshnum
   MAKE MESH FROM MEMBLOCK meshnum,memnum
   MAKE OBJECT objnum,meshnum,imgnum
ENDFUNCTION

FUNCTION normals(vertex_px1#,vertex_py1#,vertex_pz1#,vertex_px2#,vertex_py2#,vertex_pz2#,vertex_px3#,vertex_py3#,vertex_pz3#)
`zero globals
	avx#=0
	avy#=0
	avz#=0
`vertex 1
   SET VECTOR3 0,vertex_px1#, vertex_py1#, vertex_pz1#
`vertex 2
   SET VECTOR3 1,vertex_px2#, vertex_py2#, vertex_pz2#
`vertex 3
   SET VECTOR3 2,vertex_px3#, vertex_py3#, vertex_pz3#
`find normals
  	SUBTRACT VECTOR3 5, 0,2       ` -- direction v1
	SUBTRACT VECTOR3 6, 1,2       ` -- direction v2
	CROSS PRODUCT VECTOR3 9, 5,6  ` -- normal
	NORMALIZE VECTOR3 10, 9       ` -- normalized normal 
`set globals to vector results
	avx#=X VECTOR3(10)
  	avy#=Y VECTOR3(10)
  	avz#=Z VECTOR3(10)
ENDFUNCTION

FUNCTION build_memblockobject(obj,start_x,start_z,end_x,end_z)
	vertex=0
	FOR z=start_z TO end_z-1
		FOR x=start_x TO end_x-1
			x1#=x*grid_size#:y1#=old_map_data(x,z,1):z1#=z*grid_size#
			x2#=x*grid_size#:y2#=old_map_data(x,z+1,1):z2#=(z+1)*grid_size#
			x3#=(x+1)*grid_size#:y3#=old_map_data(x+1,z,1):z3#=z*grid_size#
			create_vertex(1,vertex,x1#,y1#,z1#,0,u#*(x-start_x),v#*(z-start_z))
			set_normal(1,vertex,old_map_data(x,z,2),old_map_data(x,z,3),old_map_data(x,z,4))
			INC vertex
			create_vertex(1,vertex,x2#,y2#,z2#,0,u#*(x-start_x),v#*(z+1-start_z))
			set_normal(1,vertex,old_map_data(x,z+1,2),old_map_data(x,z+1,3),old_map_data(x,z+1,4))
			INC vertex
			create_vertex(1,vertex,x3#,y3#,z3#,0,u#*(x+1-start_x),v#*(z-start_z))
			set_normal(1,vertex,old_map_data(x+1,z,2),old_map_data(x+1,z,3),old_map_data(x+1,z,4))
			INC vertex
			
			x1#=(x+1)*grid_size#:y1#=old_map_data(x+1,z+1,1):z1#=(z+1)*grid_size#
			x2#=(x+1)*grid_size#:y2#=old_map_data(x+1,z,1):z2#=z*grid_size#
			x3#=x*grid_size#:y3#=old_map_data(x,z+1,1):z3#=(z+1)*grid_size#
			create_vertex(1,vertex,x1#,y1#,z1#,0,u#*(x+1-start_x),v#*(z+1-start_z))
			set_normal(1,vertex,old_map_data(x+1,z+1,2),old_map_data(x+1,z+1,3),old_map_data(x+1,z+1,4))
			INC vertex
			create_vertex(1,vertex,x2#,y2#,z2#,0,u#*(x+1-start_x),v#*(z-start_z))
			set_normal(1,vertex,old_map_data(x+1,z,2),old_map_data(x+1,z,3),old_map_data(x+1,z,4))
			INC vertex
			create_vertex(1,vertex,x3#,y3#,z3#,0,u#*(x-start_x),v#*(z+1-start_z))
			set_normal(1,vertex,old_map_data(x,z+1,2),old_map_data(x,z+1,3),old_map_data(x,z+1,4))
			INC vertex
		NEXT x
	NEXT z
	make_object(obj,1,1,0)
ENDFUNCTION

FUNCTION update_data_arrays(start_x,start_z,end_x,end_z)
	FOR x=start_x TO end_x-1
		FOR z=start_z TO end_z-1
			FOR l=1 TO 5
				old_map_data(x,z,l)=new_map_data(x,z,l)
			NEXT l
		NEXT z
	NEXT x
ENDFUNCTION

FUNCTION check_object_changed(start_x,start_z,end_x,end_z)
	ret=0
	FOR x=start_x TO end_x-1
		FOR z=start_z TO end_z-1
			IF new_map_data(x,z,1)<>old_map_data(x,z,1)
				ret=1
			endif
		NEXT z
	NEXT x
ENDFUNCTION ret

FUNCTION update_normals(start_x,start_z,end_x,end_z)
	FOR z=start_z TO end_z-1
		FOR x=start_x TO end_x-1
			x1#=x*grid_size#:y1#=new_map_data(x,z,1):z1#=z*grid_size#
			x2#=x*grid_size#:y2#=new_map_data(x,z+1,1):z2#=(z+1)*grid_size#
			x3#=(x+1)*grid_size#:y3#=new_map_data(x+1,z,1):z3#=z*grid_size#
			`find the surface normal of the polygon
			normals(x1#,y1#,z1#,x2#,y2#,z2#,x3#,y3#,z3#)
			xn#=avx#
			yn#=avy#
			zn#=avz#
			`add it to any others at that vertex and increment the number of times that vertex has been used
			new_map_data(x,z,2)=new_map_data(x,z,2)+xn#
			new_map_data(x,z,3)=new_map_data(x,z,3)+yn#
			new_map_data(x,z,4)=new_map_data(x,z,4)+zn#
			INC new_map_data(x,z,5)
			new_map_data(x,z+1,2)=new_map_data(x,z+1,2)+xn#
			new_map_data(x,z+1,3)=new_map_data(x,z+1,3)+yn#
			new_map_data(x,z+1,4)=new_map_data(x,z+1,4)+zn#
			INC new_map_data(x,z+1,5)
			new_map_data(x+1,z,2)=new_map_data(x+1,z,2)+xn#
			new_map_data(x+1,z,3)=new_map_data(x+1,z,3)+yn#
			new_map_data(x+1,z,4)=new_map_data(x+1,z,4)+zn#
			INC new_map_data(x+1,z,5)
			
			x1#=(x+1)*grid_size#:y1#=new_map_data(x+1,z+1,1):z1#=(z+1)*grid_size#
			x2#=(x+1)*grid_size#:y2#=new_map_data(x+1,z,1):z2#=z*grid_size#
			x3#=x*grid_size#:y3#=new_map_data(x,z+1,1):z3#=(z+1)*grid_size#
			`find the surface normal of the polygon
			normals(x1#,y1#,z1#,x2#,y2#,z2#,x3#,y3#,z3#)
			xn#=avx#
			yn#=avy#
			zn#=avz#
			`add it to any others at that vertex and increment the number of times that vertex has been used
			new_map_data(x+1,z+1,2)=new_map_data(x+1,z+1,2)+xn#
			new_map_data(x+1,z+1,3)=new_map_data(x+1,z+1,3)+yn#
			new_map_data(x+1,z+1,4)=new_map_data(x+1,z+1,4)+zn#
			INC new_map_data(x+1,z+1,5)
			new_map_data(x+1,z,2)=new_map_data(x+1,z,2)+xn#
			new_map_data(x+1,z,3)=new_map_data(x+1,z,3)+yn#
			new_map_data(x+1,z,4)=new_map_data(x+1,z,4)+zn#
			INC new_map_data(x,z+1,5)
			new_map_data(x,z+1,2)=new_map_data(x,z+1,2)+xn#
			new_map_data(x,z+1,3)=new_map_data(x,z+1,3)+yn#
			new_map_data(x,z+1,4)=new_map_data(x,z+1,4)+zn#
			INC new_map_data(x+1,z,5)
			
		NEXT x
	NEXT z
	`average the normals at each point
	FOR z=start_z TO end_z-1
		FOR x=start_x TO end_x-1
			dumx#=new_map_data(x,z,2)/new_map_data(x,z,5)
			dumy#=new_map_data(x,z,3)/new_map_data(x,z,5)
			dumz#=new_map_data(x,z,4)/new_map_data(x,z,5)
			new_map_data(x,z,2)=dumx#
			new_map_data(x,z,3)=dumy#
			new_map_data(x,z,4)=dumz#
			
		NEXT x
	NEXT z
ENDFUNCTION

FUNCTION reset_normal_count(start_x,start_z,end_x,end_z)
	FOR x=start_x TO end_x-1
		FOR z=start_z TO end_z-1
			new_map_data(x,z,5)=0
		NEXT z
	NEXT x
ENDFUNCTION

crater:
DATA 0,1,2,4,2,1,0
DATA 1,2,4,8,4,2,1
DATA 2,4,8,10,8,4,2
DATA 4,8,10,15,10,8,4
DATA 2,4,8,10,8,4,2
DATA 1,2,4,8,4,2,1
DATA 0,1,2,4,2,1,0

+ Code Snippet

`%ProjectTitle%
`======================
`©P.Parkinson
`======================
`Main Source File

`*********************************
`enviroment set up

IF CHECK DISPLAY MODE(1024,768,32) 
	SET DISPLAY MODE 1024,768,32
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-512
	posy=h/2-384
ELSE
	SET DISPLAY MODE 640,480,32
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-320
	posy=h/2-240
ENDIF
SET WINDOW POSITION posx,posy

SYNC ON
SYNC RATE 60
AUTOCAM OFF
HIDE MOUSE
COLOR BACKDROP 0,0
SET TEXT FONT "Arial"
SET TEXT SIZE 12
SET TEXT TRANSPARENT

POSITION CAMERA 50,50,-50
POINT CAMERA 0,0,0
POSITION MOUSE SCREEN WIDTH()/2,SCREEN HEIGHT()/2
dummy=MOUSEMOVEX()
dummy=MOUSEMOVEY()

`*********************************	
`declarations and setup starts here

``null=MAKE VECTOR4(1)``used in normal generation routine

`set up the world
`*********************************************************************************************************************************
`the grid_x#,grid_z# is for the hole object data the objects are hard coded at
`present to a 64x64 size so it makes a 8 x 8 grid of objects if you leave them at 512
`if you change this then you will have to change the amount of objects created
`or how many rows each object is made from
GLOBAL grid_x#
GLOBAL grid_z#
grid_x#=512:grid_z#=512`keep these the same
`grid_size# is the size of each polygon used,this will scale the whole world but only the x,z plane so the hills will be more abrupt
`make the changes in the fractal generator function to smooth this out
GLOBAL grid_size#
grid_size#=8.0
GLOBAL u# AS DOUBLE FLOAT:GLOBAL v# AS DOUBLE FLOAT
`hard coded size to match land creation routine uv for texture mapping later
u#=1.0/64.0
v#=1.0/64.0

`set up the array to hold the height map and normal data for each vertex
DIM old_map_data(grid_x#,grid_z#,5) AS FLOAT
DIM new_map_data(grid_x#,grid_z#,5) AS FLOAT

`make a random hight map
RANDOMIZE TIMER()
hmap_fractal()`make random fractal height map these are tileable,be aware that if you clone the objects to increase the landscape size the
`normals of the cloned objects will NOT be smoothed TO match the adjoining tile along the edge of the other map,and the textures are not
`seamless,AND under some circumstances like the maps meeting at a large peek this may look quit odd

`calculate and average normals
GLOBAL avx#:GLOBAL avy#:GLOBAL avz#
null = MAKE VECTOR3(0)
null = MAKE VECTOR3(1)
null = MAKE VECTOR3(2)
null = MAKE VECTOR3(5)
null = MAKE VECTOR3(6)
null = MAKE VECTOR3(9)
null = MAKE VECTOR3(10)

`old_map_data(xpos,zpos,5) array is used like this
`(1)=height (2),(3),(4)=normal x,y,z this is the total for all the normals at that vertex (5)=number of vertex sharing that point
`devides (2),(3),(4) by (5) to get the averaged normal 
make_normals()

`find the max number of poly per object
GLOBAL max_num_poly
max_num_poly=64*64*2

`creates a memblock big enough to hold the data for each object
create_memblockobject(1,max_num_poly*3)

`builds all the data into objects starting from obj
obj=100`first object and image number

`find total number of objects
GLOBAL max_objects
max_objects=64
`this is the parts that are hard coded to suit the grid_x/grid_z values
`build the objects
FOR z=0 TO 7
	FOR x=0 TO 7
		build_memblockobject(obj,x*64,z*64,x*64+64,z*64+64)
		INC obj
	NEXT x
NEXT z

`copy data arrays
FOR z=0 TO grid_z#
	FOR x=0 TO grid_x#
		FOR l=1 TO 5
			new_map_data(x,z,l)=old_map_data(x,z,l)
		NEXT l
	NEXT x
NEXT z

`set up camera and lights
POSITION CAMERA 0,1000,0
POINT CAMERA 2000,0,2000
MAKE LIGHT 1
SET POINT LIGHT 1,(grid_x#*grid_size#)/2,(grid_x#*grid_size#)/2,(grid_z#*grid_size#)/2
SET LIGHT RANGE 1,(grid_x#*grid_size#)*5
HIDE LIGHT 0
SET AMBIENT LIGHT 0
MAKE OBJECT SPHERE 10000,-25
COLOR OBJECT 10000,RGB(255,255,0)
lx=LIGHT POSITION X(1)
ly=LIGHT POSITION Y(1)
lz=LIGHT POSITION Z(1)
POSITION OBJECT 10000,lx,ly,lz

`used for updating map data
GLOBAL changed AS INTEGER=0

`*********************************
`main loop starts here
DO
	
	IF SPACEKEY()
		changed=1
		RESTORE crater
		posx=RND(grid_x#)
		posz=RND(grid_z#)
		scale=rnd(6)
		FOR z=0 TO 6
			FOR x=0 to 6
				READ h
				h=h*scale
				IF posx+x<=grid_x# AND posz+z<=grid_z#
					dec new_map_data(posx+x,posz+z,1),h
				ENDIF
			NEXT x
		NEXT z
		
	ENDIF
	
	`only update the needed objects
	IF changed=1
		obj=100
		FOR z=0 TO 7
			FOR x=0 TO 7
				object_changed=0
				object_changed=check_object_changed(x*64,z*64,x*64+64,z*64+64)
				IF object_changed
					reset_normal_count(x*64,z*64,x*64+64,z*64+64)
					update_normals(x*64,z*64,x*64+64,z*64+64)
					update_data_arrays(x*64,z*64,x*64+64,z*64+64)
					DELETE OBJECT obj
					build_memblockobject(obj,x*64,z*64,x*64+64,z*64+64)
				ENDIF
				INC obj
			NEXT x
		NEXT z
	ENDIF
	
	
	
	TEXT 0,0,"FPS="+STR$(SCREEN FPS())
	TEXT 0,20,"Press space to add random dimples"
	mouse_control(5.0)
	SYNC
	changed=0
LOOP

`*********************************
`functions start here
FUNCTION mouse_control(speed AS FLOAT)
	XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
	YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
	IF MOUSECLICK()=1 THEN MOVE CAMERA speed
	IF MOUSECLICK()=2 THEN MOVE CAMERA (0-speed)
	dummy=MOUSEMOVEX()
	dummy=MOUSEMOVEY()
ENDFUNCTION

FUNCTION make_normals()
	FOR z=0 TO grid_z#-1
		FOR x=0 TO grid_x#-1
			x1#=x*grid_size#:y1#=old_map_data(x,z,1):z1#=z*grid_size#
			x2#=x*grid_size#:y2#=old_map_data(x,z+1,1):z2#=(z+1)*grid_size#
			x3#=(x+1)*grid_size#:y3#=old_map_data(x+1,z,1):z3#=z*grid_size#
			`find the surface normal of the polygon
			normals(x1#,y1#,z1#,x2#,y2#,z2#,x3#,y3#,z3#)
			xn#=avx#
			yn#=avy#
			zn#=avz#
			`add it to any others at that vertex and increment the number of times that vertex has been used
			old_map_data(x,z,2)=old_map_data(x,z,2)+xn#
			old_map_data(x,z,3)=old_map_data(x,z,3)+yn#
			old_map_data(x,z,4)=old_map_data(x,z,4)+zn#
			INC old_map_data(x,z,5)
			old_map_data(x,z+1,2)=old_map_data(x,z+1,2)+xn#
			old_map_data(x,z+1,3)=old_map_data(x,z+1,3)+yn#
			old_map_data(x,z+1,4)=old_map_data(x,z+1,4)+zn#
			INC old_map_data(x,z+1,5)
			old_map_data(x+1,z,2)=old_map_data(x+1,z,2)+xn#
			old_map_data(x+1,z,3)=old_map_data(x+1,z,3)+yn#
			old_map_data(x+1,z,4)=old_map_data(x+1,z,4)+zn#
			INC old_map_data(x+1,z,5)
			
			x1#=(x+1)*grid_size#:y1#=old_map_data(x+1,z+1,1):z1#=(z+1)*grid_size#
			x2#=(x+1)*grid_size#:y2#=old_map_data(x+1,z,1):z2#=z*grid_size#
			x3#=x*grid_size#:y3#=old_map_data(x,z+1,1):z3#=(z+1)*grid_size#
			`find the surface normal of the polygon
			normals(x1#,y1#,z1#,x2#,y2#,z2#,x3#,y3#,z3#)
			xn#=avx#
			yn#=avy#
			zn#=avz#
			`add it to any others at that vertex and increment the number of times that vertex has been used
			old_map_data(x+1,z+1,2)=old_map_data(x+1,z+1,2)+xn#
			old_map_data(x+1,z+1,3)=old_map_data(x+1,z+1,3)+yn#
			old_map_data(x+1,z+1,4)=old_map_data(x+1,z+1,4)+zn#
			INC old_map_data(x+1,z+1,5)
			old_map_data(x+1,z,2)=old_map_data(x+1,z,2)+xn#
			old_map_data(x+1,z,3)=old_map_data(x+1,z,3)+yn#
			old_map_data(x+1,z,4)=old_map_data(x+1,z,4)+zn#
			INC old_map_data(x,z+1,5)
			old_map_data(x,z+1,2)=old_map_data(x,z+1,2)+xn#
			old_map_data(x,z+1,3)=old_map_data(x,z+1,3)+yn#
			old_map_data(x,z+1,4)=old_map_data(x,z+1,4)+zn#
			INC old_map_data(x+1,z,5)
			
		NEXT x
	NEXT z
	`average the normals at each point
	FOR z=0 TO grid_z#
		FOR x=0 TO grid_x#
			dumx#=old_map_data(x,z,2)/old_map_data(x,z,5)
			dumy#=old_map_data(x,z,3)/old_map_data(x,z,5)
			dumz#=old_map_data(x,z,4)/old_map_data(x,z,5)
			old_map_data(x,z,2)=dumx#
			old_map_data(x,z,3)=dumy#
			old_map_data(x,z,4)=dumz#
			
		NEXT x
	NEXT z
ENDFUNCTION

FUNCTION hmap_fractal()
`thanks to who ever did this code,had it so long,and it never fails to work for me
av AS FLOAT
rn AS FLOAT
s=grid_x#  ` units and array size; must be a power of 2
rn=0.10  ` bigger numbers = smoother, smaller = spikier
smt=1  ` how many times to smooth matrix
DIM a(s,s,1) AS FLOAT
` do the diamond square algorithm
` paying special attention to wrapping around
c=s
REPEAT
   FOR z=0 TO (s-c) STEP c
      FOR x=0 TO (s-c) STEP c
         av=(a(x,z)+a(x+c,z)+a(x,z+c)+a(x+c,z+c))/4.0
         av=av+((-50+RND(100))/rn)
         a(x+(c/2),z+(c/2))=av
      NEXT x
   NEXT z
   w=1
   FOR z=0 TO (s-(c/2)) STEP (c/2)
      FOR x=0 TO (s-c) STEP c
         x2=x+(w*(c/2))
         av=a(x2,z+(c/2))+a(x2+(c/2),z)
         IF x2=0
            av=av+a(s-(c/2),z)
         ELSE
            av=av+a(x2-(c/2),z)
         ENDIF
         IF z=0
            av=av+a(x2,s-(c/2))
         ELSE
            av=av+a(x2,z-(c/2))
         ENDIF
         av=av/4.0
         av=av+((-50+RND(100))/rn)
         a(x2,z,0)=av
         IF x2=0 THEN a(s,z,0)=av
         IF z=0 THEN a(x2,s,0)=av
      NEXT x
      w=1-w
   NEXT z
   c=c/2
   rn=rn*2.0
UNTIL c < 2

` smooth the result
FOR multiple=1 TO smt
   FOR x=0 TO s-1
      x2=x-1 : IF x2 < 0 THEN x2=s-1
      FOR z=0 TO s-1
         z2=z-1 : IF z2 < 0 THEN z2=s-1
         v1#=a(x2,z+1,0)
         v2#=a(x,z+1,0)
         v3#=a(x+1,z+1,0)
         v4#=a(x+1,z,0)
         v5#=a(x+1,z2,0)
         v6#=a(x,z2,0)
         v7#=a(x2,z2,0)
         v8#=a(x2,z,0)
         av#=(v1#+v2#+v3#+v4#+v5#+v6#+v7#+v8#)/8.0
         a(x,z,0)=av#
      NEXT z
   NEXT x
   FOR f=0 TO s
      a(s,f,0)=a(0,f,0)
      a(f,s,0)=a(f,0,0)
   NEXT f
NEXT multiple

`find min/max height
minh#=5000:maxh#=-5000
FOR z=0 TO grid_z#
   FOR x=0 TO grid_x#
      IF a(x,z,0)<minh# THEN minh#=a(x,z,0)
      IF a(x,z,0)>maxh# THEN maxh#=a(x,z,0)
   NEXT x
NEXT z

` update data array and make raise it up so the lowest point is>=0
FOR z=0 TO grid_z#
   FOR x=0 TO grid_x#
      av=a(x,z,0)
      IF minh#<0 THEN old_map_data(x,z,1)=av+ABS(minh#)
      IF minh#>=0 THEN old_map_data(x,z,1)=av-minh#
     NEXT x
NEXT z
ENDFUNCTION

FUNCTION create_memblockobject(memnum,v)
	MAKE MEMBLOCK memnum,12+(32*v)
   WRITE MEMBLOCK DWORD memnum,0,274
   WRITE MEMBLOCK DWORD memnum,4,32
   WRITE MEMBLOCK DWORD memnum,8,v
ENDFUNCTION

FUNCTION create_vertex(memnum,v,vposx#,vposy#,vposz#,color AS DWORD,u#,v#)
	WRITE MEMBLOCK FLOAT memnum,v*32+12,vposx#
   WRITE MEMBLOCK FLOAT memnum,v*32+16,vposy#
   WRITE MEMBLOCK FLOAT memnum,v*32+20,vposz#
   ``write memblock dword memnum,v*36+36,color `not needed in 274fvf format diffuse color seems to mess up some shader code
   WRITE MEMBLOCK FLOAT memnum,v*32+36,u#
   WRITE MEMBLOCK FLOAT memnum,v*32+40,v#
ENDFUNCTION

FUNCTION set_normal(memnum,v,normalx#,normaly#,normalz#)
	WRITE MEMBLOCK FLOAT memnum,v*32+24,normalx#
   WRITE MEMBLOCK FLOAT memnum,v*32+28,normaly#
   WRITE MEMBLOCK FLOAT memnum,v*32+32,normalz#
ENDFUNCTION

FUNCTION make_object(objnum,meshnum,memnum,imgnum)
	IF OBJECT EXIST (objnum) THEN DELETE OBJECT objnum
	IF MESH EXIST (meshnum) THEN DELETE MESH meshnum
   MAKE MESH FROM MEMBLOCK meshnum,memnum
   MAKE OBJECT objnum,meshnum,imgnum
ENDFUNCTION

FUNCTION normals(vertex_px1#,vertex_py1#,vertex_pz1#,vertex_px2#,vertex_py2#,vertex_pz2#,vertex_px3#,vertex_py3#,vertex_pz3#)
`zero globals
	avx#=0
	avy#=0
	avz#=0
`vertex 1
   SET VECTOR3 0,vertex_px1#, vertex_py1#, vertex_pz1#
`vertex 2
   SET VECTOR3 1,vertex_px2#, vertex_py2#, vertex_pz2#
`vertex 3
   SET VECTOR3 2,vertex_px3#, vertex_py3#, vertex_pz3#
`find normals
  	SUBTRACT VECTOR3 5, 0,2       ` -- direction v1
	SUBTRACT VECTOR3 6, 1,2       ` -- direction v2
	CROSS PRODUCT VECTOR3 9, 5,6  ` -- normal
	NORMALIZE VECTOR3 10, 9       ` -- normalized normal 
`set globals to vector results
	avx#=X VECTOR3(10)
  	avy#=Y VECTOR3(10)
  	avz#=Z VECTOR3(10)
ENDFUNCTION

FUNCTION build_memblockobject(obj,start_x,start_z,end_x,end_z)
	vertex=0
	FOR z=start_z TO end_z-1
		FOR x=start_x TO end_x-1
			x1#=x*grid_size#:y1#=old_map_data(x,z,1):z1#=z*grid_size#
			x2#=x*grid_size#:y2#=old_map_data(x,z+1,1):z2#=(z+1)*grid_size#
			x3#=(x+1)*grid_size#:y3#=old_map_data(x+1,z,1):z3#=z*grid_size#
			create_vertex(1,vertex,x1#,y1#,z1#,0,u#*(x-start_x),v#*(z-start_z))
			set_normal(1,vertex,old_map_data(x,z,2),old_map_data(x,z,3),old_map_data(x,z,4))
			INC vertex
			create_vertex(1,vertex,x2#,y2#,z2#,0,u#*(x-start_x),v#*(z+1-start_z))
			set_normal(1,vertex,old_map_data(x,z+1,2),old_map_data(x,z+1,3),old_map_data(x,z+1,4))
			INC vertex
			create_vertex(1,vertex,x3#,y3#,z3#,0,u#*(x+1-start_x),v#*(z-start_z))
			set_normal(1,vertex,old_map_data(x+1,z,2),old_map_data(x+1,z,3),old_map_data(x+1,z,4))
			INC vertex
			
			x1#=(x+1)*grid_size#:y1#=old_map_data(x+1,z+1,1):z1#=(z+1)*grid_size#
			x2#=(x+1)*grid_size#:y2#=old_map_data(x+1,z,1):z2#=z*grid_size#
			x3#=x*grid_size#:y3#=old_map_data(x,z+1,1):z3#=(z+1)*grid_size#
			create_vertex(1,vertex,x1#,y1#,z1#,0,u#*(x+1-start_x),v#*(z+1-start_z))
			set_normal(1,vertex,old_map_data(x+1,z+1,2),old_map_data(x+1,z+1,3),old_map_data(x+1,z+1,4))
			INC vertex
			create_vertex(1,vertex,x2#,y2#,z2#,0,u#*(x+1-start_x),v#*(z-start_z))
			set_normal(1,vertex,old_map_data(x+1,z,2),old_map_data(x+1,z,3),old_map_data(x+1,z,4))
			INC vertex
			create_vertex(1,vertex,x3#,y3#,z3#,0,u#*(x-start_x),v#*(z+1-start_z))
			set_normal(1,vertex,old_map_data(x,z+1,2),old_map_data(x,z+1,3),old_map_data(x,z+1,4))
			INC vertex
		NEXT x
	NEXT z
	make_object(obj,1,1,0)
ENDFUNCTION

FUNCTION update_data_arrays(start_x,start_z,end_x,end_z)
	FOR x=start_x TO end_x-1
		FOR z=start_z TO end_z-1
			FOR l=1 TO 5
				old_map_data(x,z,l)=new_map_data(x,z,l)
			NEXT l
		NEXT z
	NEXT x
ENDFUNCTION

FUNCTION check_object_changed(start_x,start_z,end_x,end_z)
	ret=0
	FOR x=start_x TO end_x-1
		FOR z=start_z TO end_z-1
			IF new_map_data(x,z,1)<>old_map_data(x,z,1)
				ret=1
			endif
		NEXT z
	NEXT x
ENDFUNCTION ret

FUNCTION update_normals(start_x,start_z,end_x,end_z)
	FOR z=start_z TO end_z-1
		FOR x=start_x TO end_x-1
			x1#=x*grid_size#:y1#=new_map_data(x,z,1):z1#=z*grid_size#
			x2#=x*grid_size#:y2#=new_map_data(x,z+1,1):z2#=(z+1)*grid_size#
			x3#=(x+1)*grid_size#:y3#=new_map_data(x+1,z,1):z3#=z*grid_size#
			`find the surface normal of the polygon
			normals(x1#,y1#,z1#,x2#,y2#,z2#,x3#,y3#,z3#)
			xn#=avx#
			yn#=avy#
			zn#=avz#
			`add it to any others at that vertex and increment the number of times that vertex has been used
			new_map_data(x,z,2)=new_map_data(x,z,2)+xn#
			new_map_data(x,z,3)=new_map_data(x,z,3)+yn#
			new_map_data(x,z,4)=new_map_data(x,z,4)+zn#
			INC new_map_data(x,z,5)
			new_map_data(x,z+1,2)=new_map_data(x,z+1,2)+xn#
			new_map_data(x,z+1,3)=new_map_data(x,z+1,3)+yn#
			new_map_data(x,z+1,4)=new_map_data(x,z+1,4)+zn#
			INC new_map_data(x,z+1,5)
			new_map_data(x+1,z,2)=new_map_data(x+1,z,2)+xn#
			new_map_data(x+1,z,3)=new_map_data(x+1,z,3)+yn#
			new_map_data(x+1,z,4)=new_map_data(x+1,z,4)+zn#
			INC new_map_data(x+1,z,5)
			
			x1#=(x+1)*grid_size#:y1#=new_map_data(x+1,z+1,1):z1#=(z+1)*grid_size#
			x2#=(x+1)*grid_size#:y2#=new_map_data(x+1,z,1):z2#=z*grid_size#
			x3#=x*grid_size#:y3#=new_map_data(x,z+1,1):z3#=(z+1)*grid_size#
			`find the surface normal of the polygon
			normals(x1#,y1#,z1#,x2#,y2#,z2#,x3#,y3#,z3#)
			xn#=avx#
			yn#=avy#
			zn#=avz#
			`add it to any others at that vertex and increment the number of times that vertex has been used
			new_map_data(x+1,z+1,2)=new_map_data(x+1,z+1,2)+xn#
			new_map_data(x+1,z+1,3)=new_map_data(x+1,z+1,3)+yn#
			new_map_data(x+1,z+1,4)=new_map_data(x+1,z+1,4)+zn#
			INC new_map_data(x+1,z+1,5)
			new_map_data(x+1,z,2)=new_map_data(x+1,z,2)+xn#
			new_map_data(x+1,z,3)=new_map_data(x+1,z,3)+yn#
			new_map_data(x+1,z,4)=new_map_data(x+1,z,4)+zn#
			INC new_map_data(x,z+1,5)
			new_map_data(x,z+1,2)=new_map_data(x,z+1,2)+xn#
			new_map_data(x,z+1,3)=new_map_data(x,z+1,3)+yn#
			new_map_data(x,z+1,4)=new_map_data(x,z+1,4)+zn#
			INC new_map_data(x+1,z,5)
			
		NEXT x
	NEXT z
	`average the normals at each point
	FOR z=start_z TO end_z-1
		FOR x=start_x TO end_x-1
			dumx#=new_map_data(x,z,2)/new_map_data(x,z,5)
			dumy#=new_map_data(x,z,3)/new_map_data(x,z,5)
			dumz#=new_map_data(x,z,4)/new_map_data(x,z,5)
			new_map_data(x,z,2)=dumx#
			new_map_data(x,z,3)=dumy#
			new_map_data(x,z,4)=dumz#
			
		NEXT x
	NEXT z
ENDFUNCTION


FUNCTION reset_normal_count(start_x,start_z,end_x,end_z)
	FOR x=start_x TO end_x-1
		FOR z=start_z TO end_z-1
			new_map_data(x,z,5)=0
		NEXT z
	NEXT x
ENDFUNCTION


crater:
DATA 0,1,2,4,2,1,0
DATA 1,2,4,8,4,2,1
DATA 2,4,8,10,8,4,2
DATA 4,8,10,15,10,8,4
DATA 2,4,8,10,8,4,2
DATA 1,2,4,8,4,2,1
DATA 0,1,2,4,2,1,0

Good look

Back to top

Profile PM

Daryn Alsup

18

Years of Service

User Offline

Joined: 5th Jul 2008

Location: In your head... dun dun DUN!!!!!!!!

Posted: 21st Jun 2011 00:37

Link

@ Paul5147
This is very cool, and very smooth in ways, but I need to understand what I am doing wrong with my code before I try and figure out what you're doing right in yours

If you run the code paul, (attached project file) you'll see that the problem is the object number, the pick distance and how hills are drawn - the simpler the code, the fast it reads. I am trying to use simple methods for complex results - sin(dist#/multiplier)*((value here) = a nice hill, through in some simple math and a fractal hill is made. U have to be able to terraform LIVE in the game. So I am gearing to use an external file for the tool type, and code run (so the user can mod terrain editing tools) and thus is the explanation of the problem in this:

Rem Project: Tessellated Terrain
Rem Created: Monday, June 06, 2011

Rem ***** Main Source File *****

`enviroment set up

IF CHECK DISPLAY MODE(1440,900,32) 
	
if ANTIALIAS AVAILABLE()=1
	SET DISPLAY MODE 1440,900,32, 1, 2, 0
	endif
	if ANTIALIAS AVAILABLE()=0
	SET DISPLAY MODE 1440,900,32,1
	endif
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-512
	posy=h/2-384
ELSE
if ANTIALIAS AVAILABLE()=1
	SET DISPLAY MODE 640,480,32, 1, 2, 0
	endif
	if ANTIALIAS AVAILABLE()=1
		SET DISPLAY MODE 640,480,32, 1,
	ENDIF
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-320
	posy=h/2-240
ENDIF

SYNC ON
SYNC RATE 60
AUTOCAM OFF
`HIDE MOUSE

COLOR BACKDROP 0,0
SET TEXT FONT "Arial"
SET TEXT SIZE 12
SET TEXT TRANSPARENT
SET CAMERA RANGE 1,1500
POSITION CAMERA 50,50,-50
POINT CAMERA 0,0,0
POSITION MOUSE SCREEN WIDTH()/2,SCREEN HEIGHT()/2
dummy=MOUSEMOVEX()
dummy=MOUSEMOVEY()
SET TEXT SIZE 20
SET TEXT TO BOLD
ink RGB(255,0,0), RGB(0,0,0)
CENTER TEXT screen width()/2, SCREEN HEIGHT()/2-150, "PLEASE WAIT DURING SET UP"
SET TEXT SIZE 16
SET TEXT TO NORMAL
ink RGB(255,255,255), RGB(0,0,0)
CENTER TEXT screen width()/2, SCREEN HEIGHT()/2-90, "• Right Click to rotate the camera"
CENTER TEXT screen width()/2, SCREEN HEIGHT()/2-75, "• Use the Up and Down keys or mouse scroll to zoom in and out"
CENTER TEXT screen width()/2, SCREEN HEIGHT()/2-60, "• Use the Left Click to raise terrain. Hold shift while clicking to increase the size of the edit area"
CENTER TEXT screen width()/2, SCREEN HEIGHT()/2-45, "• Right Click to rotate the camera"
CENTER TEXT screen width()/2, SCREEN HEIGHT()/2+45, "Press any key to continue"
SYNC 
SYNC
Jumped:
wait
WAIT NO INPUT

`LOAD EFFECT "Shaders\TerrainTexture.fx", 1, 1, 0
`LOAD IMAGE "Shaders\Grass2.jpg", 1, 1
`LOAD IMAGE "Shaders\Grassy Rock.jpg", 2, 1
`LOAD IMAGE "Shaders\Ice Cliff.jpg", 3, 1
`LOAD IMAGE "Shaders\Snow.jpg", 4, 1
`LOAD IMAGE "Shaders\grid2.bmp", 5, 1

`*********************************	
`declarations and setup starts here

`*********************************
`make the objects that make up the landscape and set up the size variables

`column and row size
GLOBAL sz AS INTEGER=64
`actual object size to be created centred at 0,0,0 when created
GLOBAL obj_sz AS FLOAT=512.0
`how many tiles per row/col
GLOBAL tile_sz AS INTEGER=32`change this to 256 and watch what happens
`first object
GLOBAL lod_first_obj AS INTEGER
`array for object terraforming
global dim objNums(8)
cls

MaxSize#=tile_sz*tile_sz

FOR y=0 TO tile_sz
	FOR x=0 TO tile_sz
		obj=free_object()
		IF x=0 AND y=0 THEN lod_first_obj=obj
		`ianm matrix1 command
		MAKE OBJECT PLAIN obj,obj_sz,obj_sz,sz,sz,338
		`SET OBJECT EFFECT obj, 1
		`TEXTURE OBJECT obj, 0, 4
		`TEXTURE OBJECT obj, 1, 3
		`TEXTURE OBJECT obj, 2, 2
		`TEXTURE OBJECT obj, 3, 1
		`TEXTURE OBJECT obj, 0, 5
		`SCALE OBJECT TEXTURE obj, tile_sz, tile_sz
COLOR OBJECT obj, rgb(128,128,128)
		`SET OBJECT WIREFRAME obj,1	
		POSITION OBJECT obj,x*obj_sz,0,y*obj_sz
		SC_SETUPCOMPLEXOBJECT obj,0,2
		hide object obj
		inc AmountOfObj#
		Inc Percent

Box#=(Percent/MaxSize#)*100
					If Box#<99.9
			ink RGB(255,255,255), RGB(0,0,0)
CENTER TEXT SCREEN WIDTH()/2, SCREEN HEIGHT()/2, str$(int((obj_sz*(Percent)*10)/5280))+" Sq. Miles - "+Str$(int(Box#))+"% Completed"
box SCREEN WIDTH()/2-50, SCREEN HEIGHT()/2-20, SCREEN WIDTH()/2-50+int(box#), SCREEN HEIGHT()/2-25, RGB(0, 128, 255), RGB(100, 200, 255), RGB(20, 128, 255), RGB(0, 120, 255)
BOX OUTLINE SCREEN WIDTH()/2-52, SCREEN HEIGHT()/2-19, SCREEN WIDTH()/2+52, SCREEN HEIGHT()/2-27, RGB(255,255,255)
endif

If Box#=>100.0
	Box#=100.0
	CENTER TEXT SCREEN WIDTH()/2, SCREEN HEIGHT()/2, "Finalizing "+str$(int((obj_sz*(Maxsize#)*10)/5280))+" Sq. Miles - "+"Please Wait A Few Seconds..."
ENDIF
		sync
	NEXT x
NEXT y

`show a completion screen
sync
CENTER TEXT SCREEN WIDTH()/2, SCREEN HEIGHT()/2, "COMPLETE!"
sync
wait 0500

gtime=250
Bright#=0.85+(sin(Timer()/Gtime)*0.8)
`SET EFFECT CONSTANT FLOAT 1, "UVTilingX ", 32.0
`SET EFFECT CONSTANT FLOAT 1, "UVTilingY ", 32.0
`SET EFFECT CONSTANT FLOAT 1, "shadow", Bright#
`SET EFFECT CONSTANT FLOAT 1, "FogRed", RGBR(BGColor)
`SET EFFECT CONSTANT FLOAT 1, "FogGreen", RGBG(BGColor)
`SET EFFECT CONSTANT FLOAT 1, "FogBlue", RGBB(BGColor)

`SET EFFECT CONSTANT FLOAT 1, "fogHeight", FHeight#
`SET EFFECT CONSTANT FLOAT 1, "fogClearing", Clearing#

for Check=1 to int(AmountofObj#)
	SHOW OBJECT check
NEXT

`make object to use for raycasting
GLOBAL ray_cast_obj_target
ray_cast_obj_target=free_object()
MAKE OBJECT CUBE ray_cast_obj_target,1
HIDE OBJECT ray_cast_obj_target

`make object to use for marker
GLOBAL ray_cast_obj_marker
ray_cast_obj_marker=free_object()
MAKE OBJECT CUBE ray_cast_obj_marker,2
COLOR OBJECT ray_cast_obj_marker,RGB(255,0,0)

GLOBAL cx AS FLOAT
GLOBAL cy AS FLOAT
GLOBAL cz AS FLOAT
GLOBAL col_obj AS INTEGER
GLOBAL nx AS FLOAT
GLOBAL ny AS FLOAT
GLOBAL nz AS FLOAT
GLOBAL face_hit AS INTEGER

`*********************************
`main loop starts here
DO
	
DistObPick#=GET PICK DISTANCE()
PICK SCREEN MouseX(), MouseY(), DistToObj#
PickX#=GET PICK VECTOR X()+CAMERA POSITION X()
PickY#=GET PICK VECTOR Y()+CAMERA POSITION Y()
PickZ#=GET PICK VECTOR Z()+CAMERA POSITION Z()

`check for raycast to landscape and place marker
	raycast_landscape(PickX#, PickY#, PickZ#)
	DistToObj#=SC_getCollisionDistance() 
ObjectNumber2=SC_getObjectHit () 
	
	remstart
if keystate(34)=1 and ControlKEY()=0
SET EFFECT CONSTANT FLOAT 1, "GOpacity", 0.2
endif

if keystate(34)=1 and ControlKey()=1
SET EFFECT CONSTANT FLOAT 1, "GOpacity", 0.0
endif
remend

`show or hide the marker depending on collision
	IF col_obj>0
		SHOW OBJECT ray_cast_obj_marker
	ELSE
		HIDE OBJECT ray_cast_obj_marker
	ENDIF
	
	`move the camera
	mouse_control(1.0)
	
	`display info
	TEXT 0,0,"marker on object "+STR$(ObjectNumber2)
	TEXT 0,20,"At Position x="+STR$(PickX#)+" y="+STR$(Pick#)+" z="+STR$(PickZ#)
	TEXT 0,40,"screen fps="+STR$(SCREEN FPS())
	TEXT 0,60,"object face hit="+STR$(face_hit)
	
	If MouseClick()=1
		DistObPick#=GET PICK DISTANCE()
		PICK SCREEN MouseX(), MouseY(), DistToObj#
PickX#=GET PICK VECTOR X()+CAMERA POSITION X()
PickY#=GET PICK VECTOR Y()+CAMERA POSITION Y()
PickZ#=GET PICK VECTOR Z()+CAMERA POSITION Z()
		 
If ShiftKey()=1 and ControlKey()=0
Multiplier#=3.0
endif
If ControlKey()=1 and ShiftKey()=0
Multiplier#=0.5
endif
If Shiftkey()=0 and ControlKey()=0
Multiplier#=1.0
endif
	
		 if Objectnumber2>0
    objNums(0) = ObjectNumber2
    objNums(1) = ObjectNumber2 + 1
    objNums(2) = ObjectNumber2 - 1
    objNums(3) = ObjectNumber2 + tile_sz
    objNums(4) = ObjectNumber2 + tile_sz + 1
    objNums(5) = ObjectNumber2 + tile_sz - 1
    objNums(6) = ObjectNumber2 - tile_sz
    objNums(7) = ObjectNumber2 - tile_sz + 1
    objNums(8) = ObjectNumber2 - tile_sz - 1
	ENDIF
	
	 for obj = 0 to 8
	 	raycast_landscape(PickX#, PickY#, PickZ#)
    reCalculateNormals = 0
      if objNums(obj) > 0 and objNums(obj) <= tile_sz*tile_sz
      LOCK VERTEXDATA FOR LIMB objNums(obj), 0
      Vcount=GET VERTEXDATA VERTEX COUNT()-1
        For Array=0 to Vcount
          VerX#=GET VERTEXDATA POSITION X(Array)
          VerY#=GET VERTEXDATA POSITION Y(Array)
          VerZ#=GET VERTEXDATA POSITION Z(Array)
			
          `calculate the correct vertices on the object to check against the others
          tempX# = VerX# + OBJECT POSITION X(objNums(obj))
          tempY# = VerY# + OBJECT POSITION Y(objNums(obj))
          tempZ# = VerZ# + OBJECT POSITION Z(objNums(obj))

Dist#=Distance#(length, TempX#, TempY#, TempZ#, PickX#, PickY#, PickZ#)
                    Ab=rnd(2)
          if Ab=0 then added#=-0.5
          if Ab=1 then added#=0.5
          if Ab=2 then added# = 0
                    AC=rnd(2)
          if Ac=0 then addedb#=-0.5
          if Ac=1 then addedb#=0.5
          if Ac=2 then addedb# = 0
          
          If vector exist(100)=0 then TempVector=MAKE VECTOR3(100)
          If vector exist(101)=0 then TempPickVector=MAKE VECTOR3(101)
          If vector exist(102)=0 then ResultVector=MAKE VECTOR3(102)
          SET VECTOR3 100, OBJECT POSITION X(objNums(obj)), OBJECT POSITION Y(objNums(obj)), OBJECT POSITION Z(objNums(obj))
          SET VECTOR3 101, PickX#, PickY#, PickZ#
          
          `the results of the vector math:
          SUBTRACT VECTOR3 102, 100, 101
          if X VECTOR3(100)-OBJECT SIZE X(objNums(obj))>-0.5 and X VECTOR3(100)+OBJECT SIZE X(objNums(obj))<0.5 then added#=0.0 and addedB#=0.0
          if y VECTOR3(100)-OBJECT SIZE y(objNums(obj))>-0.5 and y VECTOR3(100)+OBJECT SIZE y(objNums(obj))<0.5 then added#=0.0 and addedB#=0.0
          if z VECTOR3(100)-OBJECT SIZE z(objNums(obj))>-0.5 and z VECTOR3(100)+OBJECT SIZE z(objNums(obj))<0.5 then added#=0.0 and addedB#=0.0
          
                    If Dist#<100.0*Multiplier#
          IncAmount#=cos(Dist#/Multiplier#)*10.0+Added#
          endif
         
          If Dist#>100.0*Multiplier# or Dist#=<0.0*Multiplier#
            incAmount# = 0.0
          endif

if incAmount# > 0.0 then SET VERTEXDATA POSITION Array, VerX#, VerY# + incAmount#, VerZ# : reCalculateNormals = 1
                  SC_UpdateObject objNums(obj)
       NEXT ARRAY
     UNLOCK VERTEXDATA
     SC_UpdateObject objNums(obj)
     if reCalculateNormals=1
     SET OBJECT NORMALS objNums(obj)
     reCalculateNormals=0
     endif
     endif
   next obj
 endif
	
	SYNC
LOOP

`*********************************
`functions start here
FUNCTION mouse_control(speed AS FLOAT)
	if mouseclick()=2
	XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
	YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
	endif
	dummy=MOUSEMOVEX()
	dummy=MOUSEMOVEY()
	IF UPKEY()=1 THEN MOVE CAMERA speed
	IF DOWNKEY()=1 THEN MOVE CAMERA (0-speed)
Newmousez = MousemoveZ()
	If oldmousez <> newmousez
	
		If oldmousez < newmousez
		mousezz=speed*5
		endif
		
		If oldmousez > newmousez
		mousezz=-speed*5
		endif
		MOVE CAMERA mousezz
Oldmousez=Mousemovez()
Mousezz=0
endif
raycast_landscape(pickX#, PickY#, PickZ#)
ENDFUNCTION

//FUNCTION mouse_control(Speed AS FLOAT)
//	IF SPACEKEY()
//		XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
//		YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
//	ENDIF
//	IF msz>MOUSEZ() THEN MOVE CAMERA Speed:msz=MOUSEZ()
//	IF msz<MOUSEZ() THEN MOVE CAMERA (0-Speed):msz=MOUSEZ()
//	r=MOUSEMOVEX()
//	r=MOUSEMOVEY()
//
//ENDFUNCTION

FUNCTION free_object()
	REPEAT
		INC i 
		IF OBJECT EXIST(i)=0 THEN found=1
	UNTIL found
ENDFUNCTION i

FUNCTION raycast_landscape(X#, Y#, Z#)
	POSITION OBJECT ray_cast_obj_target,CAMERA POSITION X(),CAMERA POSITION Y(),CAMERA POSITION Z()
	SET OBJECT TO CAMERA ORIENTATION ray_cast_obj_target
	MOVE OBJECT ray_cast_obj_target,10000
	col_obj=SC_RAYCAST(0,CAMERA POSITION X(),CAMERA POSITION Y(),CAMERA POSITION Z(),OBJECT POSITION X(ray_cast_obj_target),OBJECT POSITION Y(ray_cast_obj_target),OBJECT POSITION Z(ray_cast_obj_target),0)
	IF col_obj>0
		cx = SC_GETSTATICCOLLISIONX() : nx = SC_GETCOLLISIONNORMALX()
     	cy = SC_GETSTATICCOLLISIONY() : ny = SC_GETCOLLISIONNORMALY()
      cz = SC_GETSTATICCOLLISIONZ() : nz = SC_GETCOLLISIONNORMALZ()
		POSITION OBJECT ray_cast_obj_marker,X#,Y#,Z#
      POINT OBJECT ray_cast_obj_marker,X#+(nx*1000),Y#+(ny*1000),Z#+(nz*1000)
      face_hit=SC_GETFACEHIT()
      Obhit=SC_GETOBJECTHIT()
	ELSE 
		cx=0.0
		cy=0.0
		cz=0.0
		nx=0.0
		ny=0.0
		nz=0.0
		face_hit=0
		if obhit>0 then SC_UpdateObject OBHIT
	ENDIF
ENDFUNCTION

Function Distance#(VecNum, x1#, y1#, z1#, x2#,  y2#, z2#)
if VECTOR EXIST(vecnum)=0
	Temporary=MAKE VECTOR3(vecnum)
ENDIF

set vector3 VecNum, x2# - x1#, y2# - y1#, z2# - z1#
dist# = length vector3(VecNum)
EndFunction dist#

FUNCTION needed_for_sparkys()
	IF MEMBLOCK EXIST(1)
		
	ENDIF
ENDFUNCTION

+ Code Snippet

Rem Project: Tessellated Terrain
Rem Created: Monday, June 06, 2011

Rem ***** Main Source File *****

`enviroment set up

IF CHECK DISPLAY MODE(1440,900,32) 
	
if ANTIALIAS AVAILABLE()=1
	SET DISPLAY MODE 1440,900,32, 1, 2, 0
	endif
	if ANTIALIAS AVAILABLE()=0
	SET DISPLAY MODE 1440,900,32,1
	endif
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-512
	posy=h/2-384
ELSE
if ANTIALIAS AVAILABLE()=1
	SET DISPLAY MODE 640,480,32, 1, 2, 0
	endif
	if ANTIALIAS AVAILABLE()=1
		SET DISPLAY MODE 640,480,32, 1,
	ENDIF
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-320
	posy=h/2-240
ENDIF


SYNC ON
SYNC RATE 60
AUTOCAM OFF
`HIDE MOUSE

COLOR BACKDROP 0,0
SET TEXT FONT "Arial"
SET TEXT SIZE 12
SET TEXT TRANSPARENT
SET CAMERA RANGE 1,1500
POSITION CAMERA 50,50,-50
POINT CAMERA 0,0,0
POSITION MOUSE SCREEN WIDTH()/2,SCREEN HEIGHT()/2
dummy=MOUSEMOVEX()
dummy=MOUSEMOVEY()
SET TEXT SIZE 20
SET TEXT TO BOLD
ink RGB(255,0,0), RGB(0,0,0)
CENTER TEXT screen width()/2, SCREEN HEIGHT()/2-150, "PLEASE WAIT DURING SET UP"
SET TEXT SIZE 16
SET TEXT TO NORMAL
ink RGB(255,255,255), RGB(0,0,0)
CENTER TEXT screen width()/2, SCREEN HEIGHT()/2-90, "• Right Click to rotate the camera"
CENTER TEXT screen width()/2, SCREEN HEIGHT()/2-75, "• Use the Up and Down keys or mouse scroll to zoom in and out"
CENTER TEXT screen width()/2, SCREEN HEIGHT()/2-60, "• Use the Left Click to raise terrain. Hold shift while clicking to increase the size of the edit area"
CENTER TEXT screen width()/2, SCREEN HEIGHT()/2-45, "• Right Click to rotate the camera"
CENTER TEXT screen width()/2, SCREEN HEIGHT()/2+45, "Press any key to continue"
SYNC 
SYNC
Jumped:
wait
WAIT NO INPUT


`LOAD EFFECT "Shaders\TerrainTexture.fx", 1, 1, 0
`LOAD IMAGE "Shaders\Grass2.jpg", 1, 1
`LOAD IMAGE "Shaders\Grassy Rock.jpg", 2, 1
`LOAD IMAGE "Shaders\Ice Cliff.jpg", 3, 1
`LOAD IMAGE "Shaders\Snow.jpg", 4, 1
`LOAD IMAGE "Shaders\grid2.bmp", 5, 1

`*********************************	
`declarations and setup starts here

`*********************************
`make the objects that make up the landscape and set up the size variables

`column and row size
GLOBAL sz AS INTEGER=64
`actual object size to be created centred at 0,0,0 when created
GLOBAL obj_sz AS FLOAT=512.0
`how many tiles per row/col
GLOBAL tile_sz AS INTEGER=32`change this to 256 and watch what happens
`first object
GLOBAL lod_first_obj AS INTEGER
`array for object terraforming
global dim objNums(8)
cls

MaxSize#=tile_sz*tile_sz

FOR y=0 TO tile_sz
	FOR x=0 TO tile_sz
		obj=free_object()
		IF x=0 AND y=0 THEN lod_first_obj=obj
		`ianm matrix1 command
		MAKE OBJECT PLAIN obj,obj_sz,obj_sz,sz,sz,338
		`SET OBJECT EFFECT obj, 1
		`TEXTURE OBJECT obj, 0, 4
		`TEXTURE OBJECT obj, 1, 3
		`TEXTURE OBJECT obj, 2, 2
		`TEXTURE OBJECT obj, 3, 1
		`TEXTURE OBJECT obj, 0, 5
		`SCALE OBJECT TEXTURE obj, tile_sz, tile_sz
COLOR OBJECT obj, rgb(128,128,128)
		`SET OBJECT WIREFRAME obj,1	
		POSITION OBJECT obj,x*obj_sz,0,y*obj_sz
		SC_SETUPCOMPLEXOBJECT obj,0,2
		hide object obj
		inc AmountOfObj#
		Inc Percent

					Box#=(Percent/MaxSize#)*100
					If Box#<99.9
			ink RGB(255,255,255), RGB(0,0,0)
CENTER TEXT SCREEN WIDTH()/2, SCREEN HEIGHT()/2, str$(int((obj_sz*(Percent)*10)/5280))+" Sq. Miles - "+Str$(int(Box#))+"% Completed"
box SCREEN WIDTH()/2-50, SCREEN HEIGHT()/2-20, SCREEN WIDTH()/2-50+int(box#), SCREEN HEIGHT()/2-25, RGB(0, 128, 255), RGB(100, 200, 255), RGB(20, 128, 255), RGB(0, 120, 255)
BOX OUTLINE SCREEN WIDTH()/2-52, SCREEN HEIGHT()/2-19, SCREEN WIDTH()/2+52, SCREEN HEIGHT()/2-27, RGB(255,255,255)
endif

If Box#=>100.0
	Box#=100.0
	CENTER TEXT SCREEN WIDTH()/2, SCREEN HEIGHT()/2, "Finalizing "+str$(int((obj_sz*(Maxsize#)*10)/5280))+" Sq. Miles - "+"Please Wait A Few Seconds..."
ENDIF
		sync
	NEXT x
NEXT y

`show a completion screen
sync
CENTER TEXT SCREEN WIDTH()/2, SCREEN HEIGHT()/2, "COMPLETE!"
sync
wait 0500

gtime=250
Bright#=0.85+(sin(Timer()/Gtime)*0.8)
`SET EFFECT CONSTANT FLOAT 1, "UVTilingX ", 32.0
`SET EFFECT CONSTANT FLOAT 1, "UVTilingY ", 32.0
`SET EFFECT CONSTANT FLOAT 1, "shadow", Bright#
`SET EFFECT CONSTANT FLOAT 1, "FogRed", RGBR(BGColor)
`SET EFFECT CONSTANT FLOAT 1, "FogGreen", RGBG(BGColor)
`SET EFFECT CONSTANT FLOAT 1, "FogBlue", RGBB(BGColor)

`SET EFFECT CONSTANT FLOAT 1, "fogHeight", FHeight#
`SET EFFECT CONSTANT FLOAT 1, "fogClearing", Clearing#

for Check=1 to int(AmountofObj#)
	SHOW OBJECT check
NEXT



`make object to use for raycasting
GLOBAL ray_cast_obj_target
ray_cast_obj_target=free_object()
MAKE OBJECT CUBE ray_cast_obj_target,1
HIDE OBJECT ray_cast_obj_target

`make object to use for marker
GLOBAL ray_cast_obj_marker
ray_cast_obj_marker=free_object()
MAKE OBJECT CUBE ray_cast_obj_marker,2
COLOR OBJECT ray_cast_obj_marker,RGB(255,0,0)

GLOBAL cx AS FLOAT
GLOBAL cy AS FLOAT
GLOBAL cz AS FLOAT
GLOBAL col_obj AS INTEGER
GLOBAL nx AS FLOAT
GLOBAL ny AS FLOAT
GLOBAL nz AS FLOAT
GLOBAL face_hit AS INTEGER

`*********************************
`main loop starts here
DO
	
DistObPick#=GET PICK DISTANCE()
PICK SCREEN MouseX(), MouseY(), DistToObj#
PickX#=GET PICK VECTOR X()+CAMERA POSITION X()
PickY#=GET PICK VECTOR Y()+CAMERA POSITION Y()
PickZ#=GET PICK VECTOR Z()+CAMERA POSITION Z()

	`check for raycast to landscape and place marker
	raycast_landscape(PickX#, PickY#, PickZ#)
	DistToObj#=SC_getCollisionDistance() 
ObjectNumber2=SC_getObjectHit () 
	
	remstart
if keystate(34)=1 and ControlKEY()=0
SET EFFECT CONSTANT FLOAT 1, "GOpacity", 0.2
endif

if keystate(34)=1 and ControlKey()=1
SET EFFECT CONSTANT FLOAT 1, "GOpacity", 0.0
endif
remend

	`show or hide the marker depending on collision
	IF col_obj>0
		SHOW OBJECT ray_cast_obj_marker
	ELSE
		HIDE OBJECT ray_cast_obj_marker
	ENDIF
	
	`move the camera
	mouse_control(1.0)
	
	`display info
	TEXT 0,0,"marker on object "+STR$(ObjectNumber2)
	TEXT 0,20,"At Position x="+STR$(PickX#)+" y="+STR$(Pick#)+" z="+STR$(PickZ#)
	TEXT 0,40,"screen fps="+STR$(SCREEN FPS())
	TEXT 0,60,"object face hit="+STR$(face_hit)
	
	If MouseClick()=1
		DistObPick#=GET PICK DISTANCE()
		PICK SCREEN MouseX(), MouseY(), DistToObj#
PickX#=GET PICK VECTOR X()+CAMERA POSITION X()
PickY#=GET PICK VECTOR Y()+CAMERA POSITION Y()
PickZ#=GET PICK VECTOR Z()+CAMERA POSITION Z()
		 
If ShiftKey()=1 and ControlKey()=0
Multiplier#=3.0
endif
If ControlKey()=1 and ShiftKey()=0
Multiplier#=0.5
endif
If Shiftkey()=0 and ControlKey()=0
Multiplier#=1.0
endif
	
		 if Objectnumber2>0
    objNums(0) = ObjectNumber2
    objNums(1) = ObjectNumber2 + 1
    objNums(2) = ObjectNumber2 - 1
    objNums(3) = ObjectNumber2 + tile_sz
    objNums(4) = ObjectNumber2 + tile_sz + 1
    objNums(5) = ObjectNumber2 + tile_sz - 1
    objNums(6) = ObjectNumber2 - tile_sz
    objNums(7) = ObjectNumber2 - tile_sz + 1
    objNums(8) = ObjectNumber2 - tile_sz - 1
	ENDIF
	
	 for obj = 0 to 8
	 	raycast_landscape(PickX#, PickY#, PickZ#)
    reCalculateNormals = 0
      if objNums(obj) > 0 and objNums(obj) <= tile_sz*tile_sz
      LOCK VERTEXDATA FOR LIMB objNums(obj), 0
      Vcount=GET VERTEXDATA VERTEX COUNT()-1
        For Array=0 to Vcount
          VerX#=GET VERTEXDATA POSITION X(Array)
          VerY#=GET VERTEXDATA POSITION Y(Array)
          VerZ#=GET VERTEXDATA POSITION Z(Array)
			
          `calculate the correct vertices on the object to check against the others
          tempX# = VerX# + OBJECT POSITION X(objNums(obj))
          tempY# = VerY# + OBJECT POSITION Y(objNums(obj))
          tempZ# = VerZ# + OBJECT POSITION Z(objNums(obj))

          Dist#=Distance#(length, TempX#, TempY#, TempZ#, PickX#, PickY#, PickZ#)
                    Ab=rnd(2)
          if Ab=0 then added#=-0.5
          if Ab=1 then added#=0.5
          if Ab=2 then added# = 0
                    AC=rnd(2)
          if Ac=0 then addedb#=-0.5
          if Ac=1 then addedb#=0.5
          if Ac=2 then addedb# = 0
          
          If vector exist(100)=0 then TempVector=MAKE VECTOR3(100)
          If vector exist(101)=0 then TempPickVector=MAKE VECTOR3(101)
          If vector exist(102)=0 then ResultVector=MAKE VECTOR3(102)
          SET VECTOR3 100, OBJECT POSITION X(objNums(obj)), OBJECT POSITION Y(objNums(obj)), OBJECT POSITION Z(objNums(obj))
          SET VECTOR3 101, PickX#, PickY#, PickZ#
          
          `the results of the vector math:
          SUBTRACT VECTOR3 102, 100, 101
          if X VECTOR3(100)-OBJECT SIZE X(objNums(obj))>-0.5 and X VECTOR3(100)+OBJECT SIZE X(objNums(obj))<0.5 then added#=0.0 and addedB#=0.0
          if y VECTOR3(100)-OBJECT SIZE y(objNums(obj))>-0.5 and y VECTOR3(100)+OBJECT SIZE y(objNums(obj))<0.5 then added#=0.0 and addedB#=0.0
          if z VECTOR3(100)-OBJECT SIZE z(objNums(obj))>-0.5 and z VECTOR3(100)+OBJECT SIZE z(objNums(obj))<0.5 then added#=0.0 and addedB#=0.0
          
                    If Dist#<100.0*Multiplier#
          IncAmount#=cos(Dist#/Multiplier#)*10.0+Added#
          endif
         
          If Dist#>100.0*Multiplier# or Dist#=<0.0*Multiplier#
            incAmount# = 0.0
          endif

          if incAmount# > 0.0 then SET VERTEXDATA POSITION Array, VerX#, VerY# + incAmount#, VerZ# : reCalculateNormals = 1
                  SC_UpdateObject objNums(obj)
       NEXT ARRAY
     UNLOCK VERTEXDATA
     SC_UpdateObject objNums(obj)
     if reCalculateNormals=1
     SET OBJECT NORMALS objNums(obj)
     reCalculateNormals=0
     endif
     endif
   next obj
 endif
	
	SYNC
LOOP

`*********************************
`functions start here
FUNCTION mouse_control(speed AS FLOAT)
	if mouseclick()=2
	XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
	YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
	endif
	dummy=MOUSEMOVEX()
	dummy=MOUSEMOVEY()
	IF UPKEY()=1 THEN MOVE CAMERA speed
	IF DOWNKEY()=1 THEN MOVE CAMERA (0-speed)
Newmousez = MousemoveZ()
	If oldmousez <> newmousez
	
		If oldmousez < newmousez
		mousezz=speed*5
		endif
		
		If oldmousez > newmousez
		mousezz=-speed*5
		endif
		MOVE CAMERA mousezz
Oldmousez=Mousemovez()
Mousezz=0
endif
raycast_landscape(pickX#, PickY#, PickZ#)
ENDFUNCTION

//FUNCTION mouse_control(Speed AS FLOAT)
//	IF SPACEKEY()
//		XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
//		YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
//	ENDIF
//	IF msz>MOUSEZ() THEN MOVE CAMERA Speed:msz=MOUSEZ()
//	IF msz<MOUSEZ() THEN MOVE CAMERA (0-Speed):msz=MOUSEZ()
//	r=MOUSEMOVEX()
//	r=MOUSEMOVEY()
//
//ENDFUNCTION 

FUNCTION free_object()
	REPEAT
		INC i 
		IF OBJECT EXIST(i)=0 THEN found=1
	UNTIL found
ENDFUNCTION i

FUNCTION raycast_landscape(X#, Y#, Z#)
	POSITION OBJECT ray_cast_obj_target,CAMERA POSITION X(),CAMERA POSITION Y(),CAMERA POSITION Z()
	SET OBJECT TO CAMERA ORIENTATION ray_cast_obj_target
	MOVE OBJECT ray_cast_obj_target,10000
	col_obj=SC_RAYCAST(0,CAMERA POSITION X(),CAMERA POSITION Y(),CAMERA POSITION Z(),OBJECT POSITION X(ray_cast_obj_target),OBJECT POSITION Y(ray_cast_obj_target),OBJECT POSITION Z(ray_cast_obj_target),0)
	IF col_obj>0
		cx = SC_GETSTATICCOLLISIONX() : nx = SC_GETCOLLISIONNORMALX()
     	cy = SC_GETSTATICCOLLISIONY() : ny = SC_GETCOLLISIONNORMALY()
      cz = SC_GETSTATICCOLLISIONZ() : nz = SC_GETCOLLISIONNORMALZ()
		POSITION OBJECT ray_cast_obj_marker,X#,Y#,Z#
      POINT OBJECT ray_cast_obj_marker,X#+(nx*1000),Y#+(ny*1000),Z#+(nz*1000)
      face_hit=SC_GETFACEHIT()
      Obhit=SC_GETOBJECTHIT()
	ELSE 
		cx=0.0
		cy=0.0
		cz=0.0
		nx=0.0
		ny=0.0
		nz=0.0
		face_hit=0
		if obhit>0 then SC_UpdateObject OBHIT
	ENDIF
ENDFUNCTION

Function Distance#(VecNum, x1#, y1#, z1#, x2#,  y2#, z2#)
if VECTOR EXIST(vecnum)=0
	Temporary=MAKE VECTOR3(vecnum)
ENDIF	

set vector3 VecNum, x2# - x1#, y2# - y1#, z2# - z1#
dist# = length vector3(VecNum)
EndFunction dist#  	

FUNCTION needed_for_sparkys()
	IF MEMBLOCK EXIST(1)
		
	ENDIF
ENDFUNCTION

Jack and Jill went up a hill to fetch a pale of water... but Jill got tired of his s#%& so she shot him.

Back to top

Profile PM Email Website

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 21st Jun 2011 02:07 Edited at: 21st Jun 2011 14:04

Link

I've got your email. Hope to look at the code carefully tomorrow.

Quote: "I don't have Sparky's collision dll - looks like it's about time I did though."

Looks like my brain needs fixing - it seems I've had that DLL for some time.

Back to top

Profile PM Email

Daryn Alsup

18

Years of Service

User Offline

Joined: 5th Jul 2008

Location: In your head... dun dun DUN!!!!!!!!

Posted: 29th Jun 2011 01:04

Link

Okay, I think I have figured out something - pertaining to the distance# function - which uses the tempX#, Y# and Z# location (vertices) and pickX#, Y# and Z#.

G.G. ran into errors with the vector ID used - that IAN M's plugin "Find Free Vector" will return 0 as a possible vector number that in current versions of DBPro cause the code to fail - as 0 is no longer a correct vector number.

For the life of me I cannot figure out why the click location (pick vectors) and vertex locations (tempX#, TempY#, TempZ#) are returning incorrectly - as the code seems to work in certain areas but not in others - (3d locations that is) You can terraform anywhere but not always to the same amount of terraforming detail - IE: height and seam(s). I don't understand why. I am continuing to look further into this issue but if anyone can catch the problem please say so - this is my first large scale terraforming app that for the most part (now) runs fairly smooth (minus the shader) hit me up if you find any thing.

Jack and Jill went up a hill to fetch a pale of water... but Jill got tired of his s#%& so she shot him.

Back to top

Profile PM Email Website

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 29th Jun 2011 02:12

Link

Quote: "G.G. ran into errors with the vector ID used - that IAN M's plugin "Find Free Vector" will return 0 as a possible vector number"

I found nothing of the sort. In fact the code you sent me does not use that function. Here is the Distance# function from that same code:

+ Code Snippet

Function Distance#(VecNum, x1#, y1#, z1#, x2#,  y2#, z2#)
  if VECTOR EXIST(vecnum)=0
    Temporary=MAKE VECTOR3(vecnum)
  ENDIF	

  set vector3 VecNum, x2# - x1#, y2# - y1#, z2# - z1#
  dist# = length vector3(VecNum)
EndFunction dist#

That function does not use IanM's find free vector function. Furthermore your Distance# function is only called once in the code:

+ Code Snippet

          Dist#=Distance#(length, TempX#, TempY#, TempZ#, PickX#, PickY#, PickZ#)

You can see there that the value of vecNum corresponds to the variable length in the calling code. That variable is not defined or used anywhere else in your code so it defaults to an integer variable initialised to zero - and that is why your code fails in current versions of DBPro.

I've pointed this error out to you in two emails already (which you've seen). How many more times do I have to tell you?

Quote: "For the life of me I cannot figure out why the click location (pick vectors) and vertex locations (tempX#, TempY#, TempZ#) are returning incorrectly - as the code seems to work in certain areas but not in others"

Yes, I've noticed that with your code but haven't had a chance to investigate yet. I seem to be having trouble getting you to understand a much simpler problem with your code.

Back to top

Profile PM Email

paul5147

20

Years of Service

User Offline

Joined: 11th Jan 2006

Location: Hot & Sunny

Posted: 29th Jun 2011 19:20

Link

Hi Daryn,
I've broken this down into the simplest demo i can for you.
It shows how to use sparkys and pick object together to to get the distance and collision point under the mouse,you will see that the marker follows the mouse pointer around the plains reporting the collision object,position of collision and distance from camera to collision point.
If you want i can also post the code from earlier with this selection method in that lets you modify the terrain under the mouse pointer rather than at random points.

`*********************************
`enviroment set up

IF CHECK DISPLAY MODE(1024,768,32) 
	SET DISPLAY MODE 1024,768,32
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-512
	posy=h/2-384
ELSE
	SET DISPLAY MODE 640,480,32
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-320
	posy=h/2-240
ENDIF
SET WINDOW POSITION posx,posy

SYNC ON
SYNC RATE 60
AUTOCAM OFF
`HIDE MOUSE
COLOR BACKDROP 0,0
SET TEXT FONT "Arial"
SET TEXT SIZE 12
SET TEXT TRANSPARENT

POSITION CAMERA 250,250,-250
POINT CAMERA 0,0,0
POSITION MOUSE SCREEN WIDTH()/2,SCREEN HEIGHT()/2
dummy=MOUSEMOVEX()
dummy=MOUSEMOVEY()

`*********************************	
`declarations and setup starts here

`make the objects that make up the landscape and set up the size variables
`column and row size
GLOBAL sz AS INTEGER=16
`actual object size to be created centred at 0,0,0 when created
GLOBAL obj_sz AS FLOAT=128.0
`how many tiles per row/col
GLOBAL tile_sz AS INTEGER=8
col=128``used to make a checker board pattern
obj=1
FOR y=0 TO tile_sz
	FOR x=0 TO tile_sz
		`ianm matrix1 command
		MAKE OBJECT PLAIN obj,obj_sz,obj_sz,sz,sz,338
		SET OBJECT WIREFRAME obj,1	
		POSITION OBJECT obj,x*obj_sz,0,y*obj_sz
		COLOR OBJECT obj,RGB(col,col,col)
		col=col+128
		IF col>256 THEN col=128
		SC_SETUPCOMPLEXOBJECT obj,0,2
		inc obj
	NEXT x
NEXT y

`make a marker object
global marker_object as integer=1000
make object cube marker_object,10
color object marker_object,rgb(255,0,0)

`make a vector to hold distance results
temp=MAKE VECTOR3(1)

`change these to floats to make it more accurate if needed
global distance_to_collision_point as integer
global collision_point_x as integer
global collision_point_y as integer
global collision_point_z as integer

`*********************************
`main loop starts here
DO

hit=raycast_to_mouse()
	
	if hit>0
		text 0,0,"hit object "+str$(hit)
	else
		text 0,0,"miss"
	endif
	text 0,20,"collision point x "+str$(collision_point_x)
	text 0,40,"collision point y "+str$(collision_point_y)
	text 0,60,"collision point z "+str$(collision_point_z)
	text 0,80,"distance to collision from camera "+str$(distance_to_collision_point)
	
	mouse_control(1.0)
	SYNC
LOOP

`*********************************
`functions start here
FUNCTION mouse_control(speed AS FLOAT)
	XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
	YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
	IF MOUSECLICK()=1 THEN MOVE CAMERA speed
	IF MOUSECLICK()=2 THEN MOVE CAMERA (0-speed)
	dummy=MOUSEMOVEX()
	dummy=MOUSEMOVEY()
ENDFUNCTION

function raycast_to_mouse()
	`target point in the distance
	pick screen mousex(),mousey(),10000
	ex=get pick vector x()+camera position x()
	ey=get pick vector y()+camera position y()
	ez=get pick vector z()+camera position z()
	`start point up against the camera
	pick screen mousex(),mousey(),0
	sx=get pick vector x()+camera position x()
	sy=get pick vector y()+camera position y()
	sz=get pick vector z()+camera position z()
	
	hit=sc_raycast(0,sx,sy,sz,ex,ey,ez,0)
	if hit>0	
		SHOW OBJECT marker_object
		cx# = SC_GETSTATICCOLLISIONX() : nx# = SC_GETCOLLISIONNORMALX()
     	cy# = SC_GETSTATICCOLLISIONY() : ny# = SC_GETCOLLISIONNORMALY()
      cz# = SC_GETSTATICCOLLISIONZ() : nz# = SC_GETCOLLISIONNORMALZ()
      POSITION OBJECT marker_object,cx#,cy#,cz#
      POINT OBJECT marker_object,cx#+(nx#*1000),cy#+(ny#*1000),cz#+(nz#*1000)
		collision_point_x=cx#
		collision_point_y=cy#
		collision_point_z=cz#
		distance_to_collision_point=distance(sx,sy,sz,cx#,cy#,cz#)
	else
		hide object marker_object
		collision_point_x=0.0
		collision_point_y=0.0
		collision_point_z=0.0
		distance_to_collision_point=0.0
	endif
endfunction hit

Function distance(x1#,y1#,z1#,x2#,y2#,z2#)
  	set vector3 1,x2#-x1#,y2#-y1#,z2#-z1#
  	dist#=length vector3(1)
EndFunction dist#

+ Code Snippet


`%ProjectTitle%
`======================
`©P.Parkinson
`======================
`Main Source File

`*********************************
`enviroment set up

IF CHECK DISPLAY MODE(1024,768,32) 
	SET DISPLAY MODE 1024,768,32
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-512
	posy=h/2-384
ELSE
	SET DISPLAY MODE 640,480,32
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-320
	posy=h/2-240
ENDIF
SET WINDOW POSITION posx,posy

SYNC ON
SYNC RATE 60
AUTOCAM OFF
`HIDE MOUSE
COLOR BACKDROP 0,0
SET TEXT FONT "Arial"
SET TEXT SIZE 12
SET TEXT TRANSPARENT

POSITION CAMERA 250,250,-250
POINT CAMERA 0,0,0
POSITION MOUSE SCREEN WIDTH()/2,SCREEN HEIGHT()/2
dummy=MOUSEMOVEX()
dummy=MOUSEMOVEY()

`*********************************	
`declarations and setup starts here

`make the objects that make up the landscape and set up the size variables
`column and row size
GLOBAL sz AS INTEGER=16
`actual object size to be created centred at 0,0,0 when created
GLOBAL obj_sz AS FLOAT=128.0
`how many tiles per row/col
GLOBAL tile_sz AS INTEGER=8
col=128``used to make a checker board pattern
obj=1
FOR y=0 TO tile_sz
	FOR x=0 TO tile_sz
		`ianm matrix1 command
		MAKE OBJECT PLAIN obj,obj_sz,obj_sz,sz,sz,338
		SET OBJECT WIREFRAME obj,1	
		POSITION OBJECT obj,x*obj_sz,0,y*obj_sz
		COLOR OBJECT obj,RGB(col,col,col)
		col=col+128
		IF col>256 THEN col=128
		SC_SETUPCOMPLEXOBJECT obj,0,2
		inc obj
	NEXT x
NEXT y

`make a marker object
global marker_object as integer=1000
make object cube marker_object,10
color object marker_object,rgb(255,0,0)

`make a vector to hold distance results
temp=MAKE VECTOR3(1)

`change these to floats to make it more accurate if needed
global distance_to_collision_point as integer
global collision_point_x as integer
global collision_point_y as integer
global collision_point_z as integer

`*********************************
`main loop starts here
DO

	hit=raycast_to_mouse()
	
	if hit>0
		text 0,0,"hit object "+str$(hit)
	else
		text 0,0,"miss"
	endif
	text 0,20,"collision point x "+str$(collision_point_x)
	text 0,40,"collision point y "+str$(collision_point_y)
	text 0,60,"collision point z "+str$(collision_point_z)
	text 0,80,"distance to collision from camera "+str$(distance_to_collision_point)
	
	mouse_control(1.0)
	SYNC
LOOP

`*********************************
`functions start here
FUNCTION mouse_control(speed AS FLOAT)
	XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
	YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
	IF MOUSECLICK()=1 THEN MOVE CAMERA speed
	IF MOUSECLICK()=2 THEN MOVE CAMERA (0-speed)
	dummy=MOUSEMOVEX()
	dummy=MOUSEMOVEY()
ENDFUNCTION

function raycast_to_mouse()
	`target point in the distance
	pick screen mousex(),mousey(),10000
	ex=get pick vector x()+camera position x()
	ey=get pick vector y()+camera position y()
	ez=get pick vector z()+camera position z()
	`start point up against the camera
	pick screen mousex(),mousey(),0
	sx=get pick vector x()+camera position x()
	sy=get pick vector y()+camera position y()
	sz=get pick vector z()+camera position z()
	
	hit=sc_raycast(0,sx,sy,sz,ex,ey,ez,0)
	if hit>0	
		SHOW OBJECT marker_object
		cx# = SC_GETSTATICCOLLISIONX() : nx# = SC_GETCOLLISIONNORMALX()
     	cy# = SC_GETSTATICCOLLISIONY() : ny# = SC_GETCOLLISIONNORMALY()
      cz# = SC_GETSTATICCOLLISIONZ() : nz# = SC_GETCOLLISIONNORMALZ()
      POSITION OBJECT marker_object,cx#,cy#,cz#
      POINT OBJECT marker_object,cx#+(nx#*1000),cy#+(ny#*1000),cz#+(nz#*1000)
		collision_point_x=cx#
		collision_point_y=cy#
		collision_point_z=cz#
		distance_to_collision_point=distance(sx,sy,sz,cx#,cy#,cz#)
	else
		hide object marker_object
		collision_point_x=0.0
		collision_point_y=0.0
		collision_point_z=0.0
		distance_to_collision_point=0.0
	endif
endfunction hit


Function distance(x1#,y1#,z1#,x2#,y2#,z2#)
  	set vector3 1,x2#-x1#,y2#-y1#,z2#-z1#
  	dist#=length vector3(1)
EndFunction dist#

Hope this helps

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Vertex position and calculation... little help please