Cleaned demos

Demos/bench/canvas/CanvasD.dpr

@@ -1,34 +0,0 @@
-{: Benchmark for GLCanvas.
-
-   This project pits TGLCanvas against TCanvas in direct mode (hardware
-   acceleration should be available on both sides).
-   You may usually bet on TGLCanvas being 3 to 5 times faster, but on fast 3D
-   hardware, or when PenWidth is not 1, the performance ratio can reach 1:100.
-   However, this is not really an apples-to-apples comparison, because GDI
-   (or any other software implementations) are useless when it comes to drawing
-   to an OpenGL buffer, so, this is more to show that GLCanvas is far from
-   a "decelerator" if you have some 2D stuff to draw on your 3D Scene.
-
-   Figures for PenWidth = 1, GLCanvas / GDI
-
-   CPU         Graphics Board    Lines          Ellipses         Points       TextOut
-
-   Tbird 1.2   GF3 Ti200         5.2 / 227      64 /  756        27 / 408     75 / 208
-   ----29/09/02 - Added TextOut bench
-   Tbird 1.2   GF2 Pro           7.1 / 162       92 /  557       40 / 223
-   Duron 800   TNT2 M64        105.0 / 571      400 / 1148      126 / 676
-   ----21/01/02 - Initial
-}
-program CanvasD;
-
-uses
-  Forms,
-  fCanvasD in 'fCanvasD.pas' {FormCanvas};
-
-{$R *.res}
-
-begin
-  Application.Initialize;
-  Application.CreateForm(TFormCanvas, FormCanvas);
-  Application.Run;
-end.

Demos/bench/canvas/CanvasD.dproj

@@ -1,867 +0,0 @@
-<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-    <PropertyGroup>
-        <ProjectGuid>{323318E3-CFBB-4AE1-8EED-9707B34527D4}</ProjectGuid>
-        <MainSource>CanvasD.dpr</MainSource>
-        <Base>True</Base>
-        <Config Condition="'$(Config)'==''">Debug</Config>
-        <TargetedPlatforms>3</TargetedPlatforms>
-        <AppType>Application</AppType>
-        <FrameworkType>VCL</FrameworkType>
-        <ProjectVersion>19.0</ProjectVersion>
-        <Platform Condition="'$(Platform)'==''">Win32</Platform>
-    </PropertyGroup>
-    <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
-        <Base>true</Base>
-    </PropertyGroup>
-    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
-        <Base_Win32>true</Base_Win32>
-        <CfgParent>Base</CfgParent>
-        <Base>true</Base>
-    </PropertyGroup>
-    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
-        <Base_Win64>true</Base_Win64>
-        <CfgParent>Base</CfgParent>
-        <Base>true</Base>
-    </PropertyGroup>
-    <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
-        <Cfg_1>true</Cfg_1>
-        <CfgParent>Base</CfgParent>
-        <Base>true</Base>
-    </PropertyGroup>
-    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win64)'!=''">
-        <Cfg_1_Win64>true</Cfg_1_Win64>
-        <CfgParent>Cfg_1</CfgParent>
-        <Cfg_1>true</Cfg_1>
-        <Base>true</Base>
-    </PropertyGroup>
-    <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
-        <Cfg_2>true</Cfg_2>
-        <CfgParent>Base</CfgParent>
-        <Base>true</Base>
-    </PropertyGroup>
-    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
-        <Cfg_2_Win32>true</Cfg_2_Win32>
-        <CfgParent>Cfg_2</CfgParent>
-        <Cfg_2>true</Cfg_2>
-        <Base>true</Base>
-    </PropertyGroup>
-    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''">
-        <Cfg_2_Win64>true</Cfg_2_Win64>
-        <CfgParent>Cfg_2</CfgParent>
-        <Cfg_2>true</Cfg_2>
-        <Base>true</Base>
-    </PropertyGroup>
-    <PropertyGroup Condition="'$(Base)'!=''">
-        <DCC_S>false</DCC_S>
-        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;CFBundleName=</VerInfo_Keys>
-        <VerInfo_Locale>1049</VerInfo_Locale>
-        <DCC_K>false</DCC_K>
-        <SanitizedProjectName>CanvasD</SanitizedProjectName>
-        <DCC_E>false</DCC_E>
-        <DCC_N>false</DCC_N>
-        <DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)</DCC_Namespace>
-        <DCC_F>false</DCC_F>
-        <DCC_ImageBase>00400000</DCC_ImageBase>
-    </PropertyGroup>
-    <PropertyGroup Condition="'$(Base_Win32)'!=''">
-        <UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
-        <UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
-        <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
-        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
-        <VerInfo_Locale>1033</VerInfo_Locale>
-        <VerInfo_Keys>CompanyName=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(ModuleName);FileDescription=$(ModuleName);ProductName=$(ModuleName)</VerInfo_Keys>
-        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
-        <DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
-    </PropertyGroup>
-    <PropertyGroup Condition="'$(Base_Win64)'!=''">
-        <UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
-        <UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
-        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
-        <VerInfo_Locale>1033</VerInfo_Locale>
-        <DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
-        <VerInfo_Keys>CompanyName=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(ModuleName);FileDescription=$(ModuleName);ProductName=$(ModuleName)</VerInfo_Keys>
-        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
-    </PropertyGroup>
-    <PropertyGroup Condition="'$(Cfg_1)'!=''">
-        <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
-        <DCC_DebugInformation>0</DCC_DebugInformation>
-        <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
-        <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
-    </PropertyGroup>
-    <PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
-        <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
-        <AppDPIAwarenessMode>PerMonitor</AppDPIAwarenessMode>
-    </PropertyGroup>
-    <PropertyGroup Condition="'$(Cfg_2)'!=''">
-        <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
-        <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
-        <DCC_Optimize>false</DCC_Optimize>
-    </PropertyGroup>
-    <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
-        <BT_BuildType>Debug</BT_BuildType>
-        <DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
-        <DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
-        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
-        <VerInfo_Locale>1033</VerInfo_Locale>
-        <VerInfo_Keys>CompanyName=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName)</VerInfo_Keys>
-        <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
-    </PropertyGroup>
-    <PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
-        <BT_BuildType>Debug</BT_BuildType>
-        <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
-        <AppDPIAwarenessMode>PerMonitor</AppDPIAwarenessMode>
-        <DCC_UnitSearchPath>..\..\..\..\Source;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
-        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
-        <VerInfo_Locale>1033</VerInfo_Locale>
-        <VerInfo_Keys>CompanyName=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName)</VerInfo_Keys>
-    </PropertyGroup>
-    <ItemGroup>
-        <DelphiCompile Include="$(MainSource)">
-            <MainSource>MainSource</MainSource>
-        </DelphiCompile>
-        <DCCReference Include="fCanvasD.pas">
-            <Form>FormCanvas</Form>
-        </DCCReference>
-        <BuildConfiguration Include="Debug">
-            <Key>Cfg_2</Key>
-            <CfgParent>Base</CfgParent>
-        </BuildConfiguration>
-        <BuildConfiguration Include="Base">
-            <Key>Base</Key>
-        </BuildConfiguration>
-        <BuildConfiguration Include="Release">
-            <Key>Cfg_1</Key>
-            <CfgParent>Base</CfgParent>
-        </BuildConfiguration>
-    </ItemGroup>
-    <ProjectExtensions>
-        <Borland.Personality>Delphi.Personality.12</Borland.Personality>
-        <Borland.ProjectType/>
-        <BorlandProject>
-            <Delphi.Personality>
-                <Source>
-                    <Source Name="MainSource">CanvasD.dpr</Source>
-                </Source>
-                <Excluded_Packages>
-                    <Excluded_Packages Name="$(BDSBIN)\bcboffice2k260.bpl">Embarcadero C++Builder Office 2000 Servers Package</Excluded_Packages>
-                    <Excluded_Packages Name="$(BDSBIN)\bcbofficexp260.bpl">Embarcadero C++Builder Office XP Servers Package</Excluded_Packages>
-                    <Excluded_Packages Name="$(BDSBIN)\dcloffice2k260.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
-                    <Excluded_Packages Name="$(BDSBIN)\dclofficexp260.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
-                </Excluded_Packages>
-            </Delphi.Personality>
-            <Platforms>
-                <Platform value="Win32">True</Platform>
-                <Platform value="Win64">True</Platform>
-            </Platforms>
-            <Deployment Version="3">
-                <DeployFile LocalName="Win32\Debug\CanvasD.exe" Configuration="Debug" Class="ProjectOutput">
-                    <Platform Name="Win32">
-                        <RemoteName>CanvasD.exe</RemoteName>
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployClass Name="AdditionalDebugSymbols">
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="OSX32">
-                        <RemoteDir>Contents\MacOS</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="Win32">
-                        <Operation>0</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="AndroidClassesDexFile">
-                    <Platform Name="Android">
-                        <RemoteDir>classes</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="AndroidFileProvider">
-                    <Platform Name="Android">
-                        <RemoteDir>res\xml</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="AndroidGDBServer">
-                    <Platform Name="Android">
-                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="AndroidLibnativeArmeabiFile">
-                    <Platform Name="Android">
-                        <RemoteDir>library\lib\armeabi</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="AndroidLibnativeMipsFile">
-                    <Platform Name="Android">
-                        <RemoteDir>library\lib\mips</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="AndroidServiceOutput">
-                    <Platform Name="Android">
-                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="AndroidSplashImageDef">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="AndroidSplashStyles">
-                    <Platform Name="Android">
-                        <RemoteDir>res\values</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="AndroidSplashStylesV21">
-                    <Platform Name="Android">
-                        <RemoteDir>res\values-v21</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_Colors">
-                    <Platform Name="Android">
-                        <RemoteDir>res\values</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_DefaultAppIcon">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_LauncherIcon144">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable-xxhdpi</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_LauncherIcon36">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable-ldpi</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_LauncherIcon48">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable-mdpi</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_LauncherIcon72">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable-hdpi</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_LauncherIcon96">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable-xhdpi</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_NotificationIcon24">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable-mdpi</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_NotificationIcon36">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable-hdpi</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_NotificationIcon48">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable-xhdpi</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_NotificationIcon72">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable-xxhdpi</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_NotificationIcon96">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable-xxxhdpi</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_SplashImage426">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable-small</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_SplashImage470">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable-normal</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_SplashImage640">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable-large</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_SplashImage960">
-                    <Platform Name="Android">
-                        <RemoteDir>res\drawable-xlarge</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="Android_Strings">
-                    <Platform Name="Android">
-                        <RemoteDir>res\values</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="DebugSymbols">
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="OSX32">
-                        <RemoteDir>Contents\MacOS</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="Win32">
-                        <Operation>0</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="DependencyFramework">
-                    <Platform Name="OSX32">
-                        <RemoteDir>Contents\MacOS</RemoteDir>
-                        <Operation>1</Operation>
-                        <Extensions>.framework</Extensions>
-                    </Platform>
-                    <Platform Name="OSX64">
-                        <RemoteDir>Contents\MacOS</RemoteDir>
-                        <Operation>1</Operation>
-                        <Extensions>.framework</Extensions>
-                    </Platform>
-                    <Platform Name="Win32">
-                        <Operation>0</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="DependencyModule">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                        <Extensions>.dylib</Extensions>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                        <Extensions>.dylib</Extensions>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                        <Extensions>.dylib</Extensions>
-                    </Platform>
-                    <Platform Name="OSX32">
-                        <RemoteDir>Contents\MacOS</RemoteDir>
-                        <Operation>1</Operation>
-                        <Extensions>.dylib</Extensions>
-                    </Platform>
-                    <Platform Name="OSX64">
-                        <RemoteDir>Contents\MacOS</RemoteDir>
-                        <Operation>1</Operation>
-                        <Extensions>.dylib</Extensions>
-                    </Platform>
-                    <Platform Name="Win32">
-                        <Operation>0</Operation>
-                        <Extensions>.dll;.bpl</Extensions>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Required="true" Name="DependencyPackage">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                        <Extensions>.dylib</Extensions>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                        <Extensions>.dylib</Extensions>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                        <Extensions>.dylib</Extensions>
-                    </Platform>
-                    <Platform Name="OSX32">
-                        <RemoteDir>Contents\MacOS</RemoteDir>
-                        <Operation>1</Operation>
-                        <Extensions>.dylib</Extensions>
-                    </Platform>
-                    <Platform Name="OSX64">
-                        <RemoteDir>Contents\MacOS</RemoteDir>
-                        <Operation>1</Operation>
-                        <Extensions>.dylib</Extensions>
-                    </Platform>
-                    <Platform Name="Win32">
-                        <Operation>0</Operation>
-                        <Extensions>.bpl</Extensions>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="File">
-                    <Platform Name="Android">
-                        <Operation>0</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice32">
-                        <Operation>0</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>0</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>0</Operation>
-                    </Platform>
-                    <Platform Name="OSX32">
-                        <RemoteDir>Contents\Resources\StartUp\</RemoteDir>
-                        <Operation>0</Operation>
-                    </Platform>
-                    <Platform Name="OSX64">
-                        <RemoteDir>Contents\Resources\StartUp\</RemoteDir>
-                        <Operation>0</Operation>
-                    </Platform>
-                    <Platform Name="Win32">
-                        <Operation>0</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPad_Launch1024x768">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPad_Launch1536x2048">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPad_Launch1668">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPad_Launch1668x2388">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPad_Launch2048x1536">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPad_Launch2048x2732">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPad_Launch2224">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPad_Launch2388x1668">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPad_Launch2732x2048">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPad_Launch768x1024">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPhone_Launch1125">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPhone_Launch1136x640">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPhone_Launch1242">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPhone_Launch1242x2688">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPhone_Launch1334">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPhone_Launch1792">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPhone_Launch2208">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPhone_Launch2436">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPhone_Launch2688x1242">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPhone_Launch320">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPhone_Launch640">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPhone_Launch640x1136">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPhone_Launch750">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="iPhone_Launch828">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="ProjectAndroidManifest">
-                    <Platform Name="Android">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="ProjectiOSDeviceDebug">
-                    <Platform Name="iOSDevice32">
-                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="ProjectiOSDeviceResourceRules">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="ProjectiOSEntitlements">
-                    <Platform Name="iOSDevice32">
-                        <RemoteDir>..\</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <RemoteDir>..\</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="ProjectiOSInfoPList">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="ProjectiOSResource">
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="ProjectOSXDebug">
-                    <Platform Name="OSX64">
-                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="ProjectOSXEntitlements">
-                    <Platform Name="OSX32">
-                        <RemoteDir>..\</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="OSX64">
-                        <RemoteDir>..\</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="ProjectOSXInfoPList">
-                    <Platform Name="OSX32">
-                        <RemoteDir>Contents</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="OSX64">
-                        <RemoteDir>Contents</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="ProjectOSXResource">
-                    <Platform Name="OSX32">
-                        <RemoteDir>Contents\Resources</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="OSX64">
-                        <RemoteDir>Contents\Resources</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Required="true" Name="ProjectOutput">
-                    <Platform Name="Android">
-                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSDevice64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="iOSSimulator">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="Linux64">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="OSX32">
-                        <RemoteDir>Contents\MacOS</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="OSX64">
-                        <RemoteDir>Contents\MacOS</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="Win32">
-                        <Operation>0</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="ProjectUWPManifest">
-                    <Platform Name="Win32">
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="Win64">
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="UWP_DelphiLogo150">
-                    <Platform Name="Win32">
-                        <RemoteDir>Assets</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="Win64">
-                        <RemoteDir>Assets</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <DeployClass Name="UWP_DelphiLogo44">
-                    <Platform Name="Win32">
-                        <RemoteDir>Assets</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                    <Platform Name="Win64">
-                        <RemoteDir>Assets</RemoteDir>
-                        <Operation>1</Operation>
-                    </Platform>
-                </DeployClass>
-                <ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
-                <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
-                <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
-                <ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
-                <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
-                <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
-                <ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
-                <ProjectRoot Platform="OSX64" Name="$(PROJECTNAME).app"/>
-                <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
-            </Deployment>
-        </BorlandProject>
-        <ProjectFileVersion>12</ProjectFileVersion>
-    </ProjectExtensions>
-    <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
-    <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
-    <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
-</Project>

Demos/bench/canvas/fCanvasD.dfm

@@ -1,148 +0,0 @@
-object FormCanvas: TFormCanvas
-  Left = 151
-  Top = 105
-  BorderStyle = bsDialog
-  Caption = 'GLCanvas vs GDI'
-  ClientHeight = 329
-  ClientWidth = 537
-  Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'MS Sans Serif'
-  Font.Style = []
-  OldCreateOrder = False
-  PixelsPerInch = 96
-  TextHeight = 13
-  object PaintBox: TPaintBox
-    Left = 272
-    Top = 65
-    Width = 256
-    Height = 256
-  end
-  object lbGLCanvas: TLabel
-    Left = 8
-    Top = 46
-    Width = 76
-    Height = 13
-    Caption = 'GLCanvas: N/A'
-  end
-  object lbGDI: TLabel
-    Left = 272
-    Top = 45
-    Width = 45
-    Height = 13
-    Caption = 'GDI: N/A'
-  end
-  object Bevel1: TBevel
-    Left = 267
-    Top = 48
-    Width = 2
-    Height = 273
-  end
-  object BULines: TButton
-    Left = 8
-    Top = 8
-    Width = 73
-    Height = 25
-    Caption = '20k Lines'
-    TabOrder = 0
-    OnClick = BULinesClick
-  end
-  object BUEllipses: TButton
-    Left = 88
-    Top = 8
-    Width = 73
-    Height = 25
-    Caption = '20k Ellipses'
-    TabOrder = 1
-    OnClick = BUEllipsesClick
-  end
-  object GLSceneViewer: TGLSceneViewer
-    Left = 10
-    Top = 65
-    Width = 256
-    Height = 256
-    Camera = GLCamera1
-    Buffer.Lighting = False
-    FieldOfView = 137.326278686523400000
-    PenAsTouch = False
-    TabOrder = 2
-  end
-  object RBPenWidth1: TRadioButton
-    Left = 432
-    Top = 8
-    Width = 89
-    Height = 17
-    Caption = 'Pen Width = 1'
-    Checked = True
-    TabOrder = 3
-    TabStop = True
-  end
-  object RBPenWidth2: TRadioButton
-    Left = 432
-    Top = 24
-    Width = 89
-    Height = 17
-    Caption = 'Pen Width = 2'
-    TabOrder = 4
-  end
-  object BUArc: TButton
-    Left = 168
-    Top = 35
-    Width = 73
-    Height = 25
-    Caption = '20k Arcs'
-    TabOrder = 8
-    OnClick = BUArcClick
-  end
-  object BUPoints: TButton
-    Left = 248
-    Top = 8
-    Width = 73
-    Height = 25
-    Caption = '200k Points'
-    TabOrder = 5
-    OnClick = BUPointsClick
-  end
-  object BURects: TButton
-    Left = 168
-    Top = 8
-    Width = 73
-    Height = 25
-    Caption = '20k Rects'
-    TabOrder = 6
-    OnClick = BURectsClick
-  end
-  object BUTextOut: TButton
-    Left = 327
-    Top = 8
-    Width = 73
-    Height = 25
-    Caption = '20k TextOut'
-    TabOrder = 7
-    OnClick = BUTextOutClick
-  end
-  object GLScene1: TGLScene
-    Left = 16
-    Top = 72
-    object GLDirectOpenGL1: TGLDirectOpenGL
-      UseBuildList = False
-      OnRender = GLDirectOpenGL1Render
-      Blend = False
-    end
-    object GLCamera1: TGLCamera
-      DepthOfView = 100.000000000000000000
-      FocalLength = 50.000000000000000000
-    end
-  end
-  object WindowsBitmapFont: TGLWindowsBitmapFont
-    Font.Charset = DEFAULT_CHARSET
-    Font.Color = clWhite
-    Font.Height = -11
-    Font.Name = 'Arial'
-    Font.Style = []
-    Left = 96
-    Top = 72
-  end
-end

Demos/bench/canvas/fCanvasD.pas

@@ -1,287 +0,0 @@
-unit fCanvasD;
-
-interface
-
-uses
-  Winapi.OpenGL,
-  System.SysUtils,
-  System.Classes,
-  System.Math,
-  System.Types,
-  Vcl.Graphics,
-  Vcl.Controls,
-  Vcl.Forms,
-  Vcl.Dialogs,
-  Vcl.ExtCtrls,
-  Vcl.StdCtrls,
-
-
-  GLS.Scene,
-  GLS.SceneViewer,
-  GLS.BitmapFont,
-  GLS.WindowsFont,
-  GLS.Coordinates,
-
-  GLS.BaseClasses,
-  GLS.Canvas,
-  GLS.Texture,
-  GLS.RenderContextInfo,
-  GLS.Utils;
-
-type
-  TFormCanvas = class(TForm)
-    BULines: TButton;
-    BUEllipses: TButton;
-    GLSceneViewer: TGLSceneViewer;
-    PaintBox: TPaintBox;
-    lbGLCanvas: TLabel;
-    lbGDI: TLabel;
-    Bevel1: TBevel;
-    GLScene1: TGLScene;
-    GLCamera1: TGLCamera;
-    RBPenWidth1: TRadioButton;
-    RBPenWidth2: TRadioButton;
-    BUPoints: TButton;
-    BURects: TButton;
-    BUTextOut: TButton;
-    WindowsBitmapFont: TGLWindowsBitmapFont;
-    GLDirectOpenGL1: TGLDirectOpenGL;
-    procedure BULinesClick(Sender: TObject);
-    procedure BUEllipsesClick(Sender: TObject);
-    procedure BUPointsClick(Sender: TObject);
-    procedure BURectsClick(Sender: TObject);
-    procedure BUTextOutClick(Sender: TObject);
-    procedure GLDirectOpenGL1Render(Sender: TObject;
-      var rci: TGLRenderContextInfo);
-    procedure BUArcClick(Sender: TObject);
-  private
-
-    procedure PaintTheBox;
-    procedure Bench;
-  public
-
-  end;
-
-var
-  FormCanvas: TFormCanvas;
-
-implementation
-
-{$R *.dfm}
-
-type
-  TWhat = (wLines, wEllipses, wRects, wPoints, wTextOut, wArcs);
-
-var
-  vWhat: TWhat;
-  vPenWidth: Integer;
-
-const
-  cNbLines = 20000;
-  cNbEllipses = 20000;
-  cNbRects = 5000;
-  cNbPoints = 200000;
-  cNbTextOuts = 20000;
-  cNbArcs = 20000;
-
-procedure TFormCanvas.BULinesClick(Sender: TObject);
-begin
-  vWhat := wLines;
-  Bench;
-end;
-
-procedure TFormCanvas.BUArcClick(Sender: TObject);
-begin
-  vWhat := wArcs;
-  Bench;
-end;
-
-procedure TFormCanvas.BUEllipsesClick(Sender: TObject);
-begin
-  vWhat := wEllipses;
-  Bench;
-end;
-
-procedure TFormCanvas.BURectsClick(Sender: TObject);
-begin
-  vWhat := wRects;
-  Bench;
-end;
-
-procedure TFormCanvas.BUPointsClick(Sender: TObject);
-begin
-  vWhat := wPoints;
-  Bench;
-end;
-
-procedure TFormCanvas.BUTextOutClick(Sender: TObject);
-begin
-  vWhat := wTextOut;
-  Bench;
-end;
-
-procedure TFormCanvas.Bench;
-var
-  t: Int64;
-begin
-  if RBPenWidth1.Checked then
-    vPenWidth := 1
-  else
-    vPenWidth := 2;
-
-  Application.ProcessMessages;
-  RandSeed := 0;
-
-  t := StartPrecisionTimer;
-  GLSceneViewer.Refresh;
-  lbGLCanvas.Caption := Format('GLCanvas: %.2f msec',
-    [StopPrecisionTimer(t) * 1000]);
-
-  Application.ProcessMessages;
-  RandSeed := 0;
-
-  t := StartPrecisionTimer;
-  PaintTheBox;
-  lbGDI.Caption := Format('GDI: %.1f msec', [StopPrecisionTimer(t) * 1000]);
-end;
-
-procedure TFormCanvas.GLDirectOpenGL1Render(Sender: TObject;
-  var rci: TGLRenderContextInfo);
-var
-  i, x, y: Integer;
-  GLCanvas: TGLCanvas;
-  r: TRect;
-  Color: TColor;
-begin
-  GLCanvas := TGLCanvas.Create(256, 256);
-  GLCanvas.PenWidth := vPenWidth;
-  case vWhat of
-    wLines:
-      begin
-        for i := 1 to cNbLines do
-        begin
-          GLCanvas.PenColor := Random(256 * 256 * 256);
-          GLCanvas.MoveTo(Random(256), Random(256)); // first point
-          GLCanvas.LineTo(Random(256), Random(256)); // second point
-        end;
-      end;
-    wEllipses:
-      for i := 1 to cNbEllipses do
-      begin
-        GLCanvas.PenColor := Random(256 * 256 * 256);
-        GLCanvas.EllipseBB(Random(256), Random(256), Random(256), Random(256));
-      end;
-    wRects:
-      for i := 1 to cNbRects do
-      begin
-        GLCanvas.PenColor := Random(256 * 256 * 256);
-        r := Rect(Random(256), Random(256), Random(256), Random(256));
-        GLCanvas.FillRect(r.Left, r.Top, r.Right, r.Bottom);
-      end;
-    wPoints:
-      begin
-        for i := 1 to cNbPoints do
-        begin
-          GLCanvas.PenColor := Random(256 * 256 * 256);
-          GLCanvas.PlotPixel(Random(256), Random(256));
-        end;
-      end;
-    wTextOut:
-      begin
-        for i := 1 to cNbTextOuts do
-        begin
-          Color := Random(256 * 256 * 256);
-          x := Random(256);
-          y := Random(256);
-          WindowsBitmapFont.TextOut(rci, x, y, 'Hello', Color);
-        end;
-      end;
-    wArcs:
-      begin
-        for i := 1 to cNbEllipses do
-        begin
-          GLCanvas.PenColor := Random(256 * 256 * 256);
-          GLCanvas.Arc(Random(256), Random(256), Random(256), Random(256),
-            Random(256), Random(256), Random(256), Random(256))
-        end;
-      end;
-  end;
-  GLCanvas.Free;
-end;
-
-procedure TFormCanvas.PaintTheBox;
-var
-  i, x, y: Integer;
-  r: TRect;
-  b: TBitmap;
-begin
-  // to be fair, use offscreen painting...
-  b := TBitmap.Create;
-  b.Width := 256;
-  b.Height := 256;
-  with b.Canvas do
-  begin
-    Brush.Style := bsClear;
-    Pen.Width := vPenWidth;
-    case vWhat of
-      wLines:
-        begin
-          for i := 1 to cNbLines do
-          begin
-            Pen.color := Random(256 * 256 * 256);
-            MoveTo(Random(256), Random(256));
-            LineTo(Random(256), Random(256));
-          end;
-        end;
-      wEllipses:
-        begin
-          for i := 1 to cNbEllipses do
-          begin
-            Pen.color := Random(256 * 256 * 256);
-            Ellipse(Random(256), Random(256), Random(256), Random(256));
-          end;
-        end;
-      wRects:
-        begin
-          Brush.Style := bsSolid;
-          for i := 1 to cNbRects do
-          begin
-            Brush.color := Random(256 * 256 * 256);
-            r := Rect(Random(256), Random(256), Random(256), Random(256));
-            FillRect(r);
-          end;
-        end;
-      wPoints:
-        begin
-          for i := 1 to cNbPoints do
-          begin
-            Pixels[Random(256), Random(256)] := Random(256 * 256 * 256);
-          end;
-        end;
-      wTextOut:
-        begin
-          Font := WindowsBitmapFont.Font;
-          for i := 1 to cNbTextOuts do
-          begin
-            Font.color := Random(256 * 256 * 256);
-            x := Random(256);
-            y := Random(256);
-            TextOut(x, y, 'Hello');
-          end
-        end;
-      wArcs:
-        begin
-          for i := 1 to cNbEllipses do
-          begin
-            Pen.color := Random(256 * 256 * 256);
-            Arc(Random(256), Random(256), Random(256), Random(256), Random(256),
-              Random(256), Random(256), Random(256))
-          end;
-        end;
-    end;
-  end;
-  PaintBox.Canvas.Draw(0, 0, b);
-  b.Free;
-end;
-
-end.

Demos/bench/megacube/fMainC.cpp

@@ -1,63 +0,0 @@
-//---------------------------------------------------------------------------
-
-#include <vcl.h>
-#pragma hdrstop
-
-#include "fMainC.h"
-//---------------------------------------------------------------------------
-#pragma package(smart_init)
-#pragma link "GLS.BaseClasses"
-#pragma link "GLS.Cadencer"
-#pragma link "GLS.Coordinates"
-
-#pragma link "GLS.Objects"
-#pragma link "GLS.Scene"
-#pragma link "GLS.SimpleNavigation"
-#pragma link "GLS.SceneViewer"
-#pragma resource "*.dfm"
-TForm1 *Form1;
-//---------------------------------------------------------------------------
-__fastcall TForm1::TForm1(TComponent* Owner)
-	: TForm(Owner)
-{
-}
-
-const int
-  cSize = 5;
-
-//---------------------------------------------------------------------------
-void __fastcall TForm1::FormCreate(TObject *Sender)
-{
-  int x, y, z;
-  TGLCube *cube;
-  float factor, cubeSize;
-
-  // bench only creation and 1st render (with lists builds, etc...)
-  factor = 70 / (cSize * 2 + 1);
-  cubeSize = 0.4 * factor;
-  for (x = -cSize; x< cSize; x++)
-	for (y = -cSize; y< cSize; y++)
-	  for (z = -cSize; z< cSize; z++)
-	  {
-		cube = (TGLCube *) (DummyCube1->AddNewChild(__classid(TGLCube)));
-		cube->Position->AsVector = PointMake(factor * x, factor * y, factor * z);
-		cube->CubeWidth = cubeSize;
-		cube->CubeHeight = cubeSize;
-		cube->CubeDepth = cubeSize;
-		cube->Material->FrontProperties->Diffuse->Color =
-  		  VectorLerp(clrYellow, clrRed, (float)(x * x + y * y + z * z)/(cSize * cSize * 3));
-
-	  // uncomment following lines to stress OpenGL with more color changes calls
-
-	   //cube->Material->FrontProperties->Ambient->Color=VectorLerp(clrYellow, clrRed, (x*x+y*y+z*z)/(cSize*cSize*3));
-	   //cube->Material->FrontProperties->Emission->Color=VectorLerp(clrYellow, clrRed, (x*x+y*y+z*z)/(cSize*cSize*3));
-	   //cube->Material->FrontProperties->Specular->Color=VectorLerp(clrYellow, clrRed, (x*x+y*y+z*z)/(cSize*cSize*3));
-	  }
-}
-//---------------------------------------------------------------------------
-void __fastcall TForm1::GLCadencer1Progress(TObject *Sender, const double deltaTime,
-          const double newTime)
-{
-  DummyCube1->TurnAngle = 90 * newTime; // 90° per second
-}
-//---------------------------------------------------------------------------

Demos/bench/megacube/fMainC.dfm

@@ -1,76 +0,0 @@
-object Form1: TForm1
-  Left = 0
-  Top = 0
-  Caption = 'Mega Cube'
-  ClientHeight = 408
-  ClientWidth = 593
-  Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
-  OldCreateOrder = False
-  OnCreate = FormCreate
-  PixelsPerInch = 96
-  TextHeight = 13
-  object GLSceneViewer1: TGLSceneViewer
-    Left = 0
-    Top = 0
-    Width = 593
-    Height = 408
-    Camera = GLCamera1
-    Buffer.BackgroundColor = clBlack
-    FieldOfView = 152.456802368164100000
-    PenAsTouch = False
-    Align = alClient
-    TabOrder = 0
-  end
-  object GLScene1: TGLScene
-    ObjectsSorting = osNone
-    Left = 24
-    Top = 8
-    object DummyCube1: TGLDummyCube
-      ObjectsSorting = osRenderBlendedLast
-      CubeSize = 10.000000000000000000
-    end
-    object GLLightSource1: TGLLightSource
-      ConstAttenuation = 1.000000000000000000
-      Position.Coordinates = {0000C842000048420000C8420000803F}
-      LightStyle = lsOmni
-      SpotCutOff = 180.000000000000000000
-    end
-    object GLCamera1: TGLCamera
-      DepthOfView = 500.000000000000000000
-      FocalLength = 50.000000000000000000
-      TargetObject = DummyCube1
-      Position.Coordinates = {000048420000C8410000C8420000803F}
-    end
-  end
-  object GLCadencer1: TGLCadencer
-    Scene = GLScene1
-    OnProgress = GLCadencer1Progress
-    Left = 96
-    Top = 8
-  end
-  object GLSimpleNavigation1: TGLSimpleNavigation
-    Form = Owner
-    GLSceneViewer = GLSceneViewer1
-    FormCaption = 'Mega Cube - %FPS'
-    KeyCombinations = <
-      item
-        ShiftState = [ssLeft, ssRight]
-        Action = snaZoom
-      end
-      item
-        ShiftState = [ssLeft]
-        Action = snaMoveAroundTarget
-      end
-      item
-        ShiftState = [ssRight]
-        Action = snaMoveAroundTarget
-      end>
-    Left = 232
-    Top = 8
-  end
-end

Demos/bench/megacube/fMainC.h

@@ -1,42 +0,0 @@
-//---------------------------------------------------------------------------
-
-#ifndef fMainCH
-#define fMainCH
-//---------------------------------------------------------------------------
-#include <vcl.h>
-#include <tchar.h>
-//---------------------------------------------------------------------------
-#include <System.Classes.hpp>
-#include <Vcl.Controls.hpp>
-#include <Vcl.StdCtrls.hpp>
-#include <Vcl.Forms.hpp>
-#include "GLS.BaseClasses.hpp"
-#include "GLS.Cadencer.hpp"
-#include "GLS.Coordinates.hpp"
-
-#include "GLS.Objects.hpp"
-#include "GLS.Scene.hpp"
-#include "GLS.SimpleNavigation.hpp"
-#include "GLS.SceneViewer.hpp"
-//---------------------------------------------------------------------------
-class TForm1 : public TForm
-{
-__published:	// IDE-managed Components
-	TGLSceneViewer *GLSceneViewer1;
-	TGLScene *GLScene1;
-	TGLDummyCube *DummyCube1;
-	TGLLightSource *GLLightSource1;
-	TGLCamera *GLCamera1;
-	TGLCadencer *GLCadencer1;
-	TGLSimpleNavigation *GLSimpleNavigation1;
-	void __fastcall FormCreate(TObject *Sender);
-	void __fastcall GLCadencer1Progress(TObject *Sender, const double deltaTime, const double newTime);
-
-private:	// User declarations
-public:		// User declarations
-	__fastcall TForm1(TComponent* Owner);
-};
-//---------------------------------------------------------------------------
-extern PACKAGE TForm1 *Form1;
-//---------------------------------------------------------------------------
-#endif

Demos/collisions/BoxSphere/Unit1.dfm

@@ -1,419 +0,0 @@
-object Form1: TForm1
-  Left = 0
-  Top = 0
-  Caption = 'Box Sphere Intersection'
-  ClientHeight = 454
-  ClientWidth = 552
-  Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
-  OldCreateOrder = False
-  Position = poScreenCenter
-  OnCreate = FormCreate
-  OnMouseWheel = FormMouseWheel
-  PixelsPerInch = 96
-  TextHeight = 13
-  object Viewer: TGLSceneViewer
-    Left = 180
-    Top = 0
-    Width = 372
-    Height = 454
-    Camera = GLCamera1
-    Buffer.BackgroundColor = clTeal
-    FieldOfView = 149.907211303710900000
-    PenAsTouch = False
-    Align = alClient
-    OnMouseDown = ViewerMouseDown
-    OnMouseMove = ViewerMouseMove
-    TabOrder = 0
-  end
-  object Panel2: TPanel
-    Left = 0
-    Top = 0
-    Width = 180
-    Height = 454
-    Align = alLeft
-    TabOrder = 1
-    object Label5: TLabel
-      Left = 10
-      Top = 134
-      Width = 54
-      Height = 13
-      Caption = 'Sphere pos'
-    end
-    object Label3: TLabel
-      Left = 16
-      Top = 8
-      Width = 58
-      Height = 13
-      Caption = 'Box position'
-    end
-    object Label4: TLabel
-      Left = 96
-      Top = 8
-      Width = 45
-      Height = 13
-      Caption = 'Box scale'
-    end
-    object Label1: TLabel
-      Left = 8
-      Top = 384
-      Width = 34
-      Height = 13
-      Caption = 'Result:'
-    end
-    object Label7: TLabel
-      Left = 96
-      Top = 136
-      Width = 66
-      Height = 13
-      Caption = 'Sphere radius'
-    end
-    object CheckBox06: TCheckBox
-      Left = 8
-      Top = 291
-      Width = 80
-      Height = 17
-      Caption = 'Grid'
-      Checked = True
-      State = cbChecked
-      TabOrder = 1
-      OnClick = CheckBox04Click
-    end
-    object CheckBox04: TCheckBox
-      Left = 8
-      Top = 242
-      Width = 80
-      Height = 19
-      Caption = 'Box visible'
-      Checked = True
-      State = cbChecked
-      TabOrder = 0
-      OnClick = CheckBox04Click
-    end
-    object CheckBox05: TCheckBox
-      Left = 8
-      Top = 267
-      Width = 80
-      Height = 17
-      Caption = 'Axis'
-      TabOrder = 2
-      OnClick = CheckBox04Click
-    end
-    object CheckBox07: TCheckBox
-      Left = 8
-      Top = 314
-      Width = 97
-      Height = 17
-      Caption = 'Sphere visible '
-      Checked = True
-      State = cbChecked
-      TabOrder = 3
-      OnClick = CheckBox04Click
-    end
-    object Edit1: TEdit
-      Left = 10
-      Top = 25
-      Width = 56
-      Height = 21
-      TabOrder = 4
-      Text = '12'
-      OnChange = Edit1Change
-    end
-    object Edit2: TEdit
-      Left = 10
-      Top = 48
-      Width = 56
-      Height = 21
-      TabOrder = 5
-      Text = '9'
-      OnChange = Edit1Change
-    end
-    object Edit3: TEdit
-      Left = 10
-      Top = 72
-      Width = 56
-      Height = 21
-      TabOrder = 6
-      Text = '6'
-      OnChange = Edit1Change
-    end
-    object UpDown1: TUpDown
-      Left = 66
-      Top = 25
-      Width = 20
-      Height = 21
-      Associate = Edit1
-      Min = -100
-      Position = 12
-      TabOrder = 7
-    end
-    object UpDown2: TUpDown
-      Left = 66
-      Top = 48
-      Width = 20
-      Height = 21
-      Associate = Edit2
-      Min = -100
-      Position = 9
-      TabOrder = 8
-    end
-    object UpDown3: TUpDown
-      Left = 66
-      Top = 72
-      Width = 20
-      Height = 21
-      Associate = Edit3
-      Min = -100
-      Position = 6
-      TabOrder = 9
-    end
-    object Edit4: TEdit
-      Left = 91
-      Top = 24
-      Width = 56
-      Height = 21
-      TabOrder = 10
-      Text = '10'
-      OnChange = Edit1Change
-    end
-    object Edit5: TEdit
-      Left = 91
-      Top = 48
-      Width = 56
-      Height = 21
-      TabOrder = 11
-      Text = '10'
-      OnChange = Edit1Change
-    end
-    object Edit6: TEdit
-      Left = 91
-      Top = 72
-      Width = 56
-      Height = 21
-      TabOrder = 12
-      Text = '10'
-      OnChange = Edit1Change
-    end
-    object UpDown4: TUpDown
-      Left = 147
-      Top = 24
-      Width = 20
-      Height = 21
-      Associate = Edit4
-      Position = 10
-      TabOrder = 13
-    end
-    object UpDown5: TUpDown
-      Left = 147
-      Top = 48
-      Width = 20
-      Height = 21
-      Associate = Edit5
-      Position = 10
-      TabOrder = 14
-    end
-    object UpDown6: TUpDown
-      Left = 147
-      Top = 72
-      Width = 20
-      Height = 21
-      Associate = Edit6
-      Position = 10
-      TabOrder = 15
-    end
-    object Edit7: TEdit
-      Left = 10
-      Top = 152
-      Width = 56
-      Height = 21
-      TabOrder = 16
-      Text = '7'
-      OnChange = Edit1Change
-    end
-    object Edit8: TEdit
-      Left = 10
-      Top = 176
-      Width = 56
-      Height = 21
-      TabOrder = 17
-      Text = '-1'
-      OnChange = Edit1Change
-    end
-    object Edit9: TEdit
-      Left = 10
-      Top = 200
-      Width = 56
-      Height = 21
-      TabOrder = 18
-      Text = '6'
-      OnChange = Edit1Change
-    end
-    object UpDown7: TUpDown
-      Left = 66
-      Top = 152
-      Width = 20
-      Height = 21
-      Associate = Edit7
-      Min = -100
-      Position = 7
-      TabOrder = 19
-    end
-    object UpDown8: TUpDown
-      Left = 66
-      Top = 176
-      Width = 20
-      Height = 21
-      Associate = Edit8
-      Min = -100
-      Position = -1
-      TabOrder = 20
-    end
-    object UpDown9: TUpDown
-      Left = 66
-      Top = 200
-      Width = 20
-      Height = 21
-      Associate = Edit9
-      Min = -100
-      Position = 6
-      TabOrder = 21
-    end
-    object Edit10: TEdit
-      Left = 93
-      Top = 152
-      Width = 56
-      Height = 21
-      TabOrder = 22
-      Text = '5'
-      OnChange = Edit1Change
-    end
-    object UpDown10: TUpDown
-      Left = 149
-      Top = 152
-      Width = 20
-      Height = 21
-      Associate = Edit10
-      Position = 5
-      TabOrder = 23
-    end
-    object Button3: TButton
-      Left = 40
-      Top = 344
-      Width = 75
-      Height = 25
-      Caption = 'Recalc'
-      TabOrder = 24
-      OnClick = Button3Click
-    end
-    object Button4: TButton
-      Left = 11
-      Top = 98
-      Width = 158
-      Height = 25
-      Caption = 'Random box rotation'
-      Default = True
-      TabOrder = 25
-      OnClick = Button4Click
-    end
-  end
-  object GLScene: TGLScene
-    Left = 216
-    Top = 16
-    object DCCamTarget: TGLDummyCube
-      CubeSize = 0.100000001490116100
-      VisibleAtRunTime = True
-    end
-    object GLLightSource1: TGLLightSource
-      ConstAttenuation = 1.000000000000000000
-      Position.Coordinates = {00007A4400004844000016440000803F}
-      SpotCutOff = 180.000000000000000000
-    end
-    object GLLightSource2: TGLLightSource
-      ConstAttenuation = 1.000000000000000000
-      Position.Coordinates = {0000FAC30000C8C3000096C30000803F}
-      SpotCutOff = 180.000000000000000000
-    end
-    object GLCube1: TGLCube
-      Material.FrontProperties.Diffuse.Color = {0000803F00000000000000000000803F}
-    end
-    object DCCube1: TGLDummyCube
-      CubeSize = 1.000000000000000000
-      VisibleAtRunTime = True
-    end
-    object GLSphere1: TGLSphere
-      Material.FrontProperties.Diffuse.Color = {000000000000803F000000000000803F}
-      Radius = 0.500000000000000000
-    end
-    object GLSphere2: TGLSphere
-      Material.FrontProperties.Diffuse.Color = {000000000000803F000000000000803F}
-      Material.PolygonMode = pmLines
-      Radius = 0.500000000000000000
-    end
-    object GLXYZGrid1: TGLXYZGrid
-      XSamplingScale.Min = -10.000000000000000000
-      XSamplingScale.Max = 10.000000000000000000
-      XSamplingScale.Step = 3.000000000000000000
-      YSamplingScale.Min = -10.000000000000000000
-      YSamplingScale.Max = 10.000000000000000000
-      YSamplingScale.Step = 3.000000000000000000
-      ZSamplingScale.Step = 0.100000001490116100
-    end
-    object GLLines1: TGLLines
-      Visible = False
-      LineWidth = 3.000000000000000000
-      Nodes = <
-        item
-          Color.Color = {0000803F00000000000000000000803F}
-        end
-        item
-          X = 1.000000000000000000
-          Color.Color = {0000803F00000000000000000000803F}
-        end
-        item
-          Color.Color = {000000000000003F000000000000803F}
-        end
-        item
-          Y = 1.000000000000000000
-          Color.Color = {0AD7A33E48E1FA3E1F85EB3E0000803F}
-        end
-        item
-        end
-        item
-          Z = 1.000000000000000000
-        end>
-      NodesAspect = lnaInvisible
-      SplineMode = lsmSegments
-      Options = [loUseNodeColorForLines]
-    end
-    object GLLines3: TGLLines
-      LineColor.Color = {0000803F0000803F000000000000803F}
-      LineWidth = 10.000000000000000000
-      Nodes = <>
-      NodesAspect = lnaInvisible
-      Division = 1
-      SplineMode = lsmSegments
-      Options = []
-    end
-    object GLCamera1: TGLCamera
-      DepthOfView = 500.000000000000000000
-      FocalLength = 50.000000000000000000
-      NearPlaneBias = 0.100000001490116100
-      TargetObject = DCCamTarget
-      Position.Coordinates = {0000A04000000040000040400000803F}
-      Direction.Coordinates = {000000000000803F0000008000000000}
-      Up.Coordinates = {00000000000000000000803F00000000}
-      Left = 256
-      Top = 144
-    end
-  end
-  object GLCadencer: TGLCadencer
-    Scene = GLScene
-    OnProgress = GLCadencerProgress
-    Left = 280
-    Top = 16
-  end
-end

Demos/collisions/BoxSphere/Unit1.h

@@ -1,94 +0,0 @@
-//---------------------------------------------------------------------------
-
-#ifndef Unit1H
-#define Unit1H
-//---------------------------------------------------------------------------
-#include <System.Classes.hpp>
-#include <Vcl.Controls.hpp>
-#include <Vcl.StdCtrls.hpp>
-#include <Vcl.Forms.hpp>
-#include "GLS.BaseClasses.hpp"
-#include "GLS.Cadencer.hpp"
-#include "GLS.Coordinates.hpp"
-
-#include "GLS.Graph.hpp"
-#include "GLS.Objects.hpp"
-#include "GLS.Scene.hpp"
-#include "GLS.SceneViewer.hpp"
-#include <Vcl.ComCtrls.hpp>
-#include <Vcl.ExtCtrls.hpp>
-//---------------------------------------------------------------------------
-class TForm1 : public TForm
-{
-__published:	// IDE-managed Components
-	TGLSceneViewer *Viewer;
-	TPanel *Panel2;
-	TLabel *Label5;
-	TLabel *Label3;
-	TLabel *Label4;
-	TLabel *Label1;
-	TLabel *Label7;
-	TCheckBox *CheckBox06;
-	TCheckBox *CheckBox04;
-	TCheckBox *CheckBox05;
-	TCheckBox *CheckBox07;
-	TEdit *Edit1;
-	TEdit *Edit2;
-	TEdit *Edit3;
-	TUpDown *UpDown1;
-	TUpDown *UpDown2;
-	TUpDown *UpDown3;
-	TEdit *Edit4;
-	TEdit *Edit5;
-	TEdit *Edit6;
-	TUpDown *UpDown4;
-	TUpDown *UpDown5;
-	TUpDown *UpDown6;
-	TEdit *Edit7;
-	TEdit *Edit8;
-	TEdit *Edit9;
-	TUpDown *UpDown7;
-	TUpDown *UpDown8;
-	TUpDown *UpDown9;
-	TEdit *Edit10;
-	TUpDown *UpDown10;
-	TButton *Button3;
-	TButton *Button4;
-	TGLScene *GLScene;
-	TGLDummyCube *DCCamTarget;
-	TGLLightSource *GLLightSource1;
-	TGLLightSource *GLLightSource2;
-	TGLCube *GLCube1;
-	TGLDummyCube *DCCube1;
-	TGLSphere *GLSphere1;
-	TGLSphere *GLSphere2;
-	TGLXYZGrid *GLXYZGrid1;
-	TGLLines *GLLines1;
-	TGLLines *GLLines3;
-	TGLCamera *GLCamera1;
-	TGLCadencer *GLCadencer;
-	void __fastcall Button4Click(TObject *Sender);
-	void __fastcall FormCreate(TObject *Sender);
-	void __fastcall CheckBox04Click(TObject *Sender);
-	void __fastcall Edit1Change(TObject *Sender);
-	void __fastcall Button3Click(TObject *Sender);
-	void __fastcall ViewerMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
-          int X, int Y);
-	void __fastcall GLCadencerProgress(TObject *Sender, const double deltaTime, const double newTime);
-	void __fastcall ViewerMouseMove(TObject *Sender, TShiftState Shift, int X, int Y);
-	void __fastcall FormMouseWheel(TObject *Sender, TShiftState Shift, int WheelDelta,
-          TPoint &MousePos, bool &Handled);
-
-
-private:	// User declarations
-	int mdx, mdy;
-	TAffineVector intersPoint, ResNormal, BoxScale, SpherePos;
-	TGLMatrix BoxMatrix;
-	float SphereRadius;
-public:		// User declarations
-	__fastcall TForm1(TComponent* Owner);
-};
-//---------------------------------------------------------------------------
-extern PACKAGE TForm1 *Form1;
-//---------------------------------------------------------------------------
-#endif

Demos/collisions/boxedin/Unit1.dfm

@@ -1,182 +0,0 @@
-object Form1: TForm1
-  Left = 62
-  Top = 15
-  Caption = 'Boxedin'
-  ClientHeight = 530
-  ClientWidth = 697
-  Color = clGray
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'MS Sans Serif'
-  Font.Style = []
-  OldCreateOrder = False
-  WindowState = wsMaximized
-  PixelsPerInch = 96
-  TextHeight = 13
-  object GLSceneViewer2: TGLSceneViewer
-    Left = 0
-    Top = 65
-    Width = 697
-    Height = 465
-    Camera = GLCamera2
-    Buffer.BackgroundColor = 8404992
-    Buffer.ShadeModel = smFlat
-    FieldOfView = 155.726348876953100000
-    PenAsTouch = False
-    Align = alClient
-    TabOrder = 0
-  end
-  object Panel1: TPanel
-    Left = 0
-    Top = 0
-    Width = 697
-    Height = 65
-    Align = alTop
-    BevelOuter = bvNone
-    TabOrder = 1
-    object Label1: TLabel
-      Left = 344
-      Top = 11
-      Width = 32
-      Height = 13
-      Caption = 'Label1'
-    end
-    object Label2: TLabel
-      Left = 344
-      Top = 26
-      Width = 32
-      Height = 13
-      Caption = 'Label2'
-    end
-    object Label3: TLabel
-      Left = 344
-      Top = 43
-      Width = 32
-      Height = 13
-      Caption = 'Label3'
-    end
-    object Label4: TLabel
-      Left = 192
-      Top = 8
-      Width = 37
-      Height = 13
-      Caption = 'Velocity'
-    end
-    object LabelFPS: TLabel
-      Left = 440
-      Top = 26
-      Width = 20
-      Height = 13
-      Caption = 'FPS'
-    end
-    object TrackBar1: TTrackBar
-      Left = 112
-      Top = 27
-      Width = 201
-      Height = 25
-      Max = 50
-      Position = 1
-      TabOrder = 0
-    end
-    object Button1: TButton
-      Left = 8
-      Top = 24
-      Width = 75
-      Height = 25
-      Caption = 'Reset'
-      TabOrder = 1
-      OnClick = Button1Click
-    end
-  end
-  object GLScene1: TGLScene
-    Left = 40
-    Top = 88
-    object GLLightSource1: TGLLightSource
-      Ambient.Color = {000000001283003F9CC4403F0000803F}
-      ConstAttenuation = 1.000000000000000000
-      Diffuse.Color = {1283003F1283003F1283003F0000803F}
-      Position.Coordinates = {00004842000016430000C8420000803F}
-      LightStyle = lsOmni
-      Specular.Color = {0000803F0000803F0000803F0000803F}
-      SpotCutOff = 180.000000000000000000
-    end
-    object DummyCube1: TGLDummyCube
-      CubeSize = 1.000000000000000000
-      object FreeForm1: TGLFreeForm
-        Direction.Coordinates = {000000000000803F0000000000000000}
-        Up.Coordinates = {00000000000000000000803F00000000}
-      end
-    end
-    object Sphere1: TGLSphere
-      Material.FrontProperties.Emission.Color = {0000803F0000803F000000000000803F}
-      Direction.Coordinates = {000000000000803F0000000000000000}
-      Up.Coordinates = {E9DC72BF000000009BE8A13E00000000}
-      Radius = 0.100000001490116100
-      Slices = 6
-      Stacks = 6
-      object ArrowLine1: TGLArrowLine
-        Material.FrontProperties.Diffuse.Color = {CDCC4C3FCDCC4C3FCDCC4C3F9A99193F}
-        Material.FrontProperties.Emission.Color = {1283803E1283803E000000000000803F}
-        Material.BlendingMode = bmTransparency
-        Position.Coordinates = {0000000000000000CDCCCC3D0000803F}
-        BottomRadius = 0.050000000745058060
-        Height = 1.000000000000000000
-        TopRadius = 0.100000001490116100
-        TopArrowHeadHeight = 2.000000000000000000
-        TopArrowHeadRadius = 0.200000002980232200
-        BottomArrowHeadHeight = 0.500000000000000000
-        BottomArrowHeadRadius = 0.200000002980232200
-      end
-    end
-    object DummyCube2: TGLDummyCube
-      CubeSize = 1.000000000000000000
-    end
-    object Sphere2: TGLSphere
-      Material.FrontProperties.Diffuse.Color = {0000803F00000000000000000000803F}
-      Material.FrontProperties.Shininess = 128
-      Material.FrontProperties.Specular.Color = {0000803F0000803F0000803F0000803F}
-      VisibilityCulling = vcObjectBased
-      Direction.Coordinates = {4A602B3FC61C69BE490635BF00000000}
-      Position.Coordinates = {000000000000E040000000C00000803F}
-      Up.Coordinates = {B819C33EF71E6C3FCDAE823D00000000}
-      Radius = 20.000000000000000000
-      Slices = 24
-      Stacks = 24
-    end
-    object GLLightSource2: TGLLightSource
-      Ambient.Color = {000000001283803E1283003F0000803F}
-      ConstAttenuation = 1.000000000000000000
-      Diffuse.Color = {BEC0403FBEC0403FBEC0403F0000803F}
-      Specular.Color = {0000803F0000803F0000803F0000803F}
-      SpotCutOff = 180.000000000000000000
-    end
-    object Lines1: TGLLines
-      LineColor.Color = {0000803F0000803F0000003F3333733F}
-      LineWidth = 3.000000000000000000
-      NodeColor.Color = {0000803F0000803F000000000000803F}
-      Nodes = <>
-      NodesAspect = lnaCube
-      NodeSize = 10.000000000000000000
-      Options = [loUseNodeColorForLines]
-    end
-    object GLCamera2: TGLCamera
-      DepthOfView = 1000.000000000000000000
-      FocalLength = 50.000000000000000000
-      TargetObject = Sphere2
-      Position.Coordinates = {0000000000008040000040C00000803F}
-      Direction.Coordinates = {00000000000000800000803F00000000}
-    end
-  end
-  object GLCadencer1: TGLCadencer
-    Scene = GLScene1
-    OnProgress = GLCadencer1Progress
-    Left = 112
-    Top = 88
-  end
-  object Timer1: TTimer
-    OnTimer = Timer1Timer
-    Left = 624
-    Top = 80
-  end
-end

Demos/collisions/boxedin/Unit1.h

@@ -1,69 +0,0 @@
-//---------------------------------------------------------------------------
-
-#ifndef Unit1H
-#define Unit1H
-//---------------------------------------------------------------------------
-#include <Classes.hpp>
-#include <Controls.hpp>
-#include <StdCtrls.hpp>
-#include <Forms.hpp>
-#include <ComCtrls.hpp>
-#include <ExtCtrls.hpp>
-#include "GLS.VectorGeometry.hpp"
-#include "GLS.Scene.hpp"
-#include "GLS.BaseClasses.hpp"
-#include <GLS.GeomObjects.hpp>
-#include <GLS.Navigator.hpp>
-#include <GLS.Cadencer.hpp>
-#include <GLS.SceneViewer.hpp>
-#include <GLS.Objects.hpp>
-#include <GLS.VectorFileObjects.hpp>
-#include "GLS.Coordinates.hpp"
-
-#include "GLS.Utils.hpp"
-#include "GLS.Cadencer.hpp"
-#include "GLS.SceneViewer.hpp"hpp"
-
-//---------------------------------------------------------------------------
-class TForm1:public TForm
-{
-__published:                   // IDE-managed Components
-  TGLScene * GLScene1;
-  TGLLightSource *GLLightSource1;
-  TGLDummyCube *DummyCube1;
-  TGLFreeForm *FreeForm1;
-  TGLSphere *Sphere1;
-  TGLArrowLine *ArrowLine1;
-  TGLSceneViewer *GLSceneViewer2;
-  TGLCamera *GLCamera2;
-  TGLCadencer *GLCadencer1;
-  TTimer *Timer1;
-  TGLDummyCube *DummyCube2;
-  TGLSphere *Sphere2;
-  TGLLightSource *GLLightSource2;
-  TPanel *Panel1;
-  TLabel *Label1;
-  TLabel *Label2;
-  TLabel *Label3;
-  TLabel *Label4;
-  TTrackBar *TrackBar1;
-  TButton *Button1;
-  TGLLines *Lines1;
-	TLabel *LabelFPS;
-  void __fastcall GLCadencer1Progress(TObject * Sender, const double deltaTime,
-                                      const double newTime);
-  void __fastcall Timer1Timer(TObject * Sender);
-  void __fastcall Button1Click(TObject * Sender);
-private:                       // User declarations
-  float colTotalTime;           // for timing collision detection
-  int colCount;
-  void AddToTrail(const TGLVector & p);
-public:                        // User declarations
-    __fastcall TForm1(TComponent * Owner);
-  int mousex, mousey;
-};
-//---------------------------------------------------------------------------
-extern PACKAGE TForm1 *Form1;
-//---------------------------------------------------------------------------
-#endif
- 

Demos/collisions/facevsface/Unit1.dfm

@@ -1,302 +0,0 @@
-object Form1: TForm1
-  Left = 0
-  Top = 0
-  Caption = 'Face vs Face'
-  ClientHeight = 445
-  ClientWidth = 577
-  Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
-  OldCreateOrder = False
-  WindowState = wsMaximized
-  OnCreate = FormCreate
-  OnShow = FormShow
-  PixelsPerInch = 96
-  TextHeight = 13
-  object Splitter1: TSplitter
-    Left = 428
-    Top = 0
-    Width = 4
-    Height = 296
-    Align = alRight
-    ExplicitLeft = 460
-    ExplicitHeight = 331
-  end
-  object GLSceneViewer1: TGLSceneViewer
-    Left = 121
-    Top = 0
-    Width = 307
-    Height = 296
-    Camera = GLCamera2
-    Buffer.BackgroundColor = 8404992
-    FieldOfView = 40.608947753906250000
-    PenAsTouch = False
-    Align = alClient
-    OnMouseDown = GLSceneViewer1MouseDown
-    OnMouseMove = GLSceneViewer1MouseMove
-    TabOrder = 0
-  end
-  object Panel1: TPanel
-    Left = 0
-    Top = 0
-    Width = 121
-    Height = 296
-    Align = alLeft
-    BevelOuter = bvLowered
-    TabOrder = 1
-    object Shape1: TShape
-      Left = 88
-      Top = 10
-      Width = 25
-      Height = 25
-      Shape = stCircle
-    end
-    object Label1: TLabel
-      Left = 8
-      Top = 8
-      Width = 64
-      Height = 13
-      Caption = 'Collision test:'
-    end
-    object LATime: TLabel
-      Left = 8
-      Top = 24
-      Width = 73
-      Height = 13
-      Alignment = taRightJustify
-      AutoSize = False
-      Caption = 'LATime'
-    end
-    object Label2: TLabel
-      Left = 8
-      Top = 96
-      Width = 102
-      Height = 13
-      Caption = 'Teapot collision mode'
-    end
-    object cbCollisionMode: TRadioGroup
-      Left = 8
-      Top = 112
-      Width = 105
-      Height = 105
-      ItemIndex = 4
-      Items.Strings = (
-        'cbmPoint'
-        'cbmSphere'
-        'cbmEllipsoid'
-        'cbmCube'
-        'cbmFaces')
-      TabOrder = 0
-      OnClick = cbCollisionModeClick
-    end
-  end
-  object Panel2: TPanel
-    Left = 0
-    Top = 296
-    Width = 577
-    Height = 149
-    Align = alBottom
-    TabOrder = 2
-    object StringGrid1: TStringGrid
-      Left = 8
-      Top = 6
-      Width = 553
-      Height = 139
-      ColCount = 6
-      DefaultColWidth = 90
-      DefaultRowHeight = 20
-      RowCount = 6
-      TabOrder = 0
-    end
-  end
-  object Memo1: TMemo
-    Left = 432
-    Top = 0
-    Width = 145
-    Height = 296
-    Align = alRight
-    Lines.Strings = (
-      'Memo1')
-    TabOrder = 3
-  end
-  object GLScene1: TGLScene
-    Left = 192
-    Top = 16
-    object GLLightSource1: TGLLightSource
-      ConstAttenuation = 1.000000000000000000
-      Position.Coordinates = {0000204100002041000020410000803F}
-      SpotCutOff = 180.000000000000000000
-    end
-    object GLLightSource2: TGLLightSource
-      ConstAttenuation = 1.000000000000000000
-      Position.Coordinates = {000020C100002041000020C10000803F}
-      SpotCutOff = 180.000000000000000000
-    end
-    object DummyCube1: TGLDummyCube
-      ShowAxes = True
-      CubeSize = 1.000000000000000000
-      EdgeColor.Color = {0000003F0000003F0000003F0000803F}
-      object GLCamera2: TGLCamera
-        DepthOfView = 1000.000000000000000000
-        FocalLength = 400.000000000000000000
-        TargetObject = DummyCube1
-        Position.Coordinates = {0000704100002041000070410000803F}
-      end
-      object txtX: TGLSpaceText
-        Position.Coordinates = {0000004000000000000000000000803F}
-        Scale.Coordinates = {0000003F0000003F0000003F00000000}
-        Extrusion = 0.100000001490116100
-        Font.Charset = DEFAULT_CHARSET
-        Font.Color = clWindowText
-        Font.Height = -11
-        Font.Name = 'Arial'
-        Font.Style = []
-        Lines.Strings = (
-          'X')
-      end
-      object txtY: TGLSpaceText
-        Position.Coordinates = {0000000000000040000000000000803F}
-        Scale.Coordinates = {0000003F0000003F0000003F00000000}
-        Extrusion = 0.100000001490116100
-        Font.Charset = DEFAULT_CHARSET
-        Font.Color = clWindowText
-        Font.Height = -11
-        Font.Name = 'Arial'
-        Font.Style = []
-        Lines.Strings = (
-          'Y')
-      end
-      object txtZ: TGLSpaceText
-        Position.Coordinates = {0000000000000000000000400000803F}
-        Scale.Coordinates = {0000003F0000003F0000003F00000000}
-        Extrusion = 0.100000001490116100
-        Font.Charset = DEFAULT_CHARSET
-        Font.Color = clWindowText
-        Font.Height = -11
-        Font.Name = 'Arial'
-        Font.Style = []
-        Lines.Strings = (
-          'Z')
-      end
-      object TeaPot1: TGLFreeForm
-        Direction.Coordinates = {613D73BDD128723F4D43A3BE00000000}
-        Position.Coordinates = {00000000000000003333B33E0000803F}
-        Scale.Coordinates = {0AD7233C0AD7233C0AD7233C00000000}
-        Up.Coordinates = {C9B14FBFC3BE0F3ED548113F00000000}
-        AutoCentering = [macCenterX, macCenterY, macCenterZ]
-        BehavioursData = {
-          0458434F4C02010201060D54474C42436F6C6C6973696F6E0202020012000000
-          0002000611436F6C6C6973696F6E4D616E616765723102040200}
-      end
-      object TeaPot2: TGLFreeForm
-        Direction.Coordinates = {0DFB4AB20000803F7A829A3200000000}
-        Position.Coordinates = {0000000000000000CDCCCCBE0000803F}
-        Scale.Coordinates = {0AD7233C0AD7233C0AD7233C00000000}
-        Up.Coordinates = {F30435BFD41F8BB3F30435BF00000000}
-        AutoCentering = [macCenterX, macCenterY, macCenterZ]
-        BehavioursData = {
-          0458434F4C02010201060D54474C42436F6C6C6973696F6E0202020012000000
-          0002000611436F6C6C6973696F6E4D616E616765723102040200}
-      end
-      object CubePoint1: TGLCube
-        Position.Coordinates = {000000000000803F000000000000803F}
-        BehavioursData = {
-          0458434F4C02010201060D54474C42436F6C6C6973696F6E0202020012000000
-          0002000611436F6C6C6973696F6E4D616E616765723102000200}
-        CubeSize = {CDCC4C3DCDCC4C3DCDCC4C3D}
-      end
-      object CubePoint2: TGLCube
-        Position.Coordinates = {CDCC4CBE0000803F000000000000803F}
-        Scale.Coordinates = {CDCC4C3DCDCC4C3DCDCC4C3D00000000}
-        BehavioursData = {
-          0458434F4C02010201060D54474C42436F6C6C6973696F6E0202020012000000
-          0002000611436F6C6C6973696F6E4D616E616765723102000200}
-      end
-      object Cube2: TGLCube
-        Material.BackProperties.Ambient.Color = {CDCC4C3ECDCC4C3ECDCC4C3E0000003F}
-        Material.BackProperties.Diffuse.Color = {CDCC4C3FCDCC4C3FCDCC4C3F0000003F}
-        Material.BackProperties.Emission.Color = {0000000000000000000000000000003F}
-        Material.BackProperties.Specular.Color = {0000000000000000000000000000003F}
-        Material.FrontProperties.Ambient.Color = {CDCC4C3ECDCC4C3ECDCC4C3ECDCC4C3E}
-        Material.FrontProperties.Diffuse.Color = {CDCC4C3FCDCC4C3FCDCC4C3F0000003F}
-        Material.FrontProperties.Emission.Color = {0000000000000000000000000000003F}
-        Material.BlendingMode = bmTransparency
-        Position.Coordinates = {0000803F00000000000080BF0000803F}
-        Scale.Coordinates = {0000803F000000400000803F00000000}
-        BehavioursData = {
-          0458434F4C02010201060D54474C42436F6C6C6973696F6E0202020012000000
-          0002000611436F6C6C6973696F6E4D616E616765723102030200}
-        CubeSize = {0000803F0000803F0000003F}
-      end
-      object Bar: TGLCube
-        Material.FrontProperties.Diffuse.Color = {0000803F5839343E5839343E0000803F}
-        Position.Coordinates = {0000803F000000000000803F0000803F}
-        BehavioursData = {
-          0458434F4C02010201060D54474C42436F6C6C6973696F6E0202020012000000
-          0002000611436F6C6C6973696F6E4D616E616765723102030200}
-        CubeSize = {CDCC4C3DCDCC4C3D00000040}
-      end
-      object GLSphere1: TGLSphere
-        Position.Coordinates = {000000C000000000000000000000803F}
-        Radius = 0.500000000000000000
-        BehavioursData = {
-          0458434F4C02010201060D54474C42436F6C6C6973696F6E0202020012000000
-          0002000611436F6C6C6973696F6E4D616E616765723102010200}
-      end
-      object GLSphere2: TGLSphere
-        Position.Coordinates = {000000C000000000000080BF0000803F}
-        Scale.Coordinates = {CDCC4C3FCDCC4C3FCDCC4C3F00000000}
-        Radius = 0.300000011920929000
-        BehavioursData = {
-          0458434F4C02010201060D54474C42436F6C6C6973696F6E0202020012000000
-          0002000611436F6C6C6973696F6E4D616E616765723102010200}
-      end
-      object GLSphereEllipsoid1: TGLSphere
-        Position.Coordinates = {000080BF00000000000000C00000803F}
-        Scale.Coordinates = {9A99193F0000803F0000803F00000000}
-        Radius = 0.500000000000000000
-        BehavioursData = {
-          0458434F4C02010201060D54474C42436F6C6C6973696F6E0202020012000000
-          0002000611436F6C6C6973696F6E4D616E616765723102020200}
-      end
-      object GLSphereEllipsoid2: TGLSphere
-        Position.Coordinates = {0000000000000000000000C00000803F}
-        Scale.Coordinates = {CDCC4C3FCDCCCC3F3333333F00000000}
-        Radius = 0.300000011920929000
-        BehavioursData = {
-          0458434F4C02010201060D54474C42436F6C6C6973696F6E0202020012000000
-          0002000611436F6C6C6973696F6E4D616E616765723102020200}
-      end
-      object GLCube1: TGLCube
-        Position.Coordinates = {0000803F000080BF000000000000803F}
-        Scale.Coordinates = {3333333F3333B33F0000803F00000000}
-        BehavioursData = {
-          0458434F4C02010201060D54474C42436F6C6C6973696F6E0202020012000000
-          0002000611436F6C6C6973696F6E4D616E616765723102030200}
-        CubeSize = {0000803F0000803F6666A63F}
-      end
-    end
-    object GLCamera1: TGLCamera
-      DepthOfView = 100.000000000000000000
-      FocalLength = 50.000000000000000000
-    end
-    object GLCamera3: TGLCamera
-      DepthOfView = 100.000000000000000000
-      FocalLength = 50.000000000000000000
-    end
-  end
-  object Timer1: TTimer
-    Interval = 100
-    OnTimer = Timer1Timer
-    Left = 464
-    Top = 8
-  end
-  object CollisionManager1: TGLCollisionManager
-    OnCollision = CollisionManager1Collision
-    Left = 192
-    Top = 80
-  end
-end

Demos/collisions/meshhit/Unit1.dfm

@@ -1,109 +0,0 @@
-object Form1: TForm1
-  Left = 0
-  Top = 0
-  Caption = 'Mesh Hit'
-  ClientHeight = 271
-  ClientWidth = 555
-  Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
-  OldCreateOrder = False
-  Position = poScreenCenter
-  OnCreate = FormCreate
-  PixelsPerInch = 96
-  TextHeight = 13
-  object Label1: TLabel
-    Left = 8
-    Top = 8
-    Width = 79
-    Height = 13
-    Caption = 'Orthogonal View'
-  end
-  object Label2: TLabel
-    Left = 280
-    Top = 8
-    Width = 81
-    Height = 13
-    Caption = 'Perspective View'
-  end
-  object GLSceneViewer1: TGLSceneViewer
-    Left = 8
-    Top = 24
-    Width = 265
-    Height = 241
-    Camera = GLCamera1
-    Buffer.BackgroundColor = clGray
-    FieldOfView = 170.512069702148400000
-    OnMouseDown = GLSceneViewer1MouseDown
-    OnMouseMove = GLSceneViewer1MouseMove
-    TabOrder = 0
-  end
-  object GLSceneViewer2: TGLSceneViewer
-    Left = 279
-    Top = 22
-    Width = 265
-    Height = 241
-    Camera = GLCamera2
-    Buffer.BackgroundColor = clGray
-    FieldOfView = 134.929183959960900000
-    OnMouseDown = GLSceneViewer2MouseDown
-    OnMouseMove = GLSceneViewer2MouseMove
-    TabOrder = 1
-  end
-  object GLScene1: TGLScene
-    Left = 56
-    Top = 48
-    object GLLightSource1: TGLLightSource
-      ConstAttenuation = 1.000000000000000000
-      Position.Coordinates = {000048420000704200008C420000803F}
-      SpotCutOff = 180.000000000000000000
-    end
-    object DummyCube1: TGLDummyCube
-      CubeSize = 1.000000000000000000
-      object FreeForm1: TGLFreeForm
-        Direction.Coordinates = {000000000000803F0000000000000000}
-        Scale.Coordinates = {CDCCCC3DCDCCCC3DCDCCCC3D00000000}
-        ShowAxes = True
-        Up.Coordinates = {00000000000000000000803F00000000}
-        NormalsOrientation = mnoInvert
-      end
-    end
-    object Sphere1: TGLSphere
-      Material.FrontProperties.Emission.Color = {0000803F0000803F000000000000803F}
-      Direction.Coordinates = {000000000000803F0000000000000000}
-      Up.Coordinates = {E9DC72BF000000009BE8A13E00000000}
-      Radius = 0.300000011920929000
-      Slices = 6
-      Stacks = 6
-      object ArrowLine1: TGLArrowLine
-        Material.FrontProperties.Diffuse.Color = {CDCC4C3FCDCC4C3FCDCC4C3F9A99193F}
-        Material.FrontProperties.Emission.Color = {1283803E1283803E000000000000803F}
-        Material.BlendingMode = bmTransparency
-        Position.Coordinates = {0000000000000000CDCCCC3D0000803F}
-        BottomRadius = 0.050000000745058060
-        Height = 1.000000000000000000
-        TopRadius = 0.100000001490116100
-        TopArrowHeadHeight = 0.500000000000000000
-        TopArrowHeadRadius = 0.200000002980232200
-        BottomArrowHeadHeight = 0.500000000000000000
-        BottomArrowHeadRadius = 0.200000002980232200
-      end
-    end
-    object GLCamera1: TGLCamera
-      DepthOfView = 100.000000000000000000
-      FocalLength = 10.000000000000000000
-      TargetObject = DummyCube1
-      CameraStyle = csOrthogonal
-      Position.Coordinates = {0000504100004040000010410000803F}
-    end
-    object GLCamera2: TGLCamera
-      DepthOfView = 100.000000000000000000
-      FocalLength = 50.000000000000000000
-      TargetObject = DummyCube1
-      Position.Coordinates = {0000204100002041000020410000803F}
-    end
-  end
-end

Demos/collisions/meshhit/Unit1.h

@@ -1,51 +0,0 @@
-//---------------------------------------------------------------------------
-
-#ifndef Unit1H
-#define Unit1H
-//---------------------------------------------------------------------------
-#include <System.Classes.hpp>
-#include <Vcl.Controls.hpp>
-#include <Vcl.StdCtrls.hpp>
-#include <Vcl.Forms.hpp>
-#include "GLS.BaseClasses.hpp"
-#include "GLS.Coordinates.hpp"
-
-#include "GLS.GeomObjects.hpp"
-#include "GLS.Objects.hpp"
-#include "GLS.Scene.hpp"
-#include "GLS.VectorFileObjects.hpp"
-#include "GLS.SceneViewer.hpp"
-#include "GLS.File3DS.hpp"
-//---------------------------------------------------------------------------
-class TForm1 : public TForm
-{
-__published:	// IDE-managed Components
-	TLabel *Label1;
-	TLabel *Label2;
-	TGLSceneViewer *GLSceneViewer1;
-	TGLSceneViewer *GLSceneViewer2;
-	TGLScene *GLScene1;
-	TGLLightSource *GLLightSource1;
-	TGLDummyCube *DummyCube1;
-	TGLFreeForm *FreeForm1;
-	TGLSphere *Sphere1;
-	TGLArrowLine *ArrowLine1;
-	TGLCamera *GLCamera1;
-	TGLCamera *GLCamera2;
-	void __fastcall FormCreate(TObject *Sender);
-	void __fastcall GLSceneViewer1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
-          int X, int Y);
-	void __fastcall GLSceneViewer1MouseMove(TObject *Sender, TShiftState Shift, int X,
-          int Y);
-	void __fastcall GLSceneViewer2MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
-          int X, int Y);
-	void __fastcall GLSceneViewer2MouseMove(TObject *Sender, TShiftState Shift, int X,
-          int Y);
-private:	// User declarations
-public:		// User declarations
-	__fastcall TForm1(TComponent* Owner);
-};
-//---------------------------------------------------------------------------
-extern PACKAGE TForm1 *Form1;
-//---------------------------------------------------------------------------
-#endif

Demos/collisions/sphere/Unit1.dfm

@@ -1,89 +0,0 @@
-object Form1: TForm1
-  Left = 0
-  Top = 0
-  Caption = 'Sphere Collision'
-  ClientHeight = 333
-  ClientWidth = 452
-  Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
-  OldCreateOrder = False
-  PixelsPerInch = 96
-  TextHeight = 13
-  object GLSceneViewer1: TGLSceneViewer
-    Left = 0
-    Top = 0
-    Width = 452
-    Height = 288
-    Camera = GLCamera1
-    FieldOfView = 141.703720092773400000
-    Align = alClient
-    TabOrder = 0
-  end
-  object TrackBar1: TTrackBar
-    Left = 0
-    Top = 288
-    Width = 452
-    Height = 45
-    Align = alBottom
-    Max = 20
-    Min = -20
-    Frequency = 5
-    Position = 20
-    TabOrder = 1
-    TickMarks = tmBoth
-    OnChange = TrackBar1Change
-  end
-  object Button1: TButton
-    Left = 336
-    Top = 16
-    Width = 91
-    Height = 25
-    Caption = 'Test collisions'
-    TabOrder = 2
-    OnClick = Button1Click
-  end
-  object GLScene1: TGLScene
-    Left = 16
-    Top = 16
-    object GLLightSource1: TGLLightSource
-      ConstAttenuation = 1.000000000000000000
-      Position.Coordinates = {0000A0410000A0410000A0410000803F}
-      SpotCutOff = 180.000000000000000000
-    end
-    object DummyCube1: TGLDummyCube
-      CubeSize = 1.000000000000000000
-    end
-    object Sphere1: TGLSphere
-      Material.FrontProperties.Diffuse.Color = {8A8F0F3FBEBC3C3F8A8F0F3F0000803F}
-      Position.Coordinates = {0000000000000000000000400000803F}
-      Radius = 0.500000000000000000
-      BehavioursData = {
-        0458434F4C02010201060D54474C42436F6C6C6973696F6E0202020012000000
-        0002000611436F6C6C6973696F6E4D616E616765723102010200}
-    end
-    object Sphere2: TGLSphere
-      Material.FrontProperties.Diffuse.Color = {00000000F8FEFE3E0000803F0000803F}
-      Radius = 0.500000000000000000
-      BehavioursData = {
-        0458434F4C02010201060D54474C42436F6C6C6973696F6E0202020012000000
-        0002000611436F6C6C6973696F6E4D616E616765723102010200}
-    end
-    object GLCamera1: TGLCamera
-      DepthOfView = 100.000000000000000000
-      FocalLength = 50.000000000000000000
-      TargetObject = DummyCube1
-      Position.Coordinates = {0000A04000004040000000400000803F}
-      Left = 256
-      Top = 160
-    end
-  end
-  object CollisionManager1: TGLCollisionManager
-    OnCollision = CollisionManager1Collision
-    Left = 16
-    Top = 72
-  end
-end

Demos/collisions/sphere/Unit1.h

@@ -1,43 +0,0 @@
-//---------------------------------------------------------------------------
-
-#ifndef Unit1H
-#define Unit1H
-//---------------------------------------------------------------------------
-#include <System.Classes.hpp>
-#include <Vcl.Controls.hpp>
-#include <Vcl.StdCtrls.hpp>
-#include <Vcl.Forms.hpp>
-#include "GLS.BaseClasses.hpp"
-#include "GLS.Collision.hpp"
-#include "GLS.Coordinates.hpp"
-
-#include "GLS.Objects.hpp"
-#include "GLS.Scene.hpp"
-#include "GLS.SceneViewer.hpp"
-#include <Vcl.ComCtrls.hpp>
-//---------------------------------------------------------------------------
-class TForm1 : public TForm
-{
-__published:	// IDE-managed Components
-	TGLSceneViewer *GLSceneViewer1;
-	TTrackBar *TrackBar1;
-	TButton *Button1;
-	TGLScene *GLScene1;
-	TGLLightSource *GLLightSource1;
-	TGLDummyCube *DummyCube1;
-	TGLSphere *Sphere1;
-	TGLSphere *Sphere2;
-	TGLCamera *GLCamera1;
-	TGLCollisionManager *CollisionManager1;
-	void __fastcall TrackBar1Change(TObject *Sender);
-	void __fastcall Button1Click(TObject *Sender);
-	void __fastcall CollisionManager1Collision(TObject *Sender, TGLBaseSceneObject *object1,
-          TGLBaseSceneObject *object2);
-private:	// User declarations
-public:		// User declarations
-	__fastcall TForm1(TComponent* Owner);
-};
-//---------------------------------------------------------------------------
-extern PACKAGE TForm1 *Form1;
-//---------------------------------------------------------------------------
-#endif