opengl: Add tiling for multi-textures.

3-mid/opengl/applet/demo/renderer/render_models/launch_render_models.adb

@@ -38,28 +38,6 @@ begin
    end;
 
 
-   -- Set the lights initial position to far behind and far to the left.
-   --
---     declare
---        use openGL.Palette;
---
---        initial_Site   : constant openGL.Vector_3 := (0.0, 0.0, 15.0);
---        cone_Direction : constant openGL.Vector_3 := (0.0, 0.0, -1.0);
---
---        Light : openGL.Light.diffuse.item := Demo.Renderer.Light (Id => 1);
---     begin
---        Light.Color_is (Ambient  => (Grey,  Opaque),
---                        Diffuse  => (White, Opaque));
---        --  Specular => (White, Opaque));
---
---        Light.Position_is       (initial_Site);
---        Light.cone_Direction_is (cone_Direction);
---
---        Demo.Renderer.Light_is (Id => 1, Now => Light);
---     end;
-
-
-
    declare
       --  The models.
       --
@@ -78,10 +56,9 @@ begin
          the_Visuals (i) := new_Visual (the_Models (i));
       end loop;
 
-      the_Visuals (4).Site_is ([0.0, 0.0, -50.0]);
-
       the_Visuals (1).Scale_is ([0.2, 0.2, 1.0]);     -- Text visual.
 
+
       --  Main loop.
       --
       while not Demo.Done

3-mid/opengl/applet/demo/textures/tiling/launch_tiling_demo.adb

@@ -0,0 +1,84 @@
+with
+     openGL.Model.polygon.lit_textured,
+     openGL.texture_Set,
+     openGL.Visual,
+     openGL.Light,
+     openGL.Palette,
+     openGL.Demo;
+
+
+procedure launch_tiling_Demo
+--
+--  Exercise the renderer with an example of all the models.
+--
+is
+   use openGL,
+       openGL.Math,
+       openGL.linear_Algebra_3D,
+       openGL.Palette;
+
+begin
+   Demo.print_Usage ("Use space ' ' to cycle through models.");
+   Demo.define ("openGL 'Render Models' Demo");
+   Demo.Camera.Position_is ([0.0, 0.0, 2.0],
+                            y_Rotation_from (to_Radians (0.0)));
+
+   declare
+      use openGL.Light;
+      the_Light : openGL.Light.item := Demo.Renderer.new_Light;
+   begin
+      the_Light.Site_is ([0.0, 0.0, 5.0]);
+      the_Light.Color_is (White);
+
+      Demo.Renderer.set (the_Light);
+   end;
+
+
+   declare
+      the_Texture : constant asset_Name                 := to_Asset ("assets/opengl/texture/Face1.bmp");
+      Details     :          openGL.texture_Set.Details := openGL.texture_Set.to_Details ([1 => the_Texture]);
+
+      the_Model   : Model.polygon.lit_textured.view;
+        --  := Model.polygon.lit_textured.new_Polygon (vertex_Sites    => [[-1.0, -1.0], [1.0, -1.0], [1.0, 1.0], [-1.0, 1.0]],
+        --                                             texture_Details => openGL.texture_Set.to_Details ([1 => the_Texture]));
+
+
+      --  The visuals.
+      --
+      use openGL.Visual.Forge;
+
+      the_Visual : openGL.Visual.view;
+
+   begin
+      Details.texture_Tilings (1) := (S => 5.0, T => 4.0);
+
+      the_Model  := Model.polygon.lit_textured.new_Polygon (vertex_Sites    => [[-1.0, -1.0], [1.0, -1.0], [1.0, 1.0], [-1.0, 1.0]],
+                                                            texture_Details => Details);
+      the_Visual := new_Visual (the_Model.all'Access);
+
+      --  Main loop.
+      --
+      while not Demo.Done
+      loop
+         Demo.Dolly.evolve;
+         Demo.Done := Demo.Dolly.quit_Requested;
+
+
+         --  Render all visuals.
+         --
+         Demo.Camera.render ([1 => the_Visual]);
+
+         while not Demo.Camera.cull_Completed
+         loop
+            delay Duration'Small;
+         end loop;
+
+         Demo.Renderer.render;
+         Demo.FPS_Counter.increment;    -- Frames per second display.
+
+         delay 1.0 / 60.0;
+      end loop;
+   end;
+
+   Demo.destroy;
+end launch_tiling_Demo;

3-mid/opengl/applet/demo/textures/tiling/tiling_demo.gpr

@@ -0,0 +1,17 @@
+with
+     "opengl_demo",
+     "lace_shared"; 
+
+
+project tiling_Demo
+is
+   for Object_Dir use "build";
+   for Exec_Dir   use ".";
+   for Main       use ("launch_tiling_demo.adb");
+
+   package Ide      renames Lace_shared.Ide;
+   package Builder  renames Lace_shared.Builder;
+   package Compiler renames Lace_shared.Compiler;
+   package Binder   renames Lace_shared.Binder;
+
+end tiling_Demo;