Need Help Saving Loaded Model with only 2nd UV Channel

Author

Message

RustyKristy

8

Years of Service

User Offline

Joined: 13th Jan 2016

Location:

Posted: 24th Jun 2017 08:23 Edited at: 24th Jun 2017 09:58

Link

Hi,

I would like to know how to capture the 2nd uv channel and mesh from a DBO file and save it separately as DBO or X model

Thanks.

Edit: I got a snippet here that I found with some changes, I don't know how it completely works but I'm sure it's related to what I'm trying to accomplish..

+ Code Snippet

Rem ***** Included Source File *****
set display mode desktop width(), desktop height(), 32
sync on : sync rate 60 : sync
 
autocam off
`position camera 0, 100, -400
point camera 0, 0, 0
 
position camera 0, 0, -50
 
load object "test.dbo", 1
 
uvChanged = 0
 
repeat
  
  if uvChanged = 0 and mouseclick()
    uvChanged = 1
    ` change the stage 0 UV data
    lock vertexdata for limb 1, 0, 0
      nv = get vertexdata vertex count() - 1
      for v = 0 to nv
        u# = get vertexdata U(v, 1)
        v# = get vertexdata V(v, 1)
        set vertexdata UV v, 0, u#, v#
      next v
    unlock vertexdata
  endif
  sync
  
until spacekey()

save object "out.dbo",1

end

Maybe someone here can pick up and point me in the right direction. I just need to swap UV channels and then save to dbo or x.

Back to top

Profile PM

Chris Tate

DBPro Master

15

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 24th Jun 2017 11:07

Link

Prior to saving the object, the program is obtaining UV coordinates from UV layer one, and writing the coordinates to layer zero, which is the default layer used by textures when not specifying texture stages.

(Textures set on stage 1, would use UV layer 1, textures on stage 2 would use UV layer 2 and so on.)

+ Code Snippet

TEXTURE OBJECT objectId, stageId, imageId

You can use a new mesh or a clone and have its UV coordinates set using the source UV data.

Back to top

Profile PM Email Website

RustyKristy

8

Years of Service

User Offline

Joined: 13th Jan 2016

Location:

Posted: 24th Jun 2017 11:18 Edited at: 24th Jun 2017 11:19

Link

Thanks Chris! Can you post a snippet on how it works? Sorry, I'm really new to DBPro and these types of command manipulation.

I just really need to transfer the 2nd UV or Stage 1? to Stage 0 and save it, that's all.

Back to top

Profile PM

Chris Tate

DBPro Master

15

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 25th Jun 2017 13:29

Link

I had to write this code untested and away from my development PC. For all the limbs you need to work with, copy a source UV stage to a target UV stage. Play around with it.

` Load the object
Load Object "In.dbo", 1

` Clone the object
Clone Object 2, 1

` Copy the UV layer on limb zero
CopyObjectUVLayer(2,0,1,0,0,1)

` Save
Save Object "Out.dbo",2
 
End
//==================================================
Function CopyObjectUVLayer(targetObject,targetLimb,sourceObject,sourceLimb,targetUVLayer,sourceUVLayer)
	` Lock source limb for vertex access
	Lock VertexData For Limb targetObject, targetLimb
	
	` Store length of vertices (count minus 1)
	Local vertLength : vertLength = Get Vertexdata Vertex Count() - 1
	Local v
	
	` Create arrays of UV coordinates for assignment to the target limb
	Local Dim u#(vertLength)
	Local Dim v#(vertLength)
	
	For v = 0 to vertLength
		u#(v) = Get VertexData U(v, sourceUVLayer)
		v#(v) = Get VertexData U(v, sourceUVLayer)
	Next v
	
	` Unlock source limb
	Unlock VertexData
	
	` Lock target limb for vertex access in full overwrite mode 2
	Lock VertexData For Limb targetObject, targetLimb, 2
	
	` Write the coordinates to the target layer
	For v = 0 to vertLength
		Set VertexData UV v, targetUVLayer, u#(v), v#(v)
	Next v	
	
	` Update the target
	Unlock VertexData
	
EndFunction

+ Code Snippet

` Load the object
Load Object "In.dbo", 1

` Clone the object
Clone Object 2, 1

` Copy the UV layer on limb zero
CopyObjectUVLayer(2,0,1,0,0,1)

` Save
Save Object "Out.dbo",2
 
End
//==================================================
Function CopyObjectUVLayer(targetObject,targetLimb,sourceObject,sourceLimb,targetUVLayer,sourceUVLayer)
	` Lock source limb for vertex access
	Lock VertexData For Limb targetObject, targetLimb
	
	` Store length of vertices (count minus 1)
	Local vertLength : vertLength = Get Vertexdata Vertex Count() - 1
	Local v
	
	` Create arrays of UV coordinates for assignment to the target limb
	Local Dim u#(vertLength)
	Local Dim v#(vertLength)
	
	For v = 0 to vertLength
		u#(v) = Get VertexData U(v, sourceUVLayer)
		v#(v) = Get VertexData U(v, sourceUVLayer)
	Next v
	
	` Unlock source limb
	Unlock VertexData
	
	` Lock target limb for vertex access in full overwrite mode 2
	Lock VertexData For Limb targetObject, targetLimb, 2
	
	` Write the coordinates to the target layer
	For v = 0 to vertLength
		Set VertexData UV v, targetUVLayer, u#(v), v#(v)
	Next v	
	
	` Update the target
	Unlock VertexData
	
EndFunction

Back to top

Profile PM Email Website

RustyKristy

8

Years of Service

User Offline

Joined: 13th Jan 2016

Location:

Posted: 26th Jun 2017 00:25

Link

This is awesome Chris, thanks!

Back to top

Profile PM

RustyKristy

8

Years of Service

User Offline

Joined: 13th Jan 2016

Location:

Posted: 26th Jun 2017 01:56

Link

I tried opening it with DBO viewers like Ulitmate Unwrap, and the UV1 is still there and now kind of stretched out and also UV2 channel is still in place.

Anyway, I'll try to check the options you got in there.. thanks again.

Back to top

Profile PM

Chris Tate

DBPro Master

15

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 26th Jun 2017 17:22

Link

If UV1 (stage zero) is stretched out after copying UV2, then assuming that you are copying a light-mapping (or similar) UV coordinates then that is correct; it will look stretched out.

Do you need to remove the second UV layer?

Back to top

Profile PM Email Website

RustyKristy

8

Years of Service

User Offline

Joined: 13th Jan 2016

Location:

Posted: 27th Jun 2017 02:53 Edited at: 27th Jun 2017 02:58

Link

Yes, I just need the UV2 in a separate model.

Back to top

Profile PM

Bored of the Rings

User Banned

Posted: 27th Jun 2017 07:57

Link

slight mistake in Chris's code:

u#(v) = Get VertexData U(v, sourceUVLayer)
v#(v) = Get VertexData U(v, sourceUVLayer)->> change to Get VertexData V

Professional Programmer, languages: SAS, C++, SQL, PL-SQL, DBPro, Purebasic, JavaScript, others

Back to top

Profile

Chris Tate

DBPro Master

15

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 27th Jun 2017 12:47

Link

Thanks BotR - (Get VertexData V not U)

` Load the object
Load Object "In.dbo", 1
 
` Clone the object
Clone Object 2, 1
 
` Copy the UV layer on limb zero
CopyObjectUVLayer(2,0,1,0,0,1)
 
` Save
Save Object "Out.dbo",2
  
End
//==================================================
Function CopyObjectUVLayer(targetObject,targetLimb,sourceObject,sourceLimb,targetUVLayer,sourceUVLayer)
    ` Lock source limb for vertex access
    Lock VertexData For Limb targetObject, targetLimb
     
    ` Store length of vertices (count minus 1)
    Local vertLength : vertLength = Get Vertexdata Vertex Count() - 1
    Local v
     
    ` Create arrays of UV coordinates for assignment to the target limb
    Local Dim u#(vertLength)
    Local Dim v#(vertLength)
     
    For v = 0 to vertLength
        u#(v) = Get VertexData U(v, sourceUVLayer)
        v#(v) = Get VertexData V(v, sourceUVLayer)
    Next v
     
    ` Unlock source limb
    Unlock VertexData
     
    ` Lock target limb for vertex access in full overwrite mode 2
    Lock VertexData For Limb targetObject, targetLimb, 2
     
    ` Write the coordinates to the target layer
    For v = 0 to vertLength
        Set VertexData UV v, targetUVLayer, u#(v), v#(v)
    Next v  
     
    ` Update the target
    Unlock VertexData
     
EndFunction

+ Code Snippet

` Load the object
Load Object "In.dbo", 1
 
` Clone the object
Clone Object 2, 1
 
` Copy the UV layer on limb zero
CopyObjectUVLayer(2,0,1,0,0,1)
 
` Save
Save Object "Out.dbo",2
  
End
//==================================================
Function CopyObjectUVLayer(targetObject,targetLimb,sourceObject,sourceLimb,targetUVLayer,sourceUVLayer)
    ` Lock source limb for vertex access
    Lock VertexData For Limb targetObject, targetLimb
     
    ` Store length of vertices (count minus 1)
    Local vertLength : vertLength = Get Vertexdata Vertex Count() - 1
    Local v
     
    ` Create arrays of UV coordinates for assignment to the target limb
    Local Dim u#(vertLength)
    Local Dim v#(vertLength)
     
    For v = 0 to vertLength
        u#(v) = Get VertexData U(v, sourceUVLayer)
        v#(v) = Get VertexData V(v, sourceUVLayer)
    Next v
     
    ` Unlock source limb
    Unlock VertexData
     
    ` Lock target limb for vertex access in full overwrite mode 2
    Lock VertexData For Limb targetObject, targetLimb, 2
     
    ` Write the coordinates to the target layer
    For v = 0 to vertLength
        Set VertexData UV v, targetUVLayer, u#(v), v#(v)
    Next v  
     
    ` Update the target
    Unlock VertexData
     
EndFunction

Quote: "Yes, I just need the UV2 in a separate model."

In that case, use the UV coordinates on stage 2 to write to all of the layers in the new model like so

+ Code Snippet

For targetStage = 0 to 7
  ` Copy the UV layer on limb zero
  CopyObjectUVLayer(2,0,1,0,targetStage,1)
Next

Now in the new model, any applied shader and textures will use the same UV data from UV2. Assuming that there is only one limb in the object.

Back to top

Profile PM Email Website

RustyKristy

8

Years of Service

User Offline

Joined: 13th Jan 2016

Location:

Posted: 30th Jun 2017 10:24

Link

Thanks Chris and Bored of the Rings!

Yes, I see the UV is now fixed.

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Need Help Saving Loaded Model with only 2nd UV Channel