Index

Package: Keyboard

Description

package Keyboard is
Jan & Uwe R. Zimmer, Australia, July 2011

Types

Complete_Command_Set

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);

References:

keyboard.ads:9:9 (declaration)
keyboard.ads:37:34 (reference)

Commands_Array

type Commands_Array is array (Complete_Command_Set) of Boolean;

References:

keyboard.ads:37:9 (declaration)
callback_procedures.adb:53:50 (reference)
callback_procedures.adb:63:50 (reference)
callback_procedures.adb:176:18 (reference)
keyboard.adb:10:42 (reference)
keyboard.ads:39:33 (reference)
keyboard.ads:41:51 (reference)

Constants & Global variables

Command_Set_Reset (Commands_Array)

Command_Set_Reset : constant Commands_Array := (others => False);

References:

keyboard.ads:39:4 (declaration)
callback_procedures.adb:152:38 (reference)
callback_procedures.adb:176:36 (reference)

Subprograms & Entries

Get_Keys

procedure Get_Keys 
(Commands: in out Commands_Array;
Selected_Keyboard: access GLUT.Devices.Keyboard := GLUT.Devices.default_Keyboard'Access);