opengl.demos: Update code to use new openGL updates.
This commit is contained in:
@@ -1,3 +1,4 @@
|
||||
with openGL.texture_Set;
|
||||
with
|
||||
openGL.Visual,
|
||||
|
||||
@@ -5,9 +6,11 @@ with
|
||||
openGL.Model.Box.textured,
|
||||
openGL.Model.Box.lit_colored_textured,
|
||||
|
||||
openGL.texture_Set,
|
||||
openGL.Palette,
|
||||
openGL.Demo;
|
||||
|
||||
|
||||
procedure launch_render_Boxes
|
||||
--
|
||||
-- Exercise the rendering of box models.
|
||||
@@ -58,7 +61,8 @@ begin
|
||||
Upper => (texture_Name => the_Texture),
|
||||
Lower => (texture_Name => the_Texture),
|
||||
Left => (texture_Name => the_Texture),
|
||||
Right => (texture_Name => the_Texture)]);
|
||||
Right => (texture_Name => the_Texture)],
|
||||
texture_Details => texture_Set.to_Details ([1 => the_Texture]));
|
||||
|
||||
-- The Visuals.
|
||||
--
|
||||
|
||||
Reference in New Issue
Block a user