From db81b925d776103326128bf629cbdda576a223e7 Mon Sep 17 00:00:00 2001 From: sanine Date: Sat, 16 Apr 2022 11:55:09 -0500 Subject: move 3rd-party librarys into libs/ and add built-in honeysuckle --- libs/assimp/port/AssimpDelphi/Readme.txt | 6 + libs/assimp/port/AssimpDelphi/aiColor4D.pas | 17 +++ libs/assimp/port/AssimpDelphi/aiMaterial.pas | 153 +++++++++++++++++++++++++ libs/assimp/port/AssimpDelphi/aiMatrix3x3.pas | 16 +++ libs/assimp/port/AssimpDelphi/aiMatrix4x4.pas | 16 +++ libs/assimp/port/AssimpDelphi/aiMesh.pas | 71 ++++++++++++ libs/assimp/port/AssimpDelphi/aiQuaternion.pas | 12 ++ libs/assimp/port/AssimpDelphi/aiScene.pas | 46 ++++++++ libs/assimp/port/AssimpDelphi/aiTexture.pas | 26 +++++ libs/assimp/port/AssimpDelphi/aiTypes.pas | 53 +++++++++ libs/assimp/port/AssimpDelphi/aiVector2D.pas | 13 +++ libs/assimp/port/AssimpDelphi/aiVector3D.pas | 16 +++ libs/assimp/port/AssimpDelphi/assimp.pas | 58 ++++++++++ 13 files changed, 503 insertions(+) create mode 100644 libs/assimp/port/AssimpDelphi/Readme.txt create mode 100644 libs/assimp/port/AssimpDelphi/aiColor4D.pas create mode 100644 libs/assimp/port/AssimpDelphi/aiMaterial.pas create mode 100644 libs/assimp/port/AssimpDelphi/aiMatrix3x3.pas create mode 100644 libs/assimp/port/AssimpDelphi/aiMatrix4x4.pas create mode 100644 libs/assimp/port/AssimpDelphi/aiMesh.pas create mode 100644 libs/assimp/port/AssimpDelphi/aiQuaternion.pas create mode 100644 libs/assimp/port/AssimpDelphi/aiScene.pas create mode 100644 libs/assimp/port/AssimpDelphi/aiTexture.pas create mode 100644 libs/assimp/port/AssimpDelphi/aiTypes.pas create mode 100644 libs/assimp/port/AssimpDelphi/aiVector2D.pas create mode 100644 libs/assimp/port/AssimpDelphi/aiVector3D.pas create mode 100644 libs/assimp/port/AssimpDelphi/assimp.pas (limited to 'libs/assimp/port/AssimpDelphi') diff --git a/libs/assimp/port/AssimpDelphi/Readme.txt b/libs/assimp/port/AssimpDelphi/Readme.txt new file mode 100644 index 0000000..1ec6d21 --- /dev/null +++ b/libs/assimp/port/AssimpDelphi/Readme.txt @@ -0,0 +1,6 @@ +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 new file mode 100644 index 0000000..0bc5d2a --- /dev/null +++ b/libs/assimp/port/AssimpDelphi/aiColor4D.pas @@ -0,0 +1,17 @@ +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 new file mode 100644 index 0000000..ffd8109 --- /dev/null +++ b/libs/assimp/port/AssimpDelphi/aiMaterial.pas @@ -0,0 +1,153 @@ +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 new file mode 100644 index 0000000..a90f11f --- /dev/null +++ b/libs/assimp/port/AssimpDelphi/aiMatrix3x3.pas @@ -0,0 +1,16 @@ +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 new file mode 100644 index 0000000..45e0faf --- /dev/null +++ b/libs/assimp/port/AssimpDelphi/aiMatrix4x4.pas @@ -0,0 +1,16 @@ +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 new file mode 100644 index 0000000..a05a0f2 --- /dev/null +++ b/libs/assimp/port/AssimpDelphi/aiMesh.pas @@ -0,0 +1,71 @@ +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 new file mode 100644 index 0000000..d5550de --- /dev/null +++ b/libs/assimp/port/AssimpDelphi/aiQuaternion.pas @@ -0,0 +1,12 @@ +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 new file mode 100644 index 0000000..28cebf1 --- /dev/null +++ b/libs/assimp/port/AssimpDelphi/aiScene.pas @@ -0,0 +1,46 @@ +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 new file mode 100644 index 0000000..55e246f --- /dev/null +++ b/libs/assimp/port/AssimpDelphi/aiTexture.pas @@ -0,0 +1,26 @@ +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 new file mode 100644 index 0000000..b7924e8 --- /dev/null +++ b/libs/assimp/port/AssimpDelphi/aiTypes.pas @@ -0,0 +1,53 @@ +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 new file mode 100644 index 0000000..1e88209 --- /dev/null +++ b/libs/assimp/port/AssimpDelphi/aiVector2D.pas @@ -0,0 +1,13 @@ +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 new file mode 100644 index 0000000..2081bb4 --- /dev/null +++ b/libs/assimp/port/AssimpDelphi/aiVector3D.pas @@ -0,0 +1,16 @@ +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 new file mode 100644 index 0000000..d5bf31d --- /dev/null +++ b/libs/assimp/port/AssimpDelphi/assimp.pas @@ -0,0 +1,58 @@ +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