Problem with scaletexture?

Blitz3D Forums/Blitz3D Programming/Problem with scaletexture?

Guy Fawkes (Posted 2012) [#1]

Hi all. I am trying to build a simple sword in blitz3d using only scaled, positioned, and rotated shapes. Problem is, I went to texture the 1st part of the sword with a gradient texture, and for some reason, it only textures PART of the mesh, while leaving the other part of the texture black, making PART of the mesh appear black... i want it to be perfectly aligned to the mesh, no matter what. Here's the code: Graphics3D 800,600,0,2 ;===========================Set Buffer to BackBuffer for smooth drawing SetBuffer BackBuffer() ;===========================Set Buffer to BackBuffer for smooth drawing ;===========================Randomize Random Variables SeedRnd MilliSecs() ;===========================Randomize Random Variables ;===========================Collision Globals Global coll_cam = 1 Global coll_obj = 2 Global coll_land = 3 ;===========================Collision Globals ;===========================Collision Values Collisions coll_cam,coll_obj,2,3 Collisions coll_cam,coll_land,2,3 Collisions coll_obj,coll_land,2,3 ;===========================Collision Values ;===========================Create Camera Global camera=CreateCamera() ;===========================Create Camera ;===========================Set Camera CameraRange camera,.1,50000 PositionEntity camera,0,1,-4 EntityType camera,coll_cam ;===========================Set Camera ;===========================Turn on Lights AmbientLight 255,255,255 ;===========================Turn on Lights ;===========================Create Sword Global border = CreateSphere(2) ;===========================Create Sword ;===========================Modify Sword ScaleEntity border,1.5,.03,2 RotateEntity border,90,0,0 PositionEntity border,0,1,0 EntityShininess border,1.0 EntityType border,coll_obj ;===========================Modify Sword ;===========================Sword Texture Size Global imgwidth# = 32 Global imgheight# = 32 ;===========================Sword Texture Size ;===========================Create Sword Texture Global mytex=CreateGradient(imgwidth#,imgheight#) ;===========================Create Sword Texture ;===========================Create Texture Buffer for Sword Global objtex=DrawGradientSurface(mytex,102,102,255,68,207,252,4,4,imgwidth#,imgheight#) ;===========================Create Texture Buffer for Sword ;===========================Texture Sword EntityTexture border,objtex ;===========================Texture Sword ;===========================Fix Sword Texture's Size MESHScaleUV(border,1,1,1) MESHScaleUV(border,2,1,1) MESHScaleUV(border,3,1,1) ;===========================Fix Sword Texture's Size ;===========================Debug Mode Global debug=0 ;===========================Debug Mode While Not KeyDown(1) Cls If Not KeyDown(29) Or KeyDown(157) MoveEntity camera,(KeyDown(18)-KeyDown(16))*0.01,0,(KeyDown(17)-KeyDown(31) Or KeyDown(200)-KeyDown(208))*0.1 TurnEntity camera,0,(KeyDown(30)-KeyDown(32) Or KeyDown(203)-KeyDown(205))*0.5,0 ElseIf KeyDown(29) Or KeyDown(157) If KeyHit(57)<>0 Then w=1-w Wireframe w EndIf ;If KeyDown(200) Then u# = u# + 0.1 ;If KeyDown(208) Then u# = u# - 0.1 ;If KeyDown(203) Then v# = v# - 0.1 ;If KeyDown(205) Then v# = v# + 0.1 ;If u#>TextureWidth(mytex) Then u#=TextureWidth(mytex) ;If v#>TextureHeight(mytex) Then v#=TextureHeight(mytex) ;If u#<-TextureWidth(mytex) Then u#=-TextureWidth(mytex) ;If v#<-TextureHeight(mytex) Then v#=-TextureHeight(mytex) If KeyDown(42) If KeyHit(32)<>0 debug=1-debug EndIf EndIf EndIf UpdateWorld() RenderWorld() FlushKeys() If debug<>0 Text GraphicsWidth()/2,GraphicsHeight()/2,"Texture U:"+u#,1,1 Text GraphicsWidth()/2,GraphicsHeight()/2+20,"Texture V:"+v#,1,1 EndIf Flip Wend End Function CreateGradient(w#,h#) img=CreateTexture(w#,h#) Return img End Function Function DrawGradientSurface(img,sred#,sgreen#,sblue#,dred#,dgreen#,dblue#,x%,y%,width#,height#) SetBuffer TextureBuffer(img) eachxred#=(dred#-sred#)/width# eachxgreen#=(dgreen#-sgreen#)/width# eachxblue#=(dblue#-sblue#)/width# tempwidth%=width# For tempx=x% To x%+tempwidth% colr = eachxred#*count+sred colg = eachxgreen#*count+sgreen colb = eachxblue#*count+sblue Color colr,colg,colb Line tempx,y%,tempx,y%+height# count=count+1 Next SetBuffer BackBuffer() Color 255,255,255 Return img End Function ;======================================================================== ;======================================================================== ;======================================================================== Function MESHscaleUV( mesh , Axis , ScaleU#, ScaleV# ) ;axis = 1 = x ;axis = 2 = y ;axis = 3 = z s = GetSurface( mesh ,1 ) For v = 0 To CountVertices( s ) - 1 Select Axis Case 1 CHANGE = ( VertexNY( s, v ) <> 0 Or VertexNZ( s, v ) <> 0 ) Case 2 CHANGE = ( VertexNX( s, v ) <> 0 Or VertexNZ( s, v ) <> 0 ) Case 3 CHANGE = ( VertexNX( s, v ) <> 0 Or VertexNY( s, v ) <> 0 ) End Select If CHANGE VertexTexCoords s, v, VertexU( s, v ) * ScaleU , VertexV( s, v ) * ScaleV Next End Function Thank you to all who help! :)

stayne (Posted 2012) [#2]

Question first. What does this do? If CHANGE VertexTexCoords s, v, VertexU( s, v ) * ScaleU , VertexV( s, v ) * ScaleV

Guy Fawkes (Posted 2012) [#3]

It's supposed to scale the texture correctly. problem is. some of the mesh's texture is still black ><

Krischan (Posted 2012) [#4]

Global objtex=DrawGradientSurface(mytex,102,102,255,68,207,252,0,0,imgwidth#,imgheight#)

Guy Fawkes (Posted 2012) [#5]

THANK you Krischan. That was driving me CRAZY! O_O

Guy Fawkes (Posted 2012) [#6]

Ugh! Now another problem.... Why does this texture make the object appear to have a "dent" in it? Graphics3D 800,600,0,2 ;===========================Set Buffer to BackBuffer for smooth drawing SetBuffer BackBuffer() ;===========================Set Buffer to BackBuffer for smooth drawing ;===========================Randomize Random Variables SeedRnd MilliSecs() ;===========================Randomize Random Variables ;===========================Collision Globals Global coll_cam = 1 Global coll_obj = 2 Global coll_land = 3 ;===========================Collision Globals ;===========================Collision Values Collisions coll_cam,coll_obj,2,3 Collisions coll_cam,coll_land,2,3 Collisions coll_obj,coll_land,2,3 ;===========================Collision Values ;===========================Create Camera Global camera=CreateCamera() ;===========================Create Camera ;===========================Set Camera CameraRange camera,.1,50000 PositionEntity camera,0,1,-4 EntityType camera,coll_cam ;===========================Set Camera ;===========================Turn on Lights AmbientLight 255,255,255 ;===========================Turn on Lights ;===========================Create Sword Global border = CreateSphere(16) ;===========================Create Sword ;===========================Modify Sword ;ScaleEntity border,1.5,.03,2 RotateEntity border,90,0,0 PositionEntity border,0,1,0 EntityShininess border,1.0 EntityType border,coll_obj ;===========================Modify Sword ;===========================Sword Texture Size Global imgwidth# = 32 Global imgheight# = 32 ;===========================Sword Texture Size ;===========================Create Sword Texture Global mytex=CreateGradient(imgwidth#,imgheight#) ;===========================Create Sword Texture ;===========================Create Texture Buffer for Sword Global objtex=DrawGradientSurface(mytex,102,102,255,68,207,252,0,0,imgwidth#,imgheight#) ;===========================Create Texture Buffer for Sword ;===========================Texture Sword EntityTexture border,objtex ;===========================Texture Sword ;===========================Fix Sword Texture's Size MESHScaleUV(border,1,1,1) MESHScaleUV(border,2,1,1) MESHScaleUV(border,3,1,1) ;===========================Fix Sword Texture's Size ;===========================Debug Mode Global debug=0 ;===========================Debug Mode While Not KeyDown(1) Cls If Not KeyDown(29) Or KeyDown(157) MoveEntity camera,(KeyDown(18)-KeyDown(16))*0.01,0,(KeyDown(17)-KeyDown(31) Or KeyDown(200)-KeyDown(208))*0.1 TurnEntity camera,0,(KeyDown(30)-KeyDown(32) Or KeyDown(203)-KeyDown(205))*0.5,0 ElseIf KeyDown(29) Or KeyDown(157) If KeyHit(57)<>0 Then w=1-w Wireframe w EndIf ;If KeyDown(200) Then u# = u# + 0.1 ;If KeyDown(208) Then u# = u# - 0.1 ;If KeyDown(203) Then v# = v# - 0.1 ;If KeyDown(205) Then v# = v# + 0.1 ;If u#>TextureWidth(mytex) Then u#=TextureWidth(mytex) ;If v#>TextureHeight(mytex) Then v#=TextureHeight(mytex) ;If u#<-TextureWidth(mytex) Then u#=-TextureWidth(mytex) ;If v#<-TextureHeight(mytex) Then v#=-TextureHeight(mytex) If KeyDown(42) If KeyHit(32)<>0 debug=1-debug EndIf EndIf EndIf UpdateWorld() RenderWorld() FlushKeys() If debug<>0 Text GraphicsWidth()/2,GraphicsHeight()/2,"Texture U:"+u#,1,1 Text GraphicsWidth()/2,GraphicsHeight()/2+20,"Texture V:"+v#,1,1 EndIf Flip Wend End Function CreateGradient(w#,h#) img=CreateTexture(w#,h#) Return img End Function Function DrawGradientSurface(img,sred#,sgreen#,sblue#,dred#,dgreen#,dblue#,x%,y%,width#,height#) SetBuffer TextureBuffer(img) eachxred#=(dred#-sred#)/width# eachxgreen#=(dgreen#-sgreen#)/width# eachxblue#=(dblue#-sblue#)/width# tempwidth%=width# For tempx=x% To x%+tempwidth% colr = eachxred#*count+sred colg = eachxgreen#*count+sgreen colb = eachxblue#*count+sblue Color colr,colg,colb Line tempx,y%,tempx,y%+height# count=count+1 Next SetBuffer BackBuffer() Color 255,255,255 Return img End Function ;======================================================================== ;======================================================================== ;======================================================================== Function MESHscaleUV( mesh , Axis , ScaleU#, ScaleV# ) ;axis = 1 = x ;axis = 2 = y ;axis = 3 = z s = GetSurface( mesh ,1 ) For v = 0 To CountVertices( s ) - 1 Select Axis Case 1 CHANGE = ( VertexNY( s, v ) <> 0 Or VertexNZ( s, v ) <> 0 ) Case 2 CHANGE = ( VertexNX( s, v ) <> 0 Or VertexNZ( s, v ) <> 0 ) Case 3 CHANGE = ( VertexNX( s, v ) <> 0 Or VertexNY( s, v ) <> 0 ) End Select If CHANGE VertexTexCoords s, v, VertexU( s, v ) * ScaleU , VertexV( s, v ) * ScaleV Next End Function

H&K (Posted 2012) [#7]

This is just a guess, (Because I dont have the texture), but possibly its designed to make it look like it has a dent in it? Thun, have you got any screen shots of your project you could post, Im quite interested in seeing what you have got done so far

Guy Fawkes (Posted 2012) [#8]

No. its designed to be a gradient. because im the 1 who coded the design into it using the gradient code u see before u. Now, here's some screenshots of it. 1 with wireframe, and 1 without wireframe: Wireframe: No Wireframe:

Kryzon (Posted 2012) [#9]

You're gonna have a hard time removing that. It's a "feature" of spherical mapping, there's gotta be a seam somewhere (as you're trying to map a rectangular area onto a spherical one). Have you tried loading that texture with the Spherical Environment flag? it'll hide the seam at the cost of three-dimensionality (you'll always see the gradient at front). Otherwise you can map a sphere in a modelling program to view in real-time and then tweak the texture in your favourite image-editing program until it looks acceptable. Then proceed to use it in your game.

sting (Posted 2012) [#10]

Rotate the gradient 90 degrees.

Ross C (Posted 2012) [#11]

You could try a cubemap.

Guy Fawkes (Posted 2012) [#12]

I tried rotating the texture 90 degrees. that ALMOST worked. there's a little spot where it still looks like a "dent", when it should look like a blue marble. Graphics3D 800,600,0,2 ;===========================Set Buffer to BackBuffer for smooth drawing SetBuffer BackBuffer() ;===========================Set Buffer to BackBuffer for smooth drawing ;===========================Randomize Random Variables SeedRnd MilliSecs() ;===========================Randomize Random Variables ;===========================Collision Globals Global coll_cam = 1 Global coll_obj = 2 Global coll_land = 3 ;===========================Collision Globals ;===========================Collision Values Collisions coll_cam,coll_obj,2,3 Collisions coll_cam,coll_land,2,3 Collisions coll_obj,coll_land,2,3 ;===========================Collision Values ;===========================Create Camera Global camera=CreateCamera() ;===========================Create Camera ;===========================Set Camera CameraRange camera,.1,50000 PositionEntity camera,0,1,-4 EntityType camera,coll_cam ;===========================Set Camera ;===========================Turn on Lights AmbientLight 255,255,255 ;===========================Turn on Lights ;===========================Create Sword Global border = CreateSphere(16) ;===========================Create Sword ;===========================Modify Sword ;ScaleEntity border,1.5,.03,2 RotateEntity border,90,0,0 PositionEntity border,0,1,0 EntityShininess border,1.0 EntityType border,coll_obj ;===========================Modify Sword ;===========================Sword Texture Size Global imgwidth# = 32 Global imgheight# = 32 ;===========================Sword Texture Size ;===========================Create Sword Texture Global mytex=CreateGradient(imgwidth#,imgheight#) ;===========================Create Sword Texture ;===========================Create Texture Buffer for Sword Global objtex=DrawGradientSurface(mytex,102,102,255,68,207,252,0,0,imgwidth#,imgheight#) ;===========================Create Texture Buffer for Sword ;===========================Texture Sword RotateTexture objtex,90 EntityTexture border,objtex ;===========================Texture Sword ;===========================Fix Sword Texture's Size MESHScaleUV(border,1,1,1) MESHScaleUV(border,2,1,1) MESHScaleUV(border,3,1,1) ;===========================Fix Sword Texture's Size ;===========================Debug Mode Global debug=0 ;===========================Debug Mode While Not KeyDown(1) Cls If Not KeyDown(29) Or KeyDown(157) MoveEntity camera,(KeyDown(18)-KeyDown(16))*0.01,0,(KeyDown(17)-KeyDown(31) Or KeyDown(200)-KeyDown(208))*0.1 TurnEntity camera,0,(KeyDown(30)-KeyDown(32) Or KeyDown(203)-KeyDown(205))*0.5,0 ElseIf KeyDown(29) Or KeyDown(157) If KeyHit(57)<>0 Then w=1-w Wireframe w EndIf ;If KeyDown(200) Then u# = u# + 0.1 ;If KeyDown(208) Then u# = u# - 0.1 ;If KeyDown(203) Then v# = v# - 0.1 ;If KeyDown(205) Then v# = v# + 0.1 ;If u#>TextureWidth(mytex) Then u#=TextureWidth(mytex) ;If v#>TextureHeight(mytex) Then v#=TextureHeight(mytex) ;If u#<-TextureWidth(mytex) Then u#=-TextureWidth(mytex) ;If v#<-TextureHeight(mytex) Then v#=-TextureHeight(mytex) If KeyDown(42) If KeyHit(32)<>0 debug=1-debug EndIf EndIf EndIf UpdateWorld() RenderWorld() FlushKeys() If debug<>0 Text GraphicsWidth()/2,GraphicsHeight()/2,"Texture U:"+u#,1,1 Text GraphicsWidth()/2,GraphicsHeight()/2+20,"Texture V:"+v#,1,1 EndIf Flip Wend End Function CreateGradient(w#,h#) img=CreateTexture(w#,h#) Return img End Function Function DrawGradientSurface(img,sred#,sgreen#,sblue#,dred#,dgreen#,dblue#,x%,y%,width#,height#) SetBuffer TextureBuffer(img) eachxred#=(dred#-sred#)/width# eachxgreen#=(dgreen#-sgreen#)/width# eachxblue#=(dblue#-sblue#)/width# tempwidth%=width# For tempx=x% To x%+tempwidth% colr = eachxred#*count+sred colg = eachxgreen#*count+sgreen colb = eachxblue#*count+sblue Color colr,colg,colb Line tempx,y%,tempx,y%+height# count=count+1 Next SetBuffer BackBuffer() Color 255,255,255 Return img End Function ;======================================================================== ;======================================================================== ;======================================================================== Function MESHscaleUV( mesh , Axis , ScaleU#, ScaleV# ) ;axis = 1 = x ;axis = 2 = y ;axis = 3 = z s = GetSurface( mesh ,1 ) For v = 0 To CountVertices( s ) - 1 Select Axis Case 1 CHANGE = ( VertexNY( s, v ) <> 0 Or VertexNZ( s, v ) <> 0 ) Case 2 CHANGE = ( VertexNX( s, v ) <> 0 Or VertexNZ( s, v ) <> 0 ) Case 3 CHANGE = ( VertexNX( s, v ) <> 0 Or VertexNY( s, v ) <> 0 ) End Select If CHANGE VertexTexCoords s, v, VertexU( s, v ) * ScaleU , VertexV( s, v ) * ScaleV Next End Function Problem:

_PJ_ (Posted 2012) [#13]

Have you tried setting it to use vertex shading instead with Fullbright on?