mirror of
https://github.com/dpethes/rerogue.git
synced 2025-06-07 18:58:32 +02:00
model_viewer: Allow viewing/selecting objects within a HOB
This commit is contained in:
Ben Champion
parent
c43e0fe4d6
commit
56d6dce408
@ -30,11 +30,14 @@ type
|
||||
|
||||
TVertexList = specialize TVector<TVertex>;
|
||||
TTriangleList = specialize TVector<TTriangle>;
|
||||
TTriangleListList = specialize TVector<TTriangleList>;
|
||||
TTriangleListListList = specialize TVector<TTriangleListList>;
|
||||
TMaterialArray = array of TMaterial;
|
||||
|
||||
TRenderOpts = record
|
||||
fg_to_draw: integer;
|
||||
fg_all: boolean;
|
||||
obj_to_draw: integer;
|
||||
wireframe: boolean;
|
||||
points: boolean;
|
||||
vcolors: boolean;
|
||||
@ -52,8 +55,8 @@ type
|
||||
TModel = class
|
||||
private
|
||||
_vertices: TVertexList;
|
||||
_triangles: array of TTriangleList;
|
||||
_materials: array of TMaterial;
|
||||
_triangles: TTriangleListListList;
|
||||
_materials: TMaterialArray;
|
||||
_hmt: THmtFile;
|
||||
_hmt_loaded: boolean;
|
||||
procedure HmtRead(stream: TMemoryStream);
|
||||
@ -98,6 +101,7 @@ var
|
||||
triangle: TTriangle;
|
||||
fg_idx: integer;
|
||||
tris: TTriangleList;
|
||||
mesh_tris: TTriangleListList;
|
||||
last_idx: integer;
|
||||
|
||||
function InitVertex(face: THobFace; offset: integer): TTriangle;
|
||||
@ -116,7 +120,7 @@ var
|
||||
|
||||
begin
|
||||
group_vertices := TVertexList.Create;
|
||||
setlength(_triangles, Length(mesh.face_groups));
|
||||
mesh_tris := TTriangleListList.Create;
|
||||
fg_idx := 0;
|
||||
last_idx:=0;
|
||||
for fg in mesh.face_groups do begin
|
||||
@ -136,7 +140,7 @@ begin
|
||||
v.y := -v.y;
|
||||
v.x := -v.x;
|
||||
|
||||
_vertices.PushBack(v);
|
||||
_vertices.PushBack(v); // TODO(?): _vertices per object (not all)
|
||||
group_vertices.PushBack(v);
|
||||
end;
|
||||
tris := TTriangleList.Create;
|
||||
@ -148,12 +152,13 @@ begin
|
||||
tris.PushBack(triangle);
|
||||
end;
|
||||
end;
|
||||
_triangles[fg_idx] := tris;
|
||||
mesh_tris.PushBack(tris);
|
||||
fg_idx += 1;
|
||||
group_vertices.Clear;
|
||||
last_idx:=fg.fg_group_id;
|
||||
end;
|
||||
group_vertices.Free;
|
||||
_triangles.PushBack(mesh_tris);
|
||||
end;
|
||||
|
||||
|
||||
@ -215,11 +220,15 @@ end;
|
||||
|
||||
destructor TModel.Destroy;
|
||||
var
|
||||
t: TTriangleList;
|
||||
t: TTriangleListList;
|
||||
tt: TTriangleList;
|
||||
begin
|
||||
inherited Destroy;
|
||||
for t in _triangles do
|
||||
for t in _triangles do begin
|
||||
for tt in t do
|
||||
tt.Free;
|
||||
t.Free;
|
||||
end;
|
||||
_triangles := nil;
|
||||
if _hmt_loaded then
|
||||
DeallocHmt(_hmt);
|
||||
@ -230,7 +239,7 @@ end;
|
||||
procedure TModel.Load(hob, hmt: TMemoryStream);
|
||||
begin
|
||||
_vertices := TVertexList.Create;
|
||||
//_triangles := TTriangleList.Create;
|
||||
_triangles := TTriangleListListList.Create;
|
||||
WriteLn('Loading mesh file');
|
||||
HobRead(hob);
|
||||
WriteLn('Loading material file');
|
||||
@ -307,7 +316,7 @@ end;
|
||||
procedure TModel.DrawGL(var opts: TRenderOpts);
|
||||
var
|
||||
vert: TVertex;
|
||||
i, k: integer;
|
||||
i, j, k: integer;
|
||||
triangle_count: integer = 0;
|
||||
|
||||
procedure DrawTri(tri: TTriangle);
|
||||
@ -351,20 +360,22 @@ begin
|
||||
end;
|
||||
|
||||
glColor3f(1, 1, 1);
|
||||
|
||||
if _triangles.Size > 0 then begin
|
||||
j := min(integer(opts.obj_to_draw), integer(_triangles.Size - 1));
|
||||
opts.obj_to_draw := j; // clip
|
||||
if _triangles[j].Size > 0 then begin
|
||||
if opts.fg_all then begin
|
||||
for k := 0 to Length(_triangles) - 1 do begin
|
||||
if _triangles[k].Size > 0 then
|
||||
for i := 0 to _triangles[k].Size - 1 do
|
||||
DrawTri(_triangles[k][i]);
|
||||
end;
|
||||
for k := 0 to _triangles[j].Size - 1 do
|
||||
if _triangles[j][k].Size > 0 then
|
||||
for i := 0 to _triangles[j][k].Size - 1 do
|
||||
DrawTri(_triangles[j][k][i]);
|
||||
end
|
||||
else begin
|
||||
k := min(opts.fg_to_draw, Length(_triangles) - 1);
|
||||
k := min(integer(opts.fg_to_draw), integer(_triangles[j].Size - 1));
|
||||
opts.fg_to_draw := k; //clip
|
||||
if _triangles[k].Size > 0 then
|
||||
for i := 0 to _triangles[k].Size - 1 do
|
||||
DrawTri(_triangles[k][i]);
|
||||
if _triangles[j][k].Size > 0 then
|
||||
for i := 0 to _triangles[j][k].Size - 1 do
|
||||
DrawTri(_triangles[j][k][i]);
|
||||
end;
|
||||
|
||||
if opts.wireframe then
|
||||
@ -372,11 +383,14 @@ begin
|
||||
|
||||
ImGui.Begin_('Mesh');
|
||||
ImGui.Text('triangles: %d (vertices: %d)', [triangle_count, _vertices.Size]);
|
||||
ImGui.Text('object: %d / %d', [opts.obj_to_draw + 1, _triangles.Size]);
|
||||
if opts.fg_all then
|
||||
ImGui.Text('facegroups: %d', [Length(_triangles)])
|
||||
ImGui.Text('facegroups: %d', [_triangles[opts.obj_to_draw].Size])
|
||||
else
|
||||
ImGui.Text('facegroup: %d / %d', [opts.fg_to_draw + 1, Length(_triangles)]);
|
||||
ImGui.Text('facegroup: %d / %d', [opts.fg_to_draw + 1, _triangles[opts.obj_to_draw].Size]);
|
||||
ImGui.End_;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
@ -434,10 +448,12 @@ begin
|
||||
scaling_factor := 1;
|
||||
//scaling_factor := DesiredUnitSize / GetMaxCoord;
|
||||
|
||||
// just export first object for now -- TODO: allow object selection later
|
||||
|
||||
//vertex pass
|
||||
for k := 0 to Length(_triangles) - 1 do
|
||||
for i := 0 to _triangles[k].Size - 1 do begin
|
||||
face := _triangles[k][i];
|
||||
for k := 0 to _triangles[0].Size - 1 do
|
||||
for i := 0 to _triangles[0][k].Size - 1 do begin
|
||||
face := _triangles[0][k][i];
|
||||
for vt in face.vertices do begin
|
||||
x := (vt.x) * scaling_factor;
|
||||
y := (vt.y) * scaling_factor;
|
||||
@ -447,9 +463,9 @@ begin
|
||||
end;
|
||||
|
||||
//uv pass
|
||||
for k := 0 to Length(_triangles) - 1 do
|
||||
for i := 0 to _triangles[k].Size - 1 do begin
|
||||
face := _triangles[k][i];
|
||||
for k := 0 to _triangles[0].Size - 1 do
|
||||
for i := 0 to _triangles[0][k].Size - 1 do begin
|
||||
face := _triangles[0][k][i];
|
||||
for j := 0 to 2 do begin
|
||||
u := face.tex_coords[j, 0];
|
||||
v := face.tex_coords[j, 1];
|
||||
@ -462,14 +478,14 @@ begin
|
||||
vertex_counter := 1;
|
||||
last_material_index := -1;
|
||||
|
||||
for k := 0 to Length(_triangles) - 1 do begin
|
||||
if _triangles[k].Size = 0 then
|
||||
for k := 0 to _triangles[0].Size - 1 do begin
|
||||
if _triangles[0][k].Size = 0 then
|
||||
continue;
|
||||
|
||||
writeln(objfile, 'g ', k);
|
||||
|
||||
for i := 0 to _triangles[k].Size - 1 do begin
|
||||
face := _triangles[k][i];
|
||||
for i := 0 to _triangles[0][k].Size - 1 do begin
|
||||
face := _triangles[0][k][i];
|
||||
|
||||
if face.material_index <> last_material_index then begin
|
||||
if face.material_index = -1 then
|
||||
|
||||
@ -236,6 +236,7 @@ begin
|
||||
|
||||
view.render.fg_all := true;
|
||||
view.render.fg_to_draw := 0;
|
||||
view.render.obj_to_draw := 0;
|
||||
view.render.wireframe := false;
|
||||
view.render.points := false;
|
||||
view.render.vcolors := true;
|
||||
@ -339,14 +340,23 @@ begin
|
||||
view.render.fg_to_draw := max(0, view.render.fg_to_draw - 1);
|
||||
SDLK_RIGHT:
|
||||
view.render.fg_to_draw += 1;
|
||||
SDLK_END:
|
||||
view.render.obj_to_draw += 1;
|
||||
SDLK_HOME:
|
||||
view.render.obj_to_draw := max(0, view.render.obj_to_draw - 1);
|
||||
|
||||
SDLK_UP:
|
||||
if (g_selected_file_idx > 0) then begin
|
||||
g_selected_file_idx -= 1;
|
||||
view.render.fg_to_draw := 0;
|
||||
view.render.obj_to_draw := 0;
|
||||
LoadMesh(g_filelist[g_selected_file_idx]);
|
||||
end;
|
||||
SDLK_DOWN:
|
||||
if (g_selected_file_idx < g_filelist.Size - 1) then begin
|
||||
g_selected_file_idx += 1;
|
||||
view.render.fg_to_draw := 0;
|
||||
view.render.obj_to_draw := 0;
|
||||
LoadMesh(g_filelist[g_selected_file_idx]);
|
||||
end;
|
||||
end;
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user