03-10-2005, 11:22 AM
Hmmm.... This wont run. :???:
Code:
Type Surface_Properties
RGBA(3) as Single
Spec(3) as Single
End Type
Type Vector3DType
X as Single
Y as Single
Z as Single
End Type
Type Model_Type
Num_Verts as Integer
Num_Faces as Integer
Vec as Vector3DType
Surf as Surface_Properties
end Type
Dim Model(1 to 10) as Model_Type Ptr
Model(1)->Num_Verts = 100
Model(1)->Vec = allocate(Model(1)->Num_Verts * Len(Vector3DType))