|
|
@@ -2,32 +2,26 @@
|
|
|
|
|
|
Type aiMatrix3x3
|
|
|
|
|
|
- Field a1:Float , a2:Float , a3:Float
|
|
|
- Field b1:Float , b2:Float , b3:Float
|
|
|
- Field c1:Float , c2:Float , c3:Float
|
|
|
+ Field a1:Float, a2:Float, a3:Float
|
|
|
+ Field b1:Float, b2:Float, b3:Float
|
|
|
+ Field c1:Float, c2:Float, c3:Float
|
|
|
|
|
|
End Type
|
|
|
|
|
|
Type aiMatrix4x4
|
|
|
|
|
|
- Field a1:Float , a2:Float , a3:Float , a4:Float
|
|
|
- Field b1:Float , b2:Float , b3:Float , b4:Float
|
|
|
- Field c1:Float , c2:Float , c3:Float , c4:Float
|
|
|
- Field d1:Float , d2:Float , d3:Float , d4:Float
|
|
|
+ Field a1:Float, a2:Float, a3:Float, a4:Float
|
|
|
+ Field b1:Float, b2:Float, b3:Float, b4:Float
|
|
|
+ Field c1:Float, c2:Float, c3:Float, c4:Float
|
|
|
+ Field d1:Float, d2:Float, d3:Float, d4:Float
|
|
|
|
|
|
Field heading:Float
|
|
|
Field attitude:Float
|
|
|
Field bank:Float
|
|
|
|
|
|
- Field Tx:Float
|
|
|
- Field Ty:Float
|
|
|
- Field Tz:Float
|
|
|
- Field Sx:Float
|
|
|
- Field Sy:Float
|
|
|
- Field Sz:Float
|
|
|
- Field Rx:Float
|
|
|
- Field Ry:Float
|
|
|
- Field Rz:Float
|
|
|
+ Field Tx:Float, Ty:Float, Tz:Float
|
|
|
+ Field Sx:Float, Sy:Float, Sz:Float
|
|
|
+ Field Rx:Float, Ry:Float, Rz:Float
|
|
|
|
|
|
Function Create:aiMatrix4x4(p:Float Ptr)
|
|
|
|
|
|
@@ -49,24 +43,24 @@ Type aiMatrix4x4
|
|
|
m.b2 = p[5]
|
|
|
m.b3 = p[6]
|
|
|
m.b4 = p[7]
|
|
|
-
|
|
|
+
|
|
|
m.c1 = p[8]
|
|
|
m.c2 = p[9]
|
|
|
m.c3 = p[10]
|
|
|
m.c4 = p[11]
|
|
|
-
|
|
|
+
|
|
|
m.d1 = p[12]
|
|
|
m.d2 = p[13]
|
|
|
m.d3 = p[14]
|
|
|
m.d4 = p[15]
|
|
|
|
|
|
- Return m
|
|
|
+ Return m
|
|
|
|
|
|
End Function
|
|
|
|
|
|
Method Decompose()
|
|
|
|
|
|
- _Decompose()
|
|
|
+ _Decompose()
|
|
|
|
|
|
rx = heading
|
|
|
ry = attitude
|
|
|
@@ -80,15 +74,15 @@ Type aiMatrix4x4
|
|
|
Ty = b4
|
|
|
Tz = c4
|
|
|
|
|
|
- Sx = Sqr( a1*a1 + a2*a2 + a3*a3 )
|
|
|
- Sy = Sqr( b1*b1 + b2*b2 + b3*b3 )
|
|
|
- Sz = Sqr( c1*c1 + c2*c2 + c3*c3 )
|
|
|
+ Sx = Sqr(a1*a1 + a2*a2 + a3*a3)
|
|
|
+ Sy = Sqr(b1*b1 + b2*b2 + b3*b3)
|
|
|
+ Sz = Sqr(c1*c1 + c2*c2 + c3*c3)
|
|
|
|
|
|
- Local D:Float = a1 * (b2 * c3 - c2 * b3) - b1 * (a2 * c3 - c2 * a3) + c1 * (a2 * b3 - b2 * a3);
|
|
|
+ Local D:Float = a1 * (b2 * c3 - c2 * b3) - b1 * (a2 * c3 - c2 * a3) + c1 * (a2 * b3 - b2 * a3)
|
|
|
|
|
|
- Sx:* Sgn( D )
|
|
|
- Sy:* Sgn( D )
|
|
|
- Sz:* Sgn( D )
|
|
|
+ Sx:* Sgn(D)
|
|
|
+ Sy:* Sgn(D)
|
|
|
+ Sz:* Sgn(D)
|
|
|
|
|
|
Local rm:aiMatrix3x3 = New aiMatrix3x3
|
|
|
|
|
|
@@ -97,23 +91,23 @@ Type aiMatrix4x4
|
|
|
rm.c1 = c1 ; rm.c2 = c2 ; rm.c3 = c3
|
|
|
|
|
|
If sx Then
|
|
|
- rm.a1:/sx
|
|
|
- rm.a2:/sx
|
|
|
- rm.a3:/sx
|
|
|
+ rm.a1:/ sx
|
|
|
+ rm.a2:/ sx
|
|
|
+ rm.a3:/ sx
|
|
|
EndIf
|
|
|
If sy Then
|
|
|
- rm.b1:/sy
|
|
|
- rm.b2:/sy
|
|
|
- rm.b3:/sy
|
|
|
+ rm.b1:/ sy
|
|
|
+ rm.b2:/ sy
|
|
|
+ rm.b3:/ sy
|
|
|
EndIf
|
|
|
If sz Then
|
|
|
- rm.c1:/sz
|
|
|
- rm.c2:/sz
|
|
|
- rm.c3:/sz
|
|
|
+ rm.c1:/ sz
|
|
|
+ rm.c2:/ sz
|
|
|
+ rm.c3:/ sz
|
|
|
EndIf
|
|
|
|
|
|
If (b1 > 0.998) ' singularity at north pole
|
|
|
- heading = ATan2(rm.a3,rm.c3)
|
|
|
+ heading = ATan2(rm.a3, rm.c3)
|
|
|
attitude = 90 'Pi/2
|
|
|
bank = 0
|
|
|
'DebugLog "' singularity at north pole **"
|
|
|
@@ -121,15 +115,15 @@ Type aiMatrix4x4
|
|
|
EndIf
|
|
|
|
|
|
If (b1 < -0.998) ' singularity at south pole
|
|
|
- heading = ATan2(rm.a3,rm.c3)
|
|
|
- attitude = - 90 '-Pi/2
|
|
|
+ heading = ATan2(rm.a3, rm.c3)
|
|
|
+ attitude = -90 '-Pi/2
|
|
|
bank = 0
|
|
|
'DebugLog "' singularity at south pole **"
|
|
|
Return
|
|
|
EndIf
|
|
|
|
|
|
- heading = ATan2(-rm.c1,rm.a1)
|
|
|
- bank = ATan2(-rm.b3,rm.b2)
|
|
|
+ heading = ATan2(-rm.c1, rm.a1)
|
|
|
+ bank = ATan2(-rm.b3, rm.b2)
|
|
|
attitude = ASin(rm.b1)
|
|
|
|
|
|
End Method
|
|
|
@@ -179,7 +173,7 @@ Type aiMaterial
|
|
|
Method GetAlpha:Float()
|
|
|
|
|
|
Local values:Float[] = GetMaterialFloatArray(AI_MATKEY_OPACITY)
|
|
|
- If values.length Then
|
|
|
+ If values.length
|
|
|
Return values[0]
|
|
|
Else
|
|
|
Return 1.0
|
|
|
@@ -190,7 +184,7 @@ Type aiMaterial
|
|
|
Method GetShininess:Float()
|
|
|
|
|
|
Local values:Float[] = GetMaterialFloatArray(AI_MATKEY_SHININESS)
|
|
|
- If values.length Then
|
|
|
+ If values.length
|
|
|
Return values[0]
|
|
|
Else
|
|
|
Return 1.0
|
|
|
@@ -236,18 +230,19 @@ Type aiMaterial
|
|
|
Method GetPropertyNames:String[]()
|
|
|
|
|
|
Local names:String[NumProperties]
|
|
|
- For Local i:Int = 0 To NumProperties - 1
|
|
|
-
|
|
|
- names[i] = Properties[i].mKey
|
|
|
- 'DebugLog "Property name: " + Properties[i].mKey
|
|
|
- 'DebugLog "Property type: " + Properties[i].mType
|
|
|
- 'DebugLog "Property Index " + Properties[i].Index
|
|
|
- 'DebugLog "Property length " + Properties[i].DataLength
|
|
|
- 'DebugLog "Property Semantic: " + Properties[i].Semantic
|
|
|
+ For Local id:Int = 0 To NumProperties - 1
|
|
|
+
|
|
|
+ names[id] = Properties[id].mKey
|
|
|
+
|
|
|
+ DebugLog "Property name: " + Properties[id].mKey
|
|
|
+ DebugLog "Property type: " + Properties[id].mType
|
|
|
+ DebugLog "Property Index " + Properties[id].Index
|
|
|
+ DebugLog "Property length " + Properties[id].DataLength
|
|
|
+ DebugLog "Property Semantic: " + Properties[id].Semantic
|
|
|
|
|
|
- Select Properties[i].mType
|
|
|
+ Select Properties[id].mType
|
|
|
Case aiPTI_Float
|
|
|
- For Local i:Int = 0 Until Properties[i].DataLength / 4
|
|
|
+ For Local i:Int = 0 Until (Properties[id].DataLength / 4)
|
|
|
' DebugLog "FLOAT: " + Properties[i].GetFloatValue(i)
|
|
|
Next
|
|
|
Case aiPTI_String
|
|
|
@@ -259,6 +254,7 @@ Type aiMaterial
|
|
|
End Select
|
|
|
|
|
|
Next
|
|
|
+
|
|
|
Return names
|
|
|
|
|
|
End Method
|
|
|
@@ -267,14 +263,14 @@ Type aiMaterial
|
|
|
|
|
|
Method GetMaterialString:String(Key:String)
|
|
|
|
|
|
- Local s:Byte[4+MAXLEN]
|
|
|
+ Local s:Byte[MAXLEN + (4 * PAD)]
|
|
|
'Local kp:Byte Ptr = Key.ToCstring()
|
|
|
|
|
|
- Local retVal:Int = aiGetMaterialString(pMaterial,Key,0,0,Varptr s[0])
|
|
|
+ Local retVal:Int = aiGetMaterialString(pMaterial, Key, 0, 0, Varptr s[0])
|
|
|
'MemFree kp
|
|
|
|
|
|
If retVal = AI_SUCCESS
|
|
|
- Return String.FromCString(Varptr s[4])
|
|
|
+ Return String.FromCString(Varptr s[4 * PAD])
|
|
|
'Else
|
|
|
'DebugLog "mat. aiGetMaterialString failed with code " + retVal
|
|
|
EndIf
|
|
|
@@ -284,18 +280,18 @@ Type aiMaterial
|
|
|
Method GetMaterialColor:Float[](Key:String)
|
|
|
|
|
|
Local colors:Float[4]
|
|
|
- If aiGetMaterialColor(pMaterial,Key,0,0,colors) = AI_SUCCESS
|
|
|
+ If aiGetMaterialColor(pMaterial, Key, 0, 0, colors) = AI_SUCCESS
|
|
|
Return colors
|
|
|
EndIf
|
|
|
|
|
|
End Method
|
|
|
|
|
|
Method GetMaterialIntegerArray:Int[](Key:String)
|
|
|
-
|
|
|
- Local size:Int = 1024
|
|
|
+
|
|
|
+ Local size:Int = MAXLEN
|
|
|
Local values:Int[size]
|
|
|
|
|
|
- If aiGetMaterialIntegerArray(pMaterial,Key,0,0,values,Varptr size) = AI_SUCCESS
|
|
|
+ If aiGetMaterialIntegerArray(pMaterial, Key, 0, 0, values, Varptr size) = AI_SUCCESS
|
|
|
values = values[..size]
|
|
|
Return values
|
|
|
EndIf
|
|
|
@@ -304,26 +300,26 @@ Type aiMaterial
|
|
|
|
|
|
Method GetMaterialFloatArray:Float[](Key:String)
|
|
|
|
|
|
- Local size:Int = 1024
|
|
|
+ Local size:Int = MAXLEN
|
|
|
Local values:Float[size]
|
|
|
|
|
|
- If aiGetMaterialFloatArray(pMaterial,Key,0,0,values,Varptr size) = AI_SUCCESS
|
|
|
+ If aiGetMaterialFloatArray(pMaterial, Key, 0, 0, values, Varptr size) = AI_SUCCESS
|
|
|
values = values[..size]
|
|
|
Return values
|
|
|
EndIf
|
|
|
|
|
|
- End Method
|
|
|
+ End Method
|
|
|
|
|
|
- Method GetMaterialTexture:String(index:Int=0)
|
|
|
+ Method GetMaterialTexture:String(index:Int = 0)
|
|
|
|
|
|
- Local s:Byte[4+MAXLEN]
|
|
|
- Local retval:Int = aiGetMaterialTexture(pMaterial,aiTextureType_DIFFUSE,index,Varptr s[0])
|
|
|
+ Local s:Byte[MAXLEN + (4 * PAD)]
|
|
|
+ Local retval:Int = aiGetMaterialTexture(pMaterial, aiTextureType_DIFFUSE, index, Varptr s[0])
|
|
|
|
|
|
If retVal = AI_SUCCESS
|
|
|
- Return String.FromCString(Varptr s[4])
|
|
|
+ Return String.FromCString(Varptr s[4 * PAD])
|
|
|
Else
|
|
|
DebugLog "mat. GetMaterialTexture failed with code " + retVal
|
|
|
- EndIf
|
|
|
+ EndIf
|
|
|
|
|
|
End Method
|
|
|
|
|
|
@@ -337,41 +333,47 @@ Type aiMaterialProperty
|
|
|
Field Index:Int
|
|
|
Field DataLength:Int
|
|
|
Field mType:Int
|
|
|
- Field mData:Byte Ptr
|
|
|
+ Field mData:Byte Ptr
|
|
|
|
|
|
Function Create:aiMaterialProperty(pProps:Byte Ptr)
|
|
|
|
|
|
Local mp:aiMaterialProperty = New aiMaterialProperty
|
|
|
|
|
|
- mp.mKey = String.FromCString(pProps + 4)
|
|
|
+ mp.mKey = String.FromCString(pProps + (4 * PAD))
|
|
|
|
|
|
- Local pVars:Int Ptr = Int Ptr(pProps + MAXLEN + 4 )
|
|
|
+ Local pVars:Int Ptr = Int Ptr(pProps + MAXLEN + (4 * PAD))
|
|
|
|
|
|
- mp.Semantic:Int = pVars[0]
|
|
|
+ mp.Semantic = pVars[0]
|
|
|
mp.Index = pVars[1]
|
|
|
mp.DataLength = pVars[2]
|
|
|
mp.mType = pVars[3]
|
|
|
mp.mData = Byte Ptr pVars[4]
|
|
|
|
|
|
+ 'DebugLog "mp.Semantic="+mp.Semantic
|
|
|
+ 'DebugLog "mp.Index ="+mp.Index
|
|
|
+ 'DebugLog "mp.DataLength ="+mp.DataLength
|
|
|
+ 'DebugLog "mp.mType ="+mp.mType
|
|
|
+ 'DebugLog "mp.mData ="+mp.mData
|
|
|
+
|
|
|
Return mp
|
|
|
|
|
|
End Function
|
|
|
|
|
|
Method GetFloatValue:Float(index:Int)
|
|
|
|
|
|
- Return Float Ptr (mData)[index]
|
|
|
+ Return Float Ptr(mData)[index]
|
|
|
|
|
|
End Method
|
|
|
|
|
|
Method GetStringValue:String()
|
|
|
|
|
|
- Return String.FromCString(mData + 4 )
|
|
|
+ Return String.FromCString(mData + (4 * PAD))
|
|
|
|
|
|
End Method
|
|
|
|
|
|
Method GetIntegerValue:Int (index:Int)
|
|
|
|
|
|
- Return Int Ptr (mData)[index]
|
|
|
+ Return Int Ptr(mData)[index]
|
|
|
|
|
|
End Method
|
|
|
|
|
|
@@ -384,24 +386,19 @@ Type aiMaterialProperty
|
|
|
End Type
|
|
|
|
|
|
Rem
|
|
|
-bbdoc: A mesh represents a geometry Or model with a single material.
|
|
|
- about:
|
|
|
-
|
|
|
-* It usually consists of a number of vertices And a series of primitives/faces
|
|
|
-* referencing the vertices. In addition there might be a series of bones, each
|
|
|
-* of them addressing a number of vertices with a certain weight. Vertex data
|
|
|
-* is presented in channels with each channel containing a single per-vertex
|
|
|
-* information such as a set of texture coords Or a normal vector.
|
|
|
-* If a data pointer is non-Null, the corresponding data stream is present.
|
|
|
-* From C++-programs you can also use the comfort functions Has*() To
|
|
|
-* test For the presence of various data streams.
|
|
|
-*
|
|
|
-* A Mesh uses only a single material which is referenced by a material ID.
|
|
|
-* @note The mPositions member is usually Not optional. However, vertex positions
|
|
|
-* *could* be missing If the AI_SCENE_FLAGS_INCOMPLETE flag is set in
|
|
|
-* @code
|
|
|
-* aiScene::mFlags
|
|
|
-* @endcode
|
|
|
+bbdoc: A mesh represents a geometry or model with a single material.
|
|
|
+about: It usually consists of a number of vertices and a series of primitives/faces
|
|
|
+referencing the vertices. In addition there might be a series of bones, each
|
|
|
+of them addressing a number of vertices with a certain weight. Vertex data
|
|
|
+is presented in channels with each channel containing a single per-vertex
|
|
|
+information such as a set of texture coords or a normal vector.
|
|
|
+If a data pointer is non-null, the corresponding data stream is present.
|
|
|
+From C++ programs you can also use the comfort functions Has*() to
|
|
|
+test for the presence of various data streams.
|
|
|
+<br><br>
|
|
|
+A mesh uses only a single material which is referenced by a material ID.
|
|
|
+@note The mPositions member is usually not optional. However, vertex positions
|
|
|
+*could* be missing if the AI_SCENE_FLAGS_INCOMPLETE flag is set in aiScene::mFlags.
|
|
|
*/
|
|
|
EndRem
|
|
|
Type aiMesh
|
|
|
@@ -413,8 +410,8 @@ Type aiMesh
|
|
|
Field pNormals:Float Ptr
|
|
|
Field pTangents:Byte Ptr
|
|
|
Field pBitangents:Byte Ptr
|
|
|
- Field pColors:Byte Ptr[AI_MAX_NUMBER_OF_COLOR_SETS]
|
|
|
- Field pTextureCoords:Byte Ptr[AI_MAX_NUMBER_OF_TEXTURECOORDS]
|
|
|
+ Field pColors:Byte Ptr[AI_MAX_NUMBER_OF_COLOR_SETS * PAD]
|
|
|
+ Field pTextureCoords:Byte Ptr[AI_MAX_NUMBER_OF_TEXTURECOORDS * PAD]
|
|
|
Field NumUVComponents:Int[AI_MAX_NUMBER_OF_TEXTURECOORDS]
|
|
|
Field pFaces:Int Ptr
|
|
|
Field NumBones:Int
|
|
|
@@ -425,19 +422,19 @@ Type aiMesh
|
|
|
|
|
|
Method VertexX:Float(index:Int)
|
|
|
|
|
|
- Return pVertices[index*3]
|
|
|
+ Return pVertices[index * 3]
|
|
|
|
|
|
End Method
|
|
|
|
|
|
Method VertexY:Float(index:Int)
|
|
|
|
|
|
- Return pVertices[index*3+1]
|
|
|
+ Return pVertices[(index * 3) + 1]
|
|
|
|
|
|
End Method
|
|
|
|
|
|
Method VertexZ:Float(index:Int)
|
|
|
|
|
|
- Return pVertices[index*3+2]
|
|
|
+ Return pVertices[(index * 3) + 2]
|
|
|
|
|
|
End Method
|
|
|
|
|
|
@@ -445,63 +442,63 @@ Type aiMesh
|
|
|
|
|
|
Method VertexNX:Float(index:Int)
|
|
|
|
|
|
- Return pNormals[index*3]
|
|
|
+ Return pNormals[index * 3]
|
|
|
|
|
|
End Method
|
|
|
|
|
|
Method VertexNY:Float(index:Int)
|
|
|
|
|
|
- Return pNormals[index*3+1]
|
|
|
+ Return pNormals[(index * 3) + 1]
|
|
|
|
|
|
End Method
|
|
|
|
|
|
Method VertexNZ:Float(index:Int)
|
|
|
|
|
|
- Return pNormals[index*3+2]
|
|
|
+ Return pNormals[(index * 3) + 2]
|
|
|
|
|
|
End Method
|
|
|
|
|
|
' texcoords - funky :-)
|
|
|
|
|
|
- Method VertexU:Float(index:Int,coord_set:Int=0)
|
|
|
+ Method VertexU:Float(index:Int, coord_set:Int = 0)
|
|
|
|
|
|
- Return Float Ptr(pTextureCoords[coord_set])[index*3]
|
|
|
+ Return Float Ptr(pTextureCoords[coord_set])[index * 3]
|
|
|
|
|
|
End Method
|
|
|
-
|
|
|
- Method VertexV:Float(index:Int,coord_set:Int=0)
|
|
|
|
|
|
- Return Float Ptr(pTextureCoords[coord_set])[index*3 + 1]
|
|
|
+ Method VertexV:Float(index:Int, coord_set:Int = 0)
|
|
|
+
|
|
|
+ Return Float Ptr(pTextureCoords[coord_set])[(index * 3) + 1]
|
|
|
|
|
|
End Method
|
|
|
-
|
|
|
- Method VertexW:Float(index:Int,coord_set:Int=0)
|
|
|
|
|
|
- Return Float Ptr(pTextureCoords[coord_set])[index*3 + 2 ]
|
|
|
+ Method VertexW:Float(index:Int, coord_set:Int = 0)
|
|
|
+
|
|
|
+ Return Float Ptr(pTextureCoords[coord_set])[(index * 3) + 2]
|
|
|
|
|
|
End Method
|
|
|
|
|
|
- Method VertexRed:Float(index:Int,color_set:Int=0)
|
|
|
+ Method VertexRed:Float(index:Int, color_set:Int = 0)
|
|
|
|
|
|
- Return Float Ptr(pColors[color_set])[index*4]
|
|
|
+ Return Float Ptr(pColors[color_set])[index * 4]
|
|
|
|
|
|
End Method
|
|
|
|
|
|
- Method VertexGreen:Float(index:Int,color_set:Int=0)
|
|
|
+ Method VertexGreen:Float(index:Int, color_set:Int = 0)
|
|
|
|
|
|
- Return Float Ptr(pColors[color_set])[index*4 + 1]
|
|
|
+ Return Float Ptr(pColors[color_set])[(index * 4) + 1]
|
|
|
|
|
|
End Method
|
|
|
|
|
|
- Method VertexBlue:Float(index:Int,color_set:Int=0)
|
|
|
+ Method VertexBlue:Float(index:Int, color_set:Int = 0)
|
|
|
|
|
|
- Return Float Ptr(pColors[color_set])[index*4 + 2]
|
|
|
+ Return Float Ptr(pColors[color_set])[(index * 4) + 2]
|
|
|
|
|
|
End Method
|
|
|
|
|
|
- Method VertexAlpha:Float(index:Int,color_set:Int=0)
|
|
|
+ Method VertexAlpha:Float(index:Int, color_set:Int = 0)
|
|
|
|
|
|
- Return Float Ptr(pColors[color_set])[index*4 + 3]
|
|
|
+ Return Float Ptr(pColors[color_set])[(index * 4) + 3]
|
|
|
|
|
|
End Method
|
|
|
|
|
|
@@ -541,7 +538,7 @@ Type aiMesh
|
|
|
|
|
|
End Method
|
|
|
|
|
|
- Method HasVertexColors:Int( color_set:Int)
|
|
|
+ Method HasVertexColors:Int(color_set:Int)
|
|
|
|
|
|
If NumVertices <= 0 Then Return False
|
|
|
If color_set >= AI_MAX_NUMBER_OF_COLOR_SETS Then Return False
|
|
|
@@ -549,28 +546,28 @@ Type aiMesh
|
|
|
|
|
|
End Method
|
|
|
|
|
|
- Method TriangleVertex:Int(index:Int,corner:Int)
|
|
|
+ Method TriangleVertex:Int(index:Int, corner:Int)
|
|
|
|
|
|
- Local faceIndexes:Int Ptr = Int Ptr pFaces[index*2+1]
|
|
|
+ Local faceIndexes:Int Ptr = Int Ptr pFaces[((index * 2) + 1) * PAD]
|
|
|
Return faceIndexes[corner]
|
|
|
|
|
|
End Method
|
|
|
|
|
|
Method GetTriangularFaces:Int[,]()
|
|
|
|
|
|
- Local faces:Int[NumFaces,3]
|
|
|
+ Local faces:Int[NumFaces, 3]
|
|
|
Local index:Int
|
|
|
|
|
|
For Local count:Int = 0 To NumFaces - 1
|
|
|
- Local faceCount:Int = pFaces[index]
|
|
|
- Local faceIndexes:Int Ptr = Int Ptr pFaces[index+1]
|
|
|
+ Local faceCount:Int = pFaces[index * PAD]
|
|
|
+ Local faceIndexes:Int Ptr = Int Ptr pFaces[(index + 1) * PAD]
|
|
|
|
|
|
' TODO for nontriangular faces: faceCount could be other than 3
|
|
|
For Local n:Int = 0 To 2
|
|
|
- faces[count , n] = faceIndexes[n]
|
|
|
+ faces[count, n] = faceIndexes[n]
|
|
|
Next
|
|
|
|
|
|
- index:+2
|
|
|
+ index:+ 2
|
|
|
Next
|
|
|
|
|
|
Return faces
|
|
|
@@ -591,47 +588,58 @@ Type aiNode
|
|
|
Field MeshIndexes:Int[]
|
|
|
Field Parent:aiNode
|
|
|
|
|
|
- Function Create:aiNode(pointer:Byte Ptr,parent:aiNode = Null)
|
|
|
+ Function Create:aiNode(pointer:Byte Ptr, parent:aiNode = Null)
|
|
|
|
|
|
- Local n:aiNode = New aiNode
|
|
|
- n.Parent = parent
|
|
|
- n.pointer = pointer
|
|
|
- n.name = String.FromCString(pointer + 4)
|
|
|
+ Local node:aiNode = New aiNode
|
|
|
+ node.Parent = parent
|
|
|
+ node.pointer = pointer
|
|
|
|
|
|
- 'DebugLog "Nodename " + n.name
|
|
|
-
|
|
|
- n.transformation = aiMatrix4x4.Create(Float Ptr (Byte Ptr pointer + MAXLEN + 4))
|
|
|
+ node.name = String.FromCString(pointer + (4 * PAD))
|
|
|
+
|
|
|
+ DebugLog "Nodename " + node.name
|
|
|
+
|
|
|
+ node.transformation = aiMatrix4x4.Create(Float Ptr (Byte Ptr pointer + MAXLEN + (4 * PAD)))
|
|
|
|
|
|
- Local pBase:Int Ptr = Int Ptr(Byte Ptr pointer + MAXLEN + 4 + 16*4)
|
|
|
+ Local pBase:Int Ptr = Int Ptr(Byte Ptr pointer + MAXLEN + (4 * PAD) + (16 * 4))
|
|
|
+
|
|
|
+ 'For Local i:Int = 0 To 11
|
|
|
+ ' DebugLog "pBase " + i + "=" + pBase[i]
|
|
|
+ 'Next
|
|
|
|
|
|
'Rem
|
|
|
- n.NumMeshes = pBase[3]
|
|
|
+ node.NumMeshes = pBase[3 * PAD] ' int 3/6
|
|
|
|
|
|
- 'DebugLog "Mesh count for this node: " + n.NumMeshes
|
|
|
+ DebugLog "Mesh count for this node: " + node.NumMeshes
|
|
|
|
|
|
- Local pMeshIndexArray:Int Ptr = Int Ptr pBase[4]
|
|
|
+ Local pMeshIndexArray:Int Ptr = Int Ptr pBase[4 * PAD] ' ptr 4/8
|
|
|
|
|
|
- n.MeshIndexes = n.MeshIndexes[..n.NumMeshes ]
|
|
|
+ node.MeshIndexes = node.MeshIndexes[..node.NumMeshes]
|
|
|
|
|
|
- For Local i:Int = 0 To n.NumMeshes - 1
|
|
|
- n.MeshIndexes[i] = pMeshIndexArray[i]
|
|
|
+ For Local id:Int = 0 To node.NumMeshes - 1
|
|
|
+ node.MeshIndexes[id] = pMeshIndexArray[id * PAD]
|
|
|
Next
|
|
|
'End Rem
|
|
|
|
|
|
' get child nodes
|
|
|
- n.NumChildren = pBase[1]
|
|
|
+ node.NumChildren = pBase[1 * PAD] ' int 1/2
|
|
|
+
|
|
|
+ DebugLog "node.NumChildren=" + node.NumChildren
|
|
|
|
|
|
- If n.NumChildren
|
|
|
- Local pChildArray:Int Ptr = Int Ptr pBase[2]
|
|
|
+ If node.NumChildren
|
|
|
+ Local pChildArray:Int Ptr = Int Ptr pBase[2 * PAD] ' ptr 2/4
|
|
|
+
|
|
|
+ 'For Local i:Int = 0 To 11
|
|
|
+ ' DebugLog "pChildArray " + i + "=" + pChildArray[i]
|
|
|
+ 'Next
|
|
|
|
|
|
- n.Children = n.Children[..n.NumChildren]
|
|
|
+ node.Children = node.Children[..node.NumChildren]
|
|
|
|
|
|
- For Local i:Int = 0 To n.NumChildren - 1
|
|
|
- n.Children[i] = aiNode.Create(Byte Ptr pChildArray[i],n)
|
|
|
+ For Local id:Int = 0 To node.NumChildren - 1
|
|
|
+ node.Children[id] = aiNode.Create(Byte Ptr pChildArray[id * PAD], node)
|
|
|
Next
|
|
|
EndIf
|
|
|
|
|
|
- Return n
|
|
|
+ Return node
|
|
|
|
|
|
End Function
|
|
|
|
|
|
@@ -641,111 +649,157 @@ Type aiScene
|
|
|
|
|
|
Field pointer:Int Ptr
|
|
|
Field flags:Int
|
|
|
-
|
|
|
Field rootNode:aiNode
|
|
|
Field numMeshes:Int
|
|
|
Field meshes:aiMesh[]
|
|
|
Field NumMaterials:Int
|
|
|
Field materials:aiMaterial[]
|
|
|
|
|
|
- ' aiImportFileFromMemory by Happy Cat (JM) - Jan 2013
|
|
|
- Method ImportFile:Int Ptr( filename:String,readflags:Int )
|
|
|
+ Method ImportFile:Int Ptr(fileName:String, readflags:Int)
|
|
|
|
|
|
- If (Left(filename, 8) = "incbin::")
|
|
|
+ If (Left(filename, 5) = "zip::") ' load zip mesh (ram stream by Pertubatio)
|
|
|
|
|
|
- Local binName:String = Mid(filename, 9)
|
|
|
- Local binPtr:Byte Ptr = IncbinPtr(binName)
|
|
|
- Local binLen:Int = IncbinLen(binName)
|
|
|
+ Local fileStream:TStream = CreateBufferedStream(fileName)
|
|
|
+ Local bufLen:Int = StreamSize(fileStream)
|
|
|
+ Local buffer:Byte Ptr = MemAlloc(bufLen)
|
|
|
+ Local ramStream:TRamStream = CreateRamStream(buffer, bufLen, True, True)
|
|
|
+ CopyStream(fileStream, ramStream)
|
|
|
|
|
|
- If (binPtr = Null Or binLen = 0) Then Return Null
|
|
|
+ pointer = aiImportFileFromMemory(buffer, bufLen, readFlags, Right(fileName, 3))
|
|
|
|
|
|
- pointer = aiImportFileFromMemory(binPtr, binLen, readFlags, Right(fileName, 3))
|
|
|
+ MemFree(buffer)
|
|
|
+ CloseStream(fileStream)
|
|
|
+ CloseStream(ramStream)
|
|
|
+
|
|
|
+ ElseIf (Left(filename, 8) = "incbin::") ' load incbin mesh by Happy Cat - Jan 2013
|
|
|
+
|
|
|
+ Local binName:String = Mid(filename, 9)
|
|
|
+ Local buffer:Byte Ptr = IncbinPtr(binName)
|
|
|
+ Local bufLen:Int = IncbinLen(binName)
|
|
|
+ If (buffer = Null Or bufLen = 0) Then Return Null
|
|
|
+
|
|
|
+ pointer = aiImportFileFromMemory(buffer, bufLen, readFlags, Right(fileName, 3))
|
|
|
|
|
|
Else
|
|
|
- ?win32
|
|
|
+ ?win32
|
|
|
' TODO this is a fix for wavefront mtl not being found
|
|
|
' does this mess up UNC paths or something else?
|
|
|
- filename = filename.Replace("/","\")
|
|
|
+ filename = filename.Replace("/", "\")
|
|
|
?
|
|
|
- 'DebugLog "filename " + filename
|
|
|
-
|
|
|
pointer = aiImportFile(filename, readflags)
|
|
|
+
|
|
|
EndIf
|
|
|
|
|
|
If pointer <> Null
|
|
|
|
|
|
flags = pointer[0]
|
|
|
|
|
|
- rootNode = aiNode.Create(Byte Ptr pointer[1])
|
|
|
- numMeshes = pointer[2]
|
|
|
+ 'For Local n:Int = 0 To 23
|
|
|
+ ' DebugLog "pointer " + n + "=" + pointer[n]
|
|
|
+ 'Next
|
|
|
|
|
|
- Local pMeshArray:Int Ptr = Int Ptr pointer[3]
|
|
|
+ rootNode = aiNode.Create(Byte Ptr pointer[1 * PAD]) ' 1/2
|
|
|
+ numMeshes = pointer[2 * PAD] ' 2/4
|
|
|
+
|
|
|
+ Local pMeshArray:Int Ptr = Int Ptr pointer[3 * PAD] ' 3/6
|
|
|
meshes = meshes[..numMeshes]
|
|
|
|
|
|
- For Local i:Int = 0 To numMeshes - 1
|
|
|
- Local pMesh:Int Ptr = Int Ptr pMeshArray[i]
|
|
|
+ DebugLog "flags = " + flags
|
|
|
+ DebugLog "rootNode.pointer = " + rootNode.pointer
|
|
|
+ DebugLog "numMeshes = " + numMeshes ' 1/3
|
|
|
+ DebugLog "pMeshArray = " + pMeshArray ' 2/5
|
|
|
+
|
|
|
+ For Local id:Int = 0 To numMeshes - 1
|
|
|
+ Local pMesh:Int Ptr = Int Ptr pMeshArray[id * PAD]
|
|
|
+
|
|
|
+ 'For Local n:Int = 0 To 13
|
|
|
+ ' DebugLog "pmesh " + n + "=" + pMesh[n]
|
|
|
+ 'Next
|
|
|
|
|
|
- meshes[i] = New aiMesh
|
|
|
- meshes[i].PrimitiveTypes = pMesh[0]
|
|
|
- meshes[i].NumVertices = pMesh[1]
|
|
|
- meshes[i].NumFaces = pMesh[2]
|
|
|
+ meshes[id] = New aiMesh
|
|
|
+ meshes[id].PrimitiveTypes = pMesh[0]
|
|
|
+ meshes[id].NumVertices = pMesh[1]
|
|
|
+ meshes[id].NumFaces = pMesh[2]
|
|
|
|
|
|
- meshes[i].pVertices = Float Ptr pMesh[3]
|
|
|
- meshes[i].pNormals = Float Ptr pMesh[4]
|
|
|
- meshes[i].pTangents = Byte Ptr pMesh[5]
|
|
|
- meshes[i].pBitangents = Byte Ptr pMesh[6]
|
|
|
+ meshes[id].pVertices = Float Ptr pMesh[(2 * PAD) + ONE32] ' 3/4 - calculate 32/64 offsets
|
|
|
+ meshes[id].pNormals = Float Ptr pMesh[(3 * PAD) + ONE32] ' 4/6
|
|
|
+ meshes[id].pTangents = Byte Ptr pMesh[(4 * PAD) + ONE32] ' 5/8
|
|
|
+ meshes[id].pBitangents = Byte Ptr pMesh[(5 * PAD) + ONE32] ' 6/10
|
|
|
|
|
|
- Local pMeshPointerOffset:Int = 7
|
|
|
+ DebugLog "meshes[" + id + "].PrimitiveTypes = " + meshes[id].PrimitiveTypes
|
|
|
+ DebugLog "meshes[" + id + "].NumVertices = " + meshes[id].NumVertices
|
|
|
+ DebugLog "meshes[" + id + "].NumFaces = " + meshes[id].NumFaces
|
|
|
+ DebugLog "meshes[" + id + "].pVertices = " + meshes[id].pVertices
|
|
|
+ DebugLog "meshes[" + id + "].pNormals = " + meshes[id].pNormals
|
|
|
+ DebugLog "meshes[" + id + "].pTangents = " + meshes[id].pTangents
|
|
|
+ DebugLog "meshes[" + id + "].pBitangents = " + meshes[id].pBitangents
|
|
|
+
|
|
|
+ Local pMeshPointerOffset:Int = (6 * PAD) + ONE32 ' 7/12
|
|
|
|
|
|
For Local n:Int = 0 To AI_MAX_NUMBER_OF_COLOR_SETS - 1
|
|
|
- meshes[i].pColors[n] = Byte Ptr pMesh[pMeshPointerOffset + n]
|
|
|
+ meshes[id].pColors[n] = Byte Ptr pMesh[pMeshPointerOffset + n] ' ptr arr - twice the size in 64-bit
|
|
|
+ 'DebugLog "meshes[" + id + "].pColors[n] = " + meshes[id].pColors[n]
|
|
|
Next
|
|
|
|
|
|
- pMeshPointerOffset:+ AI_MAX_NUMBER_OF_COLOR_SETS
|
|
|
+ pMeshPointerOffset:+ (AI_MAX_NUMBER_OF_COLOR_SETS * PAD) ' 15/28
|
|
|
|
|
|
For Local n:Int = 0 To AI_MAX_NUMBER_OF_TEXTURECOORDS - 1
|
|
|
- meshes[i].pTextureCoords[n] = Byte Ptr pMesh[pMeshPointerOffset + n]
|
|
|
+ meshes[id].pTextureCoords[n] = Byte Ptr pMesh[pMeshPointerOffset + n] ' ptr arr
|
|
|
+ 'DebugLog "meshes[" + id + "].pTextureCoords[n] = " + meshes[id].pTextureCoords[n]
|
|
|
Next
|
|
|
|
|
|
- pMeshPointerOffset:+ AI_MAX_NUMBER_OF_TEXTURECOORDS
|
|
|
+ pMeshPointerOffset:+ (AI_MAX_NUMBER_OF_TEXTURECOORDS * PAD) ' 23/44
|
|
|
|
|
|
For Local n:Int = 0 To AI_MAX_NUMBER_OF_TEXTURECOORDS - 1
|
|
|
- meshes[i].NumUVComponents[n] = pMesh[pMeshPointerOffset + n]
|
|
|
+ meshes[id].NumUVComponents[n] = pMesh[pMeshPointerOffset + n] ' int arr - same size as 32-bit
|
|
|
+ 'DebugLog "meshes[" + id + "].NumUVComponents[n] = " + meshes[id].NumUVComponents[n]
|
|
|
Next
|
|
|
|
|
|
- pMeshPointerOffset:+ AI_MAX_NUMBER_OF_TEXTURECOORDS
|
|
|
+ pMeshPointerOffset:+ AI_MAX_NUMBER_OF_TEXTURECOORDS ' 31/52
|
|
|
+
|
|
|
+ meshes[id].pFaces = Int Ptr pMesh[pMeshPointerOffset]
|
|
|
+ meshes[id].NumBones = pMesh[pMeshPointerOffset + (1 * PAD)] ' 32/54
|
|
|
+ meshes[id].pBones = Byte Ptr pMesh[pMeshPointerOffset + (2 * PAD)] ' 33/55
|
|
|
+ meshes[id].MaterialIndex = pMesh[pMeshPointerOffset + (3 * PAD)] ' 34/57
|
|
|
|
|
|
- meshes[i].pFaces = Int Ptr pMesh[pMeshPointerOffset]
|
|
|
- meshes[i].NumBones = pMesh[pMeshPointerOffset+1]
|
|
|
- meshes[i].pBones = Byte Ptr pMesh[pMeshPointerOffset+2]
|
|
|
- meshes[i].MaterialIndex = pMesh[pMeshPointerOffset+3]
|
|
|
+ 'For Local n:Int = 0 To meshes[id].NumFaces - 1
|
|
|
+ ' DebugLog "meshes[id].pFaces " + n + "="+meshes[id].pFaces[n]
|
|
|
+ 'Next
|
|
|
+
|
|
|
+ DebugLog "meshes[" + id + "].pFaces = " + meshes[id].pFaces
|
|
|
+ DebugLog "meshes[" + id + "].NumBones = " + meshes[id].NumBones
|
|
|
+ DebugLog "meshes[" + id + "].pBones = " + meshes[id].pBones
|
|
|
+ DebugLog "meshes[" + id + "].MaterialIndex = " + meshes[id].MaterialIndex
|
|
|
|
|
|
Next
|
|
|
|
|
|
- NumMaterials = pointer[4]
|
|
|
+ NumMaterials = pointer[4 * PAD] ' 4/8
|
|
|
|
|
|
- Local pMaterialArray:Int Ptr = Int Ptr pointer[5]
|
|
|
+ Local pMaterialArray:Int Ptr = Int Ptr pointer[5 * PAD] ' 5/10
|
|
|
materials = materials[..NumMaterials]
|
|
|
|
|
|
- For Local i:Int = 0 To NumMaterials - 1
|
|
|
- 'DebugLog "Material found"
|
|
|
+ DebugLog "NumMaterials = " + NumMaterials
|
|
|
+ DebugLog "pMaterialArray = " + pMaterialArray
|
|
|
+
|
|
|
+ For Local id:Int = 0 To NumMaterials - 1
|
|
|
+ DebugLog "Material found"
|
|
|
|
|
|
- materials [i] = New aiMaterial
|
|
|
- materials [i].pMaterial = Int Ptr pMaterialArray[i]
|
|
|
- materials [i].NumProperties = materials [i].pMaterial[1]
|
|
|
- materials [i].NumAllocated = materials [i].pMaterial[2]
|
|
|
+ materials[id] = New aiMaterial
|
|
|
+ materials[id].pMaterial = Int Ptr pMaterialArray[id * PAD]
|
|
|
+ materials[id].NumProperties = materials[id].pMaterial[1 * PAD]
|
|
|
+ materials[id].NumAllocated = materials[id].pMaterial[2 * PAD]
|
|
|
|
|
|
- 'Rem ' loading properties is not needed, but I do it for now to make a list of loaded properties
|
|
|
+ 'Rem
|
|
|
+ ' loading properties is not needed, but I do it for now to make a list of loaded properties
|
|
|
' redim
|
|
|
- materials [i].Properties = materials [i].Properties[..materials [i].pMaterial[1]]
|
|
|
+ materials[id].Properties = materials[id].Properties[..materials[id].pMaterial[1 * PAD]]
|
|
|
|
|
|
- Local pMaterialPropertyArray:Int Ptr = Int Ptr materials [i].pMaterial[0]
|
|
|
+ Local pMaterialPropertyArray:Int Ptr = Int Ptr materials[id].pMaterial[0]
|
|
|
|
|
|
- For Local p:Int = 0 To materials [i].NumProperties - 1
|
|
|
- 'DebugLog "Materialproperty found"
|
|
|
- materials [i].Properties[p] = aiMaterialProperty.Create(Byte Ptr pMaterialPropertyArray[p])
|
|
|
+ For Local pid:Int = 0 To materials[id].NumProperties - 1
|
|
|
+ DebugLog "Materialproperty found"
|
|
|
+ materials[id].Properties[pid] = aiMaterialProperty.Create(Byte Ptr pMaterialPropertyArray[pid * PAD])
|
|
|
Next
|
|
|
-
|
|
|
'EndRem
|
|
|
Next
|
|
|
|
|
|
@@ -768,5 +822,5 @@ Type aiScene
|
|
|
flags = 0
|
|
|
|
|
|
End Method
|
|
|
-
|
|
|
+
|
|
|
End Type
|
markcwm