Index

Package: Devices

Description

package GLUT.Devices is
with GLOBE_3D; with GL; with Game_control;

Types

Key_set

type Key_set         is array (Character) of Boolean;

References:

glut-devices.ads:20:9 (declaration)
glut-devices.ads:27:28 (reference)
glut-devices.ads:28:28 (reference)

Modifier_set

type Modifier_set    is array (GLUT.Active_Shift .. GLUT.Active_Alt) of Boolean;

References:

glut-devices.ads:21:9 (declaration)
glut-devices.ads:30:37 (reference)

Special_set

type Special_set     is array (1 .. 200) of Boolean;

References:

glut-devices.ads:22:9 (declaration)
glut-devices.ads:31:37 (reference)

Special_key_set

type Special_key_set is array (1 .. 128) of Boolean;

References:

glut-devices.ads:23:9 (declaration)
glut-devices.adb:169:25 (reference)
glut-devices.ads:32:37 (reference)

Keyboard

type Keyboard is
      record
         normal_set      : Key_set   := (others => False);
         normal_set_mem  : Key_set   := (others => False);

         modif_set        : Devices.Modifier_set    := (others => False);
         special_set      : Devices.Special_set     := (others => False);
         special_set_mem  : Devices.Special_key_set := (others => False);
      end record;

p_Keyboard

type p_Keyboard is access all Keyboard;

References:

glut-devices.ads:35:9 (declaration)
glut-devices.adb:28:37 (reference)
glut-windows.adb:685:66 (reference)
glut-windows.ads:75:67 (reference)

mouse_button_Set

type mouse_button_Set is array (GLUT.LEFT_BUTTON .. GLUT.RIGHT_BUTTON) of Boolean;

References:

glut-devices.ads:48:9 (declaration)
glut-devices.ads:53:32 (reference)

Mouse

type Mouse is
      record
         oldx, oldy, mx, my  : Integer          := 0;
         button_state        : mouse_button_Set := (others => False);
      end record;

References:

glut-devices.ads:50:9 (declaration)
game_control.adb:18:64 (reference)
game_control.ads:67:64 (reference)
glut-devices.ads:56:31 (reference)
glut-devices.ads:58:29 (reference)
glut-windows.ads:116:38 (reference)

p_Mouse

type p_Mouse is access all Mouse;

References:

glut-devices.ads:56:9 (declaration)
glut-devices.adb:96:34 (reference)
glut-windows.adb:687:63 (reference)
glut-windows.ads:76:67 (reference)

Constants & Global variables

default_Keyboard (Keyboard)

default_Keyboard  : aliased Keyboard;

References:

glut-devices.ads:37:4 (declaration)
game_control.adb:17:89 (reference)
game_control.ads:66:89 (reference)
glut-devices.adb:34:31 (reference)
glut-devices.adb:157:50 (reference)
glut-devices.adb:165:55 (reference)
glut-devices.ads:40:50 (reference)
glut-devices.ads:43:55 (reference)
keyboard.adb:11:89 (reference)
keyboard.ads:42:89 (reference)

default_Mouse (Mouse)

default_Mouse  : aliased Mouse;

References:

glut-devices.ads:58:4 (declaration)
game_control.adb:18:89 (reference)
game_control.ads:67:89 (reference)
glut-devices.adb:102:31 (reference)

Subprograms & Entries

Strike_once

function Strike_once 
(c: Character;
kb: access Keyboard := default_Keyboard'Access) return Boolean;