type Complete_Command_Set is ( -- Special Commands -- Move_Accelerator, Full_Screen, Reset_Camera, Screen_Shot, Toggle_Axis, Toggle_Lines, Text_Overlay, Space, -- Rotate -- Rotate_Up, Rotate_Down, Rotate_Left, Rotate_Right, Rotate_CW, Rotate_AntiCW, -- Strafe -- Strafe_Up, Strafe_Down, Strafe_Left, Strafe_Right, Strafe_Forward, Strafe_Backward, -- Swarm -- Add_Vehicle, Remove_Vehicle);
type Commands_Array is array (Complete_Command_Set) of Boolean;
Command_Set_Reset : constant Commands_Array := (others => False);
procedure Get_Keys
( | Commands | : in out Commands_Array; |
Selected_Keyboard | : access GLUT.Devices.Keyboard := GLUT.Devices.default_Keyboard'Access); |