mirror of
https://github.com/scratchfoundation/bgfx.git
synced 2024-12-01 11:56:58 -05:00
190 lines
8.3 KiB
ObjectPascal
190 lines
8.3 KiB
ObjectPascal
|
unit OpenCTM;
|
||
|
|
//------------------------------------------------------------------------------
|
||
|
|
// Product: OpenCTM
|
||
|
|
// File: OpenCTM.pas
|
||
|
|
// Description: Delphi API bindings.
|
||
|
|
//-----------------------------------------------------------------------------
|
||
|
|
// Copyright (c) 2009-2010 Marcus Geelnard
|
||
|
|
//
|
||
|
|
// This software is provided 'as-is', without any express or implied
|
||
|
|
// warranty. In no event will the authors be held liable for any damages
|
||
|
|
// arising from the use of this software.
|
||
|
|
//
|
||
|
|
// Permission is granted to anyone to use this software for any purpose,
|
||
|
|
// including commercial applications, and to alter it and redistribute it
|
||
|
|
// freely, subject to the following restrictions:
|
||
|
|
//
|
||
|
|
// 1. The origin of this software must not be misrepresented; you must not
|
||
|
|
// claim that you wrote the original software. If you use this software
|
||
|
|
// in a product, an acknowledgment in the product documentation would be
|
||
|
|
// appreciated but is not required.
|
||
|
|
//
|
||
|
|
// 2. Altered source versions must be plainly marked as such, and must not
|
||
|
|
// be misrepresented as being the original software.
|
||
|
|
//
|
||
|
|
// 3. This notice may not be removed or altered from any source
|
||
|
|
// distribution.
|
||
|
|
//------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
//------------------------------------------------------------------------------
|
||
|
|
// Types
|
||
|
|
//------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
type
|
||
|
|
// Basic types
|
||
|
|
TCTMfloat = Single;
|
||
|
|
TCTMint = Integer;
|
||
|
|
TCTMuint = Cardinal;
|
||
|
|
TCTMcontext = Pointer;
|
||
|
|
TCTMenum = Cardinal;
|
||
|
|
|
||
|
|
// Pointer types
|
||
|
|
PCTMfloat = ^TCTMfloat;
|
||
|
|
PCTMint = ^TCTMint;
|
||
|
|
PCTMuint = ^TCTMuint;
|
||
|
|
|
||
|
|
// Callback function pointer types
|
||
|
|
TCTMreadfn = function (ABuf: Pointer; ACount: TCTMuint; AUserData: Pointer): TCTMuint; stdcall;
|
||
|
|
TCTMwritefn = function (ABuf: Pointer; ACount: TCTMuint; AUserData: Pointer): TCTMuint; stdcall;
|
||
|
|
|
||
|
|
|
||
|
|
//------------------------------------------------------------------------------
|
||
|
|
// Constants
|
||
|
|
//------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
const
|
||
|
|
CTM_API_VERSION = $00000100;
|
||
|
|
CTM_TRUE = 1;
|
||
|
|
CTM_FALSE = 0;
|
||
|
|
|
||
|
|
// TCTMenum
|
||
|
|
CTM_NONE = $0000;
|
||
|
|
CTM_INVALID_CONTEXT = $0001;
|
||
|
|
CTM_INVALID_ARGUMENT = $0002;
|
||
|
|
CTM_INVALID_OPERATION = $0003;
|
||
|
|
CTM_INVALID_MESH = $0004;
|
||
|
|
CTM_OUT_OF_MEMORY = $0005;
|
||
|
|
CTM_FILE_ERROR = $0006;
|
||
|
|
CTM_BAD_FORMAT = $0007;
|
||
|
|
CTM_LZMA_ERROR = $0008;
|
||
|
|
CTM_INTERNAL_ERROR = $0009;
|
||
|
|
CTM_UNSUPPORTED_FORMAT_VERSION = $000A;
|
||
|
|
CTM_IMPORT = $0101;
|
||
|
|
CTM_EXPORT = $0102;
|
||
|
|
CTM_METHOD_RAW = $0201;
|
||
|
|
CTM_METHOD_MG1 = $0202;
|
||
|
|
CTM_METHOD_MG2 = $0203;
|
||
|
|
CTM_VERTEX_COUNT = $0301;
|
||
|
|
CTM_TRIANGLE_COUNT = $0302;
|
||
|
|
CTM_HAS_NORMALS = $0303;
|
||
|
|
CTM_UV_MAP_COUNT = $0304;
|
||
|
|
CTM_ATTRIB_MAP_COUNT = $0305;
|
||
|
|
CTM_VERTEX_PRECISION = $0306;
|
||
|
|
CTM_NORMAL_PRECISION = $0307;
|
||
|
|
CTM_COMPRESSION_METHOD = $0308;
|
||
|
|
CTM_FILE_COMMENT = $0309;
|
||
|
|
CTM_NAME = $0501;
|
||
|
|
CTM_FILE_NAME = $0502;
|
||
|
|
CTM_PRECISION = $0503;
|
||
|
|
CTM_INDICES = $0601;
|
||
|
|
CTM_VERTICES = $0602;
|
||
|
|
CTM_NORMALS = $0603;
|
||
|
|
CTM_UV_MAP_1 = $0700;
|
||
|
|
CTM_UV_MAP_2 = $0701;
|
||
|
|
CTM_UV_MAP_3 = $0702;
|
||
|
|
CTM_UV_MAP_4 = $0703;
|
||
|
|
CTM_UV_MAP_5 = $0704;
|
||
|
|
CTM_UV_MAP_6 = $0705;
|
||
|
|
CTM_UV_MAP_7 = $0706;
|
||
|
|
CTM_UV_MAP_8 = $0707;
|
||
|
|
CTM_ATTRIB_MAP_1 = $0800;
|
||
|
|
CTM_ATTRIB_MAP_2 = $0801;
|
||
|
|
CTM_ATTRIB_MAP_3 = $0802;
|
||
|
|
CTM_ATTRIB_MAP_4 = $0803;
|
||
|
|
CTM_ATTRIB_MAP_5 = $0804;
|
||
|
|
CTM_ATTRIB_MAP_6 = $0805;
|
||
|
|
CTM_ATTRIB_MAP_7 = $0806;
|
||
|
|
CTM_ATTRIB_MAP_8 = $0807;
|
||
|
|
|
||
|
|
|
||
|
|
//------------------------------------------------------------------------------
|
||
|
|
// Function prototypes
|
||
|
|
//------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
function ctmNewContext(AMode: TCTMenum): TCTMcontext; stdcall;
|
||
|
|
procedure ctmFreeContext(AContext: TCTMcontext); stdcall;
|
||
|
|
function ctmGetError(AContext: TCTMcontext): TCTMenum; stdcall;
|
||
|
|
function ctmErrorString(AError: TCTMenum): PChar; stdcall;
|
||
|
|
function ctmGetInteger(AContext: TCTMcontext; AProperty: TCTMenum): TCTMuint; stdcall;
|
||
|
|
function ctmGetFloat(AContext: TCTMcontext; AProperty: TCTMenum): TCTMfloat; stdcall;
|
||
|
|
function ctmGetIntegerArray(AContext: TCTMcontext; AProperty: TCTMenum): PCTMuint; stdcall;
|
||
|
|
function ctmGetFloatArray(AContext: TCTMcontext; AProperty: TCTMenum): PCTMfloat; stdcall;
|
||
|
|
function ctmGetNamedUVMap(AContext: TCTMcontext; AName: PChar): TCTMenum; stdcall;
|
||
|
|
function ctmGetUVMapString(AContext: TCTMcontext; AUVMap: TCTMenum; AProperty: TCTMenum): PChar; stdcall;
|
||
|
|
function ctmGetUVMapFloat(AContext: TCTMcontext; AUVMap: TCTMenum; AProperty: TCTMenum): TCTMfloat; stdcall;
|
||
|
|
function ctmGetNamedAttribMap(AContext: TCTMcontext; AName: PChar): TCTMenum; stdcall;
|
||
|
|
function ctmGetAttribMapString(AContext: TCTMcontext; AAttribMap: TCTMenum; AProperty: TCTMenum): PChar; stdcall;
|
||
|
|
function ctmGetAttribMapFloat(AContext: TCTMcontext; AAttribMap: TCTMenum; AProperty: TCTMenum): TCTMfloat; stdcall;
|
||
|
|
function ctmGetString(AContext: TCTMcontext; AProperty: TCTMenum): PChar; stdcall;
|
||
|
|
procedure ctmCompressionMethod(AContext: TCTMcontext; AMethod: TCTMenum); stdcall;
|
||
|
|
procedure ctmCompressionLevel(AContext: TCTMcontext; ALevel: TCTMuint); stdcall;
|
||
|
|
procedure ctmVertexPrecision(AContext: TCTMcontext; APrecision: TCTMfloat); stdcall;
|
||
|
|
procedure ctmVertexPrecisionRel(AContext: TCTMcontext; ARelPrecision: TCTMfloat); stdcall;
|
||
|
|
procedure ctmNormalPrecision(AContext: TCTMcontext; APrecision: TCTMfloat); stdcall;
|
||
|
|
procedure ctmUVCoordPrecision(AContext: TCTMcontext; AUVMap: TCTMenum; APrecision: TCTMfloat); stdcall;
|
||
|
|
procedure ctmAttribPrecision(AContext: TCTMcontext; AAttribMap: TCTMenum; APrecision: TCTMfloat); stdcall;
|
||
|
|
procedure ctmFileComment(AContext: TCTMcontext; AFileComment: PChar); stdcall;
|
||
|
|
procedure ctmDefineMesh(AContext: TCTMcontext; AVertices: PCTMfloat; AVertexCount: TCTMuint; AIndices: PCTMuint; ATriangleCount: TCTMuint; ANormals: PCTMfloat); stdcall;
|
||
|
|
function ctmAddUVMap(AContext: TCTMcontext; AUVCoords: PCTMfloat; AName: PChar; AFileName: PChar): TCTMenum; stdcall;
|
||
|
|
function ctmAddAttribMap(AContext: TCTMcontext; AAttribValues: PCTMfloat; AName: PChar): TCTMenum; stdcall;
|
||
|
|
procedure ctmLoad(AContext: TCTMcontext; AFileName: PChar); stdcall;
|
||
|
|
procedure ctmLoadCustom(AContext: TCTMcontext; AReadFn: TCTMreadfn; AUserData: Pointer); stdcall;
|
||
|
|
procedure ctmSave(AContext: TCTMcontext; AFileName: PChar); stdcall;
|
||
|
|
procedure ctmSaveCustom(AContext: TCTMcontext; AWriteFn: TCTMwritefn; AUserData: Pointer); stdcall;
|
||
|
|
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
//------------------------------------------------------------------------------
|
||
|
|
// DLL interface
|
||
|
|
//------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
const
|
||
|
|
DLLNAME = 'openctm.dll';
|
||
|
|
|
||
|
|
function ctmNewContext; external DLLNAME;
|
||
|
|
procedure ctmFreeContext; external DLLNAME;
|
||
|
|
function ctmGetError; external DLLNAME;
|
||
|
|
function ctmErrorString; external DLLNAME;
|
||
|
|
function ctmGetInteger; external DLLNAME;
|
||
|
|
function ctmGetFloat; external DLLNAME;
|
||
|
|
function ctmGetIntegerArray; external DLLNAME;
|
||
|
|
function ctmGetFloatArray; external DLLNAME;
|
||
|
|
function ctmGetNamedUVMap; external DLLNAME;
|
||
|
|
function ctmGetUVMapString; external DLLNAME;
|
||
|
|
function ctmGetUVMapFloat; external DLLNAME;
|
||
|
|
function ctmGetNamedAttribMap; external DLLNAME;
|
||
|
|
function ctmGetAttribMapString; external DLLNAME;
|
||
|
|
function ctmGetAttribMapFloat; external DLLNAME;
|
||
|
|
function ctmGetString; external DLLNAME;
|
||
|
|
procedure ctmCompressionMethod; external DLLNAME;
|
||
|
|
procedure ctmCompressionLevel; external DLLNAME;
|
||
|
|
procedure ctmVertexPrecision; external DLLNAME;
|
||
|
|
procedure ctmVertexPrecisionRel; external DLLNAME;
|
||
|
|
procedure ctmNormalPrecision; external DLLNAME;
|
||
|
|
procedure ctmUVCoordPrecision; external DLLNAME;
|
||
|
|
procedure ctmAttribPrecision; external DLLNAME;
|
||
|
|
procedure ctmFileComment; external DLLNAME;
|
||
|
|
procedure ctmDefineMesh; external DLLNAME;
|
||
|
|
function ctmAddUVMap; external DLLNAME;
|
||
|
|
function ctmAddAttribMap; external DLLNAME;
|
||
|
|
procedure ctmLoad; external DLLNAME;
|
||
|
|
procedure ctmLoadCustom; external DLLNAME;
|
||
|
|
procedure ctmSave; external DLLNAME;
|
||
|
|
procedure ctmSaveCustom; external DLLNAME;
|
||
|
|
|
||
|
|
end.
|
||
|
|
|