Quake brush to polygon generation

BlitzMax Forums/BlitzMax Programming/Quake brush to polygon generation

Hezkore (Posted 2016) [#1]

I'm working on a .MAP loader, specifically for Quake 1 maps. (Not BSP!) But the actual vertices of a brush are not stored in the map file. Here's how it works: https://quakewiki.org/wiki/Quake_Map_Format#Brush_definition I'm terrible at math and I'm really struggling to understand how this works, so any kind of help is welcome. Here's what I've got so far. Notice that I've used the brush plane positions as vertex positions at line 123, just to get some sort of visuals. SuperStrict Framework sidesign.minib3d Graphics3D(DesktopWidth() * 0.7, DesktopHeight() * 0.7, 0, 2) Local camera:TCamera = CreateCamera() MoveEntity(camera, 0, 0, -10) AmbientLight(255, 255, 255) Local myMap:TQMap = LoadMap("dm1.map") myMap.GenerateEntity("worldspawn") Local testCube:TMesh = CreateCube() While Not AppTerminate() And Not KeyDown(KEY_ESCAPE) Cls() If KeyDown(KEY_LEFT) Then TurnEntity(camera, 0, 2, 0) If KeyDown(KEY_RIGHT) Then TurnEntity(camera, 0, -2, 0) If KeyDown(KEY_UP) Then TurnEntity(camera, -2, 0, 0) If KeyDown(KEY_DOWN) Then TurnEntity(camera, 2, 0, 0) If KeyDown(KEY_W) Then MoveEntity(camera, 0, 0, 1) If KeyDown(KEY_S) Then MoveEntity(camera, 0, 0, -1) If KeyDown(KEY_A) Then MoveEntity(camera, -1, 0, 0) If KeyDown(KEY_D) Then MoveEntity(camera, 1, 0, 0) If KeyDown(KEY_SPACE) Then MoveEntity(camera, 0, 1, 0) If KeyDown(KEY_LCONTROL) Then MoveEntity(camera, 0, -1, 0) RenderWorld() Flip(1) Wend End Type TQMap Field EntityList:TList = CreateList() Method NewEntity:TQMapEntity() Local nE:TQMapEntity = New TQMapEntity ListAddLast(EntityList, nE) Return nE EndMethod Method GenerateEntity(ClassName:String) ClassName = Lower(ClassName) For Local e:TQMapEntity = EachIn EntityList If e.ClassName = ClassName Then e.GenerateBrushes() Next EndMethod EndType Type TQMapEntity Field ClassName:String = "null" 'Type of entity To be defined (mandatory) Field Origin:TQVec3 'Coordinates of where it starts in space Field Angle:Int 'Direction it faces Or moves (sometimes in degrees) Field Light:Int 'Used with the light ClassName Field Target:String 'Matches a targetname Field TargetName:String 'Like a linedef tag Field KillTarget:String 'Removes target when triggered? Field SpawnFlags:String 'Used to flag/describe an entity that is not default Field Style:String 'Used To flag/describe an entity that is Not Default Field Message:String 'Message displayed when triggered (\n for linebreaks) Field Mangle:String 'Point where the intermission camera looks at Field WAD:String 'Texture wad used Field BrushList:TList = CreateList() Method NewBrush:TQMapBrush() Local nB:TQMapBrush = New TQMapBrush ListAddLast(BrushList, nB) Return nB EndMethod Method GenerateBrushes() For Local b:TQMapBrush = EachIn Self.BrushList b.GenerateMesh() Next EndMethod EndType Type TQMapBrush Field Size:Int = 6 Field Pos:Int Field vPoint0:TQVec3[Size] Field vPoint1:TQVec3[Size] Field vPoint2:TQVec3[Size] Field tex_name:String[Size] Field tex_xOff:Int[Size] Field tex_yOff:Int[Size] Field tex_rot:Int[Size] Field tex_xScale:Float[Size] Field tex_yScale:Float[Size] Field mesh:TMesh Field surf:TSurface Field MeshScale:Float = 0.1 Method Expand() Size:+1 vPoint0 = vPoint0[..Size] vPoint1 = vPoint1[..Size] vPoint2 = vPoint2[..Size] tex_name = tex_name[..Size] tex_xOff = tex_xOff[..Size] tex_yOff = tex_yOff[..Size] tex_rot = tex_rot[..Size] tex_xScale = tex_xScale[..Size] tex_yScale = tex_yScale[..Size] EndMethod Method GenerateMesh() If Not mesh Then mesh = TMesh.CreateMesh() ;EntityColor(mesh, Rand(255), Rand(255), Rand(255)) If Not surf Then surf = mesh.CreateSurface() Local v:Int For Local i:Int = 0 Until Size If vPoint0[i] Then surf.AddVertex(vPoint0[i].y * MeshScale, vPoint0[i].z * MeshScale, vPoint0[i].x * MeshScale) surf.AddVertex(vPoint1[i].y * MeshScale, vPoint1[i].z * MeshScale, vPoint1[i].x * MeshScale) surf.AddVertex(vPoint2[i].y * MeshScale, vPoint2[i].z * MeshScale, vPoint2[i].x * MeshScale) surf.AddTriangle(v, v + 2, v + 1) 'Last mystery vertex! surf.AddVertex(vPoint2[i].y * MeshScale, vPoint0[i].z * MeshScale, vPoint1[i].x * MeshScale) 'surf.AddTriangle(v, v + 3, v + 2) v:+4 EndIf Next EndMethod EndType Type TQVec3 Field x:Int Field y:Int Field z:Int Function Create:TQVec3(x:Int, y:Int, z:Int) Local nV:TQVec3 = New TQVec3 nV.x = x nV.y = y nV.z = z Return nV EndFunction EndType Function LoadMap:TQMap(url:String) Local Stream:TStream = OpenStream(url, True, False) If Not Stream Then DebugLog("Unable to open map ~q" + url + "~q") ;Return Null Local Map:TQMap = New TQMap Local readStep:Int Local line:String Local lineNr:Int Local lastEntity:TQMapEntity Local lastBrush:TQMapBrush Local lineSplit:String[] While Not Eof(Stream) line = ReadLine(Stream).Trim() lineNr:+1 If line.StartsWith("//") Then Continue 'Skip if the entire line is a comment If line.Contains("//") Then line = line.Split("//")[0] 'Remove any comments If Not line Then Continue 'Skip if there is no line Select readStep Case 0 'A new entity If line = "{" Then 'New entity lastEntity = Map.NewEntity() readStep = 1 Else 'Error CloseStream(Stream) DebugLog("Error reading map step " + readStep + " at line: " + lineNr + " - " + line) Return Null EndIf Case 1 'Entity content Select Left(line, 1) Case "~q" 'Read data lineSplit = line.Split("~q") 'Print lineSplit[1] + "=" + lineSplit[3] Select Lower(lineSplit[1]) Case "classname" lastEntity.ClassName = Lower(lineSplit[3]) Case "origin" lineSplit = lineSplit[3].Split(" ") lastEntity.Origin = TQVec3.Create(Int(lineSplit[0]), Int(lineSplit[1]), Int(lineSplit[2])) EndSelect Case "{" 'New brush lastBrush = lastEntity.NewBrush() readStep = 2 Case "}" 'Read done readStep = 0 Default 'Error CloseStream(Stream) DebugLog("Error reading map step " + readStep + " at line: " + lineNr + " - " + line) Return Null EndSelect Case 2 'Entity brush Select Left(line, 1) Case "(" 'Read brush data lineSplit = line.Replace("(", "").Replace(")", "").Replace(" ", " ").Replace(" ", " ").Split(" ") 'Expand the brush size if needed! If lastBrush.Pos >= LastBrush.Size Then lastBrush.Expand() 'Read brush vertex lastBrush.vPoint0[lastBrush.Pos] = TQVec3.Create(Int(lineSplit[1]), Int(lineSplit[2]), Int(lineSplit[3])) lastBrush.vPoint1[lastBrush.Pos] = TQVec3.Create(Int(lineSplit[4]), Int(lineSplit[5]), Int(lineSplit[6])) lastBrush.vPoint2[lastBrush.Pos] = TQVec3.Create(Int(lineSplit[7]), Int(lineSplit[8]), Int(lineSplit[9])) 'Brush texture lastBrush.tex_name[lastBrush.Pos] = lineSplit[10] lastBrush.tex_xOff[lastBrush.Pos] = Int(lineSplit[11]) lastBrush.tex_yOff[lastBrush.Pos] = Int(lineSplit[12]) lastBrush.tex_rot[lastBrush.Pos] = Int(lineSplit[13]) lastBrush.tex_xScale[lastBrush.Pos] = Int(lineSplit[14]) lastBrush.tex_yScale[lastBrush.Pos] = Int(lineSplit[15]) lastBrush.Pos:+1 'Print lastBrush.vPoint0[0].x + " " + lastBrush.vPoint0[0].y + " " + lastBrush.vPoint0[0].z Case "}" 'Read done lastBrush = Null readStep = 1 Default 'Error CloseStream(Stream) DebugLog("Error reading map step " + readStep + " at line: " + lineNr + " - " + line) Return Null EndSelect EndSelect WEnd CloseStream(Stream) DebugLog("Loaded map ~q" + url + "~q") Return Map EndFunction And here's a map from Quake 1 to test with. https://dl.dropboxusercontent.com/u/2842751/dm1.map

Hardcoal (Posted 2016) [#2]

i once did something similar for quake 2 in blitz3d good luck im glad people are still into quake :p

Hezkore (Posted 2016) [#3]

The Quake 2 .MAP files are the same. (Not the BSP files!) So if you have any code you'd like to share, I'd gladly have a look at it, even if it's Blitz3D code.

Kryzon (Posted 2016) [#4]

According to that documentation those MAP files are run through a compiler that generates the BSPs, and the BSPs do have geometry in them. Is there a reason why you need to read the MAPs? You'd avoid all the algebra necessary to find the geometry. Blitz3D itself only loaded BSPs.

Hezkore (Posted 2016) [#5]

I'm not using any of the BSP stuff and it's waste of time compiling it to BSP when I'm not even going to use it. I'm really just in need of a map format and I really like to work with TrenchBroom (a Quake 1 editor) It (along with all other Quake editors) quick saves the maps as .MAP files. I'm not using Blitz3D so either way I'm going to have to write a loader for .MAP or .BSP and I figured that since I don't need any of the BSP stuff I'd just go with .MAP.

Kryzon (Posted 2016) [#6]

DeleD CE seems to import MAP files: http://www.delgine.com/index.php?filename=deled_features Not sure how compatible it is: https://www.garagegames.com/community/forums/viewthread/135318/1#comment-852345 You can then export to OBJ or B3D. Good luck. EDIT: I'm hoping you find a way without having to code anything, because plane-plane intersection is hairy: http://geomalgorithms.com/a05-_intersect-1.html#Intersection-of-2Planes (unless you use some library that does this for you).

Hezkore (Posted 2016) [#7]

I was hoping that maybe someone had some plane to plane intersection code used for something else that could be modified to work with this. I've decided to instead load the BSP: http://www.blitzbasic.com/Community/posts.php?topic=106945

Hardcoal (Posted 2016) [#8]

i was looking for my blitz3d quake 2 project but couldnt find it if i will than ill share it