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

demo.mouse.selection: Update.

Browse Source
This commit is contained in:
Rod Kay
2023-04-20 13:54:10 +10:00
parent cae9d2856e
commit 9d1dddaae2
1 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -35,11 +35,13 @@ begin
declare declare
use ada.Calendar; use ada.Calendar;
the_Applet : constant gel.Applet.gui_world.view := gel.Forge.new_gui_Applet ("mouse Selection", the_Applet : constant gel.Applet.gui_world.view := gel.Forge.new_gui_Applet ("mouse_Selection_Applet",
space_Kind => physics.Bullet); space_Kind => physics.Bullet);
the_Ball : constant gel.Sprite.view := gel.Forge.new_ball_Sprite (the_Applet.World (1), the_Ball : constant gel.Sprite.view := gel.Forge.new_ball_Sprite (the_Applet.World (1),
mass => 0.0); mass => 0.0);
type retreat_Sprite is new lace.Response.item with type retreat_Sprite is new lace.Response.item with
record record
Sprite : gel.Sprite.view; Sprite : gel.Sprite.view;
@@ -51,12 +53,14 @@ begin
use float_Math; use float_Math;
begin begin
put_Line ("retreat_Sprite"); put_Line ("retreat_Sprite");
Self.Sprite.Site_is (self.Sprite.Site - the_Applet.gui_Camera.Spin * [0.0, 0.0, 1.0]); Self.Sprite.Site_is (Self.Sprite.Site - the_Applet.gui_Camera.Spin * [0.0, 0.0, 1.0]);
end respond; end respond;
retreat_Sprite_Response : aliased retreat_Sprite := (lace.Response.item with sprite => the_Ball); retreat_Sprite_Response : aliased retreat_Sprite := (lace.Response.item with sprite => the_Ball);
type advance_Sprite is new lace.Response.item with type advance_Sprite is new lace.Response.item with
record record
Sprite : gel.Sprite.view; Sprite : gel.Sprite.view;
@@ -68,20 +72,22 @@ begin
use float_Math; use float_Math;
begin begin
put_Line ("advance_Sprite"); put_Line ("advance_Sprite");
Self.Sprite.Site_is (self.Sprite.Site + the_Applet.gui_Camera.Spin * [0.0, 0.0, 1.0]); Self.Sprite.Site_is (Self.Sprite.Site + the_Applet.gui_Camera.Spin * [0.0, 0.0, 1.0]);
end respond; end respond;
advance_Sprite_Response : aliased advance_Sprite := (lace.Response.Item with sprite => the_Ball); advance_Sprite_Response : aliased advance_Sprite := (lace.Response.Item with sprite => the_Ball);
next_render_Time : ada.calendar.Time; next_render_Time : ada.calendar.Time;
begin begin
the_Ball.add (advance_Sprite_Response'unchecked_access, the_Ball.add (advance_Sprite_Response'unchecked_Access,
to_Kind (gel.events.sprite_click_down_Event'Tag), to_Kind (gel.events.sprite_click_down_Event'Tag),
the_Applet.Name); the_Applet.Name);
the_Ball.add (retreat_Sprite_Response'unchecked_access, the_Ball.add (retreat_Sprite_Response'unchecked_Access,
to_Kind (gel.events.sprite_click_up_Event'Tag), to_Kind (gel.events.sprite_click_up_Event'Tag),
the_Applet.Name); the_Applet.Name);