summaryrefslogtreecommitdiff
path: root/libs/assimp/port/AssimpDelphi
diff options
context:
space:
mode:
Diffstat (limited to 'libs/assimp/port/AssimpDelphi')
-rw-r--r--libs/assimp/port/AssimpDelphi/Readme.txt6
-rw-r--r--libs/assimp/port/AssimpDelphi/aiColor4D.pas17
-rw-r--r--libs/assimp/port/AssimpDelphi/aiMaterial.pas153
-rw-r--r--libs/assimp/port/AssimpDelphi/aiMatrix3x3.pas16
-rw-r--r--libs/assimp/port/AssimpDelphi/aiMatrix4x4.pas16
-rw-r--r--libs/assimp/port/AssimpDelphi/aiMesh.pas71
-rw-r--r--libs/assimp/port/AssimpDelphi/aiQuaternion.pas12
-rw-r--r--libs/assimp/port/AssimpDelphi/aiScene.pas46
-rw-r--r--libs/assimp/port/AssimpDelphi/aiTexture.pas26
-rw-r--r--libs/assimp/port/AssimpDelphi/aiTypes.pas53
-rw-r--r--libs/assimp/port/AssimpDelphi/aiVector2D.pas13
-rw-r--r--libs/assimp/port/AssimpDelphi/aiVector3D.pas16
-rw-r--r--libs/assimp/port/AssimpDelphi/assimp.pas58
13 files changed, 0 insertions, 503 deletions
diff --git a/libs/assimp/port/AssimpDelphi/Readme.txt b/libs/assimp/port/AssimpDelphi/Readme.txt
deleted file mode 100644
index 1ec6d21..0000000
--- a/libs/assimp/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/libs/assimp/port/AssimpDelphi/aiColor4D.pas b/libs/assimp/port/AssimpDelphi/aiColor4D.pas
deleted file mode 100644
index 0bc5d2a..0000000
--- a/libs/assimp/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/libs/assimp/port/AssimpDelphi/aiMaterial.pas b/libs/assimp/port/AssimpDelphi/aiMaterial.pas
deleted file mode 100644
index ffd8109..0000000
--- a/libs/assimp/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/libs/assimp/port/AssimpDelphi/aiMatrix3x3.pas b/libs/assimp/port/AssimpDelphi/aiMatrix3x3.pas
deleted file mode 100644
index a90f11f..0000000
--- a/libs/assimp/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/libs/assimp/port/AssimpDelphi/aiMatrix4x4.pas b/libs/assimp/port/AssimpDelphi/aiMatrix4x4.pas
deleted file mode 100644
index 45e0faf..0000000
--- a/libs/assimp/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/libs/assimp/port/AssimpDelphi/aiMesh.pas b/libs/assimp/port/AssimpDelphi/aiMesh.pas
deleted file mode 100644
index a05a0f2..0000000
--- a/libs/assimp/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/libs/assimp/port/AssimpDelphi/aiQuaternion.pas b/libs/assimp/port/AssimpDelphi/aiQuaternion.pas
deleted file mode 100644
index d5550de..0000000
--- a/libs/assimp/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/libs/assimp/port/AssimpDelphi/aiScene.pas b/libs/assimp/port/AssimpDelphi/aiScene.pas
deleted file mode 100644
index 28cebf1..0000000
--- a/libs/assimp/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/libs/assimp/port/AssimpDelphi/aiTexture.pas b/libs/assimp/port/AssimpDelphi/aiTexture.pas
deleted file mode 100644
index 55e246f..0000000
--- a/libs/assimp/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/libs/assimp/port/AssimpDelphi/aiTypes.pas b/libs/assimp/port/AssimpDelphi/aiTypes.pas
deleted file mode 100644
index b7924e8..0000000
--- a/libs/assimp/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/libs/assimp/port/AssimpDelphi/aiVector2D.pas b/libs/assimp/port/AssimpDelphi/aiVector2D.pas
deleted file mode 100644
index 1e88209..0000000
--- a/libs/assimp/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/libs/assimp/port/AssimpDelphi/aiVector3D.pas b/libs/assimp/port/AssimpDelphi/aiVector3D.pas
deleted file mode 100644
index 2081bb4..0000000
--- a/libs/assimp/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/libs/assimp/port/AssimpDelphi/assimp.pas b/libs/assimp/port/AssimpDelphi/assimp.pas
deleted file mode 100644
index d5bf31d..0000000
--- a/libs/assimp/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.