opengl.model.polygon: Add a lit and textured model.

2023-11-14 19:50:14 +11:00
parent a4a75d528e
commit eadf53f890
6 changed files with 267 additions and 4 deletions
--- a/3-mid/opengl/applet/demo/renderer/render_models/launch_render_models.adb
+++ b/3-mid/opengl/applet/demo/renderer/render_models/launch_render_models.adb
@@ -78,7 +78,7 @@ begin
         the_Visuals (i) := new_Visual (the_Models (i));
      end loop;

-      the_Visuals (3).Site_is ([0.0, 0.0, -50.0]);
+      the_Visuals (4).Site_is ([0.0, 0.0, -50.0]);


      --  Main loop.