maXbox3 3.9.9.195 14/05/2015 08:37:17 AM
maXbox3 3.9.9.80 13.11.2013 11:25:53
maXbox3 3.9.9.80 13.11.2013 11:25:53
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
<strong>maXbox3</strong> <strong>3.9.9.195</strong><br />
<strong>14</strong>/<strong>05</strong>/<strong>2015</strong> <strong>08</strong>:<strong>37</strong>:<strong>17</strong> <strong>AM</strong><br />
13447: Procedure xglMapTexCoordToArbitrary( const units : array of Cardinal);<br />
13448: Procedure xglMapTexCoordToArbitrary1( const bitWiseUnits : Cardinal);<br />
13449: Procedure xglMapTexCoordToArbitraryAdd( const bitWiseUnits : Cardinal)<br />
13450: Procedure xglBeginUpdate<br />
13451: Procedure xglEndUpdate<br />
13452: Procedure xglPushState<br />
13453: Procedure xglPopState<br />
13454: Procedure xglForbidSecondTextureUnit<br />
13455: Procedure xglAllowSecondTextureUnit<br />
13456: Function xglGetBitWiseMapping : Cardinal<br />
13457: end;<br />
13458:<br />
13459: procedure SIRegister_VectorLists(CL: TPSPascalCompiler);<br />
13460: begin<br />
13461: TBaseListOption', '( bloExternalMemory, bloSetCountResetsMemory)<br />
13462: TBaseListOptions', 'set of TBaseListOption<br />
13463: SIRegister_TBaseList(CL);<br />
13464: SIRegister_TBaseVectorList(CL);<br />
13465: SIRegister_TAffineVectorList(CL);<br />
13466: SIRegister_TVectorList(CL);<br />
13467: SIRegister_TTexPointList(CL);<br />
13468: SIRegister_TXIntegerList(CL);<br />
13469: //PSingleArrayList', '^TSingleArrayList // will not work<br />
13470: SIRegister_TSingleList(CL);<br />
13471: SIRegister_TByteList(CL);<br />
13472: SIRegister_TQuaternionList(CL);<br />
13473: Procedure QuickSortLists( startIndex, endIndex : Integer; refList : TSingleList; objList : TList);<br />
13474: Procedure QuickSortLists1( startIndex, endIndex : Integer; refList : TSingleList; objList : TBaseList);<br />
13475: Procedure FastQuickSortLists(startIndex,<br />
endIndex:Integer;refList:TSingleList;objList:TPersistentObjectList);<br />
13476: end;<br />
13477:<br />
13478: procedure SIRegister_MeshUtils(CL: TPSPascalCompiler);<br />
13479: begin<br />
13480: Procedure ConvertStripToList( const strip : TAffineVectorList; list : TAffineVectorList);<br />
13481: Procedure ConvertStripToList1( const strip : TIntegerList; list : TIntegerList);<br />
13482: Procedure ConvertStripToList2(const strip:TAffineVectorList;const<br />
indices:TIntegerList;list:TAffineVectorList);<br />
13483: Procedure ConvertIndexedListToList(const data:TAffineVectlist;const<br />
indices:TIntegerList;list:TAffineVectorList);<br />
13484: Function BuildVectorCountOptimizedIndices(const vertices:TAffineVectorList; const<br />
normals:TAffineVectorList; const texCoords : TAffineVectorList) : TIntegerList<br />
13485: Procedure RemapReferences( reference : TAffineVectorList; const indices : TIntegerList);<br />
13486: Procedure RemapReferences1( reference : TIntegerList; const indices : TIntegerList);<br />
13487: Procedure RemapAndCleanupReferences( reference : TAffineVectorList; indices : TIntegerList)<br />
13488: Function RemapIndicesToIndicesMap( remapIndices : TIntegerList) : TIntegerList<br />
13489: Procedure RemapTrianglesIndices( indices, indicesMap : TIntegerList)<br />
13490: Procedure RemapIndices( indices, indicesMap : TIntegerList)<br />
13491: Procedure UnifyTrianglesWinding( indices : TIntegerList)<br />
13492: Procedure InvertTrianglesWinding( indices : TIntegerList)<br />
13493: Function BuildNormals( reference : TAffineVectorList; indices : TIntegerList) : TAffineVectorList<br />
13494: Function BuildNonOrientedEdgesList(triangleIndices:TIntegerList; triangleEdges : TIntegerList;<br />
edgesTriangles : TIntegerList) : TIntegerList<br />
13495: Procedure WeldVertices( vertices : TAffineVectorList; indicesMap : TIntegerList; weldRadius : Single)<br />
13496: Function StripifyMesh(indices:TIntegerList;maxVertexIndex:Integer;agglomerateLoneTriangles:Boolean):<br />
TPersistentObjectList;<br />
13497: Procedure IncreaseCoherency( indices : TIntegerList; cacheSize : Integer)<br />
13498: Procedure SubdivideTriangles( smoothFactor : Single; vertices : TAffineVectorList; triangleIndices :<br />
TIntegerList; normals : TAffineVectorList; onSubdivideEdge : TSubdivideEdgeEvent)<br />
13499: end;<br />
13500:<br />
13501: procedure SIRegister_JclSysUtils(CL: TPSPascalCompiler);<br />
13502: begin<br />
13503: Procedure GetAndFillMem( var P : TObject; const Size : Integer; const Value : Byte)<br />
13504: Procedure FreeMemAndNil( var P : TObject)<br />
135<strong>05</strong>: Function PCharOrNil( const S : string) : PChar<br />
13506: SIRegister_TJclReferenceMemoryStream(CL);<br />
13507: FindClass('TOBJECT'),'EJclVMTError<br />
135<strong>08</strong>: {Function GetVirtualMethodCount( AClass : TClass) : Integer<br />
13509: Function GetVirtualMethod( AClass : TClass; const Index : Integer) : Pointer<br />
13510: Procedure SetVirtualMethod( AClass : TClass; const Index : Integer; const Method:Pointer)<br />
13511: PDynamicIndexList', '^TDynamicIndexList // will not work<br />
13512: PDynamicAddressList', '^TDynamicAddressList // will not work<br />
13513: Function GetDynamicMethodCount( AClass : TClass) : Integer<br />
135<strong>14</strong>: Function GetDynamicIndexList( AClass : TClass) : PDynamicIndexList<br />
13515: Function GetDynamicAddressList( AClass : TClass) : PDynamicAddressList<br />
13516: Function HasDynamicMethod( AClass : TClass; Index : Integer) : Boolean<br />
135<strong>17</strong>: Function GetDynamicMethod( AClass : TClass; Index : Integer) : Pointer<br />
13518: Function GetInitTable( AClass : TClass) : PTypeInfo<br />
13519: PFieldEntry', '^TFieldEntry // will not work}<br />
13520: TFieldEntry', 'record OffSet : Integer; IDX : Word; Name : ShortString; end<br />
13521: Function JIsClass( Address : Pointer) : Boolean<br />
13522: Function JIsObject( Address : Pointer) : Boolean<br />
13523: Function GetImplementorOfInterface( const I : IInterface) : TObject<br />
13524: TDigitCount', 'Integer<br />
13525: SIRegister_TJclNumericFormat(CL);<br />
13526: Function JIntToStrZeroPad( Value, Count : Integer) : AnsiString<br />
13527: TTextHandler', 'Procedure ( const Text : string)<br />
13528: // 'ABORT_EXIT_CODE','LongInt'( ERROR_CANCELLED 1223);<br />
PC<strong>08</strong> E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt<br />
http://www.softwareschule.ch/maxbox.htm T: 297<br />
p: 157
Change language