Upgrade v.2.5

Examples/AdvDemos/ActorMS3D/fActorms3dD.pas

@@ -19,7 +19,7 @@ uses
   GLScene.VectorTypes,
   GLScene.Utils,
 
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
   GLScene.VectorLists,
   GLS.Cadencer,
   GLS.SceneViewer,

Examples/AdvDemos/Forest/fForestD.pas

@@ -41,7 +41,7 @@ uses
   GLS.ParticleFX,
   GLS.Graphics,
   GLS.XOpenGL,
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
   GLS.TextureCombiners,
   GLS.Material,
   GLScene.Coordinates,

Examples/Demos/computing/VertexGeneration/fVertexGenD.pas

@@ -14,7 +14,7 @@ uses
   GLS.Scene,
   GLScene.VectorTypes,
   GLScene.VectorGeometry,
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
   GLS.Cadencer,
   GLS.SceneViewer,
  

Examples/Demos/glslshaders/ProjectedTexture/fProjectTextureD.pas

@@ -26,7 +26,7 @@ uses
   GLS.FileLMTS,
   GLS.Context,
   GLScene.VectorGeometry,
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
   GLSL.ProjectedTextures,
 
   GLS.Graphics,

Examples/Demos/interface/camera/fCameraD.pas

@@ -15,7 +15,7 @@ uses
   GLScene.VectorTypes,
   GLS.Objects,
   GLScene.PersistentClasses,
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
   GLS.GeomObjects,
   GLScene.Coordinates,
   GLScene.BaseClasses,

Examples/Demos/specialsFX/ShadowFBO/fShadowFBOD.pas

@@ -37,7 +37,7 @@ uses
   GLS.RenderContextInfo,
   GLS.SimpleNavigation,
   GLS.VectorFileObjects,
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
   GLS.FileMD2,
   Formats.DDSImage,
   GLS.FileOBJ,

Packages/GLScene_RT.dpk

@@ -249,7 +249,7 @@ contains
   GLS.XOpenGL in '..\Source\GLS.XOpenGL.pas',
   GLS.InitOpenGL in '..\Source\GLS.InitOpenGL.pas',
   GLScene.OpenGLTokens in '..\Source\GLScene.OpenGLTokens.pas',
-  GLS.PipelineTransformation in '..\Source\GLS.PipelineTransformation.pas',
+  GLScene.PipelineTransform in '..\Source\GLScene.PipelineTransform.pas',
   GLScene.Polynomials in '..\Source\GLScene.Polynomials.pas',
   GLScene.Spline in '..\Source\GLScene.Spline.pas',
   GLScene.Strings in '..\Source\GLScene.Strings.pas',

Packages/GLScene_RT.dproj

@@ -374,7 +374,7 @@
         <DCCReference Include="..\Source\GLS.XOpenGL.pas"/>
         <DCCReference Include="..\Source\GLS.InitOpenGL.pas"/>
         <DCCReference Include="..\Source\GLScene.OpenGLTokens.pas"/>
-        <DCCReference Include="..\Source\GLS.PipelineTransformation.pas"/>
+        <DCCReference Include="..\Source\GLScene.PipelineTransform.pas"/>
         <DCCReference Include="..\Source\GLScene.Polynomials.pas"/>
         <DCCReference Include="..\Source\GLScene.Spline.pas"/>
         <DCCReference Include="..\Source\GLScene.Strings.pas"/>

Packages/GXScene_RT.dpk

@@ -206,8 +206,7 @@ contains
   GXS.PAKArchive in '..\SourceX\GXS.PAKArchive.pas',
   GXS.SpacePartition in '..\SourceX\GXS.SpacePartition.pas',
   GXS.XOpenGL in '..\SourceX\GXS.XOpenGL.pas',
-  GXS.PipelineTransformation in '..\SourceX\GXS.PipelineTransformation.pas',
-  GXS.OpenGL in '..\SourceX\GXS.OpenGL.pas',
+  GLScene.OpenGL4 in '..\Source\GLScene.OpenGL4.pas',
   GXS.ViewerOpenGL in '..\SourceX\GXS.ViewerOpenGL.pas',
   GXSL.AsmShader in '..\SourceX\GXSL.AsmShader.pas',
   GXSL.BumpShaders in '..\SourceX\GXSL.BumpShaders.pas',
@@ -270,6 +269,7 @@ contains
   GLScene.XCollection in '..\Source\GLScene.XCollection.pas',
   GLScene.Keyboard in '..\Source\GLScene.Keyboard.pas',
   GLScene.Polynomials in '..\Source\GLScene.Polynomials.pas',
-  GLScene.Color in '..\Source\GLScene.Color.pas';
+  GLScene.Color in '..\Source\GLScene.Color.pas',
+  GLScene.PipelineTransform in '..\Source\GLScene.PipelineTransform.pas';
 
 end.

Packages/GXScene_RT.dproj

@@ -355,8 +355,7 @@
         <DCCReference Include="..\SourceX\GXS.PAKArchive.pas"/>
         <DCCReference Include="..\SourceX\GXS.SpacePartition.pas"/>
         <DCCReference Include="..\SourceX\GXS.XOpenGL.pas"/>
-        <DCCReference Include="..\SourceX\GXS.PipelineTransformation.pas"/>
-        <DCCReference Include="..\SourceX\GXS.OpenGL.pas"/>
+        <DCCReference Include="..\Source\GLScene.OpenGL4.pas"/>
         <DCCReference Include="..\SourceX\GXS.ViewerOpenGL.pas"/>
         <DCCReference Include="..\SourceX\GXSL.AsmShader.pas"/>
         <DCCReference Include="..\SourceX\GXSL.BumpShaders.pas"/>
@@ -420,6 +419,7 @@
         <DCCReference Include="..\Source\GLScene.Keyboard.pas"/>
         <DCCReference Include="..\Source\GLScene.Polynomials.pas"/>
         <DCCReference Include="..\Source\GLScene.Color.pas"/>
+        <DCCReference Include="..\Source\GLScene.PipelineTransform.pas"/>
         <None Include="..\Sourcex\GXS.Scene.inc"/>
         <None Include="..\Source\GLScene.Defines.inc"/>
         <BuildConfiguration Include="Base">

Source/Formats.VRML.pas

@@ -52,11 +52,11 @@ type
 
   TVRMLIntegerArray = class(TVRMLNode)
   private
-    FValues: TGIntegerList;
+    FValues: TgIntegerList;
   public
     constructor Create; override;
     destructor Destroy; override;
-    property Values: TGIntegerList read FValues;
+    property Values: TgIntegerList read FValues;
   end;
 
   TVRMLMaterial = class(TVRMLNode)
@@ -288,7 +288,7 @@ end;
 constructor TVRMLIntegerArray.Create;
 begin
   inherited;
-  FValues := TGIntegerList.Create;
+  FValues := TgIntegerList.Create;
 end;
 
 destructor TVRMLIntegerArray.Destroy;

Source/Formats.X.pas

@@ -84,7 +84,7 @@ type
   private
     FVertices, FNormals, FTexCoords: TGAffineVectorList;
     FVertexIndices, FNormalIndices, FMaterialIndices, FVertCountIndices
-      : TGIntegerList;
+      : TgIntegerList;
     FMaterialList: TDXMaterialList;
   public
     constructor Create; override;
@@ -92,10 +92,10 @@ type
     property Vertices: TGAffineVectorList read FVertices;
     property Normals: TGAffineVectorList read FNormals;
     property TexCoords: TGAffineVectorList read FTexCoords;
-    property VertexIndices: TGIntegerList read FVertexIndices;
-    property NormalIndices: TGIntegerList read FNormalIndices;
-    property MaterialIndices: TGIntegerList read FMaterialIndices;
-    property VertCountIndices: TGIntegerList read FVertCountIndices;
+    property VertexIndices: TgIntegerList read FVertexIndices;
+    property NormalIndices: TgIntegerList read FNormalIndices;
+    property MaterialIndices: TgIntegerList read FMaterialIndices;
+    property VertCountIndices: TgIntegerList read FVertCountIndices;
     property MaterialList: TDXMaterialList read FMaterialList;
   end;
 
@@ -347,8 +347,8 @@ var
       VectorList.Add(ReadVector3f);
   end;
 
-  procedure ReadMeshIndices(IndexList: TGIntegerList;
-    VertCountIndices: TGIntegerList = nil);
+  procedure ReadMeshIndices(IndexList: TgIntegerList;
+    VertCountIndices: TgIntegerList = nil);
   var
     str: String;
     i, j, NumFaces, NumIndices, jStart: Integer;
@@ -604,10 +604,10 @@ begin
   FVertices := TGAffineVectorList.Create;
   FNormals := TGAffineVectorList.Create;
   FTexCoords := TGAffineVectorList.Create;
-  FVertexIndices := TGIntegerList.Create;
-  FNormalIndices := TGIntegerList.Create;
-  FMaterialIndices := TGIntegerList.Create;
-  FVertCountIndices := TGIntegerList.Create;
+  FVertexIndices := TgIntegerList.Create;
+  FNormalIndices := TgIntegerList.Create;
+  FMaterialIndices := TgIntegerList.Create;
+  FVertCountIndices := TgIntegerList.Create;
   FMaterialList := TDXMaterialList.Create;
 end;
 

Source/GLS.ArchiveManager.pas

@@ -72,7 +72,7 @@ type
   end;
 
   // The list of registered classes
-  TGLArchiveFileFormatsList = class(TGPersistentObjectList)
+  TGLArchiveFileFormatsList = class(TgPersistentObjectList)
   public
     destructor Destroy; override;
     procedure Add(const Ext, Desc: string; DescID: integer;

Source/GLS.Behaviours.pas

@@ -69,12 +69,12 @@ type
   TGLBInertia = class(TGLBehaviour)
   private
     FMass: single;
-    FTranslationSpeed: TGCoordinates;
+    FTranslationSpeed: TgCoordinates;
     FTurnSpeed, FRollSpeed, FPitchSpeed: single;
     FTranslationDamping, FRotationDamping: TGLDamping;
     FDampingEnabled: boolean;
   protected
-    procedure SetTranslationSpeed(const val: TGCoordinates);
+    procedure SetTranslationSpeed(const val: TgCoordinates);
     procedure SetTranslationDamping(const val: TGLDamping);
     procedure SetRotationDamping(const val: TGLDamping);
     procedure WriteToFiler(writer: TWriter); override;
@@ -104,7 +104,7 @@ type
     procedure SurfaceBounce(const surfaceNormal: TGLVector; restitution: single);
   published
     property Mass: single read FMass write FMass;
-    property TranslationSpeed: TGCoordinates read FTranslationSpeed write SetTranslationSpeed;
+    property TranslationSpeed: TgCoordinates read FTranslationSpeed write SetTranslationSpeed;
     property TurnSpeed: single read FTurnSpeed write FTurnSpeed;
     property RollSpeed: single read FRollSpeed write FRollSpeed;
     property PitchSpeed: single read FPitchSpeed write FPitchSpeed;
@@ -128,9 +128,9 @@ type
   // Applies a constant acceleration to a TGLBInertia.  
   TGLBAcceleration = class(TGLBehaviour)
   private
-    FAcceleration: TGCoordinates;
+    FAcceleration: TgCoordinates;
   protected
-    procedure SetAcceleration(const val: TGCoordinates);
+    procedure SetAcceleration(const val: TgCoordinates);
     procedure WriteToFiler(writer: TWriter); override;
     procedure ReadFromFiler(reader: TReader); override;
   public
@@ -142,7 +142,7 @@ type
     class function UniqueItem: boolean; override;
     procedure DoProgress(const progressTime: TGProgressTimes); override;
   published
-    property Acceleration: TGCoordinates read FAcceleration write FAcceleration;
+    property Acceleration: TgCoordinates read FAcceleration write FAcceleration;
   end;
 
 (* Returns or creates the TGLBInertia within the given behaviours. 
@@ -308,7 +308,7 @@ end;
 constructor TGLBInertia.Create(aOwner: TXCollection);
 begin
   inherited Create(aOwner);
-  FTranslationSpeed := TGCoordinates.CreateInitialized(Self, NullHmgVector, csVector);
+  FTranslationSpeed := TgCoordinates.CreateInitialized(Self, NullHmgVector, csVector);
   FMass := 1;
   FDampingEnabled := True;
   FTranslationDamping := TGLDamping.Create(Self);
@@ -373,7 +373,7 @@ begin
   end;
 end;
 
-procedure TGLBInertia.SetTranslationSpeed(const val: TGCoordinates);
+procedure TGLBInertia.SetTranslationSpeed(const val: TgCoordinates);
 begin
   FTranslationSpeed.Assign(val);
 end;
@@ -521,7 +521,7 @@ begin
   if aOwner <> nil then
     if not (csReading in TComponent(aOwner.Owner).ComponentState) then
       GetOrCreateInertia(TGLBehaviours(aOwner));
-  FAcceleration := TGCoordinates.CreateInitialized(Self, NullHmgVector, csVector);
+  FAcceleration := TgCoordinates.CreateInitialized(Self, NullHmgVector, csVector);
 end;
 
 destructor TGLBAcceleration.Destroy;
@@ -559,7 +559,7 @@ begin
   end;
 end;
 
-procedure TGLBAcceleration.SetAcceleration(const val: TGCoordinates);
+procedure TGLBAcceleration.SetAcceleration(const val: TgCoordinates);
 begin
   FAcceleration.Assign(val);
 end;

Source/GLS.CUDA.APIComps.pas

@@ -53,7 +53,7 @@ type
   TCUDAComponent = class(TCUDAHandlesMaster)
   private
     FMaster: TCUDAComponent;
-    FItems: TGPersistentObjectList;
+    FItems: TgPersistentObjectList;
     procedure SetMaster(AMaster: TCUDAComponent);
     function GetItem(const i: Integer): TCUDAComponent;
     function GetItemsCount: Integer;
@@ -1059,7 +1059,7 @@ end;
 procedure TCUDAComponent.AddItem(AItem: TCUDAComponent);
 begin
   if not Assigned(FItems) then
-    FItems := TGPersistentObjectList.Create;
+    FItems := TgPersistentObjectList.Create;
   FItems.Add(AItem);
 end;
 

Source/GLS.Cadencer.pas

@@ -61,7 +61,7 @@ type
     FCurrentTime: Double;
     FOriginTime: Double;
     FMaxDeltaTime, FMinDeltaTime, FFixedDeltaTime: Double;
-  	FOnProgress, FOnTotalProgress : TGProgressEvent;
+  	FOnProgress, FOnTotalProgress : TgProgressEvent;
     FProgressing: Integer;
     procedure SetCurrentTime(const Value: Double);
   protected
@@ -148,9 +148,9 @@ type
      help for the "sleep" procedure in delphi for details). *)
     property SleepLength: Integer read FSleepLength write FSleepLength default -1;
     // Happens AFTER scene was progressed. 
-    property OnProgress: TGProgressEvent read FOnProgress write FOnProgress;
+    property OnProgress: TgProgressEvent read FOnProgress write FOnProgress;
     // Happens AFTER all iterations with fixed delta time. 
-    property OnTotalProgress : TGProgressEvent read FOnTotalProgress write FOnTotalProgress;
+    property OnTotalProgress : TgProgressEvent read FOnTotalProgress write FOnTotalProgress;
   end;
 
   // Adds a property to connect/subscribe to a cadencer.  

Source/GLS.Context.pas

@@ -32,7 +32,7 @@ uses
 
   GLScene.TextureFormat,
   GLS.OpenGLAdapter,
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
   GLS.State,
   GLS.XOpenGL,
   GLScene.Logger;
@@ -113,7 +113,7 @@ type
     Fgl: TGLExtensionsAndEntryPoints;
     Fxgl: TGLMultitextureCoordinator;
     FGLStates: TGLStateCache;
-    FTransformation: TGLTransformation;
+    FTransformation: TGTransformation;
     FAcceleration: TGLContextAcceleration;
     FLayer: TGLContextLayer;
 {$IFNDEF USE_MULTITHREAD}
@@ -136,7 +136,7 @@ type
     destructor Destroy; override;
     // An application-side cache of global per-context OpenGL states and parameters
     property GLStates: TGLStateCache read FGLStates;
-    property PipelineTransformation: TGLTransformation read FTransformation;
+    property PipelineTransformation: TGTransformation read FTransformation;
     // Context manager reference
     property Manager: TGLContextManager read FManager;
     // Color bits for the rendering context
@@ -1061,7 +1061,7 @@ begin
   FAcceleration := chaUnknown;
   FGLStates := TGLStateCache.Create;
   FGL := TGLExtensionsAndEntryPoints.Create;
-  FTransformation := TGLTransformation.Create;
+  FTransformation := TGTransformation.Create;
   FTransformation.LoadMatricesEnabled := True;
   GLContextManager.RegisterContext(Self);
   FIsPraparationNeed := True;

Source/GLS.DCE.pas

@@ -86,13 +86,13 @@ type
     FStatics: TList;
     FDynamics: TList;
     FGravity: single;
-    FWorldDirection: TGCoordinates; // Used to calculate jumps f.i.
+    FWorldDirection: TgCoordinates; // Used to calculate jumps f.i.
     FWorldScale: single;
     FMovimentScale: single;
     FStandardiseLayers: TDCECollisionSelection;
     FManualStep: Boolean;
     FOnCollision: TDCECollisionEvent;
-    procedure SetWorldDirection(const Value: TGCoordinates);
+    procedure SetWorldDirection(const Value: TgCoordinates);
     procedure SetWorldScale(const Value: single);
     function GetDynamicCount: Integer;
     function GetStaticCount: Integer;
@@ -114,7 +114,7 @@ type
     property StaticCount: Integer read GetStaticCount;
   published
     property Gravity: single read FGravity write FGravity;
-    property WorldDirection: TGCoordinates read FWorldDirection
+    property WorldDirection: TgCoordinates read FWorldDirection
       write SetWorldDirection;
     property WorldScale: single read FWorldScale write SetWorldScale;
     property MovimentScale: single read FMovimentScale write FMovimentScale;
@@ -137,13 +137,13 @@ type
     FSolid: Boolean;
     FFriction: single; // 0 (no friction); 100 (no movement)
     FBounceFactor: single; // 0 (don't bounce); 1 (bounce forever)
-    FSize: TGCoordinates;
+    FSize: TgCoordinates;
     // Events
     FOnCollision: TDCEObjectCollisionEvent;
     procedure SetShape(const Value: TDCEShape);
     procedure SetFriction(const Value: single);
     procedure SetBounceFactor(const Value: single);
-    procedure SetSize(const Value: TGCoordinates);
+    procedure SetSize(const Value: TgCoordinates);
   protected
     procedure SetManager(const val: TGLDCEManager);
     procedure WriteToFiler(writer: TWriter); override;
@@ -165,7 +165,7 @@ type
     property Solid: Boolean read FSolid write FSolid;
     property Friction: single read FFriction write SetFriction;
     property BounceFactor: single read FBounceFactor write SetBounceFactor;
-    property Size: TGCoordinates read FSize write SetSize;
+    property Size: TgCoordinates read FSize write SetSize;
   end;
 
   TDCESlideOrBounce = (csbSlide, csbBounce);
@@ -181,7 +181,7 @@ type
     // Collide and slide if true, otherwise it "walk thru walls"
     FFriction: single; // 0 (no friction); 100 (no movement)
     FBounceFactor: single; // 0 (don't bounce); 1 (bounce forever)
-    FSize: TGCoordinates;
+    FSize: TgCoordinates;
     // Number of iterations of the collision method
     FMaxRecursionDepth: byte;
     FSlideOrBounce: TDCESlideOrBounce; // gak20041122
@@ -200,7 +200,7 @@ type
     FOnCollision: TDCEObjectCollisionEvent;
     procedure SetFriction(const Value: single);
     procedure SetBounceFactor(const Value: single);
-    procedure SetSize(const Value: TGCoordinates);
+    procedure SetSize(const Value: TgCoordinates);
   protected
     procedure SetManager(const val: TGLDCEManager);
     procedure WriteToFiler(writer: TWriter); override;
@@ -238,7 +238,7 @@ type
     property Solid: Boolean read FSolid write FSolid;
     property Friction: single read FFriction write SetFriction;
     property BounceFactor: single read FBounceFactor write SetBounceFactor;
-    property Size: TGCoordinates read FSize write SetSize;
+    property Size: TgCoordinates read FSize write SetSize;
     property SlideOrBounce: TDCESlideOrBounce read FSlideOrBounce
       write FSlideOrBounce;
   end;
@@ -512,7 +512,7 @@ begin
   FStatics := TList.Create;
   FDynamics := TList.Create;
   FGravity := 0;
-  FWorldDirection := TGCoordinates.CreateInitialized(Self, YHmgVector,
+  FWorldDirection := TgCoordinates.CreateInitialized(Self, YHmgVector,
     csVector);
   FWorldScale := 1;
   FMovimentScale := 1;
@@ -547,7 +547,7 @@ function TGLDCEManager.MoveByDistance(var Body: TGLDCEDynamic;
 var
   // Friction and bounce
   TotalFriction, Bounce, f, m, restitution: single;
-  ContactList: TGIntegerList;
+  ContactList: TgIntegerList;
   // Temporary properties (Static or Dynamic)
   tFriction, tBounceFactor: single;
   TObject: TGLBaseSceneObject;
@@ -667,7 +667,7 @@ begin
   // Generate events and calculate average friction
   lastobj := -1;
   TotalFriction := Body.Friction;
-  ContactList := TGIntegerList.Create;
+  ContactList := TgIntegerList.Create;
   try
     for i := 0 to High(MP.Contacts) do
       with MP do
@@ -768,7 +768,7 @@ begin
         DoMove(deltaTime);
 end;
 
-procedure TGLDCEManager.SetWorldDirection(const Value: TGCoordinates);
+procedure TGLDCEManager.SetWorldDirection(const Value: TgCoordinates);
 begin
   FWorldDirection := Value;
   FWorldDirection.Normalize;
@@ -866,7 +866,7 @@ constructor TGLDCEStatic.Create(AOwner: TXCollection);
 begin
   inherited Create(AOwner);
   FActive := True;
-  FSize := TGCoordinates.CreateInitialized(Self, XYZHmgVector, csVector);
+  FSize := TgCoordinates.CreateInitialized(Self, XYZHmgVector, csVector);
   FShape := csEllipsoid;
   FSolid := True;
   FFriction := 1;
@@ -981,7 +981,7 @@ begin
   FShape := Value;
 end;
 
-procedure TGLDCEStatic.SetSize(const Value: TGCoordinates);
+procedure TGLDCEStatic.SetSize(const Value: TgCoordinates);
 begin
   FSize.Assign(Value);
   if FSize.x <= 0 then
@@ -1049,7 +1049,7 @@ begin
   inherited Create(AOwner);
   FActive := True;
   FUseGravity := True;
-  FSize := TGCoordinates.CreateInitialized(Self, XYZHmgVector, csVector);
+  FSize := TgCoordinates.CreateInitialized(Self, XYZHmgVector, csVector);
   FSolid := True;
   FFriction := 1;
   FBounceFactor := 0;
@@ -1302,7 +1302,7 @@ begin
   end;
 end;
 
-procedure TGLDCEDynamic.SetSize(const Value: TGCoordinates);
+procedure TGLDCEDynamic.SetSize(const Value: TgCoordinates);
 begin
   FSize.Assign(Value);
   if FSize.x <= 0 then

Source/GLS.EParticleMasksManager.pas

@@ -50,8 +50,8 @@ type
   TGLEParticleMask = class(TCollectionItem, IGLMaterialLibrarySupported)
   private
     FName: string;
-    FScale: TGCoordinates;
-    FPosition: TGCoordinates;
+    FScale: TgCoordinates;
+    FPosition: TgCoordinates;
     FYMask: TGLLibMaterialName;
     FZMask: TGLLibMaterialName;
     FXMask: TGLLibMaterialName;
@@ -97,8 +97,8 @@ type
       TGLEProjectedParticleMask; Depth: Integer);
   published
     // scales and positions
-    property Scale: TGCoordinates read FScale write FScale;
-    property Position: TGCoordinates read FPosition write FPosition;
+    property Scale: TgCoordinates read FScale write FScale;
+    property Position: TgCoordinates read FPosition write FPosition;
     // the reference name of the particle mask
     property Name: string read FName write SetName;
     property MaterialLibrary: TGLMaterialLibrary read FMaterialLibrary write SetMaterialLibrary;
@@ -210,8 +210,8 @@ begin
 
   FName := 'ParticleMask' + IntToStr(ID);
 
-  FScale := TGCoordinates.CreateInitialized(Self, XYZHMGVector, csPoint);
-  FPosition := TGCoordinates.CreateInitialized(Self, NullHmgPoint, csPoint);
+  FScale := TgCoordinates.CreateInitialized(Self, XYZHMGVector, csPoint);
+  FPosition := TgCoordinates.CreateInitialized(Self, NullHmgPoint, csPoint);
   FMaterialLibrary := nil;
 
   FMaskColor := clWhite;

Source/GLS.ExplosionFx.pas

@@ -48,14 +48,14 @@ type
     FEnabled: boolean;
     FFaceCount: integer;
     FSpeed: single;
-    FDirection: TGCoordinates;
+    FDirection: TgCoordinates;
     FMaxSteps: integer;
     FStep: integer;
     procedure SetTriList(Value: TGAffineVectorList);
     procedure SetRotList(Value: TGAffineVectorList);
     procedure SetDirList(Value: TGAffineVectorList);
     procedure SetPosList(Value: TGAffineVectorList);
-    procedure SetDirection(value: TGCoordinates);
+    procedure SetDirection(value: TgCoordinates);
     procedure SetEnabled(value: boolean);
   protected
     property TriList: TGAffineVectorList read FTriList write SetTriList;
@@ -78,7 +78,7 @@ type
   published
     property MaxSteps: integer read FMaxSteps write FMaxSteps;
     property Speed: single read FSpeed write FSpeed;
-    property Direction: TGCoordinates read FDirection write SetDirection;
+    property Direction: TgCoordinates read FDirection write SetDirection;
   end;
 
 //-------------------------------------------------------------------------
@@ -96,7 +96,7 @@ begin
   FRotList := TGAffineVectorList.Create;
   FDirList := TGAffineVectorList.Create;
   FPosList := TGAffineVectorList.Create;
-  FDirection := TGCoordinates.CreateInitialized(Self, NullHmgVector, csPoint);
+  FDirection := TgCoordinates.CreateInitialized(Self, NullHmgVector, csPoint);
 end;
 
 destructor TGLBExplosionFX.Destroy;
@@ -140,7 +140,7 @@ begin
   FPosList.Assign(Value);
 end;
 
-procedure TGLBExplosionFx.SetDirection(Value: TGCoordinates);
+procedure TGLBExplosionFx.SetDirection(Value: TgCoordinates);
 begin
   Value.Normalize;
   FDirection.Assign(Value);

Source/GLS.FBORenderer.pas

@@ -21,7 +21,7 @@ uses
   GLScene.VectorGeometry,
 
   GLScene.PersistentClasses,
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
   GLS.Scene,
   GLS.Texture,
   GLS.Context,

Source/GLS.Feedback.pas

@@ -27,7 +27,7 @@ uses
   GLScene.OpenGLTokens,
   GLScene.VectorTypes,
   GLScene.VectorGeometry,
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
 
   GLScene.PersistentClasses,
   GLScene.VectorLists,
@@ -66,7 +66,7 @@ type
       Normals: TGAffineVectorList = nil;
       Colors: TGVectorList = nil;
       TexCoords: TGAffineVectorList = nil;
-      VertexIndices: TGIntegerList = nil);
+      VertexIndices: TgIntegerList = nil);
     // True when there is data in the buffer ready for parsing
     property Buffered: Boolean read FBuffered;
     // The feedback buffer
@@ -189,14 +189,14 @@ procedure TGLFeedback.BuildMeshFromBuffer(
   Normals: TGAffineVectorList = nil;
   Colors: TGVectorList = nil;
   TexCoords: TGAffineVectorList = nil;
-  VertexIndices: TGIntegerList = nil);
+  VertexIndices: TgIntegerList = nil);
 var
   value: Single;
   i, j, LCount, skip: Integer;
   vertex, color, texcoord: TGLVector;
   tempVertices, tempNormals, tempTexCoords: TGAffineVectorList;
   tempColors: TGVectorList;
-  tempIndices: TGIntegerList;
+  tempIndices: TgIntegerList;
   ColorBuffered, TexCoordBuffered: Boolean;
 begin
   Assert(FMode <> fm2D, 'Cannot build mesh from fm2D feedback mode.');
@@ -292,7 +292,7 @@ begin
   end
   else
   begin
-    tempIndices := TGIntegerList.Create;
+    tempIndices := TgIntegerList.Create;
     tempIndices.AddSerie(0, 1, tempVertices.Count);
   end;
 

Source/GLS.File3DPDF.pas

@@ -260,7 +260,7 @@ var
   FaceCount, ModelPositionCount, NormalCount, I, J: Integer;
   FacePositionList, NormalList, ModelPositionList, ModelNormalList, FaceShadingList: String;
   Lines: TStringList;
-  Indicies: TGIntegerList;
+  Indicies: TgIntegerList;
 
   function FormatVector(const AVector: TAffineVector): string;
   begin

Source/GLS.File3DSSceneObjects.pas

@@ -30,32 +30,32 @@ uses
 type
   TGLFile3DSLight = class(TGLLightSource)
   private
-    FTargetPos: TGCoordinates;
+    FTargetPos: TgCoordinates;
     FHotSpot: Single;
     FMultipler: Single;
   public
     constructor Create(AOwner: TComponent); override;
     procedure DoRender(var rci: TGLRenderContextInfo; renderSelf, renderChildren: Boolean); override;
-    procedure CoordinateChanged(Sender: TGCustomCoordinates); override;
+    procedure CoordinateChanged(Sender: TgCustomCoordinates); override;
     destructor Destroy; override;
   published
-    property SpotTargetPos: TGCoordinates read FTargetPos;
+    property SpotTargetPos: TgCoordinates read FTargetPos;
     property HotSpot: Single read FHotSpot write FHotSpot;
     property Multipler: Single read FMultipler write FMultipler;
   end;
 
   TGLFile3DSCamera = class(TGLCamera)
   private
-    FTargetPos: TGCoordinates;
+    FTargetPos: TgCoordinates;
     FQuadCyl: array[0..1] of PGLUquadric;
     FQuadDisk: array[0..1] of PGLUquadric;
   public
     constructor Create(AOwner: TComponent); override;
     procedure DoRender(var rci: TGLRenderContextInfo; renderSelf, renderChildren: Boolean); override;
-    procedure CoordinateChanged(Sender: TGCustomCoordinates); override;
+    procedure CoordinateChanged(Sender: TgCustomCoordinates); override;
     destructor Destroy; override;
   published
-    property CameraTargetPos: TGCoordinates read FTargetPos;
+    property CameraTargetPos: TgCoordinates read FTargetPos;
     property RollAngle;
   end;
 
@@ -71,9 +71,9 @@ type
   private
     FTransfMat, FScaleMat, ParentMatrix: TGLMatrix;
 
-    FS_Rot3DS: TGCoordinates4;
-    FRot3DS: TGCoordinates4;
-    FScale3DS: TGCoordinates4;
+    FS_Rot3DS: TgCoordinates4;
+    FRot3DS: TgCoordinates4;
+    FScale3DS: TgCoordinates4;
     procedure ReadMesh(Stream: TStream);
     procedure WriteMesh(Stream: TStream);
   protected
@@ -83,13 +83,13 @@ type
     constructor Create(AOWner: TComponent); override;
     destructor Destroy; override;
     procedure BuildList(var rci: TGLRenderContextInfo); override;
-    procedure CoordinateChanged(Sender: TGCustomCoordinates); override;
+    procedure CoordinateChanged(Sender: TgCustomCoordinates); override;
     function AxisAlignedDimensionsUnscaled: TGLVector; override;
     function BarycenterAbsolutePosition: TGLVector; override;
   published
-    property S_Rot3DS: TGCoordinates4 read FS_Rot3DS;
-    property Rot3DS: TGCoordinates4 read FRot3DS;
-    property Scale3DS: TGCoordinates4 read FScale3DS;
+    property S_Rot3DS: TgCoordinates4 read FS_Rot3DS;
+    property Rot3DS: TgCoordinates4 read FRot3DS;
+    property Scale3DS: TgCoordinates4 read FScale3DS;
   end;
 
 var
@@ -163,7 +163,7 @@ constructor TGLFile3DSLight.Create(AOwner: TComponent);
 begin
   inherited;
 
-  FTargetPos := TGCoordinates.CreateInitialized(self, VectorMake(NullVector), csPoint);
+  FTargetPos := TgCoordinates.CreateInitialized(self, VectorMake(NullVector), csPoint);
   FHotSpot := 1;
   FMultipler := 1;
 end;
@@ -215,7 +215,7 @@ begin
   gl.PopMatrix;
 end;
 
-procedure TGLFile3DSLight.CoordinateChanged(Sender: TGCustomCoordinates);
+procedure TGLFile3DSLight.CoordinateChanged(Sender: TgCustomCoordinates);
 begin
   inherited;
 
@@ -235,7 +235,7 @@ var
 begin
   inherited;
 
-  FTargetPos := TGCoordinates.CreateInitialized(self, VectorMake(NullVector), csPoint);
+  FTargetPos := TgCoordinates.CreateInitialized(self, VectorMake(NullVector), csPoint);
 
   for I := 0 to 1 do
   begin
@@ -302,7 +302,7 @@ begin
   rci.GLStates.PolygonMode := pmFill;
 end;
 
-procedure TGLFile3DSCamera.CoordinateChanged(Sender: TGCustomCoordinates);
+procedure TGLFile3DSCamera.CoordinateChanged(Sender: TgCustomCoordinates);
 begin
   inherited;
 
@@ -356,9 +356,9 @@ begin
   FRefMat := IdentityHmgMatrix;
   FTransfMat := IdentityHmgMatrix;
   FScaleMat := IdentityHmgMatrix;
-  FS_Rot3DS := TGCoordinates4.CreateInitialized(self, VectorMake(1, 0, 0), csVector);
-  FRot3DS := TGCoordinates4.CreateInitialized(self, VectorMake(1, 0, 0), csVector);
-  FScale3DS := TGCoordinates4.CreateInitialized(self, VectorMake(1, 1, 1), csVector);
+  FS_Rot3DS := TgCoordinates4.CreateInitialized(self, VectorMake(1, 0, 0), csVector);
+  FRot3DS := TgCoordinates4.CreateInitialized(self, VectorMake(1, 0, 0), csVector);
+  FScale3DS := TgCoordinates4.CreateInitialized(self, VectorMake(1, 1, 1), csVector);
 
   ObjectStyle := [osDirectDraw];
 end;
@@ -434,7 +434,7 @@ begin
   ParentMatrix := MatrixMultiply(FTransfMat, ParentMatrix);
 end;
 
-procedure TGLFile3DSFreeForm.CoordinateChanged(Sender: TGCustomCoordinates);
+procedure TGLFile3DSFreeForm.CoordinateChanged(Sender: TgCustomCoordinates);
 var
   quat, quat1, quat2: TQuaternion;
 begin

Source/GLS.FileASE.pas

@@ -802,14 +802,14 @@ var
   norm, tex, light: Boolean;
   lmt: array [0..2] of TAffineVector;
   subID: Integer;
-  vi: TGIntegerList;
+  vi: TgIntegerList;
 begin
   norm := aASEMesh.HasNormals;
   tex := aASEMesh.TextChannelsCount > 0;
   light := tex and (aASEMesh.TextChannelsCount > 1);
   subID := -1;
 
-  vi := TGIntegerList.Create;
+  vi := TgIntegerList.Create;
   if tex or norm then begin
     // here used NOT optimized storage
 

Source/GLS.FileGL2.pas

@@ -179,7 +179,7 @@ var
   quat: TQuaternion;
   pos: TAffineVector;
   basepose: TGLSkeletonFrame;
-  bonelist: TGIntegerList;
+  bonelist: TgIntegerList;
   bone: TGLSkeletonBone;
 
 begin
@@ -191,7 +191,7 @@ begin
 
     TGLActor(Owner).Reference := aarSkeleton;
 
-    bonelist := TGIntegerList.Create;
+    bonelist := TgIntegerList.Create;
     for i := 0 to GLAFile.AnimHeader.numBones - 1 do
       bonelist.Add(i);
     while bonelist.Count > 0 do

Source/GLS.FileLMTS.pas

@@ -131,7 +131,7 @@ var
   _4cc: Cardinal;
   C: Integer;
   fName: string;
-  vi: TGIntegerList;
+  vi: TgIntegerList;
   libmat: TGLLibmaterial;
   lmnames, matnames: TStringlist;
   MatInfoHeader: array [0 .. 3] of AnsiChar;
@@ -144,7 +144,7 @@ begin
   MO := TGLMeshObject.CreateOwned(owner.MeshObjects);
   MO.Mode := momFaceGroups;
 
-  vi := TGIntegerList.create;
+  vi := TgIntegerList.create;
 
   LL := owner.LightmapLibrary;
   ML := owner.MaterialLibrary;

Source/GLS.FileMD5.pas

@@ -30,7 +30,7 @@ type
     FBasePose: TGLSkeletonFrame;
     FFramePositions: TGAffineVectorList;
     FFrameQuaternions: TGQuaternionList;
-    FJointFlags: TGIntegerList;
+    FJointFlags: TgIntegerList;
     FNumFrames, FFirstFrame, FFrameRate, FNumJoints: Integer;
     function ReadLine: String;
   public
@@ -202,16 +202,16 @@ procedure TGLMD5VectorFile.LoadFromStream(aStream: TStream);
     mesh: TGLSkeletonMeshObject;
     fg: TFGVertexIndexList;
     vnum, wnum, numverts, numweights: Integer;
-    VertexWeightID, VertexWeightCount, VertexBoneRef: TGIntegerList;
+    VertexWeightID, VertexWeightCount, VertexBoneRef: TgIntegerList;
     VertexWeight: TGSingleList;
     VertexWeighted: TGAffineVectorList;
     blendedVert, transformedVert: TAffineVector;
     i, j, k: Integer;
     mat: TGLMatrix;
   begin
-    VertexWeightID := TGIntegerList.Create;
-    VertexWeightCount := TGIntegerList.Create;
-    VertexBoneRef := TGIntegerList.Create;
+    VertexWeightID := TgIntegerList.Create;
+    VertexWeightCount := TgIntegerList.Create;
+    VertexBoneRef := TgIntegerList.Create;
     VertexWeight := TGSingleList.Create;
     VertexWeighted := TGAffineVectorList.Create;
 
@@ -332,7 +332,7 @@ procedure TGLMD5VectorFile.LoadFromStream(aStream: TStream);
   begin
     if not Assigned(FJointFlags) then
     begin
-      FJointFlags := TGIntegerList.Create;
+      FJointFlags := TgIntegerList.Create;
       Assert(Owner.Skeleton.Frames.Count > 0,
         'The md5mesh file must be loaded before md5anim files!');
       FJointFlags.Count := Owner.Skeleton.Frames[0].Position.Count;

Source/GLS.FileOBJ.pas

@@ -154,7 +154,7 @@ type
   private
     FMode: TOBJFGMode;
     FName: string;
-    FPolygonVertices: TGIntegerList;
+    FPolygonVertices: TgIntegerList;
     FCurrentVertexCount: integer;
     FShowNormals: boolean;
     procedure PolygonComplete; (* Current polygon completed. Adds FCurrentVertexCount
@@ -174,7 +174,7 @@ type
     function TriangleCount: Integer; override;
     property Mode: TOBJFGMode read FMode write SetMode;
     property Name: string read FName write FName;
-    property PolygonVertices: TGIntegerList read FPolygonVertices;
+    property PolygonVertices: TgIntegerList read FPolygonVertices;
     property ShowNormals: boolean read FShowNormals write FShowNormals;
   end;
 
@@ -211,7 +211,7 @@ begin
   Assert(VertexIndices.Count = 0, 'Decide on the mode before adding vertices.');
   FMode := aMode;
   if FMode = objfgmmPolygons then
-    FPolygonVertices := TGIntegerList.Create
+    FPolygonVertices := TgIntegerList.Create
   else
   begin
     FPolygonVertices.Free;
@@ -1388,7 +1388,7 @@ begin
     else
     begin
       if FPolygonVertices = nil then
-        FPolygonVertices := TGIntegerList.Create;
+        FPolygonVertices := TgIntegerList.Create;
       FPolygonVertices.Assign(TOBJFGVertexNormalTexIndexList(Source).FPolygonVertices);
     end;
   end
@@ -1412,7 +1412,7 @@ begin
 
     if FMode = objfgmmPolygons then
     begin
-      FPolygonVertices := TGIntegerList.Create;
+      FPolygonVertices := TgIntegerList.Create;
       FPolygonVertices.ReadFromFiler(reader);
     end;  
   end

Source/GLS.FileVRML.pas

@@ -36,7 +36,7 @@ implementation
 // ------------------------------------------------------------------
 
 procedure TessellatePolygon(PolyVerts: TGAffineVectorList;
-  PolyIndices, TriIndices: TGIntegerList);
+  PolyIndices, TriIndices: TgIntegerList);
 
   function IsPolyClockWise: Boolean;
   var
@@ -79,10 +79,10 @@ var
   i, j, prev, next, min_vert, min_prev, min_next: Integer;
   PolyCW, NoPointsInTriangle: Boolean;
   V: TAffineMatrix;
-  temp: TGIntegerList;
+  temp: TgIntegerList;
   min_dist, d, area: Single;
 begin
-  temp := TGIntegerList.Create;
+  temp := TgIntegerList.Create;
   try
     PolyCW := IsPolyClockWise;
     temp.Assign(PolyIndices);
@@ -242,11 +242,11 @@ var
     fg: TFGVertexNormalTexIndexList;
     vertices, normals, texcoords, triNormals, newVertices, newNormals,
       newTexCoords: TGAffineVectorList;
-    optimized: TGIntegerList;
+    optimized: TgIntegerList;
     cosAngle: Single;
     normal: TAffineVector;
     s, t: array [0 .. 2] of Integer;
-    n: array [0 .. 2] of TGIntegerList;
+    n: array [0 .. 2] of TgIntegerList;
     smooth, hasVertices, hasNormals, hasNormalIndices, hasTexCoords,
       hasTexCoordIndices: Boolean;
   begin
@@ -267,9 +267,9 @@ var
     newNormals := TGAffineVectorList.Create;
     newTexCoords := TGAffineVectorList.Create;
     triNormals := TGAffineVectorList.Create;
-    n[0] := TGIntegerList.Create;
-    n[1] := TGIntegerList.Create;
-    n[2] := TGIntegerList.Create;
+    n[0] := TgIntegerList.Create;
+    n[1] := TgIntegerList.Create;
+    n[2] := TgIntegerList.Create;
     for i := 0 to mesh.FaceGroups.Count - 1 do
     begin
       fg := TFGVertexNormalTexIndexList(mesh.FaceGroups[i]);
@@ -439,9 +439,9 @@ var
   var
     i, j, n: Integer;
     points: TGSingleList;
-    indices, fgindices: TGIntegerList;
+    indices, fgindices: TgIntegerList;
     fg: TFGVertexNormalTexIndexList;
-    face: TGIntegerList;
+    face: TgIntegerList;
     tempLibMat: TGLLibMaterial;
     saveTransform, mat: TGLMatrix;
     saveMaterial: TGLLibMaterial;
@@ -522,7 +522,7 @@ var
     begin
       fg := TFGVertexNormalTexIndexList.CreateOwned(mesh.FaceGroups);
       mesh.Mode := momFaceGroups;
-      face := TGIntegerList.Create;
+      face := TgIntegerList.Create;
       if Assigned(currentMaterial) then
         fg.MaterialName := currentMaterial.Name;
       for n := 0 to node.Count - 1 do

Source/GLS.FireFX.pas

@@ -17,7 +17,7 @@ uses
 
   GLScene.OpenGLTokens,
   GLS.Scene,
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
   GLScene.XCollection,
   GLScene.VectorGeometry,
   GLS.Context,
@@ -52,7 +52,7 @@ type
   private
     FClients: TList;
     FFireParticles: PGLFireParticleArray;
-    FFireDir, FInitialDir: TGCoordinates;
+    FFireDir, FInitialDir: TgCoordinates;
     FCadencer: TGLCadencer;
     FMaxParticles, FParticleLife: Integer;
     FParticleSize, FFireDensity, FFireEvaporation: Single;
@@ -67,8 +67,8 @@ type
     procedure RegisterClient(aClient: TGLBFireFX);
     procedure DeRegisterClient(aClient: TGLBFireFX);
     procedure DeRegisterAllClients;
-    procedure SetFireDir(const val: TGCoordinates);
-    procedure SetInitialDir(const val: TGCoordinates);
+    procedure SetFireDir(const val: TgCoordinates);
+    procedure SetInitialDir(const val: TgCoordinates);
     procedure SetCadencer(const val: TGLCadencer);
     function StoreParticleSize: Boolean;
     procedure SetInnerColor(const val: TGColor);
@@ -100,9 +100,9 @@ type
     procedure DoProgress(const progressTime: TGProgressTimes); override;
   published
     // Adjusts the acceleration direction (abs coordinates).
-    property FireDir: TGCoordinates read FFireDir write SetFireDir;
+    property FireDir: TgCoordinates read FFireDir write SetFireDir;
     // Adjusts the initial direction (abs coordinates).
-    property InitialDir: TGCoordinates read FInitialDir write SetInitialDir;
+    property InitialDir: TgCoordinates read FInitialDir write SetInitialDir;
     // The cadencer that will "drive" the animation of the system.
     property Cadencer: TGLCadencer read FCadencer write SetCadencer;
     // Maximum number of simultaneous particles in the system.
@@ -210,8 +210,8 @@ begin
   inherited Create(AOwner);
   FClients := TList.Create;
   RegisterManager(Self);
-  FFireDir := TGCoordinates.CreateInitialized(Self, VectorMake(0, 0.5, 0), csPoint);
-  FInitialDir := TGCoordinates.CreateInitialized(Self, YHmgVector, csPoint);
+  FFireDir := TgCoordinates.CreateInitialized(Self, VectorMake(0, 0.5, 0), csPoint);
+  FInitialDir := TgCoordinates.CreateInitialized(Self, YHmgVector, csPoint);
   FMaxParticles := 256;
   FParticleSize := 1.0;
   FInnerColor := TGColor.Create(Self);
@@ -280,13 +280,13 @@ begin
 end;
 
 
-procedure TGLFireFXManager.SetFireDir(const val: TGCoordinates);
+procedure TGLFireFXManager.SetFireDir(const val: TgCoordinates);
 begin
   FFireDir.Assign(val);
 end;
 
 
-procedure TGLFireFXManager.SetInitialDir(const val: TGCoordinates);
+procedure TGLFireFXManager.SetInitialDir(const val: TgCoordinates);
 begin
   FInitialDir.Assign(val);
 end;

Source/GLS.GeomObjects.pas

@@ -24,7 +24,7 @@ uses
   GLScene.OpenGLTokens,
   GLScene.VectorTypes,
   GLScene.VectorGeometry,
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
   GLScene.Polynomials,
 
   GLS.Scene,

Source/GLS.Gizmo.pas

@@ -63,12 +63,12 @@ type
   TGLGizmoUndoItem = class(TCollectionItem)
   private
     FOldLibMaterialName: string;
-    FOldAutoScaling: TGCoordinates;
+    FOldAutoScaling: TgCoordinates;
     FEffectedObject: TGLCustomSceneObject;
     FOldMatr: TGLMatrix;
     FOldMatrix: TGLMatrix;
     procedure SetEffectedObject(const Value: TGLCustomSceneObject);
-    procedure SetOldAutoScaling(const Value: TGCoordinates);
+    procedure SetOldAutoScaling(const Value: TgCoordinates);
     procedure SetOldMatrix(const Value: TGLMatrix);
   protected
     procedure DoUndo; virtual;
@@ -85,7 +85,7 @@ type
   published
     property EffectedObject: TGLCustomSceneObject read FEffectedObject
       write SetEffectedObject;
-    property OldAutoScaling: TGCoordinates read FOldAutoScaling
+    property OldAutoScaling: TgCoordinates read FOldAutoScaling
       write SetOldAutoScaling;
     property OldLibMaterialName: string read FOldLibMaterialName
       write FOldLibMaterialName;
@@ -1717,7 +1717,7 @@ end;
 constructor TGLGizmoUndoItem.Create(AOwner: TCollection);
 begin
   inherited;
-  FOldAutoScaling := TGCoordinates.CreateInitialized(Self,
+  FOldAutoScaling := TgCoordinates.CreateInitialized(Self,
     NullHmgVector, CsPoint);
 end;
 
@@ -1768,7 +1768,7 @@ begin
     FEffectedObject.FreeNotification(GetGizmo);
 end;
 
-procedure TGLGizmoUndoItem.SetOldAutoScaling(const Value: TGCoordinates);
+procedure TGLGizmoUndoItem.SetOldAutoScaling(const Value: TgCoordinates);
 begin
   FOldAutoScaling.Assign(Value);
 end;

Source/GLS.GizmoEx.pas

@@ -464,7 +464,7 @@ implementation
 
 uses
   GLS.Context,
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
 
   GLScene.OpenGLTokens;
 

Source/GLS.Graphics.pas

@@ -321,7 +321,7 @@ type
   end;
 
   // Stores registered raster file formats.
-  TGLRasterFileFormatsList = class(TGPersistentObjectList)
+  TGLRasterFileFormatsList = class(TgPersistentObjectList)
   public
     destructor Destroy; override;
     procedure Add(const Ext, Desc: string; DescID: Integer; AClass:

Source/GLS.Gui.pas

@@ -79,9 +79,9 @@ type
 
   TGLGuiElement = class(TCollectionItem)
   private
-    FTopLeft: TGCoordinates2;
-    FBottomRight: TGCoordinates2;
-    FScale: TGCoordinates2;
+    FTopLeft: TgCoordinates2;
+    FBottomRight: TgCoordinates2;
+    FScale: TgCoordinates2;
     FAlign: TGUIAlignments;
     FName: TGLGuiElementName;
   protected
@@ -92,9 +92,9 @@ type
     destructor Destroy; override;
     procedure AssignTo(Dest: TPersistent); override;
   published
-    property TopLeft: TGCoordinates2 read FTopLeft write FTopLeft;
-    property BottomRight: TGCoordinates2 read FBottomRight write FBottomRight;
-    property Scale: TGCoordinates2 read FScale write FScale;
+    property TopLeft: TgCoordinates2 read FTopLeft write FTopLeft;
+    property BottomRight: TgCoordinates2 read FBottomRight write FBottomRight;
+    property Scale: TgCoordinates2 read FScale write FScale;
     property Align: TGUIAlignments read FAlign write FAlign;
     property Name: TGLGuiElementName read FName write SetName;
   end;
@@ -1166,10 +1166,10 @@ end;
 constructor TGLGuiElement.Create(Collection: TCollection);
 begin
   inherited;
-  FTopLeft := TGCoordinates2.CreateInitialized(Self, NullHmgVector, csPoint2D);
-  FBottomRight := TGCoordinates2.CreateInitialized(Self, NullHmgVector,
+  FTopLeft := TgCoordinates2.CreateInitialized(Self, NullHmgVector, csPoint2D);
+  FBottomRight := TgCoordinates2.CreateInitialized(Self, NullHmgVector,
     csPoint2D);
-  FScale := TGCoordinates2.CreateInitialized(Self, XYHmgVector, csPoint2D);
+  FScale := TgCoordinates2.CreateInitialized(Self, XYHmgVector, csPoint2D);
 end;
 
 destructor TGLGuiElement.Destroy;

Source/GLS.Imposter.pas

@@ -23,7 +23,7 @@ uses
   GLScene.VectorTypes,
   GLScene.VectorGeometry,
   GLScene.PersistentClasses,
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
   GLS.Graphics,
   GLScene.Color,
   GLS.RenderContextInfo,
@@ -114,8 +114,8 @@ type
   TGLImposterBuilder = class(TGUpdateAbleComponent)
   private
     FBackColor: TGColor;
-    FBuildOffset: TGCoordinates;
-    FImposterRegister: TGPersistentObjectList;
+    FBuildOffset: TgCoordinates;
+    FImposterRegister: TgPersistentObjectList;
     FRenderPoint: TGLRenderPoint;
     FImposterOptions: TImposterOptions;
     FAlphaTreshold: Single;
@@ -126,10 +126,10 @@ type
     procedure SetRenderPoint(AValue: TGLRenderPoint);
     procedure RenderPointFreed(Sender: TObject);
     procedure SetBackColor(AValue: TGColor);
-    procedure SetBuildOffset(AValue: TGCoordinates);
+    procedure SetBuildOffset(AValue: TgCoordinates);
     procedure SetImposterReference(AValue: TImposterReference);
     procedure InitializeImpostorTexture(const TextureSize: TPoint);
-    property ImposterRegister: TGPersistentObjectList read FImposterRegister;
+    property ImposterRegister: TgPersistentObjectList read FImposterRegister;
     procedure UnregisterImposter(imposter: TImposter);
     function CreateNewImposter: TImposter; virtual;
     procedure PrepareImposters(Sender: TObject; var rci: TGLRenderContextInfo);
@@ -166,7 +166,7 @@ type
     property BackColor: TGColor read FBackColor write SetBackColor;
     (* Offset applied to the impostor'ed object during imposter construction.
        Can be used to manually tune the centering of objects. *)
-    property BuildOffset: TGCoordinates read FBuildOffset write SetBuildOffset;
+    property BuildOffset: TgCoordinates read FBuildOffset write SetBuildOffset;
     // Imposter rendering options.
     property ImposterOptions: TImposterOptions read FImposterOptions write
       FImposterOptions default cDefaultImposterOptions;
@@ -547,9 +547,9 @@ end;
 constructor TGLImposterBuilder.Create(AOwner: TComponent);
 begin
   inherited;
-  FImposterRegister := TGPersistentObjectList.Create;
+  FImposterRegister := TgPersistentObjectList.Create;
   FBackColor := TGColor.CreateInitialized(Self, clrTransparent);
-  FBuildOffset := TGCoordinates.CreateInitialized(Self, NullHmgPoint, CsPoint);
+  FBuildOffset := TgCoordinates.CreateInitialized(Self, NullHmgPoint, CsPoint);
   FImposterOptions := cDefaultImposterOptions;
   FAlphaTreshold := 0.5;
 end;
@@ -718,7 +718,7 @@ begin
   FBackColor.Assign(AValue);
 end;
 
-procedure TGLImposterBuilder.SetBuildOffset(AValue: TGCoordinates);
+procedure TGLImposterBuilder.SetBuildOffset(AValue: TgCoordinates);
 begin
   FBuildOffset.Assign(AValue);
 end;

Source/GLS.Joystick.pas

@@ -3,7 +3,10 @@
 //
 unit GLS.Joystick;
 
-(* Component for handling joystick messages *)
+(*
+  Component for handling joystick messages
+  Registered components: [TGLJoystick];
+*)
 
 interface
 
@@ -80,17 +83,15 @@ type
       write FOnJoystickMove;
   end;
 
-// ---------------------------------------------------------------------
-implementation
-// ---------------------------------------------------------------------
+implementation // ------------------------------------------------------------
 
 const
   cJoystickIDToNative: array [jidNoJoystick .. jidJoystick2] of Byte = (9,
     JOYSTICKID1, JOYSTICKID2);
 
-// ------------------
-// ------------------ TJoystick ------------------
-// ------------------
+  // ------------------
+  // ------------------ TJoystick ------------------
+  // ------------------
 
 constructor TGLJoystick.Create(AOwner: TComponent);
 begin
@@ -402,10 +403,10 @@ begin
   MakeJoyButtons(Buttons);
 end;
 
-//------------------------------------
-initialization
-//------------------------------------
+initialization // ------------------------------------------------------------
 
 RegisterClasses([TGLJoystick]);
 
+finalization // --------------------------------------------------------------
+
 end.

Source/GLS.LensFlare.pas

@@ -3,7 +3,10 @@
 //
 unit GLS.LensFlare;
 
-(* Lens flare object. *)
+(*
+  Lens flare object.
+  Registered components: [TGLLensFlare]
+*)
 
 interface
 
@@ -23,7 +26,7 @@ uses
   GLScene.VectorTypes,
 
   GLS.Scene,
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
   GLS.Objects,
   GLS.Context,
   GLScene.Color,

Source/GLS.Material.pas

@@ -457,7 +457,7 @@ type
   TGLLibMaterial = class(TGLAbstractLibMaterial, IGLTextureNotifyAble)
   private
     FMaterial: TGLMaterial;
-    FTextureOffset, FTextureScale: TGCoordinates;
+    FTextureOffset, FTextureScale: TgCoordinates;
     FTextureRotate: Single;
     FTextureMatrixIsIdentity: Boolean;
     FTextureOverride: Boolean;
@@ -468,8 +468,8 @@ type
   protected
     procedure Loaded; override;
     procedure SetMaterial(const val: TGLMaterial);
-    procedure SetTextureOffset(const val: TGCoordinates);
-    procedure SetTextureScale(const val: TGCoordinates);
+    procedure SetTextureOffset(const val: TgCoordinates);
+    procedure SetTextureScale(const val: TgCoordinates);
     procedure SetTextureMatrix(const Value: TGLMatrix);
     procedure SetTexture2Name(const val: TGLLibMaterialName);
     procedure SetShader(const val: TGLShader);
@@ -495,13 +495,13 @@ type
   published
     property Material: TGLMaterial read FMaterial write SetMaterial;
     // Texture offset in texture coordinates. The offset is applied after scaling
-    property TextureOffset: TGCoordinates read FTextureOffset write
+    property TextureOffset: TgCoordinates read FTextureOffset write
       SetTextureOffset;
     (* Texture coordinates scaling.
        Scaling is applied <i>before</i> applying the offset, and is applied
        to the texture coordinates, meaning that a scale factor of (2, 2, 2)
        will make your texture look twice smaller *)
-    property TextureScale: TGCoordinates read FTextureScale write
+    property TextureScale: TgCoordinates read FTextureScale write
       SetTextureScale;
     property TextureRotate: Single read FTextureRotate write
       SetTextureRotate stored StoreTextureRotate;
@@ -1741,9 +1741,9 @@ begin
   inherited Create(ACollection);
   FMaterial := TGLMaterial.Create(Self);
   FMaterial.Texture.OnTextureNeeded := DoOnTextureNeeded;
-  FTextureOffset := TGCoordinates.CreateInitialized(Self, NullHmgVector, csPoint);
+  FTextureOffset := TgCoordinates.CreateInitialized(Self, NullHmgVector, csPoint);
   FTextureOffset.OnNotifyChange := OnNotifyChange;
-  FTextureScale := TGCoordinates.CreateInitialized(Self, XYZHmgVector, csPoint);
+  FTextureScale := TgCoordinates.CreateInitialized(Self, XYZHmgVector, csPoint);
   FTextureScale.OnNotifyChange := OnNotifyChange;
   FTextureRotate := 0;
   FTextureOverride := False;
@@ -1957,13 +1957,13 @@ begin
   FMaterial.Assign(val);
 end;
 
-procedure TGLLibMaterial.SetTextureOffset(const val: TGCoordinates);
+procedure TGLLibMaterial.SetTextureOffset(const val: TgCoordinates);
 begin
   FTextureOffset.AsVector := val.AsVector;
   CalculateTextureMatrix;
 end;
 
-procedure TGLLibMaterial.SetTextureScale(const val: TGCoordinates);
+procedure TGLLibMaterial.SetTextureScale(const val: TgCoordinates);
 begin
   FTextureScale.AsVector := val.AsVector;
   CalculateTextureMatrix;

Source/GLS.MaterialEx.pas

@@ -30,7 +30,7 @@ uses
 
   GLScene.OpenGLTokens,
   GLS.RenderContextInfo,
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
   GLScene.BaseClasses,
   GLS.Context,
   GLScene.VectorTypes,
@@ -73,16 +73,16 @@ type
       IGLMaterialLibrarySupported)
   private
     FNameHashKey: Integer;
-    FUserList: TGPersistentObjectList;
+    FUserList: TgPersistentObjectList;
     FDefferedInit: Boolean;
     FNotifying: Boolean;
     FIsValid: Boolean;
-    function GetUserList: TGPersistentObjectList;
+    function GetUserList: TgPersistentObjectList;
     function GetMaterialLibraryEx: TGLMaterialLibraryEx;
   protected
     procedure SetName(const AValue: TGLMaterialComponentName); override;
     procedure NotifyChange(Sender: TObject); virtual;
-    property UserList: TGPersistentObjectList read GetUserList;
+    property UserList: TgPersistentObjectList read GetUserList;
     procedure DoOnPrepare(Sender: TGLContext); virtual; abstract;
   public
     destructor Destroy; override;
@@ -403,43 +403,43 @@ type
     FLibSamplerName: TGLMaterialComponentName;
     FLibTexture: TGLAbstractTexture;
     FLibSampler: TGLTextureSampler;
-    FTextureOffset, FTextureScale: TGCoordinates;
+    FTextureOffset, FTextureScale: TgCoordinates;
     FTextureRotate: Single;
     FTextureMatrixIsIdentity: Boolean;
     FTextureOverride: Boolean;
     FTextureMatrix: TGLMatrix;
     FMappingMode: TGLTextureMappingMode;
     FEnvColor: TGColor;
-    FMapSCoordinates: TGCoordinates4;
-    FMapTCoordinates: TGCoordinates4;
-    FMapRCoordinates: TGCoordinates4;
-    FMapQCoordinates: TGCoordinates4;
+    FMapSCoordinates: TgCoordinates4;
+    FMapTCoordinates: TgCoordinates4;
+    FMapRCoordinates: TgCoordinates4;
+    FMapQCoordinates: TgCoordinates4;
     FSwizzling: TGLTextureSwizzling;
     function GetLibTextureName: TGLMaterialComponentName;
     function GetLibSamplerName: TGLMaterialComponentName;
     procedure SetLibTextureName(const AValue: TGLMaterialComponentName);
     procedure SetLibSamplerName(const AValue: TGLMaterialComponentName);
-    function GetTextureOffset: TGCoordinates;
-    procedure SetTextureOffset(const AValue: TGCoordinates);
+    function GetTextureOffset: TgCoordinates;
+    procedure SetTextureOffset(const AValue: TgCoordinates);
     function StoreTextureOffset: Boolean;
-    function GetTextureScale: TGCoordinates;
-    procedure SetTextureScale(const AValue: TGCoordinates);
+    function GetTextureScale: TgCoordinates;
+    procedure SetTextureScale(const AValue: TgCoordinates);
     function StoreTextureScale: Boolean;
     procedure SetTextureMatrix(const AValue: TGLMatrix);
     procedure SetTextureRotate(AValue: Single);
     function StoreTextureRotate: Boolean;
     procedure SetMappingMode(const AValue: TGLTextureMappingMode);
-    function GetMappingSCoordinates: TGCoordinates4;
-    procedure SetMappingSCoordinates(const AValue: TGCoordinates4);
+    function GetMappingSCoordinates: TgCoordinates4;
+    procedure SetMappingSCoordinates(const AValue: TgCoordinates4);
     function StoreMappingSCoordinates: Boolean;
-    function GetMappingTCoordinates: TGCoordinates4;
-    procedure SetMappingTCoordinates(const AValue: TGCoordinates4);
+    function GetMappingTCoordinates: TgCoordinates4;
+    procedure SetMappingTCoordinates(const AValue: TgCoordinates4);
     function StoreMappingTCoordinates: Boolean;
-    function GetMappingRCoordinates: TGCoordinates4;
-    procedure SetMappingRCoordinates(const AValue: TGCoordinates4);
+    function GetMappingRCoordinates: TgCoordinates4;
+    procedure SetMappingRCoordinates(const AValue: TgCoordinates4);
     function StoreMappingRCoordinates: Boolean;
-    function GetMappingQCoordinates: TGCoordinates4;
-    procedure SetMappingQCoordinates(const AValue: TGCoordinates4);
+    function GetMappingQCoordinates: TgCoordinates4;
+    procedure SetMappingQCoordinates(const AValue: TgCoordinates4);
     function StoreMappingQCoordinates: Boolean;
     procedure SetSwizzling(const AValue: TGLTextureSwizzling);
     function StoreSwizzling: Boolean;
@@ -464,13 +464,13 @@ type
       write SetLibTextureName;
     property LibSamplerName: TGLMaterialComponentName read GetLibSamplerName
       write SetLibSamplerName;
-    property TextureOffset: TGCoordinates read GetTextureOffset write
+    property TextureOffset: TgCoordinates read GetTextureOffset write
       SetTextureOffset stored StoreTextureOffset;
     (* Texture coordinates scaling.
        Scaling is applied before applying the offset, and is applied
        to the texture coordinates, meaning that a scale factor of (2, 2, 2)
        will make your texture look twice smaller. *)
-    property TextureScale: TGCoordinates read GetTextureScale write
+    property TextureScale: TgCoordinates read GetTextureScale write
       SetTextureScale stored StoreTextureScale;
     (* Texture coordinates rotating.
        Rotating is applied after applying offset and scale,
@@ -486,13 +486,13 @@ type
     (* Texture mapping coordinates mode for S, T, R and Q axis.
     This property stores the coordinates for automatic texture
     coordinates generation. *)
-    property MappingSCoordinates: TGCoordinates4 read GetMappingSCoordinates
+    property MappingSCoordinates: TgCoordinates4 read GetMappingSCoordinates
       write SetMappingSCoordinates stored StoreMappingSCoordinates;
-    property MappingTCoordinates: TGCoordinates4 read GetMappingTCoordinates
+    property MappingTCoordinates: TgCoordinates4 read GetMappingTCoordinates
       write SetMappingTCoordinates stored StoreMappingTCoordinates;
-    property MappingRCoordinates: TGCoordinates4 read GetMappingRCoordinates
+    property MappingRCoordinates: TgCoordinates4 read GetMappingRCoordinates
       write SetMappingRCoordinates stored StoreMappingRCoordinates;
-    property MappingQCoordinates: TGCoordinates4 read GetMappingQCoordinates
+    property MappingQCoordinates: TgCoordinates4 read GetMappingQCoordinates
       write SetMappingQCoordinates stored StoreMappingQCoordinates;
     // Texture color fetching parameters.
     property Swizzling: TGLTextureSwizzling read FSwizzling write
@@ -892,12 +892,12 @@ type
     FShaders: array[TGLShaderType] of TGLShaderEx;
     FIsValid: Boolean;
     FInfoLog: string;
-    FUniforms: TGPersistentObjectList;
+    FUniforms: TgPersistentObjectList;
     FAutoFill: Boolean;
     function GetLibShaderName(AType: TGLShaderType): string;
     procedure SetLibShaderName(AType: TGLShaderType; const AValue: string);
     function GetUniform(const AName: string): IShaderParameter;
-    class procedure ReleaseUniforms(AList: TGPersistentObjectList);
+    class procedure ReleaseUniforms(AList: TgPersistentObjectList);
     property LibVertexShaderName: TGLMaterialComponentName index shtVertex
       read GetLibShaderName write SetLibShaderName;
     property LibFragmentShaderName: TGLMaterialComponentName index shtFragment
@@ -1324,11 +1324,11 @@ begin
     Result := 0;
 end;
 
-function TGLBaseMaterialCollectionItem.GetUserList: TGPersistentObjectList;
+function TGLBaseMaterialCollectionItem.GetUserList: TgPersistentObjectList;
 begin
   if FUserList = nil then
   begin
-    FUserList := TGPersistentObjectList.Create;
+    FUserList := TgPersistentObjectList.Create;
     FNotifying := False;
   end;
   Result := FUserList;
@@ -3710,51 +3710,51 @@ begin
     Result := '';
 end;
 
-function TGLTextureProperties.GetMappingQCoordinates: TGCoordinates4;
+function TGLTextureProperties.GetMappingQCoordinates: TgCoordinates4;
 begin
   if not Assigned(FMapQCoordinates) then
-    FMapQCoordinates := TGCoordinates4.CreateInitialized(Self, WHmgVector,
+    FMapQCoordinates := TgCoordinates4.CreateInitialized(Self, WHmgVector,
       csVector);
   Result := FMapQCoordinates;
 end;
 
-function TGLTextureProperties.GetMappingRCoordinates: TGCoordinates4;
+function TGLTextureProperties.GetMappingRCoordinates: TgCoordinates4;
 begin
   if not Assigned(FMapRCoordinates) then
-    FMapRCoordinates := TGCoordinates4.CreateInitialized(Self, ZHmgVector,
+    FMapRCoordinates := TgCoordinates4.CreateInitialized(Self, ZHmgVector,
       csVector);
   Result := FMapRCoordinates;
 end;
 
-function TGLTextureProperties.GetMappingSCoordinates: TGCoordinates4;
+function TGLTextureProperties.GetMappingSCoordinates: TgCoordinates4;
 begin
   if not Assigned(FMapSCoordinates) then
-    FMapSCoordinates := TGCoordinates4.CreateInitialized(Self, XHmgVector,
+    FMapSCoordinates := TgCoordinates4.CreateInitialized(Self, XHmgVector,
       csVector);
   Result := FMapSCoordinates;
 end;
 
-function TGLTextureProperties.GetMappingTCoordinates: TGCoordinates4;
+function TGLTextureProperties.GetMappingTCoordinates: TgCoordinates4;
 begin
   if not Assigned(FMapTCoordinates) then
-    FMapTCoordinates := TGCoordinates4.CreateInitialized(Self, YHmgVector,
+    FMapTCoordinates := TgCoordinates4.CreateInitialized(Self, YHmgVector,
       csVector);
   Result := FMapTCoordinates;
 end;
 
-function TGLTextureProperties.GetTextureOffset: TGCoordinates;
+function TGLTextureProperties.GetTextureOffset: TgCoordinates;
 begin
   if not Assigned(FTextureOffset) then
     FTextureOffset :=
-      TGCoordinates3.CreateInitialized(Self, NullHmgVector, csPoint);
+      TgCoordinates3.CreateInitialized(Self, NullHmgVector, csPoint);
   Result := FTextureOffset;
 end;
 
-function TGLTextureProperties.GetTextureScale: TGCoordinates;
+function TGLTextureProperties.GetTextureScale: TgCoordinates;
 begin
   if not Assigned(FTextureScale) then
     FTextureScale :=
-      TGCoordinates3.CreateInitialized(Self, VectorMake(1, 1, 1, 1), csVector);
+      TgCoordinates3.CreateInitialized(Self, VectorMake(1, 1, 1, 1), csVector);
   Result := FTextureScale;
 end;
 
@@ -3874,25 +3874,25 @@ begin
 end;
 
 procedure TGLTextureProperties.SetMappingQCoordinates(
-  const AValue: TGCoordinates4);
+  const AValue: TgCoordinates4);
 begin
   MappingQCoordinates.Assign(AValue);
 end;
 
 procedure TGLTextureProperties.SetMappingRCoordinates(
-  const AValue: TGCoordinates4);
+  const AValue: TgCoordinates4);
 begin
   MappingRCoordinates.Assign(AValue);
 end;
 
 procedure TGLTextureProperties.SetMappingSCoordinates(
-  const AValue: TGCoordinates4);
+  const AValue: TgCoordinates4);
 begin
   MappingSCoordinates.Assign(AValue);
 end;
 
 procedure TGLTextureProperties.SetMappingTCoordinates(
-  const AValue: TGCoordinates4);
+  const AValue: TgCoordinates4);
 begin
   MappingTCoordinates.Assign(AValue);
 end;
@@ -3911,7 +3911,7 @@ begin
   NotifyChange(Self);
 end;
 
-procedure TGLTextureProperties.SetTextureOffset(const AValue: TGCoordinates);
+procedure TGLTextureProperties.SetTextureOffset(const AValue: TgCoordinates);
 begin
   TextureOffset.Assign(AValue);
   CalculateTextureMatrix;
@@ -3927,7 +3927,7 @@ begin
   end;
 end;
 
-procedure TGLTextureProperties.SetTextureScale(const AValue: TGCoordinates);
+procedure TGLTextureProperties.SetTextureScale(const AValue: TgCoordinates);
 begin
   TextureScale.Assign(AValue);
   CalculateTextureMatrix;
@@ -4418,7 +4418,7 @@ begin
   FHandle := TGLProgramHandle.Create;
   FHandle.OnPrapare := DoOnPrepare;
   FEnabled := False;
-  FUniforms := TGPersistentObjectList.Create;
+  FUniforms := TgPersistentObjectList.Create;
   FAutoFill := True;
 end;
 
@@ -4447,7 +4447,7 @@ end;
 procedure TGLBaseShaderModel.DoOnPrepare(Sender: TGLContext);
 var
   T: TGLShaderType;
-  LUniforms: TGPersistentObjectList;
+  LUniforms: TgPersistentObjectList;
   LUniform, LUniform2: TGLShaderUniform;
   ID: Cardinal;
   I, J, C: Integer;
@@ -4537,7 +4537,7 @@ begin
               end;
 
               // Get uniforms
-              LUniforms := TGPersistentObjectList.Create;
+              LUniforms := TgPersistentObjectList.Create;
 
               gl.GetProgramiv(ID, GL_ACTIVE_UNIFORMS, @C);
               for I := 0 to C - 1 do
@@ -4826,7 +4826,7 @@ begin
 end;
 
 class procedure TGLBaseShaderModel.ReleaseUniforms(
-  AList: TGPersistentObjectList);
+  AList: TgPersistentObjectList);
 var
   I: Integer;
 begin

Source/GLS.MaterialMultiProxy.pas

@@ -42,7 +42,7 @@ uses
   GLScene.BaseClasses,
   GLS.Context,
   GLScene.VectorTypes,
-  GLS.PipelineTransformation;
+  GLScene.PipelineTransform;
 
 type
   TGLMaterialMultiProxy = class;

Source/GLS.MaterialScript.pas

@@ -95,9 +95,9 @@ type
     Infini: Longint;
     Done: Boolean;
     NewMat: TGLLibMaterial;
-    TmpCoords: TGCoordinates;
+    TmpCoords: TgCoordinates;
     TmpColor: TGColor;
-    TmpCoords4: TGCoordinates4;
+    TmpCoords4: TgCoordinates4;
     TmpStr: string;
     procedure SeTGLShaderItems(const Value: TGLShaderItems);
     procedure SeTGLMaterialLibraryItems(const Value: TGLMaterialLibraryItems);

Source/GLS.MeshBSP.pas

@@ -141,7 +141,7 @@ type
       const maxTrianglesPerLeaf: Integer = MaxInt);
     (*  Goes through all triangle edges, looking for tjunctions.
       The candidates are indices of points to lookup a tjunction vertices. *)
-    procedure FixTJunctions(const tJunctionsCandidates: TGIntegerList);
+    procedure FixTJunctions(const tJunctionsCandidates: TgIntegerList);
     (*  BSP node split plane.
       Divides space between positive and negative half-space, positive
       half-space being the one were the evaluation of an homogeneous
@@ -385,14 +385,14 @@ var
   i, j, n: Integer;
   nodeParents: array of Integer;
   remapIndex: array of Integer;
-  indicesToCheck: TGIntegerList;
+  indicesToCheck: TgIntegerList;
   node: TFGBSPNode;
 begin
   n := faceGroups.Count;
   if n = 0 then
     Exit;
   SetLength(nodeParents, n);
-  indicesToCheck := TGIntegerList.Create;
+  indicesToCheck := TgIntegerList.Create;
   try
     // build nodes parent information
     FillChar(nodeParents[0], SizeOf(Integer) * n, 255);
@@ -826,8 +826,8 @@ procedure TFGBSPNode.PerformSplit(const splitPlane: THmgPlane;
   const maxTrianglesPerLeaf: Integer = MaxInt);
 var
   fgPos, fgNeg: TFGBSPNode;
-  fgPosIndices, fgNegIndices: TGIntegerList;
-  indices: TGIntegerList;
+  fgPosIndices, fgNegIndices: TgIntegerList;
+  indices: TgIntegerList;
 
   procedure SplitTriangleMid(strayID, strayNext, strayPrev: Integer;
     eNext, ePrev: Single);
@@ -893,7 +893,7 @@ begin
   fgNegIndices := fgNeg.VertexIndices;
   // initiate split
   Self.FSplitPlane := splitPlane;
-  indices := TGIntegerList.Create;
+  indices := TgIntegerList.Create;
   vertices := Owner.Owner.vertices;
   i := 0;
   while i < VertexIndices.Count do
@@ -1034,10 +1034,10 @@ begin
   end;
 end;
 
-procedure TFGBSPNode.FixTJunctions(const tJunctionsCandidates: TGIntegerList);
+procedure TFGBSPNode.FixTJunctions(const tJunctionsCandidates: TgIntegerList);
 
   function FindTJunction(iA, iB, iC: Integer;
-    candidatesList: TGIntegerList): Integer;
+    candidatesList: TgIntegerList): Integer;
   var
     i, k: Integer;
     vertices: PAffineVectorArray;
@@ -1092,10 +1092,10 @@ procedure TFGBSPNode.FixTJunctions(const tJunctionsCandidates: TGIntegerList);
 var
   i, tj: Integer;
   indices: PIntegerArray;
-  mark: TGIntegerList;
+  mark: TgIntegerList;
 begin
   Assert(Mode in [fgmmTriangles, fgmmFlatTriangles]);
-  mark := TGIntegerList.Create;
+  mark := TgIntegerList.Create;
   mark.AddSerie(1, 0, VertexIndices.Count);
   indices := VertexIndices.List;
   i := 0;

Source/GLS.MeshBuilder.pas

@@ -560,7 +560,7 @@ var
   i: Integer;
   fg: TGLFaceGroup;
   coords, TexCoords, Normals: TGAffineVectorList;
-  il: TGIntegerList;
+  il: TgIntegerList;
   materialName: String;
 begin
   if (mooMergeObjects in options) then
@@ -641,19 +641,19 @@ procedure FacesSmooth(aMeshObj: TGLMeshObject;
 Var
   i, J, k, L: Integer;
   WeldedVertex: TGAffineVectorList;
-  TmpIntegerList: TGIntegerList;
+  TmpIntegerList: TgIntegerList;
   IndexMap: TStringList;
   n: TAffineVector;
-  indicesMap: TGIntegerList;
+  indicesMap: TgIntegerList;
   Index: Integer;
-  FaceList: TGIntegerList;
+  FaceList: TgIntegerList;
   NormalList: TGAffineVectorList;
   FaceNormalList: TGAffineVectorList;
   FaceGroup: TGLFaceGroup;
   fg, FG1: TFGVertexIndexList;
   Threshold: Single;
   Angle: Single;
-  ReferenceMap: TGIntegerList;
+  ReferenceMap: TgIntegerList;
   ID1, ID2: Integer;
   Index1, Index2, Index3: Integer;
 
@@ -679,10 +679,10 @@ Var
 begin
   Threshold := aThreshold * Pi / 180.0;
   // build the vectices reference map
-  ReferenceMap := TGIntegerList.Create;
+  ReferenceMap := TgIntegerList.Create;
   WeldedVertex := TGAffineVectorList.Create;
   WeldedVertex.Assign(aMeshObj.Vertices);
-  indicesMap := TGIntegerList.Create;
+  indicesMap := TgIntegerList.Create;
   // first of all, weld the very closed vertices
   WeldVertices(WeldedVertex, indicesMap, aWeldDistance);
   // then, rebuild the map list
@@ -690,7 +690,7 @@ begin
   for i := 0 to WeldedVertex.Count - 1 do
   begin
     ReferenceMap.Assign(indicesMap);
-    TmpIntegerList := TGIntegerList.Create;
+    TmpIntegerList := TgIntegerList.Create;
     Index := ReferenceMap.IndexOf(i);
     while Index >= 0 do
     begin
@@ -705,10 +705,10 @@ begin
   WeldedVertex.Free;
   indicesMap.Free;
   // creates a TexPoint list for save face infomation, where s=facegroup index, t=face index
-  FaceList := TGIntegerList.Create;
+  FaceList := TgIntegerList.Create;
   NormalList := TGAffineVectorList.Create;
   FaceNormalList := TGAffineVectorList.Create;
-  // NormalIndex := TGIntegerList.Create;
+  // NormalIndex := TgIntegerList.Create;
   for i := 0 to aMeshObj.FaceGroups.Count - 1 do
   begin
     FaceGroup := aMeshObj.FaceGroups[i];

Source/GLS.MeshLines.pas

@@ -108,7 +108,7 @@ type
   published
   end;
 
-  TGLLightmapBounds = class(TGCustomCoordinates)
+  TGLLightmapBounds = class(TgCustomCoordinates)
   private
     function GetLeft: TGLFloat;
     function GetTop: TGLFloat;
@@ -149,8 +149,8 @@ type
       Tolerance: Single = 1): Boolean;
     function PointNearSegment(const StartNode, EndNode: TGLLineNode;
       const X, Z: Single; LineWidth: Single; Tolerance: Single = 1): Boolean;
-    procedure StitchStrips(idx: TGIntegerList);
-    procedure AddStitchMarker(idx: TGIntegerList);
+    procedure StitchStrips(idx: TgIntegerList);
+    procedure AddStitchMarker(idx: TgIntegerList);
     procedure SetShowNodes(const Value: Boolean);
     procedure SetNoZWrite(const Value: Boolean);
     procedure SetLightmapIndex(const Value: Integer);
@@ -806,7 +806,7 @@ begin
   result := sqrt(sqr(xt - X) + sqr(yt - Z)) <= lDist;
 end;
 
-procedure TGLMeshLines.StitchStrips(idx: TGIntegerList);
+procedure TGLMeshLines.StitchStrips(idx: TgIntegerList);
 var
   i: Integer;
   i0, i1, i2: Integer;
@@ -826,7 +826,7 @@ begin
   end;
 end;
 
-procedure TGLMeshLines.AddStitchMarker(idx: TGIntegerList);
+procedure TGLMeshLines.AddStitchMarker(idx: TgIntegerList);
 begin
   idx.Add(-1);
   idx.Add(-2);

Source/GLS.MeshUtils.pas

@@ -26,17 +26,17 @@ uses
 *)
 procedure ConvertStripToList(const strip: TGAffineVectorList;
   list: TGAffineVectorList); overload;
-procedure ConvertStripToList(const strip: TGIntegerList;
-  list: TGIntegerList); overload;
+procedure ConvertStripToList(const strip: TgIntegerList;
+  list: TgIntegerList); overload;
 procedure ConvertStripToList(const strip: TGAffineVectorList;
-  const indices: TGIntegerList; list: TGAffineVectorList); overload;
+  const indices: TgIntegerList; list: TGAffineVectorList); overload;
 function ConvertStripToList(const AindicesList: PLongWordArray; Count: LongWord;
   RestartIndex: LongWord): TGLongWordList; overload;
 function ConvertFansToList(const AindicesList: PLongWordArray; Count: LongWord;
   RestartIndex: LongWord): TGLongWordList;
 // Expands an indexed structure into a non-indexed structure.
 procedure ConvertIndexedListToList(const data: TGAffineVectorList;
-  const indices: TGIntegerList; list: TGAffineVectorList);
+  const indices: TgIntegerList; list: TGAffineVectorList);
 (* 
   Builds a vector-count optimized indices list.
   The returned list (to be freed by caller) contains an "optimized" indices
@@ -47,16 +47,16 @@ procedure ConvertIndexedListToList(const data: TGAffineVectorList;
 *)
 function BuildVectorCountOptimizedIndices(const vertices: TGAffineVectorList;
   const normals: TGAffineVectorList = nil;
-  const texCoords: TGAffineVectorList = nil): TGIntegerList;
+  const texCoords: TGAffineVectorList = nil): TgIntegerList;
 (* 
   Alters a reference array and removes unused reference values.
   This functions scans the reference list and removes all values that aren't
   referred in the indices list, the indices list is *not* remapped. 
 *)
 procedure RemapReferences(reference: TGAffineVectorList;
-  const indices: TGIntegerList); overload;
-procedure RemapReferences(reference: TGIntegerList;
-  const indices: TGIntegerList); overload;
+  const indices: TgIntegerList); overload;
+procedure RemapReferences(reference: TgIntegerList;
+  const indices: TgIntegerList); overload;
 (* 
   Alters a reference/indice pair and removes unused reference values.
   This functions scans the reference list and removes all values that aren't
@@ -64,7 +64,7 @@ procedure RemapReferences(reference: TGIntegerList;
   coherent. 
 *)
 procedure RemapAndCleanupReferences(reference: TGAffineVectorList;
-  indices: TGIntegerList);
+  indices: TgIntegerList);
 (* 
   Creates an indices map from a remap list.
   The remap list is what BuildVectorCountOptimizedIndices, a list of indices
@@ -74,17 +74,17 @@ procedure RemapAndCleanupReferences(reference: TGAffineVectorList;
   it to something suitable for RemapTrianglesIndices.
   Any simpler documentation of this function welcome ;) 
 *)
-function RemapIndicesToIndicesMap(remapIndices: TGIntegerList): TGIntegerList;
+function RemapIndicesToIndicesMap(remapIndices: TgIntegerList): TgIntegerList;
 (* 
   Remaps a list of triangles vertex indices and remove degenerate triangles.
   The indicesMap provides newVertexIndex:=indicesMap[oldVertexIndex] 
 *)
-procedure RemapTrianglesIndices(indices, indicesMap: TGIntegerList);
+procedure RemapTrianglesIndices(indices, indicesMap: TgIntegerList);
 (* 
   Remaps a list of indices.
   The indicesMap provides newVertexIndex:=indicesMap[oldVertexIndex] 
 *)
-procedure remapIndices(indices, indicesMap: TGIntegerList);
+procedure remapIndices(indices, indicesMap: TgIntegerList);
 (* 
   Attempts to unify triangle winding.
   Depending on topology, this may or may not be successful (some topologies
@@ -92,16 +92,16 @@ procedure remapIndices(indices, indicesMap: TGIntegerList);
   have edges shared by more than two triangles, those that have unconnected
   submeshes etc.) 
 *)
-procedure UnifyTrianglesWinding(indices: TGIntegerList);
+procedure UnifyTrianglesWinding(indices: TgIntegerList);
 // Inverts the triangles winding (vertex order).
-procedure InvertTrianglesWinding(indices: TGIntegerList);
+procedure InvertTrianglesWinding(indices: TgIntegerList);
 (* 
   Builds normals for a triangles list.
   Builds one normal per reference vertex (may be NullVector is reference isn't
   used), which is the averaged for normals of all adjacent triangles.
   Returned list must be freed by caller. 
 *)
-function BuildNormals(reference: TGAffineVectorList; indices: TGIntegerList)
+function BuildNormals(reference: TGAffineVectorList; indices: TgIntegerList)
   : TGAffineVectorList;
 (* 
   Builds a list of non-oriented (non duplicated) edges list.
@@ -115,9 +115,9 @@ function BuildNormals(reference: TGAffineVectorList; indices: TGIntegerList)
   A maximum of two triangles can be referred by this list,
   and its final size will be that of the Result (ie. non oriented edges list) 
 *)
-function BuildNonOrientedEdgesList(triangleIndices: TGIntegerList;
-  triangleEdges: TGIntegerList = nil; edgesTriangles: TGIntegerList = nil)
-  : TGIntegerList;
+function BuildNonOrientedEdgesList(triangleIndices: TgIntegerList;
+  triangleEdges: TgIntegerList = nil; edgesTriangles: TgIntegerList = nil)
+  : TgIntegerList;
 (* 
   Welds all vertices separated by a distance inferior to weldRadius.
   Any two vertices whose distance is inferior to weldRadius will be merged
@@ -131,20 +131,20 @@ function BuildNonOrientedEdgesList(triangleIndices: TGIntegerList;
   exported from high-polycount CAD tools (to remove duplicate vertices,
   quantification errors, etc.) 
 *)
-procedure WeldVertices(vertices: TGAffineVectorList; indicesMap: TGIntegerList;
+procedure WeldVertices(vertices: TGAffineVectorList; indicesMap: TgIntegerList;
   weldRadius: Single);
 (* 
   Attempts to create as few as possible triangle strips to cover the mesh.
   The indices parameters define a set of triangles as a set of indices to
   vertices in a vertex pool, free of duplicate vertices (or resulting
   stripification will be of lower quality).
-  The function returns a list of TGIntegerList, each of these lists hosting
+  The function returns a list of TgIntegerList, each of these lists hosting
   a triangle strip, returned objects must be freed by caller.
   If agglomerateLoneTriangles is True, the first of the lists actually contains
   the agglomerated list of the triangles that couldn't be stripified. 
 *)
-function StripifyMesh(indices: TGIntegerList; maxVertexIndex: Integer;
-  agglomerateLoneTriangles: Boolean = False): TGPersistentObjectList;
+function StripifyMesh(indices: TgIntegerList; maxVertexIndex: Integer;
+  agglomerateLoneTriangles: Boolean = False): TgPersistentObjectList;
 (* 
   Increases indices coherency wrt vertex caches.
   The indices parameters is understood as vertex indices of a triangles set,
@@ -156,7 +156,7 @@ function StripifyMesh(indices: TGIntegerList; maxVertexIndex: Integer;
   This procedure performs a coherency optimization via a greedy hill-climber
   algorithm (ie. not optimal but fast). 
 *)
-procedure IncreaseCoherency(indices: TGIntegerList; cacheSize: Integer);
+procedure IncreaseCoherency(indices: TgIntegerList; cacheSize: Integer);
 
 type
   TSubdivideEdgeEvent = procedure(const idxA, idxB, newIdx: Integer); register;
@@ -170,7 +170,7 @@ type
   The procedure is not intended for real-time use. 
 *)
 procedure SubdivideTriangles(smoothFactor: Single; vertices: TGAffineVectorList;
-  triangleIndices: TGIntegerList; normals: TGAffineVectorList = nil;
+  triangleIndices: TgIntegerList; normals: TGAffineVectorList = nil;
   onSubdivideEdge: TSubdivideEdgeEvent = nil);
 // Create list of indices of triangles with adjacency from triangle list 
 function MakeTriangleAdjacencyList(const AindicesList: PLongWordArray;
@@ -217,7 +217,7 @@ begin
   end;
 end;
 
-procedure ConvertStripToList(const strip: TGIntegerList; list: TGIntegerList);
+procedure ConvertStripToList(const strip: TgIntegerList; list: TgIntegerList);
 var
   i: Integer;
   stripList: PIntegerArray;
@@ -234,7 +234,7 @@ begin
 end;
 
 procedure ConvertStripToList(const strip: TGAffineVectorList;
-  const indices: TGIntegerList; list: TGAffineVectorList);
+  const indices: TgIntegerList; list: TGAffineVectorList);
 var
   i: Integer;
   stripList: PAffineVectorArray;
@@ -253,7 +253,7 @@ begin
 end;
 
 procedure ConvertIndexedListToList(const data: TGAffineVectorList;
-  const indices: TGIntegerList; list: TGAffineVectorList);
+  const indices: TgIntegerList; list: TGAffineVectorList);
 var
   i: Integer;
   indicesList: PIntegerArray;
@@ -279,13 +279,13 @@ end;
 
 function BuildVectorCountOptimizedIndices(const vertices: TGAffineVectorList;
   const normals: TGAffineVectorList = nil;
-  const texCoords: TGAffineVectorList = nil): TGIntegerList;
+  const texCoords: TGAffineVectorList = nil): TgIntegerList;
 var
   i, j, k: Integer;
   found: Boolean;
   hashSize: Integer;
-  hashTable: array of TGIntegerList;
-  list: TGIntegerList;
+  hashTable: array of TgIntegerList;
+  list: TgIntegerList;
   verticesList, normalsList, texCoordsList: PAffineVectorArray;
 const
   cVerticesPerHashKey = 48;
@@ -298,7 +298,7 @@ const
   end;
 
 begin
-  Result := TGIntegerList.Create;
+  Result := TgIntegerList.Create;
   Result.Capacity := vertices.Count;
 
   if Assigned(normals) then
@@ -333,7 +333,7 @@ begin
   // allocate and fill our hashtable (will store "reference" vertex indices)
   for i := 0 to hashSize do
   begin
-    hashTable[i] := TGIntegerList.Create;
+    hashTable[i] := TgIntegerList.Create;
     hashTable[i].GrowthDelta := cVerticesPerHashKey div 2;
   end;
   // here we go for all vertices
@@ -439,7 +439,7 @@ end;
 // RemapReferences (vectors)
 //
 procedure RemapReferences(reference: TGAffineVectorList;
-  const indices: TGIntegerList);
+  const indices: TgIntegerList);
 var
   i: Integer;
   tag: array of Byte;
@@ -469,7 +469,7 @@ begin
     div SizeOf(TAffineVector);
 end;
 
-procedure RemapReferences(reference: TGIntegerList; const indices: TGIntegerList);
+procedure RemapReferences(reference: TgIntegerList; const indices: TgIntegerList);
 var
   i, n: Integer;
   tag: array of Byte;
@@ -498,7 +498,7 @@ begin
 end;
 
 procedure RemapAndCleanupReferences(reference: TGAffineVectorList;
-  indices: TGIntegerList);
+  indices: TgIntegerList);
 var
   i, n: Integer;
   tag: array of Integer;
@@ -530,7 +530,7 @@ begin
     indicesList[i] := tag[indicesList[i]];
 end;
 
-function RemapIndicesToIndicesMap(remapIndices: TGIntegerList): TGIntegerList;
+function RemapIndicesToIndicesMap(remapIndices: TgIntegerList): TgIntegerList;
 var
   i, n: Integer;
   tag: array of Integer;
@@ -552,14 +552,14 @@ begin
     end;
   end;
   // 3rd step, fillup indices map
-  Result := TGIntegerList.Create;
+  Result := TgIntegerList.Create;
   Result.Count := remapIndices.Count;
   indicesMap := Result.list;
   for i := 0 to Result.Count - 1 do
     indicesMap[i] := tag[remapList[i]];
 end;
 
-procedure RemapTrianglesIndices(indices, indicesMap: TGIntegerList);
+procedure RemapTrianglesIndices(indices, indicesMap: TgIntegerList);
 var
   i, k, a, b, c, n: Integer;
 begin
@@ -584,7 +584,7 @@ begin
   indices.Count := k;
 end;
 
-procedure remapIndices(indices, indicesMap: TGIntegerList);
+procedure remapIndices(indices, indicesMap: TgIntegerList);
 var
   i: Integer;
   map, ind: PIntegerArray;
@@ -595,11 +595,11 @@ begin
     ind[i] := map[ind[i]];
 end;
 
-procedure UnifyTrianglesWinding(indices: TGIntegerList);
+procedure UnifyTrianglesWinding(indices: TgIntegerList);
 var
   nbTris: Integer;
   mark: array of ByteBool; // marks triangles that have been processed
-  triangleStack: TGIntegerList; // marks triangles winded, that must be processed
+  triangleStack: TgIntegerList; // marks triangles winded, that must be processed
 
   procedure TestRewind(a, b: Integer);
   var
@@ -657,7 +657,7 @@ begin
   nbTris := indices.Count div 3;
   SetLength(mark, nbTris);
   // Build connectivity data
-  triangleStack := TGIntegerList.Create;
+  triangleStack := TgIntegerList.Create;
   try
     triangleStack.Capacity := nbTris div 4;
     // Pick a triangle, adjust normals of neighboring triangles, recurse
@@ -673,7 +673,7 @@ begin
   end;
 end;
 
-procedure InvertTrianglesWinding(indices: TGIntegerList);
+procedure InvertTrianglesWinding(indices: TgIntegerList);
 var
   i: Integer;
 begin
@@ -686,7 +686,7 @@ begin
   end;
 end;
 
-function BuildNormals(reference: TGAffineVectorList; indices: TGIntegerList)
+function BuildNormals(reference: TGAffineVectorList; indices: TgIntegerList)
   : TGAffineVectorList;
 var
   i, n, k: Integer;
@@ -723,22 +723,22 @@ begin
 end;
 
 //----------------------------------------------------------
-function BuildNonOrientedEdgesList(triangleIndices: TGIntegerList;
-  triangleEdges: TGIntegerList = nil; edgesTriangles: TGIntegerList = nil)
-  : TGIntegerList;
+function BuildNonOrientedEdgesList(triangleIndices: TgIntegerList;
+  triangleEdges: TgIntegerList = nil; edgesTriangles: TgIntegerList = nil)
+  : TgIntegerList;
 const
   cEdgesHashMax = 127; // must be a power of two minus 1
 var
-  edgesHash: array [0 .. cEdgesHashMax] of TGIntegerList;
+  edgesHash: array [0 .. cEdgesHashMax] of TgIntegerList;
   curTri: Integer;
-  edges: TGIntegerList;
+  edges: TgIntegerList;
 
   function ProcessEdge(a, b: Integer): Integer;
   var
     i, n: Integer;
     HashKey: Integer;
     edgesList, iList: PIntegerArray;
-    hashList: TGIntegerList;
+    hashList: TgIntegerList;
   begin
     if a >= b then
     begin
@@ -770,7 +770,7 @@ var
     HashKey: Integer;
     edgesList: PIntegerArray;
     iList, iListEnd: PInteger;
-    hashList: TGIntegerList;
+    hashList: TgIntegerList;
   begin
     if a >= b then
     begin
@@ -804,7 +804,7 @@ var
   j, k: Integer;
   triIndicesList: PIntegerArray;
 begin
-  Result := TGIntegerList.Create;
+  Result := TgIntegerList.Create;
   Result.Capacity := 1024;
   Result.GrowthDelta := 1024;
   if Assigned(triangleEdges) then
@@ -815,7 +815,7 @@ begin
   k := (triangleIndices.Count div (cEdgesHashMax + 1)) + 128;
   for j := 0 to High(edgesHash) do
   begin
-    edgesHash[j] := TGIntegerList.Create;
+    edgesHash[j] := TgIntegerList.Create;
     edgesHash[j].Capacity := k;
   end;
   // collect all edges
@@ -879,20 +879,20 @@ begin
     edgesHash[j].Free;
 end;
 
-procedure IncreaseCoherency(indices: TGIntegerList; cacheSize: Integer);
+procedure IncreaseCoherency(indices: TgIntegerList; cacheSize: Integer);
 var
   i, n, maxVertex, bestCandidate, bestScore, candidateIdx,
     lastCandidate: Integer;
-  trisOfVertex: array of TGIntegerList;
-  candidates: TGIntegerList;
+  trisOfVertex: array of TgIntegerList;
+  candidates: TgIntegerList;
   indicesList: PIntegerArray;
 begin
   // Alloc lookup structure
   maxVertex := indices.MaxInteger;
   SetLength(trisOfVertex, maxVertex + 1);
   for i := 0 to High(trisOfVertex) do
-    trisOfVertex[i] := TGIntegerList.Create;
-  candidates := TGIntegerList.Create;
+    trisOfVertex[i] := TgIntegerList.Create;
+  candidates := TgIntegerList.Create;
   indicesList := PIntegerArray(indices.list);
   // Fillup lookup structure
   i := 0;
@@ -968,7 +968,7 @@ begin
     trisOfVertex[i].Free;
 end;
 
-procedure WeldVertices(vertices: TGAffineVectorList; indicesMap: TGIntegerList;
+procedure WeldVertices(vertices: TGAffineVectorList; indicesMap: TgIntegerList;
   weldRadius: Single);
 var
   i, j, n, k: Integer;
@@ -1032,21 +1032,21 @@ begin
   vertices.Count := k;
 end;
 
-function StripifyMesh(indices: TGIntegerList; maxVertexIndex: Integer;
-  agglomerateLoneTriangles: Boolean = False): TGPersistentObjectList;
+function StripifyMesh(indices: TgIntegerList; maxVertexIndex: Integer;
+  agglomerateLoneTriangles: Boolean = False): TgPersistentObjectList;
 var
   accountedTriangles: array of ByteBool;
-  vertexTris: array of TGIntegerList;
+  vertexTris: array of TgIntegerList;
   indicesList: PIntegerArray;
   indicesCount: Integer;
-  currentStrip: TGIntegerList;
+  currentStrip: TgIntegerList;
   nextTriangle, nextVertex: Integer;
 
   function FindTriangleWithEdge(vertA, vertB: Integer): Boolean;
   var
     i, n: Integer;
     p: PIntegerArray;
-    list: TGIntegerList;
+    list: TgIntegerList;
   begin
     Result := False;
     list := vertexTris[vertA];
@@ -1102,17 +1102,17 @@ var
 
 var
   i, n, triangle: Integer;
-  loneTriangles: TGIntegerList;
+  loneTriangles: TgIntegerList;
 begin
   Assert((indices.Count mod 3) = 0, 'indices count is not a multiple of 3!');
-  Result := TGPersistentObjectList.Create;
+  Result := TgPersistentObjectList.Create;
   // direct access and cache vars
   indicesList := indices.list;
   indicesCount := indices.Count;
   // Build adjacency lookup table (vertex based, not triangle based)
   SetLength(vertexTris, maxVertexIndex + 1);
   for i := 0 to High(vertexTris) do
-    vertexTris[i] := TGIntegerList.Create;
+    vertexTris[i] := TgIntegerList.Create;
   n := 0;
   triangle := 0;
   for i := 0 to indicesCount - 1 do
@@ -1130,7 +1130,7 @@ begin
   SetLength(accountedTriangles, indicesCount); // yeah, waste of memory
   if agglomerateLoneTriangles then
   begin
-    loneTriangles := TGIntegerList.Create;
+    loneTriangles := TgIntegerList.Create;
     Result.Add(loneTriangles);
   end
   else
@@ -1143,19 +1143,19 @@ begin
       accountedTriangles[i] := True;
       if FindTriangleWithEdge(indicesList[i + 1], indicesList[i]) then
       begin
-        currentStrip := TGIntegerList.Create;
+        currentStrip := TgIntegerList.Create;
         currentStrip.Add(indicesList[i + 2]);
         BuildStrip(indicesList[i], indicesList[i + 1]);
       end
       else if FindTriangleWithEdge(indicesList[i + 2], indicesList[i + 1]) then
       begin
-        currentStrip := TGIntegerList.Create;
+        currentStrip := TgIntegerList.Create;
         currentStrip.Add(indicesList[i]);
         BuildStrip(indicesList[i + 1], indicesList[i + 2]);
       end
       else if FindTriangleWithEdge(indicesList[i], indicesList[i + 2]) then
       begin
-        currentStrip := TGIntegerList.Create;
+        currentStrip := TgIntegerList.Create;
         currentStrip.Add(indicesList[i + 1]);
         BuildStrip(indicesList[i + 2], indicesList[i]);
       end
@@ -1164,7 +1164,7 @@ begin
         if agglomerateLoneTriangles then
           currentStrip := loneTriangles
         else
-          currentStrip := TGIntegerList.Create;
+          currentStrip := TgIntegerList.Create;
         currentStrip.Add(indicesList[i], indicesList[i + 1],
           indicesList[i + 2]);
       end;
@@ -1179,17 +1179,17 @@ begin
 end;
 
 procedure SubdivideTriangles(smoothFactor: Single; vertices: TGAffineVectorList;
-  triangleIndices: TGIntegerList; normals: TGAffineVectorList = nil;
+  triangleIndices: TgIntegerList; normals: TGAffineVectorList = nil;
   onSubdivideEdge: TSubdivideEdgeEvent = nil);
 var
   i, a, b, c, nv: Integer;
-  edges: TGIntegerList;
-  triangleEdges: TGIntegerList;
+  edges: TgIntegerList;
+  triangleEdges: TgIntegerList;
   p, n: TAffineVector;
   f: Single;
 begin
   // build edges list
-  triangleEdges := TGIntegerList.Create;
+  triangleEdges := TgIntegerList.Create;
   try
     edges := BuildNonOrientedEdgesList(triangleIndices, triangleEdges);
     try

Source/GLS.Mirror.pas

@@ -26,7 +26,7 @@ uses
   GLS.State,
   GLScene.VectorTypes,
   GLScene.PersistentClasses,
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
   GLScene.XCollection,
   GLS.Texture;
 

Source/GLS.MultiPolygon.pas

@@ -95,7 +95,7 @@ type
     procedure GetExtents(var min, max: TAffineVector);
   end;
 
-  TGLPolygonList = class(TGPersistentObjectList)
+  TGLPolygonList = class(TgPersistentObjectList)
   private
     FAktList: TGAffineVectorList;
     function GetList(I: Integer): TGAffineVectorList;
@@ -139,7 +139,7 @@ type
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
     procedure Assign(Source: TPersistent); override;
-    procedure AddNode(const i: Integer; const coords: TGCoordinates); overload;
+    procedure AddNode(const i: Integer; const coords: TgCoordinates); overload;
     procedure AddNode(const i: Integer; const X, Y, Z: TGLfloat); overload;
     procedure AddNode(const i: Integer; const value: TGLVector); overload;
     procedure AddNode(const i: Integer; const value: TAffineVector); overload;
@@ -436,7 +436,7 @@ begin
 end;
 
 
-procedure TGLMultiPolygonBase.AddNode(const i: Integer; const coords: TGCoordinates);
+procedure TGLMultiPolygonBase.AddNode(const i: Integer; const coords: TgCoordinates);
 begin
   Path[i].AddNode(coords);
 end;

Source/GLS.NGDManager.pas

@@ -147,10 +147,10 @@ type
     FSolverModel: TGLNGDSolverModels; // Default=Exact
     FFrictionModel: TGLNGDFrictionModels; // Default=Exact
     FMinimumFrameRate: Integer; // Default=60
-    FWorldSizeMin: TGCoordinates; // Default=-100, -100, -100
-    FWorldSizeMax: TGCoordinates; // Default=100, 100, 100
+    FWorldSizeMin: TgCoordinates; // Default=-100, -100, -100
+    FWorldSizeMax: TgCoordinates; // Default=100, 100, 100
     FThreadCount: Integer; // Default=1
-    FGravity: TGCoordinates; // Default=(0,-9.81,0)
+    FGravity: TgCoordinates; // Default=(0,-9.81,0)
     FNewtonSurfaceItem: TCollection;
     FNewtonSurfacePair: TOwnedCollection;
     FNewtonJointGroup: TOwnedCollection;
@@ -171,7 +171,7 @@ type
     procedure SetGLLines(const Value: TGLLines);
     function GetBodyCount: Integer;
     function GetConstraintCount: Integer;
-    procedure AddNode(const coords: TGCustomCoordinates); overload;
+    procedure AddNode(const coords: TgCustomCoordinates); overload;
     procedure AddNode(const X, Y, Z: Single); overload;
     procedure AddNode(const Value: TGLVector); overload;
     procedure AddNode(const Value: TAffineVector); overload;
@@ -196,9 +196,9 @@ type
     property DllVersion: Integer read FDllVersion;
     property NewtonBodyCount: Integer read GetBodyCount;
     property NewtonConstraintCount: Integer read GetConstraintCount;
-    property Gravity: TGCoordinates read FGravity write FGravity;
-    property WorldSizeMin: TGCoordinates read FWorldSizeMin write FWorldSizeMin;
-    property WorldSizeMax: TGCoordinates read FWorldSizeMax write FWorldSizeMax;
+    property Gravity: TgCoordinates read FGravity write FGravity;
+    property WorldSizeMin: TgCoordinates read FWorldSizeMin write FWorldSizeMin;
+    property WorldSizeMax: TgCoordinates read FWorldSizeMax write FWorldSizeMax;
     property NewtonSurfaceItem: TCollection read FNewtonSurfaceItem write FNewtonSurfaceItem;
     property NewtonSurfacePair: TOwnedCollection read FNewtonSurfacePair write FNewtonSurfacePair;
     property DebugOption: TGLNGDDebugOption read FNewtonDebugOption write FNewtonDebugOption;
@@ -289,14 +289,14 @@ type
 
   TGLNGDDynamic = class(TGLNGDBehaviour)
   strict private
-    FAABBmin: TGCoordinates;
-    FAABBmax: TGCoordinates;
-    FForce: TGCoordinates;
-    FTorque: TGCoordinates;
-    FCenterOfMass: TGCoordinates;
+    FAABBmin: TgCoordinates;
+    FAABBmax: TgCoordinates;
+    FForce: TgCoordinates;
+    FTorque: TgCoordinates;
+    FCenterOfMass: TgCoordinates;
     FAutoSleep: Boolean; // Default=True
     FLinearDamping: Single; // default=0.1
-    FAngularDamping: TGCoordinates; // Default=0.1
+    FAngularDamping: TgCoordinates; // Default=0.1
     FDensity: Single; // Default=1
     FUseGravity: Boolean; // Default=True
     FNullCollisionVolume: Single; // Default=0
@@ -306,10 +306,10 @@ type
     // Read Only
     FVolume: Single;
     FMass: Single;
-    FAppliedForce: TGCoordinates;
-    FAppliedTorque: TGCoordinates;
-    FAppliedOmega: TGCoordinates;
-    FAppliedVelocity: TGCoordinates;
+    FAppliedForce: TgCoordinates;
+    FAppliedTorque: TgCoordinates;
+    FAppliedOmega: TgCoordinates;
+    FAppliedVelocity: TgCoordinates;
     function StoredDensity: Boolean;
     function StoredLinearDamping: Boolean;
     function StoredNullCollisionVolume: Boolean;
@@ -349,22 +349,22 @@ type
     property Velocity: TGLVector read GetVelocity write SetVelocity;
     property Omega: TGLVector read GetOmega write SetOmega;
   published
-    property Force: TGCoordinates read FForce write FForce;
-    property Torque: TGCoordinates read FTorque write FTorque;
-    property CenterOfMass: TGCoordinates read FCenterOfMass write FCenterOfMass;
+    property Force: TgCoordinates read FForce write FForce;
+    property Torque: TgCoordinates read FTorque write FTorque;
+    property CenterOfMass: TgCoordinates read FCenterOfMass write FCenterOfMass;
     property AutoSleep: Boolean read FAutoSleep write SetAutoSleep default True;
     property LinearDamping: Single read FLinearDamping write SetLinearDamping
       stored StoredLinearDamping;
-    property AngularDamping: TGCoordinates read FAngularDamping write FAngularDamping;
+    property AngularDamping: TgCoordinates read FAngularDamping write FAngularDamping;
     property Density: Single read FDensity write SetDensity stored StoredDensity;
     property UseGravity: Boolean read FUseGravity write FUseGravity default True;
     property NullCollisionVolume: Single read FNullCollisionVolume write FNullCollisionVolume
       stored StoredNullCollisionVolume;
     // Read Only
-    property AppliedOmega: TGCoordinates read FAppliedOmega;
-    property AppliedVelocity: TGCoordinates read FAppliedVelocity;
-    property AppliedForce: TGCoordinates read FAppliedForce;
-    property AppliedTorque: TGCoordinates read FAppliedTorque;
+    property AppliedOmega: TgCoordinates read FAppliedOmega;
+    property AppliedVelocity: TgCoordinates read FAppliedVelocity;
+    property AppliedForce: TgCoordinates read FAppliedForce;
+    property AppliedTorque: TgCoordinates read FAppliedTorque;
     property Volume: Single read FVolume;
     property Mass: Single read FMass;
   end;
@@ -448,33 +448,33 @@ type
   TGLNGDJointPivot = class(TPersistent)
   private
     FManager: TGLNGDManager;
-    FPivotPoint: TGCoordinates;
+    FPivotPoint: TgCoordinates;
     FOuter: TGLNGDJoint;
   public
     constructor Create(AOwner: TComponent; aOuter: TGLNGDJoint); virtual;
     destructor Destroy; override;
   published
-    property PivotPoint: TGCoordinates read FPivotPoint write FPivotPoint;
+    property PivotPoint: TgCoordinates read FPivotPoint write FPivotPoint;
   end;
 
   TGLNGDJointPin = class(TGLNGDJointPivot)
   private
-    FPinDirection: TGCoordinates;
+    FPinDirection: TgCoordinates;
   public
     constructor Create(AOwner: TComponent; aOuter: TGLNGDJoint); override;
     destructor Destroy; override;
   published
-    property PinDirection: TGCoordinates read FPinDirection write FPinDirection;
+    property PinDirection: TgCoordinates read FPinDirection write FPinDirection;
   end;
 
   TGLNGDJointPin2 = class(TGLNGDJointPin)
   private
-    FPinDirection2: TGCoordinates;
+    FPinDirection2: TgCoordinates;
   public
     constructor Create(AOwner: TComponent; aOuter: TGLNGDJoint); override;
     destructor Destroy; override;
   published
-    property PinDirection2: TGCoordinates read FPinDirection2 write FPinDirection2;
+    property PinDirection2: TgCoordinates read FPinDirection2 write FPinDirection2;
   end;
 
   TGLNGDJointBallAndSocket = class(TGLNGDJointPivot)
@@ -565,7 +565,7 @@ type
     // nj_KinematicController
     FNewtonUserJoint: Pointer;
     // nj_UpVector
-    FUPVectorDirection: TGCoordinates;
+    FUPVectorDirection: TgCoordinates;
     FBallAndSocketOptions: TGLNGDJointPivot;
     FHingeOptions: TGLNGDJointPin;
     FSliderOptions: TGLNGDJointPin;
@@ -607,7 +607,7 @@ type
     property ChildObject: TGLBaseSceneObject read FChildObject write SetChildObject;
     property CollisionState: Boolean read FCollisionState write SetCollisionState default False;
     property Stiffness: Single read FStiffness write SetStiffness stored StoredStiffness;
-    property UPVectorDirection: TGCoordinates read FUPVectorDirection write FUPVectorDirection;
+    property UPVectorDirection: TgCoordinates read FUPVectorDirection write FUPVectorDirection;
   end;
 
   // Global function
@@ -731,7 +731,7 @@ begin
   end;
 end;
 
-procedure TGLNGDManager.AddNode(const coords: TGCustomCoordinates);
+procedure TGLNGDManager.AddNode(const coords: TgCustomCoordinates);
 begin
   if Assigned(FGLLines) then
   begin
@@ -769,16 +769,16 @@ begin
   FSolverModel := smExact;
   FFrictionModel := fmExact;
   FMinimumFrameRate := 60;
-  FWorldSizeMin := TGCoordinates.CreateInitialized(self, VectorMake(-100, -100, -100, 0), csPoint);
-  FWorldSizeMax := TGCoordinates.CreateInitialized(self, VectorMake(100, 100, 100, 0), csPoint);
+  FWorldSizeMin := TgCoordinates.CreateInitialized(self, VectorMake(-100, -100, -100, 0), csPoint);
+  FWorldSizeMax := TgCoordinates.CreateInitialized(self, VectorMake(100, 100, 100, 0), csPoint);
 
   // Using Events because we need to call API Function when
-  // theses TGCoordinates change.
+  // theses TgCoordinates change.
   FWorldSizeMin.OnNotifyChange := NotifyWorldSizeChange;
   FWorldSizeMax.OnNotifyChange := NotifyWorldSizeChange;
 
   FThreadCount := 1;
-  FGravity := TGCoordinates3.CreateInitialized(self, VectorMake(0, -9.81, 0, 0), csVector);
+  FGravity := TgCoordinates3.CreateInitialized(self, VectorMake(0, -9.81, 0, 0), csVector);
 
   FNewtonWorld := NewtonCreate(nil, nil);
   FDllVersion := NewtonWorldGetVersion(FNewtonWorld);
@@ -1209,8 +1209,8 @@ begin
         BuildOneJoint(NewtonJoint.Items[I] as TGLNGDJoint);
     if (Sender is TGLNGDJoint) then
       BuildOneJoint((Sender as TGLNGDJoint));
-    if Sender is TGCoordinates then
-      BuildOneJoint(((Sender as TGCoordinates).Owner as TGLNGDJoint));
+    if Sender is TgCoordinates then
+      BuildOneJoint(((Sender as TgCoordinates).Owner as TGLNGDJoint));
     NotifyChange(self);
   end;
 end;
@@ -1866,20 +1866,20 @@ begin
   inherited;
   FAutoSleep := True;
   FLinearDamping := 0.1;
-  FAngularDamping := TGCoordinates.CreateInitialized(self, VectorMake(0.1, 0.1, 0.1, 0), csPoint);
+  FAngularDamping := TgCoordinates.CreateInitialized(self, VectorMake(0.1, 0.1, 0.1, 0), csPoint);
   FAngularDamping.OnNotifyChange := NotifyAngularDampingChange;
   FDensity := 1;
   FVolume := 1;
-  FForce := TGCoordinates.CreateInitialized(self, NullHmgVector, csVector);
-  FTorque := TGCoordinates.CreateInitialized(self, NullHmgVector, csVector);
-  FCenterOfMass := TGCoordinates.CreateInitialized(self, NullHmgVector, csPoint);
+  FForce := TgCoordinates.CreateInitialized(self, NullHmgVector, csVector);
+  FTorque := TgCoordinates.CreateInitialized(self, NullHmgVector, csVector);
+  FCenterOfMass := TgCoordinates.CreateInitialized(self, NullHmgVector, csPoint);
   FCenterOfMass.OnNotifyChange := NotifyCenterOfMassChange;
-  FAABBmin := TGCoordinates.CreateInitialized(self, NullHmgVector, csPoint);
-  FAABBmax := TGCoordinates.CreateInitialized(self, NullHmgVector, csPoint);
-  FAppliedOmega := TGCoordinates.CreateInitialized(self, NullHmgVector, csVector);
-  FAppliedVelocity := TGCoordinates.CreateInitialized(self, NullHmgVector, csVector);
-  FAppliedForce := TGCoordinates.CreateInitialized(self, NullHmgVector, csVector);
-  FAppliedTorque := TGCoordinates.CreateInitialized(self, NullHmgVector, csVector);
+  FAABBmin := TgCoordinates.CreateInitialized(self, NullHmgVector, csPoint);
+  FAABBmax := TgCoordinates.CreateInitialized(self, NullHmgVector, csPoint);
+  FAppliedOmega := TgCoordinates.CreateInitialized(self, NullHmgVector, csVector);
+  FAppliedVelocity := TgCoordinates.CreateInitialized(self, NullHmgVector, csVector);
+  FAppliedForce := TgCoordinates.CreateInitialized(self, NullHmgVector, csVector);
+  FAppliedTorque := TgCoordinates.CreateInitialized(self, NullHmgVector, csVector);
   FUseGravity := True;
   FNullCollisionVolume := 0;
 
@@ -1938,7 +1938,7 @@ end;
 
 procedure TGLNGDDynamic.Render;
 
-  procedure DrawAABB(min, max: TGCoordinates3);
+  procedure DrawAABB(min, max: TgCoordinates3);
   begin
     (*
       //    H________G
@@ -2485,7 +2485,7 @@ begin
   FCustomSliderOptions := TGLNGDJointSlider.Create(FManager, self);
   FKinematicOptions := TGLNGDJointKinematicController.Create;
 
-  FUPVectorDirection := TGCoordinates.CreateInitialized(self, YHmgVector, csVector);
+  FUPVectorDirection := TgCoordinates.CreateInitialized(self, YHmgVector, csVector);
   FUPVectorDirection.OnNotifyChange := FManager.RebuildAllJoint;
 end;
 
@@ -2743,7 +2743,7 @@ constructor TGLNGDJointPivot.Create(AOwner: TComponent; aOuter: TGLNGDJoint);
 begin
   FManager := AOwner as TGLNGDManager;
   FOuter := aOuter;
-  FPivotPoint := TGCoordinates.CreateInitialized(aOuter, NullHMGPoint, csPoint);
+  FPivotPoint := TgCoordinates.CreateInitialized(aOuter, NullHMGPoint, csPoint);
   FPivotPoint.OnNotifyChange := FManager.RebuildAllJoint;
 end;
 
@@ -2759,7 +2759,7 @@ end;
 constructor TGLNGDJointPin.Create(AOwner: TComponent; aOuter: TGLNGDJoint);
 begin
   inherited;
-  FPinDirection := TGCoordinates.CreateInitialized(aOuter, NullHmgVector, csVector);
+  FPinDirection := TgCoordinates.CreateInitialized(aOuter, NullHmgVector, csVector);
   FPinDirection.OnNotifyChange := FManager.RebuildAllJoint;
 end;
 
@@ -2776,7 +2776,7 @@ end;
 constructor TGLNGDJointPin2.Create(AOwner: TComponent; aOuter: TGLNGDJoint);
 begin
   inherited;
-  FPinDirection2 := TGCoordinates.CreateInitialized(aOuter, NullHmgVector, csVector);
+  FPinDirection2 := TgCoordinates.CreateInitialized(aOuter, NullHmgVector, csVector);
   FPinDirection2.OnNotifyChange := FManager.RebuildAllJoint;
 end;
 

Source/GLS.Navigator.pas

@@ -57,7 +57,7 @@ type
   private
     FObject: TGLBaseSceneObject;
     FVirtualRight: TGLVector;
-    FVirtualUp: TGCoordinates;
+    FVirtualUp: TgCoordinates;
     FUseVirtualUp: boolean;
     FAutoUpdateObject: boolean;
     FMaxAngle: single;
@@ -72,7 +72,7 @@ type
       Operation: TOperation); override;
     procedure SetObject(NewObject: TGLBaseSceneObject); virtual;
     procedure SetUseVirtualUp(UseIt: boolean);
-    procedure SetVirtualUp(Up: TGCoordinates);
+    procedure SetVirtualUp(Up: TgCoordinates);
     function CalcRight: TGLVector;
   public
     constructor Create(AOwner: TComponent); override;
@@ -94,7 +94,7 @@ type
     property InvertHorizontalSteeringWhenUpsideDown: boolean
       read FInvertHorizontalSteeringWhenUpsideDown
       write FInvertHorizontalSteeringWhenUpsideDown default False;
-    property VirtualUp: TGCoordinates read FVirtualUp write SetVirtualUp;
+    property VirtualUp: TgCoordinates read FVirtualUp write SetVirtualUp;
     property MovingObject: TGLBaseSceneObject read FObject write SetObject;
     property UseVirtualUp: boolean read FUseVirtualUp write SetUseVirtualUp
       default False;
@@ -191,7 +191,7 @@ implementation
 constructor TGLNavigator.Create(AOwner: TComponent);
 begin
   inherited;
-  FVirtualUp := TGCoordinates.CreateInitialized(Self, ZHmgVector, csPoint);
+  FVirtualUp := TgCoordinates.CreateInitialized(Self, ZHmgVector, csPoint);
   FCurrentVAngle := 0;
   FCurrentHAngle := 0;
 end;
@@ -411,7 +411,7 @@ begin
     FVirtualRight := CalcRight;
 end;
 
-procedure TGLNavigator.SetVirtualUp(Up: TGCoordinates);
+procedure TGLNavigator.SetVirtualUp(Up: TgCoordinates);
 begin
   FVirtualUp.Assign(Up);
   if csdesigning in componentstate then

Source/GLS.Nodes.pas

@@ -72,8 +72,8 @@ type
     function Last: TGLNode;
     procedure NotifyChange; virtual;
     procedure EndUpdate; override;
-    // AddNode (TGCustomCoordinates)
-    procedure AddNode(const Coords: TGCustomCoordinates); overload;
+    // AddNode (TgCustomCoordinates)
+    procedure AddNode(const Coords: TgCustomCoordinates); overload;
     procedure AddNode(const X, Y, Z: TGLfloat); overload;
     procedure AddNode(const Value: TGLVector); overload;
     procedure AddNode(const Value: TAffineVector); overload;
@@ -267,7 +267,7 @@ begin
     NotifyChange;
 end;
 
-procedure TGLNodes.AddNode(const Coords: TGCustomCoordinates);
+procedure TGLNodes.AddNode(const Coords: TgCustomCoordinates);
 begin
   Add.AsVector := Coords.AsVector;
 end;

Source/GLS.ODEManager.pas

@@ -18,7 +18,7 @@ uses
   GLScene.VectorTypes,
   GLScene.VectorLists,
   GLScene.VectorGeometry,
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
   GLScene.PersistentClasses,
   GLScene.Manager,
   GLScene.XCollection,
@@ -59,12 +59,12 @@ type
     FWorld: PdxWorld;
     FSpace: PdxSpace;
     FContactGroup: TdJointGroupID;
-    FGravity: TGCoordinates;
+    FGravity: TgCoordinates;
     FOnCollision: TGLODECollisionEvent;
     FOnCustomCollision: TGLODECustomCollisionEvent;
     FNumContactJoints,
 	FMaxContacts: Integer;
-    FODEBehaviours: TGPersistentObjectList;
+    FODEBehaviours: TgPersistentObjectList;
     FRFContactList: TList;
     FIterations: Integer;
     FSolver: TGLODESolverMethod;
@@ -82,7 +82,7 @@ type
     procedure Collision(g1, g2: PdxGeom);
     procedure GravityChange(Sender: TObject);
     procedure SetMaxContacts(const Value: Integer);
-    procedure SetGravity(Value: TGCoordinates);
+    procedure SetGravity(Value: TgCoordinates);
     procedure SetIterations(const val: Integer);
     function GetODEBehaviour(index: Integer): TGLODEBehaviour;
     procedure RegisterODEBehaviour(ODEBehaviour: TGLODEBehaviour);
@@ -109,7 +109,7 @@ type
     property ContactGroup: TdJointGroupID read FContactGroup;
     property NumContactJoints: Integer read FNumContactJoints;
   published
-    property Gravity: TGCoordinates read FGravity write SetGravity;
+    property Gravity: TgCoordinates read FGravity write SetGravity;
     property OnCollision: TGLODECollisionEvent read FOnCollision write FOnCollision;
     property OnCustomCollision: TGLODECustomCollisionEvent read FOnCustomCollision write FOnCustomCollision;
     property Solver: TGLODESolverMethod read FSolver write FSolver;
@@ -293,7 +293,7 @@ type
 	FGeomElement: PdxGeom;
     FPosition, 
 	FDirection, 
-	FUp: TGCoordinates;
+	FUp: TgCoordinates;
     FLocalMatrix: TGLMatrix;
     FRealignODE,
 	FInitialized,
@@ -316,9 +316,9 @@ type
     procedure SetDensity(const Value: TdReal);
     procedure SetMatrix(const Value: TGLMatrix);
     function GetMatrix: TGLMatrix;
-    procedure SetPosition(const Value: TGCoordinates);
-    procedure SetDirection(const Value: TGCoordinates);
-    procedure SetUp(const Value: TGCoordinates);
+    procedure SetPosition(const Value: TgCoordinates);
+    procedure SetDirection(const Value: TgCoordinates);
+    procedure SetUp(const Value: TgCoordinates);
   public
     constructor Create(AOwner: TXCollection); override;
     destructor Destroy; override;
@@ -331,9 +331,9 @@ type
     property Initialized: Boolean read FInitialized;
   published
     property Density: TdReal read FDensity write SetDensity;
-    property Position: TGCoordinates read FPosition write SetPosition;
-    property Direction: TGCoordinates read FDirection write SetDirection;
-    property Up: TGCoordinates read FUp write SetUp;
+    property Position: TgCoordinates read FPosition write SetPosition;
+    property Direction: TgCoordinates read FDirection write SetDirection;
+    property Up: TgCoordinates read FUp write SetUp;
   end;
 
   // ODE box implementation
@@ -445,7 +445,7 @@ type
   private
     FTriMeshData: PdxTriMeshData;
     FVertices: TGAffineVectorList;
-    FIndices: TGIntegerList;
+    FIndices: TgIntegerList;
   protected
     procedure Initialize; override;
     procedure Finalize; override;
@@ -453,7 +453,7 @@ type
     procedure WriteToFiler(writer: TWriter); override;
     procedure ReadFromFiler(reader: TReader); override;
     procedure SetVertices(const Value: TGAffineVectorList);
-    procedure SetIndices(const Value: TGIntegerList);
+    procedure SetIndices(const Value: TgIntegerList);
   public
     constructor Create(AOwner: TXCollection); override;
     destructor Destroy; override;
@@ -462,7 +462,7 @@ type
     class function ItemCategory: String; override;
     procedure RefreshTriMeshData;
     property Vertices: TGAffineVectorList read FVertices write SetVertices;
-    property Indices: TGIntegerList read FIndices write SetIndices;
+    property Indices: TgIntegerList read FIndices write SetIndices;
   end;
 
   // ODE plane implementation
@@ -634,13 +634,13 @@ type
   TGLODEJointHinge = class(TGLODEJointBase)
   private
     FAnchor, 
-	FAxis: TGCoordinates;
+	FAxis: TgCoordinates;
     FAxisParams: TGLODEJointParams;
   protected
     procedure WriteToFiler(writer: TWriter); override;
     procedure ReadFromFiler(reader: TReader); override;
-    procedure SetAnchor(const Value: TGCoordinates);
-    procedure SetAxis(const Value: TGCoordinates);
+    procedure SetAnchor(const Value: TgCoordinates);
+    procedure SetAxis(const Value: TgCoordinates);
     procedure AnchorChange(Sender: TObject);
     procedure AxisChange(Sender: TObject);
     procedure SetAxisParams(const Value: TGLODEJointParams);
@@ -654,19 +654,19 @@ type
     class function FriendlyName: String; override;
     class function FriendlyDescription: String; override;
   published
-    property Anchor: TGCoordinates read FAnchor write SetAnchor;
-    property Axis: TGCoordinates read FAxis write SetAxis;
+    property Anchor: TgCoordinates read FAnchor write SetAnchor;
+    property Axis: TgCoordinates read FAxis write SetAxis;
     property AxisParams: TGLODEJointParams read FAxisParams write SetAxisParams;
   end;
 
   // ODE ball joint implementation
   TGLODEJointBall = class(TGLODEJointBase)
   private
-    FAnchor: TGCoordinates;
+    FAnchor: TgCoordinates;
   protected
     procedure WriteToFiler(writer: TWriter); override;
     procedure ReadFromFiler(reader: TReader); override;
-    procedure SetAnchor(const Value: TGCoordinates);
+    procedure SetAnchor(const Value: TgCoordinates);
     procedure AnchorChange(Sender: TObject);
   public
     constructor Create(AOwner: TXCollection); override;
@@ -676,18 +676,18 @@ type
     class function FriendlyName: String; override;
     class function FriendlyDescription: String; override;
   published
-    property Anchor: TGCoordinates read FAnchor write SetAnchor;
+    property Anchor: TgCoordinates read FAnchor write SetAnchor;
   end;
 
   // ODE slider joint implementation
   TGLODEJointSlider = class(TGLODEJointBase)
   private
-    FAxis: TGCoordinates;
+    FAxis: TgCoordinates;
     FAxisParams: TGLODEJointParams;
   protected
     procedure WriteToFiler(writer: TWriter); override;
     procedure ReadFromFiler(reader: TReader); override;
-    procedure SetAxis(const Value: TGCoordinates);
+    procedure SetAxis(const Value: TgCoordinates);
     procedure AxisChange(Sender: TObject);
     procedure SetAxisParams(const Value: TGLODEJointParams);
     function SetAxisParam(Param: Integer; const Value: TdReal): Boolean;
@@ -700,7 +700,7 @@ type
     class function FriendlyName: String; override;
     class function FriendlyDescription: String; override;
   published
-    property Axis: TGCoordinates read FAxis write SetAxis;
+    property Axis: TgCoordinates read FAxis write SetAxis;
     property AxisParams: TGLODEJointParams read FAxisParams write SetAxisParams;
   end;
 
@@ -720,15 +720,15 @@ type
   private
     FAnchor,
 	FAxis1,
-	FAxis2: TGCoordinates;
+	FAxis2: TgCoordinates;
     FAxis1Params,
 	FAxis2Params: TGLODEJointParams;
   protected
     procedure WriteToFiler(writer: TWriter); override;
     procedure ReadFromFiler(reader: TReader); override;
-    procedure SetAnchor(const Value: TGCoordinates);
-    procedure SetAxis1(const Value: TGCoordinates);
-    procedure SetAxis2(const Value: TGCoordinates);
+    procedure SetAnchor(const Value: TgCoordinates);
+    procedure SetAxis1(const Value: TgCoordinates);
+    procedure SetAxis2(const Value: TgCoordinates);
     procedure AnchorChange(Sender: TObject);
     procedure Axis1Change(Sender: TObject);
     procedure Axis2Change(Sender: TObject);
@@ -746,9 +746,9 @@ type
     class function FriendlyName: String; override;
     class function FriendlyDescription: String; override;
   published
-    property Anchor: TGCoordinates read FAnchor write SetAnchor;
-    property Axis1: TGCoordinates read FAxis1 write SetAxis1;
-    property Axis2: TGCoordinates read FAxis2 write SetAxis2;
+    property Anchor: TgCoordinates read FAnchor write SetAnchor;
+    property Axis1: TgCoordinates read FAxis1 write SetAxis1;
+    property Axis2: TgCoordinates read FAxis2 write SetAxis2;
     property Axis1Params: TGLODEJointParams read FAxis1Params write SetAxis1Params;
     property Axis2Params: TGLODEJointParams read FAxis2Params write SetAxis2Params;
   end;
@@ -758,15 +758,15 @@ type
   private
     FAnchor,
 	FAxis1,
-	FAxis2: TGCoordinates;
+	FAxis2: TgCoordinates;
     FAxis1Params,
 	FAxis2Params: TGLODEJointParams;
   protected
     procedure WriteToFiler(writer: TWriter); override;
     procedure ReadFromFiler(reader: TReader); override;
-    procedure SetAnchor(const Value: TGCoordinates);
-    procedure SetAxis1(const Value: TGCoordinates);
-    procedure SetAxis2(const Value: TGCoordinates);
+    procedure SetAnchor(const Value: TgCoordinates);
+    procedure SetAxis1(const Value: TgCoordinates);
+    procedure SetAxis2(const Value: TgCoordinates);
     procedure AnchorChange(Sender: TObject);
     procedure Axis1Change(Sender: TObject);
     procedure Axis2Change(Sender: TObject);
@@ -784,9 +784,9 @@ type
     class function FriendlyName: String; override;
     class function FriendlyDescription: String; override;
   published
-    property Anchor: TGCoordinates read FAnchor write SetAnchor;
-    property Axis1: TGCoordinates read FAxis1 write SetAxis1;
-    property Axis2: TGCoordinates read FAxis2 write SetAxis2;
+    property Anchor: TgCoordinates read FAnchor write SetAnchor;
+    property Axis1: TgCoordinates read FAxis1 write SetAxis1;
+    property Axis2: TgCoordinates read FAxis2 write SetAxis2;
     property Axis1Params: TGLODEJointParams read FAxis1Params write SetAxis1Params;
     property Axis2Params: TGLODEJointParams read FAxis2Params write SetAxis2Params;
   end;
@@ -1294,10 +1294,10 @@ begin
 
   inherited;
 
-  FODEBehaviours:= TGPersistentObjectList.Create;
+  FODEBehaviours:= TgPersistentObjectList.Create;
   FRFContactList:= TList.Create;
 
-  FGravity:= TGCoordinates.CreateInitialized(Self, NullHmgPoint, csVector);
+  FGravity:= TgCoordinates.CreateInitialized(Self, NullHmgPoint, csVector);
   FGravity.OnNotifyChange:= GravityChange;
 
   FSolver:= osmDefault;
@@ -1364,7 +1364,7 @@ begin
   GravityChange(Self);
 end;
 
-procedure TGLODEManager.SetGravity(Value: TGCoordinates);
+procedure TGLODEManager.SetGravity(Value: TgCoordinates);
 begin
   FGravity.SetPoint(Value.DirectX, Value.DirectY, Value.DirectZ);
 end;
@@ -2484,11 +2484,11 @@ end;
 constructor TGLODEElementBase.Create(AOwner: TXCollection);
 begin
   inherited;
-  FPosition := TGCoordinates.CreateInitialized(Self, NullHmgPoint, csPoint);
+  FPosition := TgCoordinates.CreateInitialized(Self, NullHmgPoint, csPoint);
   FPosition.OnNotifyChange := NotifyChange;
-  FDirection := TGCoordinates.CreateInitialized(Self, ZHmgVector, csVector);
+  FDirection := TgCoordinates.CreateInitialized(Self, ZHmgVector, csVector);
   FDirection.OnNotifyChange := CoordinateChanged;
-  FUp := TGCoordinates.CreateInitialized(Self, YHmgVector, csVector);
+  FUp := TgCoordinates.CreateInitialized(Self, YHmgVector, csVector);
   FUp.OnNotifyChange := CoordinateChanged;
   FDensity := 1;
   FInitialized := False;
@@ -2775,17 +2775,17 @@ begin
     TGLODEElements(Owner).NotifyChange(Self);
 end;
 
-procedure TGLODEElementBase.SetPosition(const Value: TGCoordinates);
+procedure TGLODEElementBase.SetPosition(const Value: TgCoordinates);
 begin
   FPosition.Assign(Value);
 end;
 
-procedure TGLODEElementBase.SetDirection(const Value: TGCoordinates);
+procedure TGLODEElementBase.SetDirection(const Value: TgCoordinates);
 begin
   FDirection.Assign(Value);
 end;
 
-procedure TGLODEElementBase.SetUp(const Value: TGCoordinates);
+procedure TGLODEElementBase.SetUp(const Value: TgCoordinates);
 begin
   FUp.Assign(Value);
 end;
@@ -3440,7 +3440,7 @@ constructor TGLODEElementTriMesh.Create(AOwner: TXCollection);
 begin
   inherited;
   FVertices := TGAffineVectorList.Create;
-  FIndices := TGIntegerList.Create;
+  FIndices := TgIntegerList.Create;
 end;
 
 destructor TGLODEElementTriMesh.Destroy;
@@ -3530,7 +3530,7 @@ begin
   RefreshTriMeshData;
 end;
 
-procedure TGLODEElementTriMesh.SetIndices(const Value: TGIntegerList);
+procedure TGLODEElementTriMesh.SetIndices(const Value: TgIntegerList);
 begin
   FIndices.Assign(Value);
   RefreshTriMeshData;
@@ -4300,9 +4300,9 @@ end;
 constructor TGLODEJointHinge.Create(AOwner: TXCollection);
 begin
   inherited;
-  FAnchor := TGCoordinates.CreateInitialized(Self, NullHmgPoint, csPoint);
+  FAnchor := TgCoordinates.CreateInitialized(Self, NullHmgPoint, csPoint);
   FAnchor.OnNotifyChange := AnchorChange;
-  FAxis := TGCoordinates.CreateInitialized(Self, ZHmgVector, csVector);
+  FAxis := TgCoordinates.CreateInitialized(Self, ZHmgVector, csVector);
   FAxis.OnNotifyChange := AxisChange;
   FAxisParams := TGLODEJointParams.Create(Self);
   FAxisParams.SetCallback := SetAxisParam;
@@ -4385,12 +4385,12 @@ begin
   Result := 'ODE Hinge joint';
 end;
 
-procedure TGLODEJointHinge.SetAnchor(const Value: TGCoordinates);
+procedure TGLODEJointHinge.SetAnchor(const Value: TgCoordinates);
 begin
   FAnchor.Assign(Value);
 end;
 
-procedure TGLODEJointHinge.SetAxis(const Value: TGCoordinates);
+procedure TGLODEJointHinge.SetAxis(const Value: TgCoordinates);
 begin
   FAxis.Assign(Value);
 end;
@@ -4430,7 +4430,7 @@ end;
 constructor TGLODEJointBall.Create(AOwner: TXCollection);
 begin
   inherited;
-  FAnchor := TGCoordinates.CreateInitialized(Self, NullHmgPoint, csPoint);
+  FAnchor := TgCoordinates.CreateInitialized(Self, NullHmgPoint, csPoint);
   FAnchor.OnNotifyChange := AnchorChange;
 end;
 
@@ -4489,7 +4489,7 @@ begin
   Result := 'ODE Ball joint implementation';
 end;
 
-procedure TGLODEJointBall.SetAnchor(const Value: TGCoordinates);
+procedure TGLODEJointBall.SetAnchor(const Value: TgCoordinates);
 begin
   FAnchor.Assign(Value);
 end;
@@ -4502,7 +4502,7 @@ end;
 constructor TGLODEJointSlider.Create(AOwner: TXCollection);
 begin
   inherited;
-  FAxis := TGCoordinates.CreateInitialized(Self, ZHmgVector, csVector);
+  FAxis := TgCoordinates.CreateInitialized(Self, ZHmgVector, csVector);
   FAxis.OnNotifyChange := AxisChange;
   FAxisParams := TGLODEJointParams.Create(Self);
   FAxisParams.SetCallback := SetAxisParam;
@@ -4574,7 +4574,7 @@ begin
   Result := 'ODE Slider joint implementation';
 end;
 
-procedure TGLODEJointSlider.SetAxis(const Value: TGCoordinates);
+procedure TGLODEJointSlider.SetAxis(const Value: TgCoordinates);
 begin
   FAxis.Assign(Value);
 end;
@@ -4656,11 +4656,11 @@ end;
 constructor TGLODEJointHinge2.Create(AOwner: TXCollection);
 begin
   inherited;
-  FAnchor := TGCoordinates.CreateInitialized(Self, NullHmgPoint, csPoint);
+  FAnchor := TgCoordinates.CreateInitialized(Self, NullHmgPoint, csPoint);
   FAnchor.OnNotifyChange := AnchorChange;
-  FAxis1 := TGCoordinates.CreateInitialized(Self, ZHmgVector, csVector);
+  FAxis1 := TgCoordinates.CreateInitialized(Self, ZHmgVector, csVector);
   FAxis1.OnNotifyChange := Axis1Change;
-  FAxis2 := TGCoordinates.CreateInitialized(Self, ZHmgVector, csVector);
+  FAxis2 := TgCoordinates.CreateInitialized(Self, ZHmgVector, csVector);
   FAxis2.OnNotifyChange := Axis2Change;
   FAxis1Params := TGLODEJointParams.Create(Self);
   FAxis1Params.SetCallback := SetAxis1Param;
@@ -4765,17 +4765,17 @@ begin
   Result := 'ODE Double Axis Hinge joint implementation';
 end;
 
-procedure TGLODEJointHinge2.SetAnchor(const Value: TGCoordinates);
+procedure TGLODEJointHinge2.SetAnchor(const Value: TgCoordinates);
 begin
   FAnchor.Assign(Value);
 end;
 
-procedure TGLODEJointHinge2.SetAxis1(const Value: TGCoordinates);
+procedure TGLODEJointHinge2.SetAxis1(const Value: TgCoordinates);
 begin
   FAxis1.Assign(Value);
 end;
 
-procedure TGLODEJointHinge2.SetAxis2(const Value: TGCoordinates);
+procedure TGLODEJointHinge2.SetAxis2(const Value: TgCoordinates);
 begin
   FAxis2.Assign(Value);
 end;
@@ -4841,11 +4841,11 @@ end;
 constructor TGLODEJointUniversal.Create(AOwner: TXCollection);
 begin
   inherited;
-  FAnchor := TGCoordinates.CreateInitialized(Self, NullHmgPoint, csPoint);
+  FAnchor := TgCoordinates.CreateInitialized(Self, NullHmgPoint, csPoint);
   FAnchor.OnNotifyChange := AnchorChange;
-  FAxis1 := TGCoordinates.CreateInitialized(Self, ZHmgVector, csVector);
+  FAxis1 := TgCoordinates.CreateInitialized(Self, ZHmgVector, csVector);
   FAxis1.OnNotifyChange := Axis1Change;
-  FAxis2 := TGCoordinates.CreateInitialized(Self, XHmgVector, csVector);
+  FAxis2 := TgCoordinates.CreateInitialized(Self, XHmgVector, csVector);
   FAxis2.OnNotifyChange := Axis2Change;
   FAxis1Params := TGLODEJointParams.Create(Self);
   FAxis1Params.SetCallback := SetAxis1Param;
@@ -4951,17 +4951,17 @@ begin
   Result := 'ODE Universal joint implementation';
 end;
 
-procedure TGLODEJointUniversal.SetAnchor(const Value: TGCoordinates);
+procedure TGLODEJointUniversal.SetAnchor(const Value: TgCoordinates);
 begin
   FAnchor.Assign(Value);
 end;
 
-procedure TGLODEJointUniversal.SetAxis1(const Value: TGCoordinates);
+procedure TGLODEJointUniversal.SetAxis1(const Value: TgCoordinates);
 begin
   FAxis1.Assign(Value);
 end;
 
-procedure TGLODEJointUniversal.SetAxis2(const Value: TGCoordinates);
+procedure TGLODEJointUniversal.SetAxis2(const Value: TgCoordinates);
 begin
   FAxis2.Assign(Value);
 end;

Source/GLS.ODEUtils.pas

@@ -490,7 +490,7 @@ var
   FaceExtractor: TGLFaceExtractor;
   VertexCount: integer;
   Vertex: TAffineVector;
-  OffsetList: TGIntegerList;
+  OffsetList: TgIntegerList;
   Face: TGLFace;
   iMO: integer;
   TriMeshData: PdxTriMeshData;
@@ -499,7 +499,7 @@ begin
   FaceExtractor := TGLFaceExtractor.Create(GLBaseMesh);
 
   try
-    OffsetList := TGIntegerList.Create;
+    OffsetList := TgIntegerList.Create;
 
     FaceExtractor.ProcessMesh;
 

Source/GLS.Objects.pas

@@ -38,7 +38,7 @@ uses
   GLScene.Coordinates,
   GLScene.Spline,
   GLScene.VectorLists,
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
   GLS.Scene,
   GLS.Context,
   GLS.Silhouette,
@@ -238,13 +238,13 @@ type
     FEnabled: Boolean;
     FMinSize, FMaxSize: Single;
     FFadeTresholdSize: Single;
-    FDistanceAttenuation: TGCoordinates;
+    FDistanceAttenuation: TgCoordinates;
   protected
     procedure SetEnabled(const val: Boolean);
     procedure SetMinSize(const val: Single);
     procedure SetMaxSize(const val: Single);
     procedure SetFadeTresholdSize(const val: Single);
-    procedure SetDistanceAttenuation(const val: TGCoordinates);
+    procedure SetDistanceAttenuation(const val: TgCoordinates);
     procedure DefineProperties(Filer: TFiler); override;
     procedure ReadData(Stream: TStream);
     procedure WriteData(Stream: TStream);
@@ -261,7 +261,7 @@ type
     property FadeTresholdSize: Single read FFadeTresholdSize
       write SetFadeTresholdSize stored False;
     // Components XYZ are for constant, linear and quadratic attenuation.
-    property DistanceAttenuation: TGCoordinates read FDistanceAttenuation
+    property DistanceAttenuation: TgCoordinates read FDistanceAttenuation
       write SetDistanceAttenuation;
   end;
 
@@ -412,7 +412,7 @@ type
     destructor Destroy; override;
     procedure Assign(Source: TPersistent); override;
     function AxisAlignedDimensionsUnscaled: TGLVector; override;
-    procedure AddNode(const coords: TGCoordinates); overload;
+    procedure AddNode(const coords: TgCoordinates); overload;
     procedure AddNode(const X, Y, Z: TGLFloat); overload;
     procedure AddNode(const Value: TGLVector); overload;
     procedure AddNode(const Value: TAffineVector); overload;
@@ -616,7 +616,7 @@ type
     destructor Destroy; override;
     procedure Assign(Source: TPersistent); override;
     procedure NotifyChange(Sender: TObject); override;
-    procedure AddNode(const coords: TGCoordinates); overload;
+    procedure AddNode(const coords: TgCoordinates); overload;
     procedure AddNode(const X, Y, Z: TGLFloat); overload;
     procedure AddNode(const Value: TGLVector); overload;
     procedure AddNode(const Value: TAffineVector); overload;
@@ -1447,7 +1447,7 @@ begin
   FMinSize := 0;
   FMaxSize := 128;
   FFadeTresholdSize := 1;
-  FDistanceAttenuation := TGCoordinates.CreateInitialized(Self, XHmgVector,
+  FDistanceAttenuation := TgCoordinates.CreateInitialized(Self, XHmgVector,
     csVector);
 end;
 
@@ -1567,7 +1567,7 @@ begin
   end;
 end;
 
-procedure TGLPointParameters.SetDistanceAttenuation(const val: TGCoordinates);
+procedure TGLPointParameters.SetDistanceAttenuation(const val: TgCoordinates);
 begin
   FDistanceAttenuation.Assign(val);
 end;
@@ -2040,7 +2040,7 @@ begin
   // DivideVector(Result, Scale.AsVector);     //DanB ?
 end;
 
-procedure TGLNodedLines.AddNode(const coords: TGCoordinates);
+procedure TGLNodedLines.AddNode(const coords: TgCoordinates);
 var
   n: TGLNode;
 begin
@@ -3117,7 +3117,7 @@ begin
   end;
 end;
 
-procedure TGLPolygonBase.AddNode(const coords: TGCoordinates);
+procedure TGLPolygonBase.AddNode(const coords: TgCoordinates);
 var
   n: TGLNode;
 begin

Source/GLS.Octree.pas

@@ -1477,7 +1477,7 @@ var
 var
   I, K: Integer;
   P: PGLOctreeNode;
-  TriangleIndices: TGIntegerList;
+  TriangleIndices: TgIntegerList;
 
 begin
   // Calc AABBs
@@ -1488,7 +1488,7 @@ begin
     HandleNode(RootNode);
 
   Result := TGAffineVectorList.Create;
-  TriangleIndices := TGIntegerList.Create;
+  TriangleIndices := TgIntegerList.Create;
   try
     // fill the triangles from all nodes in the resultarray to AL
     for I := 0 to High(ResultArray) do
@@ -1542,7 +1542,7 @@ var
 var
   I, K: Integer;
   P: PGLOctreeNode;
-  TriangleIndices: TGIntegerList;
+  TriangleIndices: TgIntegerList;
 begin
   // Calc AABBs
   AABB1 := ObjAABB;
@@ -1555,7 +1555,7 @@ begin
     HandleNode(RootNode);
 
   Result := TGAffineVectorList.Create;
-  TriangleIndices := TGIntegerList.Create;
+  TriangleIndices := TgIntegerList.Create;
   try
     // fill the triangles from all nodes in the resultarray to AL
     for I := 0 to High(ResultArray) do

Source/GLS.ParametricSurfaces.pas

@@ -143,15 +143,15 @@ type
   private
     FCountU, FCountV: Integer;
     FControlPointIndices,
-    FTexCoordIndices: TGIntegerList;
+    FTexCoordIndices: TgIntegerList;
     FResolution: Integer;
     FMinU, FMaxU,
     FMinV, FMaxV: Single;
     FTempControlPoints,
     FTempTexCoords: TGAffineVectorList;
   protected
-    procedure SetControlPointIndices(const Value: TGIntegerList);
-    procedure SetTexCoordIndices(const Value: TGIntegerList);
+    procedure SetControlPointIndices(const Value: TgIntegerList);
+    procedure SetTexCoordIndices(const Value: TgIntegerList);
   public
     constructor Create; override;
     destructor Destroy; override;
@@ -166,8 +166,8 @@ type
     property MaxU: Single read FMaxU write FMaxU;
     property MinV: Single read FMinV write FMinV;
     property MaxV: Single read FMaxV write FMaxV;
-    property ControlPointIndices: TGIntegerList read FControlPointIndices write SetControlPointIndices;
-    property TexCoordIndices: TGIntegerList read FTexCoordIndices write SetTexCoordIndices;
+    property ControlPointIndices: TgIntegerList read FControlPointIndices write SetControlPointIndices;
+    property TexCoordIndices: TgIntegerList read FTexCoordIndices write SetTexCoordIndices;
   end;
 
 // ----------------------------------------------------------------------
@@ -437,8 +437,8 @@ end;
 constructor TFGBezierSurface.Create;
 begin
   inherited;
-  FControlPointIndices := TGIntegerList.Create;
-  FTexCoordIndices := TGIntegerList.Create;
+  FControlPointIndices := TgIntegerList.Create;
+  FTexCoordIndices := TgIntegerList.Create;
   FTempControlPoints := TGAffineVectorList.Create;
   FTempTexCoords := TGAffineVectorList.Create;
 
@@ -536,12 +536,12 @@ begin
   mrci.GLStates.PopAttrib;
 end;
 
-procedure TFGBezierSurface.SetControlPointIndices(const Value: TGIntegerList);
+procedure TFGBezierSurface.SetControlPointIndices(const Value: TgIntegerList);
 begin
   FControlPointIndices.Assign(Value);
 end;
 
-procedure TFGBezierSurface.SetTexCoordIndices(const Value: TGIntegerList);
+procedure TFGBezierSurface.SetTexCoordIndices(const Value: TgIntegerList);
 begin
   FTexCoordIndices.Assign(Value);
 end;

Source/GLS.ParticleFX.pas

@@ -23,7 +23,7 @@ uses
   GLScene.OpenGLTokens,
   GLS.Scene,
   GLScene.Utils,
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
   GLS.State,
   GLScene.VectorTypes,
   GLScene.PersistentClasses,
@@ -106,7 +106,7 @@ type
   TGLParticleList = class(TGPersistentObject)
   private
     FOwner: TGLParticleFXManager; // NOT persistent
-    FItemList: TGPersistentObjectList;
+    FItemList: TgPersistentObjectList;
     FDirectList: PGLParticleArray; // NOT persistent
   protected
     function GetItems(index: Integer): TGLParticle;
@@ -351,9 +351,9 @@ type
   // Simple Particles Source.
   TGLSourcePFXEffect = class(TGLParticleFXEffect)
   private
-    FInitialVelocity: TGCoordinates;
-    FInitialPosition: TGCoordinates;
-    FPositionDispersionRange: TGCoordinates;
+    FInitialVelocity: TgCoordinates;
+    FInitialPosition: TgCoordinates;
+    FPositionDispersionRange: TgCoordinates;
     FVelocityDispersion: Single;
     FPositionDispersion: Single;
     FParticleInterval: Single;
@@ -365,9 +365,9 @@ type
     FTimeRemainder: Double;
     FRotationDispersion: Single;
   protected
-    procedure SetInitialVelocity(const val: TGCoordinates);
-    procedure SetInitialPosition(const val: TGCoordinates);
-    procedure SetPositionDispersionRange(const val: TGCoordinates);
+    procedure SetInitialVelocity(const val: TgCoordinates);
+    procedure SetInitialPosition(const val: TgCoordinates);
+    procedure SetPositionDispersionRange(const val: TgCoordinates);
     procedure SetParticleInterval(const val: Single);
     procedure WriteToFiler(writer: TWriter); override;
     procedure ReadFromFiler(reader: TReader); override;
@@ -384,11 +384,11 @@ type
       minInitialSpeed, maxInitialSpeed: Single;
       nbParticles: Integer);
   published
-    property InitialVelocity: TGCoordinates read FInitialVelocity write SetInitialVelocity;
+    property InitialVelocity: TgCoordinates read FInitialVelocity write SetInitialVelocity;
     property VelocityDispersion: Single read FVelocityDispersion write FVelocityDispersion;
-    property InitialPosition: TGCoordinates read FInitialPosition write SetInitialPosition;
+    property InitialPosition: TgCoordinates read FInitialPosition write SetInitialPosition;
     property PositionDispersion: Single read FPositionDispersion write FPositionDispersion;
-    property PositionDispersionRange: TGCoordinates read FPositionDispersionRange write SetPositionDispersionRange;
+    property PositionDispersionRange: TgCoordinates read FPositionDispersionRange write SetPositionDispersionRange;
     property ParticleInterval: Single read FParticleInterval write SetParticleInterval;
     property VelocityMode: TGLSourcePFXVelocityMode read FVelocityMode write FVelocityMode default svmAbsolute;
     property PositionMode: TGLSourcePFXPositionMode read FPositionMode write FPositionMode default spmAbsoluteOffset;
@@ -403,12 +403,12 @@ type
    (simple velocity and const acceleration integration). *)
   TGLDynamicPFXManager = class(TGLParticleFXManager)
   private
-    FAcceleration: TGCoordinates;
+    FAcceleration: TgCoordinates;
     FFriction: Single;
     FCurrentTime: Double;
     //FRotationCenter: TAffineVector;
   protected
-    procedure SetAcceleration(const val: TGCoordinates);
+    procedure SetAcceleration(const val: TgCoordinates);
     (* Returns the maximum age for a particle.
        Particles older than that will be killed by DoProgress. *)
     function MaxParticleAge: Single; virtual; abstract;
@@ -419,7 +419,7 @@ type
     procedure DoProgress(const progressTime: TGProgressTimes); override;
   published
     // Oriented acceleration applied to the particles.
-    property Acceleration: TGCoordinates read FAcceleration write SetAcceleration;
+    property Acceleration: TgCoordinates read FAcceleration write SetAcceleration;
     (* Friction applied to the particles.
        Friction is applied as a speed scaling factor over 1 second, ie.
        a friction of 0.5 will half speed over 1 second, a friction of 3
@@ -744,7 +744,7 @@ end;
 
 procedure RndVector(const dispersion: TGLSourcePFXDispersionMode;
   var v: TAffineVector; var f: Single;
-  dispersionRange: TGCoordinates);
+  dispersionRange: TgCoordinates);
 
   function GetRandomVector(NotIsotropic : boolean) : TVector3f;
   // Isotropic gives constrainted vector within a radius
@@ -852,7 +852,7 @@ end;
 constructor TGLParticleList.Create;
 begin
   inherited Create;
-  FItemList := TGPersistentObjectList.Create;
+  FItemList := TgPersistentObjectList.Create;
   FitemList.GrowthDelta := 64;
   FDirectList := nil;
 end;
@@ -1502,9 +1502,9 @@ end;
 constructor TGLSourcePFXEffect.Create(aOwner: TXCollection);
 begin
   inherited;
-  FInitialVelocity := TGCoordinates.CreateInitialized(Self, NullHmgVector, csVector);
-  FInitialPosition := TGCoordinates.CreateInitialized(Self, NullHmgVector, csPoint);
-  FPositionDispersionRange := TGCoordinates.CreateInitialized(Self, XYZHmgVector, csPoint);
+  FInitialVelocity := TgCoordinates.CreateInitialized(Self, NullHmgVector, csVector);
+  FInitialPosition := TgCoordinates.CreateInitialized(Self, NullHmgVector, csPoint);
+  FPositionDispersionRange := TgCoordinates.CreateInitialized(Self, XYZHmgVector, csPoint);
   FVelocityDispersion := 0;
   FPositionDispersion := 0;
   FParticleInterval := 0.1;
@@ -1589,17 +1589,17 @@ begin
   end;
 end;
 
-procedure TGLSourcePFXEffect.SetInitialVelocity(const val: TGCoordinates);
+procedure TGLSourcePFXEffect.SetInitialVelocity(const val: TgCoordinates);
 begin
   FInitialVelocity.Assign(val);
 end;
 
-procedure TGLSourcePFXEffect.SetInitialPosition(const val: TGCoordinates);
+procedure TGLSourcePFXEffect.SetInitialPosition(const val: TgCoordinates);
 begin
   FInitialPosition.Assign(val);
 end;
 
-procedure TGLSourcePFXEffect.SetPositionDispersionRange(const val: TGCoordinates);
+procedure TGLSourcePFXEffect.SetPositionDispersionRange(const val: TgCoordinates);
 begin
   FPositionDispersionRange.Assign(val);
 end;
@@ -1894,7 +1894,7 @@ end;
 constructor TGLDynamicPFXManager.Create(aOwner: TComponent);
 begin
   inherited;
-  FAcceleration := TGCoordinates.CreateInitialized(Self, NullHmgVector, csVector);
+  FAcceleration := TgCoordinates.CreateInitialized(Self, NullHmgVector, csVector);
   FFriction := 1;
 end;
 
@@ -1982,7 +1982,7 @@ begin
     Particles.Pack;
 end;
 
-procedure TGLDynamicPFXManager.SetAcceleration(const val: TGCoordinates);
+procedure TGLDynamicPFXManager.SetAcceleration(const val: TgCoordinates);
 begin
   FAcceleration.Assign(val);
 end;

Source/GLS.PhysFields.pas

@@ -20,9 +20,9 @@ uses
 type
   TGLUniformGravityEmitter = class(TGLBaseForceFieldEmitter)
   private
-    fGravity: TGCoordinates;
+    fGravity: TgCoordinates;
   protected
-    procedure SetGravity(const val: TGCoordinates);
+    procedure SetGravity(const val: TgCoordinates);
   public
     constructor Create(aOwner: TXCollection); override;
     destructor Destroy; override;
@@ -35,7 +35,7 @@ type
     function CalculateForceField(Body: TGLBaseSceneObject)
       : TAffineVector; override;
   published
-    property Gravity: TGCoordinates read fGravity write SetGravity;
+    property Gravity: TgCoordinates read fGravity write SetGravity;
   end;
 
   TGLRadialGravityEmitter = class(TGLBaseForceFieldEmitter)
@@ -90,7 +90,7 @@ implementation
 constructor TGLUniformGravityEmitter.Create(aOwner: TXCollection);
 begin
   inherited Create(aOwner);
-  fGravity := TGCoordinates.CreateInitialized(Self, nullHmgVector, csVector);
+  fGravity := TgCoordinates.CreateInitialized(Self, nullHmgVector, csVector);
 end;
 
 destructor TGLUniformGravityEmitter.Destroy;
@@ -140,7 +140,7 @@ begin
   end;
 end;
 
-procedure TGLUniformGravityEmitter.SetGravity(const val: TGCoordinates);
+procedure TGLUniformGravityEmitter.SetGravity(const val: TgCoordinates);
 begin
   fGravity.Assign(val);
 end;

Source/GLS.PhysForces.pas

@@ -27,8 +27,8 @@ type
   private
     fObject1: TGLBaseSceneObject;
     fObject2: TGLBaseSceneObject;
-    fposition1: TGCoordinates;
-    fposition2: TGCoordinates;
+    fposition1: TgCoordinates;
+    fposition2: TgCoordinates;
     object1Name: String;
     object2Name: String;
     // fOnCustomForce: TOnCustomForce;
@@ -52,14 +52,14 @@ type
     class function UniqueItem: Boolean; override;
     procedure SetObject1(const val: TGLBaseSceneObject);
     procedure SetObject2(const val: TGLBaseSceneObject);
-    procedure SetPosition1(const val: TGCoordinates);
-    procedure SetPosition2(const val: TGCoordinates);
+    procedure SetPosition1(const val: TgCoordinates);
+    procedure SetPosition2(const val: TgCoordinates);
     function CalculateForce(): TAffineVector; virtual;
   published
     property Object1: TGLBaseSceneObject read fObject1 write SetObject1;
     property Object2: TGLBaseSceneObject read fObject2 write SetObject2;
-    property Position1: TGCoordinates read fposition1 write SetPosition1;
-    property Position2: TGCoordinates read fposition2 write SetPosition2;
+    property Position1: TgCoordinates read fposition1 write SetPosition1;
+    property Position2: TgCoordinates read fposition2 write SetPosition2;
     // property OnCustomForce:TOnCustomForce read fOnCustomForce write fOnCustomForce;
   end;
 
@@ -109,8 +109,8 @@ uses
 constructor TGLForce.Create(aOwner: TXCollection);
 begin
   inherited; // Create(aOwner)
-  fposition1 := TGCoordinates.CreateInitialized(Self, NullHmgVector, csVector);
-  fposition2 := TGCoordinates.CreateInitialized(Self, NullHmgVector, csVector);
+  fposition1 := TgCoordinates.CreateInitialized(Self, NullHmgVector, csVector);
+  fposition2 := TgCoordinates.CreateInitialized(Self, NullHmgVector, csVector);
   // fObject1:=TGLBaseSceneObject.Create(Self);
   // fObject2:=TGLBaseSceneObject.Create(Self);
 end;
@@ -153,12 +153,12 @@ begin
   // messagedlg('Object2 does not have an inertia behaviour',mtWarning,[mbOk],0);
 end;
 
-procedure TGLForce.SetPosition1(const val: TGCoordinates);
+procedure TGLForce.SetPosition1(const val: TgCoordinates);
 begin
   fposition1.Assign(val); // DB101
 end;
 
-procedure TGLForce.SetPosition2(const val: TGCoordinates);
+procedure TGLForce.SetPosition2(const val: TgCoordinates);
 begin
   fposition2.Assign(val);
 end;

Source/GLS.PhysInertias.pas

@@ -27,12 +27,12 @@ type
   // modified from TGLBInertia
   private
     FMass: Single;
-    FTranslationSpeed: TGCoordinates;
+    FTranslationSpeed: TgCoordinates;
     FTranslationDamping: TGLDamping;
   protected
     function CalcLinearPositionDot(): TAffineVector;
     function CalcLinearMomentumDot(): TAffineVector;
-    procedure SetTranslationSpeed(const val: TGCoordinates);
+    procedure SetTranslationSpeed(const val: TgCoordinates);
     procedure SetTranslationDamping(const val: TGLDamping);
   public
     fForce: TAffineVector;
@@ -72,7 +72,7 @@ type
     procedure SurfaceBounce(const surfaceNormal: TGLVector; restitution: Single);
   published
     property Mass: Single read FMass write FMass;
-    property TranslationSpeed: TGCoordinates read FTranslationSpeed
+    property TranslationSpeed: TgCoordinates read FTranslationSpeed
       write SetTranslationSpeed;
 
     (* Enable/Disable damping (damping has a high cpu-cycle cost).
@@ -119,7 +119,7 @@ type
     fInertiaTensor: TGLInertiaTensor;
     InverseInertiaTensor: TAffineMAtrix;
     // LinearVelocity:TAffineVector;
-    fRotationSpeed: TGCoordinates;
+    fRotationSpeed: TgCoordinates;
     /// AngularVelocity:TAffineVector;      //rotation about axis, magnitude=speed
     // damping properties
     FRotationDamping: TGLDamping;
@@ -167,13 +167,13 @@ type
     procedure ApplyLocalForce(pos, Force: TVector3f); override;
     procedure ApplyLocalImpulse(xpos, ypos, zpos, x, y, z: Real);
     procedure SetInertiaTensor(newVal: TGLInertiaTensor);
-    procedure SetRotationSpeed(const val: TGCoordinates);
+    procedure SetRotationSpeed(const val: TgCoordinates);
     procedure SetRotationDamping(const val: TGLDamping);
   published
     property Density: Real read fDensity write fDensity;
     property InertiaTensor: TGLInertiaTensor read fInertiaTensor
       write SetInertiaTensor;
-    property RotationSpeed: TGCoordinates read fRotationSpeed
+    property RotationSpeed: TgCoordinates read fRotationSpeed
       write SetRotationSpeed;
     property RotationDamping: TGLDamping read FRotationDamping
       write SetRotationDamping;
@@ -208,7 +208,7 @@ begin
   inherited Create(aOwner);
   FMass := 1;
   StateSize := 6;
-  FTranslationSpeed := TGCoordinates.CreateInitialized(Self, NullHmgVector, csVector);
+  FTranslationSpeed := TgCoordinates.CreateInitialized(Self, NullHmgVector, csVector);
   LinearPosition := OwnerBaseSceneObject.position.AsAffineVector;
   LinearMomentum := FTranslationSpeed.AsAffineVector;
   FTranslationDamping := TGLDamping.Create(Self);
@@ -268,7 +268,7 @@ begin
   SetUpStartingState();
 end;
 
-procedure TGLParticleInertia.SetTranslationSpeed(const val: TGCoordinates);
+procedure TGLParticleInertia.SetTranslationSpeed(const val: TgCoordinates);
 begin
   FTranslationSpeed.Assign(val);
   LinearMomentum := VectorScale(FTranslationSpeed.AsAffineVector, FMass);
@@ -574,7 +574,7 @@ begin
   fInertiaTensor := newVal;
 end;
 
-procedure TGLRigidBodyInertia.SetRotationSpeed(const val: TGCoordinates);
+procedure TGLRigidBodyInertia.SetRotationSpeed(const val: TgCoordinates);
 begin
   AngularMomentum := VectorTransform(val.AsAffineVector, fBodyInertiaTensor);
   fRotationSpeed.Assign(val);
@@ -890,7 +890,7 @@ begin
   StateSize := 13;
 
   fInertiaTensor := TGLInertiaTensor.Create(Self);
-  fRotationSpeed := TGCoordinates.CreateInitialized(Self, VectorMake(0, 0, 0));
+  fRotationSpeed := TgCoordinates.CreateInitialized(Self, VectorMake(0, 0, 0));
 
   // LinearPosition:=OwnerBaseSceneObject.Position.AsAffineVector;
   AngularOrientation := IdentityQuaternion; // fromAngleAxis(0,XVector);

Source/GLS.ProxyObjects.pas

@@ -18,7 +18,7 @@ uses
   GLScene.OpenGLTokens,
   GLS.Scene,
   GLScene.XCollection,
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
   GLScene.VectorGeometry,
   GLS.Texture,
   GLS.VectorFileObjects,
@@ -143,7 +143,7 @@ type
     FBonesMatrices: TStringList;
     FStoreBonesMatrix: boolean;
     FStoredBoneNames: TStrings;
-    FOnBeforeRender: TGProgressEvent;
+    FOnBeforeRender: TgProgressEvent;
     FAnimationMode: TGLActorProxyAnimationMode;
     procedure SetAnimation(const Value: TGLActorAnimationName);
     procedure SetMasterActorObject(const Value: TGLActor);
@@ -155,7 +155,7 @@ type
     function GetMaterialLibrary: TGLAbstractMaterialLibrary;
     procedure SetStoreBonesMatrix(const Value: boolean);
     procedure SetStoredBoneNames(const Value: TStrings);
-    procedure SetOnBeforeRender(const Value: TGProgressEvent);
+    procedure SetOnBeforeRender(const Value: TgProgressEvent);
   protected
     procedure DoStoreBonesMatrices; // stores matrices of bones of the current frame rendered
   public
@@ -209,7 +209,7 @@ type
     property StoredBoneNames: TStrings read FStoredBoneNames write SetStoredBoneNames;
     (* Event allowing to apply extra transformations (f.ex: bone rotations) to the referenced
        Actor on order to have the proxy render these changes. *)
-    property OnBeforeRender: TGProgressEvent read FOnBeforeRender write SetOnBeforeRender;
+    property OnBeforeRender: TgProgressEvent read FOnBeforeRender write SetOnBeforeRender;
   end;
 
 //-------------------------------------------------------------
@@ -772,7 +772,7 @@ begin
   end;
 end;
 
-procedure TGLActorProxy.SetOnBeforeRender(const Value: TGProgressEvent);
+procedure TGLActorProxy.SetOnBeforeRender(const Value: TgProgressEvent);
 begin
   FOnBeforeRender := Value;
 end;

Source/GLS.ROAMPatch.pas

@@ -66,9 +66,9 @@ type
     procedure SetHeightData(Val: TGLHeightData);
     procedure SetOcclusionSkip(Val: Integer);
     procedure RenderROAM(Vertices: TGAffineVectorList;
-      VertexIndices: TGIntegerList; TexCoords: TGTexPointList);
+      VertexIndices: TgIntegerList; TexCoords: TGTexPointList);
     procedure RenderAsStrips(Vertices: TGAffineVectorList;
-      VertexIndices: TGIntegerList; TexCoords: TGTexPointList);
+      VertexIndices: TgIntegerList; TexCoords: TGTexPointList);
   public
     constructor Create;
     destructor Destroy; override;
@@ -89,18 +89,18 @@ type
       (additions without capacity check). High-resolution renders use
       display lists, and are assumed to be made together. *)
     procedure RenderHighRes(Vertices: TGAffineVectorList;
-      VertexIndices: TGIntegerList; TexCoords: TGTexPointList; ForceROAM: Boolean);
+      VertexIndices: TgIntegerList; TexCoords: TGTexPointList; ForceROAM: Boolean);
     (*  Render the patch by accumulating triangles.
       The lists are assumed to have enough capacity to allow AddNC calls
       (additions without capacity check).
       Once at least autoFlushVertexCount vertices have been accumulated,
       perform a FlushAccum *)
     procedure RenderAccum(Vertices: TGAffineVectorList;
-      VertexIndices: TGIntegerList; TexCoords: TGTexPointList;
+      VertexIndices: TgIntegerList; TexCoords: TGTexPointList;
       AutoFlushVertexCount: Integer);
     // Render all vertices accumulated in the arrays and set their count back to zero.
     class procedure FlushAccum(Vertices: TGAffineVectorList;
-      VertexIndices: TGIntegerList; TexCoords: TGTexPointList);
+      VertexIndices: TgIntegerList; TexCoords: TGTexPointList);
     property HeightData: TGLHeightData read FHeightData write SetHeightData;
     property VertexScale: TAffineVector read FVertexScale write FVertexScale;
     property VertexOffset: TAffineVector read FVertexOffset write FVertexOffset;
@@ -129,7 +129,7 @@ type
 procedure SetROAMTrianglesCapacity(nb: Integer);
 function GetROAMTrianglesCapacity: Integer;
 //  Draw contours on rendering terrain patches
-procedure DrawContours(Vertices: TGAffineVectorList; VertexIndices: TGIntegerList;
+procedure DrawContours(Vertices: TGAffineVectorList; VertexIndices: TgIntegerList;
   ContourInterval: Integer; ContourWidth: Integer; DecVal: Integer);
 
 // ------------------------------------------------------------------
@@ -174,7 +174,7 @@ begin
   Result := vTriangleNodesCapacity;
 end;
 
-procedure DrawContours(Vertices: TGAffineVectorList; VertexIndices: TGIntegerList;
+procedure DrawContours(Vertices: TGAffineVectorList; VertexIndices: TgIntegerList;
   ContourInterval: Integer; ContourWidth: Integer; DecVal: Integer);
 var
   i: Integer;
@@ -679,7 +679,7 @@ begin
 end;
 
 procedure TGLROAMPatch.RenderHighRes(Vertices: TGAffineVectorList;
-  VertexIndices: TGIntegerList; TexCoords: TGTexPointList; ForceROAM: Boolean);
+  VertexIndices: TgIntegerList; TexCoords: TGTexPointList; ForceROAM: Boolean);
 
 var
   Primitive: Cardinal;
@@ -726,7 +726,7 @@ begin
 end;
 
 procedure TGLROAMPatch.RenderAccum(Vertices: TGAffineVectorList;
-  VertexIndices: TGIntegerList; TexCoords: TGTexPointList;
+  VertexIndices: TgIntegerList; TexCoords: TGTexPointList;
   AutoFlushVertexCount: Integer);
 var
   OcclusionPassed: Boolean;
@@ -777,7 +777,7 @@ begin
 end;
 
 class procedure TGLROAMPatch.FlushAccum(Vertices: TGAffineVectorList;
-  VertexIndices: TGIntegerList; TexCoords: TGTexPointList);
+  VertexIndices: TgIntegerList; TexCoords: TGTexPointList);
 begin
   if VertexIndices.Count = 0 then
     Exit;
@@ -841,7 +841,7 @@ begin
 end;
 
 procedure TGLROAMPatch.RenderROAM(Vertices: TGAffineVectorList;
-  VertexIndices: TGIntegerList; TexCoords: TGTexPointList);
+  VertexIndices: TgIntegerList; TexCoords: TGTexPointList);
 
   procedure ROAMRenderPoint(var p: TROAMRenderPoint; anX, anY: Integer);
   begin
@@ -875,7 +875,7 @@ begin
 end;
 
 procedure TGLROAMPatch.RenderAsStrips(Vertices: TGAffineVectorList;
-  VertexIndices: TGIntegerList; TexCoords: TGTexPointList);
+  VertexIndices: TgIntegerList; TexCoords: TGTexPointList);
 
 var
   X, Y, baseTop, rowLength: Integer;

Source/GLS.Ragdoll.pas

@@ -24,7 +24,7 @@ type
   TGLRagdolJoint = class
   end;
 
-  TGLRagdolBoneList = class(TGPersistentObjectList)
+  TGLRagdolBoneList = class(TgPersistentObjectList)
   private
     FRagdoll: TGLRagdoll;
   protected

Source/GLS.RandomHDS.pas

@@ -338,7 +338,7 @@ type
       vertical/horitontal ratio with any size. Therefore, Scale.X=Scale.Y=1 and
       only Scale.Z varies. If you want to increase the landscape scale, the best way
       would be to place the Terrain Renderer in a DummyCube and rescale it. *)
-    function Scale: TGCoordinates;
+    function Scale: TgCoordinates;
     (* Size of the square height array. With the middle-point algorithm, it is always
       Size = 2^N+1. In a cyclic landscape, the last row and columns are identical
       to the first. *)
@@ -1842,7 +1842,7 @@ begin
   Result := (x >= 0) and (x <= FSize) and (y >= 0) and (y <= FSize);
 end;
 
-function TGLCustomRandomHDS.Scale: TGCoordinates;
+function TGLCustomRandomHDS.Scale: TgCoordinates;
 begin
   try
     Result := FTerrainRenderer.Scale;

Source/GLS.RenderContextInfo.pas

@@ -14,7 +14,7 @@ uses
   GLScene.VectorTypes,
   GLScene.VectorGeometry,
   GLS.State,
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
   GLScene.Color;
 
 type
@@ -74,7 +74,7 @@ type
     ObjectsSorting: TGLObjectsSorting;
     VisibilityCulling: TGLVisibilityCulling;
     GLStates: TGLStateCache;
-    PipelineTransformation: TGLTransformation;
+    PipelineTransformation: TGTransformation;
     Rcci: TGLRenderContextClippingInfo;
     SceneAmbientColor: TGColorVector;
     BufferFaceCull: Boolean;
@@ -86,8 +86,8 @@ type
     IgnoreBlendingRequests: Boolean;
     IgnoreDepthRequests: Boolean;
     Amalgamating: Boolean;
-    Lights: TGPersistentObjectList;
-    AfterRenderEffects: TGPersistentObjectList;
+    Lights: TgPersistentObjectList;
+    AfterRenderEffects: TgPersistentObjectList;
     CurrentMaterialLevel: TGLMaterialLevel;
     PrimitiveMask: TGLMeshPrimitives;
     OrderCounter: Integer;

Source/GLS.Scene.pas

@@ -32,7 +32,7 @@ uses
   GLScene.VectorGeometry,
   GLS.Silhouette,
   GLScene.PersistentClasses,
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
   GLS.State,
   GLS.Graphics,
   GLScene.GeometryBB,
@@ -64,7 +64,6 @@ const
   GLSCENE_VERSION = 'v2.5 %s';
 
 type
-
   TGLNormalDirection = (ndInside, ndOutside);
 
   // Used to describe the changes in an object, which have to be reflected in the scene
@@ -157,15 +156,15 @@ type
      To add children at runtime, use the AddNewChild method of TGLBaseSceneObject;
      other children manipulations methods and properties are provided (to browse,
      move and delete them). Using the regular TComponent methods is not encouraged *)
-  TGLBaseSceneObject = class(TGCoordinatesUpdateAbleComponent)
+  TGLBaseSceneObject = class(TgCoordinatesUpdateAbleComponent)
   private
     FAbsoluteMatrix, FInvAbsoluteMatrix: TGLMatrix;
     FLocalMatrix: TGLMatrix;
     FObjectStyle: TGLObjectStyles;
     FListHandle: TGLListHandle; // created on 1st use
-    FPosition: TGCoordinates;
-    FDirection, FUp: TGCoordinates;
-    FScaling: TGCoordinates;
+    FPosition: TgCoordinates;
+    FDirection, FUp: TgCoordinates;
+    FScaling: TgCoordinates;
     FChanges: TGLObjectChanges;
     FParent: TGLBaseSceneObject;
     FScene: TGLScene;
@@ -173,15 +172,15 @@ type
     FBoundingBoxPersonalUnscaled: THmgBoundingBox;
     FBoundingBoxOfChildren: THmgBoundingBox;
     FBoundingBoxIncludingChildren: THmgBoundingBox;
-    FChildren: TGPersistentObjectList; // created on 1st use
+    FChildren: TgPersistentObjectList; // created on 1st use
     FVisible: Boolean;
     FUpdateCount: Integer;
     FShowAxes: Boolean;
-    FRotation: TGCoordinates; // current rotation angles
+    FRotation: TgCoordinates; // current rotation angles
     FIsCalculating: Boolean;
     FObjectsSorting: TGLObjectsSorting;
     FVisibilityCulling: TGLVisibilityCulling;
-    FOnProgress: TGProgressEvent;
+    FOnProgress: TgProgressEvent;
     FOnAddedToParent: TNotifyEvent;
     FBehaviours: TGLBehaviours;
     FEffects: TGLEffects;
@@ -190,7 +189,7 @@ type
     FTagObject: TObject;
     FTagFloat: Single;
 
-    objList: TGPersistentObjectList;
+    objList: TgPersistentObjectList;
     distList: TGSingleList;
     ///  FOriginalFiler: TFiler;   //used to allow persistent events in behaviours & effects
     (* If somebody could look at DefineProperties, ReadBehaviours, ReadEffects
@@ -200,19 +199,19 @@ type
     function GetIndex: Integer; inline;
     procedure SetParent(const val: TGLBaseSceneObject); inline;
     procedure SetIndex(aValue: Integer);
-    procedure SetDirection(AVector: TGCoordinates);
-    procedure SetUp(AVector: TGCoordinates);
+    procedure SetDirection(AVector: TgCoordinates);
+    procedure SetUp(AVector: TgCoordinates);
     function GetMatrix: PGLMatrix; inline;
-    procedure SetPosition(APosition: TGCoordinates);
+    procedure SetPosition(APosition: TgCoordinates);
     procedure SetPitchAngle(AValue: Single);
     procedure SetRollAngle(AValue: Single);
     procedure SetTurnAngle(AValue: Single);
-    procedure SetRotation(aRotation: TGCoordinates);
+    procedure SetRotation(aRotation: TgCoordinates);
     function GetPitchAngle: Single; inline;
     function GetTurnAngle: Single; inline;
     function GetRollAngle: Single; inline;
     procedure SetShowAxes(AValue: Boolean);
-    procedure SetScaling(AValue: TGCoordinates);
+    procedure SetScaling(AValue: TgCoordinates);
     procedure SetObjectsSorting(const val: TGLObjectsSorting);
     procedure SetVisibilityCulling(const val: TGLVisibilityCulling);
     procedure SetBehaviours(const val: TGLBehaviours);
@@ -519,10 +518,10 @@ type
     procedure StructureChanged; virtual;
     procedure ClearStructureChanged; inline;
     // Recalculate an orthonormal system
-    procedure CoordinateChanged(Sender: TGCustomCoordinates); override;
+    procedure CoordinateChanged(Sender: TgCustomCoordinates); override;
     procedure TransformationChanged; inline;
     procedure NotifyChange(Sender: TObject); override;
-    property Rotation: TGCoordinates read FRotation write SetRotation;
+    property Rotation: TgCoordinates read FRotation write SetRotation;
     property PitchAngle: Single read GetPitchAngle write SetPitchAngle;
     property RollAngle: Single read GetRollAngle write SetRollAngle;
     property TurnAngle: Single read GetTurnAngle write SetTurnAngle;
@@ -530,10 +529,10 @@ type
     property Changes: TGLObjectChanges read FChanges;
     property BBChanges: TGLObjectBBChanges read fBBChanges write SetBBChanges;
     property Parent: TGLBaseSceneObject read FParent write SetParent;
-    property Position: TGCoordinates read FPosition write SetPosition;
-    property Direction: TGCoordinates read FDirection write SetDirection;
-    property Up: TGCoordinates read FUp write SetUp;
-    property Scale: TGCoordinates read FScaling write SetScaling;
+    property Position: TgCoordinates read FPosition write SetPosition;
+    property Direction: TgCoordinates read FDirection write SetDirection;
+    property Up: TgCoordinates read FUp write SetUp;
+    property Scale: TgCoordinates read FScaling write SetScaling;
     property Scene: TGLScene read FScene;
     property Visible: Boolean read FVisible write SetVisible default True;
     property Pickable: Boolean read FPickable write SetPickable default True;
@@ -541,7 +540,7 @@ type
       SetObjectsSorting default osInherited;
     property VisibilityCulling: TGLVisibilityCulling read FVisibilityCulling
       write SetVisibilityCulling default vcInherited;
-    property OnProgress: TGProgressEvent read FOnProgress write FOnProgress;
+    property OnProgress: TgProgressEvent read FOnProgress write FOnProgress;
     property OnPicked: TNotifyEvent read FOnPicked write FOnPicked;
     property OnAddedToParent: TNotifyEvent read FOnAddedToParent write FOnAddedToParent;
     property Behaviours: TGLBehaviours read GetBehaviours write SetBehaviours stored False;
@@ -901,7 +900,7 @@ type
   TGLLightSource = class(TGLBaseSceneObject)
   private
     FLightID: Cardinal;
-    FSpotDirection: TGCoordinates;
+    FSpotDirection: TgCoordinates;
     FSpotExponent, FSpotCutOff: Single;
     FConstAttenuation, FLinearAttenuation, FQuadraticAttenuation: Single;
     FShining: Boolean;
@@ -915,7 +914,7 @@ type
     procedure SetLinearAttenuation(AValue: Single);
     procedure SetQuadraticAttenuation(AValue: Single);
     procedure SetShining(AValue: Boolean);
-    procedure SetSpotDirection(AVector: TGCoordinates);
+    procedure SetSpotDirection(AVector: TgCoordinates);
     procedure SetSpotExponent(AValue: Single);
     procedure SetSpotCutOff(const val: Single);
     procedure SetLightStyle(const val: TGLLightStyle);
@@ -928,7 +927,7 @@ type
     function RayCastIntersect(const rayStart, rayVector: TGLVector;
       intersectPoint: PGLVector = nil;
       intersectNormal: PGLVector = nil): Boolean; override;
-    procedure CoordinateChanged(Sender: TGCustomCoordinates); override;
+    procedure CoordinateChanged(Sender: TgCustomCoordinates); override;
     function GenerateSilhouette(const silhouetteParameters:
       TGLSilhouetteParameters): TGLSilhouette; override;
     property LightID: Cardinal read FLightID;
@@ -947,7 +946,7 @@ type
     property Shining: Boolean read FShining write SetShining default True;
     property Specular: TGColor read FSpecular write SetSpecular;
     property SpotCutOff: Single read FSpotCutOff write SetSpotCutOff;
-    property SpotDirection: TGCoordinates read FSpotDirection write
+    property SpotDirection: TgCoordinates read FSpotDirection write
       SetSpotDirection;
     property SpotExponent: Single read FSpotExponent write SetSpotExponent;
     property OnProgress;
@@ -1140,13 +1139,13 @@ type
     FUpdateCount: Integer;
     FObjects: TGLSceneRootObject;
     FBaseContext: TGLContext; //reference, not owned!
-    FLights, FBuffers: TGPersistentObjectList;
+    FLights, FBuffers: TgPersistentObjectList;
     FCurrentGLCamera: TGLCamera;
     FCurrentBuffer: TGLSceneBuffer;
     FObjectsSorting: TGLObjectsSorting;
     FVisibilityCulling: TGLVisibilityCulling;
-    FOnBeforeProgress: TGProgressEvent;
-    FOnProgress: TGProgressEvent;
+    FOnBeforeProgress: TgProgressEvent;
+    FOnProgress: TgProgressEvent;
     FCurrentDeltaTime: Double;
     FInitializableObjects: TGLInitializableObjectList;
   protected
@@ -1196,7 +1195,7 @@ type
     // Load the scene from a text files. See LoadFromFile for details.
     procedure LoadFromTextFile(const fileName: string);
     property CurrentGLCamera: TGLCamera read FCurrentGLCamera;
-    property Lights: TGPersistentObjectList read FLights;
+    property Lights: TgPersistentObjectList read FLights;
     property Objects: TGLSceneRootObject read FObjects;
     property CurrentBuffer: TGLSceneBuffer read FCurrentBuffer;
     (* List of objects that request to be initialized when rendering context is active.
@@ -1211,8 +1210,8 @@ type
     // Defines default VisibilityCulling option for scene objects.
     property VisibilityCulling: TGLVisibilityCulling read FVisibilityCulling
       write SetVisibilityCulling default vcNone;
-    property OnBeforeProgress: TGProgressEvent read FOnBeforeProgress write FOnBeforeProgress;
-    property OnProgress: TGProgressEvent read FOnProgress write FOnProgress;
+    property OnBeforeProgress: TgProgressEvent read FOnBeforeProgress write FOnBeforeProgress;
+    property OnProgress: TgProgressEvent read FOnProgress write FOnProgress;
   end;
 
   TFogMode = (fmLinear, fmExp, fmExp2);
@@ -1275,7 +1274,7 @@ type
     // Internal state
     FRendering: Boolean;
     FRenderingContext: TGLContext;
-    FAfterRenderEffects: TGPersistentObjectList;
+    FAfterRenderEffects: TgPersistentObjectList;
     FViewMatrixStack: array of TGLMatrix;
     FProjectionMatrixStack: array of TGLMatrix;
     FBaseProjectionMatrix: TGLMatrix;
@@ -1878,24 +1877,24 @@ begin
   FObjectStyle := [];
   FChanges := [ocTransformation, ocStructure,
     ocAbsoluteMatrix, ocInvAbsoluteMatrix];
-  FPosition := TGCoordinates.CreateInitialized(Self, NullHmgPoint, csPoint);
-  FRotation := TGCoordinates.CreateInitialized(Self, NullHmgVector, csVector);
-  FDirection := TGCoordinates.CreateInitialized(Self, ZHmgVector, csVector);
-  FUp := TGCoordinates.CreateInitialized(Self, YHmgVector, csVector);
-  FScaling := TGCoordinates.CreateInitialized(Self, XYZHmgVector, csVector);
+  FPosition := TgCoordinates.CreateInitialized(Self, NullHmgPoint, csPoint);
+  FRotation := TgCoordinates.CreateInitialized(Self, NullHmgVector, csVector);
+  FDirection := TgCoordinates.CreateInitialized(Self, ZHmgVector, csVector);
+  FUp := TgCoordinates.CreateInitialized(Self, YHmgVector, csVector);
+  FScaling := TgCoordinates.CreateInitialized(Self, XYZHmgVector, csVector);
   FLocalMatrix := IdentityHmgMatrix;
   FVisible := True;
   FPickable := True;
   FObjectsSorting := osInherited;
   FVisibilityCulling := vcInherited;
-  FChildren := TGPersistentObjectList.Create;
+  FChildren := TgPersistentObjectList.Create;
 
   fBBChanges := [oBBcChild, oBBcStructure];
   FBoundingBoxPersonalUnscaled := NullBoundingBox;
   FBoundingBoxOfChildren := NullBoundingBox;
   FBoundingBoxIncludingChildren := NullBoundingBox;
   distList := TGSingleList.Create;
-  objList := TGPersistentObjectList.Create;
+  objList := TgPersistentObjectList.Create;
 end;
 
 constructor TGLBaseSceneObject.CreateAsChild(aParentOwner: TGLBaseSceneObject);
@@ -3098,7 +3097,7 @@ begin
   end;
 end;
 
-procedure TGLBaseSceneObject.SetRotation(aRotation: TGCoordinates);
+procedure TGLBaseSceneObject.SetRotation(aRotation: TgCoordinates);
 begin
   FRotation.Assign(aRotation);
   TransformationChanged;
@@ -3157,7 +3156,7 @@ begin
   end;
 end;
 
-procedure TGLBaseSceneObject.SetScaling(AValue: TGCoordinates);
+procedure TGLBaseSceneObject.SetScaling(AValue: TgCoordinates);
 begin
   FScaling.Assign(AValue);
   TransformationChanged;
@@ -3400,7 +3399,7 @@ begin
   end;
 end;
 
-procedure TGLBaseSceneObject.CoordinateChanged(Sender: TGCustomCoordinates);
+procedure TGLBaseSceneObject.CoordinateChanged(Sender: TgCustomCoordinates);
 var
   rightVector: TGLVector;
 begin
@@ -3866,18 +3865,18 @@ begin
   TransformationChanged;
 end;
 
-procedure TGLBaseSceneObject.SetPosition(APosition: TGCoordinates);
+procedure TGLBaseSceneObject.SetPosition(APosition: TgCoordinates);
 begin
   FPosition.SetPoint(APosition.DirectX, APosition.DirectY, APosition.DirectZ);
 end;
 
-procedure TGLBaseSceneObject.SetDirection(AVector: TGCoordinates);
+procedure TGLBaseSceneObject.SetDirection(AVector: TgCoordinates);
 begin
   if not VectorIsNull(AVector.DirectVector) then
     FDirection.SetVector(AVector.DirectX, AVector.DirectY, AVector.DirectZ);
 end;
 
-procedure TGLBaseSceneObject.SetUp(AVector: TGCoordinates);
+procedure TGLBaseSceneObject.SetUp(AVector: TgCoordinates);
 begin
   if not VectorIsNull(AVector.DirectVector) then
     FUp.SetVector(AVector.DirectX, AVector.DirectY, AVector.DirectZ);
@@ -5430,7 +5429,7 @@ constructor TGLLightSource.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
   FShining := True;
-  FSpotDirection := TGCoordinates.CreateInitialized(Self, VectorMake(0, 0, -1, 0), csVector);
+  FSpotDirection := TgCoordinates.CreateInitialized(Self, VectorMake(0, 0, -1, 0), csVector);
   FConstAttenuation := 1;
   FLinearAttenuation := 0;
   FQuadraticAttenuation := 0;
@@ -5466,7 +5465,7 @@ begin
   Result := False;
 end;
 
-procedure TGLLightSource.CoordinateChanged(Sender: TGCustomCoordinates);
+procedure TGLLightSource.CoordinateChanged(Sender: TgCustomCoordinates);
 begin
   inherited;
   if Sender = FSpotDirection then
@@ -5488,7 +5487,7 @@ begin
   end;
 end;
 
-procedure TGLLightSource.SetSpotDirection(AVector: TGCoordinates);
+procedure TGLLightSource.SetSpotDirection(AVector: TgCoordinates);
 begin
   FSpotDirection.DirectVector := AVector.AsVector;
   FSpotDirection.W := 0;
@@ -5587,7 +5586,7 @@ begin
   FCurrentBuffer := nil;
   FObjects := TGLSceneRootObject.Create(Self);
   FObjects.Name := 'ObjectRoot';
-  FLights := TGPersistentObjectList.Create;
+  FLights := TgPersistentObjectList.Create;
   FObjectsSorting := osRenderBlendedLast;
   FVisibilityCulling := vcNone;
   // actual maximum number of lights is stored in TGLSceneViewer
@@ -5667,7 +5666,7 @@ end;
 procedure TGLScene.AddBuffer(aBuffer: TGLSceneBuffer);
 begin
   if not Assigned(FBuffers) then
-    FBuffers := TGPersistentObjectList.Create;
+    FBuffers := TgPersistentObjectList.Create;
   if FBuffers.IndexOf(aBuffer) < 0 then
   begin
     FBuffers.Add(aBuffer);
@@ -6201,7 +6200,7 @@ begin
   FShadeModel := smDefault;
   FFogEnable := False;
   FLayer := clMainPlane;
-  FAfterRenderEffects := TGPersistentObjectList.Create;
+  FAfterRenderEffects := TgPersistentObjectList.Create;
   FContextOptions := [roDoubleBuffer, roRenderToWindow, roDebugContext];
   ResetPerformanceMonitor;
 end;

Source/GLS.SceneRegister.pas

@@ -819,10 +819,10 @@ end;
 
 procedure TGLCoordinatesProperty.Edit;
 var
-  glc: TGCoordinates;
+  glc: TgCoordinates;
   x, y, z: Single;
 begin
-  glc := TGCoordinates(GetOrdValue);
+  glc := TgCoordinates(GetOrdValue);
   x := glc.x;
   y := glc.y;
   z := glc.z;
@@ -1343,21 +1343,22 @@ begin
   end;
 end;
 
-// ******************************************************
+// *************************************************************************
 // Register Properties
-//*******************************************************
+//**************************************************************************
 procedure GLSceneRegisterPropertiesInCategories;
 begin
   // property types
-  // ScreenDepth in Win32FullScreenViewer
+  // ScreenDepth in FullScreenViewer
   RegisterPropertiesInCategory(strOpenGLCategoryName,
-     [TypeInfo(TGLCamera), TypeInfo(TGLSceneBuffer),
-     TypeInfo(TGLVSyncMode), TypeInfo(TGLScreenDepth)]);
-  // TGLSceneViewer
+    [TypeInfo(TGLCamera), TypeInfo(TGLSceneBuffer), TypeInfo(TGLVSyncMode), TypeInfo(TGLScreenDepth)]);
+
+  // GLS.SceneViewer
   RegisterPropertiesInCategory(strOpenGLCategoryName, TGLSceneViewer, ['*Render']);
-  // GLScene
+
+  // GLS.Scene
   RegisterPropertiesInCategory(strOpenGLCategoryName,
-    [TypeInfo(TGLObjectsSorting), TypeInfo(TGProgressEvent),
+    [TypeInfo(TGLObjectsSorting), TypeInfo(TgProgressEvent),
     TypeInfo(TGLBehaviours), TypeInfo(TGLEffects),
     TypeInfo(TGLDirectRenderEvent), TypeInfo(TGLCameraStyle),
     TypeInfo(TOnCustomPerspective), TypeInfo(TGLScene)]);
@@ -1376,11 +1377,10 @@ begin
   RegisterPropertiesInCategory(strVisualCategoryName, TGLCamera, ['DepthOfView', 'SceneScale']);
   RegisterPropertiesInCategory(strOpenGLCategoryName, TGLNonVisualViewer, ['*Render']);
 
-  // GLObjects
+  // GLS.Objects
   RegisterPropertiesInCategory(strOpenGLCategoryName,
     [TypeInfo(TGLLinesNodes), TypeInfo(TGLLineNodesAspect),
     TypeInfo(TGLLineSplineMode), TypeInfo(TGLLinesOptions)]);
-  // GLDummyCube
   RegisterPropertiesInCategory(strLayoutCategoryName, TGLDummyCube, ['VisibleAtRunTime']);
   RegisterPropertiesInCategory(strVisualCategoryName, TGLDummyCube, ['CubeSize', 'VisibleAtRunTime']);
   RegisterPropertiesInCategory(strVisualCategoryName, TGLPlane, ['*Offset', '*Tiles']);
@@ -1392,7 +1392,8 @@ begin
     ['Antialiased', 'Division', 'Line*', 'NodeSize']);
   RegisterPropertiesInCategory(strVisualCategoryName, TGLCube, ['Cube*']);
   RegisterPropertiesInCategory(strVisualCategoryName, TGLFrustrum, ['ApexHeight', 'Base*']);
-  // GLSpaceText
+
+  // GLS.SpaceText
   RegisterPropertiesInCategory(strLayoutCategoryName, [TypeInfo(TGLTextAdjust)]);
   RegisterPropertiesInCategory(strLocalizableCategoryName, [TypeInfo(TGLSpaceTextCharRange)]);
   RegisterPropertiesInCategory(strVisualCategoryName, [TypeInfo(TGLLineSplineMode),
@@ -1418,18 +1419,18 @@ begin
     ['Bottom*', 'Loops', 'Slices', 'Stacks', 'Top*']);
   RegisterPropertiesInCategory(strVisualCategoryName, TGLPolygon, ['Division']);
 
-  // GLMultiPolygon
+  // GLS.MultiPolygon
   RegisterPropertiesInCategory(strVisualCategoryName, TGLContour, ['Division']);
   RegisterPropertiesInCategory(strOpenGLCategoryName, [TypeInfo(TGLContourNodes), TypeInfo(TGLContours)]);
 
-  // GLExtrusion
+  // GLS.Extrusion
   RegisterPropertiesInCategory(strVisualCategoryName, TGLExtrusionSolid, ['Stacks']);
   RegisterPropertiesInCategory(strVisualCategoryName, TGLPipeNode, ['RadiusFactor']);
   RegisterPropertiesInCategory(strVisualCategoryName, TGLPipe, ['Division', 'Radius', 'Slices']);
   RegisterPropertiesInCategory(strVisualCategoryName, [TypeInfo(TGLNodes), TypeInfo(TPipeNodesColorMode)]);
   RegisterPropertiesInCategory(strVisualCategoryName, TGLRevolutionSolid, ['Division', 'Slices', 'YOffsetPerTurn']);
 
-  // GLVectorFileObjects
+  // GLS.VectorFileObjects
   RegisterPropertiesInCategory(strOpenGLCategoryName, [TypeInfo(TGLActorAnimationMode), TypeInfo(TGLActorAnimations),
     TypeInfo(TGLMeshAutoCenterings), TypeInfo(TGLActorFrameInterpolation),
     TypeInfo(TGLActorAnimationReference), TypeInfo(TGLActor)]);
@@ -1444,21 +1445,21 @@ begin
     ['*Frame*', 'Interval', 'OverlaySkeleton', 'UseMeshmaterials']);
   RegisterPropertiesInCategory(strVisualCategoryName, TGLActor,  ['OverlaySkeleton']);
 
-  // GLMesh
+  // GLS.Mesh
   RegisterPropertiesInCategory(strOpenGLCategoryName, [TypeInfo(TGLMeshMode), TypeInfo(TGLVertexMode)]);
 
-  // GLGraph
+  // GLS.Graph
   RegisterPropertiesInCategory(strOpenGLCategoryName, [TypeInfo(TGLHeightFieldOptions)]);
   RegisterPropertiesInCategory(strVisualCategoryName, [TypeInfo(TGLHeightFieldColorMode), TypeInfo(TGLSamplingScale),
     TypeInfo(TGLXYZGridLinesStyle), TypeInfo(TGLXYZGridParts)]);
   RegisterPropertiesInCategory(strOpenGLCategoryName, TGLXYZGrid, ['Antialiased']);
   RegisterPropertiesInCategory(strVisualCategoryName, TGLXYZGrid, ['Antialiased', 'Line*']);
 
-  // GLParticles
+  // GLS.Particles
   RegisterPropertiesInCategory(strLayoutCategoryName, TGLParticles, ['VisibleAtRunTime']);
   RegisterPropertiesInCategory(strVisualCategoryName, TGLParticles, ['*Size', 'VisibleAtRunTime']);
 
-  // GLSkydome
+  // GLS.Skydome
   RegisterPropertiesInCategory(strOpenGLCategoryName,
     [TypeInfo(TGLSkyDomeBands), TypeInfo(TGLSkyDomeOptions), TypeInfo(TGLSkyDomeStars)]);
   RegisterPropertiesInCategory(strVisualCategoryName, TGLSkyDomeBand, ['Slices', 'Stacks', '*Angle']);
@@ -1466,11 +1467,11 @@ begin
   RegisterPropertiesInCategory(strOpenGLCategoryName, TGLEarthSkyDome,
     ['Slices', 'Stacks', 'SunElevation', 'Turbidity']);
 
-  // GLMirror
+  // GLS.Mirror
   RegisterPropertiesInCategory(strOpenGLCategoryName,
     [TypeInfo(TGLMirrorOptions), TypeInfo(TGLBaseSceneObject)]);
 
-  // GLParticleFX
+  // GLS.ParticleFX
   RegisterPropertiesInCategory(strOpenGLCategoryName, [TypeInfo(TGLBlendingMode)]);
   RegisterPropertiesInCategory(strVisualCategoryName,
     [TypeInfo(TGLBlendingMode), TypeInfo(TPFXLifeColors), TypeInfo(TSpriteColorMode)]);
@@ -1482,48 +1483,48 @@ begin
   RegisterPropertiesInCategory(strVisualCategoryName, TGLPolygonPFXManager, ['NbSides']);
   RegisterPropertiesInCategory(strVisualCategoryName, TGLPointLightPFXManager, ['TexMapSize']);
 
-  // GLTerrainRenderer
+  // GLS.TerrainRenderer
   RegisterPropertiesInCategory(strOpenGLCategoryName, [TypeInfo(TGLHeightDataSource)]);
   RegisterPropertiesInCategory(strVisualCategoryName, TGLTerrainRenderer, ['*CLOD*', 'QualityDistance', 'Tile*']);
 
-  // GLzBuffer
+  // GLS.zBuffer
   RegisterPropertiesInCategory(strOpenGLCategoryName, [TypeInfo(TGLMemoryViewer),
     TypeInfo(TGLSceneViewer), TypeInfo(TOptimise)]);
   RegisterPropertiesInCategory(strVisualCategoryName, [TypeInfo(TOptimise)]);
   RegisterPropertiesInCategory(strVisualCategoryName, TGLZShadows, ['DepthFade', '*Shadow', 'Soft', 'Tolerance']);
 
-  // GLHUDObjects
+  // GLS.HUDObjects
   RegisterPropertiesInCategory(strLayoutCategoryName, [TypeInfo(TTextLayout)]);
   RegisterPropertiesInCategory(strVisualCategoryName, [TypeInfo(TGLBitmapFont), TypeInfo(TTextLayout)]);
   RegisterPropertiesInCategory(strLocalizableCategoryName,[TypeInfo(TGLBitmapFont)]);
 
-  // GLTexture
+  // GLS.Texture
   RegisterPropertiesInCategory(strOpenGLCategoryName, [TypeInfo(TGLMaterial), TypeInfo(TGLMaterialLibrary),
     TypeInfo(TGLLibMaterials), TypeInfo(TGLTextureNeededEvent)]);
   RegisterPropertiesInCategory(strOpenGLCategoryName, TGLLibMaterial, ['Texture2Name']);
   RegisterPropertiesInCategory(strVisualCategoryName, TGLLibMaterial, ['TextureOffset', 'TextureScale']);
   RegisterPropertiesInCategory(strOpenGLCategoryName, TGLMaterialLibrary, ['TexturePaths']);
 
-  // GLCadencer
+  // GLS.Cadencer
   RegisterPropertiesInCategory(strOpenGLCategoryName, [TypeInfo(TGLCadencer)]);
 
-  // GLCollision
+  // GLS.Collision
   RegisterPropertiesInCategory(strOpenGLCategoryName, [TypeInfo(TObjectCollisionEvent)]);
 
-  // GLFireFX
+  // GLS.FireFX
   RegisterPropertiesInCategory(strOpenGLCategoryName, TGLFireFXManager,
     ['MaxParticles', 'NoZWrite', 'Paused', 'UseInterval']);
   RegisterPropertiesInCategory(strVisualCategoryName, TGLFireFXManager,
     ['Fire*', 'InitialDir', 'NoZWrite', 'Particle*', 'Paused']);
 
-  // GLThorFX
+  // GLS.ThorFX
   RegisterPropertiesInCategory(strOpenGLCategoryName, [TypeInfo(TCalcPointEvent)]);
   RegisterPropertiesInCategory(strOpenGLCategoryName, TGLThorFXManager,
     ['Maxpoints', 'Paused']);
   RegisterPropertiesInCategory(strVisualCategoryName, TGLThorFXManager,
     ['Core', 'Glow*', 'Paused', 'Target', 'Vibrate', 'Wildness']);
 
-  // GLBitmapFont
+  // GLS.BitmapFont
   RegisterPropertiesInCategory(strOpenGLCategoryName, [TypeInfo(TGLMagFilter), TypeInfo(TGLMinFilter)]);
   RegisterPropertiesInCategory(strLocalizableCategoryName, [TypeInfo(TGLBitmapFontRanges)]);
   RegisterPropertiesInCategory(strLocalizableCategoryName, TGLBitmapFontRange, ['*ASCII']);
@@ -1532,15 +1533,14 @@ begin
   RegisterPropertiesInCategory(strVisualCategoryName, TGLBitmapFont,
     ['Char*', '*Interval*', '*Space', 'Glyphs']);
 
-  // GLHeightData
+  // GLS.HeightData
   RegisterPropertiesInCategory(strOpenGLCategoryName, TGLBitmapHDS, ['MaxPoolSize']);
   RegisterPropertiesInCategory(strVisualCategoryName, TGLBitmapHDS, ['Picture']);
 end;
 
-// ******************************************************
+//**************************************************************************
 // Register Components
-//*******************************************************
-
+//**************************************************************************
 procedure Register;
 begin
   RegisterComponents('GLScene', [TGLScene, TGLSceneViewer, TGLMemoryViewer,
@@ -1588,7 +1588,7 @@ begin
   RegisterPropertyEditor(TypeInfo(string), TGLTexture, 'ImageClassName', TGLImageClassProperty);
   RegisterPropertyEditor(TypeInfo(TGLSoundFile), TGLSoundSample, '', TGLSoundFileProperty);
   RegisterPropertyEditor(TypeInfo(string), TGLBaseSoundSource, 'SoundName', TGLSoundNameProperty);
-  RegisterPropertyEditor(TypeInfo(TGCoordinates), nil, '', TGLCoordinatesProperty);
+  RegisterPropertyEditor(TypeInfo(TgCoordinates), nil, '', TGLCoordinatesProperty);
   RegisterPropertyEditor(TypeInfo(TGColor), nil, '', TGLColorProperty);
   RegisterPropertyEditor(TypeInfo(TGLMaterial), nil, '', TGLMaterialProperty);
   RegisterComponentEditor(TGLGuiLayout, TGLGUILayoutEditor);
@@ -1647,6 +1647,8 @@ begin
   RegisterPropertyEditor(TypeInfo(TStringList), TGLShaderEx, 'Source', TGLShaderEditorProperty);
 end;
 
+//----------------------------------------------------------------------------
+
 function GetGLSceneVersion: string;
 var
   LProject: IOTAProject;
@@ -1713,9 +1715,7 @@ begin
   end;
 end;
 
-// ------------------------------------------------------------------
-initialization
-// ------------------------------------------------------------------
+initialization // ------------------------------------------------------------
 
   SplashScreenServices.AddPluginBitmap(GetGLSceneVersion, LoadBitmap(HInstance, 'TGLScene'),
     False, 'MPL 2.0 license', 'VCL version');
@@ -1853,9 +1853,7 @@ begin
   RegisterSceneObject(TGLFBORenderer, 'OpenGL FrameBuffer', '', HInstance);
 end;
 
-//------------------------------------------------------
-finalization
-//------------------------------------------------------
+finalization // ------------------------------------------------------------------
 
 ObjectManager.Free;
 

Source/GLS.Selection.pas

@@ -38,7 +38,7 @@ type
 
   (* List class for object picking.
      This list is used to store the results of a PickObjects call. *)
-  TGLPickList = class(TGPersistentObjectList)
+  TGLPickList = class(TgPersistentObjectList)
   private
     function GetFar(aValue: Integer): Single;
     function GetHit(aValue: Integer): TObject;

Source/GLS.ShadowHDS.pas

@@ -54,8 +54,8 @@ type
   private
     FTileSize: integer;
     FShadowmapLibrary: TGLMaterialLibrary;
-    FLightVector: TGCoordinates;
-    FScale: TGCoordinates;
+    FLightVector: TgCoordinates;
+    FScale: TgCoordinates;
     FScaleVec: TVector3f;
     FOnNewTilePrepared: TNewTilePreparedEvent;
     FOnThreadBmp32: TThreadBmp32;
@@ -69,8 +69,8 @@ type
     OwnerHDS: TGLHeightDataSource; // The owner of the tile
   protected
     procedure SetShadowmapLibrary(const val: TGLMaterialLibrary);
-    procedure SetScale(AValue: TGCoordinates);
-    procedure SetLightVector(AValue: TGCoordinates);
+    procedure SetScale(AValue: TgCoordinates);
+    procedure SetLightVector(AValue: TgCoordinates);
     procedure SetSoftRange(AValue: cardinal);
     procedure SetDiffuse(AValue: single);
     procedure SetAmbient(AValue: single);
@@ -122,8 +122,8 @@ type
     property ShadowmapLibrary: TGLMaterialLibrary read FShadowmapLibrary write SetShadowmapLibrary;
     property OnThreadBmp32: TThreadBmp32 read FOnThreadBmp32 write FOnThreadBmp32; // WARNING: This runs in a subthread
     property OnNewTilePrepared: TNewTilePreparedEvent read FOnNewTilePrepared write FOnNewTilePrepared;
-    property LightVector: TGCoordinates read FLightVector write SetLightVector;
-    property scale: TGCoordinates read FScale write FScale;
+    property LightVector: TgCoordinates read FLightVector write SetLightVector;
+    property scale: TgCoordinates read FScale write FScale;
     property ScanDistance: integer read FScanDistance write FScanDistance;
     property SoftRange: cardinal read FSoftRange write SetSoftRange;
     // Shadow height above sufrace for max diffuse light
@@ -140,9 +140,9 @@ implementation
 constructor TGLShadowHDS.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
-  FLightVector := TGCoordinates.CreateInitialized(Self, VectorMake(1, 0, -1));
+  FLightVector := TgCoordinates.CreateInitialized(Self, VectorMake(1, 0, -1));
   FLightVector.Style := csVector; // csPoint;
-  FScale := TGCoordinates.CreateInitialized(Self, VectorMake(1, 1, 1));
+  FScale := TgCoordinates.CreateInitialized(Self, VectorMake(1, 1, 1));
   FScale.Style := csVector; // csPoint;
   FScanDistance := 64;
   FAmbient := 0.25;
@@ -250,7 +250,7 @@ begin
   end;
 end;
 
-procedure TGLShadowHDS.SetLightVector(AValue: TGCoordinates);
+procedure TGLShadowHDS.SetLightVector(AValue: TgCoordinates);
 begin
   With OwnerHDS.Data.LockList do
     try
@@ -733,7 +733,7 @@ begin
   end;
 end;
 
-procedure TGLShadowHDS.SetScale(AValue: TGCoordinates);
+procedure TGLShadowHDS.SetScale(AValue: TgCoordinates);
 begin
   with OwnerHDS.Data.LockList do
     try

Source/GLS.ShadowPlane.pas

@@ -21,7 +21,7 @@ uses
 
   GLScene.OpenGLTokens,
   GLScene.PersistentClasses,
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
   GLScene.VectorTypes,
   GLS.Scene,
   GLScene.VectorGeometry,

Source/GLS.ShadowVolume.pas

@@ -26,7 +26,7 @@ uses
   GLS.Silhouette,
   GLScene.PersistentClasses,
   GLScene.Coordinates,
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
   GLScene.GeometryBB,
   GLScene.Color,
   GLS.Selection,
@@ -119,7 +119,7 @@ type
   // Specifies an individual shadow casting light.
   TGLShadowVolumeLight = class(TGLShadowVolumeCaster)
   private
-    FSilhouettes: TGPersistentObjectList;
+    FSilhouettes: TgPersistentObjectList;
   protected
     function GetLightSource: TGLLightSource;
     procedure SetLightSource(const ls: TGLLightSource);
@@ -326,7 +326,7 @@ end;
 constructor TGLShadowVolumeLight.Create(ACollection: TCollection);
 begin
   inherited Create(ACollection);
-  FSilhouettes := TGPersistentObjectList.Create;
+  FSilhouettes := TgPersistentObjectList.Create;
 end;
 
 destructor TGLShadowVolumeLight.Destroy;

Source/GLS.Silhouette.pas

@@ -40,20 +40,20 @@ type
   TGLSilhouette = class
   private
     FVertices: TGVectorList;
-    FIndices: TGIntegerList;
-    FCapIndices: TGIntegerList;
+    FIndices: TgIntegerList;
+    FCapIndices: TgIntegerList;
     FParameters: TGLSilhouetteParameters;
   protected
-    procedure SetIndices(const value: TGIntegerList);
-    procedure SetCapIndices(const value: TGIntegerList);
+    procedure SetIndices(const value: TgIntegerList);
+    procedure SetCapIndices(const value: TgIntegerList);
     procedure SetVertices(const value: TGVectorList);
   public
     constructor Create; virtual;
     destructor Destroy; override;
     property Parameters: TGLSilhouetteParameters read FParameters write FParameters;
     property Vertices: TGVectorList read FVertices write SetVertices;
-    property Indices: TGIntegerList read FIndices write SetIndices;
-    property CapIndices: TGIntegerList read FCapIndices write SetCapIndices;
+    property Indices: TgIntegerList read FIndices write SetIndices;
+    property CapIndices: TgIntegerList read FCapIndices write SetCapIndices;
     procedure Flush; virtual;
     procedure Clear; inline;
     procedure ExtrudeVerticesToInfinity(const origin: TAffineVector);
@@ -92,12 +92,12 @@ type
       it'd be nicer with Structs or classes, but it's actually faster this way.
       The reason it's faster is because of less cache overwrites when we only
       access a tiny bit of a triangle (for instance), not all data. *)
-    FEdgeVertices: TGIntegerList;
-    FEdgeFaces: TGIntegerList;
+    FEdgeVertices: TgIntegerList;
+    FEdgeFaces: TgIntegerList;
     FFaceVisible: TGByteList;
-    FFaceVertexIndex: TGIntegerList;
+    FFaceVertexIndex: TgIntegerList;
     FFaceNormal: TGAffineVectorList;
-    FVertexMemory: TGIntegerList;
+    FVertexMemory: TgIntegerList;
     FVertices: TGAffineVectorList;
     function GetEdgeCount: integer;
     function GetFaceCount: integer;
@@ -127,8 +127,8 @@ constructor TGLSilhouette.Create;
 begin
   inherited;
   FVertices := TGVectorList.Create;
-  FIndices := TGIntegerList.Create;
-  FCapIndices := TGIntegerList.Create;
+  FIndices := TgIntegerList.Create;
+  FCapIndices := TgIntegerList.Create;
 end;
 
 destructor TGLSilhouette.Destroy;
@@ -139,12 +139,12 @@ begin
   inherited;
 end;
 
-procedure TGLSilhouette.SetIndices(const value: TGIntegerList);
+procedure TGLSilhouette.SetIndices(const value: TgIntegerList);
 begin
   FIndices.Assign(value);
 end;
 
-procedure TGLSilhouette.SetCapIndices(const value: TGIntegerList);
+procedure TGLSilhouette.SetCapIndices(const value: TgIntegerList);
 begin
   FCapIndices.Assign(value);
 end;
@@ -273,12 +273,12 @@ end;
 constructor TGLConnectivity.Create(APrecomputeFaceNormal: Boolean);
 begin
   FFaceVisible := TGByteList.Create;
-  FFaceVertexIndex := TGIntegerList.Create;
+  FFaceVertexIndex := TgIntegerList.Create;
   FFaceNormal := TGAffineVectorList.Create;
-  FEdgeVertices := TGIntegerList.Create;
-  FEdgeFaces := TGIntegerList.Create;
+  FEdgeVertices := TgIntegerList.Create;
+  FEdgeFaces := TgIntegerList.Create;
   FPrecomputeFaceNormal := APrecomputeFaceNormal;
-  FVertexMemory := TGIntegerList.Create;
+  FVertexMemory := TgIntegerList.Create;
   FVertices := TGAffineVectorList.Create;
 end;
 

Source/GLS.SmartObjects.pas

@@ -32,7 +32,7 @@ uses
   GLScene.VectorTypes,
   GLScene.VectorTypesExt,
   GLScene.Strings,
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
 
   GLS.Scene,
   GLScene.VectorLists,
@@ -71,7 +71,7 @@ type
   TGLCyborgThinks = class(TCollection);
 
   // A list of thinking periods for TGLCyborgThinkMode
-  TGLCyborgThinksList = class(TGPersistentObjectList);
+  TGLCyborgThinksList = class(TgPersistentObjectList);
 
 const
   cDefaultCyborgOptions = [coCollide];

Source/GLS.SmoothNavigator.pas

@@ -123,10 +123,10 @@ type
   // Smoothly change any Vector4f value, so it will become TargetValue in the end.
   TGLNavigatorSmoothChangeVector = class(TGLNavigatorSmoothChangeItem)
   private
-    FTargetValue: TGCoordinates;
+    FTargetValue: TgCoordinates;
     FOnGetCurrentValue: TGLNavigatorSmoothChangeVectorGetEvent;
     FOnSetCurrentValue: TGLNavigatorSmoothChangeVectorSetEvent;
-    procedure SetTargetValue(const Value: TGCoordinates);
+    procedure SetTargetValue(const Value: TgCoordinates);
   public
     class function FriendlyName: string; override;
     function Proceed(ADeltaTime: Double): Boolean; override;
@@ -135,7 +135,7 @@ type
     destructor Destroy; override;
     procedure ResetTargetValue(); override;
   published
-    property TargetValue: TGCoordinates read FTargetValue write SetTargetValue;
+    property TargetValue: TgCoordinates read FTargetValue write SetTargetValue;
     property OnGetCurrentValue: TGLNavigatorSmoothChangeVectorGetEvent read FOnGetCurrentValue write FOnGetCurrentValue;
     property OnSetCurrentValue: TGLNavigatorSmoothChangeVectorSetEvent read FOnSetCurrentValue write FOnSetCurrentValue;
   end;
@@ -372,9 +372,9 @@ type
     FSmoothNavigator: TGLSmoothNavigator;
     FSmoothVertNavigator: TGLSmoothNavigator;
     FInvertMouse: Boolean;
-    FOriginalMousePos: TGCoordinates2;
+    FOriginalMousePos: TgCoordinates2;
     procedure SetSmoothNavigator(const Value: TGLSmoothNavigator); virtual;
-    procedure SetOriginalMousePos(const Value: TGCoordinates2); virtual;
+    procedure SetOriginalMousePos(const Value: TgCoordinates2); virtual;
     procedure SetSmoothVertNavigator(const Value: TGLSmoothNavigator); virtual;
     procedure SetMouseLookActive(const Value: Boolean); virtual;
   protected
@@ -394,7 +394,7 @@ type
     property SmoothVertNavigator: TGLSmoothNavigator read FSmoothVertNavigator write SetSmoothVertNavigator;
     property SmoothNavigator: TGLSmoothNavigator read FSmoothNavigator write SetSmoothNavigator;
     property InvertMouse: Boolean read FInvertMouse write FInvertMouse default False;
-    property OriginalMousePos: TGCoordinates2 read FOriginalMousePos write SetOriginalMousePos;
+    property OriginalMousePos: TgCoordinates2 read FOriginalMousePos write SetOriginalMousePos;
   end;
 
 //----------------------------------------------------
@@ -906,7 +906,7 @@ begin
   inherited;
   FMouseLookActive := False;
   FAutoUpdateMouse := True;
-  FOriginalMousePos := TGCoordinates2.CreateInitialized(Self,
+  FOriginalMousePos := TgCoordinates2.CreateInitialized(Self,
                              VectorMake(GLGetScreenWidth div 2,
                              GLGetScreenHeight div 2, 0, 0), csPoint2D);
 end;
@@ -943,7 +943,7 @@ begin
 end;
 
 procedure TGLSmoothUserInterface.SetOriginalMousePos(
-  const Value: TGCoordinates2);
+  const Value: TgCoordinates2);
 begin
   FOriginalMousePos.Assign(Value);
 end;
@@ -1548,7 +1548,7 @@ end;
 constructor TGLNavigatorSmoothChangeVector.Create(aOwner: TXCollection);
 begin
   inherited;
-  FTargetValue := TGCoordinates.CreateInitialized(Self, NullHmgVector, csVector);
+  FTargetValue := TgCoordinates.CreateInitialized(Self, NullHmgVector, csVector);
 end;
 
 destructor TGLNavigatorSmoothChangeVector.Destroy;
@@ -1617,7 +1617,7 @@ begin
 end;
 
 procedure TGLNavigatorSmoothChangeVector.SetTargetValue(
-  const Value: TGCoordinates);
+  const Value: TgCoordinates);
 begin
   FTargetValue.Assign(Value);
 end;

Source/GLS.SpacePartition.pas

@@ -109,7 +109,7 @@ type
   end;
 
   // List for storing space partition leaves
-  TGLSpacePartitionLeafList = class(TGPersistentObjectList)
+  TGLSpacePartitionLeafList = class(TgPersistentObjectList)
   private
     function GetItems(I: Integer): TGLSpacePartitionLeaf;
     procedure SetItems(I: Integer; const Value: TGLSpacePartitionLeaf);

Source/GLS.TerrainRenderer.pas

@@ -69,7 +69,7 @@ type
     FMaxCLODTriangles, FCLODPrecision: Integer;
     FBufferVertices: TGAffineVectorList;
     FBufferTexPoints: TGTexPointList;
-    FBufferVertexIndices: TGIntegerList;
+    FBufferVertexIndices: TgIntegerList;
     FMaterialLibrary: TGLMaterialLibrary;
     FOnGetTerrainBounds: TGetTerrainBoundsEvent;
     FOnPatchPostRender: TPatchPostRenderEvent;
@@ -243,7 +243,7 @@ begin
   FOcclusionTesselate := totTesselateIfVisible;
   FBufferVertices := TGAffineVectorList.Create;
   FBufferTexPoints := TGTexPointList.Create;
-  FBufferVertexIndices := TGIntegerList.Create;
+  FBufferVertexIndices := TgIntegerList.Create;
   TileManagement := [tmClearUsedFlags, tmMarkUsedTiles, tmReleaseUnusedTiles,
     tmAllocateNewTiles];
 end;

Source/GLS.Texture.pas

@@ -29,7 +29,7 @@ uses
   GLScene.Coordinates,
   GLS.RenderContextInfo,
   GLScene.PersistentClasses,
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
   GLS.ImageUtils,
   GLScene.TextureFormat,
   GLS.ApplicationFileIO,
@@ -386,10 +386,10 @@ type
     FImageBrightness: Single;
     FImageGamma: Single;
     FMappingMode: TGLTextureMappingMode;
-    FMapSCoordinates: TGCoordinates4;
-    FMapTCoordinates: TGCoordinates4;
-    FMapRCoordinates: TGCoordinates4;
-    FMapQCoordinates: TGCoordinates4;
+    FMapSCoordinates: TgCoordinates4;
+    FMapTCoordinates: TgCoordinates4;
+    FMapRCoordinates: TgCoordinates4;
+    FMapQCoordinates: TgCoordinates4;
     FOnTextureNeeded: TGLTextureNeededEvent;
     FCompression: TGLTextureCompression;
     FRequiredMemorySize: Integer;
@@ -428,17 +428,17 @@ type
     procedure SetCompression(const val: TGLTextureCompression);
     procedure SetFilteringQuality(const val: TGLTextureFilteringQuality);
     procedure SetMappingMode(const val: TGLTextureMappingMode);
-    function GetMappingSCoordinates: TGCoordinates4;
-    procedure SetMappingSCoordinates(const val: TGCoordinates4);
+    function GetMappingSCoordinates: TgCoordinates4;
+    procedure SetMappingSCoordinates(const val: TgCoordinates4);
     function StoreMappingSCoordinates: Boolean;
-    function GetMappingTCoordinates: TGCoordinates4;
-    procedure SetMappingTCoordinates(const val: TGCoordinates4);
+    function GetMappingTCoordinates: TgCoordinates4;
+    procedure SetMappingTCoordinates(const val: TgCoordinates4);
     function StoreMappingTCoordinates: Boolean;
-    function GetMappingRCoordinates: TGCoordinates4;
-    procedure SetMappingRCoordinates(const val: TGCoordinates4);
+    function GetMappingRCoordinates: TgCoordinates4;
+    procedure SetMappingRCoordinates(const val: TgCoordinates4);
     function StoreMappingRCoordinates: Boolean;
-    function GetMappingQCoordinates: TGCoordinates4;
-    procedure SetMappingQCoordinates(const val: TGCoordinates4);
+    function GetMappingQCoordinates: TgCoordinates4;
+    procedure SetMappingQCoordinates(const val: TgCoordinates4);
     function StoreMappingQCoordinates: Boolean;
     procedure SetDisabled(AValue: Boolean);
     procedure SetEnabled(const val: Boolean);
@@ -580,13 +580,13 @@ type
     (* Texture mapping coordinates mode for S, T, R and Q axis.
     This property stores the coordinates for automatic texture
     coordinates generation *)
-    property MappingSCoordinates: TGCoordinates4 read GetMappingSCoordinates
+    property MappingSCoordinates: TgCoordinates4 read GetMappingSCoordinates
       write SetMappingSCoordinates stored StoreMappingSCoordinates;
-    property MappingTCoordinates: TGCoordinates4 read GetMappingTCoordinates
+    property MappingTCoordinates: TgCoordinates4 read GetMappingTCoordinates
       write SetMappingTCoordinates stored StoreMappingTCoordinates;
-    property MappingRCoordinates: TGCoordinates4 read GetMappingRCoordinates
+    property MappingRCoordinates: TgCoordinates4 read GetMappingRCoordinates
       write SetMappingRCoordinates stored StoreMappingRCoordinates;
-    property MappingQCoordinates: TGCoordinates4 read GetMappingQCoordinates
+    property MappingQCoordinates: TgCoordinates4 read GetMappingQCoordinates
       write SetMappingQCoordinates stored StoreMappingQCoordinates;
     // Texture Environment color
     property EnvColor: TGColor read FEnvColor write SetEnvColor;
@@ -615,7 +615,7 @@ type
   private
     FTexture: TGLTexture;
     FTextureIndex: Integer;
-    FTextureOffset, FTextureScale: TGCoordinates;
+    FTextureOffset, FTextureScale: TgCoordinates;
     FTextureMatrixIsIdentity: Boolean;
     FTextureMatrix: TGLMatrix;
     FApplied: Boolean;
@@ -628,8 +628,8 @@ type
     function GetOwner: TPersistent; override;
     procedure SetTexture(const Value: TGLTexture);
     procedure SetTextureIndex(const Value: Integer);
-    procedure SetTextureOffset(const Value: TGCoordinates);
-    procedure SetTextureScale(const Value: TGCoordinates);
+    procedure SetTextureOffset(const Value: TgCoordinates);
+    procedure SetTextureScale(const Value: TgCoordinates);
     procedure NotifyTexMapChange(Sender: TObject);
     procedure CalculateTextureMatrix;
     procedure OnNotifyChange(Sender: TObject);
@@ -643,8 +643,8 @@ type
   published
     property Texture: TGLTexture read FTexture write SetTexture;
     property TextureIndex: Integer read FTextureIndex write SetTextureIndex;
-    property TextureOffset: TGCoordinates read FTextureOffset write SetTextureOffset;
-    property TextureScale: TGCoordinates read FTextureScale write SetTextureScale;
+    property TextureOffset: TgCoordinates read FTextureOffset write SetTextureOffset;
+    property TextureScale: TgCoordinates read FTextureScale write SetTextureScale;
   end;
 
   TGLTextureEx = class(TCollection)
@@ -2179,15 +2179,15 @@ begin
   end;
 end;
 
-procedure TGLTexture.SetMappingSCoordinates(const val: TGCoordinates4);
+procedure TGLTexture.SetMappingSCoordinates(const val: TgCoordinates4);
 begin
   MappingSCoordinates.Assign(val);
 end;
 
-function TGLTexture.GetMappingSCoordinates: TGCoordinates4;
+function TGLTexture.GetMappingSCoordinates: TgCoordinates4;
 begin
   if not Assigned(FMapSCoordinates) then
-    FMapSCoordinates := TGCoordinates4.CreateInitialized(Self, XHmgVector, csVector);
+    FMapSCoordinates := TgCoordinates4.CreateInitialized(Self, XHmgVector, csVector);
   Result := FMapSCoordinates;
 end;
 
@@ -2199,15 +2199,15 @@ begin
     Result := false;
 end;
 
-procedure TGLTexture.SetMappingTCoordinates(const val: TGCoordinates4);
+procedure TGLTexture.SetMappingTCoordinates(const val: TgCoordinates4);
 begin
   MappingTCoordinates.Assign(val);
 end;
 
-function TGLTexture.GetMappingTCoordinates: TGCoordinates4;
+function TGLTexture.GetMappingTCoordinates: TgCoordinates4;
 begin
   if not Assigned(FMapTCoordinates) then
-    FMapTCoordinates := TGCoordinates4.CreateInitialized(Self, YHmgVector,
+    FMapTCoordinates := TgCoordinates4.CreateInitialized(Self, YHmgVector,
       csVector);
   Result := FMapTCoordinates;
 end;
@@ -2220,15 +2220,15 @@ begin
     Result := false;
 end;
 
-procedure TGLTexture.SetMappingRCoordinates(const val: TGCoordinates4);
+procedure TGLTexture.SetMappingRCoordinates(const val: TgCoordinates4);
 begin
   MappingRCoordinates.Assign(val);
 end;
 
-function TGLTexture.GetMappingRCoordinates: TGCoordinates4;
+function TGLTexture.GetMappingRCoordinates: TgCoordinates4;
 begin
   if not Assigned(FMapRCoordinates) then
-    FMapRCoordinates := TGCoordinates4.CreateInitialized(Self, ZHmgVector,
+    FMapRCoordinates := TgCoordinates4.CreateInitialized(Self, ZHmgVector,
       csVector);
   Result := FMapRCoordinates;
 end;
@@ -2241,15 +2241,15 @@ begin
     Result := false;
 end;
 
-procedure TGLTexture.SetMappingQCoordinates(const val: TGCoordinates4);
+procedure TGLTexture.SetMappingQCoordinates(const val: TgCoordinates4);
 begin
   MappingQCoordinates.Assign(val);
 end;
 
-function TGLTexture.GetMappingQCoordinates: TGCoordinates4;
+function TGLTexture.GetMappingQCoordinates: TgCoordinates4;
 begin
   if not Assigned(FMapQCoordinates) then
-    FMapQCoordinates := TGCoordinates4.CreateInitialized(Self, WHmgVector,
+    FMapQCoordinates := TgCoordinates4.CreateInitialized(Self, WHmgVector,
       csVector);
   Result := FMapQCoordinates;
 end;
@@ -2958,10 +2958,10 @@ begin
   inherited;
 
   FTexture := TGLTexture.Create(Self);
-  FTextureOffset := TGCoordinates.CreateInitialized(Self, NullHMGVector,
+  FTextureOffset := TgCoordinates.CreateInitialized(Self, NullHMGVector,
     csPoint);
   FTextureOffset.OnNotifyChange := OnNotifyChange;
-  FTextureScale := TGCoordinates.CreateInitialized(Self, XYZHmgVector,
+  FTextureScale := TgCoordinates.CreateInitialized(Self, XYZHmgVector,
     csPoint);
   FTextureScale.OnNotifyChange := OnNotifyChange;
 
@@ -3106,13 +3106,13 @@ begin
   end;
 end;
 
-procedure TGLTextureExItem.SetTextureOffset(const Value: TGCoordinates);
+procedure TGLTextureExItem.SetTextureOffset(const Value: TgCoordinates);
 begin
   FTextureOffset.Assign(Value);
   NotifyChange(Self);
 end;
 
-procedure TGLTextureExItem.SetTextureScale(const Value: TGCoordinates);
+procedure TGLTextureExItem.SetTextureScale(const Value: TgCoordinates);
 begin
   FTextureScale.Assign(Value);
   NotifyChange(Self);

Source/GLS.ThorFX.pas

@@ -28,7 +28,7 @@ uses
   GLScene.BaseClasses,
   GLScene.Coordinates,
   GLS.RenderContextInfo,
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
   GLScene.Manager,
   GLS.State,
   GLScene.TextureFormat;
@@ -54,7 +54,7 @@ type
   private
     FClients: TList;
     FThorpoints: PThorpointArray;
-    FTarget: TGCoordinates;
+    FTarget: TgCoordinates;
     FCadencer: TGLCadencer;
     FMaxpoints: integer;
     FGlowSize: single;
@@ -68,7 +68,7 @@ type
     procedure RegisterClient(aClient: TGLBThorFX);
     procedure DeRegisterClient(aClient: TGLBThorFX);
     procedure DeRegisterAllClients;
-    procedure SetTarget(const val: TGCoordinates);
+    procedure SetTarget(const val: TgCoordinates);
     procedure SetCadencer(const val: TGLCadencer);
     procedure SetMaxpoints(const val: integer);
     function StoreGlowSize: boolean;
@@ -86,7 +86,7 @@ type
     destructor Destroy; override;
     procedure DoProgress(const progressTime: TGProgressTimes); override;
   published
-    property Target: TGCoordinates read FTarget write SetTarget;
+    property Target: TgCoordinates read FTarget write SetTarget;
     property Cadencer: TGLCadencer read FCadencer write SetCadencer;
     property Maxpoints: integer read FMaxpoints write SetMaxpoints default 256;
     property GlowSize: single read FGlowSize write FGlowSize stored StoreGlowSize;
@@ -106,13 +106,13 @@ type
   private
     FManager: TGLThorFXManager;
     FManagerName: String; // NOT persistent, temporarily used for persistence
-    FTarget: TGCoordinates;
+    FTarget: TgCoordinates;
   protected
     procedure SetManager(const val: TGLThorFXManager);
     procedure WriteToFiler(writer: TWriter); override;
     procedure ReadFromFiler(reader: TReader); override;
     procedure Loaded; override;
-    procedure SetTarget(const val: TGCoordinates);
+    procedure SetTarget(const val: TgCoordinates);
   public
     constructor Create(AOwner: TXCollection); override;
     destructor Destroy; override;
@@ -141,7 +141,7 @@ begin
   inherited Create(AOwner);
   FClients := TList.Create;
   RegisterManager(Self);
-  FTarget := TGCoordinates.CreateInitialized(Self, VectorMake(0, 1, 0));
+  FTarget := TgCoordinates.CreateInitialized(Self, VectorMake(0, 1, 0));
   FTarget.Style := csPoint;
   FMaxpoints := 64;
   FGlowSize := 0.2;
@@ -201,7 +201,7 @@ begin
   FClients.Clear;
 end;
 
-procedure TGLThorFXManager.SetTarget(const val: TGCoordinates);
+procedure TGLThorFXManager.SetTarget(const val: TgCoordinates);
 begin
   FTarget.Assign(val);
   ThorInit;
@@ -368,7 +368,7 @@ end;
 constructor TGLBThorFX.Create(AOwner: TXCollection);
 begin
   inherited Create(AOwner);
-  FTarget := TGCoordinates.CreateInitialized(Self, VectorMake(0, 1, 0));
+  FTarget := TgCoordinates.CreateInitialized(Self, VectorMake(0, 1, 0));
   FTarget.Style := csPoint;
 end;
 
@@ -442,7 +442,7 @@ begin
   inherited Assign(Source);
 end;
 
-procedure TGLBThorFX.SetTarget(const val: TGCoordinates);
+procedure TGLBThorFX.SetTarget(const val: TgCoordinates);
 begin
   FTarget.Assign(val);
 end;

Source/GLS.TilePlane.pas

@@ -30,7 +30,7 @@ type
   TGLTiledAreaRow = class(TGPersistentObject)
   private
     FColMin, FColMax: Integer;
-    FData: TGIntegerList;
+    FData: TgIntegerList;
   protected
     procedure SetColMin(const val: Integer);
     procedure SetColMax(const val: Integer);
@@ -44,10 +44,10 @@ type
     property Cell[col: Integer]: Integer read GetCell write SetCell; default;
     property ColMin: Integer read FColMin write SetColMin;
     property ColMax: Integer read FColMax write SetColMax;
-    property Data: TGIntegerList read FData;
+    property Data: TgIntegerList read FData;
     procedure Pack;
     function Empty: Boolean;
-    procedure RemapTiles(remapList: TGIntegerList);
+    procedure RemapTiles(remapList: TgIntegerList);
   end;
 
   (* Stores tile information in a tiled area.
@@ -56,7 +56,7 @@ type
   TGLTiledArea = class(TGPersistentObject)
   private
     FRowMin, FRowMax: Integer;
-    FRows: TGPersistentObjectList;
+    FRows: TgPersistentObjectList;
   protected
     procedure SetRowMin(const val: Integer);
     procedure SetRowMax(const val: Integer);
@@ -75,7 +75,7 @@ type
     procedure Pack;
     procedure Clear;
     function Empty: Boolean;
-    procedure RemapTiles(remapList: TGIntegerList);
+    procedure RemapTiles(remapList: TgIntegerList);
   end;
 
   (* A tiled textured plane.
@@ -128,7 +128,7 @@ implementation
 constructor TGLTiledAreaRow.Create;
 begin
   inherited;
-  FData := TGIntegerList.Create;
+  FData := TgIntegerList.Create;
   FColMin := 0;
   FColMax := -1;
 end;
@@ -207,7 +207,7 @@ begin
   Result := (FData.Count = 0);
 end;
 
-procedure TGLTiledAreaRow.RemapTiles(remapList: TGIntegerList);
+procedure TGLTiledAreaRow.RemapTiles(remapList: TgIntegerList);
 var
   i, k: Integer;
 begin
@@ -284,7 +284,7 @@ end;
 constructor TGLTiledArea.Create;
 begin
   inherited;
-  FRows := TGPersistentObjectList.Create;
+  FRows := TgPersistentObjectList.Create;
   FRowMax := -1;
 end;
 
@@ -373,7 +373,7 @@ begin
   Result := (FRows.Count = 0);
 end;
 
-procedure TGLTiledArea.RemapTiles(remapList: TGIntegerList);
+procedure TGLTiledArea.RemapTiles(remapList: TgIntegerList);
 var
   i: Integer;
   r: TGLTiledAreaRow;
@@ -542,7 +542,7 @@ end;
 procedure TGLTilePlane.BuildList(var rci: TGLRenderContextInfo);
 type
   TQuadListInfo = packed record
-    x, y: TGIntegerList;
+    x, y: TgIntegerList;
   end;
 
   procedure IssueQuad(col, row: Integer);
@@ -574,8 +574,8 @@ begin
     SetLength(quadInfos, MaterialLibrary.Materials.Count);
     for i := 0 to High(quadInfos) do
     begin // correction in (i:=0) from (i:=1)
-      quadInfos[i].x := TGIntegerList.Create;
-      quadInfos[i].y := TGIntegerList.Create;
+      quadInfos[i].x := TgIntegerList.Create;
+      quadInfos[i].y := TgIntegerList.Create;
     end;
     // collect quads into quadInfos, sorted by material
     for row := Tiles.RowMin to Tiles.RowMax do

Source/GLS.Tree.pas

@@ -79,8 +79,8 @@ type
     FBranchID: Integer;
     FParentID: Integer;
     FMatrix: TGLMatrix;
-    FLower: TGIntegerList;
-    FUpper: TGIntegerList;
+    FLower: TgIntegerList;
+    FUpper: TgIntegerList;
     FCentralLeader: Boolean;
     procedure BuildBranch(branchNoise: TGLTreeBranchNoise;
       const matrix: TGLMatrix; TexCoordY, Twist: Single; Level: Integer);
@@ -93,8 +93,8 @@ type
     property Right: TGLTreeBranch read FRight;
     property Parent: TGLTreeBranch read FParent;
     property matrix: TGLMatrix read FMatrix;
-    property Lower: TGIntegerList read FLower;
-    property Upper: TGIntegerList read FUpper;
+    property Lower: TgIntegerList read FLower;
+    property Upper: TgIntegerList read FUpper;
   end;
 
   TGLTreeBranches = class
@@ -105,11 +105,11 @@ type
     FVertices: TGAffineVectorList;
     FNormals: TGAffineVectorList;
     FTexCoords: TGAffineVectorList;
-    FIndices: TGIntegerList;
+    FIndices: TgIntegerList;
     FRoot: TGLTreeBranch;
     FCount: Integer;
     FBranchCache: TList;
-    FBranchIndices: TGIntegerList;
+    FBranchIndices: TgIntegerList;
     procedure BuildBranches;
   public
     constructor Create(AOwner: TGLTree);
@@ -371,8 +371,8 @@ constructor TGLTreeBranch.Create(AOwner: TGLTreeBranches;
 begin
   FOwner := AOwner;
   FParent := AParent;
-  FUpper := TGIntegerList.Create;
-  FLower := TGIntegerList.Create;
+  FUpper := TgIntegerList.Create;
+  FLower := TgIntegerList.Create;
   FCentralLeader := False;
 
   // Skeletal construction helpers
@@ -618,9 +618,9 @@ begin
   FVertices := TGAffineVectorList.Create;
   FNormals := TGAffineVectorList.Create;
   FTexCoords := TGAffineVectorList.Create;
-  FIndices := TGIntegerList.Create;
+  FIndices := TgIntegerList.Create;
   FBranchCache := TList.Create;
-  FBranchIndices := TGIntegerList.Create;
+  FBranchIndices := TgIntegerList.Create;
   FCount := 0;
 end;
 

Source/GLS.VectorFileObjects.pas

@@ -49,7 +49,7 @@ uses
   GLS.ApplicationFileIO,
   GLS.Context,
   GLScene.Color,
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
   GLS.Selection,
   GLS.XOpenGL,
   GLS.MeshUtils,
@@ -100,8 +100,8 @@ type
       The only valid modes are currently momTriangles and momTriangleStrip
       (ie. momFaceGroups not supported).
     *)
-    procedure BuildNormals(vertexIndices: TGIntegerList; mode: TGLMeshObjectMode;
-	  NormalIndices: TGIntegerList = nil);
+    procedure BuildNormals(vertexIndices: TgIntegerList; mode: TGLMeshObjectMode;
+	  NormalIndices: TgIntegerList = nil);
     // Builds normals faster without index calculations for the stripe mode
     procedure GenericOrderedBuildNormals (mode: TGLMeshObjectMode);
     (*
@@ -175,7 +175,7 @@ type
   end;
 
   // A list of TGLSkeletonFrame objects
-  TGLSkeletonFrameList = class(TGPersistentObjectList)
+  TGLSkeletonFrameList = class(TgPersistentObjectList)
   private
     FOwner: TPersistent;
   protected
@@ -196,7 +196,7 @@ type
   TGLSkeletonBone = class;
 
   // A list of skeleton bones
-  TGLSkeletonBoneList = class(TGPersistentObjectList)
+  TGLSkeletonBoneList = class(TgPersistentObjectList)
   private
     FSkeleton: TGLSkeleton; // not persistent
   protected
@@ -321,7 +321,7 @@ type
   end;
 
   // List class for storing TGLSkeletonCollider objects
-  TGLSkeletonColliderList = class(TGPersistentObjectList)
+  TGLSkeletonColliderList = class(TgPersistentObjectList)
   private
     FOwner: TPersistent;
   protected
@@ -549,7 +549,7 @@ type
   end;
 
   // A list of TGLMeshObject objects.
-  TGLMeshObjectList = class(TGPersistentObjectList)
+  TGLMeshObjectList = class(TgPersistentObjectList)
   private
     FOwner: TGLBaseMesh;
     // Returns True if all its MeshObjects use VBOs.
@@ -610,7 +610,7 @@ type
   end;
 
   // A list of TGLMeshMorphTarget objects. 
-  TGLMeshMorphTargetList = class(TGPersistentObjectList)
+  TGLMeshMorphTargetList = class(TgPersistentObjectList)
   private
     FOwner: TPersistent;
   protected
@@ -751,14 +751,14 @@ type
     in the order given by the vertices. *)
   TFGVertexIndexList = class(TGLFaceGroup)
   private
-    FVertexIndices: TGIntegerList;
+    FVertexIndices: TgIntegerList;
     FIndexVBO: TGLVBOElementArrayHandle;
     FMode: TGLFaceGroupMeshMode;
     procedure SetupVBO;
     procedure InvalidateVBO;
   protected
-    procedure SetVertexIndices(const val: TGIntegerList);
-    procedure AddToList(Source, destination: TGAffineVectorList; indices: TGIntegerList);
+    procedure SetVertexIndices(const val: TgIntegerList);
+    procedure AddToList(Source, destination: TGAffineVectorList; indices: TgIntegerList);
   public
     constructor Create; override;
     destructor Destroy; override;
@@ -776,7 +776,7 @@ type
     // Return the normal from the 1st three points in the facegroup
     function GetNormal: TAffineVector;
     property Mode: TGLFaceGroupMeshMode read FMode write FMode;
-    property VertexIndices: TGIntegerList read FVertexIndices write SetVertexIndices;
+    property VertexIndices: TgIntegerList read FVertexIndices write SetVertexIndices;
   end;
 
   (* Adds normals and texcoords indices.
@@ -784,11 +784,11 @@ type
     indices are optionnal, if missing (empty), VertexIndices will be used. *)
   TFGVertexNormalTexIndexList = class(TFGVertexIndexList)
   private
-    FNormalIndices: TGIntegerList;
-    FTexCoordIndices: TGIntegerList;
+    FNormalIndices: TgIntegerList;
+    FTexCoordIndices: TgIntegerList;
   protected
-    procedure SetNormalIndices(const val: TGIntegerList); inline;
-    procedure SetTexCoordIndices(const val: TGIntegerList); inline;
+    procedure SetNormalIndices(const val: TgIntegerList); inline;
+    procedure SetTexCoordIndices(const val: TgIntegerList); inline;
   public
     constructor Create; override;
     destructor Destroy; override;
@@ -798,8 +798,8 @@ type
     procedure AddToTriangles(aList: TGAffineVectorList; aTexCoords: TGAffineVectorList = nil;
       aNormals: TGAffineVectorList = nil); override;
     procedure Add(vertexIdx, normalIdx, texCoordIdx: Integer);
-    property NormalIndices: TGIntegerList read FNormalIndices write  SetNormalIndices;
-    property TexCoordIndices: TGIntegerList read FTexCoordIndices write  SetTexCoordIndices;
+    property NormalIndices: TgIntegerList read FNormalIndices write  SetNormalIndices;
+    property TexCoordIndices: TgIntegerList read FTexCoordIndices write  SetTexCoordIndices;
   end;
 
   (* Adds per index texture coordinates to its ancestor.
@@ -824,7 +824,7 @@ type
   end;
 
   // A list of TGLFaceGroup objects. 
-  TGLFaceGroups = class(TGPersistentObjectList)
+  TGLFaceGroups = class(TgPersistentObjectList)
   private
     FOwner: TGLMeshObject;
   protected
@@ -892,7 +892,7 @@ type
     FOverlaySkeleton: Boolean;
     FIgnoreMissingTextures: Boolean;
     FAutoCentering: TGLMeshAutoCenterings;
-    FAutoScaling: TGCoordinates;
+    FAutoScaling: TgCoordinates;
     FMaterialLibraryCachesPrepared: Boolean;
     FConnectivity: TObject;
     FLastLoadedFilename: string;
@@ -904,7 +904,7 @@ type
     procedure SetLightmapLibrary(const val: TGLMaterialLibrary);
     procedure SetNormalsOrientation(const val: TGLMeshNormalsOrientation);
     procedure SetOverlaySkeleton(const val: Boolean);
-    procedure SetAutoScaling(const Value: TGCoordinates);
+    procedure SetAutoScaling(const Value: TgCoordinates);
     procedure DestroyHandle; override;
     (* Invoked after creating a TGLVectorFile and before loading.
       Triggered by LoadFromFile/Stream and AddDataFromFile/Stream.
@@ -1002,7 +1002,7 @@ type
       no effect on already loaded mesh data or when adding from a file/stream.
       If you want to alter mesh data, use direct manipulation methods
       (on the TMeshObjects). *)
-    property AutoScaling: TGCoordinates read FAutoScaling write FAutoScaling;
+    property AutoScaling: TgCoordinates read FAutoScaling write FAutoScaling;
     (* Material library where mesh materials will be stored/retrieved.
       If this property is not defined or if UseMeshMaterials is false,
       only the FreeForm's material will be used (and the mesh's materials
@@ -1307,7 +1307,7 @@ type
   end;
 
   // Stores registered vector file formats 
-  TGLVectorFileFormatsList = class(TGPersistentObjectList)
+  TGLVectorFileFormatsList = class(TgPersistentObjectList)
   public
     destructor Destroy; override;
     procedure Add(const Ext, Desc: string; DescID: Integer; AClass: TGLVectorFileClass);
@@ -1606,12 +1606,12 @@ begin
   FVertices.Translate(delta);
 end;
 
-procedure TGLBaseMeshObject.BuildNormals(vertexIndices: TGIntegerList; Mode: TGLMeshObjectMode;
-  normalIndices: TGIntegerList = nil);
+procedure TGLBaseMeshObject.BuildNormals(vertexIndices: TgIntegerList; Mode: TGLMeshObjectMode;
+  normalIndices: TgIntegerList = nil);
 var
   i, base: Integer;
   n: TAffineVector;
-  newNormals: TGIntegerList;
+  newNormals: TgIntegerList;
 
   function TranslateNewNormal(vertexIndex: Integer; const delta: TAffineVector): Integer;
   var
@@ -1690,7 +1690,7 @@ begin
   begin
     // add new normals
     base := Normals.Count;
-    newNormals := TGIntegerList.Create;
+    newNormals := TgIntegerList.Create;
     newNormals.AddSerie(-1, 0, Vertices.Count);
     case Mode of
       momTriangles:
@@ -5219,7 +5219,7 @@ end;
 constructor TFGVertexIndexList.Create;
 begin
   inherited;
-  FVertexIndices := TGIntegerList.Create;
+  FVertexIndices := TgIntegerList.Create;
   FMode := fgmmTriangles;
 end;
 
@@ -5274,7 +5274,7 @@ begin
   end;
 end;
 
-procedure TFGVertexIndexList.SetVertexIndices(const val: TGIntegerList);
+procedure TFGVertexIndexList.SetVertexIndices(const val: TgIntegerList);
 begin
   FVertexIndices.Assign(val);
   InvalidateVBO;
@@ -5304,7 +5304,7 @@ begin
   end;
 end;
 
-procedure TFGVertexIndexList.AddToList(Source, destination: TGAffineVectorList; indices: TGIntegerList);
+procedure TFGVertexIndexList.AddToList(Source, destination: TGAffineVectorList; indices: TgIntegerList);
 var
   i, n: Integer;
 begin
@@ -5440,14 +5440,14 @@ end;
 procedure TFGVertexIndexList.ConvertToList;
 var
   i: Integer;
-  bufList: TGIntegerList;
+  bufList: TgIntegerList;
 begin
   if VertexIndices.Count >= 3 then
   begin
     case Mode of
       fgmmTriangleStrip:
         begin
-          bufList := TGIntegerList.Create;
+          bufList := TgIntegerList.Create;
           try
             ConvertStripToList(VertexIndices, bufList);
             VertexIndices := bufList;
@@ -5458,7 +5458,7 @@ begin
         end;
       fgmmTriangleFan:
         begin
-          bufList := TGIntegerList.Create;
+          bufList := TgIntegerList.Create;
           try
             for i := 0 to VertexIndices.Count - 3 do
               bufList.Add(vertexIndices[0], vertexIndices[i], vertexIndices[i + 1]);
@@ -5496,8 +5496,8 @@ end;
 constructor TFGVertexNormalTexIndexList.Create;
 begin
   inherited;
-  FNormalIndices := TGIntegerList.Create;
-  FTexCoordIndices := TGIntegerList.Create;
+  FNormalIndices := TgIntegerList.Create;
+  FTexCoordIndices := TgIntegerList.Create;
 end;
 
 destructor TFGVertexNormalTexIndexList.Destroy;
@@ -5534,12 +5534,12 @@ begin
     RaiseFilerException(archiveVersion);
 end;
 
-procedure TFGVertexNormalTexIndexList.SetNormalIndices(const val: TGIntegerList);
+procedure TFGVertexNormalTexIndexList.SetNormalIndices(const val: TgIntegerList);
 begin
   FNormalIndices.Assign(val);
 end;
 
-procedure TFGVertexNormalTexIndexList.SetTexCoordIndices(const val: TGIntegerList);
+procedure TFGVertexNormalTexIndexList.SetTexCoordIndices(const val: TgIntegerList);
 begin
   FTexCoordIndices.Assign(val);
 end;
@@ -5940,7 +5940,7 @@ begin
   FAutoCentering := [];
   FAxisAlignedDimensionsCache.X := -1;
   FBaryCenterOffsetChanged := True;
-  FAutoScaling := TGCoordinates.CreateInitialized(Self, XYZWHmgVector, csPoint);
+  FAutoScaling := TgCoordinates.CreateInitialized(Self, XYZWHmgVector, csPoint);
 end;
 
 destructor TGLBaseMesh.Destroy;
@@ -6190,7 +6190,7 @@ begin
   end;
 end;
 
-procedure TGLBaseMesh.SetAutoScaling(const Value: TGCoordinates);
+procedure TGLBaseMesh.SetAutoScaling(const Value: TgCoordinates);
 begin
   FAutoScaling.SetPoint(Value.DirectX, Value.DirectY, Value.DirectZ);
 end;

Source/GLS.VerletClothify.pas

@@ -145,7 +145,7 @@ type
   TGLMeshObjectVerletNode = class(TGLVerletNode)
   private
     MeshObject: TGLMeshObject;
-    VertexIndices: TGIntegerList;
+    VertexIndices: TgIntegerList;
   public
     procedure AfterProgress; override;
     constructor CreateOwned(const AOwner: TGLVerletWorld); override;
@@ -336,7 +336,7 @@ end;
 constructor TGLMeshObjectVerletNode.CreateOwned(const AOwner: TGLVerletWorld);
 begin
   inherited;
-  VertexIndices := TGIntegerList.Create;
+  VertexIndices := TgIntegerList.Create;
 end;
 
 destructor TGLMeshObjectVerletNode.Destroy;

Source/GLS.WaterPlane.pas

@@ -42,7 +42,7 @@ const
    private
      FLocks: packed array of ByteBool;
      FPositions, FVelocity: packed array of Single;
-     FPlaneQuadIndices: TGPersistentObjectList;
+     FPlaneQuadIndices: TgPersistentObjectList;
      FPlaneQuadTexCoords: TGTexPointList;
      FPlaneQuadVertices: TGAffineVectorList;
      FPlaneQuadNormals: TGAffineVectorList;
@@ -132,7 +132,7 @@ begin
   FMaximumCatchupIterations := 1;
   FOptions := cDefaultWaterPlaneOptions;
 
-  FPlaneQuadIndices := TGPersistentObjectList.Create;
+  FPlaneQuadIndices := TgPersistentObjectList.Create;
   FPlaneQuadTexCoords := TGTexPointList.Create;
   FPlaneQuadVertices := TGAffineVectorList.Create;
   FPlaneQuadNormals := TGAffineVectorList.Create;
@@ -274,7 +274,7 @@ var
   i, j, ij, resSqr: Integer;
   maskBmp: TBitmap;
   scanLine: PIntegerArray;
-  il: TGIntegerList;
+  il: TgIntegerList;
   locked: Boolean;
 begin
   resSqr := FResolution * FResolution;
@@ -307,7 +307,7 @@ begin
   FPlaneQuadIndices.Clean;
   for j := 0 to Resolution - 2 do
   begin
-    il := TGIntegerList.Create;
+    il := TgIntegerList.Create;
     for i := 0 to Resolution - 1 do
     begin
       ij := i + j * Resolution;
@@ -324,7 +324,7 @@ begin
       else if il.Count > 0 then
       begin
         FPlaneQuadIndices.Add(il);
-        il := TGIntegerList.Create;
+        il := TgIntegerList.Create;
       end;
     end;
     if il.Count > 0 then
@@ -434,7 +434,7 @@ end;
 procedure TGLWaterPlane.BuildList(var rci: TGLRenderContextInfo);
 var
   i: Integer;
-  il: TGIntegerList;
+  il: TgIntegerList;
 begin
   gl.PushClientAttrib(GL_CLIENT_VERTEX_ARRAY_BIT);
 
@@ -455,7 +455,7 @@ begin
 
   for i := 0 to FPlaneQuadIndices.Count - 1 do
   begin
-    il := TGIntegerList(FPlaneQuadIndices[i]);
+    il := TgIntegerList(FPlaneQuadIndices[i]);
     gl.DrawElements(GL_QUAD_STRIP, il.Count, GL_UNSIGNED_INT, il.List);
   end;
 

Source/GLS.WindowsContext.pas

@@ -21,7 +21,7 @@ uses
   GLScene.VectorTypes,
   GLScene.OpenGLTokens,
   GLS.OpenGLAdapter,
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
   GLS.Context,
   GLS.State,
   GLScene.Logger,

Source/GLS.WindowsFont.pas

@@ -44,7 +44,7 @@ type
   TGLWindowsBitmapFont = class(TGLCustomBitmapFont)
   private
     FFont: TFont;
-    procedure SetList(const AList : TGIntegerList);
+    procedure SetList(const AList : TgIntegerList);
   protected
     procedure SetFont(value: TFont);
     procedure LoadWindowsFont; virtual;
@@ -301,7 +301,7 @@ begin
   end;
 end;
 
-procedure TGLWindowsBitmapFont.SetList(const AList: TGIntegerList);
+procedure TGLWindowsBitmapFont.SetList(const AList: TgIntegerList);
 var
   i : integer;
   f, n, s : integer;
@@ -340,9 +340,9 @@ end;
 procedure TGLWindowsBitmapFont.EnsureChars(const AStart, AEnd: widechar);
 var
   c : WideChar;
-  ACharList : TGIntegerList;
+  ACharList : TgIntegerList;
 begin
-  ACharList := TGIntegerList.Create;
+  ACharList := TgIntegerList.Create;
   for c := AStart to AEnd do
       ACharList.Add(integer(c));
   SetList(ACharList);
@@ -353,9 +353,9 @@ end;
 procedure TGLWindowsBitmapFont.EnsureString(const s: String);
 var
   i : Integer;
-  ACharList : TGIntegerList;
+  ACharList : TgIntegerList;
 begin
-  ACharList := TGIntegerList.Create;
+  ACharList := TgIntegerList.Create;
   for i := 1 to Length(s) do
       ACharList.Add(integer(s[i]));
   SetList(ACharList);

Source/GLSL.BumpShaders.pas

@@ -316,7 +316,7 @@ type
   private
     FVertexProgramHandle: TGLARBVertexProgramHandle;
     FFragmentProgramHandle: TGLARBFragmentProgramHandle;
-    FLightIDs: TGIntegerList;
+    FLightIDs: TgIntegerList;
     FLightsEnabled: Integer;
     FBumpMethod: TBumpMethod;
     FBumpSpace: TBumpSpace;
@@ -1189,7 +1189,7 @@ end;
 constructor TGLBumpShader.Create(AOwner: TComponent);
 begin
   inherited;
-  FLightIDs := TGIntegerList.Create;
+  FLightIDs := TgIntegerList.Create;
   FBumpMethod := bmDot3TexCombiner;
   FBumpSpace := bsObject;
   FBumpOptions := [];

Source/GLSL.CustomShader.pas

@@ -282,7 +282,7 @@ procedure DrawTexturedScreenQuad6(const ViewPortSize: TGLSize);
 procedure CopyScreentoTexture(const ViewPortSize: TGLSize; const TextureTarget: Word = GL_TEXTURE_2D);
 procedure CopyScreentoTexture2(const ViewPortSize: TGLSize; const TextureTarget: Word = GL_TEXTURE_2D);
 function IsFogEnabled(const AFogSupportMode: TGLShaderFogSupport; var rci: TGLRenderContextInfo): Boolean;
-procedure GetActiveLightsList(const ALightIDs: TGIntegerList);
+procedure GetActiveLightsList(const ALightIDs: TgIntegerList);
 
 //------------------------------------------
 implementation
@@ -291,7 +291,7 @@ implementation
 uses
   GLS.State;
 
-procedure GetActiveLightsList(const ALightIDs: TGIntegerList);
+procedure GetActiveLightsList(const ALightIDs: TgIntegerList);
 var
   I: Integer;
 begin

Source/GLSL.PhongShader.pas

@@ -29,7 +29,7 @@ uses
 type
   TGLPhongShader = class(TGLCustomAsmShader)
   private
-    FLightIDs: TGIntegerList;
+    FLightIDs: TgIntegerList;
     FDesignTimeEnabled: Boolean;
     FAmbientPass: Boolean;
     procedure SetDesignTimeEnabled(const Value: Boolean);
@@ -184,7 +184,7 @@ begin
 
     Add('END');
   end;
-  FLightIDs := TGIntegerList.Create;
+  FLightIDs := TgIntegerList.Create;
 end;
 
 function TGLPhongShader.ShaderSupported: Boolean;

Source/GLSL.ProjectedTextures.pas

@@ -27,7 +27,7 @@ uses
   System.Classes,
   System.SysUtils,
 
-  GLS.PipelineTransformation,
+  GLScene.PipelineTransform,
   GLS.Scene,
   GLScene.PersistentClasses,
   GLS.Texture,

Source/GLSL.ShapeShaders.pas

@@ -323,7 +323,7 @@ type
     FRandomFurLength : Boolean;
     FColorScale: TGColor;
     FAmbient: TGColor;
-    FGravity : TGCoordinates;
+    FGravity : TgCoordinates;
     FLightIntensity : Single;
     FMainTex  : TGLTexture;
     FNoiseTex : TGLTexture;
@@ -339,7 +339,7 @@ type
     procedure SetNoiseTexName(const Value: TGLLibMaterialName);
     function GetMainTexName: TGLLibMaterialName;
     procedure SetMainTexName(const Value: TGLLibMaterialName);
-    procedure SetGravity(APosition:TGCoordinates);
+    procedure SetGravity(APosition:TgCoordinates);
     procedure SetAmbient(AValue: TGColor);
     procedure SetColorScale(AValue: TGColor);
   protected
@@ -366,7 +366,7 @@ type
     //property BlendEquation : TBlendEquation read FBlendEquation write FBlendEquation default beMin;
     property BlendSrc  : TGLBlendFunction read FBlendSrc write FBlendSrc default bfSrcColor;
     property BlendDst  : TGLBlendFunction read FBlendDst write FBlendDst default bfOneMinusDstColor;
-    property Gravity : TGCoordinates Read FGravity write setGravity;
+    property Gravity : TgCoordinates Read FGravity write setGravity;
     property LightIntensity : Single read FLightIntensity Write FLightIntensity;
   end;
 
@@ -412,18 +412,18 @@ type
   (* Custom class for a shader that simulate Lattice *)
   TGLCustomGLSLSimpleLatticeShader = class(TGLCustomGLSLShader)
   private
-    FLatticeScale: TGCoordinates2;
-    FLatticeThreshold: TGCoordinates2;
-    procedure SetLatticeScale(const Value: TGCoordinates2);
-    procedure SetLatticeThreshold(const Value: TGCoordinates2);
+    FLatticeScale: TgCoordinates2;
+    FLatticeThreshold: TgCoordinates2;
+    procedure SetLatticeScale(const Value: TgCoordinates2);
+    procedure SetLatticeThreshold(const Value: TgCoordinates2);
   protected
     procedure DoApply(var rci : TGLRenderContextInfo; Sender : TObject); override;
     function DoUnApply(var rci: TGLRenderContextInfo): Boolean; override;
   public
     constructor Create(AOwner : TComponent); override;
     destructor Destroy; override;
-    property LatticeScale: TGCoordinates2 read FLatticeScale write SetLatticeScale;
-    property LatticeThreshold: TGCoordinates2 read FLatticeThreshold write SetLatticeThreshold;
+    property LatticeScale: TgCoordinates2 read FLatticeScale write SetLatticeScale;
+    property LatticeThreshold: TgCoordinates2 read FLatticeThreshold write SetLatticeThreshold;
   end;
 
 (* Custom class for GLSLLatticeShader.
@@ -1768,7 +1768,7 @@ begin
   // The Blend Funcs are very important for realistic fur rendering it can vary follow your textures
   FBlendSrc := bfOneMinusSrcColor;
   FBlendDst := bfOneMinusSrcAlpha;
-  FGravity := TGCoordinates.Create(self);
+  FGravity := TgCoordinates.Create(self);
   FGravity.AsAffineVector := AffinevectorMake(0.0,0.0,0.0);
   FLightIntensity := 2.5;
 end;
@@ -1937,7 +1937,7 @@ begin
         end;
   end;
 
-  procedure TGLCustomGLSLFurShader.SetGravity(APosition: TGCoordinates);
+  procedure TGLCustomGLSLFurShader.SetGravity(APosition: TgCoordinates);
   begin
     FGravity.SetPoint(APosition.DirectX, APosition.DirectY, APosition.DirectZ);
   end;
@@ -2043,8 +2043,8 @@ begin
       Add('} ');
     end;
     // Initial stuff.
-    FLatticeScale := TGCoordinates2.Create(self);
-    FLatticeThreshold := TGCoordinates2.Create(self);
+    FLatticeScale := TgCoordinates2.Create(self);
+    FLatticeThreshold := TgCoordinates2.Create(self);
 
     FLatticeScale.SetPoint2D(10, 40);
     FLatticeThreshold.SetPoint2D(0.15, 0.3);
@@ -2074,13 +2074,13 @@ begin
   end;
 
   procedure TGLCustomGLSLSimpleLatticeShader.SetLatticeScale
-    (const Value: TGCoordinates2);
+    (const Value: TgCoordinates2);
   begin
     FLatticeScale.Assign(Value);
   end;
 
   procedure TGLCustomGLSLSimpleLatticeShader.SetLatticeThreshold
-    (const Value: TGCoordinates2);
+    (const Value: TgCoordinates2);
   begin
     FLatticeThreshold.Assign(Value);
   end;

Source/GLSL.TextureShaders.pas

@@ -49,8 +49,8 @@ type
     FNeedToUpdateTextureMatrix: Boolean;
     FTextureMatrixIsUnitary: Boolean;
     FLibMaterial: TGLLibMaterial;
-    FTexOffset: TGCoordinates2;
-    FTexScale: TGCoordinates2;
+    FTexOffset: TgCoordinates2;
+    FTexScale: TgCoordinates2;
     FBlendingMode: TGLBlendingMode;
     FSpecular: TGColor;
     FAmbient: TGColor;
@@ -68,8 +68,8 @@ type
     procedure SetLibMaterialName(const Value: TGLLibMaterialName);
     procedure SetBlendingMode(const Value: TGLBlendingMode);
     procedure SetLibMaterial(const Value: TGLLibMaterial);
-    procedure SetTexOffset(const Value: TGCoordinates2);
-    procedure SetTexScale(const Value: TGCoordinates2);
+    procedure SetTexOffset(const Value: TgCoordinates2);
+    procedure SetTexScale(const Value: TgCoordinates2);
     function GetTextureMatrix: TGLMatrix;
     function GetTextureMatrixIsUnitary: Boolean;
   protected
@@ -88,8 +88,8 @@ type
     property TextureMatrix: TGLMatrix read GetTextureMatrix;
     property TextureMatrixIsUnitary: Boolean read GetTextureMatrixIsUnitary;
   published
-    property TexOffset: TGCoordinates2 read FTexOffset write SetTexOffset;
-    property TexScale: TGCoordinates2 read FTexScale write SetTexScale;
+    property TexOffset: TgCoordinates2 read FTexOffset write SetTexOffset;
+    property TexScale: TgCoordinates2 read FTexScale write SetTexScale;
     property BlendingMode: TGLBlendingMode read FBlendingMode write SetBlendingMode;
     property Emission: TGColor read FEmission write SetEmission;
     property Ambient: TGColor read FAmbient write SetAmbient;
@@ -340,10 +340,10 @@ begin
   FEmission := TGColor.Create(Self);
   FEmission.OnNotifyChange := OtherNotifychange;
 
-  FTexOffset := TGCoordinates2.CreateInitialized(Self, NullHmgVector, csPoint2d);
+  FTexOffset := TgCoordinates2.CreateInitialized(Self, NullHmgVector, csPoint2d);
   FTexOffset.OnNotifyChange := coordNotifychange;
 
-  FTexScale := TGCoordinates2.CreateInitialized(Self, XYZHmgVector, csPoint2d);
+  FTexScale := TgCoordinates2.CreateInitialized(Self, XYZHmgVector, csPoint2d);
   FTexScale.OnNotifyChange := coordNotifychange;
   FNeedToUpdateTextureMatrix := True;
 end;
@@ -482,13 +482,13 @@ begin
   FSpecular.Assign(Value);
 end;
 
-procedure TGLTextureSharingShaderMaterial.SetTexOffset(const Value: TGCoordinates2);
+procedure TGLTextureSharingShaderMaterial.SetTexOffset(const Value: TgCoordinates2);
 begin
   FTexOffset.Assign(Value);
   FNeedToUpdateTextureMatrix := True;
 end;
 
-procedure TGLTextureSharingShaderMaterial.SetTexScale(const Value: TGCoordinates2);
+procedure TGLTextureSharingShaderMaterial.SetTexScale(const Value: TgCoordinates2);
 begin
   FTexScale.Assign(Value);
   FNeedToUpdateTextureMatrix := True;

Source/GLScene.BaseClasses.pas

@@ -23,7 +23,7 @@ type
   (* Progression event for time-base animations/simulations.
      deltaTime is the time delta since last progress and newTime is the new
      time after the progress event is completed. *)
-  TGProgressEvent = procedure(Sender: TObject; const DeltaTime, NewTime: Double) of object;
+  TgProgressEvent = procedure(Sender: TObject; const DeltaTime, NewTime: Double) of object;
 
   IGNotifyAble = interface(IInterface)
     ['{00079A6C-D46E-4126-86EE-F9E2951B4593}']

Source/GLScene.Coordinates.pas

@@ -5,7 +5,7 @@ unit GLScene.Coordinates;
 (*
   Coordinate related classes and functions.
   The registered classes are:
-    [TGCoordinates2, TGCoordinates3, TGCoordinates4]
+    [TgCoordinates2, TgCoordinates3, TgCoordinates4]
 *)
 interface
 
@@ -22,22 +22,22 @@ uses
 
 type
 
-  (* Identifies the type of data stored within a TGCustomCoordinates.
+  (* Identifies the type of data stored within a TgCustomCoordinates.
      csPoint2D : a simple 2D point (Z=0, W=0)
      csPoint : a point (W=1)
      csVector : a vector (W=0)
      csUnknown : no constraint *)
-  TGCoordinatesStyle = (csPoint2D, csPoint, csVector, csUnknown);
+  TgCoordinatesStyle = (csPoint2D, csPoint, csVector, csUnknown);
 
   (* Stores any homogeneous vector.
     This class is basicly a container for a TGLVector, allowing proper use of
     property editors and editing in the IDE. Vector/Coordinates
     manipulation methods are only minimal.
     Handles dynamic default values to save resource file space.  *)
-  TGCustomCoordinates = class(TGUpdateAbleObject)
+  TgCustomCoordinates = class(TGUpdateAbleObject)
   private
     FCoords: TGLVector;
-    FStyle: TGCoordinatesStyle; // NOT Persistent
+    FStyle: TgCoordinatesStyle; // NOT Persistent
     FPDefaultCoords: PGLVector;
     procedure SetAsPoint2D(const Value: TVector2f);
     procedure SetAsVector(const Value: TGLVector);
@@ -56,7 +56,7 @@ type
     procedure WriteData(Stream: TStream);
   public
     constructor CreateInitialized(AOwner: TPersistent; const AValue: TGLVector;
-      const AStyle: TGCoordinatesStyle = CsUnknown);
+      const AStyle: TgCoordinatesStyle = CsUnknown);
     destructor Destroy; override;
     procedure Assign(Source: TPersistent); override;
     procedure WriteToFiler(Writer: TWriter);
@@ -66,10 +66,10 @@ type
     (* Identifies the coordinates styles.
       The property is NOT persistent, csUnknown by default, and should be
       managed by owner object only (internally).
-      It is used by the TGCustomCoordinates for internal "assertion" checks
+      It is used by the TgCustomCoordinates for internal "assertion" checks
       to detect "misuses" or "misunderstandings" of what the homogeneous
       coordinates system implies. *)
-    property Style: TGCoordinatesStyle read FStyle write FStyle;
+    property Style: TgCoordinatesStyle read FStyle write FStyle;
     procedure Translate(const TranslationVector: TGLVector); overload;
     procedure Translate(const TranslationVector: TAffineVector); overload;
     procedure AddScaledVector(const Factor: Single; const TranslationVector: TGLVector); overload;
@@ -124,23 +124,23 @@ type
     property DirectW: Single index 3 read GetDirectCoordinate write SetDirectCoordinate;
   end;
 
-  // A TGCustomCoordinates that publishes X, Y properties.
-  TGCoordinates2 = class(TGCustomCoordinates)
+  // A TgCustomCoordinates that publishes X, Y properties.
+  TgCoordinates2 = class(TgCustomCoordinates)
   published
     property X stored False;
     property Y stored False;
   end;
 
-  // A TGCustomCoordinates that publishes X, Y, Z properties.
-  TGCoordinates3 = class(TGCustomCoordinates)
+  // A TgCustomCoordinates that publishes X, Y, Z properties.
+  TgCoordinates3 = class(TgCustomCoordinates)
   published
     property X stored False;
     property Y stored False;
     property Z stored False;
   end;
 
-  // A TGCustomCoordinates that publishes X, Y, Z, W properties.
-  TGCoordinates4 = class(TGCustomCoordinates)
+  // A TgCustomCoordinates that publishes X, Y, Z, W properties.
+  TgCoordinates4 = class(TgCustomCoordinates)
   published
     property X stored False;
     property Y stored False;
@@ -148,19 +148,19 @@ type
     property W stored False;
   end;
 
-  TGCoordinates = TGCoordinates3;
+  TgCoordinates = TgCoordinates3;
 
-  (* Actually Sender should be TGCustomCoordinates, but that would require
+  (* Actually Sender should be TgCustomCoordinates, but that would require
      changes in a some other GLScene units and some other projects that use
-     TGCoordinatesUpdateAbleComponent *)
+     TgCoordinatesUpdateAbleComponent *)
   IGCoordinatesUpdateAble = interface(IInterface)
     ['{ACB98D20-8905-43A7-AFA5-225CF5FA6FF5}']
-    procedure CoordinateChanged(Sender: TGCustomCoordinates);
+    procedure CoordinateChanged(Sender: TgCustomCoordinates);
   end;
 
-  TGCoordinatesUpdateAbleComponent = class(TGUpdateAbleComponent, IGCoordinatesUpdateAble)
+  TgCoordinatesUpdateAbleComponent = class(TGUpdateAbleComponent, IGCoordinatesUpdateAble)
   public
-    procedure CoordinateChanged(Sender: TGCustomCoordinates); virtual; abstract;
+    procedure CoordinateChanged(Sender: TgCustomCoordinates); virtual; abstract;
   end;
 
 (* Calculates the barycentric coordinates for the point p on the triangle
@@ -307,7 +307,7 @@ procedure BipolarCylindrical_Cartesian(const u, v, z1, a: double;
   var x, y, z: double; var ierr: integer); overload;
 
 var
-  (* Specifies if TGCustomCoordinates should allocate memory for
+  (* Specifies if TgCustomCoordinates should allocate memory for
     their default values (ie. design-time) or not (run-time) *)
   VUseDefaultCoordinateSets: Boolean = False;
 
@@ -319,25 +319,25 @@ const
   csPoint2DHelp = 'When getting assertions here use one of the SetVector or SetPoint procedures';
 
   // ------------------
-  // ------------------ TGCustomCoordinates ------------------
+  // ------------------ TgCustomCoordinates ------------------
   // ------------------
 
-constructor TGCustomCoordinates.CreateInitialized(AOwner: TPersistent;
-  const AValue: TGLVector; const AStyle: TGCoordinatesStyle = CsUnknown);
+constructor TgCustomCoordinates.CreateInitialized(AOwner: TPersistent;
+  const AValue: TGLVector; const AStyle: TgCoordinatesStyle = CsUnknown);
 begin
   Create(AOwner);
   Initialize(AValue);
   FStyle := AStyle;
 end;
 
-destructor TGCustomCoordinates.Destroy;
+destructor TgCustomCoordinates.Destroy;
 begin
   if Assigned(FPDefaultCoords) then
     Dispose(FPDefaultCoords);
   inherited;
 end;
 
-procedure TGCustomCoordinates.Initialize(const Value: TGLVector);
+procedure TgCustomCoordinates.Initialize(const Value: TGLVector);
 begin
   FCoords := Value;
   if VUseDefaultCoordinateSets then
@@ -348,15 +348,15 @@ begin
   end;
 end;
 
-procedure TGCustomCoordinates.Assign(Source: TPersistent);
+procedure TgCustomCoordinates.Assign(Source: TPersistent);
 begin
-  if Source is TGCustomCoordinates then
-    FCoords := TGCustomCoordinates(Source).FCoords
+  if Source is TgCustomCoordinates then
+    FCoords := TgCustomCoordinates(Source).FCoords
   else
     inherited;
 end;
 
-procedure TGCustomCoordinates.WriteToFiler(Writer: TWriter);
+procedure TgCustomCoordinates.WriteToFiler(Writer: TWriter);
 var
   WriteCoords: Boolean;
 begin
@@ -373,7 +373,7 @@ begin
   end;
 end;
 
-procedure TGCustomCoordinates.ReadFromFiler(Reader: TReader);
+procedure TgCustomCoordinates.ReadFromFiler(Reader: TReader);
 var
   N: Integer;
 begin
@@ -391,33 +391,33 @@ begin
   end;
 end;
 
-procedure TGCustomCoordinates.DefineProperties(Filer: TFiler);
+procedure TgCustomCoordinates.DefineProperties(Filer: TFiler);
 begin
   inherited;
   Filer.DefineBinaryProperty('Coordinates', ReadData, WriteData,
     not(Assigned(FPDefaultCoords) and VectorEquals(FPDefaultCoords^, FCoords)));
 end;
 
-procedure TGCustomCoordinates.ReadData(Stream: TStream);
+procedure TgCustomCoordinates.ReadData(Stream: TStream);
 begin
   Stream.Read(FCoords, SizeOf(FCoords));
 end;
 
-procedure TGCustomCoordinates.WriteData(Stream: TStream);
+procedure TgCustomCoordinates.WriteData(Stream: TStream);
 begin
   Stream.Write(FCoords, SizeOf(FCoords));
 end;
 
-procedure TGCustomCoordinates.NotifyChange(Sender: TObject);
+procedure TgCustomCoordinates.NotifyChange(Sender: TObject);
 var
   Int: IGCoordinatesUpdateAble;
 begin
   if Supports(Owner, IGCoordinatesUpdateAble, Int) then
-    Int.CoordinateChanged(TGCoordinates(Self));
+    Int.CoordinateChanged(TgCoordinates(Self));
   inherited NotifyChange(Sender);
 end;
 
-procedure TGCustomCoordinates.Translate(const TranslationVector: TGLVector);
+procedure TgCustomCoordinates.Translate(const TranslationVector: TGLVector);
 begin
   FCoords.X := FCoords.X + TranslationVector.X;
   FCoords.Y := FCoords.Y + TranslationVector.Y;
@@ -425,7 +425,7 @@ begin
   NotifyChange(Self);
 end;
 
-procedure TGCustomCoordinates.Translate(const TranslationVector
+procedure TgCustomCoordinates.Translate(const TranslationVector
   : TAffineVector);
 begin
   FCoords.X := FCoords.X + TranslationVector.X;
@@ -434,7 +434,7 @@ begin
   NotifyChange(Self);
 end;
 
-procedure TGCustomCoordinates.AddScaledVector(const Factor: Single;
+procedure TgCustomCoordinates.AddScaledVector(const Factor: Single;
   const TranslationVector: TGLVector);
 var
   F: Single;
@@ -444,7 +444,7 @@ begin
   NotifyChange(Self);
 end;
 
-procedure TGCustomCoordinates.AddScaledVector(const Factor: Single;
+procedure TgCustomCoordinates.AddScaledVector(const Factor: Single;
   const TranslationVector: TAffineVector);
 var
   F: Single;
@@ -454,92 +454,92 @@ begin
   NotifyChange(Self);
 end;
 
-procedure TGCustomCoordinates.Rotate(const AnAxis: TAffineVector;
+procedure TgCustomCoordinates.Rotate(const AnAxis: TAffineVector;
   AnAngle: Single);
 begin
   RotateVector(FCoords, AnAxis, AnAngle);
   NotifyChange(Self);
 end;
 
-procedure TGCustomCoordinates.Rotate(const AnAxis: TGLVector; AnAngle: Single);
+procedure TgCustomCoordinates.Rotate(const AnAxis: TGLVector; AnAngle: Single);
 begin
   RotateVector(FCoords, AnAxis, AnAngle);
   NotifyChange(Self);
 end;
 
-procedure TGCustomCoordinates.Normalize;
+procedure TgCustomCoordinates.Normalize;
 begin
   NormalizeVector(FCoords);
   NotifyChange(Self);
 end;
 
-procedure TGCustomCoordinates.Invert;
+procedure TgCustomCoordinates.Invert;
 begin
   NegateVector(FCoords);
   NotifyChange(Self);
 end;
 
-procedure TGCustomCoordinates.Scale(Factor: Single);
+procedure TgCustomCoordinates.Scale(Factor: Single);
 begin
   ScaleVector(PAffineVector(@FCoords)^, Factor);
   NotifyChange(Self);
 end;
 
-function TGCustomCoordinates.VectorLength: Single;
+function TgCustomCoordinates.VectorLength: Single;
 begin
   Result := GLScene.VectorGeometry.VectorLength(FCoords);
 end;
 
-function TGCustomCoordinates.VectorNorm: Single;
+function TgCustomCoordinates.VectorNorm: Single;
 begin
   Result := GLScene.VectorGeometry.VectorNorm(FCoords);
 end;
 
-function TGCustomCoordinates.MaxXYZ: Single;
+function TgCustomCoordinates.MaxXYZ: Single;
 begin
   Result := MaxXYZComponent(FCoords);
 end;
 
-function TGCustomCoordinates.Equals(const AVector: TGLVector): Boolean;
+function TgCustomCoordinates.Equals(const AVector: TGLVector): Boolean;
 begin
   Result := VectorEquals(FCoords, AVector);
 end;
 
-procedure TGCustomCoordinates.SetVector(const X, Y: Single; Z: Single = 0);
+procedure TgCustomCoordinates.SetVector(const X, Y: Single; Z: Single = 0);
 begin
   Assert(FStyle = csVector, csVectorHelp);
   GLScene.VectorGeometry.SetVector(FCoords, X, Y, Z);
   NotifyChange(Self);
 end;
 
-procedure TGCustomCoordinates.SetVector(const V: TAffineVector);
+procedure TgCustomCoordinates.SetVector(const V: TAffineVector);
 begin
   Assert(FStyle = csVector, csVectorHelp);
   GLScene.VectorGeometry.SetVector(FCoords, V);
   NotifyChange(Self);
 end;
 
-procedure TGCustomCoordinates.SetVector(const V: TGLVector);
+procedure TgCustomCoordinates.SetVector(const V: TGLVector);
 begin
   Assert(FStyle = csVector, csVectorHelp);
   GLScene.VectorGeometry.SetVector(FCoords, V);
   NotifyChange(Self);
 end;
 
-procedure TGCustomCoordinates.SetVector(const X, Y, Z, W: Single);
+procedure TgCustomCoordinates.SetVector(const X, Y, Z, W: Single);
 begin
   Assert(FStyle = csVector, csVectorHelp);
   GLScene.VectorGeometry.SetVector(FCoords, X, Y, Z, W);
   NotifyChange(Self);
 end;
 
-procedure TGCustomCoordinates.SetDirectCoordinate(const Index: Integer;
+procedure TgCustomCoordinates.SetDirectCoordinate(const Index: Integer;
   const AValue: Single);
 begin
   FCoords.V[index] := AValue;
 end;
 
-procedure TGCustomCoordinates.SetDirectVector(const V: TGLVector);
+procedure TgCustomCoordinates.SetDirectVector(const V: TGLVector);
 begin
   FCoords.X := V.X;
   FCoords.Y := V.Y;
@@ -547,7 +547,7 @@ begin
   FCoords.W := V.W;
 end;
 
-procedure TGCustomCoordinates.SetToZero;
+procedure TgCustomCoordinates.SetToZero;
 begin
   FCoords.X := 0;
   FCoords.Y := 0;
@@ -559,61 +559,61 @@ begin
   NotifyChange(Self);
 end;
 
-procedure TGCustomCoordinates.SetPoint(const X, Y, Z: Single);
+procedure TgCustomCoordinates.SetPoint(const X, Y, Z: Single);
 begin
   Assert(FStyle = CsPoint, CsPointHelp);
   MakePoint(FCoords, X, Y, Z);
   NotifyChange(Self);
 end;
 
-procedure TGCustomCoordinates.SetPoint(const V: TAffineVector);
+procedure TgCustomCoordinates.SetPoint(const V: TAffineVector);
 begin
   Assert(FStyle = CsPoint, CsPointHelp);
   MakePoint(FCoords, V);
   NotifyChange(Self);
 end;
 
-procedure TGCustomCoordinates.SetPoint(const V: TGLVector);
+procedure TgCustomCoordinates.SetPoint(const V: TGLVector);
 begin
   Assert(FStyle = CsPoint, CsPointHelp);
   MakePoint(FCoords, V);
   NotifyChange(Self);
 end;
 
-procedure TGCustomCoordinates.SetPoint2D(const X, Y: Single);
+procedure TgCustomCoordinates.SetPoint2D(const X, Y: Single);
 begin
   Assert(FStyle = CsPoint2D, CsPoint2DHelp);
   GLScene.VectorGeometry.MakeVector(FCoords, X, Y, 0);
   NotifyChange(Self);
 end;
 
-procedure TGCustomCoordinates.SetPoint2D(const Vector: TAffineVector);
+procedure TgCustomCoordinates.SetPoint2D(const Vector: TAffineVector);
 begin
   Assert(FStyle = CsPoint2D, CsPoint2DHelp);
   MakeVector(FCoords, Vector);
   NotifyChange(Self);
 end;
 
-procedure TGCustomCoordinates.SetPoint2D(const Vector: TGLVector);
+procedure TgCustomCoordinates.SetPoint2D(const Vector: TGLVector);
 begin
   Assert(FStyle = CsPoint2D, CsPoint2DHelp);
   MakeVector(FCoords, Vector);
   NotifyChange(Self);
 end;
 
-procedure TGCustomCoordinates.SetPoint2D(const Vector: TVector2f);
+procedure TgCustomCoordinates.SetPoint2D(const Vector: TVector2f);
 begin
   Assert(FStyle = CsPoint2D, CsPoint2DHelp);
   MakeVector(FCoords, Vector.X, Vector.Y, 0);
   NotifyChange(Self);
 end;
 
-function TGCustomCoordinates.AsAddress: PSingle;
+function TgCustomCoordinates.AsAddress: PSingle;
 begin
   Result := @FCoords;
 end;
 
-procedure TGCustomCoordinates.SetAsVector(const Value: TGLVector);
+procedure TgCustomCoordinates.SetAsVector(const Value: TGLVector);
 begin
   FCoords := Value;
   case FStyle of
@@ -632,7 +632,7 @@ begin
   NotifyChange(Self);
 end;
 
-procedure TGCustomCoordinates.SetAsAffineVector(const Value: TAffineVector);
+procedure TgCustomCoordinates.SetAsAffineVector(const Value: TAffineVector);
 begin
   case FStyle of
     CsPoint2D:
@@ -647,7 +647,7 @@ begin
   NotifyChange(Self);
 end;
 
-procedure TGCustomCoordinates.SetAsPoint2D(const Value: TVector2f);
+procedure TgCustomCoordinates.SetAsPoint2D(const Value: TVector2f);
 begin
   case FStyle of
     CsPoint2D, CsPoint, CsVector:
@@ -663,36 +663,36 @@ begin
   NotifyChange(Self);
 end;
 
-function TGCustomCoordinates.GetAsAffineVector: TAffineVector;
+function TgCustomCoordinates.GetAsAffineVector: TAffineVector;
 begin
   GLScene.VectorGeometry.SetVector(Result, FCoords);
 end;
 
-function TGCustomCoordinates.GetAsPoint2D: TVector2f;
+function TgCustomCoordinates.GetAsPoint2D: TVector2f;
 begin
   Result.X := FCoords.X;
   Result.Y := FCoords.Y;
 end;
 
-procedure TGCustomCoordinates.SetCoordinate(const AIndex: Integer;
+procedure TgCustomCoordinates.SetCoordinate(const AIndex: Integer;
   const AValue: Single);
 begin
   FCoords.V[AIndex] := AValue;
   NotifyChange(Self);
 end;
 
-function TGCustomCoordinates.GetCoordinate(const AIndex: Integer): Single;
+function TgCustomCoordinates.GetCoordinate(const AIndex: Integer): Single;
 begin
   Result := FCoords.V[AIndex];
 end;
 
-function TGCustomCoordinates.GetDirectCoordinate(
+function TgCustomCoordinates.GetDirectCoordinate(
   const Index: Integer): Single;
 begin
   Result := FCoords.V[index]
 end;
 
-function TGCustomCoordinates.GetAsString: String;
+function TgCustomCoordinates.GetAsString: String;
 begin
   case Style of
     CsPoint2D:
@@ -1179,10 +1179,10 @@ end;
 
 initialization //------------------------------------------------------------
 
-RegisterClasses([TGCoordinates2, TGCoordinates3, TGCoordinates4]);
+RegisterClasses([TgCoordinates2, TgCoordinates3, TgCoordinates4]);
 
 finalization //--------------------------------------------------------------
 
-// UnRegisterClasses([TGCoordinates2, TGCoordinates3, TGCoordinates4]);
+// UnRegisterClasses([TgCoordinates2, TgCoordinates3, TgCoordinates4]);
 
 end.

Sourcex/GXS.OpenGL.pas → Source/GLScene.OpenGL4.pas

@@ -1,7 +1,7 @@
 //
 // The graphics engine GXScene https://github.com/glscene
 //
-unit GXS.OpenGL;
+unit GLScene.OpenGL4;
 
 (* -------------------------------------------------------------
  Copyright 1991-1993, Silicon Graphics, Inc.
@@ -237,18 +237,6 @@ type
   TGLUNurbsErrorProc = procedure(errorCode: Cardinal); {$IFDEF MSWINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
 
 var
-  GL_VERSION_1_0,
-  GL_VERSION_1_1,
-  GL_VERSION_1_2,
-  GL_VERSION_1_3,
-  GL_VERSION_1_4,
-  GL_VERSION_1_5,
-  GL_VERSION_2_0,
-  GL_VERSION_2_1,
-  GL_VERSION_3_0,
-  GL_VERSION_3_1,
-  GL_VERSION_3_2,
-  GL_VERSION_3_3,
   GL_VERSION_4_0,
   GL_VERSION_4_1,
   GL_VERSION_4_2,
@@ -256,8 +244,6 @@ var
   GL_VERSION_4_4,
   GL_VERSION_4_5,
   GL_VERSION_4_6,
-  GLU_VERSION_1_1,
-  GLU_VERSION_1_2,
   GLU_VERSION_1_3,
   GL_3DFX_multisample,
   GL_3DFX_tbuffer,
@@ -804,7 +790,6 @@ var
   WIN_swap_hint,
 
   // GLX
-  GLX_VERSION_1_3,
   GLX_VERSION_1_4,
   GLX_ARB_multisample,
   GLX_ARB_fbconfig_float,
@@ -832,7 +817,7 @@ const
   GL_COLOR_BUFFER_BIT = $00004000;
   GL_TRUE = 1;
   GL_FALSE = 0;
-  // BeginMode 
+  // BeginMode
   GL_POINTS = $0000;
   GL_LINES = $0001;
   GL_LINE_LOOP = $0002;
@@ -10313,18 +10298,6 @@ begin
   // determine OpenGL versions supported
   Buffer := string(glGetString(GL_VERSION));
   TrimAndSplitVersionString(Buffer, MajorVersion, MinorVersion);
-  GL_VERSION_1_0 := True;
-  GL_VERSION_1_1 := IsVersionMet(1, 1, MajorVersion, MinorVersion);
-  GL_VERSION_1_2 := IsVersionMet(1, 2, MajorVersion, MinorVersion);
-  GL_VERSION_1_3 := IsVersionMet(1, 3, MajorVersion, MinorVersion);
-  GL_VERSION_1_4 := IsVersionMet(1, 4, MajorVersion, MinorVersion);
-  GL_VERSION_1_5 := IsVersionMet(1, 5, MajorVersion, MinorVersion);
-  GL_VERSION_2_0 := IsVersionMet(2, 0, MajorVersion, MinorVersion);
-  GL_VERSION_2_1 := IsVersionMet(2, 1, MajorVersion, MinorVersion);
-  GL_VERSION_3_0 := IsVersionMet(3, 0, MajorVersion, MinorVersion);
-  GL_VERSION_3_1 := IsVersionMet(3, 1, MajorVersion, MinorVersion);
-  GL_VERSION_3_2 := IsVersionMet(3, 2, MajorVersion, MinorVersion);
-  GL_VERSION_3_3 := IsVersionMet(3, 3, MajorVersion, MinorVersion);
   GL_VERSION_4_0 := IsVersionMet(4, 0, MajorVersion, MinorVersion);
   GL_VERSION_4_1 := IsVersionMet(4, 1, MajorVersion, MinorVersion);
   GL_VERSION_4_2 := IsVersionMet(4, 2, MajorVersion, MinorVersion);
@@ -10335,8 +10308,6 @@ begin
    // determine GLU versions met
    buffer:=String(gluGetString(GLU_VERSION));
    TrimAndSplitVersionString(buffer, majorversion, minorVersion);
-   GLU_VERSION_1_1:=True; // won't load without at least GLU 1.1
-   GLU_VERSION_1_2:=IsVersionMet(1,2,majorVersion,minorVersion);
    GLU_VERSION_1_3:=IsVersionMet(1,3,majorVersion,minorVersion);
    // check supported OpenGL extensions
    Buffer := String(glGetString(GL_EXTENSIONS));
@@ -10755,15 +10726,11 @@ begin
   Result:=IsVersionMet(MajorVersion,MinorVersion,GLMajorVersion,GLMinorVersion);
 end;
 
-//----------------------------------------------------
-initialization
-//----------------------------------------------------
+initialization //-------------------------------------------------------------
 
   Set8087CW($133F);
 
-//----------------------------------------------------
-finalization
-//----------------------------------------------------
+finalization //---------------------------------------------------------------
 
   CloseOpenGL;
 

Source/GLScene.PersistentClasses.pas

@@ -5,7 +5,7 @@ unit GLScene.PersistentClasses;
 (*
    Base persistence classes.
    The registered class is:
-     [TGPersistentObjectList]
+     [TgPersistentObjectList]
 
    These classes are used in GLScene but are designed for generic purpose.
    They implement a slightly different persistence mechanism then that of the VCL,
@@ -123,7 +123,7 @@ type
     The list can be used in a stack-like fashion with Push & Pop, and can
     perform basic boolean set operations.
     Note: the IndexOf implementation is up to 3 times faster than that of TList *)
-  TGPersistentObjectList = class(TGPersistentObject)
+  TgPersistentObjectList = class(TGPersistentObject)
   private
     FList: PGPointerObjectList;
     FCount: Integer;
@@ -162,7 +162,7 @@ type
     procedure DeleteAndFreeItems(index: Integer; nbVals: Cardinal);
     function RemoveAndFree(item: TObject): Integer;
     property GrowthDelta: integer read FGrowthDelta write FGrowthDelta;
-    function Expand: TGPersistentObjectList;
+    function Expand: TgPersistentObjectList;
     property Items[Index: Integer]: TObject read Get write Put; default;
     property Count: Integer read FCount write SetCount;
     property List: PGPointerObjectList read FList;
@@ -186,8 +186,8 @@ type
     procedure Push(item: TObject);
     function Pop: TObject;
     procedure PopAndFree;
-    function AddObjects(const objectList: TGPersistentObjectList): Integer;
-    procedure RemoveObjects(const objectList: TGPersistentObjectList);
+    function AddObjects(const objectList: TgPersistentObjectList): Integer;
+    procedure RemoveObjects(const objectList: TgPersistentObjectList);
     procedure Sort(compareFunc: TGObjectListSortCompare);
   end;
 
@@ -654,22 +654,22 @@ begin
 end;
 
 // ------------------
-// ------------------ TGPersistentObjectList ------------------
+// ------------------ TgPersistentObjectList ------------------
 // ------------------
 
-constructor TGPersistentObjectList.Create;
+constructor TgPersistentObjectList.Create;
 begin
   inherited Create;
   FGrowthDelta := cDefaultListGrowthDelta;
 end;
 
-destructor TGPersistentObjectList.Destroy;
+destructor TgPersistentObjectList.Destroy;
 begin
   Clear;
   inherited Destroy;
 end;
 
-function TGPersistentObjectList.Add(const item: TObject): Integer;
+function TgPersistentObjectList.Add(const item: TObject): Integer;
 begin
   Result := FCount;
   if Result = FCapacity then
@@ -678,7 +678,7 @@ begin
   Inc(FCount);
 end;
 
-procedure TGPersistentObjectList.AddNils(nbVals: Cardinal);
+procedure TgPersistentObjectList.AddNils(nbVals: Cardinal);
 begin
   if Integer(nbVals) + Count > Capacity then
     SetCapacity(Integer(nbVals) + Count);
@@ -686,7 +686,7 @@ begin
   FCount := FCount + Integer(nbVals);
 end;
 
-function TGPersistentObjectList.AddObjects(const objectList: TGPersistentObjectList): Integer;
+function TgPersistentObjectList.AddObjects(const objectList: TgPersistentObjectList): Integer;
 begin
   if Assigned(objectList) then
   begin
@@ -699,7 +699,7 @@ begin
     Result := 0;
 end;
 
-procedure TGPersistentObjectList.RemoveObjects(const objectList: TGPersistentObjectList);
+procedure TgPersistentObjectList.RemoveObjects(const objectList: TgPersistentObjectList);
 var
   i: Integer;
 begin
@@ -707,7 +707,7 @@ begin
     Remove(objectList[i]);
 end;
 
-procedure TGPersistentObjectList.Clear;
+procedure TgPersistentObjectList.Clear;
 begin
   if Assigned(Self) and Assigned(FList) then
   begin
@@ -716,7 +716,7 @@ begin
   end;
 end;
 
-procedure TGPersistentObjectList.Delete(index: Integer);
+procedure TgPersistentObjectList.Delete(index: Integer);
 begin
 {$IFOPT R+}
   if Cardinal(Index) >= Cardinal(FCount) then
@@ -727,7 +727,7 @@ begin
     System.Move(FList[index + 1], FList[index], (FCount - index) * SizeOf(TObject));
 end;
 
-procedure TGPersistentObjectList.DeleteItems(index: Integer; nbVals: Cardinal);
+procedure TgPersistentObjectList.DeleteItems(index: Integer; nbVals: Cardinal);
 begin
 {$IFOPT R+}
   Assert(Cardinal(index) < Cardinal(FCount));
@@ -744,7 +744,7 @@ begin
   end;
 end;
 
-procedure TGPersistentObjectList.Exchange(index1, index2: Integer);
+procedure TgPersistentObjectList.Exchange(index1, index2: Integer);
 var
   item: TObject;
   locList: PGPointerObjectList;
@@ -760,14 +760,14 @@ begin
   locList^[index2] := item;
 end;
 
-function TGPersistentObjectList.Expand: TGPersistentObjectList;
+function TgPersistentObjectList.Expand: TgPersistentObjectList;
 begin
   if FCount = FCapacity then
     SetCapacity(FCapacity + FGrowthDelta);
   Result := Self;
 end;
 
-function TGPersistentObjectList.GetFirst: TObject;
+function TgPersistentObjectList.GetFirst: TObject;
 begin
 {$IFOPT R+}
   if Cardinal(FCount) = 0 then
@@ -776,7 +776,7 @@ begin
   Result := FList^[0];
 end;
 
-procedure TGPersistentObjectList.SetFirst(item: TObject);
+procedure TgPersistentObjectList.SetFirst(item: TObject);
 begin
 {$IFOPT R+}
   if Cardinal(FCount) = 0 then
@@ -785,12 +785,12 @@ begin
   FList^[0] := item;
 end;
 
-procedure TGPersistentObjectList.Error;
+procedure TgPersistentObjectList.Error;
 begin
   raise EListError.Create(strListIndexError);
 end;
 
-function TGPersistentObjectList.Get(Index: Integer): TObject;
+function TgPersistentObjectList.Get(Index: Integer): TObject;
 begin
 {$IFOPT R+}
   if Cardinal(Index) >= Cardinal(FCount) then
@@ -801,7 +801,7 @@ end;
 
 // IndexOf
 //
-function TGPersistentObjectList.IndexOf(Item: TObject): Integer;
+function TgPersistentObjectList.IndexOf(Item: TObject): Integer;
 var
   I: Integer;
 begin
@@ -819,7 +819,7 @@ begin
   end;
 end;
 
-procedure TGPersistentObjectList.Insert(index: Integer; item: TObject);
+procedure TgPersistentObjectList.Insert(index: Integer; item: TObject);
 begin
 {$IFOPT R+}
   if Cardinal(index) > Cardinal(FCount) then
@@ -834,7 +834,7 @@ begin
   Inc(FCount);
 end;
 
-procedure TGPersistentObjectList.InsertNils(index: Integer; nbVals: Cardinal);
+procedure TgPersistentObjectList.InsertNils(index: Integer; nbVals: Cardinal);
 var
   nc: Integer;
 begin
@@ -854,7 +854,7 @@ begin
   end;
 end;
 
-function TGPersistentObjectList.GetLast: TObject;
+function TgPersistentObjectList.GetLast: TObject;
 begin
 {$IFOPT R+}
   if Cardinal(FCount) = 0 then
@@ -863,7 +863,7 @@ begin
   Result := FList^[FCount - 1];
 end;
 
-procedure TGPersistentObjectList.SetLast(item: TObject);
+procedure TgPersistentObjectList.SetLast(item: TObject);
 begin
 {$IFOPT R+}
   if Cardinal(FCount) = 0 then
@@ -872,7 +872,7 @@ begin
   FList^[FCount - 1] := item;
 end;
 
-procedure TGPersistentObjectList.Move(CurIndex, NewIndex: Integer);
+procedure TgPersistentObjectList.Move(CurIndex, NewIndex: Integer);
 var
   item: Pointer;
 begin
@@ -899,7 +899,7 @@ begin
   end;
 end;
 
-procedure TGPersistentObjectList.Put(Index: Integer; Item: TObject);
+procedure TgPersistentObjectList.Put(Index: Integer; Item: TObject);
 begin
 {$IFOPT R+}
   if Cardinal(Index) >= Cardinal(FCount) then
@@ -908,14 +908,14 @@ begin
   FList^[Index] := Item;
 end;
 
-function TGPersistentObjectList.Remove(item: TObject): Integer;
+function TgPersistentObjectList.Remove(item: TObject): Integer;
 begin
   Result := IndexOf(item);
   if Result >= 0 then
     Delete(Result);
 end;
 
-procedure TGPersistentObjectList.Pack;
+procedure TgPersistentObjectList.Pack;
 var
   i, j, n: Integer;
   p: PGPointerObjectList;
@@ -945,7 +945,7 @@ begin
   SetCount(n + 1);
 end;
 
-procedure TGPersistentObjectList.SetCapacity(newCapacity: Integer);
+procedure TgPersistentObjectList.SetCapacity(newCapacity: Integer);
 begin
   if newCapacity <> FCapacity then
   begin
@@ -956,13 +956,13 @@ begin
   end;
 end;
 
-procedure TGPersistentObjectList.RequiredCapacity(aCapacity: Integer);
+procedure TgPersistentObjectList.RequiredCapacity(aCapacity: Integer);
 begin
   if FCapacity < aCapacity then
     SetCapacity(aCapacity);
 end;
 
-procedure TGPersistentObjectList.SetCount(newCount: Integer);
+procedure TgPersistentObjectList.SetCount(newCount: Integer);
 begin
   if newCount > FCapacity then
     SetCapacity(newCount);
@@ -971,7 +971,7 @@ begin
   FCount := NewCount;
 end;
 
-procedure TGPersistentObjectList.DeleteAndFree(index: Integer);
+procedure TgPersistentObjectList.DeleteAndFree(index: Integer);
 var
   obj: TObject;
 begin
@@ -980,7 +980,7 @@ begin
   obj.Free;
 end;
 
-procedure TGPersistentObjectList.DeleteAndFreeItems(index: Integer; nbVals: Cardinal);
+procedure TgPersistentObjectList.DeleteAndFreeItems(index: Integer; nbVals: Cardinal);
 var
   i, n: Integer;
 begin
@@ -995,7 +995,7 @@ begin
   DeleteItems(index, nbVals);
 end;
 
-function TGPersistentObjectList.RemoveAndFree(item: TObject): Integer;
+function TgPersistentObjectList.RemoveAndFree(item: TObject): Integer;
 begin
   Result := IndexOf(item);
   if Result >= 0 then
@@ -1005,7 +1005,7 @@ begin
   end;
 end;
 
-procedure TGPersistentObjectList.DoClean;
+procedure TgPersistentObjectList.DoClean;
 var
   i: Integer;
 begin
@@ -1019,13 +1019,13 @@ begin
   end;
 end;
 
-procedure TGPersistentObjectList.Clean;
+procedure TgPersistentObjectList.Clean;
 begin
   DoClean;
   Clear;
 end;
 
-procedure TGPersistentObjectList.CleanFree;
+procedure TgPersistentObjectList.CleanFree;
 begin
   if Self <> nil then
   begin
@@ -1034,7 +1034,7 @@ begin
   end;
 end;
 
-procedure TGPersistentObjectList.WriteToFiler(writer: TGVirtualWriter);
+procedure TgPersistentObjectList.WriteToFiler(writer: TGVirtualWriter);
 (*
    Object List Filer Format :
       Integer (Version)
@@ -1096,7 +1096,7 @@ begin
   end;
 end;
 
-procedure TGPersistentObjectList.ReadFromFilerWithEvent(reader: TGVirtualReader; afterSenderObjectCreated: TNotifyEvent);
+procedure TgPersistentObjectList.ReadFromFilerWithEvent(reader: TGVirtualReader; afterSenderObjectCreated: TNotifyEvent);
 var
   obj: TGPersistentObject;
   m: TGPersistentObjectClass;
@@ -1155,22 +1155,22 @@ begin
   end;
 end;
 
-procedure TGPersistentObjectList.ReadFromFiler(reader: TGVirtualReader);
+procedure TgPersistentObjectList.ReadFromFiler(reader: TGVirtualReader);
 begin
   ReadFromFilerWithEvent(reader, AfterObjectCreatedByReader);
 end;
 
-procedure TGPersistentObjectList.AfterObjectCreatedByReader(Sender: TObject);
+procedure TgPersistentObjectList.AfterObjectCreatedByReader(Sender: TObject);
 begin
   // nothing
 end;
 
-procedure TGPersistentObjectList.Push(item: TObject);
+procedure TgPersistentObjectList.Push(item: TObject);
 begin
   Add(item);
 end;
 
-function TGPersistentObjectList.Pop: TObject;
+function TgPersistentObjectList.Pop: TObject;
 begin
   if FCount > 0 then
   begin
@@ -1181,7 +1181,7 @@ begin
     Result := nil;
 end;
 
-procedure TGPersistentObjectList.PopAndFree;
+procedure TgPersistentObjectList.PopAndFree;
 begin
   Pop.Free;
 end;
@@ -1216,7 +1216,7 @@ begin
   until I >= R;
 end;
 
-procedure TGPersistentObjectList.Sort(compareFunc: TGObjectListSortCompare);
+procedure TgPersistentObjectList.Sort(compareFunc: TGObjectListSortCompare);
 begin
   if Count > 1 then
     POListQuickSort(FList, 0, Count - 1, compareFunc);
@@ -1805,6 +1805,6 @@ end;
 initialization // -------------------------------------------------------------
 
 	// class registrations
-  RegisterClass(TGPersistentObjectList);
+  RegisterClass(TgPersistentObjectList);
 
 end.

Source/GLS.PipelineTransformation.pas → Source/GLScene.PipelineTransform.pas

@@ -1,7 +1,7 @@
 //
 // The graphics engine GLScene https://github.com/glscene
 //
-unit GLS.PipelineTransformation;
+unit GLScene.PipelineTransform;
 
 (* Pipeline transformations *)
 
@@ -20,7 +20,7 @@ const
   MAX_MATRIX_STACK_DEPTH = 128;
 
 type
-  TGLPipelineTransformationState =
+  TgPipelineTransformationState =
   (
     trsModelViewChanged,
     trsInvModelViewChanged,
@@ -29,15 +29,15 @@ type
     trsViewProjChanged,
     trsFrustum
   );
-  TGLPipelineTransformationStates = set of TGLPipelineTransformationState;
+  TgPipelineTransformationStates = set of TgPipelineTransformationState;
 
 const
   cAllStatesChanged = [trsModelViewChanged, trsInvModelViewChanged, trsInvModelChanged, trsViewProjChanged, trsNormalModelChanged, trsFrustum];
 
 type
-  PTransformationRec = ^TTransformationRec;
-  TTransformationRec = record
-    FStates: TGLPipelineTransformationStates;
+  PgTransformationRec = ^TgTransformationRec;
+  TgTransformationRec = record
+    FStates: TgPipelineTransformationStates;
     FModelMatrix: TGLMatrix;
     FViewMatrix: TGLMatrix;
     FProjectionMatrix: TGLMatrix;
@@ -50,14 +50,14 @@ type
   end;
 
 type
-  TOnMatricesPush = procedure() of object;
+  TgOnMatricesPush = procedure() of object;
 
-  TGLTransformation = class(TObject)
+  TgTransformation = class(TObject)
   private
     FStackPos: Integer;
-    FStack: array of TTransformationRec;
+    FStack: array of TgTransformationRec;
     FLoadMatricesEnabled: Boolean;
-    FOnPush: TOnMatricesPush;
+    FOnPush: TGOnMatricesPush;
     function GetModelMatrix: PGLMatrix; inline;
     function GetViewMatrix: PGLMatrix; inline;
     function GetProjectionMatrix: PGLMatrix; inline;
@@ -71,18 +71,18 @@ type
     procedure LoadModelViewMatrix; inline;
     procedure LoadProjectionMatrix; inline;
     procedure DoMatricesLoaded; inline;
-    property OnPush: TOnMatricesPush read FOnPush write FOnPush;
+    property OnPush: TgOnMatricesPush read FOnPush write FOnPush;
   public
     constructor Create;
     procedure SetModelMatrix(const AMatrix: TGLMatrix); inline;
     procedure SetViewMatrix(const AMatrix: TGLMatrix); inline;
     procedure SetProjectionMatrix(const AMatrix: TGLMatrix); inline;
     procedure IdentityAll; inline;
-    procedure Push(AValue: PTransformationRec); overload;
+    procedure Push(AValue: PGTransformationRec); overload;
     procedure Push(); overload; inline;
     procedure Pop;
     procedure ReplaceFromStack;
-    function StackTop: TTransformationRec; inline;
+    function StackTop: TGTransformationRec; inline;
     property ModelMatrix: PGLMatrix read GetModelMatrix;
     property ViewMatrix: PGLMatrix read GetViewMatrix;
     property ProjectionMatrix: PGLMatrix read GetProjectionMatrix;
@@ -97,21 +97,21 @@ type
 
 implementation //------------------------------------------------------------
 
-constructor TGLTransformation.Create;
+constructor TGTransformation.Create;
 begin
   FStackPos := 0;
   SetLength(FStack, MAX_MATRIX_STACK_DEPTH);
   IdentityAll;
 end;
 
-procedure TGLTransformation.LoadProjectionMatrix;
+procedure TGTransformation.LoadProjectionMatrix;
 begin
   glMatrixMode(GL_PROJECTION);
   glLoadMatrixf(@FStack[FStackPos].FProjectionMatrix);
   glMatrixMode(GL_MODELVIEW);
 end;
 
-function TGLTransformation.GetModelViewMatrix: PGLMatrix;
+function TGTransformation.GetModelViewMatrix: PGLMatrix;
 begin
   if trsModelViewChanged in FStack[FStackPos].FStates then
   begin
@@ -122,12 +122,12 @@ begin
   Result := @FStack[FStackPos].FModelViewMatrix;
 end;
 
-procedure TGLTransformation.LoadModelViewMatrix;
+procedure TGTransformation.LoadModelViewMatrix;
 begin
   glLoadMatrixf(PGLFloat(GetModelViewMatrix));
 end;
 
-procedure TGLTransformation.IdentityAll;
+procedure TGTransformation.IdentityAll;
 begin
   with FStack[FStackPos] do
   begin
@@ -143,13 +143,13 @@ begin
   end;
 end;
 
-procedure TGLTransformation.DoMatricesLoaded;
+procedure TGTransformation.DoMatricesLoaded;
 begin
   if Assigned(FOnPush) then
     FOnPush();
 end;
 
-procedure TGLTransformation.Push;
+procedure TGTransformation.Push;
 var
   prevPos: Integer;
 begin
@@ -158,7 +158,7 @@ begin
   FStack[FStackPos] := FStack[prevPos];
 end;
 
-procedure TGLTransformation.Push(AValue: PTransformationRec);
+procedure TGTransformation.Push(AValue: PGTransformationRec);
 var
   prevPos: Integer;
 begin
@@ -186,7 +186,7 @@ begin
     FStack[FStackPos] := FStack[prevPos];
 end;
 
-procedure TGLTransformation.Pop;
+procedure TGTransformation.Pop;
 begin
   {$IFDEF USE_LOGGING}
   if FStackPos = 0 then
@@ -204,7 +204,7 @@ begin
   end;
 end;
 
-procedure TGLTransformation.ReplaceFromStack;
+procedure TGTransformation.ReplaceFromStack;
 var
   prevPos: Integer;
 begin
@@ -227,22 +227,22 @@ begin
   end;
 end;
 
-function TGLTransformation.GetModelMatrix: PGLMatrix;
+function TGTransformation.GetModelMatrix: PGLMatrix;
 begin
   Result := @FStack[FStackPos].FModelMatrix;
 end;
 
-function TGLTransformation.GetViewMatrix: PGLMatrix;
+function TGTransformation.GetViewMatrix: PGLMatrix;
 begin
   Result := @FStack[FStackPos].FViewMatrix;
 end;
 
-function TGLTransformation.GetProjectionMatrix: PGLMatrix;
+function TGTransformation.GetProjectionMatrix: PGLMatrix;
 begin
   Result := @FStack[FStackPos].FProjectionMatrix;
 end;
 
-procedure TGLTransformation.SetModelMatrix(const AMatrix: TGLMatrix);
+procedure TGTransformation.SetModelMatrix(const AMatrix: TGLMatrix);
 begin
   FStack[FStackPos].FModelMatrix := AMatrix;
   FStack[FStackPos].FStates := FStack[FStackPos].FStates +
@@ -251,7 +251,7 @@ begin
     LoadModelViewMatrix;
 end;
 
-procedure TGLTransformation.SetViewMatrix(const AMatrix: TGLMatrix);
+procedure TGTransformation.SetViewMatrix(const AMatrix: TGLMatrix);
 begin
   FStack[FStackPos].FViewMatrix:= AMatrix;
   FStack[FStackPos].FStates := FStack[FStackPos].FStates +
@@ -260,12 +260,12 @@ begin
     LoadModelViewMatrix;
 end;
 
-function TGLTransformation.StackTop: TTransformationRec;
+function TGTransformation.StackTop: TGTransformationRec;
 begin
   Result := FStack[FStackPos];
 end;
 
-procedure TGLTransformation.SetProjectionMatrix(const AMatrix: TGLMatrix);
+procedure TGTransformation.SetProjectionMatrix(const AMatrix: TGLMatrix);
 begin
   FStack[FStackPos].FProjectionMatrix := AMatrix;
   FStack[FStackPos].FStates := FStack[FStackPos].FStates +
@@ -275,7 +275,7 @@ begin
 end;
 
 
-function TGLTransformation.GetInvModelViewMatrix: PGLMatrix;
+function TGTransformation.GetInvModelViewMatrix: PGLMatrix;
 begin
   if trsInvModelViewChanged in FStack[FStackPos].FStates then
   begin
@@ -286,7 +286,7 @@ begin
   Result := @FStack[FStackPos].FInvModelViewMatrix;
 end;
 
-function TGLTransformation.GetInvModelMatrix: PGLMatrix;
+function TGTransformation.GetInvModelMatrix: PGLMatrix;
 begin
   if trsInvModelChanged in FStack[FStackPos].FStates then
   begin
@@ -296,7 +296,7 @@ begin
   Result := @FStack[FStackPos].FInvModelMatrix;
 end;
 
-function TGLTransformation.GetNormalModelMatrix: PAffineMatrix;
+function TGTransformation.GetNormalModelMatrix: PAffineMatrix;
 var
   M: TGLMatrix;
 begin
@@ -310,7 +310,7 @@ begin
   Result := @FStack[FStackPos].FNormalModelMatrix;
 end;
 
-function TGLTransformation.GetViewProjectionMatrix: PGLMatrix;
+function TGTransformation.GetViewProjectionMatrix: PGLMatrix;
 begin
   if trsViewProjChanged in FStack[FStackPos].FStates then
   begin
@@ -321,7 +321,7 @@ begin
   Result := @FStack[FStackPos].FViewProjectionMatrix;
 end;
 
-function TGLTransformation.GetFrustum: TFrustum;
+function TGTransformation.GetFrustum: TFrustum;
 begin
   if trsFrustum in FStack[FStackPos].FStates then
   begin

Source/GLScene.VectorLists.pas

@@ -239,7 +239,7 @@ type
 
   (*  A list of Integers. Similar to TList, but using TTexPoint as items.
      The list has stack-like push/pop methods. *)
-  TGIntegerList = class(TGBaseList)
+  TgIntegerList = class(TGBaseList)
   private
     FList: PIntegerArray;
   protected
@@ -253,7 +253,7 @@ type
     function AddNC(const item: Integer): Integer; overload; inline;
     procedure Add(const i1, i2: Integer); overload; inline;
     procedure Add(const i1, i2, i3: Integer); overload; inline;
-    procedure Add(const AList: TGIntegerList); overload; inline;
+    procedure Add(const AList: TgIntegerList); overload; inline;
     procedure Push(const Val: Integer); inline;
     function Pop: Integer; inline;
     procedure Insert(Index: Integer; const item: Integer); inline;
@@ -266,7 +266,7 @@ type
     // Add n integers at the address starting at (and including) first
     procedure AddIntegers(const First: PInteger; n: Integer); overload;
     // Add all integers from aList into the list
-    procedure AddIntegers(const aList: TGIntegerList); overload;
+    procedure AddIntegers(const aList: TgIntegerList); overload;
     // Add all integers from anArray into the list
     procedure AddIntegers(const anArray: array of Integer); overload;
     // Returns the minimum integer item, zero if list is empty
@@ -506,7 +506,7 @@ procedure QuickSortLists(startIndex, endIndex: Integer; refList: TGSingleList; o
 procedure QuickSortLists(startIndex, endIndex: Integer; refList: TGSingleList; objList: TGBaseList); overload;
 (* Sort the refList in ascending order, ordering objList on the way.
    Use if, and *ONLY* if refList contains only values superior or equal to 1 *)
-procedure FastQuickSortLists(startIndex, endIndex: Integer; const refList: TGSingleList; const objList: TGPersistentObjectList);
+procedure FastQuickSortLists(startIndex, endIndex: Integer; const refList: TGSingleList; const objList: TgPersistentObjectList);
 
 
 implementation // ------------------------------------------------------------
@@ -619,7 +619,7 @@ begin
   end;
 end;
 
-procedure FastQuickSortLists(startIndex, endIndex: Integer; const refList: TGSingleList; const objList: TGPersistentObjectList);
+procedure FastQuickSortLists(startIndex, endIndex: Integer; const refList: TGSingleList; const objList: TgPersistentObjectList);
 var
   ppl:      PIntegerArray;
   oTemp:    Pointer;
@@ -1906,29 +1906,29 @@ begin
 end;
 
 // ------------------
-// ------------------ TGIntegerList ------------------
+// ------------------ TgIntegerList ------------------
 // ------------------
 
-constructor TGIntegerList.Create;
+constructor TgIntegerList.Create;
 begin
   FItemSize := SizeOf(Integer);
   inherited Create;
   FGrowthDelta := cDefaultListGrowthDelta;
 end;
 
-procedure TGIntegerList.Assign(Src: TPersistent);
+procedure TgIntegerList.Assign(Src: TPersistent);
 begin
   if Assigned(Src) then
   begin
     inherited;
-    if (Src is TGIntegerList) then
-      System.Move(TGIntegerList(Src).FList^, FList^, FCount * SizeOf(Integer));
+    if (Src is TgIntegerList) then
+      System.Move(TgIntegerList(Src).FList^, FList^, FCount * SizeOf(Integer));
   end
   else
     Clear;
 end;
 
-function TGIntegerList.Add(const item: Integer): Integer;
+function TgIntegerList.Add(const item: Integer): Integer;
 begin
   Result := FCount;
   if Result = FCapacity then
@@ -1937,14 +1937,14 @@ begin
   Inc(FCount);
 end;
 
-function TGIntegerList.AddNC(const item: Integer): Integer;
+function TgIntegerList.AddNC(const item: Integer): Integer;
 begin
   Result := FCount;
   FList^[Result] := Item;
   Inc(FCount);
 end;
 
-procedure TGIntegerList.Add(const i1, i2: Integer);
+procedure TgIntegerList.Add(const i1, i2: Integer);
 var
   tmpList : PIntegerArray;
 begin
@@ -1956,7 +1956,7 @@ begin
   tmpList^[1] := i2;
 end;
 
-procedure TGIntegerList.Add(const i1, i2, i3: Integer);
+procedure TgIntegerList.Add(const i1, i2, i3: Integer);
 var
   tmpList : PIntegerArray;
 begin
@@ -1969,7 +1969,7 @@ begin
   tmpList^[2] := i3;
 end;
 
-procedure TGIntegerList.Add(const AList: TGIntegerList);
+procedure TgIntegerList.Add(const AList: TgIntegerList);
 begin
   if Assigned(AList) and (AList.Count > 0) then
   begin
@@ -1980,7 +1980,7 @@ begin
   end;
 end;
 
-function TGIntegerList.Get(Index: Integer): Integer;
+function TgIntegerList.Get(Index: Integer): Integer;
 begin
 {$IFOPT R+}
     Assert(Cardinal(Index) < Cardinal(FCount));
@@ -1988,7 +1988,7 @@ begin
   Result := FList^[Index];
 end;
 
-procedure TGIntegerList.Insert(Index: Integer; const Item: Integer);
+procedure TgIntegerList.Insert(Index: Integer; const Item: Integer);
 begin
 {$IFOPT R+}
     Assert(Cardinal(Index) < Cardinal(FCount));
@@ -2001,7 +2001,7 @@ begin
   Inc(FCount);
 end;
 
-procedure TGIntegerList.Remove(const item: Integer);
+procedure TgIntegerList.Remove(const item: Integer);
 var
   I: Integer;
 begin
@@ -2016,7 +2016,7 @@ begin
   end;
 end;
 
-procedure TGIntegerList.Put(Index: Integer; const Item: Integer);
+procedure TgIntegerList.Put(Index: Integer; const Item: Integer);
 begin
 {$IFOPT R+}
     Assert(Cardinal(Index) < Cardinal(FCount));
@@ -2024,18 +2024,18 @@ begin
   FList^[Index] := Item;
 end;
 
-procedure TGIntegerList.SetCapacity(NewCapacity: Integer);
+procedure TgIntegerList.SetCapacity(NewCapacity: Integer);
 begin
   inherited;
   FList := PIntegerArray(FBaseList);
 end;
 
-procedure TGIntegerList.Push(const Val: Integer);
+procedure TgIntegerList.Push(const Val: Integer);
 begin
   Add(Val);
 end;
 
-function TGIntegerList.Pop: Integer;
+function TgIntegerList.Pop: Integer;
 begin
   if FCount > 0 then
   begin
@@ -2046,7 +2046,7 @@ begin
     Result := 0;
 end;
 
-procedure TGIntegerList.AddSerie(aBase, aDelta, aCount: Integer);
+procedure TgIntegerList.AddSerie(aBase, aDelta, aCount: Integer);
 var
   tmpList : PInteger;
   I:    Integer;
@@ -2064,7 +2064,7 @@ begin
   FCount := Count + aCount;
 end;
 
-procedure TGIntegerList.AddIntegers(const First: PInteger; n: Integer);
+procedure TgIntegerList.AddIntegers(const First: PInteger; n: Integer);
 begin
   if n < 1 then
     Exit;
@@ -2073,14 +2073,14 @@ begin
   FCount := FCount + n;
 end;
 
-procedure TGIntegerList.AddIntegers(const aList: TGIntegerList);
+procedure TgIntegerList.AddIntegers(const aList: TgIntegerList);
 begin
   if not Assigned(aList) then
     Exit;
   AddIntegers(@aList.List[0], aList.Count);
 end;
 
-procedure TGIntegerList.AddIntegers(const anArray: array of Integer);
+procedure TgIntegerList.AddIntegers(const anArray: array of Integer);
 var
   n: Integer;
 begin
@@ -2101,12 +2101,12 @@ begin
   end;
 end;
 
-function TGIntegerList.IndexOf(item: Integer): Integer; register;
+function TgIntegerList.IndexOf(item: Integer): Integer; register;
 begin
   Result := IntegerSearch(item, FList, FCount);
 end;
 
-function TGIntegerList.MinInteger: Integer;
+function TgIntegerList.MinInteger: Integer;
 var
   I: Integer;
   locList: PIntegerVector;
@@ -2123,7 +2123,7 @@ begin
     Result := 0;
 end;
 
-function TGIntegerList.MaxInteger: Integer;
+function TgIntegerList.MaxInteger: Integer;
 var
   I: Integer;
   locList: PIntegerVector;
@@ -2169,13 +2169,13 @@ begin
   until I >= right;
 end;
 
-procedure TGIntegerList.Sort;
+procedure TgIntegerList.Sort;
 begin
   if (FList <> nil) and (Count > 1) then
     IntegerQuickSort(FList, 0, Count - 1);
 end;
 
-procedure TGIntegerList.SortAndRemoveDuplicates;
+procedure TgIntegerList.SortAndRemoveDuplicates;
 var
   I, J, lastVal: Integer;
   localList:     PIntegerArray;
@@ -2199,14 +2199,14 @@ begin
   end;
 end;
 
-function TGIntegerList.BinarySearch(const Value: Integer): Integer;
+function TgIntegerList.BinarySearch(const Value: Integer): Integer;
 var
   found: Boolean;
 begin
   Result := BinarySearch(Value, False, found);
 end;
 
-function TGIntegerList.BinarySearch(const Value: Integer; returnBestFit: Boolean; var found: Boolean): Integer;
+function TgIntegerList.BinarySearch(const Value: Integer; returnBestFit: Boolean; var found: Boolean): Integer;
 var
   Index:   Integer;
   min, max, mid: Integer;
@@ -2258,7 +2258,7 @@ begin
     Result := Index;
 end;
 
-function TGIntegerList.AddSorted(const Value: Integer; const ignoreDuplicates: Boolean = False): Integer;
+function TgIntegerList.AddSorted(const Value: Integer; const ignoreDuplicates: Boolean = False): Integer;
 var
   Index: Integer;
   found: Boolean;
@@ -2273,7 +2273,7 @@ begin
   end;
 end;
 
-procedure TGIntegerList.RemoveSorted(const Value: Integer);
+procedure TgIntegerList.RemoveSorted(const Value: Integer);
 var
   Index: Integer;
 begin
@@ -2282,7 +2282,7 @@ begin
     Delete(Index);
 end;
 
-procedure TGIntegerList.Offset(delta: Integer);
+procedure TgIntegerList.Offset(delta: Integer);
 var
   I: Integer;
   locList: PIntegerArray;
@@ -2292,7 +2292,7 @@ begin
     locList^[I] := locList^[I] + delta;
 end;
 
-procedure TGIntegerList.Offset(delta: Integer; const base, nb: Integer);
+procedure TgIntegerList.Offset(delta: Integer; const base, nb: Integer);
 var
   I: Integer;
   locList: PIntegerArray;

Sourcex/FMxInfo.pas

@@ -26,7 +26,7 @@ uses
   FMX.Objects,
   FMX.Memo.Types,
 
-  GXS.OpenGL,
+  GLScene.OpenGL4,
   GXS.Scene,
   GXS.Context,
   GLScene.Strings;
@@ -177,7 +177,7 @@ var
   i: Integer;
   ExtStr: String;
 
-  procedure IntLimitToLabel(const aLabel: TLabel; const aLimit: TLimitType);
+  procedure IntLimitToLabel(const aLabel: TLabel; const aLimit: TgxLimitType);
   begin
     aLabel.Text := IntToStr(aSceneBuffer.LimitOf[aLimit]);
   end;

Sourcex/Formatx.Q3MD3.pas

@@ -44,20 +44,20 @@ type
     into an animation list. The NamePrefix parameter is used to determine
     which class of animation is extracted. eg NamePrefix='TORSO' will load
     all animations starting with 'TORSO_' like 'TORSO_STAND' *)
-procedure LoadQ3Anims(Animations: TGXActorAnimations; FileName: string;
+procedure LoadQ3Anims(Animations: TgxActorAnimations; FileName: string;
   NamePrefix: string); overload;
-procedure LoadQ3Anims(Animations: TGXActorAnimations; Strings: TStrings;
+procedure LoadQ3Anims(Animations: TgxActorAnimations; Strings: TStrings;
   NamePrefix: string); overload;
 
 (* Quake3 Skin loading procedure. Use this procedure to apply textures
   to a GLActor. This doens't use the actors original preloaded materials so
   it may be a good idea to clear the actors material library before
   running this to keep everything nice and clean. *)
-procedure LoadQ3Skin(FileName: string; Actor: TGXActor);
+procedure LoadQ3Skin(FileName: string; Actor: TgxActor);
 
 implementation // -------------------------------------------------------------
 
-procedure LoadQ3Anims(Animations: TGXActorAnimations; FileName: string;
+procedure LoadQ3Anims(Animations: TgxActorAnimations; FileName: string;
   NamePrefix: string);
 var
   AnimStrings: TStrings;
@@ -68,7 +68,7 @@ begin
   AnimStrings.Free;
 end;
 
-procedure LoadQ3Anims(Animations: TGXActorAnimations; Strings: TStrings;
+procedure LoadQ3Anims(Animations: TgxActorAnimations; Strings: TStrings;
   NamePrefix: string);
 var
   anim: TStringList;
@@ -158,7 +158,7 @@ begin
         StartFrame := val[0];
         EndFrame := val[0] + val[1] - 1;
         Reference := aarMorph;
-        // Need a way in TGXActorAnimation to tell whether it is
+        // Need a way in TgxActorAnimation to tell whether it is
         // a looping type animation or a play once type and
         // the framerate (interval) it uses. Both of these can
         // be determined here and loaded.
@@ -168,7 +168,7 @@ begin
   anim.Free;
 end;
 
-procedure LoadQ3Skin(FileName: string; Actor: TGXActor);
+procedure LoadQ3Skin(FileName: string; Actor: TgxActor);
 const
   // This list can be expanded if necessary
   ExtList: array [0 .. 3] of string = ('.jpg', '.jpeg', '.tga', '.bmp');
@@ -176,12 +176,12 @@ var
   SkinStrings, temp: TStrings;
   i, j: Integer;
   libmat: TgxLibMaterial;
-  mesh: TGXMeshObject;
+  mesh: TgxMeshObject;
   texture, textureNoDir: string;
   textureFound, meshFound: Boolean;
 
-  function GetMeshObjectByName(MeshObjects: TGXMeshObjectList; Name: string;
-    var mesh: TGXMeshObject): Boolean;
+  function GetMeshObjectByName(MeshObjects: TgxMeshObjectList; Name: string;
+    var mesh: TgxMeshObject): Boolean;
   var
     i: Integer;
   begin