ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/FileClasses/AKEV.pas

Comparing oup/current/FileClasses/AKEV.pas (file contents):
Revision 244 by alloc, Fri Jun 29 12:38:24 2007 UTC vs.
Revision 245 by alloc, Sat Aug 18 15:51:42 2007 UTC

#	Line 17 | Line 17 | uses
17		ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls;
18
19		procedure TFile_AKEV.InitDataFields;
20	–	var
21	–	tempi: Integer;
20		begin
21		inherited;
22	<	FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
22	>	FDataFields := TBlock.Create(Self, nil, 'Base', '', []);
23		with FDataFields do
24		begin
25	<	AddField(TFileID, $00, 'FileID', '', nil);
26	<	AddField(TLevelID, $04, 'LevelID', '', nil);
25	>	AddField(TFileID, 'FileID', '', []);
26	>	AddField(TLevelID, 'LevelID', '', []);
27	>
28	>	AddField(TLinkByID, 'PNTA-link', 'Link to the 3D Point Array', ['PNTA']);
29	>	AddField(TLinkByID, 'PLEA-link', 'Link to the Plane Equation Array', ['PLEA']);
30	>	AddField(TLinkByID, 'TXCA-link', 'Link to the Texture Coordinate Array', ['TXCA']);
31	>	AddField(TLinkByID, 'AGQG-link', 'Link to the Gunk Quad General Array', ['AGQG']);
32	>
33	>	AddField(TLinkByID, 'AGQR-link', 'Link to the Gunk Quad Render Array', ['AGQR']);
34	>	AddField(TLinkByID, 'AGQC-link', 'Link to the Gunk Quad Collision Array', ['AGQC']);
35	>	AddField(TLinkByID, 'AGDB-link', 'Link to the Gunk Quad Debug Array', ['AGDB']);
36	>	AddField(TLinkByID, 'TXMA-link', 'Link to the Texture Map Array', ['TXMA']);
37	>
38	>	AddField(TLinkByID, 'AKVA-link', 'Link to the BNV Node Array', ['AKVA']);
39	>	AddField(TLinkByID, 'AKBA-link', 'Link to the Side Array', ['AKBA']);
40	>	AddField(TLinkByID, 'IDXA-link', 'Link to the Index Array', ['IDXA']);
41	>	AddField(TLinkByID, 'IDXA-link', 'Link to the Index Array', ['IDXA']);
42	>
43	>	AddField(TLinkByID, 'AKBP-link', 'Link to the BSP Node Array', ['AKBP']);
44	>	AddField(TLinkByID, 'ABNA-link', 'Link to the BSP Tree Node Array', ['ABNA']);
45	>	AddField(TLinkByID, 'AKOT-link', 'Link to the Oct Tree', ['AKOT']);
46	>	AddField(TLinkByID, 'AKAA-link', 'Link to the Adjacency Array', ['AKAA']);
47	>
48	>	AddField(TLinkByID, 'AKDA-link', 'Link to the Door Frame Array', ['AKDA']);
49	>
50	>
51	>	AddField(TFloat, 'Neg. x-coordinate', 'Maximal negative x-coordinate of the level model', []);
52	>	AddField(TFloat, 'Neg. y-coordinate', 'Maximal negative y-coordinate of the level model', []);
53	>	AddField(TFloat, 'Neg. z-coordinate', 'Maximal negative z-coordinate of the level model', []);
54	>
55	>	AddField(TFloat, 'Pos. x-coordinate', 'Maximal positive x-coordinate of the level model', []);
56	>	AddField(TFloat, 'Pos. y-coordinate', 'Maximal positive y-coordinate of the level model', []);
57	>	AddField(TFloat, 'Pos. z-coordinate', 'Maximal positive z-coordinate of the level model', []);
58	>
59	>	AddField(TUnused, 'Not used', '', [1024]);
60	>	AddField(TFloat, 'Unknown', 'Unknown; maybe the tolerance', []);
61		end;
62	+	FDataFields.Update(0, -1);
63		FFileStream.Free;
64		FFileStream := nil;
65		end;

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines (old)
>	Changed lines (new)