Added Import.Newton unit for NGD v3.14

Demos/Delphi/meshes/actor/Unit1.dfm

@@ -29,8 +29,6 @@ object Form1: TForm1
     OnMouseDown = GLSceneViewer1MouseDown
     OnMouseMove = GLSceneViewer1MouseMove
     TabOrder = 0
-    ExplicitWidth = 587
-    ExplicitHeight = 340
   end
   object StatusBar1: TStatusBar
     Left = 0
@@ -41,8 +39,6 @@ object Form1: TForm1
       item
         Width = 200
       end>
-    ExplicitTop = 378
-    ExplicitWidth = 587
   end
   object Panel1: TPanel
     Left = 0
@@ -52,7 +48,6 @@ object Form1: TForm1
     Align = alTop
     BevelOuter = bvLowered
     TabOrder = 2
-    ExplicitWidth = 587
     object SBPlay: TSpeedButton
       Left = 188
       Top = 8

Demos/Delphi/meshes/actor/Unit1.pas

@@ -27,7 +27,8 @@ uses
 
   GLS.Coordinates,
   GLS.BaseClasses,
-  GLS.Utils;
+  GLS.Utils, VclTee.TeeGDIPlus, VCLTee.Series, VCLTee.ArrowCha, VCLTee.TeEngine,
+  VCLTee.TeeProcs, VCLTee.Chart;
 
 type
   TForm1 = class(TForm)

Packages/GLScene_DT.dproj

@@ -102,10 +102,10 @@
         <DCC_ObjOutput>..\lib\$(Platform)</DCC_ObjOutput>
         <DCC_BpiOutput>..\lib\$(Platform)</DCC_BpiOutput>
         <VerInfo_Keys>CompanyName=;FileVersion=1.5.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.5.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName)</VerInfo_Keys>
-        <DCC_CBuilderOutput>All</DCC_CBuilderOutput>
         <VerInfo_Locale>1033</VerInfo_Locale>
         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
         <DCC_Description>GLScene Engine</DCC_Description>
+        <DCC_CBuilderOutput>All</DCC_CBuilderOutput>
         <DCC_DcuOutput>..\lib\$(Platform)</DCC_DcuOutput>
     </PropertyGroup>
     <ItemGroup>

Packages/GLScene_Physics_RT.dpk

@@ -50,7 +50,8 @@ contains
   Physics.SPIForces in '..\Source\Physics.SPIForces.pas',
   Physics.SPIInertias in '..\Source\Physics.SPIInertias.pas',
   Physics.SPIJoints in '..\Source\Physics.SPIJoints.pas',
-  Physics.SPIManager in '..\Source\Physics.SPIManager.pas';
+  Physics.SPIManager in '..\Source\Physics.SPIManager.pas',
+  Import.Newton in '..\Source\Import.Newton.pas';
 
 end.
 

Packages/GLScene_Physics_RT.dproj

@@ -165,6 +165,7 @@
         <DCCReference Include="..\Source\Physics.SPIInertias.pas"/>
         <DCCReference Include="..\Source\Physics.SPIJoints.pas"/>
         <DCCReference Include="..\Source\Physics.SPIManager.pas"/>
+        <DCCReference Include="..\Source\Import.Newton.pas"/>
         <BuildConfiguration Include="Debug">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>

Source/ImportNewton.pas → Source/Import.Newton.pas

@@ -18,7 +18,7 @@
 *
 * 3. This notice may not be removed or altered from any source distribution.
 *)
-unit ImportNewton;
+unit Import.Newton;
 
 // Define double to use newton in double precision
 {.$DEFINE USE_DOUBLE_PRECISION}

Source/Physics.NGDManager.pas

@@ -23,6 +23,8 @@ uses
   Import.NGD,
   Import.NGD_Joints,
 
+  /// Import.Newton,    // new version
+
   GLS.VectorTypes,
   GLS.VectorGeometry, // PVector TVector TMatrix PMatrix NullHmgVector...
   GLS.VectorLists, // TAffineVectorList for Tree

Source/Physics.Register.pas

@@ -25,7 +25,7 @@ begin
   RegisterClasses([TGLODEManager, TGLODEJointList,  TGLODEJoints, TGLODEElements,
                    TGLNGDManager, TGLNGDDynamic, TGLNGDStatic,
                    TGLSPIManager]);
-  RegisterComponents('GLScene',[TGLODEManager,TGLODEJointList,
+  RegisterComponents('GLScene Physics Managers',[TGLODEManager,TGLODEJointList,
                                 TGLNGDManager, TGLSPIManager]);
 end;