jackcartersmith/rerogue
2
0
Fork 0
mirror of https://github.com/dpethes/rerogue.git synced 2025-06-07 18:58:32 +02:00
Code Issues Releases Wiki Activity

viewer: triangulate quads when transforming the hob structure

Browse Source
This commit is contained in:
dpethes 2015-07-06 00:11:02 +02:00
parent 564674cfa8
commit a856753543
1 changed files with 43 additions and 75 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

118
hob_display/hob_mesh.pas
View File

@ -12,11 +12,11 @@ type
x, y, z: single; x, y, z: single;
end; end;
TQuad = record TTriangle = record
vertices: array [0..3] of TVertex; vertices: array [0..2] of TVertex;
material_index: integer; material_index: integer;
tex_coords: array [0..3, 0..1] of single; tex_coords: array [0..2, 0..1] of single;
colors: array[0..3] of TRGBA; colors: array[0..2] of TRGBA;
end; end;
TMaterial = record TMaterial = record
@ -28,7 +28,7 @@ type
end; end;
TVertexList = specialize TGenericStructList<TVertex>; TVertexList = specialize TGenericStructList<TVertex>;
TPolyList = specialize TGenericStructList<TQuad>; TTriangleList = specialize TGenericStructList<TTriangle>;
TMaterialArray = array of TMaterial; TMaterialArray = array of TMaterial;
TRenderOpts = record TRenderOpts = record
@ -45,8 +45,7 @@ type
TModel = class TModel = class
private private
_vertices: TVertexList; _vertices: TVertexList;
_triangles: TPolyList; _triangles: TTriangleList;
_quads: TPolyList;
_materials: array of TMaterial; _materials: array of TMaterial;
_hmt: THmtFile; _hmt: THmtFile;
_hmt_loaded: boolean; _hmt_loaded: boolean;
@ -56,10 +55,6 @@ type
public public
destructor Destroy; override; destructor Destroy; override;
procedure Load(const hob_filename, hmt_filename: string); procedure Load(const hob_filename, hmt_filename: string);
function GetTriangles: TPolyList;
function GetQuads: TPolyList;
function GetVertices: TVertexList;
function GetMaterials: TMaterialArray;
procedure InitGL; procedure InitGL;
procedure DrawGL(opts: TRenderOpts); procedure DrawGL(opts: TRenderOpts);
end; end;
@ -83,13 +78,30 @@ begin
end; end;
{ rearrange HOB data, triangulate quads
}
procedure TModel.HobReadMesh(const mesh: THobObject); procedure TModel.HobReadMesh(const mesh: THobObject);
var var
i, k, idx: Integer; i: Integer;
fg: THobFaceGroup; fg: THobFaceGroup;
v: TVertex; v: TVertex;
group_vertices: TVertexList; group_vertices: TVertexList;
quad: TQuad; triangle: TTriangle;
function InitVertex(face: THobFace; offset: integer): TTriangle;
var
i, k: Integer;
begin
for i := 0 to 2 do begin
k := (i + offset) and $3;
result.vertices[i] := group_vertices[face.indices[k]];
result.colors[i] := face.vertex_colors[k];
result.tex_coords[i, 0] := FixUvRange(face.tex_coords[k].u);
result.tex_coords[i, 1] := FixUvRange(face.tex_coords[k].v);
end;
result.material_index := face.material_index;
end;
begin begin
group_vertices := TVertexList.Create; group_vertices := TVertexList.Create;
for fg in mesh.face_groups do begin for fg in mesh.face_groups do begin
@ -104,21 +116,13 @@ begin
_vertices.Add(v); _vertices.Add(v);
group_vertices.Add(v); group_vertices.Add(v);
end; end;
for i := 0 to fg.face_count - 1 do begin for i := 0 to fg.face_count - 1 do begin
for k := 0 to fg.faces[i].ftype - 1 do begin triangle := InitVertex(fg.faces[i], 0);
idx := fg.faces[i].indices[k]; _triangles.Add(triangle);
quad.vertices[k] := group_vertices[idx]; if fg.faces[i].ftype <> 3 then begin
quad.colors[k] := fg.faces[i].vertex_colors[k]; triangle := InitVertex(fg.faces[i], 2);
_triangles.Add(triangle);
quad.material_index := fg.faces[i].material_index;
quad.tex_coords[k, 0] := FixUvRange(fg.faces[i].tex_coords[k].u);
quad.tex_coords[k, 1] := FixUvRange(fg.faces[i].tex_coords[k].v);
end; end;
if fg.faces[i].ftype = 3 then
_triangles.Add(quad)
else
_quads.Add(quad);
end; end;
group_vertices.Clear; group_vertices.Clear;
end; end;
@ -135,7 +139,7 @@ begin
for i := 0 to hob.obj_count - 1 do for i := 0 to hob.obj_count - 1 do
HobReadMesh(hob.objects[i]); HobReadMesh(hob.objects[i]);
WriteLn('vertices: ', _vertices.Count); WriteLn('vertices: ', _vertices.Count);
WriteLn('faces (tri/quad): ', _triangles.Count + _quads.Count, _triangles.Count:6, _quads.Count:6); WriteLn('faces (triangulated): ', _triangles.Count);
end; end;
@ -184,8 +188,7 @@ end;
procedure TModel.Load(const hob_filename, hmt_filename: string); procedure TModel.Load(const hob_filename, hmt_filename: string);
begin begin
_vertices := TVertexList.Create; _vertices := TVertexList.Create;
_triangles := TPolyList.Create; _triangles := TTriangleList.Create;
_quads := TPolyList.Create;
WriteLn('Loading mesh file ', hob_filename); WriteLn('Loading mesh file ', hob_filename);
HobRead(hob_filename); HobRead(hob_filename);
if FileExists(hmt_filename) then begin if FileExists(hmt_filename) then begin
@ -197,26 +200,6 @@ begin
end; end;
end; end;
function TModel.GetTriangles: TPolyList;
begin
result := _triangles;
end;
function TModel.GetQuads: TPolyList;
begin
result := _quads;
end;
function TModel.GetVertices: TVertexList;
begin
result := _vertices;
end;
function TModel.GetMaterials: TMaterialArray;
begin
result := _materials;
end;
procedure pnm_save(const fname: string; const p: pbyte; const w, h: integer); procedure pnm_save(const fname: string; const p: pbyte; const w, h: integer);
var var
f: file; f: file;
@ -281,36 +264,29 @@ end;
procedure TModel.DrawGL(opts: TRenderOpts); procedure TModel.DrawGL(opts: TRenderOpts);
var var
verts: TVertexList;
vert: TVertex; vert: TVertex;
polygons: TPolyList;
i: integer; i: integer;
mats: array of TMaterial;
procedure DrawPoly(quad: TQuad; elements: integer); procedure DrawTri(tri: TTriangle);
var var
mat: TMaterial; mat: TMaterial;
k: Integer; k: Integer;
begin begin
if _hmt_loaded then begin if _hmt_loaded then begin
mat := mats[quad.material_index]; mat := _materials[tri.material_index];
if mat.has_texture then begin if mat.has_texture then begin
glEnable(GL_TEXTURE_2D); glEnable(GL_TEXTURE_2D);
glBindTexture(GL_TEXTURE_2D, mat.gl_tex_id); glBindTexture(GL_TEXTURE_2D, mat.gl_tex_id);
end else end else
glDisable(GL_TEXTURE_2D); glDisable(GL_TEXTURE_2D);
end; end;
glBegin(GL_TRIANGLES);
if elements = 3 then for k := 0 to 2 do begin
glBegin( GL_TRIANGLES )
else
glBegin( GL_QUADS );
for k := 0 to elements - 1 do begin
if opts.vcolors then if opts.vcolors then
glColor4ubv(@quad.colors[k]); glColor4ubv(@tri.colors[k]);
if opts.textures then if opts.textures then
glTexCoord2fv(@quad.tex_coords[k, 0]); glTexCoord2fv(@tri.tex_coords[k, 0]);
glVertex3fv(@quad.vertices[k]); glVertex3fv(@tri.vertices[k]);
end; end;
glEnd; glEnd;
end; end;
@ -323,26 +299,18 @@ begin
glDisable(GL_TEXTURE_2D); glDisable(GL_TEXTURE_2D);
if opts.points then begin if opts.points then begin
verts := GetVertices;
glBegin( GL_POINTS ); glBegin( GL_POINTS );
glColor3f(0, 1, 0); glColor3f(0, 1, 0);
for i := 0 to verts.Count - 1 do begin for i := 0 to _vertices.Count - 1 do begin
vert := verts[i]; vert := _vertices[i];
glVertex3fv(@vert); glVertex3fv(@vert);
end; end;
glEnd; glEnd;
end; end;
glColor3f(1, 1, 1); glColor3f(1, 1, 1);
mats := GetMaterials; for i := 0 to _triangles.Count - 1 do
DrawTri(_triangles[i]);
polygons := GetTriangles;
for i := 0 to polygons.Count - 1 do
DrawPoly(polygons[i], 3);
polygons := GetQuads;
for i := 0 to polygons.Count - 1 do
DrawPoly(polygons[i], 4);
end; end;
end. end.