44 lines
1.1 KiB
Ada
44 lines
1.1 KiB
Ada
with
|
|
openGL.Model,
|
|
openGL.Visual,
|
|
openGL.Renderer.lean,
|
|
openGL.Camera,
|
|
openGL.Dolly,
|
|
openGL.frame_Counter,
|
|
|
|
sdl.Video.Windows,
|
|
sdl.Video.GL;
|
|
|
|
|
|
package openGL.Demo
|
|
--
|
|
-- Provides a convenient method of setting up a simple openGL demo.
|
|
--
|
|
is
|
|
Window : standard.sdl.Video.Windows.Window;
|
|
GL_Context : standard.sdl.Video.GL.Contexts;
|
|
|
|
Renderer : aliased openGL.Renderer.lean.item;
|
|
Camera : aliased openGL.Camera.item;
|
|
Dolly : openGL.Dolly.item (camera => Camera'unchecked_Access);
|
|
FPS_Counter : openGL.frame_Counter.item;
|
|
Done : Boolean := False;
|
|
|
|
function Models return openGL.Model.views;
|
|
--
|
|
-- Creates a set of models with one model of each kind.
|
|
|
|
procedure layout (the_Visuals : in openGL.Visual.views);
|
|
--
|
|
-- Layout the visuals in a grid fashion for viewing all at once.
|
|
|
|
procedure print_Usage (append_Message : in String := "");
|
|
|
|
|
|
procedure define (Name : in String;
|
|
Width : in Positive := 1366;
|
|
Height : in Positive := 768);
|
|
procedure destroy;
|
|
|
|
end openGL.Demo;
|