Pick limb problem solved - GameCreators Forum

Author

Message

paul5147

18

Years of Service

User Offline

Joined: 11th Jan 2006

Location: Hot & Sunny

Posted: 18th Feb 2010 16:57

Link

I've been searching around for ages trying to find a "pick limb" type of command,after reading quite a few posts,not may of which were even replied to,and the ones that were sugested making more objects out of the limbs and checking those,seemed a bit wastefull and over complicated,so i've come up with this using sparky's,hope it's of some use,it can deal with both indexed list objects like dbpro's primatives and triangle list meshes like you make a terrain mesh with and dbpro's plane command.

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

sync on
sync rate 60
autocam off
color backdrop 0, 0
set text font "Arial"
set text size 12
set text transparent

position camera 10,80,-80
point camera 0,0,0

`make a tower with 1 object for the base and 2 limbs on top dbo primatives use index lists and triangle list
make object cube 1,10

make object cube 2,5
make mesh from object 1,2
delete object 2
add limb 1,1,1
delete mesh 1
offset limb 1,1,0,7.5,0

make object cube 2,5
make mesh from object 1,2
delete object 2
add limb 1,2,1
delete mesh 1
offset limb 1,2,0,12.5,0
rotate limb 1,2,0,45,0

sc_setupobject 1,0,0

`make a floor out of 1 object and 11 limbs 4x4 useing planes as they have no index only triangle list
make object plane 2,10,10
xrotate object 2,90

make mesh from object 1,2
l=1
for z=-15 to 15 step 10
	for x=-15 to 15 step 10
		add limb 2,l,1
		rotate limb 2,l,270,0,0
		offset limb 2,l,x,z,10
		inc l
	next x
next z
delete mesh 1
sc_setupobject 2,0,0

target=100
make object cube target,1
hide object target
marker=101
make object sphere marker,1
color object marker,rgb(255,0,0)

`*******main loop******** 
do
	position object target,camera position x(),camera position y(),camera position z()
	set object to camera orientation target
	move object target,1000
	hit=sc_raycast(0,camera position x(),camera position y(),camera position z(),object position x(target),object position y(target),object position z(target),0)
	if hit>0
		show object marker
		position object marker,sc_getstaticcollisionx(),sc_getstaticcollisiony(),sc_getstaticcollisionz()
		lh=limb_hit()
	else
		hide object marker
	endif
	
	MouseControl(1.0)
	sync
loop

`*******Functions********
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 limb_hit()
	l=0
	done=-1
	face_hit=sc_getfacehit()+1
	while done=-1
		old_l=l
		lock vertexdata for limb sc_getobjecthit(),l
			i_num=get vertexdata index count()/3
			text 0,0,str$(i_num)
			v_num=get vertexdata vertex count()/3
			text 0,15,str$(v_num)
			`used for index objects
			if i_num>0
				if face_hit>i_num
					inc l
					face_hit=face_hit-i_num
				endif
			endif
			`used for triangle list objects
			if i_num=0
				if face_hit>v_num
					inc l
					face_hit=face_hit-v_num
				endif
			endif
			if l=old_l
				done=l
			endif
		unlock vertexdata
	endwhile
	text 0,30,"object hit "+str$(sc_getobjecthit())+" sparky's face hit "+str$(sc_getfacehit())+" limb face hit "+str$(face_hit)+" limb number "+str$(done)
endfunction done

+ Code Snippet

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

sync on
sync rate 60
autocam off
color backdrop 0, 0
set text font "Arial"
set text size 12
set text transparent

position camera 10,80,-80
point camera 0,0,0


`make a tower with 1 object for the base and 2 limbs on top dbo primatives use index lists and triangle list
make object cube 1,10

make object cube 2,5
make mesh from object 1,2
delete object 2
add limb 1,1,1
delete mesh 1
offset limb 1,1,0,7.5,0

make object cube 2,5
make mesh from object 1,2
delete object 2
add limb 1,2,1
delete mesh 1
offset limb 1,2,0,12.5,0
rotate limb 1,2,0,45,0

sc_setupobject 1,0,0

`make a floor out of 1 object and 11 limbs 4x4 useing planes as they have no index only triangle list
make object plane 2,10,10
xrotate object 2,90

make mesh from object 1,2
l=1
for z=-15 to 15 step 10
	for x=-15 to 15 step 10
		add limb 2,l,1
		rotate limb 2,l,270,0,0
		offset limb 2,l,x,z,10
		inc l
	next x
next z
delete mesh 1
sc_setupobject 2,0,0

target=100
make object cube target,1
hide object target
marker=101
make object sphere marker,1
color object marker,rgb(255,0,0)

`*******main loop******** 
do
	position object target,camera position x(),camera position y(),camera position z()
	set object to camera orientation target
	move object target,1000
	hit=sc_raycast(0,camera position x(),camera position y(),camera position z(),object position x(target),object position y(target),object position z(target),0)
	if hit>0
		show object marker
		position object marker,sc_getstaticcollisionx(),sc_getstaticcollisiony(),sc_getstaticcollisionz()
		lh=limb_hit()
	else
		hide object marker
	endif
	
	MouseControl(1.0)
	sync
loop


`*******Functions********
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 limb_hit()
	l=0
	done=-1
	face_hit=sc_getfacehit()+1
	while done=-1
		old_l=l
		lock vertexdata for limb sc_getobjecthit(),l
			i_num=get vertexdata index count()/3
			text 0,0,str$(i_num)
			v_num=get vertexdata vertex count()/3
			text 0,15,str$(v_num)
			`used for index objects
			if i_num>0
				if face_hit>i_num
					inc l
					face_hit=face_hit-i_num
				endif
			endif
			`used for triangle list objects
			if i_num=0
				if face_hit>v_num
					inc l
					face_hit=face_hit-v_num
				endif
			endif
			if l=old_l
				done=l
			endif
		unlock vertexdata
	endwhile
	text 0,30,"object hit "+str$(sc_getobjecthit())+" sparky's face hit "+str$(sc_getfacehit())+" limb face hit "+str$(face_hit)+" limb number "+str$(done)
endfunction done

Back to top

Profile PM

Hawkblood

14

Years of Service

User Offline

Joined: 5th Dec 2009

Location:

Posted: 18th Feb 2010 17:17

Link

In your limb_hit(), why can't you just use "LIMB HIT" or hit limb (not at my home pc right now) to see if the "marker" is colliding with a specific limb.... your "marker" object has only one limb to it so (please forgive the syntax):

+ Code Snippet

hit=pick object (screenX,screenY,obj1,obj1)
if hit=1
   PX=pick vector x()+camera position x()
   PY=pick vector y()+camera position y()
   PZ=pick vector z()+camera position z()
   L=0
   HitLimb=-1
   while limb exist(obj1,L)=1
     if limb hit(PX,PY,PZ,obj1,L,marker,0)=1 and HitLimb=-1 then HitLimb=L
     inc L
   endwhile
   if HitLimb>-1 then ..... `this is the limb you hit
endif

Once again, this code won't work by itself and I ma sure there is some syntax error to it because I am not at my home PC.

The fastest code is the code never written.

Back to top

Profile PM Email Website

paul5147

18

Years of Service

User Offline

Joined: 11th Jan 2006

Location: Hot & Sunny

Posted: 18th Feb 2010 17:35

Link

You could use the built in command,but doing it this way with sparky's you can get the face hit on the limb and with that you can use it in conjuntion with the vertex commands to get the uv data for that point you hit on the limb,so that means i can paint directly onto a 3d object made of lots of limbs and seperate textures,like a landscape,by simply editing the texture in a memblock on the fly in real time.

Back to top

Profile PM

Hawkblood

14

Years of Service

User Offline

Joined: 5th Dec 2009

Location:

Posted: 18th Feb 2010 18:34

Link

Yes, if you need the UV info, you can't use what I showed you.

The fastest code is the code never written.

Back to top

Profile PM Email Website

Duffer

21

Years of Service

User Offline

Joined: 9th Feb 2003

Location: chair

Posted: 18th Feb 2010 19:58 Edited at: 18th Feb 2010 20:04

Link

@ paul5147,

There's always the DKAVM and DKShop plugins - they used to work - but latest version of those plugins dosnt seem to work with v7.3-v7.5 DBPro...

never got to the bottom of which version would work with v7.4+ but here are some of the relevant links:-

http://forum.thegamecreators.com/?m=forum_view&t=84216&b=5

http://forum.thegamecreators.com/?m=forum_view&t=152426&b=15

a long time dabbler with DBC and DBPro with no actual talent but lots of enthusiasm...

Back to top

Profile PM Email

paul5147

18

Years of Service

User Offline

Joined: 11th Jan 2006

Location: Hot & Sunny

Posted: 18th Feb 2010 20:38

Link

Thanks Duffer,i tried them both in previous versions of dbpro,but allways got intermintent problems with some of the commands that i could never get to the bottom of,it would compile and run fine once or twice and then with no changes at all it would just lock up or end sudenly.Is there a version out now thats stable with u7.4?

Back to top

Profile PM

Duffer

21

Years of Service

User Offline

Joined: 9th Feb 2003

Location: chair

Posted: 18th Feb 2010 20:53

Link

@ Paul5147, I have emailed Dmitry to see if he's willing to now do a version valid with v7.4 and v7.5+. In the past Dmitry has been very good at updating, so fingers crossed...

a long time dabbler with DBC and DBPro with no actual talent but lots of enthusiasm...

Back to top

Profile PM Email

paul5147

18

Years of Service

User Offline

Joined: 11th Jan 2006

Location: Hot & Sunny

Posted: 19th Feb 2010 08:39

Link

Thanks Duffer,i've just tried the the latest links to them i could find,and they seem to work ok for now on u7.4,couldn't see a way to use them to get the uv data of the limb though,only the normal of the polygon it hits,but it may just be me not reading all the documents properly.

Back to top

Profile PM

paul5147

18

Years of Service

User Offline

Joined: 11th Jan 2006

Location: Hot & Sunny

Posted: 19th Feb 2010 12:32

Link

Quick UV painter demo,not perfect but close enough to get the idea

`3d painter test
`======================
`P.Parkinson
`======================
`Main Source File

sync on
sync rate 60
autocam off
color backdrop 0, 0
set text font "Arial"
set text size 14
set text transparent

position camera 10,80,-80
point camera 0,0,0

custom_cube(1,40,32)
box 0,0,256,256,rgb(255,255,255),rgb(255,255,255),rgb(255,255,255),rgb(255,255,255)
get image 1,0,0,256,256
get image 2,0,0,256,256
get image 3,0,0,256,256
get image 4,0,0,256,256
get image 5,0,0,256,256
get image 6,0,0,256,256
texture limb 1,1,1
texture limb 1,2,2
texture limb 1,3,3
texture limb 1,4,4
texture limb 1,5,5
texture limb 1,6,6
sc_setupobject 1,0,0
sc_allowobjectscaling 1

type hit_data
	u as float
	v as float
	limb as integer
	obj as integer
endtype
global hit_point as hit_data

target=100
make object cube target,1
hide object target
marker=101
make object sphere marker,1
color object marker,rgb(255,0,0)

`make paint sprite
for l=1 to 100
	dot rnd(16),rnd(16),rgb(255,0,0)
next l
get image 10,0,0,16,16
sprite 1,-100,-100,10

`*******main loop******** 
cls
do
	position object target,camera position x(),camera position y(),camera position z()
	set object to camera orientation target
	move object target,1000
	hit=sc_raycast(0,camera position x(),camera position y(),camera position z(),object position x(target),object position y(target),object position z(target),0)
	if hit>0
		show object marker
		position object marker,sc_getstaticcollisionx(),sc_getstaticcollisiony(),sc_getstaticcollisionz()
		lh=limb_hit()
	else
		hide object marker
	endif
	if hit>0 and spacekey() and hit_point.u>=0 and hit_point.v>=0
		paint2()
	endif
`	if hit>0 and inkey$()="d" and hit_point.u>=0 and hit_point.v>=0
`		paint()
`	endif
	if leftkey() then yrotate object 1,wrapvalue(object angle y(1))+1:sc_updateobject 1
	if rightkey() then yrotate object 1,wrapvalue(object angle y(1))-1:sc_updateobject 1
	if upkey() then xrotate object 1,wrapvalue(object angle x(1))+1:sc_updateobject 1
	if downkey() then xrotate object 1,wrapvalue(object angle x(1))-1:sc_updateobject 1
	MouseControl(1.0)
	sync
loop

`*******Functions********
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 limb_hit()
	l=0
	done=-1
	face_hit=sc_getfacehit()+1
	obj_hit=sc_getobjecthit()
	while done=-1
		old_l=l
		lock vertexdata for limb obj_hit,l
			i_num=get vertexdata index count()/3
			text 0,l*15,str$(i_num)
			v_num=get vertexdata vertex count()/3
			text 40,l*15,str$(v_num)
			`used for index objects
			if i_num>0
				if face_hit>i_num
					inc l
					face_hit=face_hit-i_num
				endif
			endif
			`used for triangle list objects
			if i_num=0
				if face_hit>v_num
					inc l
					face_hit=face_hit-v_num
				endif
			endif
			if l=old_l
				done=l
			endif
		unlock vertexdata
		
	endwhile
	lock vertexdata for limb obj_hit,done
	i_num=get vertexdata index count()/3
	v_num=get vertexdata vertex count()/3
	u#=-1.0
	v#=-1.0
	if i_num>0
		id_num=(face_hit-1)*3
		id1=get indexdata(id_num)
		id2=get indexdata(id_num+1)
		id3=get indexdata(id_num+2)
		u#=get vertexdata u(id1)
		v#=get vertexdata v(id1)
		u#=u#+get vertexdata u(id2)
		v#=v#+get vertexdata v(id2)
		u#=u#+get vertexdata u(id3)
		v#=v#+get vertexdata v(id3)
		u#=u#/3.0
		v#=v#/3.0	
	endif
	if i_num=0
		vt_num=(face_hit-1)*3
		u#=get vertexdata u(vt_num)
		v#=get vertexdata v(vt_num)
		u#=u#+get vertexdata u(vt_num+1)
		v#=v#+get vertexdata v(vt_num+1)
		u#=u#+get vertexdata u(vt_num+2)
		v#=v#+get vertexdata v(vt_num+2)
		u#=u#/3.0
		v#=v#/3.0
	endif
	unlock vertexdata
	hit_point.u=u#
	hit_point.v=v#
	hit_point.limb=done
	hit_point.obj=obj_hit
	text 0,(done+1)*15," object hit "+str$(sc_getobjecthit())+" sparky's face hit "+str$(sc_getfacehit())+" limb face hit "+str$(face_hit)+" limb number "+str$(done)
	text 0,(done+2)*15," u "+str$(u#)+" v "+str$(v#)
	text 0,(done+3)*15," space to paint"
	text 0,(done+4)*15," d to place dot"
	text 0,(done+5)*15," mouse to look lmb/rmb zoom in out"
	text 0,(done+6)*15," arrows to move cube"
	
endfunction done

function custom_cube(obj_num,size#,rows#)

make object cube obj_num,0

``size of each square
grid_size#=size#/rows#
offset#=size#/2.0

``step for the uv co ordinates
global ustep as double float
global vstep as double float
ustep=1.0/rows#
vstep=1.0/rows#

``make a memblock big enough to hold the data
memblock_size=rows#*rows#*6

if memblock exist(1) then delete memblock 1
create_memblockobject(1,memblock_size)

`make a mesh and use it to build the 6 sides of the cube
`top
v_num=0
for lz=0 to rows#-1
	for lx=0 to rows#-1
		create_vertex(1,v_num,lx*grid_size#-offset#,0,lz*grid_size#-offset#,rgb(255,255,255),ustep*lx,vstep*lz)
		inc v_num
		create_vertex(1,v_num,lx*grid_size#-offset#,0,(lz+1)*grid_size#-offset#,rgb(255,255,255),ustep*lx,vstep*(lz+1))
		inc v_num
		create_vertex(1,v_num,(lx+1)*grid_size#-offset#,0,lz*grid_size#-offset#,rgb(255,255,255),ustep*(lx+1),vstep*lz)
		inc v_num
		
		create_vertex(1,v_num,(lx+1)*grid_size#-offset#,0,lz*grid_size#-offset#,rgb(255,255,255),ustep*(lx+1),vstep*lz)
		inc v_num
		create_vertex(1,v_num,lx*grid_size#-offset#,0,(lz+1)*grid_size#-offset#,rgb(255,255,255),ustep*lx,vstep*(lz+1))
		inc v_num
		create_vertex(1,v_num,(lx+1)*grid_size#-offset#,0,(lz+1)*grid_size#-offset#,rgb(255,255,255),ustep*(lx+1),vstep*(lz+1))
		inc v_num
	next lx
next lz
make mesh from memblock 1,1
add limb obj_num,1,1
offset limb obj_num,1,0,offset#,0

`bottom
add limb obj_num,2,1
rotate limb obj_num,2,180,0,0
offset limb obj_num,2,0,0-offset#,0

`left
add limb obj_num,3,1
rotate limb obj_num,3,0,0,90
offset limb obj_num,3,0-offset#,0,0

`right
add limb obj_num,4,1
rotate limb obj_num,4,0,0,270
offset limb obj_num,4,offset#,0,0

`back
add limb obj_num,5,1
rotate limb obj_num,5,90,0,0
offset limb obj_num,5,0,0,offset#

`front
add limb obj_num,6,1
rotate limb obj_num,6,270,0,0
offset limb obj_num,6,0,0,0-offset#

set object texture obj_num,2,0
set object normals obj_num

endfunction

function create_memblockobject(memnum,v)
	
	make memblock memnum,12+(36*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 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*36+24,normalx#
   write memblock float memnum,v*36+28,normaly#
   write memblock float memnum,v*36+32,normalz#

endfunction

`function paint()
`	`get image number
`	img=limb texture(hit_point.obj,hit_point.limb)
`	sx=image width(img)
`	sy=image height(img)
`	px=sx*hit_point.u
`	py=sy*hit_point.v
`	make memblock from image 1,img
`	mb_size=get memblock size(1)
`	delete image img
`	
`	pos=0
`	pos=((py*sx+px)*4)+12
`	text 200,0,str$(img)+" "+str$(pos)
`	write memblock byte 1,pos,0
`	write memblock byte 1,pos+1,0
`	write memblock byte 1,pos+2,255
`	write memblock byte 1,pos+3,128
`	
`	pos=0
`	pos=((py*sx+(px+1))*4)+12
`	if pos<=mb_size
`		write memblock byte 1,pos,0
`		write memblock byte 1,pos+1,0
`		write memblock byte 1,pos+2,255
`		write memblock byte 1,pos+3,128
`	endif
`	pos=0
`	pos=((py*sx+(px-1))*4)+12
`	if pos>=12
`		write memblock byte 1,pos,0
`		write memblock byte 1,pos+1,0
`		write memblock byte 1,pos+2,255
`		write memblock byte 1,pos+3,128
`	endif
`	pos=0
`	pos=(((py+1)*sx+px)*4)+12
`	if pos<=mb_size
`		write memblock byte 1,pos,0
`		write memblock byte 1,pos+1,0
`		write memblock byte 1,pos+2,255
`		write memblock byte 1,pos+3,128
`	endif
`	pos=0
`	pos=(((py-1)*sx+px)*4)+12
`	if pos>=12
`		write memblock byte 1,pos,0
`		write memblock byte 1,pos+1,0
`		write memblock byte 1,pos+2,255
`		write memblock byte 1,pos+3,128
`	endif
`	
`	
`	make image from memblock img,1
`	delete memblock 1
`	texture limb hit_point.obj,hit_point.limb,img
`endfunction

function paint2()
	img=limb texture(hit_point.obj,hit_point.limb)
	sx#=image width(img)
	sy#=image height(img)
	px#=sx#*hit_point.u
	py#=sy#*hit_point.v
	make memblock from image 1,img
	delete image img
	make bitmap from memblock 1,1
	set current bitmap 1
	delete memblock 1
	paste sprite 1,px#,py#
	make memblock from bitmap 1,1
	delete bitmap 1
	make image from memblock img,1
	delete memblock 1
	set current bitmap 0
	texture limb hit_point.obj,hit_point.limb,img
endfunction

+ Code Snippet

`3d painter test
`======================
`P.Parkinson
`======================
`Main Source File

sync on
sync rate 60
autocam off
color backdrop 0, 0
set text font "Arial"
set text size 14
set text transparent

position camera 10,80,-80
point camera 0,0,0

custom_cube(1,40,32)
box 0,0,256,256,rgb(255,255,255),rgb(255,255,255),rgb(255,255,255),rgb(255,255,255)
get image 1,0,0,256,256
get image 2,0,0,256,256
get image 3,0,0,256,256
get image 4,0,0,256,256
get image 5,0,0,256,256
get image 6,0,0,256,256
texture limb 1,1,1
texture limb 1,2,2
texture limb 1,3,3
texture limb 1,4,4
texture limb 1,5,5
texture limb 1,6,6
sc_setupobject 1,0,0
sc_allowobjectscaling 1

type hit_data
	u as float
	v as float
	limb as integer
	obj as integer
endtype
global hit_point as hit_data

target=100
make object cube target,1
hide object target
marker=101
make object sphere marker,1
color object marker,rgb(255,0,0)

`make paint sprite
for l=1 to 100
	dot rnd(16),rnd(16),rgb(255,0,0)
next l
get image 10,0,0,16,16
sprite 1,-100,-100,10

`*******main loop******** 
cls
do
	position object target,camera position x(),camera position y(),camera position z()
	set object to camera orientation target
	move object target,1000
	hit=sc_raycast(0,camera position x(),camera position y(),camera position z(),object position x(target),object position y(target),object position z(target),0)
	if hit>0
		show object marker
		position object marker,sc_getstaticcollisionx(),sc_getstaticcollisiony(),sc_getstaticcollisionz()
		lh=limb_hit()
	else
		hide object marker
	endif
	if hit>0 and spacekey() and hit_point.u>=0 and hit_point.v>=0
		paint2()
	endif
`	if hit>0 and inkey$()="d" and hit_point.u>=0 and hit_point.v>=0
`		paint()
`	endif
	if leftkey() then yrotate object 1,wrapvalue(object angle y(1))+1:sc_updateobject 1
	if rightkey() then yrotate object 1,wrapvalue(object angle y(1))-1:sc_updateobject 1
	if upkey() then xrotate object 1,wrapvalue(object angle x(1))+1:sc_updateobject 1
	if downkey() then xrotate object 1,wrapvalue(object angle x(1))-1:sc_updateobject 1
	MouseControl(1.0)
	sync
loop


`*******Functions********
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 limb_hit()
	l=0
	done=-1
	face_hit=sc_getfacehit()+1
	obj_hit=sc_getobjecthit()
	while done=-1
		old_l=l
		lock vertexdata for limb obj_hit,l
			i_num=get vertexdata index count()/3
			text 0,l*15,str$(i_num)
			v_num=get vertexdata vertex count()/3
			text 40,l*15,str$(v_num)
			`used for index objects
			if i_num>0
				if face_hit>i_num
					inc l
					face_hit=face_hit-i_num
				endif
			endif
			`used for triangle list objects
			if i_num=0
				if face_hit>v_num
					inc l
					face_hit=face_hit-v_num
				endif
			endif
			if l=old_l
				done=l
			endif
		unlock vertexdata
		
	endwhile
	lock vertexdata for limb obj_hit,done
	i_num=get vertexdata index count()/3
	v_num=get vertexdata vertex count()/3
	u#=-1.0
	v#=-1.0
	if i_num>0
		id_num=(face_hit-1)*3
		id1=get indexdata(id_num)
		id2=get indexdata(id_num+1)
		id3=get indexdata(id_num+2)
		u#=get vertexdata u(id1)
		v#=get vertexdata v(id1)
		u#=u#+get vertexdata u(id2)
		v#=v#+get vertexdata v(id2)
		u#=u#+get vertexdata u(id3)
		v#=v#+get vertexdata v(id3)
		u#=u#/3.0
		v#=v#/3.0	
	endif
	if i_num=0
		vt_num=(face_hit-1)*3
		u#=get vertexdata u(vt_num)
		v#=get vertexdata v(vt_num)
		u#=u#+get vertexdata u(vt_num+1)
		v#=v#+get vertexdata v(vt_num+1)
		u#=u#+get vertexdata u(vt_num+2)
		v#=v#+get vertexdata v(vt_num+2)
		u#=u#/3.0
		v#=v#/3.0
	endif
	unlock vertexdata
	hit_point.u=u#
	hit_point.v=v#
	hit_point.limb=done
	hit_point.obj=obj_hit
	text 0,(done+1)*15," object hit "+str$(sc_getobjecthit())+" sparky's face hit "+str$(sc_getfacehit())+" limb face hit "+str$(face_hit)+" limb number "+str$(done)
	text 0,(done+2)*15," u "+str$(u#)+" v "+str$(v#)
	text 0,(done+3)*15," space to paint"
	text 0,(done+4)*15," d to place dot"
	text 0,(done+5)*15," mouse to look lmb/rmb zoom in out"
	text 0,(done+6)*15," arrows to move cube"
	
endfunction done

function custom_cube(obj_num,size#,rows#)

make object cube obj_num,0

``size of each square
grid_size#=size#/rows#
offset#=size#/2.0

``step for the uv co ordinates
global ustep as double float
global vstep as double float
ustep=1.0/rows#
vstep=1.0/rows#

``make a memblock big enough to hold the data
memblock_size=rows#*rows#*6

if memblock exist(1) then delete memblock 1
create_memblockobject(1,memblock_size)

`make a mesh and use it to build the 6 sides of the cube
`top
v_num=0
for lz=0 to rows#-1
	for lx=0 to rows#-1
		create_vertex(1,v_num,lx*grid_size#-offset#,0,lz*grid_size#-offset#,rgb(255,255,255),ustep*lx,vstep*lz)
		inc v_num
		create_vertex(1,v_num,lx*grid_size#-offset#,0,(lz+1)*grid_size#-offset#,rgb(255,255,255),ustep*lx,vstep*(lz+1))
		inc v_num
		create_vertex(1,v_num,(lx+1)*grid_size#-offset#,0,lz*grid_size#-offset#,rgb(255,255,255),ustep*(lx+1),vstep*lz)
		inc v_num
		
		create_vertex(1,v_num,(lx+1)*grid_size#-offset#,0,lz*grid_size#-offset#,rgb(255,255,255),ustep*(lx+1),vstep*lz)
		inc v_num
		create_vertex(1,v_num,lx*grid_size#-offset#,0,(lz+1)*grid_size#-offset#,rgb(255,255,255),ustep*lx,vstep*(lz+1))
		inc v_num
		create_vertex(1,v_num,(lx+1)*grid_size#-offset#,0,(lz+1)*grid_size#-offset#,rgb(255,255,255),ustep*(lx+1),vstep*(lz+1))
		inc v_num
	next lx
next lz
make mesh from memblock 1,1
add limb obj_num,1,1
offset limb obj_num,1,0,offset#,0

`bottom
add limb obj_num,2,1
rotate limb obj_num,2,180,0,0
offset limb obj_num,2,0,0-offset#,0

`left
add limb obj_num,3,1
rotate limb obj_num,3,0,0,90
offset limb obj_num,3,0-offset#,0,0

`right
add limb obj_num,4,1
rotate limb obj_num,4,0,0,270
offset limb obj_num,4,offset#,0,0

`back
add limb obj_num,5,1
rotate limb obj_num,5,90,0,0
offset limb obj_num,5,0,0,offset#

`front
add limb obj_num,6,1
rotate limb obj_num,6,270,0,0
offset limb obj_num,6,0,0,0-offset#

set object texture obj_num,2,0
set object normals obj_num

endfunction

function create_memblockobject(memnum,v)
	
	make memblock memnum,12+(36*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 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*36+24,normalx#
   write memblock float memnum,v*36+28,normaly#
   write memblock float memnum,v*36+32,normalz#

endfunction

`function paint()
`	`get image number
`	img=limb texture(hit_point.obj,hit_point.limb)
`	sx=image width(img)
`	sy=image height(img)
`	px=sx*hit_point.u
`	py=sy*hit_point.v
`	make memblock from image 1,img
`	mb_size=get memblock size(1)
`	delete image img
`	
`	pos=0
`	pos=((py*sx+px)*4)+12
`	text 200,0,str$(img)+" "+str$(pos)
`	write memblock byte 1,pos,0
`	write memblock byte 1,pos+1,0
`	write memblock byte 1,pos+2,255
`	write memblock byte 1,pos+3,128
`	
`	pos=0
`	pos=((py*sx+(px+1))*4)+12
`	if pos<=mb_size
`		write memblock byte 1,pos,0
`		write memblock byte 1,pos+1,0
`		write memblock byte 1,pos+2,255
`		write memblock byte 1,pos+3,128
`	endif
`	pos=0
`	pos=((py*sx+(px-1))*4)+12
`	if pos>=12
`		write memblock byte 1,pos,0
`		write memblock byte 1,pos+1,0
`		write memblock byte 1,pos+2,255
`		write memblock byte 1,pos+3,128
`	endif
`	pos=0
`	pos=(((py+1)*sx+px)*4)+12
`	if pos<=mb_size
`		write memblock byte 1,pos,0
`		write memblock byte 1,pos+1,0
`		write memblock byte 1,pos+2,255
`		write memblock byte 1,pos+3,128
`	endif
`	pos=0
`	pos=(((py-1)*sx+px)*4)+12
`	if pos>=12
`		write memblock byte 1,pos,0
`		write memblock byte 1,pos+1,0
`		write memblock byte 1,pos+2,255
`		write memblock byte 1,pos+3,128
`	endif
`	
`	
`	make image from memblock img,1
`	delete memblock 1
`	texture limb hit_point.obj,hit_point.limb,img
`endfunction

function paint2()
	img=limb texture(hit_point.obj,hit_point.limb)
	sx#=image width(img)
	sy#=image height(img)
	px#=sx#*hit_point.u
	py#=sy#*hit_point.v
	make memblock from image 1,img
	delete image img
	make bitmap from memblock 1,1
	set current bitmap 1
	delete memblock 1
	paste sprite 1,px#,py#
	make memblock from bitmap 1,1
	delete bitmap 1
	make image from memblock img,1
	delete memblock 1
	set current bitmap 0
	texture limb hit_point.obj,hit_point.limb,img
endfunction

I've commented out the memblock code and used a sprite intstead for now because thats what i use for making the landscape textures in another program,it works ok,just not very accurate yet.

Back to top

Profile PM

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 19th Feb 2010 14:57

Link

paul5147:

Impressive work!

I see that whatever sprite #1 is can be painted on the limbs of an object. There is definitely a lot of potential here.

Back to top

Profile PM Email

paul5147

18

Years of Service

User Offline

Joined: 11th Jan 2006

Location: Hot & Sunny

Posted: 19th Feb 2010 16:09

Link

slightly better version of the code from above

`3d painter test
`======================
`P.Parkinson
`======================
`Main Source File

sync on
sync rate 60
autocam off
color backdrop 0, 0
set text font "Arial"
set text size 14
set text transparent
set bitmap format 21
position camera 10,80,-80
point camera 0,0,0

custom_cube(1,40,64)
box 0,0,128,128,rgb(255,255,255),rgb(255,255,255),rgb(255,255,255),rgb(255,255,255)
get image 1,0,0,128,128
get image 2,0,0,128,128
get image 3,0,0,128,128
get image 4,0,0,128,128
get image 5,0,0,128,128
get image 6,0,0,128,128
texture limb 1,1,1
texture limb 1,2,2
texture limb 1,3,3
texture limb 1,4,4
texture limb 1,5,5
texture limb 1,6,6
sc_setupobject 1,0,0
sc_allowobjectscaling 1

type hit_data
	u as float
	v as float
	limb as integer
	obj as integer
endtype
global hit_point as hit_data

target=100
make object cube target,1
hide object target
marker=101
make object sphere marker,1
color object marker,rgb(255,0,0)

`make paint sprite
for l=1 to 100
	dot rnd(16),rnd(16),rgb(0,0,255)
next l
get image 10,0,0,16,16
sprite 1,-100,-100,10
offset sprite 1,8,8
`*******main loop******** 
cls
do
	position object target,camera position x(),camera position y(),camera position z()
	set object to camera orientation target
	move object target,1000
	hit=sc_raycast(0,camera position x(),camera position y(),camera position z(),object position x(target),object position y(target),object position z(target),0)
	if hit>0
		show object marker
		position object marker,sc_getstaticcollisionx(),sc_getstaticcollisiony(),sc_getstaticcollisionz()
		lh=limb_hit()
	else
		hide object marker
	endif
	if hit>0 and spacekey() and hit_point.u>=0 and hit_point.v>=0
		paint2()
	endif
	if hit>0 and inkey$()="d" and hit_point.u>=0 and hit_point.v>=0
		paint()
	endif
	if leftkey() then yrotate object 1,wrapvalue(object angle y(1))+1:sc_updateobject 1
	if rightkey() then yrotate object 1,wrapvalue(object angle y(1))-1:sc_updateobject 1
	if upkey() then xrotate object 1,wrapvalue(object angle x(1))+1:sc_updateobject 1
	if downkey() then xrotate object 1,wrapvalue(object angle x(1))-1:sc_updateobject 1
	MouseControl(1.0)
	sync
loop

`*******Functions********
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 limb_hit()
	l=0
	done=-1
	face_hit=sc_getfacehit()+1
	obj_hit=sc_getobjecthit()
	hitx#=sc_getstaticcollisionx()
	hity#=sc_getstaticcollisiony()
	hitz#=sc_getstaticcollisionz()
	while done=-1
		old_l=l
		lock vertexdata for limb obj_hit,l
			i_num=get vertexdata index count()/3
			text 0,l*15,str$(i_num)
			v_num=get vertexdata vertex count()/3
			text 40,l*15,str$(v_num)
			`used for index objects
			if i_num>0
				if face_hit>i_num
					inc l
					face_hit=face_hit-i_num
				endif
			endif
			`used for triangle list objects
			if i_num=0
				if face_hit>v_num
					inc l
					face_hit=face_hit-v_num
				endif
			endif
			if l=old_l
				done=l
			endif
		unlock vertexdata
		
	endwhile
	lock vertexdata for limb obj_hit,done
	i_num=get vertexdata index count()/3
	v_num=get vertexdata vertex count()/3
	u#=-1.0
	v#=-1.0
	if i_num>0
		id_num=(face_hit-1)*3
		id1=get indexdata(id_num)
		id2=get indexdata(id_num+1)
		id3=get indexdata(id_num+2)
		x1#=get vertexdata position x(id1)
		y1#=get vertexdata position y(id1)
		z1#=get vertexdata position z(id1)
		u1#=get vertexdata u(id1)
		v1#=get vertexdata v(id1)
		set vertexdata diffuse id1,rgb(255,0,0)
		
		x2#=get vertexdata position x(id2)
		y2#=get vertexdata position y(id2)
		z2#=get vertexdata position z(id2)
		u2#=get vertexdata u(id2)
		v2#=get vertexdata v(id2)
		set vertexdata diffuse id2,rgb(0,255,0)
		
		x3#=get vertexdata position x(id3)
		y3#=get vertexdata position y(id3)
		z3#=get vertexdata position z(id3)
		u3#=get vertexdata u(id3)
		v3#=get vertexdata v(id3)
		set vertexdata diffuse id3,rgb(0,0,255)
		
		dist1#=distance3d(hitx#,hity#,hitz#,x1#,y1#,z1#)	
		dist2#=distance3d(hitx#,hity#,hitz#,x2#,y2#,z2#)
		dist3#=distance3d(hitx#,hity#,hitz#,x3#,y3#,z3#)
		if dist1#<dist2# and dist1#<dist3# then u#=u1#:v#=v1#
		if dist2#<dist1# and dist2#<dist3# then u#=u2#:v#=v2#
		if dist3#<dist1# and dist3#<dist2# then u#=u3#:v#=v3#
	endif
`	if i_num=0
`		vt_num=(face_hit-1)*3
`		u#=get vertexdata u(vt_num)
`		v#=get vertexdata v(vt_num)
`		u#=u#+get vertexdata u(vt_num+1)
`		v#=v#+get vertexdata v(vt_num+1)
`		u#=u#+get vertexdata u(vt_num+2)
`		v#=v#+get vertexdata v(vt_num+2)
`		u#=u#/3.0
`		v#=v#/3.0
`	endif
	unlock vertexdata
	hit_point.u=u#
	hit_point.v=v#
	hit_point.limb=done
	hit_point.obj=obj_hit
	text 0,(done+1)*15," object hit "+str$(sc_getobjecthit())+" sparky's face hit "+str$(sc_getfacehit())+" limb face hit "+str$(face_hit)+" limb number "+str$(done)
	text 0,(done+2)*15," u "+str$(u#)+" v "+str$(v#)
	text 0,(done+3)*15," space to paint"
	text 0,(done+4)*15," d to place dot"
	text 0,(done+5)*15," mouse to look lmb/rmb zoom in out"
	text 0,(done+6)*15," arrows to move cube"
	
endfunction done