Large Terrain - help with seams - GameCreators Forum

Author

Message

Daryn Alsup

18

Years of Service

User Offline

Joined: 5th Jul 2008

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

Posted: 30th Dec 2011 20:17 Edited at: 30th Dec 2011 23:08

Link

So a while ago I posted a topic here that outlined larger terrain w/ terraforming. I got help from GG, Back Slash, Van B and Paul (among others) on how to use arrays to edit multiple objects in vertexdata. I finally got something I'd like to work with - but I am having issues with seams. Take a look, no media needed.

You need Sparky's Collision plugin and Ian M's Matrix Utility Plugin for the code to work. It is still a little sluggish - but good enough fps for what I need it for.

If you reach the corner of one plane with the brush (a point intersecting with the corners of 4 planes) - A small to medium sized seam appears. I am trying to fix this issue exactly. Any thoughts?

`enviroment set up
type ob
number as integer
endtype

Startup()

`*********************************	
`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=128.0
`how many tiles per row/col
GLOBAL tile_sz AS INTEGER=8`change this to 256 and watch what happens
`first object
GLOBAL lod_first_obj AS INTEGER

global dim Objects(tile_sz+tile_sz) as Ob

col=128``used to make a checker board pattern
FOR y=0 TO tile_sz
	FOR x=0 TO tile_sz
		obj=free_object()
		Objects(X+Y).number=obj
		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 WIREFRAME obj,1	
		POSITION OBJECT obj,x*obj_sz,0,y*obj_sz
		COLOR OBJECT obj,RGB(128,128,128)
		SC_SETUPCOMPLEXOBJECT obj,0,2
	NEXT x
NEXT y

`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
Global dist# as float
global Object as integer
global px# as float
global py# as float
global pz# as float
global locationX# as float
global locationY# as float
global locationZ# as float

Global Dim objNums(8)
`*********************************
`main loop starts here
DO
	`check for raycast to landscape and place marker
	Answer=raycast_landscape()
	
	`show or hide the marker depending on collision
	
	`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$(cx)+" y="+STR$(cy)+" z="+STR$(cz)
	TEXT 0,40,"screen fps="+STR$(SCREEN FPS())
	TEXT 0,60,"object face hit="+STR$(face_hit)
	TEXT 0, 80, "Object Returned= "+Str$(Answer)
	
	
	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
	
	IF upkey()=1 THEN MOVE CAMERA speed
	IF downkey()=1 THEN MOVE CAMERA (0-speed)
	
	if mouseclick()=4
		XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
	ENDIF
	
		if rightkey()=1
		YROTATE CAMERA CAMERA ANGLE Y()+1
	ENDIF
	
			if leftkey()=1
		YROTATE CAMERA CAMERA ANGLE Y()-1
	ENDIF
	
	If Mouseclick()=3 
		MOVE CAMERA speed
		XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
		YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
	ENDIF
	
	dummy=MOUSEMOVEX()
	dummy=MOUSEMOVEY()
	
	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
ENDFUNCTION

FUNCTION free_object()
i = FIND FREE OBJECT()
ENDFUNCTION i

FUNCTION raycast_landscape()
ObjectNumber=location()

If ObjectNumber>0
	Answer=ObjectNumber
ENDIF

If ObjectNumber=0 then Answer=Ray_Cast_Obj_Marker

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,OBJECT POSITION X(ray_cast_obj_target),OBJECT POSITION Y(ray_cast_obj_target),OBJECT POSITION Z(ray_cast_obj_target), locationX#, LocationY#, LocationZ#,0)
	POSITION OBJECT ray_cast_obj_marker,LocationX#,LocationY#,LocationZ#
	IF col_obj>0
		cx = SC_GETSTATICCOLLISIONX() : nx = SC_GETCOLLISIONNORMALX()
     	cy = SC_GETSTATICCOLLISIONY() : ny = SC_GETCOLLISIONNORMALY()
      cz = SC_GETSTATICCOLLISIONZ() : nz = SC_GETCOLLISIONNORMALZ()
      POINT OBJECT ray_cast_obj_marker,cx,cy,cz
      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
BrushSize#=25.0
	
	Terraform(Objectnumber, Ray_Cast_Obj_Marker, BrushSize#)
ENDFUNCTION Answer

function Terraform(ObjectNumber, RayObjNum, BrushSize#)
	If MouseClick()=1
		 if Objectnumber>0
    objNums(0) = Objectnumber
    objNums(1) = Objectnumber + 1
    objNums(2) = Objectnumber - 1
    objNums(3) = Objectnumber + tile_sz
    objNums(4) = Objectnumber + tile_sz + 1
    objNums(5) = Objectnumber + tile_sz - 1
    objNums(6) = Objectnumber - tile_sz
    objNums(7) = Objectnumber - tile_sz + 1
    objNums(8) = Objectnumber - 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))
			length=1
          D#=Distance(TempX#, TempY#, TempZ#, OBJECT POSITION X(RayObjNum), OBJECT POSITION Y(RayObjNum), OBJECT POSITION Z(RayObjNum))
          
                    If D#<BrushSize#
          IncAmount#=cos(D#*2)
          endif
         
          If D#>BrushSize# or D#=<0.0
            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
ENDFUNCTION

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

function Location()	
			Dist#=GET PICK DISTANCE()
		Object=PICK OBJECT (mouseX(), mouseY(), Objects(0).number, Objects(tile_sz+tile_sz).number)
		PX#=GET PICK VECTOR X()
		PY#=GET PICK VECTOR Y()
		PZ#=GET PICK VECTOR Z()
	
	LocationX#=CAMERA POSITION X()+PX#
	LocationY#=CAMERA POSITION Y()+PY#
	LocationZ#=CAMERA POSITION Z()+PZ#
ENDFUNCTION Object

function Startup()
	IF CHECK DISPLAY MODE(DESKTOP WIDTH(),DESKTOP HEIGHT(),32) 
	SET DISPLAY MODE DESKTOP WIDTH(),DESKTOP HEIGHT(),32
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-w/2
	posy=h/2-h/2
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
COLOR BACKDROP 0,0
SET TEXT FONT "Arial"
SET TEXT SIZE 12
SET TEXT TRANSPARENT
SET CAMERA RANGE 1,1000
POSITION CAMERA 50,50,-50
POINT CAMERA 0,0,0
POSITION MOUSE SCREEN WIDTH()/2,SCREEN HEIGHT()/2
dummy=MOUSEMOVEX()
dummy=MOUSEMOVEY()
TEXT 0,0,"PLEASE WAIT DURING SET UP"
SYNC 
SYNC
ENDFUNCTION

Function distance(x1#,y1#,z1#,x2#,y2#,z2#)
	If VECTOR EXIST(200)=0
		Length=MAKE VECTOR3(200)
	ENDIF
  	set vector3 200,x2#-x1#,y2#-y1#,z2#-z1#
  	D#=length vector3(200)
EndFunction d#

+ Code Snippet

`enviroment set up
type ob
number as integer
endtype

Startup()

`*********************************	
`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=128.0
`how many tiles per row/col
GLOBAL tile_sz AS INTEGER=8`change this to 256 and watch what happens
`first object
GLOBAL lod_first_obj AS INTEGER

global dim Objects(tile_sz+tile_sz) as Ob

col=128``used to make a checker board pattern
FOR y=0 TO tile_sz
	FOR x=0 TO tile_sz
		obj=free_object()
		Objects(X+Y).number=obj
		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 WIREFRAME obj,1	
		POSITION OBJECT obj,x*obj_sz,0,y*obj_sz
		COLOR OBJECT obj,RGB(128,128,128)
		SC_SETUPCOMPLEXOBJECT obj,0,2
	NEXT x
NEXT y


`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
Global dist# as float
global Object as integer
global px# as float
global py# as float
global pz# as float
global locationX# as float
global locationY# as float
global locationZ# as float


Global Dim objNums(8)
`*********************************
`main loop starts here
DO
	`check for raycast to landscape and place marker
	Answer=raycast_landscape()
	
	`show or hide the marker depending on collision
	
	`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$(cx)+" y="+STR$(cy)+" z="+STR$(cz)
	TEXT 0,40,"screen fps="+STR$(SCREEN FPS())
	TEXT 0,60,"object face hit="+STR$(face_hit)
	TEXT 0, 80, "Object Returned= "+Str$(Answer)
	
	
	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
	
	IF upkey()=1 THEN MOVE CAMERA speed
	IF downkey()=1 THEN MOVE CAMERA (0-speed)
	
	if mouseclick()=4
		XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
	ENDIF
	
		if rightkey()=1
		YROTATE CAMERA CAMERA ANGLE Y()+1
	ENDIF
	
			if leftkey()=1
		YROTATE CAMERA CAMERA ANGLE Y()-1
	ENDIF
	
	If Mouseclick()=3 
		MOVE CAMERA speed
		XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
		YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
	ENDIF
	
	dummy=MOUSEMOVEX()
	dummy=MOUSEMOVEY()
	
	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
ENDFUNCTION

FUNCTION free_object()
i = FIND FREE OBJECT()
ENDFUNCTION i

FUNCTION raycast_landscape()
ObjectNumber=location()

If ObjectNumber>0
	Answer=ObjectNumber
ENDIF

If ObjectNumber=0 then Answer=Ray_Cast_Obj_Marker

	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,OBJECT POSITION X(ray_cast_obj_target),OBJECT POSITION Y(ray_cast_obj_target),OBJECT POSITION Z(ray_cast_obj_target), locationX#, LocationY#, LocationZ#,0)
	POSITION OBJECT ray_cast_obj_marker,LocationX#,LocationY#,LocationZ#
	IF col_obj>0
		cx = SC_GETSTATICCOLLISIONX() : nx = SC_GETCOLLISIONNORMALX()
     	cy = SC_GETSTATICCOLLISIONY() : ny = SC_GETCOLLISIONNORMALY()
      cz = SC_GETSTATICCOLLISIONZ() : nz = SC_GETCOLLISIONNORMALZ()
      POINT OBJECT ray_cast_obj_marker,cx,cy,cz
      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
BrushSize#=25.0
	
	Terraform(Objectnumber, Ray_Cast_Obj_Marker, BrushSize#)
ENDFUNCTION Answer

function Terraform(ObjectNumber, RayObjNum, BrushSize#)
	If MouseClick()=1
		 if Objectnumber>0
    objNums(0) = Objectnumber
    objNums(1) = Objectnumber + 1
    objNums(2) = Objectnumber - 1
    objNums(3) = Objectnumber + tile_sz
    objNums(4) = Objectnumber + tile_sz + 1
    objNums(5) = Objectnumber + tile_sz - 1
    objNums(6) = Objectnumber - tile_sz
    objNums(7) = Objectnumber - tile_sz + 1
    objNums(8) = Objectnumber - 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))
			length=1
          D#=Distance(TempX#, TempY#, TempZ#, OBJECT POSITION X(RayObjNum), OBJECT POSITION Y(RayObjNum), OBJECT POSITION Z(RayObjNum))
          
                    If D#<BrushSize#
          IncAmount#=cos(D#*2)
          endif
         
          If D#>BrushSize# or D#=<0.0
            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
ENDFUNCTION

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

function Location()	
			Dist#=GET PICK DISTANCE()
		Object=PICK OBJECT (mouseX(), mouseY(), Objects(0).number, Objects(tile_sz+tile_sz).number)
		PX#=GET PICK VECTOR X()
		PY#=GET PICK VECTOR Y()
		PZ#=GET PICK VECTOR Z()
	
	LocationX#=CAMERA POSITION X()+PX#
	LocationY#=CAMERA POSITION Y()+PY#
	LocationZ#=CAMERA POSITION Z()+PZ#
ENDFUNCTION Object

function Startup()
	IF CHECK DISPLAY MODE(DESKTOP WIDTH(),DESKTOP HEIGHT(),32) 
	SET DISPLAY MODE DESKTOP WIDTH(),DESKTOP HEIGHT(),32
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-w/2
	posy=h/2-h/2
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
COLOR BACKDROP 0,0
SET TEXT FONT "Arial"
SET TEXT SIZE 12
SET TEXT TRANSPARENT
SET CAMERA RANGE 1,1000
POSITION CAMERA 50,50,-50
POINT CAMERA 0,0,0
POSITION MOUSE SCREEN WIDTH()/2,SCREEN HEIGHT()/2
dummy=MOUSEMOVEX()
dummy=MOUSEMOVEY()
TEXT 0,0,"PLEASE WAIT DURING SET UP"
SYNC 
SYNC
ENDFUNCTION

Function distance(x1#,y1#,z1#,x2#,y2#,z2#)
	If VECTOR EXIST(200)=0
		Length=MAKE VECTOR3(200)
	ENDIF
  	set vector3 200,x2#-x1#,y2#-y1#,z2#-z1#
  	D#=length vector3(200)
EndFunction d#

EDIT:
Here's an Image

EDIT 2:
I could make several arrays with types attached ( A(vertexnumber).X) and position them at the correct locations (AKA take the object width and height and determine which vertices are on the edges of each plane and then smooth them based on average... but that's something I've not done. I grasp how to, but if there is a method of doing so, someone let me know or I'm gonna reinvent the wheel here) That would solve the problem theoretically.

EDIT 3: I need to understand how to use the arrays... here's an example with a 'array fix' for the seams that IS NOT working correctly.

`enviroment set up
type ob
number as integer
endtype
Type Verposition
number as Integer
X as float
Y as float
Z as float
endtype

Startup()

`*********************************	
`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=128.0
`how many tiles per row/col
GLOBAL tile_sz AS INTEGER=4`change this to 256 and watch what happens
`first object
GLOBAL lod_first_obj AS INTEGER

global dim Objects(tile_sz+tile_sz) as Ob

col=128``used to make a checker board pattern
FOR y=0 TO tile_sz
	FOR x=0 TO tile_sz
		obj=free_object()
		Objects(X+Y).number=obj
		IF x=0 AND y=0
			lod_first_obj=obj
		ENDIF

`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
		If X=0
					LOCK VERTEXDATA FOR LIMB Objects(X+Y).number, 0
		Amount=Get vertexdata vertex count()
		unlock vertexdata
		ENDIF
		COLOR OBJECT obj,RGB(128,128,128)
		SC_SETUPCOMPLEXOBJECT obj,0,2
	NEXT x
NEXT y

global dim Obj1(Amount) as Verposition
global dim Obj2(Amount) as Verposition
global dim Obj3(Amount) as Verposition
global dim Obj4(Amount) as Verposition
global dim Obj5(Amount) as Verposition

`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
Global dist# as float
global Object as integer
global px# as float
global py# as float
global pz# as float
global locationX# as float
global locationY# as float
global locationZ# as float

Global Dim objNums(8)
`*********************************
`main loop starts here
DO
	`check for raycast to landscape and place marker
	Answer=raycast_landscape()
	
	`show or hide the marker depending on collision
	
	`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$(cx)+" y="+STR$(cy)+" z="+STR$(cz)
	TEXT 0,40,"screen fps="+STR$(SCREEN FPS())
	TEXT 0,60,"object face hit="+STR$(face_hit)
	TEXT 0, 80, "Object Returned= "+Str$(Answer)
	
	
	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
	
	IF upkey()=1 THEN MOVE CAMERA speed
	IF downkey()=1 THEN MOVE CAMERA (0-speed)
	
	if mouseclick()=4
		XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
	ENDIF
	
		if rightkey()=1
		YROTATE CAMERA CAMERA ANGLE Y()+1
	ENDIF
	
			if leftkey()=1
		YROTATE CAMERA CAMERA ANGLE Y()-1
	ENDIF
	
	If Mouseclick()=3 
		MOVE CAMERA speed
		XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
		YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
	ENDIF
	
	dummy=MOUSEMOVEX()
	dummy=MOUSEMOVEY()
	
	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
ENDFUNCTION

FUNCTION free_object()
i = FIND FREE OBJECT()
ENDFUNCTION i

FUNCTION raycast_landscape()
ObjectNumber=location()

If ObjectNumber>0
	Answer=ObjectNumber
ENDIF

If ObjectNumber=0 then Answer=Ray_Cast_Obj_Marker

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,OBJECT POSITION X(ray_cast_obj_target),OBJECT POSITION Y(ray_cast_obj_target),OBJECT POSITION Z(ray_cast_obj_target), locationX#, LocationY#, LocationZ#,0)
	POSITION OBJECT ray_cast_obj_marker,LocationX#,LocationY#,LocationZ#
	IF col_obj>0
		cx = SC_GETSTATICCOLLISIONX() : nx = SC_GETCOLLISIONNORMALX()
     	cy = SC_GETSTATICCOLLISIONY() : ny = SC_GETCOLLISIONNORMALY()
      cz = SC_GETSTATICCOLLISIONZ() : nz = SC_GETCOLLISIONNORMALZ()
      POINT OBJECT ray_cast_obj_marker,cx,cy,cz
      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
BrushSize#=sz/2
	If mouseclick()=1
	Terraform(Objectnumber, Ray_Cast_Obj_Marker, BrushSize#)
	endif
ENDFUNCTION Answer

function Terraform(ObjectNumber, RayObjNum, BrushSize#)
		 if Objectnumber>0
    objNums(0) = Objectnumber
    objNums(1) = Objectnumber + 1
    objNums(2) = Objectnumber - 1
    objNums(3) = Objectnumber + tile_sz
    objNums(4) = Objectnumber + tile_sz + 1
    objNums(5) = Objectnumber + tile_sz - 1
    objNums(6) = Objectnumber - tile_sz
    objNums(7) = Objectnumber - tile_sz + 1
    objNums(8) = Objectnumber - 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))
			length=1
          D#=Distance(TempX#, TempY#, TempZ#, OBJECT POSITION X(RayObjNum), OBJECT POSITION Y(RayObjNum), OBJECT POSITION Z(RayObjNum))
          
                    If D#<BrushSize#
          IncAmount#=cos(D#*2)
          endif
         
          If D#>BrushSize# or D#=<0.0
            incAmount# = 0.0
          endif

`the seamless array
          `Center object
          If Obj=0
          Obj1(Array).X=TempX#
          Obj1(Array).Y=TempY# 
          Obj1(Array).Z=TempZ#
          obj1(array).number=objNums(obj)
          endif
          If Obj=1
          Obj2(Array).X=TempX#
          Obj2(Array).Y=TempY# 
          Obj2(Array).Z=TempX#
          obj2(array).number=objNums(obj)
          endif
          If Obj=2
          Obj3(Array).X=TempX#
          Obj3(Array).Y=TempY# 
          Obj3(Array).Z=TempZ#
          obj3(array).number=objNums(obj)
          endif
          If Obj=7
          Obj4(Array).X=TempX#
          Obj4(Array).Y=TempY# 
          Obj4(Array).Z=TempZ#
          obj4(array).number=objNums(obj)
          endif
		  If Obj=8
          Obj5(Array).X=TempX#
          Obj5(Array).Y=TempY#
          Obj5(Array).Z=TempZ#
          obj5(array).number=objNums(obj)
          endif
          
          IF Obj1(Array).X=Obj2(Array).X and Obj1(array).Z= Obj2(array).Z then Obj2(Array).Y=Obj1(Array).Y : VerY#=Obj1(array).Y
		IF Obj1(Array).X=Obj3(Array).X and Obj1(array).Z= Obj3(array).Z then Obj3(Array).Y=Obj1(Array).Y : VerY#=Obj1(array).Y
		IF Obj1(Array).X=Obj4(Array).X and Obj1(array).Z= Obj4(array).Z then Obj4(Array).Y=Obj1(Array).Y : VerY#=Obj1(array).Y
		IF Obj1(Array).X=Obj5(Array).X and Obj1(array).Z= Obj5(array).Z then Obj5(Array).Y=Obj1(Array).Y : VerY#=Obj1(array).Y

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
ENDFUNCTION

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

function Location()	
			Dist#=GET PICK DISTANCE()
		Object=PICK OBJECT (mouseX(), mouseY(), Objects(0).number, Objects(tile_sz+tile_sz).number)
		PX#=GET PICK VECTOR X()
		PY#=GET PICK VECTOR Y()
		PZ#=GET PICK VECTOR Z()
	
	LocationX#=CAMERA POSITION X()+PX#
	LocationY#=CAMERA POSITION Y()+PY#
	LocationZ#=CAMERA POSITION Z()+PZ#
ENDFUNCTION Object

function Startup()
	IF CHECK DISPLAY MODE(DESKTOP WIDTH(),DESKTOP HEIGHT(),32) 
	SET DISPLAY MODE DESKTOP WIDTH(),DESKTOP HEIGHT(),32
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-w/2
	posy=h/2-h/2
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
COLOR BACKDROP 0,0
SET TEXT FONT "Arial"
SET TEXT SIZE 12
SET TEXT TRANSPARENT
SET CAMERA RANGE 1,1000
POSITION CAMERA 50,50,-50
POINT CAMERA 0,0,0
POSITION MOUSE SCREEN WIDTH()/2,SCREEN HEIGHT()/2
dummy=MOUSEMOVEX()
dummy=MOUSEMOVEY()
TEXT 0,0,"PLEASE WAIT DURING SET UP"
SYNC 
SYNC
ENDFUNCTION

Function distance(x1#,y1#,z1#,x2#,y2#,z2#)
	If VECTOR EXIST(200)=0
		Length=MAKE VECTOR3(200)
	ENDIF
  	set vector3 200,x2#-x1#,y2#-y1#,z2#-z1#
  	D#=length vector3(200)
EndFunction d#

+ Code Snippet

`enviroment set up
type ob
number as integer
endtype
Type Verposition
number as Integer
X as float
Y as float
Z as float
endtype

Startup()

`*********************************	
`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=128.0
`how many tiles per row/col
GLOBAL tile_sz AS INTEGER=4`change this to 256 and watch what happens
`first object
GLOBAL lod_first_obj AS INTEGER

global dim Objects(tile_sz+tile_sz) as Ob

col=128``used to make a checker board pattern
FOR y=0 TO tile_sz
	FOR x=0 TO tile_sz
		obj=free_object()
		Objects(X+Y).number=obj
		IF x=0 AND y=0
			lod_first_obj=obj
		ENDIF 

		`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
		If X=0
					LOCK VERTEXDATA FOR LIMB Objects(X+Y).number, 0
		Amount=Get vertexdata vertex count()
		unlock vertexdata
		ENDIF
		COLOR OBJECT obj,RGB(128,128,128)
		SC_SETUPCOMPLEXOBJECT obj,0,2
	NEXT x
NEXT y

global dim Obj1(Amount) as Verposition
global dim Obj2(Amount) as Verposition
global dim Obj3(Amount) as Verposition
global dim Obj4(Amount) as Verposition
global dim Obj5(Amount) as Verposition


`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
Global dist# as float
global Object as integer
global px# as float
global py# as float
global pz# as float
global locationX# as float
global locationY# as float
global locationZ# as float


Global Dim objNums(8)
`*********************************
`main loop starts here
DO
	`check for raycast to landscape and place marker
	Answer=raycast_landscape()
	
	`show or hide the marker depending on collision
	
	`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$(cx)+" y="+STR$(cy)+" z="+STR$(cz)
	TEXT 0,40,"screen fps="+STR$(SCREEN FPS())
	TEXT 0,60,"object face hit="+STR$(face_hit)
	TEXT 0, 80, "Object Returned= "+Str$(Answer)
	
	
	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
	
	IF upkey()=1 THEN MOVE CAMERA speed
	IF downkey()=1 THEN MOVE CAMERA (0-speed)
	
	if mouseclick()=4
		XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
	ENDIF
	
		if rightkey()=1
		YROTATE CAMERA CAMERA ANGLE Y()+1
	ENDIF
	
			if leftkey()=1
		YROTATE CAMERA CAMERA ANGLE Y()-1
	ENDIF
	
	If Mouseclick()=3 
		MOVE CAMERA speed
		XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
		YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
	ENDIF
	
	dummy=MOUSEMOVEX()
	dummy=MOUSEMOVEY()
	
	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
ENDFUNCTION

FUNCTION free_object()
i = FIND FREE OBJECT()
ENDFUNCTION i

FUNCTION raycast_landscape()
ObjectNumber=location()

If ObjectNumber>0
	Answer=ObjectNumber
ENDIF

If ObjectNumber=0 then Answer=Ray_Cast_Obj_Marker

	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,OBJECT POSITION X(ray_cast_obj_target),OBJECT POSITION Y(ray_cast_obj_target),OBJECT POSITION Z(ray_cast_obj_target), locationX#, LocationY#, LocationZ#,0)
	POSITION OBJECT ray_cast_obj_marker,LocationX#,LocationY#,LocationZ#
	IF col_obj>0
		cx = SC_GETSTATICCOLLISIONX() : nx = SC_GETCOLLISIONNORMALX()
     	cy = SC_GETSTATICCOLLISIONY() : ny = SC_GETCOLLISIONNORMALY()
      cz = SC_GETSTATICCOLLISIONZ() : nz = SC_GETCOLLISIONNORMALZ()
      POINT OBJECT ray_cast_obj_marker,cx,cy,cz
      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
BrushSize#=sz/2
	If mouseclick()=1
	Terraform(Objectnumber, Ray_Cast_Obj_Marker, BrushSize#)
	endif
ENDFUNCTION Answer

function Terraform(ObjectNumber, RayObjNum, BrushSize#)
		 if Objectnumber>0
    objNums(0) = Objectnumber
    objNums(1) = Objectnumber + 1
    objNums(2) = Objectnumber - 1
    objNums(3) = Objectnumber + tile_sz
    objNums(4) = Objectnumber + tile_sz + 1
    objNums(5) = Objectnumber + tile_sz - 1
    objNums(6) = Objectnumber - tile_sz
    objNums(7) = Objectnumber - tile_sz + 1
    objNums(8) = Objectnumber - 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))
			length=1
          D#=Distance(TempX#, TempY#, TempZ#, OBJECT POSITION X(RayObjNum), OBJECT POSITION Y(RayObjNum), OBJECT POSITION Z(RayObjNum))
          
                    If D#<BrushSize#
          IncAmount#=cos(D#*2)
          endif
         
          If D#>BrushSize# or D#=<0.0
            incAmount# = 0.0
          endif

          
          
          `the seamless array
          `Center object
          If Obj=0
          Obj1(Array).X=TempX#
          Obj1(Array).Y=TempY# 
          Obj1(Array).Z=TempZ#
          obj1(array).number=objNums(obj)
          endif
          If Obj=1
          Obj2(Array).X=TempX#
          Obj2(Array).Y=TempY# 
          Obj2(Array).Z=TempX#
          obj2(array).number=objNums(obj)
          endif
          If Obj=2
          Obj3(Array).X=TempX#
          Obj3(Array).Y=TempY# 
          Obj3(Array).Z=TempZ#
          obj3(array).number=objNums(obj)
          endif
          If Obj=7
          Obj4(Array).X=TempX#
          Obj4(Array).Y=TempY# 
          Obj4(Array).Z=TempZ#
          obj4(array).number=objNums(obj)
          endif
		  If Obj=8
          Obj5(Array).X=TempX#
          Obj5(Array).Y=TempY#
          Obj5(Array).Z=TempZ#
          obj5(array).number=objNums(obj)
          endif
          
          IF Obj1(Array).X=Obj2(Array).X and Obj1(array).Z= Obj2(array).Z then Obj2(Array).Y=Obj1(Array).Y : VerY#=Obj1(array).Y
		IF Obj1(Array).X=Obj3(Array).X and Obj1(array).Z= Obj3(array).Z then Obj3(Array).Y=Obj1(Array).Y : VerY#=Obj1(array).Y
		IF Obj1(Array).X=Obj4(Array).X and Obj1(array).Z= Obj4(array).Z then Obj4(Array).Y=Obj1(Array).Y : VerY#=Obj1(array).Y
		IF Obj1(Array).X=Obj5(Array).X and Obj1(array).Z= Obj5(array).Z then Obj5(Array).Y=Obj1(Array).Y : VerY#=Obj1(array).Y

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
ENDFUNCTION

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

function Location()	
			Dist#=GET PICK DISTANCE()
		Object=PICK OBJECT (mouseX(), mouseY(), Objects(0).number, Objects(tile_sz+tile_sz).number)
		PX#=GET PICK VECTOR X()
		PY#=GET PICK VECTOR Y()
		PZ#=GET PICK VECTOR Z()
	
	LocationX#=CAMERA POSITION X()+PX#
	LocationY#=CAMERA POSITION Y()+PY#
	LocationZ#=CAMERA POSITION Z()+PZ#
ENDFUNCTION Object

function Startup()
	IF CHECK DISPLAY MODE(DESKTOP WIDTH(),DESKTOP HEIGHT(),32) 
	SET DISPLAY MODE DESKTOP WIDTH(),DESKTOP HEIGHT(),32
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-w/2
	posy=h/2-h/2
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
COLOR BACKDROP 0,0
SET TEXT FONT "Arial"
SET TEXT SIZE 12
SET TEXT TRANSPARENT
SET CAMERA RANGE 1,1000
POSITION CAMERA 50,50,-50
POINT CAMERA 0,0,0
POSITION MOUSE SCREEN WIDTH()/2,SCREEN HEIGHT()/2
dummy=MOUSEMOVEX()
dummy=MOUSEMOVEY()
TEXT 0,0,"PLEASE WAIT DURING SET UP"
SYNC 
SYNC
ENDFUNCTION

Function distance(x1#,y1#,z1#,x2#,y2#,z2#)
	If VECTOR EXIST(200)=0
		Length=MAKE VECTOR3(200)
	ENDIF
  	set vector3 200,x2#-x1#,y2#-y1#,z2#-z1#
  	D#=length vector3(200)
EndFunction d#

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: 31st Dec 2011 08:23

Link

No one?

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

Rudolpho

20

Years of Service

User Offline

Joined: 28th Dec 2005

Location: Sweden

Posted: 31st Dec 2011 12:19

Link

I haven't studied your code closely, but are you sure that your shared edge vertices are overlapping?
For example:

+ Code Snippet

1   2   5

3   4   6

where 2 represents the position of the top right vertex of the first segment as well as the top left vertex of the second segment and 4 in the same manner is the position of both the first segment's bottom right and the second segment's bottom left vertices. (The shared vertices should of course share normals and uv's (and diffuse, if you use that) in order to prevent visual artifacts).

"Why do programmers get Halloween and Christmas mixed up?"

+ Code Snippet

Because Oct(31) = Dec(25)

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: 31st Dec 2011 18:04

Link

I'm not sure if they are - but without this array bit, only the corners (and surrounding vertices) appear to rip at the seams. I guess I'm trying to check the X and Z locations of vertices and if they are within an allotted distance, they equal Y.

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

WLGfx

18

Years of Service

User Offline

Joined: 1st Nov 2007

Location: NW United Kingdom

Posted: 31st Dec 2011 21:18

Link

I do know that when using the MATRIX set of commands for terrain you can use the SET MATRIX TRIM which will trim the textures to stop the seams showing as I've used it recently. But with objects you might have to alter the UV's manually for the same thing.

Also if your textures are just a single image per texture then a texture flag may be out, unlikely though. I think what I mean is that it should be set to tiling by default but they can be set to non-tiling too.

Mental arithmetic? Me? (That's for computers) I can't subtract a fart from a plate of beans!
Warning! May contain Nuts!

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: 31st Dec 2011 23:10

Link

Actually what I was refering to (seams) was the plane objects "ripping" at the corners as I terraform. Everything (objects making up the terrain) is entered into an array that includes the vertexdata for the pick objects as well as the objects left, right, top, bottom, and corresponding corners... like a square with 8 squares around it. For some reason, the corners of the pick object don't match the corners of the objects surrounding it. I am fiddling with this, but it appears to be a tricky bit of editing when using arrays. Damn it all.

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: 3rd Jan 2012 08:48

Link

Can someone show me how this is done? I have tried everything from calculating the positions of vertices on the edges of each plane and if a difference is present, normalizing the difference to saving each vertex's position and editing outside of vertexdata and then importing them into vertexdata - but nothing is elimination the issue. ANY HELP, OR IDEAS would greatly be appreciated. Feel free to use the code yourself if you can help me in any way possible!

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

Rais

23

Years of Service

User Offline

Joined: 7th Jul 2003

Location:

Posted: 3rd Jan 2012 14:01 Edited at: 3rd Jan 2012 14:02

Link

There's a slight problem with the array your using to track the terrain object numbers. If im looking at this correctly your creating a 8x8 grid of objects (64 objects) but your 'Objects' array is only can only hold 16 entry's (8+8).

Have a look at the section code below, 2 simple changes and it appears to work:

+ Code Snippet

`global dim Objects(tile_sz+tile_sz) as Ob
global dim Objects(tile_sz*tile_sz) as Ob `Change Here

col=128``used to make a checker board pattern
FOR y=0 TO tile_sz-1
    FOR x=0 TO tile_sz-1
        obj=free_object()
`        Objects(X+Y).number=obj
        Objects(X+(Y*tile_sz)).number=obj `Change Here

        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 WIREFRAME obj,1    
        POSITION OBJECT obj,x*obj_sz,0,y*obj_sz
        COLOR OBJECT obj,RGB(128,128,128)
        SC_SETUPCOMPLEXOBJECT obj,0,2
    NEXT x
NEXT y

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: 4th Jan 2012 20:49

Link

Okay - seaming errors fixed. (You were right rais)

posting updated version after I write this terrain shader

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

gwheycs62egydws

16

Years of Service

User Offline

Joined: 17th Aug 2009

Location: The World

Posted: 5th Jan 2012 05:43

Link

@Daryn Alsup

nice code

with the fix to the overlapping part posted by "Rais"

I noticed a line as if the land as an object was split in 2 peace

with texture added to it ,
it would be a bit less noticeable but it would still stand out
and might affect if the object moving on it would get stuck on it
or consider it an obstacle

I look forward to seeing how this go's

to move side ways - is to move forward
Since a Strait line gets thin fast

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: 5th Jan 2012 10:15

Link

This is due to the normals and lighting... the shader i'm applying to it will use the world matrix to position normals. Shading and any differences in 'shadows' that may create lines will be eliminated.

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

gwheycs62egydws

16

Years of Service

User Offline

Joined: 17th Aug 2009

Location: The World

Posted: 5th Jan 2012 10:29

Link

a smaller x,z triangle between spots would blend better

how big a matrix would this be able to create ?

saying that even with hiding land farther away

there would be limit as to how much land could be created
and adding in every thing else to make up a level would all affect cps
even if the code was built into a dll

creating many matrix's and only showing the 6 with in an area would permit
large levels to be built

I've been playing Serious Sam Classic and there are large areas
even Grand Theft Auto broken down had large playing area's

and since "Real-time Occlusion Culling"
this would give some speed back . perhaps one day it can also be
dll'd to speed things up even more

to move side ways - is to move forward
Since a Strait line gets thin fast

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: 5th Jan 2012 11:34

Link

Per this post - feel free to MSN me @ [email protected].

What this code does is check the objects north, south, east and west of the pick object (returned by the 'pick' commands) as well as NNE, NNW, SSE, SSW corner objects and enters them all into vertexdata (not all at once mind you) and there the terraforming takes place. Just change the 'tile_sz' global to a higher value and see what happens... be warned though - you may need to change the camera view too or FPS will drop... as for the matrix I am talking about - its not a physical object persay - nothing you can see... just how normals are calculated based on world position not object vertex position(s)... (sorry for the lazy explaination

but I mean: WORLD normalization vs per object normalization- in which case otherwise, you would notice the differences between objects)

Anywho, try changing the global variable and see how it renders - I originally was going to use this to make a city building game, but it can serve more than one purpose now. You could also create lods - create another set of objects 1/2 the size of the other and show them when the camera is "X" away from the object. - You would have to figure out the vertexdata array variance math

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

gwheycs62egydws

16

Years of Service

User Offline

Joined: 17th Aug 2009

Location: The World

Posted: 6th Jan 2012 21:56

Link

@Daryn Alsup

for some reason in your first post to here

edit 2 would stop working and take me back to the edit screen
but edit 1 with the modification would not do that

I never got an error message it just quit

attached is the updated code and exe

to move side ways - is to move forward
Since a Strait line gets thin fast

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: 6th Jan 2012 23:40

Link

@Resourceful:

All the above errors have been fixed. I would like to correspond with you concerning this project and anyone else who would like to.

Here is it's purpose (one of them)

1)
I have made a function that writes LUAs containing each plane's location, vertexdata position and all mesh data. This function is used in the *Terrain Editor. The LUA file also contains the Terrain Name, *player entry point, portal(s) location to interior levels that the *Interior level editor can link with, merchant locations, enemy locations and types and other variables as well as how and when the *map location you've designed is available while the player journeys across the *World.

2)
Within the game engine, another function reads the LUA file you have *exported into the game *import folder. It is then told how to interpret the data and build it into the game itself.

I am not proficient enough to create a replica (nor would I want to) of the Dragon Age editor - BUT I am dexterous enough to model something similar.

The same method of writing LUAs could be used for a City Simulation or other type of Game, not just RPG. While I am basing the Game of a book I wrote in College, the actual look of the game is going to either make or break it. I am trying to make it as real-life looking as possible. Other wise the story will be flawed by the entire look of the game.

Resourceful, you are very creative in your thoughts, thus, I would love to correspond. Please message me or IM me if you are interested. If the game can be marketed, your contributions will be paid as well. That is a great length away however.

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

gwheycs62egydws

16

Years of Service

User Offline

Joined: 17th Aug 2009

Location: The World

Posted: 6th Jan 2012 23:41

Link

ummm there is bug

it seams 2 squares from ware you start

x,z
0,0

you cant go past
x,z
0,3

but left to right of 0,0 to 8,0
is changeable

every thing look correct in the code

check out the attached pic

to move side ways - is to move forward
Since a Strait line gets thin fast

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: 6th Jan 2012 23:43 Edited at: 6th Jan 2012 23:46

Link

Here is the updated code - I remed out the media - try it - if you get the media error(s) - look and rem it out... it's hard to do at one glance - so forgive me if I missed something

EDIT - ALSO added color object to rgb(128,128,128) so it's not so bright.

`enviroment set up
type ob
number as integer
endtype
Type Verposition
number as Integer
X as float
Y as float
Z as float
endtype

Startup()

`*********************************	
`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=128.0
`how many tiles per row/col
GLOBAL tile_sz AS INTEGER=4`change this to 256 and watch what happens
`first object
GLOBAL lod_first_obj AS INTEGER

global dim Objects(tile_sz*tile_sz) as Ob

col=128``used to make a checker board pattern
`LOAD EFFECT "Shaders\TerrainTexture.fx", 1, 1
`LOAD IMAGE "Shaders\Grass2.jpg", 2, 1
`LOAD IMAGE "Shaders\Grassy Rock.jpg", 3, 1
`LOAD IMAGE "Shaders\Ice Cliff.jpg", 4, 1
`LOAD IMAGE "Shaders\Snow.jpg", 5, 1

FOR y=0 TO tile_sz-1
	FOR x=0 TO tile_sz-1
		obj=free_object()
		Objects(X+(Y*tile_sz)).number=obj
		IF x=0 AND y=0
			lod_first_obj=obj
		ENDIF

`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
					LOCK VERTEXDATA FOR LIMB Objects(X+(Y*tile_sz)).number, 0
		Amount=Get vertexdata vertex count()
		unlock vertexdata
		`TEXTURE OBJECT Objects(X+(Y*tile_sz)).number, 0, 5
		`TEXTURE OBJECT Objects(X+(Y*tile_sz)).number, 1, 4
		`TEXTURE OBJECT Objects(X+(Y*tile_sz)).number, 2, 3
		`TEXTURE OBJECT Objects(X+(Y*tile_sz)).number, 3, 2
		`SET OBJECT EFFECT Objects(X+(Y*tile_sz)).number, 1
                 COLOR OBJECT obj, RGB(128,128,128)
		SC_SETUPCOMPLEXOBJECT obj,0,2
	NEXT x
NEXT y

global dim Obj1(Amount) as Verposition
global dim Obj2(Amount) as Verposition
global dim Obj3(Amount) as Verposition
global dim Obj4(Amount) as Verposition
global dim Obj5(Amount) as Verposition
global dim Obj6(Amount) as Verposition
global dim Obj7(Amount) as Verposition
global dim Obj8(Amount) as Verposition
global dim Obj9(Amount) as Verposition

`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
Global dist# as float
global Object as integer
global px# as float
global py# as float
global pz# as float
global locationX# as float
global locationY# as float
global locationZ# as float

Global Dim objNums(8)
`*********************************
`main loop starts here
DO
	
Sprite Msprite, mouseX(), MouseY(), FI
	`check for raycast to landscape and place marker
	Answer=raycast_landscape()
	
	`show or hide the marker depending on collision
	
	`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$(cx)+" y="+STR$(cy)+" z="+STR$(cz)
	TEXT 0,40,"screen fps="+STR$(SCREEN FPS())
	TEXT 0,60,"object face hit="+STR$(face_hit)
	TEXT 0, 80, "Object Returned= "+Str$(Answer)
	
	
	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
	
	IF upkey()=1 THEN MOVE CAMERA speed
	IF downkey()=1 THEN MOVE CAMERA (0-speed)
	
	if mouseclick()=4
		XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
	ENDIF
	
		if rightkey()=1
		YROTATE CAMERA CAMERA ANGLE Y()+1
	ENDIF
	
			if leftkey()=1
		YROTATE CAMERA CAMERA ANGLE Y()-1
	ENDIF
	
	If Mouseclick()=3 
		MOVE CAMERA speed
		XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
		YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
	ENDIF
	
	dummy=MOUSEMOVEX()
	dummy=MOUSEMOVEY()
	
	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
ENDFUNCTION

FUNCTION free_object()
i = FIND FREE OBJECT()
ENDFUNCTION i

FUNCTION raycast_landscape()
ObjectNumber=location()

If ObjectNumber>0
	Answer=ObjectNumber
ENDIF

If ObjectNumber=0 then Answer=Ray_Cast_Obj_Marker

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,OBJECT POSITION X(ray_cast_obj_target),OBJECT POSITION Y(ray_cast_obj_target),OBJECT POSITION Z(ray_cast_obj_target), locationX#, LocationY#, LocationZ#,0)
	POSITION OBJECT ray_cast_obj_marker,LocationX#,LocationY#,LocationZ#
	IF col_obj>0
		cx = SC_GETSTATICCOLLISIONX() : nx = SC_GETCOLLISIONNORMALX()
     	cy = SC_GETSTATICCOLLISIONY() : ny = SC_GETCOLLISIONNORMALY()
      cz = SC_GETSTATICCOLLISIONZ() : nz = SC_GETCOLLISIONNORMALZ()
      POINT OBJECT ray_cast_obj_marker,cx,cy,cz
      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
BrushSize#=sz/2
	If mouseclick()=1
	Terraform(Objectnumber, Ray_Cast_Obj_Marker, BrushSize#)
	endif
ENDFUNCTION Answer

function Terraform(ObjectNumber, RayObjNum, BrushSize#)
		 if Objectnumber>0
    objNums(0) = Objectnumber
    objNums(1) = Objectnumber + 1
    objNums(2) = Objectnumber - 1
    objNums(3) = Objectnumber + tile_sz
    objNums(4) = Objectnumber + tile_sz + 1
    objNums(5) = Objectnumber + tile_sz - 1
    objNums(6) = Objectnumber - tile_sz
    objNums(7) = Objectnumber - tile_sz + 1
    objNums(8) = Objectnumber - 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))
			length=1
          D#=Distance(TempX#, TempY#, TempZ#, OBJECT POSITION X(RayObjNum), OBJECT POSITION Y(RayObjNum), OBJECT POSITION Z(RayObjNum))
          
                    If D#<BrushSize#
          IncAmount#=cos(D#*2)
          endif
         
          If D#>BrushSize# or D#=<0.0
            incAmount# = 0.0
          endif
          
if incAmount# > 0.0 then SET VERTEXDATA POSITION Array, VerX#, VerY# + incAmount#, VerZ# : reCalculateNormals = 1
`SET VERTEXDATA DIFFUSE Array, RGB(64*sin(Very#)+64,64*Cos(Very#)+64, 32*Tan(Very#)+32)

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
ENDFUNCTION

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

function Location()	
			Dist#=GET PICK DISTANCE()
		Object=PICK OBJECT (mouseX(), mouseY(), Objects(0).number, Objects(tile_sz*tile_sz-1).number)
		PX#=GET PICK VECTOR X()
		PY#=GET PICK VECTOR Y()
		PZ#=GET PICK VECTOR Z()
	
	LocationX#=CAMERA POSITION X()+PX#
	LocationY#=CAMERA POSITION Y()+PY#
	LocationZ#=CAMERA POSITION Z()+PZ#
ENDFUNCTION Object

function Startup()
	IF CHECK DISPLAY MODE(DESKTOP WIDTH(),DESKTOP HEIGHT(),32) 
	SET DISPLAY MODE DESKTOP WIDTH(),DESKTOP HEIGHT(),32
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-w/2
	posy=h/2-h/2
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
COLOR BACKDROP 0,0
SET TEXT FONT "Arial"
SET TEXT SIZE 12
SET TEXT TRANSPARENT
SET CAMERA RANGE 1,1000
POSITION CAMERA 50,50,-50
POINT CAMERA 0,0,0
POSITION MOUSE SCREEN WIDTH()/2,SCREEN HEIGHT()/2
dummy=MOUSEMOVEX()
dummy=MOUSEMOVEY()
TEXT 0,0,"PLEASE WAIT DURING SET UP"
SYNC 
SYNC

Global FI=1
LOAD IMAGE "Cursors\Mouse.png", FI, 1
global mSprite=1
Sprite mSprite, mouseX(), MouseY(), FI
HIDE MOUSE
ENDFUNCTION

Function distance(x1#,y1#,z1#,x2#,y2#,z2#)
	If VECTOR EXIST(200)=0
		Length=MAKE VECTOR3(200)
	ENDIF
  	set vector3 200,x2#-x1#,y2#-y1#,z2#-z1#
  	D#=length vector3(200)
EndFunction d#

+ Code Snippet

`enviroment set up
type ob
number as integer
endtype
Type Verposition
number as Integer
X as float
Y as float
Z as float
endtype

Startup()

`*********************************	
`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=128.0
`how many tiles per row/col
GLOBAL tile_sz AS INTEGER=4`change this to 256 and watch what happens
`first object
GLOBAL lod_first_obj AS INTEGER

global dim Objects(tile_sz*tile_sz) as Ob

col=128``used to make a checker board pattern
`LOAD EFFECT "Shaders\TerrainTexture.fx", 1, 1
`LOAD IMAGE "Shaders\Grass2.jpg", 2, 1
`LOAD IMAGE "Shaders\Grassy Rock.jpg", 3, 1
`LOAD IMAGE "Shaders\Ice Cliff.jpg", 4, 1
`LOAD IMAGE "Shaders\Snow.jpg", 5, 1


FOR y=0 TO tile_sz-1
	FOR x=0 TO tile_sz-1
		obj=free_object()
		Objects(X+(Y*tile_sz)).number=obj
		IF x=0 AND y=0
			lod_first_obj=obj
		ENDIF 

		`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
					LOCK VERTEXDATA FOR LIMB Objects(X+(Y*tile_sz)).number, 0
		Amount=Get vertexdata vertex count()
		unlock vertexdata
		`TEXTURE OBJECT Objects(X+(Y*tile_sz)).number, 0, 5
		`TEXTURE OBJECT Objects(X+(Y*tile_sz)).number, 1, 4
		`TEXTURE OBJECT Objects(X+(Y*tile_sz)).number, 2, 3
		`TEXTURE OBJECT Objects(X+(Y*tile_sz)).number, 3, 2
		`SET OBJECT EFFECT Objects(X+(Y*tile_sz)).number, 1
                 COLOR OBJECT obj, RGB(128,128,128)
		SC_SETUPCOMPLEXOBJECT obj,0,2
	NEXT x
NEXT y

global dim Obj1(Amount) as Verposition
global dim Obj2(Amount) as Verposition
global dim Obj3(Amount) as Verposition
global dim Obj4(Amount) as Verposition
global dim Obj5(Amount) as Verposition
global dim Obj6(Amount) as Verposition
global dim Obj7(Amount) as Verposition
global dim Obj8(Amount) as Verposition
global dim Obj9(Amount) as Verposition

`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
Global dist# as float
global Object as integer
global px# as float
global py# as float
global pz# as float
global locationX# as float
global locationY# as float
global locationZ# as float


Global Dim objNums(8)
`*********************************
`main loop starts here
DO
	
Sprite Msprite, mouseX(), MouseY(), FI
	`check for raycast to landscape and place marker
	Answer=raycast_landscape()
	
	`show or hide the marker depending on collision
	
	`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$(cx)+" y="+STR$(cy)+" z="+STR$(cz)
	TEXT 0,40,"screen fps="+STR$(SCREEN FPS())
	TEXT 0,60,"object face hit="+STR$(face_hit)
	TEXT 0, 80, "Object Returned= "+Str$(Answer)
	
	
	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
	
	IF upkey()=1 THEN MOVE CAMERA speed
	IF downkey()=1 THEN MOVE CAMERA (0-speed)
	
	if mouseclick()=4
		XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
	ENDIF
	
		if rightkey()=1
		YROTATE CAMERA CAMERA ANGLE Y()+1
	ENDIF
	
			if leftkey()=1
		YROTATE CAMERA CAMERA ANGLE Y()-1
	ENDIF
	
	If Mouseclick()=3 
		MOVE CAMERA speed
		XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
		YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
	ENDIF
	
	dummy=MOUSEMOVEX()
	dummy=MOUSEMOVEY()
	
	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
ENDFUNCTION

FUNCTION free_object()
i = FIND FREE OBJECT()
ENDFUNCTION i

FUNCTION raycast_landscape()
ObjectNumber=location()

If ObjectNumber>0
	Answer=ObjectNumber
ENDIF

If ObjectNumber=0 then Answer=Ray_Cast_Obj_Marker

	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,OBJECT POSITION X(ray_cast_obj_target),OBJECT POSITION Y(ray_cast_obj_target),OBJECT POSITION Z(ray_cast_obj_target), locationX#, LocationY#, LocationZ#,0)
	POSITION OBJECT ray_cast_obj_marker,LocationX#,LocationY#,LocationZ#
	IF col_obj>0
		cx = SC_GETSTATICCOLLISIONX() : nx = SC_GETCOLLISIONNORMALX()
     	cy = SC_GETSTATICCOLLISIONY() : ny = SC_GETCOLLISIONNORMALY()
      cz = SC_GETSTATICCOLLISIONZ() : nz = SC_GETCOLLISIONNORMALZ()
      POINT OBJECT ray_cast_obj_marker,cx,cy,cz
      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
BrushSize#=sz/2
	If mouseclick()=1
	Terraform(Objectnumber, Ray_Cast_Obj_Marker, BrushSize#)
	endif
ENDFUNCTION Answer

function Terraform(ObjectNumber, RayObjNum, BrushSize#)
		 if Objectnumber>0
    objNums(0) = Objectnumber
    objNums(1) = Objectnumber + 1
    objNums(2) = Objectnumber - 1
    objNums(3) = Objectnumber + tile_sz
    objNums(4) = Objectnumber + tile_sz + 1
    objNums(5) = Objectnumber + tile_sz - 1
    objNums(6) = Objectnumber - tile_sz
    objNums(7) = Objectnumber - tile_sz + 1
    objNums(8) = Objectnumber - 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))
			length=1
          D#=Distance(TempX#, TempY#, TempZ#, OBJECT POSITION X(RayObjNum), OBJECT POSITION Y(RayObjNum), OBJECT POSITION Z(RayObjNum))
          
                    If D#<BrushSize#
          IncAmount#=cos(D#*2)
          endif
         
          If D#>BrushSize# or D#=<0.0
            incAmount# = 0.0
          endif
          
if incAmount# > 0.0 then SET VERTEXDATA POSITION Array, VerX#, VerY# + incAmount#, VerZ# : reCalculateNormals = 1
`SET VERTEXDATA DIFFUSE Array, RGB(64*sin(Very#)+64,64*Cos(Very#)+64, 32*Tan(Very#)+32)


                  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
ENDFUNCTION

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

function Location()	
			Dist#=GET PICK DISTANCE()
		Object=PICK OBJECT (mouseX(), mouseY(), Objects(0).number, Objects(tile_sz*tile_sz-1).number)
		PX#=GET PICK VECTOR X()
		PY#=GET PICK VECTOR Y()
		PZ#=GET PICK VECTOR Z()
	
	LocationX#=CAMERA POSITION X()+PX#
	LocationY#=CAMERA POSITION Y()+PY#
	LocationZ#=CAMERA POSITION Z()+PZ#
ENDFUNCTION Object

function Startup()
	IF CHECK DISPLAY MODE(DESKTOP WIDTH(),DESKTOP HEIGHT(),32) 
	SET DISPLAY MODE DESKTOP WIDTH(),DESKTOP HEIGHT(),32
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-w/2
	posy=h/2-h/2
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
COLOR BACKDROP 0,0
SET TEXT FONT "Arial"
SET TEXT SIZE 12
SET TEXT TRANSPARENT
SET CAMERA RANGE 1,1000
POSITION CAMERA 50,50,-50
POINT CAMERA 0,0,0
POSITION MOUSE SCREEN WIDTH()/2,SCREEN HEIGHT()/2
dummy=MOUSEMOVEX()
dummy=MOUSEMOVEY()
TEXT 0,0,"PLEASE WAIT DURING SET UP"
SYNC 
SYNC

Global FI=1
LOAD IMAGE "Cursors\Mouse.png", FI, 1
global mSprite=1
Sprite mSprite, mouseX(), MouseY(), FI
HIDE MOUSE
ENDFUNCTION

Function distance(x1#,y1#,z1#,x2#,y2#,z2#)
	If VECTOR EXIST(200)=0
		Length=MAKE VECTOR3(200)
	ENDIF
  	set vector3 200,x2#-x1#,y2#-y1#,z2#-z1#
  	D#=length vector3(200)
EndFunction d#

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

gwheycs62egydws

16

Years of Service

User Offline

Joined: 17th Aug 2009

Location: The World

Posted: 7th Jan 2012 00:24

Link

@Daryn Alsup

I've added you to msn message

I had the grass and the rocky grass
still looking for
Ice Cliff
snow

as for TerrainTexture.fx I guess I will have to do a forum or net search
I've collected 81 fx files

to move side ways - is to move forward
Since a Strait line gets thin fast

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: 7th Jan 2012 06:59

Link

@resourceful

ill attach the shader in a few

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

gwheycs62egydws

16

Years of Service

User Offline

Joined: 17th Aug 2009

Location: The World

Posted: 7th Jan 2012 08:05

Link

@Daryn Alsup

thanks that would be of help

to move side ways - is to move forward
Since a Strait line gets thin fast

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: 7th Jan 2012 08:45

Link

Here is the project - PLEASE NOTE that I only included the terraforming code and associated media for good ole pride's sake.

tell me what you think - the fps is killed by the shader... can go down to 15 - sometimes lower. I am trying to resolve this as I am not a true shader writer like GG, but I am trying really I am!!!

Note that there is fog. If you open the TerrainTexture.fx in notepad and see the fogred, foggreen and fogblue variables and change the backdrop color to the same in DBPro, you'll see how the fog looks. Right now it's only based on how high the camera is. I am trying to have the fog vary based on height AND distance - so far away objects and really high objects get fogged - but we will see how that looks once I'm finished with the environment box I am making now.

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: 7th Jan 2012 09:00 Edited at: 7th Jan 2012 09:09

Link

@ Resourceful, I am on messanger now

anyone else want to brainstorm with me, please I encourage you to

EDIT : Here is an image of the working shader (that still needs tweeking)

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

gwheycs62egydws

16

Years of Service

User Offline

Joined: 17th Aug 2009

Location: The World

Posted: 7th Jan 2012 09:16

Link

@Daryn Alsup

I would call what you have dun so far
very successful ;o)

I see what you mean about the fog changing as you change the hight

from what I see in the "TerrainTexture.fx"
I understand what your going for but I'm not at the point of making such

the cps only drop when you are building
I had 59 before and 12 while building and it did not matter how
much of the land was changed

I'm not shire if it posible to optmise the code for building land
so the cps stay at 59 but even at 12 the speed works

in the blitz1 the showing the location ware the mouse is
is defiantly a nice feature

so far your on the right track

one thing I have noticed though out this is when you move back from
the land far off parts start to disappear

so for even a larger area more would not be seen and could take away
from figuring out what is to be dun next

to move side ways - is to move forward
Since a Strait line gets thin fast

Back to top

Profile PM Email

gwheycs62egydws

16

Years of Service

User Offline

Joined: 17th Aug 2009

Location: The World

Posted: 7th Jan 2012 09:25

Link

@Daryn Alsup

I'm not shire what time it is ware you are
but ware I am it's 2:21 am cst Canada

I most folks are out to lunch so to speak lol

to move side ways - is to move forward
Since a Strait line gets thin fast

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: 8th Jan 2012 23:43

Link

Okay - so here's a little update. Thanks to resourceful, I'm deciding to nix using a shader on the terrain for now - although there will be one later on. I am going to implementing a "paint terrain" function - I owe resourceful many, many, many thanks for helping me grasp the concept.

Make a type including the object u, v, x, y, z data

IWidth=Image Width(1)
IHeight=Image Height(1)

(retrieve the vertex count for the array
global dim arrayname(vertex count) as type

ObX#=get object size X(1)
ObZ#=Get object size Z(1)

Now we make a memblock from the main image, and copy it into a new memblock

we make a for - next for both U and V locations
Ensuring we're using the pick commands correctly, we then check to see if (a mouse click or a button has been pressed) the location returned is on the object, then scale both the object size down to the image width and height.

IN THEORY
When we click or whatever on the terrain object, we are actually scaling the location down to the image width and height and writing to the image in memblock, updating it's color - or texture, which is then merged with the existing memblock for the primary image we copied from - which gives you the paint effect.

DOUBTS and WORRY
Speed - but I expect as much.

I am working on this right now... but I will tell you how it goes - I know that blitz terrain has some sort of paint function - but I intend to load textures and use them as the paint - with an alpha brush that changes how each image is blended on the other

ALSO NOTE
Since we are copying to one memblock from another, the second is a temp - which will merge its contents and then be deleted. The first will be made into the image we made and relayed back on the object(s)

It maybe harder than it actually appears to be - but I think it's worth the investigation.

Daryn

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: 9th Jan 2012 03:54

Link

Okay - using the memblock commands how do I determine the current pixel X and Y position of the image?

I'm doing a check between pick X and Z, scaled to the image width and height locations

(like if pick X was 100.00 but the image is 25.0 wide and high, and the max size of the object was 200.00, I can scale it all down to the right size via the objects UV data ... how do you determine the present pixel position in a for-next loop from the current memblock byte(s) being read?)

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: 9th Jan 2012 21:05

Link

I am looking for how to retrieve the current pixel being drawn from the byte being proccesed during a For-Next loop based on the memblocks size, which is containing an image...

sorry - *BUMP*

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: 10th Jan 2012 07:47

Link

Here - I've tried my best to come up with a reason why it isn't working... anyone got an idea why?

for a=0 to 256
	for b=0 to 256
		dot a,b,RGB(rnd(255), Rnd(255), Rnd(255))
	NEXT
NEXT

GET IMAGE 1, 0,0,256,256
MAKE MEMBLOCK FROM IMAGE 1, 1

cls 0

SYNC ON : SYNC RATE 0

Size=Get memblock size(1) 
sync
cls 0
text 10,10, "The memblock's size is : "+Str$(Size)
text 10, 25, "Press any key to check"
sync
WAIT KEY

For Check = 12 to size-12 step 4
	PixelX=((check-8)/4)/IMAGE WIDTH(1)
	PixelY=((check-8)/4)/IMAGE Height(1)
NEXT

sync
MAKE OBJECT PLAIN 1, 1000, 1000
ROTATE OBJECT 1, 90, 0, 0
COLOR BACKDROP 0
TEXTURE OBJECT 1, 1
AUTOCAM OFF
position camera 500, 300, 0
POINT CAMERA 0,0,0

do
	sync
	location()

DivX#=(Object Size X(1)/IMAGE WIDTH(1))
		DivY#=(Object Size Z(1)/IMAGE HEIGHT(1))
	
	if mouseclick()=1
	for U=0.0 to 1.0 step 0.01
		For V=0.0 to 1.0 step 0.01
		Obj=location()
		If Obj>0
		Handle$=Report3D()
		HandleB$=Report2D(1, 1, U, V)
	Text mouseX(), mouseY(), Handle$
	Text mouseX(), mouseY()+10, HandleB$
	ScaleX#=Get2DscaleX(1,1)*U
	PosX=(int(PX#/ScaleX#)+IMAGE WIDTH(1)/2)
	ScaleY#=Get2DscaleY(1,1)*V
	PosY=(int(PZ#/ScaleY#)+IMAGE HEIGHT(1)/2)
	Paint(1, 1, 255,0,0, int(posX), int(PosY))
	endif
	
	sync
	if escapekey()=1 then end
		NEXT
	NEXT
	endif
	
LOOP

end

function location()
	global Dist# as float
	Global Object as integer
	Global PX# as float
	Global PY# as float
	Global PZ# as float
	Dist#=Get pick Distance()
	Object=Pick object(MouseX(), MouseY(), 1, 1)
	PX#=Get pick Vector X()+Camera Position X()
	PY#=Get pick Vector Y()+Camera Position Y()
	PZ#=Get pick Vector Z()+Camera Position Z()
ENDFUNCTION Object

Function Report3D()
	Answer$="The current position in 3D - X= "+Str$(int(PX#))+", Y= "+Str$(int(PY#))+", Z= "+Str$(int(PZ#))
ENDFUNCTION Answer$

Function Report2D(ImgNum, ObjNum, U, V)
	ScaleX#=Get2DscaleX(ImgNum, ObjNum)
	ScaleY#=Get2DscaleY(ImgNum, ObjNum)
	Answer$="The current position in 2D - X= "+Str$((int(PX#/ScaleX#)+IMAGE WIDTH(imgnum)/2))+", Y= "+Str$((int(PZ#/ScaleY#)+IMAGE HEIGHT(imgnum)/2))
ENDFUNCTION Answer$

Function Get2DscaleX(ImgNum, ObjNum)
	Scale#=(Object Size X(ObjNum)/IMAGE WIDTH(ImgNum))
ENDFUNCTION Scale#
Function Get2DscaleY(ImgNum, ObjNum)
	Scale#=(Object Size y(ObjNum)/IMAGE HEIGHT(ImgNum))
ENDFUNCTION Scale#

function paint(memblock, imgnum, Red, Green, Blue, CursorX, CursorY)

For PosY=0 to image width(imgnum)
	For PosX=0 to image width(imgnum)	
		pX=12+(posX*4)
		pY=12+(posY*4)
		MemLoc=PX*PY-12
		D=Distance2D(PosX, PosY, CursorX, CursorY)
			if D=<20
				write memblock byte memblock, Memloc + 0, Red
				write memblock byte memblock, Memloc + 1, Green
				write memblock byte memblock, Memloc + 2, Blue
				write memblock byte memblock, memloc + 3, 255
			ENDIF
				NEXT X
					NEXT Y
ENDFUNCTION

function Distance2D(X1, Y1, X2, Y2)
	if VECTOR EXIST(1)=0
		temp=MAKE VECTOR2(1)
	ENDIF
	SET VECTOR2 2, X1-X2, Y1-Y2
	Distance#=LENGTH VECTOR2(1)
ENDFUNCTION Distance#

+ Code Snippet

for a=0 to 256
	for b=0 to 256
		dot a,b,RGB(rnd(255), Rnd(255), Rnd(255))
	NEXT
NEXT

GET IMAGE 1, 0,0,256,256
MAKE MEMBLOCK FROM IMAGE 1, 1

cls 0

SYNC ON : SYNC RATE 0

Size=Get memblock size(1) 
sync
cls 0
text 10,10, "The memblock's size is : "+Str$(Size)
text 10, 25, "Press any key to check"
sync
WAIT KEY


For Check = 12 to size-12 step 4
	PixelX=((check-8)/4)/IMAGE WIDTH(1)
	PixelY=((check-8)/4)/IMAGE Height(1)
NEXT

sync
MAKE OBJECT PLAIN 1, 1000, 1000
ROTATE OBJECT 1, 90, 0, 0
COLOR BACKDROP 0
TEXTURE OBJECT 1, 1
AUTOCAM OFF
position camera 500, 300, 0
POINT CAMERA 0,0,0

do
	sync
	location()
	

	
		DivX#=(Object Size X(1)/IMAGE WIDTH(1))
		DivY#=(Object Size Z(1)/IMAGE HEIGHT(1))
	
	if mouseclick()=1
	for U=0.0 to 1.0 step 0.01
		For V=0.0 to 1.0 step 0.01
		Obj=location()
		If Obj>0
		Handle$=Report3D()
		HandleB$=Report2D(1, 1, U, V)
	Text mouseX(), mouseY(), Handle$
	Text mouseX(), mouseY()+10, HandleB$
	ScaleX#=Get2DscaleX(1,1)*U
	PosX=(int(PX#/ScaleX#)+IMAGE WIDTH(1)/2)
	ScaleY#=Get2DscaleY(1,1)*V
	PosY=(int(PZ#/ScaleY#)+IMAGE HEIGHT(1)/2)
	Paint(1, 1, 255,0,0, int(posX), int(PosY))
	endif
	
	sync
	if escapekey()=1 then end
		NEXT
	NEXT
	endif
	
LOOP

end

function location()
	global Dist# as float
	Global Object as integer
	Global PX# as float
	Global PY# as float
	Global PZ# as float
	Dist#=Get pick Distance()
	Object=Pick object(MouseX(), MouseY(), 1, 1)
	PX#=Get pick Vector X()+Camera Position X()
	PY#=Get pick Vector Y()+Camera Position Y()
	PZ#=Get pick Vector Z()+Camera Position Z()
ENDFUNCTION Object

Function Report3D()
	Answer$="The current position in 3D - X= "+Str$(int(PX#))+", Y= "+Str$(int(PY#))+", Z= "+Str$(int(PZ#))
ENDFUNCTION Answer$

Function Report2D(ImgNum, ObjNum, U, V)
	ScaleX#=Get2DscaleX(ImgNum, ObjNum)
	ScaleY#=Get2DscaleY(ImgNum, ObjNum)
	Answer$="The current position in 2D - X= "+Str$((int(PX#/ScaleX#)+IMAGE WIDTH(imgnum)/2))+", Y= "+Str$((int(PZ#/ScaleY#)+IMAGE HEIGHT(imgnum)/2))
ENDFUNCTION Answer$

Function Get2DscaleX(ImgNum, ObjNum)
	Scale#=(Object Size X(ObjNum)/IMAGE WIDTH(ImgNum))
ENDFUNCTION Scale#
Function Get2DscaleY(ImgNum, ObjNum)
	Scale#=(Object Size y(ObjNum)/IMAGE HEIGHT(ImgNum))
ENDFUNCTION Scale#

function paint(memblock, imgnum, Red, Green, Blue, CursorX, CursorY)

	For PosY=0 to image width(imgnum)
	For PosX=0 to image width(imgnum)	
		pX=12+(posX*4)
		pY=12+(posY*4)
		MemLoc=PX*PY-12
		D=Distance2D(PosX, PosY, CursorX, CursorY)
			if D=<20
				write memblock byte memblock, Memloc + 0, Red
				write memblock byte memblock, Memloc + 1, Green
				write memblock byte memblock, Memloc + 2, Blue
				write memblock byte memblock, memloc + 3, 255
			ENDIF
				NEXT X
					NEXT Y
ENDFUNCTION

function Distance2D(X1, Y1, X2, Y2)
	if VECTOR EXIST(1)=0
		temp=MAKE VECTOR2(1)
	ENDIF
	SET VECTOR2 2, X1-X2, Y1-Y2
	Distance#=LENGTH VECTOR2(1)
ENDFUNCTION Distance#

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

gwheycs62egydws

16

Years of Service

User Offline

Joined: 17th Aug 2009

Location: The World

Posted: 10th Jan 2012 08:11

Link

ummm in the function location() section

global Dist# as float
Global Object as integer
Global PX# as float
Global PY# as float
Global PZ# as float

you have these set to used when that function is called
they should only need to be stated once before the do/loop second

as for why it's coming up with an error 7801
line 129

vector dose not exist
it's trying to read anther vector and nun is available to be read

to move side ways - is to move forward
Since a Strait line gets thin fast

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: 10th Jan 2012 08:42

Link

I have a function (vector exist) and it gets made in a function if it doesnt

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

gwheycs62egydws

16

Years of Service

User Offline

Joined: 17th Aug 2009

Location: The World

Posted: 11th Jan 2012 10:36

Link

I've been working with "Daryn Alsup"
to help with his project

I'm not as far along in understanding of vectors
but he has made great strides with help from other here

I had found an example with painting on objects
there are similarity's to what "Daryn Alsup"
created but the way this example was dun seams to be closer
the needed results

I know he has not posted the code he has created but perhaps
this might provide a pointer and help him out

one other thing after him showing the math

he can create a space of 508,400.5 square miles

which from what I can is larger than the earth
so this open's a lot of possibility's for
games and simulation programs

it also means a faster and more than 2 cpu's or even 4
would be much better unless a math equation can be worked out
to take care of every thing in view and out of view

to move side ways - is to move forward
Since a Strait line gets thin fast

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Large Terrain - help with seams