Fixed some advdemos

glscene · Apr 11, 2024 · bc5008a · bc5008a
1 parent 3cc7461
commit bc5008a
Show file tree

Hide file tree

Showing 81 changed files with 10,292 additions and 744 deletions.
diff --git a/Assets/Map/callisto.jpg b/Assets/Map/callisto.jpg
diff --git a/Assets/Map/charon.jpg b/Assets/Map/charon.jpg
diff --git a/Assets/Map/deimos.jpg b/Assets/Map/deimos.jpg
diff --git a/Assets/Map/enceladus.jpg b/Assets/Map/enceladus.jpg
diff --git a/Assets/Map/europa.jpg b/Assets/Map/europa.jpg
diff --git a/Assets/Map/ganymede.jpg b/Assets/Map/ganymede.jpg
diff --git a/Assets/Map/io.jpg b/Assets/Map/io.jpg
diff --git a/Assets/Map/mars.jpg b/Assets/Map/mars.jpg
diff --git a/Assets/Map/mercury.jpg b/Assets/Map/mercury.jpg
diff --git a/Assets/Map/neptune.jpg b/Assets/Map/neptune.jpg
diff --git a/Assets/Map/phobos.jpg b/Assets/Map/phobos.jpg
diff --git a/Assets/Map/pluto.jpg b/Assets/Map/pluto.jpg
diff --git a/Assets/Map/saturn.jpg b/Assets/Map/saturn.jpg
diff --git a/Assets/Map/titan.jpg b/Assets/Map/titan.jpg
diff --git a/Assets/Map/uranus.jpg b/Assets/Map/uranus.jpg
diff --git a/Assets/Map/venus.jpg b/Assets/Map/venus.jpg
diff --git a/Examples/AdvDemos.groupproj b/Examples/AdvDemos.groupproj
@@ -33,6 +33,9 @@
         <Projects Include="AdvDemos\GLSViewer\GLSViewerD.dproj">
             <Dependencies/>
         </Projects>
+        <Projects Include="AdvDemos\GLSViewer\GLSViewerC.cbproj">
+            <Dependencies/>
+        </Projects>
         <Projects Include="AdvDemos\IntensityMesh\IntensityMeshD.dproj">
             <Dependencies/>
         </Projects>
@@ -155,6 +158,15 @@
     <Target Name="GLSViewerD:Make">
         <MSBuild Projects="AdvDemos\GLSViewer\GLSViewerD.dproj" Targets="Make"/>
     </Target>
+    <Target Name="GLSViewerC">
+        <MSBuild Projects="AdvDemos\GLSViewer\GLSViewerC.cbproj"/>
+    </Target>
+    <Target Name="GLSViewerC:Clean">
+        <MSBuild Projects="AdvDemos\GLSViewer\GLSViewerC.cbproj" Targets="Clean"/>
+    </Target>
+    <Target Name="GLSViewerC:Make">
+        <MSBuild Projects="AdvDemos\GLSViewer\GLSViewerC.cbproj" Targets="Make"/>
+    </Target>
     <Target Name="IntensityMeshD">
         <MSBuild Projects="AdvDemos\IntensityMesh\IntensityMeshD.dproj"/>
     </Target>
@@ -228,13 +240,13 @@
         <MSBuild Projects="AdvDemos\TexCombine\TexCombineC.cbproj" Targets="Make"/>
     </Target>
     <Target Name="Build">
-        <CallTarget Targets="Actorms3dD;ActorMS3dC;ArchipelagoD;ArchipelagoC;ChristmasD;ChristmasC;EarthD;EarthC;ForestD;GLSViewerD;IntensityMeshD;IntensityMeshC;PanoViewerD;PanoViewerC;QuakeActorD;QuakeActorC;TexCombineD;TexCombineC"/>
+        <CallTarget Targets="Actorms3dD;ActorMS3dC;ArchipelagoD;ArchipelagoC;ChristmasD;ChristmasC;EarthD;EarthC;ForestD;GLSViewerD;GLSViewerC;IntensityMeshD;IntensityMeshC;PanoViewerD;PanoViewerC;QuakeActorD;QuakeActorC;TexCombineD;TexCombineC"/>
     </Target>
     <Target Name="Clean">
-        <CallTarget Targets="Actorms3dD:Clean;ActorMS3dC:Clean;ArchipelagoD:Clean;ArchipelagoC:Clean;ChristmasD:Clean;ChristmasC:Clean;EarthD:Clean;EarthC:Clean;ForestD:Clean;GLSViewerD:Clean;IntensityMeshD:Clean;IntensityMeshC:Clean;PanoViewerD:Clean;PanoViewerC:Clean;QuakeActorD:Clean;QuakeActorC:Clean;TexCombineD:Clean;TexCombineC:Clean"/>
+        <CallTarget Targets="Actorms3dD:Clean;ActorMS3dC:Clean;ArchipelagoD:Clean;ArchipelagoC:Clean;ChristmasD:Clean;ChristmasC:Clean;EarthD:Clean;EarthC:Clean;ForestD:Clean;GLSViewerD:Clean;GLSViewerC:Clean;IntensityMeshD:Clean;IntensityMeshC:Clean;PanoViewerD:Clean;PanoViewerC:Clean;QuakeActorD:Clean;QuakeActorC:Clean;TexCombineD:Clean;TexCombineC:Clean"/>
     </Target>
     <Target Name="Make">
-        <CallTarget Targets="Actorms3dD:Make;ActorMS3dC:Make;ArchipelagoD:Make;ArchipelagoC:Make;ChristmasD:Make;ChristmasC:Make;EarthD:Make;EarthC:Make;ForestD:Make;GLSViewerD:Make;IntensityMeshD:Make;IntensityMeshC:Make;PanoViewerD:Make;PanoViewerC:Make;QuakeActorD:Make;QuakeActorC:Make;TexCombineD:Make;TexCombineC:Make"/>
+        <CallTarget Targets="Actorms3dD:Make;ActorMS3dC:Make;ArchipelagoD:Make;ArchipelagoC:Make;ChristmasD:Make;ChristmasC:Make;EarthD:Make;EarthC:Make;ForestD:Make;GLSViewerD:Make;GLSViewerC:Make;IntensityMeshD:Make;IntensityMeshC:Make;PanoViewerD:Make;PanoViewerC:Make;QuakeActorD:Make;QuakeActorC:Make;TexCombineD:Make;TexCombineC:Make"/>
     </Target>
     <Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
 </Project>
diff --git a/Examples/AdvDemos/Earth/fEarthD.dfm b/Examples/AdvDemos/Earth/fEarthD.dfm
@@ -65,41 +65,63 @@ object FormEarth: TFormEarth
       Align = alClient
       Indent = 33
       TabOrder = 0
+      OnClick = tvPlanetsClick
       Items.NodeData = {
-        070900000009540054007200650065004E006F00640065002D00000000000000
-        00000000FFFFFFFFFFFFFFFF0000000000000000000000000001074D00650072
-        0063007500720079000000290000000000000000000000FFFFFFFFFFFFFFFF00
-        0000000000000000000000000105560065006E00750073000000290000000000
-        000000000000FFFFFFFFFFFFFFFF000000000000000000010000000105450061
-        007200740068000000270000000000000000000000FFFFFFFFFFFFFFFF000000
-        0000000000000000000001044D006F006F006E00000027000000000000000000
-        0000FFFFFFFFFFFFFFFF0000000000000000000200000001044D006100720073
-        000000290000000000000000000000FFFFFFFFFFFFFFFF000000000000000000
-        000000000105440065006D006F0073000000290000000000000000000000FFFF
-        FFFFFFFFFFFF00000000000000000000000000010546006F0062006F00730000
-        002D0000000000000000000000FFFFFFFFFFFFFFFF0000000000000000000400
-        000001074A007500700069007400650072000000230000000000000000000000
-        FFFFFFFFFFFFFFFF00000000000000000000000000010249006F0000002B0000
-        000000000000000000FFFFFFFFFFFFFFFF000000000000000000000000000106
-        4500750072006F007000610000002F0000000000000000000000FFFFFFFFFFFF
-        FFFF000000000000000000000000000108430061006C006C006900730074006F
-        0000002D0000000000000000000000FFFFFFFFFFFFFFFF000000000000000000
-        000000000107470061006E0069006D006500640000002B000000000000000000
-        0000FFFFFFFFFFFFFFFF00000000000000000002000000010653006100740075
-        0072006E0000002D0000000000000000000000FFFFFFFFFFFFFFFF0000000000
-        0000000000000000010745006E00630065006C00610064000000290000000000
-        000000000000FFFFFFFFFFFFFFFF000000000000000000000000000105540069
-        00740061006E0000002B0000000000000000000000FFFFFFFFFFFFFFFF000000
-        0000000000000000000001065500720061006E007500730000002D0000000000
-        000000000000FFFFFFFFFFFFFFFF0000000000000000000000000001074E0065
-        007000740075006E0065000000290000000000000000000000FFFFFFFFFFFFFF
-        FF00000000000000000000000000010550006C00750074006F00}
+        070A00000009540054007200650065004E006F00640065002500000000000000
+        00000000FFFFFFFFFFFFFFFF000000000000000000000000000103530075006E
+        0000002D0000000100000001000000FFFFFFFFFFFFFFFF000000000000000000
+        0000000001074D00650072006300750072007900000029000000020000000200
+        0000FFFFFFFFFFFFFFFF000000000000000000000000000105560065006E0075
+        0073000000290000000300000003000000FFFFFFFFFFFFFFFF00000000000000
+        0000010000000105450061007200740068000000270000000400000004000000
+        FFFFFFFFFFFFFFFF0000000000000000000000000001044D006F006F006E0000
+        00270000000500000005000000FFFFFFFFFFFFFFFF0000000000000000000200
+        000001044D006100720073000000290000000600000006000000FFFFFFFFFFFF
+        FFFF000000000000000000000000000105440065006D006F0073000000290000
+        000700000007000000FFFFFFFFFFFFFFFF000000000000000000000000000105
+        46006F0062006F00730000002D0000000800000008000000FFFFFFFFFFFFFFFF
+        0000000000000000000400000001074A00750070006900740065007200000023
+        0000000900000009000000FFFFFFFFFFFFFFFF00000000000000000000000000
+        010249006F0000002B0000000A0000000A000000FFFFFFFFFFFFFFFF00000000
+        00000000000000000001064500750072006F007000610000002F0000000B0000
+        000B000000FFFFFFFFFFFFFFFF00000000000000000000000000010843006100
+        6C006C006900730074006F0000002D0000000C0000000C000000FFFFFFFFFFFF
+        FFFF000000000000000000000000000107470061006E0069006D006500640000
+        002B0000000D0000000D000000FFFFFFFFFFFFFFFF0000000000000000000200
+        00000106530061007400750072006E0000002D0000000E0000000E000000FFFF
+        FFFFFFFFFFFF00000000000000000000000000010745006E00630065006C0061
+        0064000000290000000F0000000F000000FFFFFFFFFFFFFFFF00000000000000
+        000000000000010554006900740061006E0000002B0000001000000010000000
+        FFFFFFFFFFFFFFFF0000000000000000000000000001065500720061006E0075
+        00730000002D0000001100000011000000FFFFFFFFFFFFFFFF00000000000000
+        00000000000001074E0065007000740075006E00650000002900000012000000
+        12000000FFFFFFFFFFFFFFFF00000000000000000001000000010550006C0075
+        0074006F0000002B0000001300000013000000FFFFFFFFFFFFFFFF0000000000
+        0000000000000000010653006800610072006F006E00}
     end
   end
   object GLScene: TGLScene
     ObjectsSorting = osNone
     Left = 16
     Top = 16
+    object Camera: TGLCamera
+      DepthOfView = 16000.000000000000000000
+      FocalLength = 80.000000000000000000
+      NearPlaneBias = 0.100000001490116100
+      TargetObject = dcEarth
+      CameraStyle = csInfinitePerspective
+      Position.Coordinates = {000000400000003F0000803F0000803F}
+      Direction.Coordinates = {0000803F000000000000008000000000}
+      Up.Coordinates = {00000000000000000000803F00000000}
+    end
+    object Cameracontroller: TGLCamera
+      DepthOfView = 100.000000000000000000
+      FocalLength = 50.000000000000000000
+      TargetObject = dcEarth
+      Position.Coordinates = {000000400000003F0000803F0000803F}
+      Direction.Coordinates = {0000803F000000000000008000000000}
+      Up.Coordinates = {00000000000000000000803F00000000}
+    end
     object SkyDome: TGLSkyDome
       Up.Coordinates = {0000803F000000000000000000000000}
       Bands = <
@@ -134,24 +156,6 @@ object FormEarth: TFormEarth
     object dcEarth: TGLDummyCube
       ObjectsSorting = osNone
       CubeSize = 1.000000000000000000
-      object Cameracontroller: TGLCamera
-        DepthOfView = 100.000000000000000000
-        FocalLength = 50.000000000000000000
-        TargetObject = dcEarth
-        Position.Coordinates = {000000400000003F0000803F0000803F}
-        Direction.Coordinates = {0000803F000000000000008000000000}
-        Up.Coordinates = {00000000000000000000803F00000000}
-      end
-      object Camera: TGLCamera
-        DepthOfView = 16000.000000000000000000
-        FocalLength = 80.000000000000000000
-        NearPlaneBias = 0.100000001490116100
-        TargetObject = dcEarth
-        CameraStyle = csInfinitePerspective
-        Position.Coordinates = {000000400000003F0000803F0000803F}
-        Direction.Coordinates = {0000803F000000000000008000000000}
-        Up.Coordinates = {00000000000000000000803F00000000}
-      end
       object dcMoon: TGLDummyCube
         Up.Coordinates = {FC9D7FB10000803F0000000000000000}
         CubeSize = 1.000000000000000000
@@ -167,7 +171,7 @@ object FormEarth: TFormEarth
           Stacks = 32
         end
       end
-      object SphereEarth: TGLSphere
+      object sfPlanet: TGLSphere
         Material.MaterialLibrary = GLMatLib
         Material.LibMaterialName = 'earth'
         Direction.Coordinates = {000000000000803F0000000000000000}
@@ -7030,6 +7034,14 @@ object FormEarth: TFormEarth
     end
     object miView: TMenuItem
       Caption = '&View'
+      object miConstLines: TMenuItem
+        Caption = 'Constellation Lines'
+        OnClick = miConstLinesClick
+      end
+      object miConstBoundaries: TMenuItem
+        Caption = 'Constellation Boundaries'
+        OnClick = miConstBoundariesClick
+      end
       object miCore: TMenuItem
         Caption = '&Core'
       end