Paint Object - GameCreators Forum

Author

Message

DigitalFury

15

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 11th Sep 2010 01:44 Edited at: 11th Nov 2010 20:13

Link

I need to figure out a way of converting the world position at: X#, Y#, Z# using this code:

Edit: Worked out all the code. Now I just have one problem left. (@ Last Post)

Thanks

Back to top

Profile PM Email

luskos

19

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 11th Sep 2010 07:20

Link

First of all you need to know how a texture is applied to the sphere object which is essential in the case.I found something in internet :
http://www.vterrain.org/Textures/spherical.html

It can give more light to you.I'm not sure which is gonna be the best way for texturing a sphere in dbpro.I think it should be cubic way, because of the look of textured sphere with reggular image the poles looks horrible as you know.Maybe number of triangles like the picture in the link should correspond to how many columns/rows you give to the sphere object.

Coding is My Kung Fu!
And My Kung Fu is better than Yours!

Back to top

Profile PM

Brendy boy

21

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 11th Sep 2010 17:17 Edited at: 11th Sep 2010 17:18

Link

Quote: "I need to figure out a way of converting the world position at: X#, Y#, Z# using this code:

` Get Point On Object
+ Code Snippet

Object = Pick Object(MouseX(), MouseY(), 1, 1)

X# = Camera Position X() + Get Pick Vector X()
Y# = Camera Position Y() + Get Pick Vector Y()
Z# = Camera Position Z() + Get Pick Vector Z()

to an image position."

you need to figure out which poly of the object is picked,
then you need to calculate barycentric coords for that point on poly which is under the cursor,
using that barycentric coords and the texture uv coords of the poly's vertices you can calculate the exact uv coordinates of the point which is under the cursor,
when you know that uv coords you can find out which pixel on the image coresponds to that uv coords,
and thats it!

BBB GUI Plugin
Landscape & Map Creator

Back to top

Profile PM Email

Zotoaster

21

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 11th Sep 2010 17:30

Link

I haven't implemented anything, but I'd imagine it would be something a bit like this:

Use Pick Screen to get a vector from the screen through the mouse. Using this vector, create a ray using Sparky's DLL, using SC_IntersectObject. When you have an object and an intersection coordinate, you have to somehow convert that to UV coordinates on the object's texture. Then, you simply paint the texture at those coordinates.

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

Back to top

Profile PM Email

DigitalFury

15

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 12th Sep 2010 02:18

Link

How can I pick a vertex?

This was my first attempt but I found that it doesn't pick a vertex correctly when I rotate the object.

+ Code Snippet

Lock VertexData For Limb 1, 0
			VertexCount = Get VertexData Vertex Count()
			
			VX# = Get VertexData Position X(1) 
			VY# = Get VertexData Position Y(1)
			VZ# = Get VertexData Position Z(1)
				
			MinDist# = (Abs(X# - VX#) + Abs(Y# - VY#) + Abs(Z# - VZ#)) / 3
			MinIndex = 1
			
			For Index = 1 To VertexCount
				VX# = Get VertexData Position X(Index) 
				VY# = Get VertexData Position Y(Index)
				VZ# = Get VertexData Position Z(Index)
				
				Dist# = (Abs(X# - VX#) + Abs(Y# - VY#) + Abs(Z# - VZ#)) / 3
				
				If Dist# < MinDist# 
					MinDist# = Dist#
					MinIndex = Index
					U# = Get VertexData U(Index)
					V# = Get VertexData V(Index)
				EndIf
			Next Index
			
		Unlock VertexData

I think I can use the U, V coords to determine a point on the image.

Thanks

Back to top

Profile PM Email

DigitalFury

15

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 12th Sep 2010 21:56 Edited at: 12th Sep 2010 23:27

Link

I noticed:

Quote: "UV coordinates are applied per face, not per vertex."

This means I can use the pick vertex code above.

This means I have to:

- Pick a face
- Get the UV coord of the three vertexes that make up the face
- Calculate a face UV coord from the pick object raycast (X#, Y#, Z#)

I am trying to figure out how to pick a face:

+ Code Snippet

Lock VertexData For Limb 1, 0
   			Repeat
      			VertexIndex = Get IndexData(Index) : Inc Index		      		
      			
    			X1# = X2#
    			Y1# = Y2#
    			Z1# = Z2#
			
    			X2# = X3#
    			Y2# = Y3#
    			Z2# = Z3#
			
    			X3# = Get VertexData Position X(VertexIndex) + Object Position X(1)
    			Y3# = Get VertexData Position Y(VertexIndex) + Object Position Y(1)
				Z3# = Get VertexData Position Z(VertexIndex) + Object Position Z(1)
      					
      			ObjectIndex = Object Count() + 1
      			
      			If VertexIndex > 2
        			    ` Check If X#, Y#, Z# is within the three vertexes
      			EndIf
   			Until Index >= Get VertexData Index Count() - 1
		Unlock VertexData

How do you test if X#, Y#, Z# (Pick Object Vector) is within the three vertexes: (X1#, Y1#, Z1#, X2#, Y2#, Z2#, X3#, Y3#, Z3#)?

How would you get the face UV? I thought of using distances from each point and the UV from each point to determine the UV of the pick vector (X#, Y#, Z#)

Any help would be appreciated.

Thanks

Back to top

Profile PM Email

Brendy boy

21

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 13th Sep 2010 01:34 Edited at: 13th Sep 2010 01:42

Link

Quote: ""UV coordinates are applied per face, not per vertex.""

that's not true, face doesn't have uv coords, vertices does

To pick a face:
sparky collision dll has this command:
SC_getFACEhit

when you know whick face is picked, you can find out barycentri coords with this function (u# and v# are barycentric coords)

function IntersectTriangle(orig_v as t_vector, dir_v as t_vector, v0_v as t_vector, v1_v as t_vector, v2_v as t_vector)
    n=make vector3(90) : v0=90    
    n=make vector3(91) : v1=91
    n=make vector3(92) : v2=92
    n=make vector3(93) : origv=93
    n=make vector3(94) : dirv=94
            
    n=make vector3(100) : edge1=100
    n=make vector3(101) : edge2=101    
    
    set vector3 v0, v0_v.x#,v0_v.y#,v0_v.z#
    set vector3 v1, v1_v.x#,v1_v.y#,v1_v.z#    
    set vector3 v2, v2_v.x#,v2_v.y#,v2_v.z#
    set vector3 dirv, dir_v.x#,dir_v.y#,dir_v.z#
    set vector3 origv, orig_v.x#,orig_v.y#,orig_v.z#      
        
    // Find vectors for two edges sharing vert0
    `D3DXVECTOR3 edge1 = v1 - v0;
    `D3DXVECTOR3 edge2 = v2 - v0;
    subtract vector3 edge1,v1,v0
    subtract vector3 edge2,v2,v0

// Begin calculating determinant - also used to calculate U parameter
    `D3DXVECTOR3 pvec;
    n=make vector3(102) : pvec=102
    `D3DXVec3Cross( &pvec, &dir, &edge2 );
    cross product vector3 pvec,dirv,edge2

// If determinant is near zero, ray lies in plane of triangle
    `FLOAT det = D3DXVec3Dot( &edge1, &pvec );
    det#=dot product vector3(edge1,pvec)

`D3DXVECTOR3 tvec;
    n=make vector3(150) : tvec=150
    if det# > 0
        `tvec = orig - v0;
        subtract vector3 tvec,origv,v0
    else
        `tvec = v0 - orig;
        subtract vector3 tvec,v0,origv
        det# = det#*-1
    endif

`if det# < 0.0001

// Calculate U parameter and test bounds
    `*u = D3DXVec3Dot( &tvec, &pvec );
    u#=dot product vector3(tvec,pvec)
    `if( *u < 0.0f || *u > det )
    `    return FALSE;

// Prepare to test V parameter
    `D3DXVECTOR3 qvec;
    n=make vector3(151) : qvec=151
    `D3DXVec3Cross( &qvec, &tvec, &edge1 );
    cross product vector3 qvec,tvec,edge1

// Calculate V parameter and test bounds
    `*v = D3DXVec3Dot( &dir, &qvec );
    v#=dot product vector3(dirv,qvec)
    `if( *v < 0.0f || *u + *v > det )
    `    return FALSE;

// Calculate t, scale parameters, ray intersects triangle
    `*t = D3DXVec3Dot( &edge2, &qvec );
    fInvDet# = 1.0/det#
    `*t *= fInvDet
    u#=u#*fInvDet#
    v#=v#*fInvDet#
endfunction 1

+ Code Snippet

function IntersectTriangle(orig_v as t_vector, dir_v as t_vector, v0_v as t_vector, v1_v as t_vector, v2_v as t_vector)
    n=make vector3(90) : v0=90    
    n=make vector3(91) : v1=91
    n=make vector3(92) : v2=92
    n=make vector3(93) : origv=93
    n=make vector3(94) : dirv=94
            
    n=make vector3(100) : edge1=100
    n=make vector3(101) : edge2=101    
    
    set vector3 v0, v0_v.x#,v0_v.y#,v0_v.z#
    set vector3 v1, v1_v.x#,v1_v.y#,v1_v.z#    
    set vector3 v2, v2_v.x#,v2_v.y#,v2_v.z#
    set vector3 dirv, dir_v.x#,dir_v.y#,dir_v.z#
    set vector3 origv, orig_v.x#,orig_v.y#,orig_v.z#      
        
    // Find vectors for two edges sharing vert0
    `D3DXVECTOR3 edge1 = v1 - v0;
    `D3DXVECTOR3 edge2 = v2 - v0;
    subtract vector3 edge1,v1,v0
    subtract vector3 edge2,v2,v0    

    // Begin calculating determinant - also used to calculate U parameter
    `D3DXVECTOR3 pvec;
    n=make vector3(102) : pvec=102
    `D3DXVec3Cross( &pvec, &dir, &edge2 );
    cross product vector3 pvec,dirv,edge2

    // If determinant is near zero, ray lies in plane of triangle
    `FLOAT det = D3DXVec3Dot( &edge1, &pvec );
    det#=dot product vector3(edge1,pvec)

    `D3DXVECTOR3 tvec;
    n=make vector3(150) : tvec=150
    if det# > 0
        `tvec = orig - v0;
        subtract vector3 tvec,origv,v0
    else
        `tvec = v0 - orig;
        subtract vector3 tvec,v0,origv
        det# = det#*-1
    endif

    `if det# < 0.0001

    // Calculate U parameter and test bounds
    `*u = D3DXVec3Dot( &tvec, &pvec );
    u#=dot product vector3(tvec,pvec)
    `if( *u < 0.0f || *u > det )
    `    return FALSE;

    // Prepare to test V parameter
    `D3DXVECTOR3 qvec;
    n=make vector3(151) : qvec=151
    `D3DXVec3Cross( &qvec, &tvec, &edge1 );
    cross product vector3 qvec,tvec,edge1

    // Calculate V parameter and test bounds
    `*v = D3DXVec3Dot( &dir, &qvec );
    v#=dot product vector3(dirv,qvec)
    `if( *v < 0.0f || *u + *v > det )
    `    return FALSE;

    // Calculate t, scale parameters, ray intersects triangle
    `*t = D3DXVec3Dot( &edge2, &qvec );
    fInvDet# = 1.0/det#
    `*t *= fInvDet
    u#=u#*fInvDet#
    v#=v#*fInvDet#
endfunction 1

you will also need this:

+ Code Snippet

type t_vector
x# y# z#
nx# ny# nz#
endtype

BBB GUI Plugin
Landscape & Map Creator

Back to top

Profile PM Email

DigitalFury

15

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 13th Sep 2010 02:25

Link

@Brendy boy - Wooow

Lots of math. Thanks a ton. I should see if this works.

Quote: "u# and v# are barycentric coords"

Didn't know that. Look up barycentric coords on wikipedia and I still couldn't draw that conclusion.

Could u explain how to use your function? Also can't this:

+ Code Snippet

Lock VertexData For Limb 1, 0
   			Repeat
      			VertexIndex = Get IndexData(Index) : Inc Index		      		
      			
    			X1# = X2#
    			Y1# = Y2#
    			Z1# = Z2#
			
    			X2# = X3#
    			Y2# = Y3#
    			Z2# = Z3#
			
    			X3# = Get VertexData Position X(VertexIndex) + Object Position X(1)
    			Y3# = Get VertexData Position Y(VertexIndex) + Object Position Y(1)
				Z3# = Get VertexData Position Z(VertexIndex) + Object Position Z(1)
      					
      			ObjectIndex = Object Count() + 1
      			
      			If VertexIndex > 2
        			    ` Check If X#, Y#, Z# is within the three vertexes
      			EndIf
   			Until Index >= Get VertexData Index Count() - 1
		Unlock VertexData

be used to determine which face is picked?

Thanks

Back to top

Profile PM Email

Brendy boy

21

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 13th Sep 2010 02:50

Link

Quote: "Also can't this:
be used to determine which face is picked?"

no

the function i gave you can or you can use sparky's dll.
if you use mine here's what you should know:
you need to check every poly against a line/vector that is projected from the screen to the scene (hint: pick screen command)
the starting point of that line you need to put in orig_v
the direction of that line you need to put in dir_v
v0_v, v1_v, v2_v are 3d coords of poly's vertices
if ichecked poly is picked function returns 1 else 0.
If poly is picked u# and v# will contain barycentric coords, but you have to declare them as global.

When you manage to find out which poly is picked and when you will have the barycentric coords post here i i'll tell what to do with them.

BBB GUI Plugin
Landscape & Map Creator

Back to top

Profile PM Email

DigitalFury

15

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 13th Sep 2010 03:18

Link

@Brendy boy -

I don't think I used your function correctly. I don't think the direction is the object's angle. Is it the end point? If so how would I find the end point. I know the start point is X#, Y#, Z#. (FYI: X#, Y#, Z# - Pick Object Coords)

orig_v as t_vector
		dir_v as t_vector
		v0_v as t_vector
		v1_v as t_vector
		v2_v as t_vector
		
		global u#
		global v#
								
		orig_v.x# = X#
		orig_v.y# = Y#
		orig_v.z# = Z#
				
		dir_v.X# = Object Angle X(1)
		dir_v.Y# = Object Angle Y(1)
		dir_v.Z# = Object Angle Z(1)
		
		Lock VertexData For Limb 1, 0
   			Repeat
      			VertexIndex = Get IndexData(Index) : Inc Index		      		
      			
    			X1# = X2#
    			Y1# = Y2#
    			Z1# = Z2#
			
    			X2# = X3#
    			Y2# = Y3#
    			Z2# = Z3#
			
    			X3# = Get VertexData Position X(VertexIndex) + Object Position X(1)
    			Y3# = Get VertexData Position Y(VertexIndex) + Object Position Y(1)
				Z3# = Get VertexData Position Z(VertexIndex) + Object Position Z(1)
      					
      			ObjectIndex = Object Count() + 1
      			
      			If VertexIndex > 2
      				v0_v.x# = X1#
					v0_v.y# = Y1#
					v0_v.z# = Z1#
					
					v1_v.x# = X2#
					v1_v.y# = Y2#
					v1_v.z# = Z2#
					
					v2_v.x# = X3#
					v2_v.y# = Y3#
					v2_v.z# = Z3#
      			
        			Result = IntersectTriangle(orig_v, dir_v, v0_v, v1_v, v2_v)
      			EndIf
   			Until (Index >= Get VertexData Index Count() - 1) Or Result = 1
		Unlock VertexData
		
		Text 0,200, Str$(u#)
		Text 0, 220, Str$(v#)

+ Code Snippet

orig_v as t_vector
		dir_v as t_vector
		v0_v as t_vector
		v1_v as t_vector
		v2_v as t_vector
		
		global u#
		global v#
								
		orig_v.x# = X#
		orig_v.y# = Y#
		orig_v.z# = Z#
				
		dir_v.X# = Object Angle X(1)
		dir_v.Y# = Object Angle Y(1)
		dir_v.Z# = Object Angle Z(1)
		
		Lock VertexData For Limb 1, 0
   			Repeat
      			VertexIndex = Get IndexData(Index) : Inc Index		      		
      			
    			X1# = X2#
    			Y1# = Y2#
    			Z1# = Z2#
			
    			X2# = X3#
    			Y2# = Y3#
    			Z2# = Z3#
			
    			X3# = Get VertexData Position X(VertexIndex) + Object Position X(1)
    			Y3# = Get VertexData Position Y(VertexIndex) + Object Position Y(1)
				Z3# = Get VertexData Position Z(VertexIndex) + Object Position Z(1)
      					
      			ObjectIndex = Object Count() + 1
      			
      			If VertexIndex > 2
      				v0_v.x# = X1#
					v0_v.y# = Y1#
					v0_v.z# = Z1#
					
					v1_v.x# = X2#
					v1_v.y# = Y2#
					v1_v.z# = Z2#
					
					v2_v.x# = X3#
					v2_v.y# = Y3#
					v2_v.z# = Z3#
      			
        			Result = IntersectTriangle(orig_v, dir_v, v0_v, v1_v, v2_v)
      			EndIf
   			Until (Index >= Get VertexData Index Count() - 1) Or Result = 1
		Unlock VertexData
		
		Text 0,200, Str$(u#)
		Text 0, 220, Str$(v#)

How I am calc. pick object coords:

+ Code Snippet

Object = Pick Object(MouseX(), MouseY(), 1, 1)
	
X# = Camera Position X() + Get Pick Vector X()
Y# = Camera Position Y() + Get Pick Vector Y()
Z# = Camera Position Z() + Get Pick Vector Z()

Thanks for your help. ^^

Back to top

Profile PM Email

Brendy boy

21

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 13th Sep 2010 14:51 Edited at: 13th Sep 2010 14:58

Link

Quote: "I don't think the direction is the object's angle."

it isn't

you get direction when you subtract starting point from ending point.
to get starting point do this:

+ Code Snippet

pick screen mousex(),mousey(),1
sx#=camera position x()+get pick vector x()
sy#=camera position y()+get pick vector y()
sz#=camera position z()+get pick vector z()

to get ending point do this:

+ Code Snippet

pick screen mousex(),mousey(),2
ex#=camera position x()+get pick vector x()
ey#=camera position y()+get pick vector y()
ez#=camera position z()+get pick vector z()

to get direction:

+ Code Snippet

dx#=ex#-sx#
dy#=ey#-sy#
dz#=ez#-sz#

now to get which poly is picked (if you dont want to use sparky's) do this:
NOTE: the following method works only if object has indexdata, if it doesn't the following code won't work

+ Code Snippet

lock vertexdata for limb obj,limb,1
for i=0 to (get vertexdata index count()/3)-1
    i1=get indexdata(3*i+0)
    i2=get indexdata(3*i+1)
    i3=get indexdata(3*i+2)
    i1,i2,i2 - vertices of this poly
    fill vectors v0_v, v1_v and v2_v with vertex coords
    call my function for triangle intersection
    if it returns 1 this poly is picked
next i
unlock vertexdata

BBB GUI Plugin
Landscape & Map Creator

Back to top

Profile PM Email

DigitalFury

15

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 13th Sep 2010 23:55

Link

@Brendy boy - Thanks again for your help. Forgot about pick screen. I used that at one time for determining normals.

Your function seems to always return 1.

"return FALSE" Is commented out:

+ Code Snippet

// Calculate U parameter and test bounds
    `*u = D3DXVec3Dot( &tvec, &pvec );
    u#=dot product vector3(tvec,pvec)
    `if( *u < 0.0f || *u > det )
    `    return FALSE;

    // Calculate V parameter and test bounds
    `*v = D3DXVec3Dot( &dir, &qvec );
    v#=dot product vector3(dirv,qvec)
    `if( *v < 0.0f || *u + *v > det )
    `    return FALSE;

Thanks

Back to top

Profile PM Email

Brendy boy

21

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 14th Sep 2010 00:17

Link

Quote: "Your function seems to always return 1.

"return FALSE" Is commented out:"

replace `return FALSE with return 0 and then it should work

BBB GUI Plugin
Landscape & Map Creator

Back to top

Profile PM Email

DigitalFury

15

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 14th Sep 2010 20:21

Link

I couldn't get it working. The function looks like it was converted from Dark GDK or C++ and I don't know if it is working correctly.

Check out the code:

type t_vector
x# y# z#
nx# ny# nz#
endtype

global u#
global v#

AutoCam Off

Set Display Mode Desktop Width(), Desktop Height(), 32
Maximize Window

Sync On : Sync Rate 60

Make Object Sphere 1, 10

Move Camera -10

Do
                pick screen mousex(), mousey(), 1
		sx# = camera position x() + get pick vector x()
		sy# = camera position y() + get pick vector y()
		sz# = camera position z() + get pick vector z()
		
		pick screen mousex(),mousey(),2
		ex#=camera position x()+get pick vector x()
		ey#=camera position y()+get pick vector y()
		ez#=camera position z()+get pick vector z()
		
		dx#=ex#-sx#
		dy#=ey#-sy#
		dz#=ez#-sz#
		
		origVector = 1
		NULL = Make Vector3(origVector)
		
		Set Vector3 origVector, sx#, sy#, sz#
				
		DirVector = 2
		NULL = Make Vector3(DirVector)
		
		Set Vector3 DirVector, dx#, dy#, dz#
		
		lock vertexdata for limb 1,0,1
		for i=0 to (get vertexdata index count()/3)-1
    		i1=get indexdata(3*i+0)
    		i2=get indexdata(3*i+1)
    		i3=get indexdata(3*i+2)
    		
    		` i1,i2,i2 - vertices of this poly    		
    		X# = Get VertexData Position X(i1) + Object Position X(1)
    		Y# = Get VertexData Position Y(i1) + Object Position Y(1)
			Z# = Get VertexData Position Z(i1) + Object Position Z(1)
			
			X2# = Get VertexData Position X(i2) + Object Position X(1)
    		Y2# = Get VertexData Position Y(i2) + Object Position Y(1)
			Z2# = Get VertexData Position Z(i2) + Object Position Z(1)
			
			X3# = Get VertexData Position X(i3) + Object Position X(1)
    		Y3# = Get VertexData Position Y(i3) + Object Position Y(1)
			Z3# = Get VertexData Position Z(i3) + Object Position Z(1)
			
			`fill vectors v0_v, v1_v and v2_v with vertex coords
			Vector1 = 3
			NULL = Make Vector3(Vector1)
			
			Vector2 = 4
			NULL = Make Vector3(Vector2)
			
			Vector3 = 5
			NULL = Make Vector3(Vector3)
			
			Set Vector3 Vector1, X#, Y#, Z#
			Set Vector3 Vector2, X2#, Y2#, Z2#
			Set Vector3 Vector3, X3#, Y3#, Z3#
    		
    		`call my function for triangle intersection
    		Result = IntersectTriangle(origVector, DirVector, Vector1, Vector2, Vector3)
    		
    		`if it returns 1 this poly is picked
    		If Result = 1 Then Exit
		next i
		unlock vertexdata
		
		Text 0,200, Str$(u#)
		Text 0, 220, Str$(v#)
		
		NULL = Delete Vector3(1)
		NULL = Delete Vector3(2)
		NULL = Delete Vector3(3)
		NULL = Delete Vector3(4)
		NULL = Delete Vector3(5)
    Sync
Loop

function IntersectTriangle(orig_v as t_vector, dir_v as t_vector, v0_v as t_vector, v1_v as t_vector, v2_v as t_vector)
    n=make vector3(90) : v0=90    
    n=make vector3(91) : v1=91
    n=make vector3(92) : v2=92
    n=make vector3(93) : origv=93
    n=make vector3(94) : dirv=94
            
    n=make vector3(100) : edge1=100
    n=make vector3(101) : edge2=101    
    
    set vector3 v0, v0_v.x#,v0_v.y#,v0_v.z#
    set vector3 v1, v1_v.x#,v1_v.y#,v1_v.z#    
    set vector3 v2, v2_v.x#,v2_v.y#,v2_v.z#
    set vector3 dirv, dir_v.x#,dir_v.y#,dir_v.z#
    set vector3 origv, orig_v.x#,orig_v.y#,orig_v.z#      
        
    // Find vectors for two edges sharing vert0
    `D3DXVECTOR3 edge1 = v1 - v0;
    `D3DXVECTOR3 edge2 = v2 - v0;
    subtract vector3 edge1,v1,v0
    subtract vector3 edge2,v2,v0

// Begin calculating determinant - also used to calculate U parameter
    `D3DXVECTOR3 pvec;
    n=make vector3(102) : pvec=102
    `D3DXVec3Cross( &pvec, &dir, &edge2 );
    cross product vector3 pvec,dirv,edge2

// If determinant is near zero, ray lies in plane of triangle
    `FLOAT det = D3DXVec3Dot( &edge1, &pvec );
    det#=dot product vector3(edge1,pvec)

`D3DXVECTOR3 tvec;
    n=make vector3(150) : tvec=150
    if det# > 0
        `tvec = orig - v0;
        subtract vector3 tvec,origv,v0
    else
        `tvec = v0 - orig;
        subtract vector3 tvec,v0,origv
        det# = det#*-1
    endif

`if det# < 0.0001
    
    ReturnVal = 1

// Calculate U parameter and test bounds
    `*u = D3DXVec3Dot( &tvec, &pvec );
    u#=dot product vector3(tvec,pvec)
    `if( *u < 0.0f || *u > det )
    if ( u# < 0.0 or u# > det# ) then ReturnVal = 0
    	
        `return 0;

// Prepare to test V parameter
    `D3DXVECTOR3 qvec;
    n=make vector3(151) : qvec=151
    `D3DXVec3Cross( &qvec, &tvec, &edge1 );
    cross product vector3 qvec,tvec,edge1

// Calculate V parameter and test bounds
    `*v = D3DXVec3Dot( &dir, &qvec );
    v#=dot product vector3(dirv,qvec)
    `if( *v < 0.0f || *u + *v > det )
    if ( v# < 0.0 or u# + v# > det# ) then ReturnVal = 0

// Calculate t, scale parameters, ray intersects triangle
    `*t = D3DXVec3Dot( &edge2, &qvec );
    fInvDet# = 1.0/det#
    `*t *= fInvDet
    u#=u#*fInvDet#
    v#=v#*fInvDet#
endfunction ReturnVal

+ Code Snippet

type t_vector
x# y# z#
nx# ny# nz#
endtype

global u#
global v#

AutoCam Off

Set Display Mode Desktop Width(), Desktop Height(), 32
Maximize Window

Sync On : Sync Rate 60

Make Object Sphere 1, 10

Move Camera -10

Do
                pick screen mousex(), mousey(), 1
		sx# = camera position x() + get pick vector x()
		sy# = camera position y() + get pick vector y()
		sz# = camera position z() + get pick vector z()
		
		pick screen mousex(),mousey(),2
		ex#=camera position x()+get pick vector x()
		ey#=camera position y()+get pick vector y()
		ez#=camera position z()+get pick vector z()
		
		dx#=ex#-sx#
		dy#=ey#-sy#
		dz#=ez#-sz#
		
		origVector = 1
		NULL = Make Vector3(origVector)
		
		Set Vector3 origVector, sx#, sy#, sz#
				
		DirVector = 2
		NULL = Make Vector3(DirVector)
		
		Set Vector3 DirVector, dx#, dy#, dz#
		
		lock vertexdata for limb 1,0,1
		for i=0 to (get vertexdata index count()/3)-1
    		i1=get indexdata(3*i+0)
    		i2=get indexdata(3*i+1)
    		i3=get indexdata(3*i+2)
    		
    		` i1,i2,i2 - vertices of this poly    		
    		X# = Get VertexData Position X(i1) + Object Position X(1)
    		Y# = Get VertexData Position Y(i1) + Object Position Y(1)
			Z# = Get VertexData Position Z(i1) + Object Position Z(1)
			
			X2# = Get VertexData Position X(i2) + Object Position X(1)
    		Y2# = Get VertexData Position Y(i2) + Object Position Y(1)
			Z2# = Get VertexData Position Z(i2) + Object Position Z(1)
			
			X3# = Get VertexData Position X(i3) + Object Position X(1)
    		Y3# = Get VertexData Position Y(i3) + Object Position Y(1)
			Z3# = Get VertexData Position Z(i3) + Object Position Z(1)
			
			`fill vectors v0_v, v1_v and v2_v with vertex coords
			Vector1 = 3
			NULL = Make Vector3(Vector1)
			
			Vector2 = 4
			NULL = Make Vector3(Vector2)
			
			Vector3 = 5
			NULL = Make Vector3(Vector3)
			
			Set Vector3 Vector1, X#, Y#, Z#
			Set Vector3 Vector2, X2#, Y2#, Z2#
			Set Vector3 Vector3, X3#, Y3#, Z3#
    		
    		`call my function for triangle intersection
    		Result = IntersectTriangle(origVector, DirVector, Vector1, Vector2, Vector3)
    		
    		`if it returns 1 this poly is picked
    		If Result = 1 Then Exit
		next i
		unlock vertexdata
		
		Text 0,200, Str$(u#)
		Text 0, 220, Str$(v#)
		
		NULL = Delete Vector3(1)
		NULL = Delete Vector3(2)
		NULL = Delete Vector3(3)
		NULL = Delete Vector3(4)
		NULL = Delete Vector3(5)
    Sync
Loop

function IntersectTriangle(orig_v as t_vector, dir_v as t_vector, v0_v as t_vector, v1_v as t_vector, v2_v as t_vector)
    n=make vector3(90) : v0=90    
    n=make vector3(91) : v1=91
    n=make vector3(92) : v2=92
    n=make vector3(93) : origv=93
    n=make vector3(94) : dirv=94
            
    n=make vector3(100) : edge1=100
    n=make vector3(101) : edge2=101    
    
    set vector3 v0, v0_v.x#,v0_v.y#,v0_v.z#
    set vector3 v1, v1_v.x#,v1_v.y#,v1_v.z#    
    set vector3 v2, v2_v.x#,v2_v.y#,v2_v.z#
    set vector3 dirv, dir_v.x#,dir_v.y#,dir_v.z#
    set vector3 origv, orig_v.x#,orig_v.y#,orig_v.z#      
        
    // Find vectors for two edges sharing vert0
    `D3DXVECTOR3 edge1 = v1 - v0;
    `D3DXVECTOR3 edge2 = v2 - v0;
    subtract vector3 edge1,v1,v0
    subtract vector3 edge2,v2,v0    

    // Begin calculating determinant - also used to calculate U parameter
    `D3DXVECTOR3 pvec;
    n=make vector3(102) : pvec=102
    `D3DXVec3Cross( &pvec, &dir, &edge2 );
    cross product vector3 pvec,dirv,edge2

    // If determinant is near zero, ray lies in plane of triangle
    `FLOAT det = D3DXVec3Dot( &edge1, &pvec );
    det#=dot product vector3(edge1,pvec)

    `D3DXVECTOR3 tvec;
    n=make vector3(150) : tvec=150
    if det# > 0
        `tvec = orig - v0;
        subtract vector3 tvec,origv,v0
    else
        `tvec = v0 - orig;
        subtract vector3 tvec,v0,origv
        det# = det#*-1
    endif

    `if det# < 0.0001
    
    ReturnVal = 1

    // Calculate U parameter and test bounds
    `*u = D3DXVec3Dot( &tvec, &pvec );
    u#=dot product vector3(tvec,pvec)
    `if( *u < 0.0f || *u > det )
    if ( u# < 0.0 or u# > det# ) then ReturnVal = 0
    	
        `return 0;

    // Prepare to test V parameter
    `D3DXVECTOR3 qvec;
    n=make vector3(151) : qvec=151
    `D3DXVec3Cross( &qvec, &tvec, &edge1 );
    cross product vector3 qvec,tvec,edge1

    // Calculate V parameter and test bounds
    `*v = D3DXVec3Dot( &dir, &qvec );
    v#=dot product vector3(dirv,qvec)
    `if( *v < 0.0f || *u + *v > det )
    if ( v# < 0.0 or u# + v# > det# ) then ReturnVal = 0        

    // Calculate t, scale parameters, ray intersects triangle
    `*t = D3DXVec3Dot( &edge2, &qvec );
    fInvDet# = 1.0/det#
    `*t *= fInvDet
    u#=u#*fInvDet#
    v#=v#*fInvDet#
endfunction ReturnVal

If this turns out to be to much of a hassle then can you show me an example with SC_getFACEhit?

Thanks for your help!

Back to top

Profile PM Email

Brendy boy

21

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 14th Sep 2010 21:04 Edited at: 14th Sep 2010 21:07

Link

the code is OK, but it can't be used with dbpro primitives because they have different indexdata structure. Load an object exported from some 3d application and it should work.

And: don't use return_val inside intersect_triangle function, just call exitfunction 0 command, it will be faster

BBB GUI Plugin
Landscape & Map Creator

Back to top

Profile PM Email

DigitalFury

15

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 14th Sep 2010 21:09 Edited at: 14th Sep 2010 21:10

Link

Tried loading from the media of dbp.

+ Code Snippet

Load Object "C:\Program Files\The Game Creators\Dark Basic Professional\Media\Models\piano\piano2.X", 1

It still doesn't work.

Edit:
Result always = 0 and u/v = 0.

+ Code Snippet

If Result = 1 Then Message Str$(Result)

Back to top

Profile PM Email

Brendy boy

21

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 14th Sep 2010 21:16

Link

at the end of the function it needs to be endfunction 1, not endfunction returnVal

BBB GUI Plugin
Landscape & Map Creator

Back to top

Profile PM Email

paul5147

20

Years of Service

User Offline

Joined: 11th Jan 2006

Location: Hot & Sunny

Posted: 14th Sep 2010 21:26 Edited at: 14th Sep 2010 21:32

Link

Have a look at an old wip of mine and let me know if its of any use to you.If so ill dig out the code and post it up for you.
http://forum.thegamecreators.com/?m=forum_view&t=170444&b=8
My code takes into account the various limbs of an object and wether they are built up of vertex list data or face/triangle list data,took a while to figure all this out and i only managed it with the help of others on here,but only too glad to pass all this on if you need it.

Back to top

Profile PM

DigitalFury

15

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 14th Sep 2010 21:38

Link

@paul5147 - That would be greatly appreciated. ^^ The Object Painter I am making is extended into my image manipulation lib. I am making a full on decal/image editor for shaders and materials. I hope to get an example up asap once I figure out how to paint objects. I will add credit where credit is due. ^^ Thanks

Back to top

Profile PM Email

paul5147

20

Years of Service

User Offline

Joined: 11th Jan 2006

Location: Hot & Sunny

Posted: 19th Sep 2010 19:35

Link

Sorry for the delay had a few things on but heres the basic code,i have stripped quite a bit out of this to try and make it simple to understand,the full version allows you to select from the texture you want to apply to the model as well by exporting the file as a .x model with the new texture data included then reloading the model so DBPro takes the new data into account.I cant find a way to make add the new texture data directly into the object any other way,if you want the rest of the code then let me know.

`UV Painter
`======================
`P.Parkinson
`======================
`Main Source File
`needs sparkys to function corectly

sync on
sync rate 60
autocam off
color backdrop 0, 0
set text font "Arial"
set text size 12
set text transparent
position mouse 320,240
dummy=mousemovex()
dummy=mousemovey()
position camera 30,30,-30
point camera 0,0,0

`set up return data array
type vertex_data
	x1 as float
	y1 as float
	z1 as float
	u1 as float
	v1 as float
	x2 as float
	y2 as float
	z2 as float
	u2 as float
	v2 as float
	x3 as float
	y3 as float
	z3 as float
	u3 as float
	v3 as float
	texture as integer
	vertex1 as integer
	vertex2 as integer
	vertex3 as integer
endtype
global draw_data as vertex_data

`set up target and marker for raycast
global target as integer
target=free_object()
make object cube target,1
hide object target

global marker as integer
marker=free_object()
make object cube marker,0.3
color object marker,rgb(255,0,0)
hide object marker

global length_of_ray as integer=100

`set markers for poly outline objects
dummy=free_object()
make object sphere dummy,0.2
make mesh from object 1,dummy
delete object dummy

global red_marker as integer
red_marker=free_object()
make object sphere red_marker,0.2
color object red_marker,rgb(255,0,0)
add limb red_marker,1,1
color limb red_marker,1,rgb(255,0,0)
hide object red_marker

global green_marker as integer
green_marker=free_object()
make object sphere green_marker,0.2
color object green_marker,rgb(0,255,0)
add limb green_marker,1,1
color limb green_marker,1,rgb(0,255,0)
hide object green_marker

global blue_marker as integer
blue_marker=free_object()
make object sphere blue_marker,0.2
color object blue_marker,rgb(0,0,255)
add limb blue_marker,1,1
color limb blue_marker,1,rgb(0,0,255)
hide object blue_marker

delete mesh 1

`make text textures
make_textures()

`make test objects
obj=free_object()
make object cube obj,5
texture object obj,1
position object obj,-20,0,0
sc_setupobject obj,0,0

obj=free_object()
make object sphere obj,5
make mesh from object 1,obj
delete object obj
make object obj,1
texture object obj,2
delete mesh 1
position object obj,-10,0,0
sc_setupobject obj,0,0

obj=free_object()
make object cube obj,5
texture object obj,3
position object obj,0,0,0
yrotate object obj,45
make object sphere 1000,5
make mesh from object 1,1000
delete object 1000
add limb obj,1,1
texture limb obj,1,1
delete mesh 1
offset limb obj,1,0,3,0
sc_setupobject obj,0,0

obj=free_object()
make object cube obj,5
texture object obj,4
position object obj,10,0,0
yrotate object obj,45
make object sphere 1000,5
make mesh from object 1,1000
delete object 1000
add limb obj,1,1
texture limb obj,1,1
delete mesh 1
offset limb obj,1,0,3,0
sc_setupobject obj,0,0

obj=free_object()
make object cube obj,5
texture object obj,5
position object obj,20,0,0
yrotate object obj,45
make object sphere 1000,5
make mesh from object 1,1000
delete object 1000
add limb obj,1,1
texture limb obj,1,1
delete mesh 1
offset limb obj,1,0,3,0
rotate limb obj,1,45,0,0
sc_setupobject obj,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,length_of_ray
	
	MouseControl(1.0)
	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
		cx# = sc_getstaticcollisionx() : nx# = sc_getcollisionnormalx()
     	cy# = sc_getstaticcollisiony() : ny# = sc_getcollisionnormaly()
      cz# = sc_getstaticcollisionz() : nz# = sc_getcollisionnormalz()
      position object marker,cx#,cy#,cz#
      point object marker,cx#+(nx#*1000),cy#+(ny#*1000),cz#+(nz#*1000)
		draw_wire_frame(hit)
	else
		hide object marker
		hide object red_marker
		hide object green_marker
		hide object blue_marker
	endif
	text 0,270,"MOUSE TO LOOK AROUND AND POSITION TARGET MOUSE BUTTONS ZOOM IN/OUT"
	
	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 free_object()
	repeat
		inc i 
		if object exist(i)=0 then found=1
	until found
endfunction i

function free_image()
	repeat
		inc i
		if image exist(i)=0 then found=1
	until found
endfunction i

function draw_wire_frame(obj)
	sparkys_face_hit=sc_getfacehit()
	num_limbs=find_num_limbs(obj)
	
	`debug
	text 0,285,"PRESS SPACE TO SET NEW UV DATA"
	
	text 0,0+300,"Objec Hit - "+str$(obj)
	text 0,15+300,"Sparky´s Face Hit - "+str$(sparkys_face_hit)
	text 0,30+300,"Limbs In Object Hit - "+str$(num_limbs)
	
	`find the limb hit
	start_face_of_limb=0
	limb_hit=0
	limb_face_hit=0
	total_faces=0
	for limb=0 to num_limbs
		lock vertexdata for limb obj,limb
		index_count=get vertexdata index count()
		vertex_count=get vertexdata vertex count()
		if index_count>0 
			faces_in_limb=index_count/3
		else
			faces_in_limb=vertex_count/3
		endif
		total_faces=total_faces+faces_in_limb
		if sparkys_face_hit>total_faces
			inc limb_hit
		else
			if limb_hit=0
				limb_face_hit=sparkys_face_hit
			else
				limb_face_hit=sparkys_face_hit-(total_faces-faces_in_limb)
			endif
		endif
		`debug
		text 0,45+(limb*15)+300,"Faces In Limb "+str$(limb)+" - "+str$(faces_in_limb)
		
		unlock vertexdata
	next l
	`debug
	text 0,45+((num_limbs+1)*15)+300,"Total Faces  - "+str$(total_faces)
	text 0,45+((num_limbs+2)*15)+300,"Limb Hit - "+str$(limb_hit)
	text 0,45+((num_limbs+3)*15)+300,"Limb Face Hit - "+str$(limb_face_hit)
	
	`get marker positions
	lock vertexdata for limb obj,limb_hit
	index_count=get vertexdata index count()
	if index_count>0
		draw_data.x1=get vertexdata position x(get indexdata(limb_face_hit*3))
		draw_data.y1=get vertexdata position y(get indexdata(limb_face_hit*3))
		draw_data.z1=get vertexdata position z(get indexdata(limb_face_hit*3))
		draw_data.u1=get vertexdata u(get indexdata(limb_face_hit*3))
		draw_data.v1=get vertexdata v(get indexdata(limb_face_hit*3))
		draw_data.vertex1=get indexdata(limb_face_hit*3)
			
		draw_data.x2=get vertexdata position x(get indexdata(limb_face_hit*3+1))
		draw_data.y2=get vertexdata position y(get indexdata(limb_face_hit*3+1))
		draw_data.z2=get vertexdata position z(get indexdata(limb_face_hit*3+1))
		draw_data.u2=get vertexdata u(get indexdata(limb_face_hit*3+1))
		draw_data.v2=get vertexdata v(get indexdata(limb_face_hit*3+1))
		draw_data.vertex2=get indexdata(limb_face_hit*3+1)
			
		draw_data.x3=get vertexdata position x(get indexdata(limb_face_hit*3+2))
		draw_data.y3=get vertexdata position y(get indexdata(limb_face_hit*3+2))
		draw_data.z3=get vertexdata position z(get indexdata(limb_face_hit*3+2))
		draw_data.u3=get vertexdata u(get indexdata(limb_face_hit*3+2))
		draw_data.v3=get vertexdata v(get indexdata(limb_face_hit*3+2))
		draw_data.vertex3=get indexdata(limb_face_hit*3+2)
	else
		draw_data.x1=get vertexdata position x(limb_face_hit*3)
		draw_data.y1=get vertexdata position y(limb_face_hit*3)
		draw_data.z1=get vertexdata position z(limb_face_hit*3)
		draw_data.u1=get vertexdata u(limb_face_hit*3)
		draw_data.v1=get vertexdata v(limb_face_hit*3)
		draw_data.vertex1=limb_face_hit*3
			
		draw_data.x2=get vertexdata position x(limb_face_hit*3+1)
		draw_data.y2=get vertexdata position y(limb_face_hit*3+1)
		draw_data.z2=get vertexdata position z(limb_face_hit*3+1)
		draw_data.u2=get vertexdata u(limb_face_hit*3+1)
		draw_data.v2=get vertexdata v(limb_face_hit*3+1)
		draw_data.vertex2=limb_face_hit*3+1
			
		draw_data.x3=get vertexdata position x(limb_face_hit*3+2)
		draw_data.y3=get vertexdata position y(limb_face_hit*3+2)
		draw_data.z3=get vertexdata position z(limb_face_hit*3+2)
		draw_data.u3=get vertexdata u(limb_face_hit*3+2)
		draw_data.v3=get vertexdata v(limb_face_hit*3+2)
		draw_data.vertex3=limb_face_hit*3+2
	endif
	
	draw_data.texture=limb texture(obj,limb_hit)
	if draw_data.texture>0
		paste image draw_data.texture,0,0
		ink rgb(255,0,0),0
		box 255.0*draw_data.u1-5.0,255.0*draw_data.v1-5.0,255.0*draw_data.u1+5.0,255.0*draw_data.v1+5.0
		ink rgb(0,255,0),0
		box 255.0*draw_data.u2-5.0,255.0*draw_data.v2-5.0,255.0*draw_data.u2+5.0,255.0*draw_data.v2+5.0
		ink rgb(0,0,255),0
		box 255.0*draw_data.u3-5.0,255.0*draw_data.v3-5.0,255.0*draw_data.u3+5.0,255.0*draw_data.v3+5.0
		ink rgb(0,0,0),0
		line 255.0*draw_data.u1,255.0*draw_data.v1,255.0*draw_data.u2,255.0*draw_data.v2
		line 255.0*draw_data.u2,255.0*draw_data.v2,255.0*draw_data.u3,255.0*draw_data.v3
		line 255.0*draw_data.u3,255.0*draw_data.v3,255.0*draw_data.u1,255.0*draw_data.v1
		ink rgb(255,255,255),0
	endif
	
	unlock vertexdata
	`position markers
	show object red_marker
	show object green_marker
	show object blue_marker
	
	position object red_marker,limb position x(obj,limb_hit),limb position y(obj,limb_hit),limb position z(obj,limb_hit)
	position object green_marker,limb position x(obj,limb_hit),limb position y(obj,limb_hit),limb position z(obj,limb_hit)
	position object blue_marker,limb position x(obj,limb_hit),limb position y(obj,limb_hit),limb position z(obj,limb_hit)
	
	set object to object orientation red_marker,obj
	set object to object orientation green_marker,obj
	set object to object orientation blue_marker,obj
	
	offset limb red_marker,1,draw_data.x1,draw_data.y1,draw_data.z1
	offset limb green_marker,1,draw_data.x2,draw_data.y2,draw_data.z2
	offset limb blue_marker,1,draw_data.x3,draw_data.y3,draw_data.z3
	
	rotate object red_marker,object angle x(red_marker)+limb angle x(obj,limb_hit),object angle y(red_marker)+limb angle y(obj,limb_hit),object angle z(red_marker)+limb angle z(obj,limb_hit)
	rotate object green_marker,object angle x(green_marker)+limb angle x(obj,limb_hit),object angle y(green_marker)+limb angle y(obj,limb_hit),object angle z(green_marker)+limb angle z(obj,limb_hit)
	rotate object blue_marker,object angle x(blue_marker)+limb angle x(obj,limb_hit),object angle y(blue_marker)+limb angle y(obj,limb_hit),object angle z(blue_marker)+limb angle z(obj,limb_hit)
	
	`debug
	text 0,45+((num_limbs+4)*15)+300,"Limb Texture no. - "+str$(draw_data.texture)
	text 0,45+((num_limbs+5)*15)+300,"Red U - "+str$(draw_data.u1)+"   Red V - "+str$(draw_data.v1)
	text 0,45+((num_limbs+6)*15)+300,"Green U - "+str$(draw_data.u2)+"   Green V - "+str$(draw_data.v2)
	text 0,45+((num_limbs+7)*15)+300,"Blue U - "+str$(draw_data.u3)+"   Blue V - "+str$(draw_data.v3)
	
	d3d_line3d limb position x(red_marker,1),limb position y(red_marker,1),limb position z(red_marker,1),limb position x(green_marker,1),limb position y(green_marker,1),limb position z(green_marker,1),rgb(0,0,0),1
	d3d_line3d limb position x(green_marker,1),limb position y(green_marker,1),limb position z(green_marker,1),limb position x(blue_marker,1),limb position y(blue_marker,1),limb position z(blue_marker,1),rgb(0,0,0),1
	d3d_line3d limb position x(blue_marker,1),limb position y(blue_marker,1),limb position z(blue_marker,1),limb position x(red_marker,1),limb position y(red_marker,1),limb position z(red_marker,1),rgb(0,0,0),1
	
	if spacekey() and draw_data.texture>0
		set_uv_data(obj,limb_hit,limb_face_hit)
		position mouse 320,240
		dummy=mousemovex()
		dummy=mousemovey()
	endif
	
	
	
endfunction

function find_num_limbs(obj)
	done=0
	num_limbs=1
	while done=0
		if limb exist(obj,num_limbs)
			inc num_limbs
		else
			done=1
		endif
	endwhile
	dec num_limbs
endfunction num_limbs

function make_textures()
	`texture 1
	ink rgb(255,255,255),0
	box 0,0,255,255
	ink rgb(255,0,0),0
	box 0,0,100,100
	ink rgb(0,255,0),0
	box 155,0,255,100
	ink rgb(0,0,255),0
	box 0,155,100,255
	ink rgb(255,255,0),0
	box 155,155,255,255
	get image 1,0,0,255,255
	
	`texture 2
	ink rgb(255,255,255),0
	box 0,0,255,255
	ink rgb(255,0,0)
	for l=0 to 255 step 32
		box 0,l,255,l+15
	next l
	get image 2,0,0,255,255
	
	`texture 3
	ink rgb(255,255,255),0
	box 0,0,255,255
	ink rgb(0,255,0)
	for l=0 to 255 step 32
		box 0,l,255,l+15
	next l
	get image 3,0,0,255,255
	
	`texture 4
	ink rgb(255,255,255),0
	box 0,0,255,255
	ink rgb(0,0,255)
	for l=0 to 255 step 32
		box 0,l,255,l+15
	next l
	get image 4,0,0,255,255
	
	`texture 5
	ink rgb(255,255,255),0
	box 0,0,255,255
	ink rgb(255,255,0)
	for l=0 to 255 step 32
		box 0,l,255,l+15
	next l
	get image 5,0,0,255,255
	
	ink rgb(255,255,255),0
	
endfunction

function set_uv_data(obj,limb,face)
	done=0
	lock vertexdata for limb obj,limb 
	while done=0
		paste image draw_data.texture,0,0
		text 0,270,"SELECT RED U/V POINT"
		if mouseclick()>0 and mousex()<256 and mousey()<256
			set vertexdata uv draw_data.vertex1,(1.0/255.0)*mousex(),(1.0/255.0)*mousey()
			done=1
		endif
		sync
	endwhile
	while mouseclick()
		
	endwhile
	done=0
	while done=0
		paste image draw_data.texture,0,0
		text 0,270,"SELECT GREEN U/V POINT"
		if mouseclick()>0 and mousex()<256 and mousey()<256
			set vertexdata uv draw_data.vertex2,(1.0/255.0)*mousex(),(1.0/255.0)*mousey()
			done=1
		endif
		sync
	endwhile
	while mouseclick()
		
	endwhile
	done=0
	while done=0
		paste image draw_data.texture,0,0
		text 0,270,"SELECT BLUE U/V POINT"
		if mouseclick()>0 and mousex()<256 and mousey()<256
			set vertexdata uv draw_data.vertex3,(1.0/255.0)*mousex(),(1.0/255.0)*mousey()
			done=1
		endif
		sync
	endwhile
	while mouseclick()
		
	endwhile
	unlock vertexdata
endfunction

+ Code Snippet

`UV Painter
`======================
`P.Parkinson
`======================
`Main Source File
`needs sparkys to function corectly

sync on
sync rate 60
autocam off
color backdrop 0, 0
set text font "Arial"
set text size 12
set text transparent
position mouse 320,240
dummy=mousemovex()
dummy=mousemovey()
position camera 30,30,-30
point camera 0,0,0

`set up return data array
type vertex_data
	x1 as float
	y1 as float
	z1 as float
	u1 as float
	v1 as float
	x2 as float
	y2 as float
	z2 as float
	u2 as float
	v2 as float
	x3 as float
	y3 as float
	z3 as float
	u3 as float
	v3 as float
	texture as integer
	vertex1 as integer
	vertex2 as integer
	vertex3 as integer
endtype
global draw_data as vertex_data

`set up target and marker for raycast
global target as integer
target=free_object()
make object cube target,1
hide object target

global marker as integer
marker=free_object()
make object cube marker,0.3
color object marker,rgb(255,0,0)
hide object marker

global length_of_ray as integer=100

`set markers for poly outline objects
dummy=free_object()
make object sphere dummy,0.2
make mesh from object 1,dummy
delete object dummy

global red_marker as integer
red_marker=free_object()
make object sphere red_marker,0.2
color object red_marker,rgb(255,0,0)
add limb red_marker,1,1
color limb red_marker,1,rgb(255,0,0)
hide object red_marker

global green_marker as integer
green_marker=free_object()
make object sphere green_marker,0.2
color object green_marker,rgb(0,255,0)
add limb green_marker,1,1
color limb green_marker,1,rgb(0,255,0)
hide object green_marker

global blue_marker as integer
blue_marker=free_object()
make object sphere blue_marker,0.2
color object blue_marker,rgb(0,0,255)
add limb blue_marker,1,1
color limb blue_marker,1,rgb(0,0,255)
hide object blue_marker

delete mesh 1

`make text textures
make_textures()

`make test objects
obj=free_object()
make object cube obj,5
texture object obj,1
position object obj,-20,0,0
sc_setupobject obj,0,0

obj=free_object()
make object sphere obj,5
make mesh from object 1,obj
delete object obj
make object obj,1
texture object obj,2
delete mesh 1
position object obj,-10,0,0
sc_setupobject obj,0,0

obj=free_object()
make object cube obj,5
texture object obj,3
position object obj,0,0,0
yrotate object obj,45
make object sphere 1000,5
make mesh from object 1,1000
delete object 1000
add limb obj,1,1
texture limb obj,1,1
delete mesh 1
offset limb obj,1,0,3,0
sc_setupobject obj,0,0

obj=free_object()
make object cube obj,5
texture object obj,4
position object obj,10,0,0
yrotate object obj,45
make object sphere 1000,5
make mesh from object 1,1000
delete object 1000
add limb obj,1,1
texture limb obj,1,1
delete mesh 1
offset limb obj,1,0,3,0
sc_setupobject obj,0,0

obj=free_object()
make object cube obj,5
texture object obj,5
position object obj,20,0,0
yrotate object obj,45
make object sphere 1000,5
make mesh from object 1,1000
delete object 1000
add limb obj,1,1
texture limb obj,1,1
delete mesh 1
offset limb obj,1,0,3,0
rotate limb obj,1,45,0,0
sc_setupobject obj,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,length_of_ray
	
	MouseControl(1.0)
	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
		cx# = sc_getstaticcollisionx() : nx# = sc_getcollisionnormalx()
     	cy# = sc_getstaticcollisiony() : ny# = sc_getcollisionnormaly()
      cz# = sc_getstaticcollisionz() : nz# = sc_getcollisionnormalz()
      position object marker,cx#,cy#,cz#
      point object marker,cx#+(nx#*1000),cy#+(ny#*1000),cz#+(nz#*1000)
		draw_wire_frame(hit)
	else
		hide object marker
		hide object red_marker
		hide object green_marker
		hide object blue_marker
	endif
	text 0,270,"MOUSE TO LOOK AROUND AND POSITION TARGET MOUSE BUTTONS ZOOM IN/OUT"
	
	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 free_object()
	repeat
		inc i 
		if object exist(i)=0 then found=1
	until found
endfunction i

function free_image()
	repeat
		inc i
		if image exist(i)=0 then found=1
	until found
endfunction i

function draw_wire_frame(obj)
	sparkys_face_hit=sc_getfacehit()
	num_limbs=find_num_limbs(obj)
	
	`debug
	text 0,285,"PRESS SPACE TO SET NEW UV DATA"
	
	text 0,0+300,"Objec Hit - "+str$(obj)
	text 0,15+300,"Sparky´s Face Hit - "+str$(sparkys_face_hit)
	text 0,30+300,"Limbs In Object Hit - "+str$(num_limbs)
	
	`find the limb hit
	start_face_of_limb=0
	limb_hit=0
	limb_face_hit=0
	total_faces=0
	for limb=0 to num_limbs
		lock vertexdata for limb obj,limb
		index_count=get vertexdata index count()
		vertex_count=get vertexdata vertex count()
		if index_count>0 
			faces_in_limb=index_count/3
		else
			faces_in_limb=vertex_count/3
		endif
		total_faces=total_faces+faces_in_limb
		if sparkys_face_hit>total_faces
			inc limb_hit
		else
			if limb_hit=0
				limb_face_hit=sparkys_face_hit
			else
				limb_face_hit=sparkys_face_hit-(total_faces-faces_in_limb)
			endif
		endif
		`debug
		text 0,45+(limb*15)+300,"Faces In Limb "+str$(limb)+" - "+str$(faces_in_limb)
		
		unlock vertexdata
	next l
	`debug
	text 0,45+((num_limbs+1)*15)+300,"Total Faces  - "+str$(total_faces)
	text 0,45+((num_limbs+2)*15)+300,"Limb Hit - "+str$(limb_hit)
	text 0,45+((num_limbs+3)*15)+300,"Limb Face Hit - "+str$(limb_face_hit)
	
	`get marker positions
	lock vertexdata for limb obj,limb_hit
	index_count=get vertexdata index count()
	if index_count>0
		draw_data.x1=get vertexdata position x(get indexdata(limb_face_hit*3))
		draw_data.y1=get vertexdata position y(get indexdata(limb_face_hit*3))
		draw_data.z1=get vertexdata position z(get indexdata(limb_face_hit*3))
		draw_data.u1=get vertexdata u(get indexdata(limb_face_hit*3))
		draw_data.v1=get vertexdata v(get indexdata(limb_face_hit*3))
		draw_data.vertex1=get indexdata(limb_face_hit*3)
			
		draw_data.x2=get vertexdata position x(get indexdata(limb_face_hit*3+1))
		draw_data.y2=get vertexdata position y(get indexdata(limb_face_hit*3+1))
		draw_data.z2=get vertexdata position z(get indexdata(limb_face_hit*3+1))
		draw_data.u2=get vertexdata u(get indexdata(limb_face_hit*3+1))
		draw_data.v2=get vertexdata v(get indexdata(limb_face_hit*3+1))
		draw_data.vertex2=get indexdata(limb_face_hit*3+1)
			
		draw_data.x3=get vertexdata position x(get indexdata(limb_face_hit*3+2))
		draw_data.y3=get vertexdata position y(get indexdata(limb_face_hit*3+2))
		draw_data.z3=get vertexdata position z(get indexdata(limb_face_hit*3+2))
		draw_data.u3=get vertexdata u(get indexdata(limb_face_hit*3+2))
		draw_data.v3=get vertexdata v(get indexdata(limb_face_hit*3+2))
		draw_data.vertex3=get indexdata(limb_face_hit*3+2)
	else
		draw_data.x1=get vertexdata position x(limb_face_hit*3)
		draw_data.y1=get vertexdata position y(limb_face_hit*3)
		draw_data.z1=get vertexdata position z(limb_face_hit*3)
		draw_data.u1=get vertexdata u(limb_face_hit*3)
		draw_data.v1=get vertexdata v(limb_face_hit*3)
		draw_data.vertex1=limb_face_hit*3
			
		draw_data.x2=get vertexdata position x(limb_face_hit*3+1)
		draw_data.y2=get vertexdata position y(limb_face_hit*3+1)
		draw_data.z2=get vertexdata position z(limb_face_hit*3+1)
		draw_data.u2=get vertexdata u(limb_face_hit*3+1)
		draw_data.v2=get vertexdata v(limb_face_hit*3+1)
		draw_data.vertex2=limb_face_hit*3+1
			
		draw_data.x3=get vertexdata position x(limb_face_hit*3+2)
		draw_data.y3=get vertexdata position y(limb_face_hit*3+2)
		draw_data.z3=get vertexdata position z(limb_face_hit*3+2)
		draw_data.u3=get vertexdata u(limb_face_hit*3+2)
		draw_data.v3=get vertexdata v(limb_face_hit*3+2)
		draw_data.vertex3=limb_face_hit*3+2
	endif
	
	draw_data.texture=limb texture(obj,limb_hit)
	if draw_data.texture>0
		paste image draw_data.texture,0,0
		ink rgb(255,0,0),0
		box 255.0*draw_data.u1-5.0,255.0*draw_data.v1-5.0,255.0*draw_data.u1+5.0,255.0*draw_data.v1+5.0
		ink rgb(0,255,0),0
		box 255.0*draw_data.u2-5.0,255.0*draw_data.v2-5.0,255.0*draw_data.u2+5.0,255.0*draw_data.v2+5.0
		ink rgb(0,0,255),0
		box 255.0*draw_data.u3-5.0,255.0*draw_data.v3-5.0,255.0*draw_data.u3+5.0,255.0*draw_data.v3+5.0
		ink rgb(0,0,0),0
		line 255.0*draw_data.u1,255.0*draw_data.v1,255.0*draw_data.u2,255.0*draw_data.v2
		line 255.0*draw_data.u2,255.0*draw_data.v2,255.0*draw_data.u3,255.0*draw_data.v3
		line 255.0*draw_data.u3,255.0*draw_data.v3,255.0*draw_data.u1,255.0*draw_data.v1
		ink rgb(255,255,255),0
	endif
	
	unlock vertexdata
	`position markers
	show object red_marker
	show object green_marker
	show object blue_marker
	
	position object red_marker,limb position x(obj,limb_hit),limb position y(obj,limb_hit),limb position z(obj,limb_hit)
	position object green_marker,limb position x(obj,limb_hit),limb position y(obj,limb_hit),limb position z(obj,limb_hit)
	position object blue_marker,limb position x(obj,limb_hit),limb position y(obj,limb_hit),limb position z(obj,limb_hit)
	
	set object to object orientation red_marker,obj
	set object to object orientation green_marker,obj
	set object to object orientation blue_marker,obj
	
	offset limb red_marker,1,draw_data.x1,draw_data.y1,draw_data.z1
	offset limb green_marker,1,draw_data.x2,draw_data.y2,draw_data.z2
	offset limb blue_marker,1,draw_data.x3,draw_data.y3,draw_data.z3
	
	rotate object red_marker,object angle x(red_marker)+limb angle x(obj,limb_hit),object angle y(red_marker)+limb angle y(obj,limb_hit),object angle z(red_marker)+limb angle z(obj,limb_hit)
	rotate object green_marker,object angle x(green_marker)+limb angle x(obj,limb_hit),object angle y(green_marker)+limb angle y(obj,limb_hit),object angle z(green_marker)+limb angle z(obj,limb_hit)
	rotate object blue_marker,object angle x(blue_marker)+limb angle x(obj,limb_hit),object angle y(blue_marker)+limb angle y(obj,limb_hit),object angle z(blue_marker)+limb angle z(obj,limb_hit)
	
	`debug
	text 0,45+((num_limbs+4)*15)+300,"Limb Texture no. - "+str$(draw_data.texture)
	text 0,45+((num_limbs+5)*15)+300,"Red U - "+str$(draw_data.u1)+"   Red V - "+str$(draw_data.v1)
	text 0,45+((num_limbs+6)*15)+300,"Green U - "+str$(draw_data.u2)+"   Green V - "+str$(draw_data.v2)
	text 0,45+((num_limbs+7)*15)+300,"Blue U - "+str$(draw_data.u3)+"   Blue V - "+str$(draw_data.v3)
	
	d3d_line3d limb position x(red_marker,1),limb position y(red_marker,1),limb position z(red_marker,1),limb position x(green_marker,1),limb position y(green_marker,1),limb position z(green_marker,1),rgb(0,0,0),1
	d3d_line3d limb position x(green_marker,1),limb position y(green_marker,1),limb position z(green_marker,1),limb position x(blue_marker,1),limb position y(blue_marker,1),limb position z(blue_marker,1),rgb(0,0,0),1
	d3d_line3d limb position x(blue_marker,1),limb position y(blue_marker,1),limb position z(blue_marker,1),limb position x(red_marker,1),limb position y(red_marker,1),limb position z(red_marker,1),rgb(0,0,0),1
	
	if spacekey() and draw_data.texture>0
		set_uv_data(obj,limb_hit,limb_face_hit)
		position mouse 320,240
		dummy=mousemovex()
		dummy=mousemovey()
	endif
	
	
	
endfunction

function find_num_limbs(obj)
	done=0
	num_limbs=1
	while done=0
		if limb exist(obj,num_limbs)
			inc num_limbs
		else
			done=1
		endif
	endwhile
	dec num_limbs
endfunction num_limbs

function make_textures()
	`texture 1
	ink rgb(255,255,255),0
	box 0,0,255,255
	ink rgb(255,0,0),0
	box 0,0,100,100
	ink rgb(0,255,0),0
	box 155,0,255,100
	ink rgb(0,0,255),0
	box 0,155,100,255
	ink rgb(255,255,0),0
	box 155,155,255,255
	get image 1,0,0,255,255
	
	`texture 2
	ink rgb(255,255,255),0
	box 0,0,255,255
	ink rgb(255,0,0)
	for l=0 to 255 step 32
		box 0,l,255,l+15
	next l
	get image 2,0,0,255,255
	
	`texture 3
	ink rgb(255,255,255),0
	box 0,0,255,255
	ink rgb(0,255,0)
	for l=0 to 255 step 32
		box 0,l,255,l+15
	next l
	get image 3,0,0,255,255
	
	`texture 4
	ink rgb(255,255,255),0
	box 0,0,255,255
	ink rgb(0,0,255)
	for l=0 to 255 step 32
		box 0,l,255,l+15
	next l
	get image 4,0,0,255,255
	
	`texture 5
	ink rgb(255,255,255),0
	box 0,0,255,255
	ink rgb(255,255,0)
	for l=0 to 255 step 32
		box 0,l,255,l+15
	next l
	get image 5,0,0,255,255
	
	ink rgb(255,255,255),0
	
endfunction

function set_uv_data(obj,limb,face)
	done=0
	lock vertexdata for limb obj,limb 
	while done=0
		paste image draw_data.texture,0,0
		text 0,270,"SELECT RED U/V POINT"
		if mouseclick()>0 and mousex()<256 and mousey()<256
			set vertexdata uv draw_data.vertex1,(1.0/255.0)*mousex(),(1.0/255.0)*mousey()
			done=1
		endif
		sync
	endwhile
	while mouseclick()
		
	endwhile
	done=0
	while done=0
		paste image draw_data.texture,0,0
		text 0,270,"SELECT GREEN U/V POINT"
		if mouseclick()>0 and mousex()<256 and mousey()<256
			set vertexdata uv draw_data.vertex2,(1.0/255.0)*mousex(),(1.0/255.0)*mousey()
			done=1
		endif
		sync
	endwhile
	while mouseclick()
		
	endwhile
	done=0
	while done=0
		paste image draw_data.texture,0,0
		text 0,270,"SELECT BLUE U/V POINT"
		if mouseclick()>0 and mousex()<256 and mousey()<256
			set vertexdata uv draw_data.vertex3,(1.0/255.0)*mousex(),(1.0/255.0)*mousey()
			done=1
		endif
		sync
	endwhile
	while mouseclick()
		
	endwhile
	unlock vertexdata
endfunction

Back to top

Profile PM

DigitalFury

15

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 20th Sep 2010 05:50 Edited at: 20th Sep 2010 05:52

Link

@paul5147:

Wow. I got to say nice job.

Generous code contribution for the TGC community. Thanks.

I just needed to get the object position to image position.

The only thing I can't figure out is:
It doesn't show the image position of the red cube. Do you know how to get the image pixel x, y position?

I'll take a deeper look at the code when I have the time.

Thanks again.

Back to top

Profile PM Email

paul5147

20

Years of Service

User Offline

Joined: 11th Jan 2006

Location: Hot & Sunny

Posted: 20th Sep 2010 22:00 Edited at: 20th Sep 2010 22:03

Link

This is the part of the code which deals with positioning the marker (red cube) on the surface of any hit object.

+ Code Snippet

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
		cx# = sc_getstaticcollisionx() : nx# = sc_getcollisionnormalx()
     	cy# = sc_getstaticcollisiony() : ny# = sc_getcollisionnormaly()
      cz# = sc_getstaticcollisionz() : nz# = sc_getcollisionnormalz()
      position object marker,cx#,cy#,cz#
      point object marker,cx#+(nx#*1000),cy#+(ny#*1000),cz#+(nz#*1000)
		draw_wire_frame(hit)
	else

The varibles cx#,cy#,cz# hold the position of the cube or you could just use `object position x()` etc after this loop to retrieve it later.
Trying to convert that to the position on an image thats being used to texture an object is not quite that simple though,because of the way that the uv co-ordinates can be manipulated and stretched around an abjects vertices.A quick but not always accurate way to do it is to add up the 3 sets of uv co-ordinates that the hit polygon has , then devide by 3 and then multiply the image size x and y by the results,but its not guaranteed to give you the results you need especially if the uv`s have been stretched to greater than the normal 0.0 to 1.0 range.
If you can share some code of what your trying to achieve , working or not , then chances are i may have a snippet that does exactly what you want all ready.

Back to top

Profile PM

DigitalFury

15

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 21st Sep 2010 00:46

Link

@paul5147 - Ok.

Here is what I am trying to do:
- Pick Object to get X, Y, Z
- Convert to UV Coords
- Convert UV Coords to Image X, Y

I don't really need much more then that.

Here is what I am going to do with the painting code:
I have code for painting using brushes. I am working on code for painting decals and images using the brushes. I also have a bunch of functions for making a beveled edge. I have heightmap and working on a normal map function. All this together will be a part of my material editor. The material editor is for an even bigger project.

Thanks for your help.

Back to top

Profile PM Email

DigitalFury

15

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 21st Sep 2010 04:43

Link

@Brendy boy or @Everyone - How do you convert the UV to the image X, Y?

Thanks

Back to top

Profile PM Email

Brendy boy

21

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 21st Sep 2010 22:21

Link

image_x=int(u#*image_width)
image_y=int((1.0-v#)*image_height)

BBB GUI Plugin
Landscape & Map Creator

Back to top

Profile PM Email

DigitalFury

15

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 21st Sep 2010 22:22

Link

@Brendy boy - Easier then I thought it was. Thanks!

Back to top

Profile PM Email

DigitalFury

15

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 11th Nov 2010 00:57 Edited at: 11th Nov 2010 01:00

Link

I have been spending wayyy to much time on this problem. I have a polygon (triangle) with three vertexes. Each vertex has a UV and XYZ Position. I have the pick vector XYZ and I need to calculate the UV from the pick vector.

I worked out the problem a bit and only found the UV distance from Vertex_1's UV. I don't know how to break up the UV into U and V.

Been like a month working on this problem. Searched what seems like all of google for the answer and used whatever math I knew.

Any help is appreciated.

Thanks

DigitalFury

Back to top

Profile PM Email

baxslash

Valued Member

Bronze Codemaster

19

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 11th Nov 2010 13:38

Link

RUSSIA has just released something that does this I think:
http://forum.thegamecreators.com/?m=forum_view&t=177555&b=8

Might be worth asking...?

Back to top

Profile PM Email

DigitalFury

15

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 11th Nov 2010 20:11 Edited at: 14th Nov 2010 05:47

Link

@baxslash - Already found that. Read the threads and it seems like green gandalf was told to remove the answer. I could ask. I am going to try working on it a bit more. I think I found a way to simplify the problem.

Back to top

Profile PM Email

Brendy boy

21

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 11th Nov 2010 23:08 Edited at: 11th Nov 2010 23:09

Link

Here you go:
you will need sparky's collision dll

set display mode 1024,768,16
sync on
autocam off

type t_vector
x# y# z#
nx# ny# nz#
endtype

make matrix 1,1000,1000,10,10

//Size of the painting canvas (size of the object you will paint on)
canvas_size=100

//Paint radius (a.k.a brush size)
pr=4

//Paint color
pcol as dword
pcol=rgb(255,0,0)

//Make the canvas object and convert it to vertexdata
make object box 1,canvas_size,canvas_size,1
make mesh from object 1,1
make memblock from mesh 1,1
delete mesh 1
delete object 1
make mesh from memblock 1,1
delete memblock 1
make object 1,1,0

//Set the canvas for use with sparky
sc_setupComplexObject 1,1,0

//Load the image on which you will paint

`Set this values to width and height of the image you will use
i_width=512
i_height=512
load image "a.bmp",1 `this is a 512x512 white image
texture object 1,1
make memblock from image 1,1
make bitmap from memblock 1,1

set current camera 0
position camera 0,10,-50

global b_u#,b_v#

do

text 20,20,"Picked face: "+str$(face)
text 20,40,"Barycentric coords: "+" u:"+str$(b_u#)+"  v: "+str$(b_v#)
text 20,60,"Texture UV coords: "+" u:"+str$(uu#)+"  v: "+str$(vv#)
text 20,80,"Paint radius: "+str$(pr)
text 20,120,"PRESS SPACE TO STOP ROTATING CAMERA"
text 20,140,"PRESS CONTROLKEY TO PAINT"
circle mousex(),mousey(),pr+2

if inkey$()="w"
   sleep 100
   w=1-w
   set object wireframe 1,w
endif

pick screen mousex(),mousey(),1
cx1#=camera position x() +get pick vector x()
cy1#=camera position y() +get pick vector y()
cz1#=camera position z() +get pick vector z()

pick screen mousex(),mousey(),10000
cx2#=camera position x() +get pick vector x()
cy2#=camera position y() +get pick vector y()
cz2#=camera position z() +get pick vector z()

collide#=sc_intersectObject(1,cx1#,cy1#,cz1#,cx2#,cy2#,cz2#)
if collide#>0
   colx#=sc_getStaticCollisionX()
   coly#=sc_getStaticCollisionY()
   colz#=sc_getStaticCollisionZ()
   normx2#=sc_getCollisionNormalX()
   normy2#=sc_getCollisionNormalY()
   normz2#=sc_getCollisionNormalZ()
	face=sc_getfacehit()
	i1=(face)*3
	i2=(face)*3+1
	i3=(face)*3+2

lock vertexdata for limb 1,0,1
   x1#=get vertexdata position x(i1) : y1#=get vertexdata position y(i1) : z1#=get vertexdata position z(i1)
   u1#=get vertexdata u(i1)          : v1#=get vertexdata v(i1)

x2#=get vertexdata position x(i2) : y2#=get vertexdata position y(i2) : z2#=get vertexdata position z(i2)
   u2#=get vertexdata u(i2)          : v2#=get vertexdata v(i2)

x3#=get vertexdata position x(i3) : y3#=get vertexdata position y(i3) : z3#=get vertexdata position z(i3)
   u3#=get vertexdata u(i3)          : v3#=get vertexdata v(i3)
   unlock vertexdata

orig_v as t_vector
	orig_v.x#=cx1#
	orig_v.y#=cy1#
	orig_v.z#=cz1#

dir_v as t_vector
   dir_v.x#=cx2#-cx1#
	dir_v.y#=cy2#-cy1#
	dir_v.z#=cz2#-cz1#
	 
	v0_v as t_vector
	v0_v.x#=x1# : v0_v.y#=y1# : v0_v.z#=z1#
	v1_v as t_vector
	v1_v.x#=x2# : v1_v.y#=y2# : v1_v.z#=z2#
	v2_v as t_vector
	v2_v.x#=x3# : v2_v.y#=y3# : v2_v.z#=z3#	 
	 	 	 	 
	b_u#=0
	b_v#=0
	IntersectTriangle(orig_v, dir_v, v0_v, v1_v, v2_v)
	 
	//At this point u# and v# are barycentric coordinates
	//We use them to calculate the actual u and v coordinates	
	uu#=u1#+(u2#-u1#)*b_u#+(u3#-u1#)*b_v#
	vv#=v1#+(v2#-v1#)*b_u#+(v3#-v1#)*b_v#
	
	ink rgb(255,0,0)
	if mouseclick()=1
	   set current bitmap 1
	   lock pixels
	   //if you want to paint with dots
	   dot uu#*i_width,vv#*i_height,pcol
	
	   //if you want to paint with circles
	   `circle uu#*512,vv#*512,pr

//if you want to paint with boxes
	   `box uu#*512-pr,vv#*512-pr,uu#*512+pr,vv#*512+pr
	   unlock pixels

set current bitmap 0
	   if memblock exist(1) then delete memblock 1
	   make memblock from bitmap 1,1
	   if image exist(1) then delete image 1
	   make image from memblock 1,1
	   texture object 1,1
	endif
endif         
         
if spacekey()=0
`xrotate camera camera angle x()+mousemovey()
`yrotate camera camera angle y()+mousemovex()
endif
if upkey()=1 then move camera 0.5
if downkey()=1 then move camera -0.5

sync
loop

function distance_pos(x1#,y1#,z1#,x2#,y2#,z2#)
   dx#=x2#-x1# : dy#=y2#-y1# : dz#=z2#-z1#
   dist#=sqrt((dx#*dx#)+(dz#*dz#)+(dy#*dy#))
endfunction dist#

function free_object()
   repeat : inc i : until object exist(i)=0
endfunction i

function IntersectTriangle(orig_v as t_vector, dir_v as t_vector, v0_v as t_vector, v1_v as t_vector, v2_v as t_vector)
    n=make vector3(90) : v0=90    
    n=make vector3(91) : v1=91
    n=make vector3(92) : v2=92
    n=make vector3(93) : origv=93
    n=make vector3(94) : dirv=94
            
    n=make vector3(100) : edge1=100
    n=make vector3(101) : edge2=101    
    
    set vector3 v0, v0_v.x#,v0_v.y#,v0_v.z#
    set vector3 v1, v1_v.x#,v1_v.y#,v1_v.z#    
    set vector3 v2, v2_v.x#,v2_v.y#,v2_v.z#
    set vector3 dirv, dir_v.x#,dir_v.y#,dir_v.z#
    set vector3 origv, orig_v.x#,orig_v.y#,orig_v.z#      
        
    // Find vectors for two edges sharing vert0
    `D3DXVECTOR3 edge1 = v1 - v0;
    `D3DXVECTOR3 edge2 = v2 - v0;
    subtract vector3 edge1,v1,v0
    subtract vector3 edge2,v2,v0

// Begin calculating determinant - also used to calculate U parameter
    `D3DXVECTOR3 pvec;
    n=make vector3(102) : pvec=102
    `D3DXVec3Cross( &pvec, &dir, &edge2 );
    cross product vector3 pvec,dirv,edge2

// If determinant is near zero, ray lies in plane of triangle
    `FLOAT det = D3DXVec3Dot( &edge1, &pvec );
    det#=dot product vector3(edge1,pvec)

`D3DXVECTOR3 tvec;
    n=make vector3(150) : tvec=150
    if det# > 0
        `tvec = orig - v0;
        subtract vector3 tvec,origv,v0
    else
        `tvec = v0 - orig;
        subtract vector3 tvec,v0,origv
        det# = det#*-1
    endif

`if det# < 0.0001

// Calculate U parameter and test bounds
    `*u = D3DXVec3Dot( &tvec, &pvec );
    b_u#=dot product vector3(tvec,pvec)
    `if( *u < 0.0f || *u > det )
    `    return FALSE;

// Prepare to test V parameter
    `D3DXVECTOR3 qvec;
    n=make vector3(151) : qvec=151
    `D3DXVec3Cross( &qvec, &tvec, &edge1 );
    cross product vector3 qvec,tvec,edge1

// Calculate V parameter and test bounds
    `*v = D3DXVec3Dot( &dir, &qvec );
    b_v#=dot product vector3(dirv,qvec)
    `if( *v < 0.0f || *u + *v > det )
    `    return FALSE;

// Calculate t, scale parameters, ray intersects triangle
    `*t = D3DXVec3Dot( &edge2, &qvec );
    fInvDet# = 1.0/det#
    `*t *= fInvDet
    b_u#=b_u#*fInvDet#
    b_v#=b_v#*fInvDet#
endfunction 1

+ Code Snippet

set display mode 1024,768,16
sync on
autocam off

type t_vector
x# y# z#
nx# ny# nz#
endtype

make matrix 1,1000,1000,10,10

//Size of the painting canvas (size of the object you will paint on)
canvas_size=100

//Paint radius (a.k.a brush size)
pr=4

//Paint color
pcol as dword
pcol=rgb(255,0,0)

//Make the canvas object and convert it to vertexdata
make object box 1,canvas_size,canvas_size,1
make mesh from object 1,1
make memblock from mesh 1,1
delete mesh 1
delete object 1
make mesh from memblock 1,1
delete memblock 1
make object 1,1,0

//Set the canvas for use with sparky
sc_setupComplexObject 1,1,0

//Load the image on which you will paint

`Set this values to width and height of the image you will use
i_width=512
i_height=512
load image "a.bmp",1 `this is a 512x512 white image
texture object 1,1
make memblock from image 1,1
make bitmap from memblock 1,1


set current camera 0
position camera 0,10,-50

global b_u#,b_v#


do

text 20,20,"Picked face: "+str$(face)
text 20,40,"Barycentric coords: "+" u:"+str$(b_u#)+"  v: "+str$(b_v#)
text 20,60,"Texture UV coords: "+" u:"+str$(uu#)+"  v: "+str$(vv#)
text 20,80,"Paint radius: "+str$(pr)
text 20,120,"PRESS SPACE TO STOP ROTATING CAMERA"
text 20,140,"PRESS CONTROLKEY TO PAINT"
circle mousex(),mousey(),pr+2

if inkey$()="w"
   sleep 100
   w=1-w
   set object wireframe 1,w
endif


pick screen mousex(),mousey(),1
cx1#=camera position x() +get pick vector x()
cy1#=camera position y() +get pick vector y()
cz1#=camera position z() +get pick vector z()

pick screen mousex(),mousey(),10000
cx2#=camera position x() +get pick vector x()
cy2#=camera position y() +get pick vector y()
cz2#=camera position z() +get pick vector z()



collide#=sc_intersectObject(1,cx1#,cy1#,cz1#,cx2#,cy2#,cz2#)
if collide#>0
   colx#=sc_getStaticCollisionX()
   coly#=sc_getStaticCollisionY()
   colz#=sc_getStaticCollisionZ()
   normx2#=sc_getCollisionNormalX()
   normy2#=sc_getCollisionNormalY()
   normz2#=sc_getCollisionNormalZ()
	face=sc_getfacehit()
	i1=(face)*3
	i2=(face)*3+1
	i3=(face)*3+2

	lock vertexdata for limb 1,0,1
   x1#=get vertexdata position x(i1) : y1#=get vertexdata position y(i1) : z1#=get vertexdata position z(i1)
   u1#=get vertexdata u(i1)          : v1#=get vertexdata v(i1)

   x2#=get vertexdata position x(i2) : y2#=get vertexdata position y(i2) : z2#=get vertexdata position z(i2)
   u2#=get vertexdata u(i2)          : v2#=get vertexdata v(i2)

   x3#=get vertexdata position x(i3) : y3#=get vertexdata position y(i3) : z3#=get vertexdata position z(i3)
   u3#=get vertexdata u(i3)          : v3#=get vertexdata v(i3)
   unlock vertexdata

	orig_v as t_vector
	orig_v.x#=cx1#
	orig_v.y#=cy1#
	orig_v.z#=cz1#	 

   dir_v as t_vector
   dir_v.x#=cx2#-cx1#
	dir_v.y#=cy2#-cy1#
	dir_v.z#=cz2#-cz1#
	 
	v0_v as t_vector
	v0_v.x#=x1# : v0_v.y#=y1# : v0_v.z#=z1#
	v1_v as t_vector
	v1_v.x#=x2# : v1_v.y#=y2# : v1_v.z#=z2#
	v2_v as t_vector
	v2_v.x#=x3# : v2_v.y#=y3# : v2_v.z#=z3#	 
	 	 	 	 
	b_u#=0
	b_v#=0
	IntersectTriangle(orig_v, dir_v, v0_v, v1_v, v2_v)
	 
	//At this point u# and v# are barycentric coordinates
	//We use them to calculate the actual u and v coordinates	
	uu#=u1#+(u2#-u1#)*b_u#+(u3#-u1#)*b_v#
	vv#=v1#+(v2#-v1#)*b_u#+(v3#-v1#)*b_v#
	
	ink rgb(255,0,0)
	if mouseclick()=1
	   set current bitmap 1
	   lock pixels
	   //if you want to paint with dots
	   dot uu#*i_width,vv#*i_height,pcol
	
	   //if you want to paint with circles
	   `circle uu#*512,vv#*512,pr

      //if you want to paint with boxes
	   `box uu#*512-pr,vv#*512-pr,uu#*512+pr,vv#*512+pr
	   unlock pixels

      set current bitmap 0
	   if memblock exist(1) then delete memblock 1
	   make memblock from bitmap 1,1
	   if image exist(1) then delete image 1
	   make image from memblock 1,1
	   texture object 1,1
	endif
endif         
         
if spacekey()=0
`xrotate camera camera angle x()+mousemovey()
`yrotate camera camera angle y()+mousemovex()
endif
if upkey()=1 then move camera 0.5
if downkey()=1 then move camera -0.5

sync
loop

function distance_pos(x1#,y1#,z1#,x2#,y2#,z2#)
   dx#=x2#-x1# : dy#=y2#-y1# : dz#=z2#-z1#
   dist#=sqrt((dx#*dx#)+(dz#*dz#)+(dy#*dy#))
endfunction dist#

function free_object()
   repeat : inc i : until object exist(i)=0
endfunction i

function IntersectTriangle(orig_v as t_vector, dir_v as t_vector, v0_v as t_vector, v1_v as t_vector, v2_v as t_vector)
    n=make vector3(90) : v0=90    
    n=make vector3(91) : v1=91
    n=make vector3(92) : v2=92
    n=make vector3(93) : origv=93
    n=make vector3(94) : dirv=94
            
    n=make vector3(100) : edge1=100
    n=make vector3(101) : edge2=101    
    
    set vector3 v0, v0_v.x#,v0_v.y#,v0_v.z#
    set vector3 v1, v1_v.x#,v1_v.y#,v1_v.z#    
    set vector3 v2, v2_v.x#,v2_v.y#,v2_v.z#
    set vector3 dirv, dir_v.x#,dir_v.y#,dir_v.z#
    set vector3 origv, orig_v.x#,orig_v.y#,orig_v.z#      
        
    // Find vectors for two edges sharing vert0
    `D3DXVECTOR3 edge1 = v1 - v0;
    `D3DXVECTOR3 edge2 = v2 - v0;
    subtract vector3 edge1,v1,v0
    subtract vector3 edge2,v2,v0    

    // Begin calculating determinant - also used to calculate U parameter
    `D3DXVECTOR3 pvec;
    n=make vector3(102) : pvec=102
    `D3DXVec3Cross( &pvec, &dir, &edge2 );
    cross product vector3 pvec,dirv,edge2

    // If determinant is near zero, ray lies in plane of triangle
    `FLOAT det = D3DXVec3Dot( &edge1, &pvec );
    det#=dot product vector3(edge1,pvec)

    `D3DXVECTOR3 tvec;
    n=make vector3(150) : tvec=150
    if det# > 0
        `tvec = orig - v0;
        subtract vector3 tvec,origv,v0
    else
        `tvec = v0 - orig;
        subtract vector3 tvec,v0,origv
        det# = det#*-1
    endif

    `if det# < 0.0001

    // Calculate U parameter and test bounds
    `*u = D3DXVec3Dot( &tvec, &pvec );
    b_u#=dot product vector3(tvec,pvec)
    `if( *u < 0.0f || *u > det )
    `    return FALSE;

    // Prepare to test V parameter
    `D3DXVECTOR3 qvec;
    n=make vector3(151) : qvec=151
    `D3DXVec3Cross( &qvec, &tvec, &edge1 );
    cross product vector3 qvec,tvec,edge1

    // Calculate V parameter and test bounds
    `*v = D3DXVec3Dot( &dir, &qvec );
    b_v#=dot product vector3(dirv,qvec)
    `if( *v < 0.0f || *u + *v > det )
    `    return FALSE;

    // Calculate t, scale parameters, ray intersects triangle
    `*t = D3DXVec3Dot( &edge2, &qvec );
    fInvDet# = 1.0/det#
    `*t *= fInvDet
    b_u#=b_u#*fInvDet#
    b_v#=b_v#*fInvDet#
endfunction 1

BBB GUI Plugin
Landscape & Map Creator

Back to top

Profile PM Email

DigitalFury

15

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 11th Nov 2010 23:20

Link

@Brendy boy - Thanks. I tried it and it is only showing a black screen with text. I think it is suppose to show a box: "make object box 1,canvas_size,canvas_size,1"

Also, I don't want to use sparky's collision dll anyways or all the calculations to barycentric coordinates. I found a really easy and fast way to get UV coords using some basic math. My point to UV converstion is only like 5-10 lines of code. I also want to solve this one myself and then figure out which one is faster.

Thanks for the code. It will be interesting to take it apart and figure it all out.

Back to top

Profile PM Email

DigitalFury

15

Years of Service

User Offline

Joined: 30th Jul 2010

Location: United States

Posted: 11th Nov 2010 23:21

Link

@Everyone - Anyone know the answer to my triangle problem? I heard that barycentric interpolation is what I am looking for but that is to complicated anyways. It would be faster just to use some basic math.

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Paint Object