Formatted

Source/GLS.FireFX.pas

@@ -94,8 +94,7 @@ type
        by ringVectorX/Y, which should be of unit length (but you may not
        make them of unit length if you want "elliptic" rings). *)
     procedure RingExplosion(minInitialSpeed, maxInitialSpeed, lifeBoostFactor: Single;
-      const ringVectorX, ringVectorY: TAffineVector;
-      nbParticles: Integer = -1);
+      const ringVectorX, ringVectorY: TAffineVector; nbParticles: Integer = -1);
     // Current Nb of particles.
     property ParticleCount: Integer read NP;
     procedure DoProgress(const progressTime: TGLProgressTimes); override;
@@ -425,8 +424,7 @@ end;
 
 
 procedure TGLFireFXManager.RingExplosion(minInitialSpeed, maxInitialSpeed, lifeBoostFactor: Single;
-  const ringVectorX, ringVectorY: TAffineVector;
-  nbParticles: Integer = -1);
+  const ringVectorX, ringVectorY: TAffineVector; nbParticles: Integer = -1);
 var
   n: Integer;
   tmp, refPos: TGLVector;

Source/GLS.SkyDome.pas

@@ -183,7 +183,7 @@ type
     procedure LoadStarsFile(const starsFileName: string);
   end;
 
-  TGLSkyDomeOption = (sdoEquatorialGrid, sdoEclipticGrid, sdoGalacticGrid, sdoSupergalacticGrid, sdoTwinkle);
+  TGLSkyDomeOption = (sdoTwinkle);
   TGLSkyDomeOptions = set of TGLSkyDomeOption;
 
   (* Renders a sky dome always centered on the camera.
@@ -1215,23 +1215,7 @@ begin
   if val <> FOptions then
   begin
     FOptions := val;
-    if sdoEquatorialGrid in FOptions then
-    begin
-      // DrawEquatorialGrid();
-    end
-    else if sdoEclipticGrid in FOptions then
-    begin
-      // DrawEclipticGrid();
-    end
-    else if sdoGalacticGrid in FOptions then
-    begin
-      // DrawGalacticGrid();
-    end
-    else if sdoSupergalacticGrid in FOptions then
-    begin
-      // DrawGalacticGrid();
-    end
-    else if sdoTwinkle in FOptions then
+    if sdoTwinkle in FOptions then
       ObjectStyle := ObjectStyle + [osDirectDraw]
     else
     begin

Source/GLS.VectorTypesExt.pas

@@ -5,7 +5,7 @@ unit GLS.VectorTypesExt;
 
 interface
 
-{.$I GLScene.inc}
+{.$I GLS.Scene.inc}
 
 uses
   System.Types,

Source/GLSL.TextureShaders.pas

@@ -1,7 +1,6 @@
 //
 // The graphics engine GLScene https://github.com/glscene
 //
-
 unit GLSL.TextureShaders;
 
 (*

Source/GLSL.UserShader.pas

@@ -1,7 +1,6 @@
 //
 // The graphics engine GLScene https://github.com/glscene
 //
-
 unit GLSL.UserShader;
 
 (*

Source/Physics.NGDManager.pas

@@ -9,7 +9,7 @@ unit Physics.NGDManager;
 *)
 interface
 
-{ .$I GLScene.inc }
+{.$I GLS.Scene.inc }
 
 uses
   System.Classes, // TComponent TList TWriter TReader TPersistent

Source/Physics.SPIManager.pas

@@ -1,7 +1,6 @@
 //
 // The graphics rendering engine GLScene http://glscene.org
 //
-
 unit Physics.SPIManager;
 
 (* The Manager for Scene Physics Interactions (SPI) *)