MD3 Model Loader (I need help!!!)

[Unseen Machine]

Hi folks,

So as i've got .MDL (Quake) and .MD2 (Quake II) model loaders I figured i'd move on up and do Quake III...it was all going well until i tried to use my triangle indices! I got a "Subscript out of range" error and quite rightly too as i dont think there are 10 BILLION vertices! (In my current model there is about 700'ish).

So, as i've tried everything i can think off and to no avail i need a fresh set of eyes...

Code: QB64: [Select]

1. '// MD3 Model Loader v.01
2. '// By John Onyon a.k.a Unseen Machine
3.  
4. CONST True = -1, False = 0 '// Generic valuations
5.  
6. DIM SHARED InitGL AS _BYTE, AllowGL AS _BYTE '// Generic OpenGL control variables.
7. DIM Debug AS _BYTE '// Debug mode
8.  
9. '// Set up screen
10. SCREEN _NEWIMAGE(800, 600, 32)
11. _DISPLAY
12. _DISPLAYORDER _GLRENDER , _SOFTWARE
13. _FPS 30
14.  
15. '// Flags
16. InitGL = True
17. Debug = True
18.  
19.  
20. '// Model file information
21. File$ = "3d programs\md3\Vehicle.md3"
22.  
23. '// Create the model header
24. DIM Model AS MD3
25.  
26. '// Get model header data - Gives sizes of needed arrays.
27. MD3_Load Model, File$
28.  
29. '// DIM containers
30. DIM MDL_Frame(Model.NumFrames - 1) AS MD3_Frame
31. DIM MDL_Surface(Model.NumSurfaces - 1) AS MD3_Surface
32.  
33. '// Open the file
34. FFile% = FREEFILE
35. OPEN File$ FOR BINARY AS #FFile%
36.  
37. '// Load frame data
38. BytePos& = Model.FrameOffset + 1
39. FOR i% = 0 TO Model.NumFrames - 1
40.  GET #FFile%, BytePos&, MDL_Frame(i%)
41.  BytePos& = BytePos& + LEN(MDL_Frame(0))
42. NEXT
43.  
44. '// Load surface (mesh) data
45. BytePos& = Model.SurfaceOffset + 1
46. FOR i% = 0 TO Model.NumSurfaces - 1
47.  GET #FFile%, BytePos&, MDL_Surface(i%)
48.  NumTris& = NumTris& + MDL_Surface(i%).Triangles '// Count how many triangles in total
49.  BytePos& = BytePos& + MDL_Surface(i%).EndOffset
50. NEXT
51.  
52. '// Load triangle data - each surface has it's own set of triangles!!! Arghh!!!
53. '// Not actual coordinates, these are indexes into the Vertex array.
54. DIM MDL_Tris(NumTris& - 1) AS MD3_Triangle '// Triangle index array
55. BytePos& = Model.SurfaceOffset + MDL_Surface(0).TriangleOffset + 1
56. FOR i% = 0 TO Model.NumSurfaces - 1
57.  FOR j& = 0 TO MDL_Surface(i%).Triangles - 1
58.   GET #FFile%, BytePos&, MDL_Tris(Tcnt&)
59.   BytePos& = BytePos& + LEN(MDL_Tris(0))
60.   Tcnt& = Tcnt& + 1
61.  NEXT
62. NEXT
63.  
64. '// Load vertex data
65. FOR i% = 0 TO Model.NumSurfaces - 1
66.  TotalVerts& = TotalVerts& + (MDL_Surface(i%).Frames * MDL_Surface(i%).Verts) '// Calculate total array size needed
67. NEXT
68. DIM MDL_Verts(TotalVerts& - 1) AS MD3_Vertex '// Vertex array (due to scaling this need dividing by 64)
69. BytePos& = Model.SurfaceOffset + MDL_Surface(0).VertOffset + 1
70. FOR i& = 0 TO TotalVerts& - 1
71.  GET #FFile%, BytePos&, MDL_Verts(i&)
72.  BytePos& = BytePos& + LEN(MDL_Verts(0))
73. NEXT
74.  
75. '// Load texture coordinates
76.  
77.  
78. '// All data should be loaded so close the model file.
79. CLOSE #FFile%
80.  
81. '// Calculate all array sizes and create _MEM block
82.  
83.  
84.  
85.  
86. '/////// Main Loop \\\\\\\
87. DO
88.  _LIMIT 30
89.  CLS
90.  
91.  IF Debug THEN
92.   PRINT Model.ID, Model.Ident
93.   PRINT Model.QPath
94.   PRINT Model.NumFrames, Model.NumTags, Model.NumSurfaces, Model.NumSkins
95.   PRINT Model.FrameOffset, Model.TagsOffset, Model.SurfaceOffset
96.   PRINT
97.   FOR i% = 0 TO Model.NumFrames - 1
98.    PRINT "Frame : ", i%
99.    PRINT MDL_Frame(i%).Min_Bounds.X, MDL_Frame(i%).Min_Bounds.Y, MDL_Frame(i%).Min_Bounds.Z
100.    PRINT MDL_Frame(i%).Max_Bounds.X, MDL_Frame(i%).Max_Bounds.Y, MDL_Frame(i%).Max_Bounds.Z
101.    PRINT "Name : ", MDL_Frame(i%).Name
102.   NEXT
103.   PRINT
104.   PRINT "Surfaces : "; Model.NumSurfaces
105.   FOR i% = 0 TO Model.NumSurfaces - 1
106.    PRINT MDL_Surface(i%).ID, MDL_Surface(i%).Name, MDL_Surface(i%).Triangles
107.    PRINT
108.   NEXT
109.   PRINT
110.   PRINT "Total triangles : "; Tcnt&
111.   PRINT "Total vertices : "; TotalVerts&
112.  
113.   FOR j& = 0 TO Tcnt& - 1
114.    'PRINT MDL_Tris(j&).Vert1, MDL_Tris(j&).Vert2, MDL_Tris(j&).Vert3
115.   NEXT
116.  
117.   FOR i& = 0 TO TotalVerts& - 1
118.    ' PRINT MDL_Verts(i&).X / 64, MDL_Verts(i&).Y / 64, MDL_Verts(i&).Z / 64
119.    ' IF MDL_Verts(i&).Y THEN PRINT MDL_Verts(i&).Y / 64
120.   NEXT
121.  
122.  END IF
123.  
124.  _DISPLAY
125. LOOP
126.  
127. '//////////////////////////////////
128.  
129. TYPE MD3
130.  ID AS STRING * 4
131.  Ident AS LONG
132.  QPath AS STRING * 64
133.  Flags AS LONG
134.  NumFrames AS LONG
135.  NumTags AS LONG
136.  NumSurfaces AS LONG
137.  NumSkins AS LONG
138.  FrameOffset AS LONG
139.  TagsOffset AS LONG
140.  SurfaceOffset AS LONG
141.  EOFOffset AS LONG
142. END TYPE
143.  
144. TYPE MD3_Vector
145.  X AS _FLOAT
146.  Y AS _FLOAT
147.  Z AS _FLOAT
148. END TYPE
149.  
150. TYPE MD3_Frame
151.  Min_Bounds AS MD3_Vector
152.  Max_Bounds AS MD3_Vector
153.  Local_Origin AS MD3_Vector
154.  Radius AS _FLOAT
155.  Name AS STRING * 16
156. END TYPE
157.  
158. TYPE MD3_Tag
159.  Name AS STRING * 64
160.  Origin AS MD3_Vector
161.  Axis1 AS MD3_Vector
162.  Axis2 AS MD3_Vector
163.  Axis3 AS MD3_Vector
164. END TYPE
165.  
166. TYPE MD3_Surface
167.  ID AS STRING * 4
168.  Name AS STRING * 64
169.  Flags AS LONG
170.  Frames AS LONG
171.  Shaders AS LONG
172.  Verts AS LONG
173.  Triangles AS LONG
174.  TriangleOffset AS LONG
175.  ShaderOffset AS LONG
176.  TextureOffset AS LONG
177.  VertOffset AS LONG
178.  EndOffset AS LONG
179. END TYPE
180.  
181. TYPE MD3_Vertex
182.  X AS INTEGER
183.  Y AS INTEGER
184.  Z AS INTEGER
185.  Normal AS INTEGER
186. END TYPE
187.  
188. TYPE MD3_TexCoord
189.  X AS _FLOAT
190.  Y AS _FLOAT
191. END TYPE
192.  
193. TYPE MD3_Triangle
194.  Vert1 AS LONG
195.  Vert2 AS LONG
196.  Vert3 AS LONG
197. END TYPE
198.  
199. TYPE MD3_Shader
200.  Name AS STRING * 64
201.  Index AS LONG
202. END TYPE
203.  
204. '//////////////////////////////////
205.  
206. SUB MD3_Load (MDL AS MD3, File$)
207.  FFile% = FREEFILE
208.  OPEN File$ FOR BINARY AS #FFile%
209.  GET #FFile%, 1, MDL
210.  CLOSE FFile%
211. END SUB
212.  
213. '//////////////////////////////////
214.  
215. SUB _GL
216.  IF InitGL THEN
217.   InitGL = False
218.   AllowGL = True
219.  ELSE
220.   IF AllowGL THEN
221.    '//RENDER
222.   END IF
223.  END IF
224. END SUB
225.  
226.  

Please note the File$ reference at the start of the code (change to where you put the model).

Any ideas on where i might be going wrong would be great!

Thanks

Unseen

[Unseen Machine]

I've sorted it, seems the md3 file i was using was a bit weird, thanks though forlks.

@Admin - You can delete this thread...

Unseen