From f7b88262bedfde9ace8b960630c61368975cab90 Mon Sep 17 00:00:00 2001
From: Rod Kay <rodakay5@gmail.com>
Date: Sun, 7 May 2023 12:20:47 +1000
Subject: [PATCH] opengl.demo: Set a default light.

---
 3-mid/opengl/source/demo/opengl-demo.adb | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/3-mid/opengl/source/demo/opengl-demo.adb b/3-mid/opengl/source/demo/opengl-demo.adb
index da14ff2..6cdd31b 100644
--- a/3-mid/opengl/source/demo/opengl-demo.adb
+++ b/3-mid/opengl/source/demo/opengl-demo.adb
@@ -22,6 +22,7 @@ with
      openGL.Model.sphere        .lit_textured,
      openGL.Model.Text          .lit_colored,
      openGL.Model.terrain,
+     openGL.Light,
 
      SDL.Video.Windows.Makers,
      ada.Text_IO;
@@ -47,6 +48,8 @@ is
    end my_Swapper;
 
 
+
+
    procedure define (Name   : in String;
                      Width  : in Positive := 1366;
                      Height : in Positive :=  768)
@@ -90,10 +93,22 @@ is
 
       Camera.Viewport_is (width  => Width,
                           height => Height);
+
+      declare
+         use openGL.Light;
+         the_Light : openGL.Light.item := Demo.Renderer.new_Light;
+      begin
+         the_Light. Site_is ([5_000.0, 2_000.0, 5_000.0]);
+         the_Light.Color_is (White);
+
+         Demo.Renderer.set (the_Light);
+      end;
+
    end define;
 
 
 
+
    procedure destroy
    is
    begin