From 8fb7916a0d0cb007a4c3a4e6a31af58765268ca3 Mon Sep 17 00:00:00 2001 From: sanine Date: Sat, 16 Apr 2022 11:55:54 -0500 Subject: delete src/mesh/assimp-master --- .../assimp-master/port/AssimpDelphi/Readme.txt | 6 - .../assimp-master/port/AssimpDelphi/aiColor4D.pas | 17 --- .../assimp-master/port/AssimpDelphi/aiMaterial.pas | 153 --------------------- .../port/AssimpDelphi/aiMatrix3x3.pas | 16 --- .../port/AssimpDelphi/aiMatrix4x4.pas | 16 --- .../assimp-master/port/AssimpDelphi/aiMesh.pas | 71 ---------- .../port/AssimpDelphi/aiQuaternion.pas | 12 -- .../assimp-master/port/AssimpDelphi/aiScene.pas | 46 ------- .../assimp-master/port/AssimpDelphi/aiTexture.pas | 26 ---- .../assimp-master/port/AssimpDelphi/aiTypes.pas | 53 ------- .../assimp-master/port/AssimpDelphi/aiVector2D.pas | 13 -- .../assimp-master/port/AssimpDelphi/aiVector3D.pas | 16 --- .../assimp-master/port/AssimpDelphi/assimp.pas | 58 -------- 13 files changed, 503 deletions(-) delete mode 100644 src/mesh/assimp-master/port/AssimpDelphi/Readme.txt delete mode 100644 src/mesh/assimp-master/port/AssimpDelphi/aiColor4D.pas delete mode 100644 src/mesh/assimp-master/port/AssimpDelphi/aiMaterial.pas delete mode 100644 src/mesh/assimp-master/port/AssimpDelphi/aiMatrix3x3.pas delete mode 100644 src/mesh/assimp-master/port/AssimpDelphi/aiMatrix4x4.pas delete mode 100644 src/mesh/assimp-master/port/AssimpDelphi/aiMesh.pas delete mode 100644 src/mesh/assimp-master/port/AssimpDelphi/aiQuaternion.pas delete mode 100644 src/mesh/assimp-master/port/AssimpDelphi/aiScene.pas delete mode 100644 src/mesh/assimp-master/port/AssimpDelphi/aiTexture.pas delete mode 100644 src/mesh/assimp-master/port/AssimpDelphi/aiTypes.pas delete mode 100644 src/mesh/assimp-master/port/AssimpDelphi/aiVector2D.pas delete mode 100644 src/mesh/assimp-master/port/AssimpDelphi/aiVector3D.pas delete mode 100644 src/mesh/assimp-master/port/AssimpDelphi/assimp.pas (limited to 'src/mesh/assimp-master/port/AssimpDelphi') diff --git a/src/mesh/assimp-master/port/AssimpDelphi/Readme.txt b/src/mesh/assimp-master/port/AssimpDelphi/Readme.txt deleted file mode 100644 index 1ec6d21..0000000 --- a/src/mesh/assimp-master/port/AssimpDelphi/Readme.txt +++ /dev/null @@ -1,6 +0,0 @@ -This is a set of Delphi units for using the Assimp C DLL. This was created for use with Delphi 7, but should be usable as-is or with minimal modifications with later Delphi versions. - -This set of headers is enough to load and display a model with external textures. Since I'm not familiar with animated models and some of the other functionality of the assimp library, I did not convert the headers for those features. - -See http://sourceforge.net/tracker/?func=detail&aid=3212646&group_id=226462&atid=1067634 for the original patch - diff --git a/src/mesh/assimp-master/port/AssimpDelphi/aiColor4D.pas b/src/mesh/assimp-master/port/AssimpDelphi/aiColor4D.pas deleted file mode 100644 index 0bc5d2a..0000000 --- a/src/mesh/assimp-master/port/AssimpDelphi/aiColor4D.pas +++ /dev/null @@ -1,17 +0,0 @@ -unit aiColor4D; - -interface - -const AI_MAX_NUMBER_OF_COLOR_SETS = $04; - -type TaiColor4D = packed record - r, g, b, a: single; -end; -type PaiColor4D = ^TaiColor4D; - -type TaiColor4DArray = array[0..0] of TaiColor4D; -type PTaiColor4DArray = ^TaiColor4DArray; - -implementation - -end. diff --git a/src/mesh/assimp-master/port/AssimpDelphi/aiMaterial.pas b/src/mesh/assimp-master/port/AssimpDelphi/aiMaterial.pas deleted file mode 100644 index ffd8109..0000000 --- a/src/mesh/assimp-master/port/AssimpDelphi/aiMaterial.pas +++ /dev/null @@ -1,153 +0,0 @@ -unit aiMaterial; - -interface - -uses aiTypes, aiVector2D, aiVector3D; - -{This following directive causes enums to be stored as double words (32bit), to be compatible with - the assimp C Dll} -{$Z4} - -type TaiTextureOp = ( - aiTextureOp_Multiply = $0, - aiTextureOp_Add = $1, - aiTextureOp_Subtract = $2, - aiTextureOp_Divide = $3, - aiTextureOp_SmoothAdd = $4, - aiTextureOp_SignedAdd = $5 - //_aiTextureOp_Force32Bit = 0x9fffffff -); - -type TaiTextureMapMode = ( - aiTextureMapMode_Wrap = $0, - aiTextureMapMode_Clamp = $1, - aiTextureMapMode_Decal = $3, - aiTextureMapMode_Mirror = $2 - //_aiTextureMapMode_Force32Bit = 0x9fffffff -); - -type TaiTextureMapping = ( - aiTextureMapping_UV = $0, - aiTextureMapping_SPHERE = $1, - aiTextureMapping_CYLINDER = $2, - aiTextureMapping_BOX = $3, - aiTextureMapping_PLANE = $4, - aiTextureMapping_OTHER = $5 - //_aiTextureMapping_Force32Bit = 0x9fffffff -); - -type TaiTextureType = ( - aiTextureType_NONE = $0, - aiTextureType_DIFFUSE = $1, - aiTextureType_SPECULAR = $2, - aiTextureType_AMBIENT = $3, - aiTextureType_EMISSIVE = $4, - aiTextureType_HEIGHT = $5, - aiTextureType_NORMALS = $6, - aiTextureType_SHININESS = $7, - aiTextureType_OPACITY = $8, - aiTextureType_DISPLACEMENT = $9, - aiTextureType_LIGHTMAP = $A, - aiTextureType_REFLECTION = $B, - aiTextureType_UNKNOWN = $C - //_aiTextureType_Force32Bit = 0x9fffffff -); - -const AI_TEXTURE_TYPE_MAX = aiTextureType_UNKNOWN; - -type TaiShadingMode = ( - aiShadingMode_Flat = $1, - aiShadingMode_Gouraud = $2, - aiShadingMode_Phong = $3, - aiShadingMode_Blinn = $4, - aiShadingMode_Toon = $5, - aiShadingMode_OrenNayar = $6, - aiShadingMode_Minnaert = $7, - aiShadingMode_CookTorrance = $8, - aiShadingMode_NoShading = $9, - aiShadingMode_Fresnel = $A - //_aiShadingMode_Force32Bit = 0x9fffffff -); - - -type TaiTextureFlags = ( - aiTextureFlags_Invert = $1, - aiTextureFlags_UseAlpha = $2, - aiTextureFlags_IgnoreAlpha = $4 - //_aiTextureFlags_Force32Bit = 0x9fffffff -); - -type TaiBlendMode = ( - aiBlendMode_Default = $0, - aiBlendMode_Additive = $1 - //_aiBlendMode_Force32Bit = 0x9fffffff -); - -type TaiUVTransform = packed record - mTranslation: TaiVector2D; - mScaling: TaiVector2D; - mRotation: single; -end; - -type TaiPropertyTypeInfo = ( - aiPTI_Float = $1, - aiPTI_String = $3, - aiPTI_Integer = $4, - aiPTI_Buffer = $5 - // _aiPTI_Force32Bit = 0x9fffffff -); - -type TaiMaterialProperty = packed record - mKey: aiString; - mSemantic: Cardinal; - mIndex: Cardinal; - mDataLength: Cardinal; - mType: TaiPropertyTypeInfo; - mData: PChar; -end; -type PaiMaterialProperty = ^TaiMaterialProperty; - -type TaiMaterial = packed record - mProperties: pointer; - mNumProperties: Cardinal; - mNumAllocated: Cardinal; -end; -type PaiMaterial = ^TaiMaterial; -type PaiMaterialArray = array[0..0] of PaiMaterial; -type PPaiMaterialArray = ^PaiMaterialArray; - -const AI_MATKEY_NAME = '?mat.name'; -const AI_MATKEY_TWOSIDED = '$mat.twosided'; -const AI_MATKEY_SHADING_MODEL = '$mat.shadingm'; -const AI_MATKEY_ENABLE_WIREFRAME = '$mat.wireframe'; -const AI_MATKEY_BLEND_FUNC = '$mat.blend'; -const AI_MATKEY_OPACITY = '$mat.opacity'; -const AI_MATKEY_BUMPSCALING = '$mat.bumpscaling'; -const AI_MATKEY_SHININESS = '$mat.shininess'; -const AI_MATKEY_REFLECTIVITY = '$mat.reflectivity'; -const AI_MATKEY_SHININESS_STRENGTH = '$mat.shinpercent'; -const AI_MATKEY_REFRACTI = '$mat.refracti'; -const AI_MATKEY_COLOR_DIFFUSE = '$clr.diffuse'; -const AI_MATKEY_COLOR_AMBIENT = '$clr.ambient'; -const AI_MATKEY_COLOR_SPECULAR = '$clr.specular'; -const AI_MATKEY_COLOR_EMISSIVE = '$clr.emissive'; -const AI_MATKEY_COLOR_TRANSPARENT = '$clr.transparent'; -const AI_MATKEY_COLOR_REFLECTIVE = '$clr.reflective'; -const AI_MATKEY_GLOBAL_BACKGROUND_IMAGE = '?bg.global'; - -const _AI_MATKEY_TEXTURE_BASE = '$tex.file'; -const _AI_MATKEY_UVWSRC_BASE = '$tex.uvwsrc'; -const _AI_MATKEY_TEXOP_BASE = '$tex.op'; -const _AI_MATKEY_MAPPING_BASE = '$tex.mapping'; -const _AI_MATKEY_TEXBLEND_BASE = '$tex.blend'; -const _AI_MATKEY_MAPPINGMODE_U_BASE = '$tex.mapmodeu'; -const _AI_MATKEY_MAPPINGMODE_V_BASE = '$tex.mapmodev'; -const _AI_MATKEY_TEXMAP_AXIS_BASE = '$tex.mapaxis'; -const _AI_MATKEY_UVTRANSFORM_BASE = '$tex.uvtrafo'; -const _AI_MATKEY_TEXFLAGS_BASE = '$tex.flags'; - - - -implementation - -end. diff --git a/src/mesh/assimp-master/port/AssimpDelphi/aiMatrix3x3.pas b/src/mesh/assimp-master/port/AssimpDelphi/aiMatrix3x3.pas deleted file mode 100644 index a90f11f..0000000 --- a/src/mesh/assimp-master/port/AssimpDelphi/aiMatrix3x3.pas +++ /dev/null @@ -1,16 +0,0 @@ -unit aiMatrix3x3; - -interface - -type TaiMatrix3x3 = packed record - a1, a2, a3, a4: single; - b1, b2, b3, b4: single; - c1, c2, c3, c4: single; -end; -PaiMatrix3x3 = ^TaiMatrix3x3; - - - -implementation - -end. diff --git a/src/mesh/assimp-master/port/AssimpDelphi/aiMatrix4x4.pas b/src/mesh/assimp-master/port/AssimpDelphi/aiMatrix4x4.pas deleted file mode 100644 index 45e0faf..0000000 --- a/src/mesh/assimp-master/port/AssimpDelphi/aiMatrix4x4.pas +++ /dev/null @@ -1,16 +0,0 @@ -unit aiMatrix4x4; - -interface - -type TaiMatrix4x4 = packed record - a1, a2, a3, a4: single; - b1, b2, b3, b4: single; - c1, c2, c3, c4: single; - d1, d2, d3, d4: single; -end; -PaiMatrix4x4 = ^TaiMatrix4x4; - - -implementation - -end. diff --git a/src/mesh/assimp-master/port/AssimpDelphi/aiMesh.pas b/src/mesh/assimp-master/port/AssimpDelphi/aiMesh.pas deleted file mode 100644 index a05a0f2..0000000 --- a/src/mesh/assimp-master/port/AssimpDelphi/aiMesh.pas +++ /dev/null @@ -1,71 +0,0 @@ -unit aiMesh; - -interface - -uses aiTypes, aiMatrix4x4, aiVector3D, aiColor4D; - -const - AI_MAX_NUMBER_OF_COLOR_SETS = $4; - AI_MAX_NUMBER_OF_TEXTURECOORDS = $4; - -type TaiFace = packed record - mNumIndicies: cardinal; - mIndices: PCardinalArray; -end; -type PaiFace = ^TaiFace; -type PaiFaceArray = array [0..0] of PaiFace; - -type TaiFaceArray = array [0..0] of TaiFace; -type PTaiFaceArray = ^TaiFaceArray; - -type TaiVertexWeight = packed record - mVertexId: cardinal; - mWeight: single; -end; - -type TaiBone = packed record - mName: aiString; - mNumWeights: cardinal; - mWeights: Pointer; - mOffsetMatrix: TaiMatrix4x4; -end; -type PaiBone = ^TaiBone; - -type TaiPrimitiveType = - ( - aiPrimitiveType_POINT = $1, - aiPrimitiveType_LINE = $2, - aiPrimitiveType_TRIANGLE = $4, - aiPrimitiveType_POLYGON = $8 - //,_aiPrimitiveType_Force32Bit = $9fffffff - ); - -type TaiMesh = packed record - mPrimitiveTypes: cardinal; - mNumVertices: cardinal; - mNumFaces: cardinal; - mVertices: PTaiVector3DArray; - mNormals: PTaiVector3DArray; - mTangents: PaiVector3DArray; - mBitangents: PaiVector3DArray; - mColors: array[0..3] of PTaiColor4Darray; //array [0..3] of PaiColor4DArray; //array of 4 - mTextureCoords: array [0..3] of PTaiVector3DArray; //array of 4 - mNumUVComponents: array[0..AI_MAX_NUMBER_OF_TEXTURECOORDS -1] of cardinal; - mFaces: PTaiFaceArray; - mNumBones: cardinal; - mBones: PaiBone; - mMaterialIndex: cardinal; - mName: aiString; - mNumAniMeshes: cardinal; - mAniMeshes: pointer; -end; -type PaiMesh = ^TaiMesh; -type PPaiMesh = ^PaiMesh; -type PaiMeshArray = array [0..0] of PaiMesh; -type PPaiMeshArray = ^PaiMeshArray; - - - -implementation - -end. diff --git a/src/mesh/assimp-master/port/AssimpDelphi/aiQuaternion.pas b/src/mesh/assimp-master/port/AssimpDelphi/aiQuaternion.pas deleted file mode 100644 index d5550de..0000000 --- a/src/mesh/assimp-master/port/AssimpDelphi/aiQuaternion.pas +++ /dev/null @@ -1,12 +0,0 @@ -unit aiQuaternion; - -interface - -type TaiQuaternion = packed record - w, x, y, z: single; -end; -type PaiQuaternion = ^TaiQuaternion; - -implementation - -end. diff --git a/src/mesh/assimp-master/port/AssimpDelphi/aiScene.pas b/src/mesh/assimp-master/port/AssimpDelphi/aiScene.pas deleted file mode 100644 index 28cebf1..0000000 --- a/src/mesh/assimp-master/port/AssimpDelphi/aiScene.pas +++ /dev/null @@ -1,46 +0,0 @@ -unit aiScene; - -interface - -uses aiTypes, aiMatrix4x4, aiMesh, aiMaterial, aiTexture; - - -type - PaiNode = ^TaiNode; - PPaiNode = ^PaiNode; - PaiNodeArray = array[0..0] of PaiNode; - PPaiNodeArray = ^PaiNodeArray; - - TaiNode = packed record - mName: aiString; - mTransformation: TaiMatrix4x4; - mParent: PPaiNode; - mNumChildren: cardinal; - mChildren: PPaiNodeArray; - mNumMeshes: cardinal; - mMeshes: PCardinalArray; - end; - - - -type TaiScene = packed record - mFlags: cardinal; - mRootNode: PaiNode; - mNumMeshes: Cardinal; - mMeshes: PPaiMeshArray; //? - mNumMaterials: Cardinal; - mMaterials: PPaiMaterialArray; - mNumAnimations: Cardinal; - mAnimations: Pointer; - mNumTextures: Cardinal; - mTextures: PPaiTextureArray; - mNumLights: Cardinal; - mLights: Pointer; - mNumCameras: Cardinal; - mCameras: Pointer; -end; -type PaiScene = ^TaiScene; - -implementation - -end. diff --git a/src/mesh/assimp-master/port/AssimpDelphi/aiTexture.pas b/src/mesh/assimp-master/port/AssimpDelphi/aiTexture.pas deleted file mode 100644 index 55e246f..0000000 --- a/src/mesh/assimp-master/port/AssimpDelphi/aiTexture.pas +++ /dev/null @@ -1,26 +0,0 @@ -unit aiTexture; - -interface - -type TaiTexel = packed record - b, g, r, a: byte; -end; -PaiTexel = ^TaiTexel; -TaiTexelArray = array[0..0] of TaiTexel; -PaiTexelArray = ^TaiTexelArray; - -type TaiTexture = packed record - mWidth: Cardinal; //width in pixels, OR total embedded file size if texture is a jpg/png/etc - mHeight: Cardinal; //0 if texture is an embedded file - achFormatHint: array[0..3] of byte; - pcData: PaiTexelArray; -end; -PaiTexture = ^TaiTexture; -PaiTextureArray = array [0..0] of PaiTexture; -PPaiTextureArray = ^PaiTextureArray; - - - -implementation - -end. diff --git a/src/mesh/assimp-master/port/AssimpDelphi/aiTypes.pas b/src/mesh/assimp-master/port/AssimpDelphi/aiTypes.pas deleted file mode 100644 index b7924e8..0000000 --- a/src/mesh/assimp-master/port/AssimpDelphi/aiTypes.pas +++ /dev/null @@ -1,53 +0,0 @@ -unit aiTypes; - -interface - -//added for Delphi interface -type - TCardinalArray = array [0..0] of Cardinal; - PCardinalArray = ^TCardinalArray; - - TSingleArray = array[0..0] of Single; - PSingleArray = ^TSingleArray; - -type aiString = packed record - length: Cardinal; - data: array [0..1023] of char; -end; -type PaiString = ^aiString; - -type aiReturn = ( - aiReturn_SUCCESS = $0, - aiReturn_FAILURE = -$1, - aiReturn_OUTOFMEMORY = -$3, - _AI_ENFORCE_ENUM_SIZE = $7fffffff -); - -const AI_SUCCESS = aiReturn_SUCCESS; -const AI_FAILURE = aiReturn_FAILURE; -const AI_OUTOFMEMORY = aiReturn_OUTOFMEMORY; - - - - -function aiStringToDelphiString( a: aiString): AnsiString; - - -implementation - -function aiStringToDelphiString( a: aiString): AnsiString; -var - i: integer; -begin - result := ''; - if a.length > 0 then - begin - SetLength( result, a.length); - for i := 1 to a.length do - begin - result[i] := a.data[i-1]; - end; - end; -end; - -end. diff --git a/src/mesh/assimp-master/port/AssimpDelphi/aiVector2D.pas b/src/mesh/assimp-master/port/AssimpDelphi/aiVector2D.pas deleted file mode 100644 index 1e88209..0000000 --- a/src/mesh/assimp-master/port/AssimpDelphi/aiVector2D.pas +++ /dev/null @@ -1,13 +0,0 @@ -unit aiVector2D; - -interface - -type TaiVector2D = packed record - x, y: single; -end; -type PaiVector2D = ^TaiVector2D; - - -implementation - -end. diff --git a/src/mesh/assimp-master/port/AssimpDelphi/aiVector3D.pas b/src/mesh/assimp-master/port/AssimpDelphi/aiVector3D.pas deleted file mode 100644 index 2081bb4..0000000 --- a/src/mesh/assimp-master/port/AssimpDelphi/aiVector3D.pas +++ /dev/null @@ -1,16 +0,0 @@ -unit aiVector3D; - -interface - -type TaiVector3D = packed record - x, y, z: single; -end; -type PaiVector3D = ^TaiVector3D; -type PaiVector3DArray = array [0..0] of PaiVector3D; - -type TaiVector3DArray = array[0..0] of TaiVector3D; -type PTaiVector3DArray = ^TaiVector3DArray; - -implementation - -end. diff --git a/src/mesh/assimp-master/port/AssimpDelphi/assimp.pas b/src/mesh/assimp-master/port/AssimpDelphi/assimp.pas deleted file mode 100644 index d5bf31d..0000000 --- a/src/mesh/assimp-master/port/AssimpDelphi/assimp.pas +++ /dev/null @@ -1,58 +0,0 @@ -unit assimp; - -interface - -uses aiTypes, aiMatrix4x4, aiMatrix3x3, aiMesh, aiScene, aiMaterial, aiColor4d, aiVector3D; - -const ASSIMP_DLL = 'assimp32.dll'; - -function aiImportFile(filename: pchar; pFlags: integer): PaiScene; cdecl; external ASSIMP_DLL; -procedure aiReleaseImport( pScene: pointer); cdecl; external ASSIMP_DLL; -function aiGetErrorString(): PChar; cdecl; external ASSIMP_DLL; - -//procedure aiDecomposeMatrix( var mat: TaiMatrix4x4; var scaling: TaiVector3D; var rotation: TaiQuaternion; var position: TaiVector3D); cdecl; external ASSIMP_DLL; -procedure aiTransposeMatrix4( var mat: TaiMatrix4x4); cdecl; external ASSIMP_DLL; -procedure aiTransposeMatrix3( var mat: TaiMatrix3x3); cdecl; external ASSIMP_DLL; -procedure aiTransformVecByMatrix3( var vec: TaiVector3D; var mat: TaiMatrix3x3); cdecl; external ASSIMP_DLL; -procedure aiTransformVecByMatrix4( var vec: TaiVector3D; var mat: TaiMatrix4x4); cdecl; external ASSIMP_DLL; - -procedure aiMultiplyMatrix4(var dst: TaiMatrix4x4; var src: TaiMatrix4x4); cdecl; external ASSIMP_DLL; -procedure aiMultiplyMatrix3(var dst: TaiMatrix3x3; var src: TaiMatrix3x3); cdecl; external ASSIMP_DLL; - - -procedure aiIdentityMatrix3(var mat: TaiMatrix3x3); cdecl; external ASSIMP_DLL; -procedure aiIdentityMatrix4(var mat: TaiMatrix4x4); cdecl; external ASSIMP_DLL; - - -//----- from aiMaterial.h -function aiGetMaterialProperty( pMat: PaiMaterial; pKey: PChar; nType: Cardinal; nIndex: Cardinal; pPropOut: pointer): aiReturn; cdecl; external ASSIMP_DLL; -function aiGetMaterialFloatArray( var pMat: TaiMaterial; pKey: PChar; nType: Cardinal; nIndex: Cardinal; var pOut: Single; var pMax: Cardinal): aiReturn; cdecl; external ASSIMP_DLL; -function aiGetMaterialFloat( var pMat: TaiMaterial; pKey: PChar; nType: Cardinal; nIndex: Cardinal; var pOut: Single): aiReturn; -function aiGetMaterialIntegerArray(var pMat: TaiMaterial; pKey: PChar; nType: Cardinal; nIndex: Cardinal; var pOut: Integer; var pMax: Cardinal): aiReturn; cdecl; external ASSIMP_DLL; -function aiGetMaterialInteger(var pMat: TaiMaterial; pKey: PChar; nType: Cardinal; nIndex: Cardinal; var pOut: Integer): aiReturn; -function aiGetMaterialColor(var pMat: TaiMaterial; pKey: PChar; nType: Cardinal; nIndex: Cardinal; var pOut: TaiColor4d): aiReturn; cdecl; external ASSIMP_DLL; -function aiGetMaterialString(var pMat: TaiMaterial; pKey: PChar; nType: Cardinal; nIndex: Cardinal; var pOut: aiString): aiReturn; cdecl; external ASSIMP_DLL; -function aiGetMaterialTextureCount(var pMat: TaiMaterial; nType: TaiTextureType): Cardinal; cdecl; external ASSIMP_DLL; -function aiGetMaterialTexture(var mat: TaiMaterial; nType: TaiTextureType; nIndex: Cardinal; var path: aiString; var mapping: TaiTextureMapping; var uvindex: Cardinal; var blend: single; var op: TaiTextureOp; var mapmode: TaiTextureMapMode; var flags: Cardinal): aiReturn; cdecl; external ASSIMP_DLL; - - - -implementation - -function aiGetMaterialFloat( var pMat: TaiMaterial; pKey: PChar; nType: Cardinal; nIndex: Cardinal; var pOut: Single): aiReturn; -var - n: cardinal; -begin - n := 0; - result := aiGetMaterialFloatArray( pMat, pKey, nType, nIndex, pOut, n); -end; - -function aiGetMaterialInteger(var pMat: TaiMaterial; pKey: PChar; nType: Cardinal; nIndex: Cardinal; var pOut: integer): aiReturn; -var - n: cardinal; -begin - n := 0; - result := aiGetMaterialIntegerArray( pMat, pKey, nType, nIndex, pOut, n); -end; - -end. -- cgit v1.2.1