Function writemesh() - texture seams glitch

Blitz3D Forums/Blitz3D Beginners Area/Function writemesh() - texture seams glitch

Guy Fawkes (Posted 2014) [#1]

So I have discovered when saving a 3D landscape object with this code, the texture seams seem to have a line creating a glitch in the geometry. I've seen this problem before. It's called a texture seam glitch, and I just can't seem to find it. Global XE_XF,XE_MAXtextures Type XE_texdata Field idx,h,fn$ End Type Function writemesh(mesh,e_filename$) ;Change to 0 for human readable but (((bigger))) output trunc=0 ;reset texture list XE_MAXtextures=0 For td.xe_texdata =Each XE_texdata:Delete td:Next ;open output file filenameout$=e_filename$+"." XE_XF=WriteFile (filenameout$); ;File version WriteLine XE_XF,"xof 0302txt 0064" WriteLine XE_XF,"" ;Header WriteLine XE_XF,"Header {" WriteLine XE_XF,"1;" WriteLine XE_XF,"0;" WriteLine XE_XF,"1;" WriteLine XE_XF,"}" WriteLine XE_XF,"" WriteLine XE_XF,"//Exported By D-Mapper Registered to "+regname$ ;Write all materials in meshes XE_MAXtextures=0 RecursiveAddMaterial(mesh,forcematerial$,e_directory) WriteLine XE_XF," //Truncatemarker" ; textures cannot be truncated for giles ;Start of frame root WriteLine XE_XF,"Frame root {" WriteLine XE_XF," FrameTransformMatrix {" WriteLine XE_XF," 1.000000,0.000000,0.000000,0.000000," WriteLine XE_XF," 0.000000,1.000000,0.000000,0.000000," WriteLine XE_XF," 0.000000,0.000000,1.000000,0.000000," WriteLine XE_XF," 0.000000,0.000000,0.000000,1.000000;;" WriteLine XE_XF," }" ;chiname$=EntityName(mesh) RecursiveAddMesh(mesh) WriteLine XE_XF,"} //End of root" CloseFile XE_XF If trunc rfile=ReadFile(filenameout$) wfile=WriteFile(filenameout$+"temp.x") If rfile<>0 And wfile<>0 headerwrite=1 While Not Eof(rfile) lines=lines+1 If headerwrite l$=ReadLine(rfile) WriteLine(wfile,l$) If Instr(l$,"//Exported By") headerwrite=0 Else l$=ReadLine(rfile) If Instr (l$,"//") Then l$=usv(ReadLine(rfile),1,"//") l$=Trim(l$) WriteLine wfile,l$ ;dat$=dat$+l$ ;If MilliSecs()>gtime+1000 gtime=MilliSecs():messagebox(-1,0,300,"Truncating ","Collapsing whitespace, end Of Line characters and ","comments, Please Wait..","","Line "+lines+" "+ l$) EndIf Wend CloseFile rfile CloseFile wfile Else api_MessageBox(0,"Error","Cannot create/read required file: "+rfile+Chr(10)+wfile, 0) EndIf EndIf ;CopyFile filenameout$+"temp",filenameout$ ;anti NAN patch for X exporter fileR=OpenFile (filenameout) fileW=OpenFile (Wfile) If fileR While Not Eof(fileR) l$=ReadLine(fileR) l$=Replace (l$,"NaN","0.0") If filew WriteLine(fileW,l$) EndIf Wend CloseFile fileR If fileW Then CloseFile fileW If fileW And fileR Then CopyFile fileW,fileR If fileW Then DeleteFile fileW End Function Function RecursiveAddMaterial(h,forcematerial$,e_directory$="") DebugLog CountChildren(h) If EntityClass$(h)="Mesh" ;get neccacaries For surfc=1 To CountSurfaces(h) surf=GetSurface(h,surfc) brush=GetSurfaceBrush(surf) tex=GetBrushTexture (brush) ;get rid of tex path & copy textures If forcematerial$="" Then from$=TextureName(tex) XE_XFilen$=strip_path(from) CopyFile from,e_directory+XE_XFilen$ DebugLog "Copying tex to "+e_directory+XE_XFilen$ Else XE_XFilen$=strip_path(forcematerial$) EndIf ;mark possible 'new' texture index Tindex=XE_MAXtextures ;see id texture is alreadt in database, if so make tindex match the existing one For txs.XE_texdata = Each XE_texdata If txs\fn=XE_XFilen$ Then noadd=1:Tindex=txs\idx Next ;Save texture data in index with surface handle for an index key txs.XE_texdata = New XE_texdata txs\h = surf txs\idx = Tindex txs\fn = XE_XFilen$ ;only add texture if a new one is present If Not noadd WriteLine XE_XF,"Material dx_brush"+Str(Tindex)+" {" WriteLine XE_XF," 1.000000;1.000000;1.000000;1.000000;;" WriteLine XE_XF," 0.000000;" WriteLine XE_XF," 1.000000;1.000000;1.000000;;" WriteLine XE_XF," 0.000000;0.000000;0.000000;;" WriteLine XE_XF," TextureFilename {" WriteLine XE_XF," "+Chr(34)+XE_XFilen$+Chr(34)+";" WriteLine XE_XF," }" WriteLine XE_XF,"}" XE_MAXtextures=XE_MAXtextures+1 EndIf ;do the cleaning FreeTexture Tex FreeBrush brush Next EndIf For cc =CountChildren(h) To 1 Step -1 chi=GetChild (h,cc) RecursiveAddMaterial(chi,forcematerial$) Next End Function Function GetStringofMatElement$(mesh,x,y) me$=GetMatElement(mesh,x,y) dp$=usv(me$,2,".") final$=me$ If Len(dp$)=0 final$=me$+"000000" ElseIf Len(dp$)=1 final$=me$+"00000" ElseIf Len(dp$)=2 final$=me$+"0000" ElseIf Len(dp$)=3 final$=me$+"000" ElseIf Len(dp$)=4 final$=me$+"00" ElseIf Len(dp$)=5 final$=me$+"0" EndIf DebugLog "Matrix="+me$+" ("+dp$+") "+final$ Return final$ End Function Global recuse_depth Function RecursiveAddMesh(h,basescaleX#=1,basescaleY#=1,basescaleZ#=1) recuse_depth=recuse_depth+1 chiname$=EntityName(h) DebugLog "Recursing "+chiname+" Childs="+CountChildren(h)+" Depth="+recuse_depth If chiname="" Or Instr(chiname,"NoName") chiname="NoName"+MilliSecs() DebugLog chiname ; mesh=CopyEntity(h) ; EntityParent mesh,0 mesh=h WriteLine XE_XF," Frame "+ChiName$+" {" WriteLine XE_XF," FrameTransformMatrix {" WriteLine XE_XF," "+GetStringOfMatElement(mesh,0,0)+","+GetStringOfMatElement(mesh,0,1)+","+GetStringOfMatElement(mesh,0,2)+",0.000000," WriteLine XE_XF," "+GetStringOfMatElement(mesh,1,0)+","+GetStringOfMatElement(mesh,1,1)+","+GetStringOfMatElement(mesh,1,2)+",0.000000," WriteLine XE_XF," "+GetStringOfMatElement(mesh,2,0)+","+GetStringOfMatElement(mesh,2,1)+","+GetStringOfMatElement(mesh,2,2)+",0.000000," WriteLine XE_XF," "+GetStringOfMatElement(mesh,3,0)+","+GetStringOfMatElement(mesh,3,1)+","+GetStringOfMatElement(mesh,3,2)+",1.000000;;" WriteLine XE_XF," }" If EntityClass$(mesh)="Mesh" For surfc=1 To CountSurfaces (mesh) surf=GetSurface(mesh,surfc) verts=CountVertices(surf) tris=CountTriangles(surf) ;meshinfo WriteLine XE_XF," Mesh "+ChiName$+" {" ;Number of verts; WriteLine XE_XF," "+verts+";" ;X;Y;Z; of verts; For v=0 To verts-1 If v=verts-1 Then term$=";;" Else term$=";," WriteLine XE_XF," "+VertexX (surf,v)+";"+VertexY (surf,v)+";"+VertexZ (surf,v)+term$ Next ;No of tris; WriteLine XE_XF," "+tris+";" ;Tri ordering 3;t0,t1,t2;, For t=0 To Tris-1 If t=tris-1 Then term$=";;" Else term$=";," WriteLine XE_XF," 3;"+TriangleVertex(Surf,t,0)+","+TriangleVertex(Surf,t,1)+","+TriangleVertex(Surf,t,2)+term$ Next ;Material List WriteLine XE_XF," MeshMaterialList {" WriteLine XE_XF," 1;";num of materials for mesh WriteLine XE_XF," "+tris+";";number of faces/tris For t=0 To tris-1 If t=tris-1 Then term$=";;" Else term$="," WriteLine XE_XF," 0"+term$ ; face indexes? Next WriteLine XE_XF," {dx_brush"+LookUpTindex(surf)+"}" WriteLine XE_XF," } // end of material list" ;Normals List WriteLine XE_XF," MeshNormals {" WriteLine XE_XF," "+verts+";" For v=0 To verts-1 If v=verts-1 Then term$=";;" Else term$=";," WriteLine XE_XF," "+VertexNX (surf,v)+";"+VertexNY (surf,v)+";"+VertexNZ (surf,v)+term$ Next WriteLine XE_XF," "+tris+";" For t=0 To Tris-1 If t=tris-1 Then term$=";;" Else term$=";," WriteLine XE_XF," 3;"+TriangleVertex(Surf,t,0)+","+TriangleVertex(Surf,t,1)+","+TriangleVertex(Surf,t,2)+term$ Next WriteLine XE_XF," } // end of normal list" ;Texturecoords List WriteLine XE_XF," MeshTextureCoords {" WriteLine XE_XF," "+verts+";" For v=0 To verts-1 If v=verts-1 Then term$=";;" Else term$=";," WriteLine XE_XF," "+VertexU (surf,v)+";"+VertexV (surf,v)+term$ Next WriteLine XE_XF," } // end of Texturecoord list" ;Vertexcolor List WriteLine XE_XF," MeshVertexColors {" WriteLine XE_XF," "+verts+";" For v=0 To verts-1 If v=verts-1 Then term$=";;" Else term$=";," vred#=VertexRed (surf,v)/256 vgreen#=VertexGreen (surf,v)/256 vblue#=VertexBlue (surf,v)/256 WriteLine XE_XF," "+v+";"+vred+";"+vgreen+";"+vblue+";"+VertexAlpha (surf,v)+term$ Next WriteLine XE_XF," } // end of Vertexcolor list" ;End of mesh WriteLine XE_XF," } // end of mesh block for "+ChiName$ Next EndIf ;FreeEntity mesh ;do all childs.. of childs etc DebugLog "has "+CountChildren(h) For cc=CountChildren(h) To 1 Step -1 chi=GetChild (h,cc) RecursiveAddMesh(chi,basescaleX#,basescaleY#,basescaleZ#) Next ;close branch frame WriteLine XE_XF," } // End of frame"+ChiName$ DebugLog "recuse_depth Depth "+recuse_depth recuse_depth=recuse_depth-1 End Function Function LookUpTindex(surf) ;look up tindex from surface handle For t.XE_texdata = Each XE_texdata If t\h=surf Return t\idx Next End Function Function strip_path$(f$) f$=Lower$(f$) ; Full (!) Texture Path lastknown=0 For p=1 To Len (f$) If Instr(f$,"\",p) Then lastknown=lastknown+1 Next fnl=Len(f$)-lastknown f$=Right(f$,fnl) ;DebugLog "filename stripped"+ f$ Return f$ End Function ;'user separated values Function USV$(in$,which%=1,sep$=",") ;''pipe seprated values Local n% = 1 Local offset% = 0 Local nextoffset% = 1 Local ValueRet$ ="" While offset<Len(in$) nextoffset = Instr(in$,sep$,offset+1) If nextoffset = 0 nextoffset = Len(in$)+1 which = n End If valueret$ = Mid$(in$,offset+1,nextoffset-offset-1) If which = n Return valueret End If offset = nextoffset n=n+1 Wend Return n-1 End Function Thank You!

Guy Fawkes (Posted 2014) [#2]

Bump...

Mikorians (Posted 2014) [#3]

Nobody answered, so- Advice? Sorry. This is why I avoid BLITZ algorithmically created scenes like the plague. It isn't a scene editor. I'd take the blank scene and paint it myself! Don't waste your time. I can't be much more help than that. Seams are a nitpicky thing. 3D studio max lets you reproject texture coordinates on an entire scene at once. This usually rids me of my problems. So objects created automatically? Yes, texture maps, noooo. Try making it work with a simple pair of objects first? That's all I can offer. Obviously there's a decimal in the wrong place. It might even be that with such a huge scene you're bumping up agains a blitz numerical accuracy issue. I've noticed that blitz can be a bit haphazard sometimes with floats.

Guy Fawkes (Posted 2014) [#4]

Can someone please help fix this so it doesn't happen again? Thank You so kindly!

Stevie G (Posted 2014) [#5]

You can't expect someone to tell you what is wrong with the routine in relation to your mesh simply by posting the code. A detailed explanation of how you are creating your mesh, including a screenshot before and after it's processed by this routine would help. Also, as Mikorians suggested make a simpler scene to test.

Guy Fawkes (Posted 2014) [#6]

1st. I load my map with BlitzTiles (created by Krischan). 2nd. It auto saves the 3D landscape (in this case, "middle earth"), using the "WriteBB3D()" function from the "Blitz support project wants YOU!" thread. 3rd. I use "writemesh()" to TRY and translate it into an "X" file. 4th. I get the seams glitch when I load it up into the program. The above is as good as I can explain it. If you have any more questions, please, feel free to ask me. As for using a "simpler" scene, I don't think Here's the scene test code: scenetest.bb: Graphics3D(800, 600, 0, 2) SeedRnd MilliSecs() Global cam = CreateCamera() PositionEntity cam, -4, 1, -40 CameraRange cam, .1, 25000 AmbientLight 255, 255, 255 Global sky = CreateCube() EntityColor sky, 102, 102, 255 ScaleEntity sky, 1000, 1000, 1000 FlipMesh sky Global land = CreatePlane() EntityColor land, 0, 64, 0 Global dummycube = CreateCube() PositionEntity dummycube, 0, 1, 0 EntityAlpha dummycube, 0.75 EntityColor dummycube, Rnd(0, 255), Rnd(0, 255), Rnd(0, 255) api_ShowWindow(SystemProperty$("AppHWND"), 1) Global landscape = LoadMesh("middleearth.b3d") PositionEntity landscape, 0, -90, 0 If Not landscape RuntimeError "Please put your 'middleearth.b3d' & all its' textures inside of the same folder this code is in" End EndIf While Not KeyHit(1) Cls If Not CONTROLKEYS() If Not SHIFTKEYS() If W_UP() Then MoveEntity(cam, 0, 0, 1) If S_DOWN() Then MoveEntity(cam, 0, 0, -1) If A_LEFT() Then TurnEntity(cam, 0, 1, 0) If D_RIGHT() Then TurnEntity(cam, 0, -1, 0) Else If W_UP() Then MoveEntity(cam, 0, 0, 3) If S_DOWN() Then MoveEntity(cam, 0, 0, -3) If A_LEFT() Then TurnEntity(cam, 0, -3, 0) If D_RIGHT() Then TurnEntity(cam, 0, 3, 0) EndIf Else If Not SHIFTKEYS() If W_UP() Then MoveEntity(cam, 0, 1, 0) If S_DOWN() Then MoveEntity(cam, 0, -1, 0) If A_LEFT() Then MoveEntity(cam, -1, 0, 0) If D_RIGHT() Then MoveEntity(cam, 1, 0, 0) Else If W_UP() Then MoveEntity(cam, 0, 3, 0) If S_DOWN() Then MoveEntity(cam, 0, -3, 0) If A_LEFT() Then MoveEntity(cam, -3, 0, 0) If D_RIGHT() Then MoveEntity(cam, 3, 0, 0) EndIf EndIf UpdateWorld() RenderWorld() Flip Wend End Function LCTRL() Return (KeyDown(29)) End Function Function RCTRL() Return (KeyDown(157)) End Function Function LSHIFT() Return (KeyDown(42)) End Function Function RSHIFT() Return (KeyDown(54)) End Function Function UP_ARROW() Return (KeyDown(200)) End Function Function LEFT_ARROW() Return (KeyDown(203)) End Function Function DOWN_ARROW() Return (KeyDown(208)) End Function Function RIGHT_ARROW() Return (KeyDown(205)) End Function Function W_KD() Return (KeyDown(17)) End Function Function A_KD() Return (KeyDown(30)) End Function Function S_KD() Return (KeyDown(31)) End Function Function D_KD() Return (KeyDown(32)) End Function Function W_UP() Return(W_KD()+UP_ARROW()) End Function Function A_LEFT() Return(A_KD()+LEFT_ARROW()) End Function Function S_DOWN() Return(S_KD()+DOWN_ARROW()) End Function Function D_RIGHT() Return(D_KD()+RIGHT_ARROW()) End Function Function CONTROLKEYS() Return (LCTRL()+RCTRL()) End Function Function SHIFTKEYS() Return (LSHIFT()+RSHIFT()) End Function Thank You!

Mikorians (Posted 2014) [#7]

I think I had found that no matter what I did with two quads (triangle pairs) side-by-side with the same coords on each vertex that as long as the quads were separate objects and not with welded (shared- I.E. 6 total, not eight) vertexes that there was always a slight seam. Experiment worthy... It is because of this that my own map system loads and unloads BUILDINGS and not the ground (which I had to simplify).