nichkara/lace
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gel.demos: Update code to use new openGL updates.

Browse Source
This commit is contained in:
Rod Kay
2025-09-14 10:11:21 +10:00
parent d357ce109b
commit 5afee0e2e4
41 changed files with 677 additions and 347 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
4-high/gel/applet/demo/mouse/mouse_selection/launch_mouse_selection.adb
View File

@@ -1,4 +1,6 @@
with
openGL.Palette,
gel.Window.setup,
gel.Applet.gui_world,
gel.World,
@@ -40,8 +42,10 @@ begin
declare
use ada.Calendar;
the_Ball : constant gel.Sprite.view := gel.Forge.new_ball_Sprite (the_Applet.World (1),
Mass => 1.0);
the_Ball : constant gel.Sprite.view := gel.Forge.new_ball_Sprite (in_World => the_Applet.World (1),
Mass => 1.0,
is_Lit => False,
Color => (openGL.Palette.Green, openGL.Opaque));
type retreat_Sprite is new lace.Response.item with

9
4-high/gel/applet/demo/mouse/mouse_selection_2d/launch_mouse_selection_2d.adb
View File

@@ -1,4 +1,6 @@
with
openGL.Palette,
gel.Window.setup,
gel.Applet.gui_world,
gel.World,
@@ -40,8 +42,11 @@ begin
declare
use ada.Calendar;
the_Ball : constant gel.Sprite.view := gel.Forge.new_circle_Sprite (the_Applet.World (1),
Mass => 1.0);
the_Ball : constant gel.Sprite.view := gel.Forge.new_circle_Sprite (in_World => the_Applet.World (1),
Name => "Ball",
Mass => 1.0,
Color => (openGL.Palette.Green, openGL.Opaque),
Fill => False);
type retreat_Sprite is new lace.Response.item with