package GLUT is

subtype Unsigned is Interfaces.C.unsigned;

type Glut_SpecialUp is access procedure
     (Key  : Integer;
      X    : Integer;
      Y    : Integer);

type Glut_Joystick is access procedure
     (ButtonMask  : Unsigned;
      X           : Integer;
      Y           : Integer;
      Z           : Integer);

type Glut_Proc_1 is access procedure (P1  : Integer);

type Glut_Proc_2 is access procedure;

type Glut_Proc_3 is access procedure (Width  : Integer; Height  : Integer);

subtype Key_type is Interfaces.C.unsigned_char;

type Glut_Proc_4 is access
     procedure (Key  : Key_type; X  : Integer; Y  : Integer);

type Glut_KeyUpFunc is access procedure
     (Key  : Key_type;
      X    : Integer;
      Y    : Integer);

type Glut_Proc_5 is access procedure
     (Button  : Integer; State  : Integer; X  : Integer; Y  : Integer);

type Glut_Proc_6 is access procedure (X  : Integer; Y  : Integer);

type Glut_Proc_7 is access procedure (X  : Integer; Y  : Integer);

type Glut_Proc_8 is access procedure (State  : Integer);

type Glut_Proc_9 is access procedure (State  : Integer);

type Glut_Proc_10 is access procedure;

type Glut_Proc_11 is access procedure (Value  : Integer);

type Glut_Proc_12 is access procedure (State  : Integer);

type Glut_Proc_13 is access procedure
     (Key  : Integer; X  : Integer; Y  : Integer);

type Glut_Proc_14 is access
     procedure (X  : Integer; Y  : Integer; Z  : Integer);

type Glut_Proc_15 is access
     procedure (X  : Integer; Y  : Integer; Z  : Integer);

type Glut_Proc_16 is access procedure (Button  : Integer; State  : Integer);

type Glut_Proc_17 is access procedure (Button  : Integer; State  : Integer);

type Glut_Proc_18 is access procedure (Dial  : Integer; Value  : Integer);

type Glut_Proc_19 is access procedure (X  : Integer; Y  : Integer);

type Glut_Proc_20 is access procedure
     (Button  : Integer; State  : Integer; X  : Integer; Y  : Integer);

type Glut_Proc_21 is access procedure
     (Status  : Integer; X  : Integer; Y  : Integer);

type Glut_Proc_22 is access procedure;

type Glut_Proc_23 is access procedure (State  : Integer);

RGB                  : constant := 0;

RGBA                 : constant := 0;

INDEX                : constant := 1;

SINGLE               : constant := 0;

DOUBLE               : constant := 2;

ACCUM                : constant := 4;

ALPHA                : constant := 8;

DEPTH                : constant := 16;

STENCIL              : constant := 32;

MULTISAMPLE          : constant := 128;

STEREO               : constant := 256;

LUMINANCE            : constant := 512;

LEFT_BUTTON          : constant := 0;

MIDDLE_BUTTON        : constant := 1;

RIGHT_BUTTON         : constant := 2;

DOWN                 : constant := 0;

UP                   : constant := 1;

KEY_F1               : constant := 1;

KEY_F2               : constant := 2;

KEY_F3               : constant := 3;

KEY_F4               : constant := 4;

KEY_F5               : constant := 5;

KEY_F6               : constant := 6;

KEY_F7               : constant := 7;

KEY_F8               : constant := 8;

KEY_F9               : constant := 9;

KEY_F10              : constant := 10;

KEY_F11              : constant := 11;

KEY_F12              : constant := 12;

KEY_LEFT             : constant := 100;

KEY_UP               : constant := 101;

KEY_RIGHT            : constant := 102;

KEY_DOWN             : constant := 103;

KEY_PAGE_UP          : constant := 104;

KEY_PAGE_DOWN        : constant := 105;

KEY_HOME             : constant := 106;

KEY_END              : constant := 107;

KEY_INSERT           : constant := 108;

LEFT                 : constant := 0;

ENTERED              : constant := 1;

MENU_NOT_IN_USE      : constant := 0;

MENU_IN_USE          : constant := 1;

NOT_VISIBLE          : constant := 0;

VISIBLE              : constant := 1;

HIDDEN               : constant := 0;

FULLY_RETAINED       : constant := 1;

PARTIALLY_RETAINED   : constant := 2;

FULLY_COVERED        : constant := 3;

RED                  : constant := 0;

GREEN                : constant := 1;

BLUE                 : constant := 2;

GAME_MODE_ACTIVE           : constant := 0;

GAME_MODE_POSSIBLE         : constant := 1;

GAME_MODE_WIDTH            : constant := 2;

GAME_MODE_HEIGHT           : constant := 3;

GAME_MODE_PIXEL_DEPTH      : constant := 4;

GAME_MODE_REFRESH_RATE     : constant := 5;

GAME_MODE_DISPLAY_CHANGED  : constant := 6;

KEY_REPEAT_OFF             : constant := 0;

KEY_REPEAT_ON              : constant := 1;

KEY_REPEAT_DEFAULT         : constant := 2;

JOYSTICK_BUTTON_A           : constant := 1;

JOYSTICK_BUTTON_B           : constant := 2;

JOYSTICK_BUTTON_C           : constant := 4;

JOYSTICK_BUTTON_D           : constant := 8;

STROKE_ROMAN_STROKE  : constant System.Address;

STROKE_ROMAN       : constant System.Address := STROKE_ROMAN_STROKE'Address;

STROKE_MONO_ROMAN_STROKE  : constant System.Address;

STROKE_MONO_ROMAN  : constant System.Address := STROKE_MONO_ROMAN_STROKE'Address;

BITMAP_9_BY_15_FONT    : constant System.Address;

BITMAP_9_BY_15         : constant System.Address := BITMAP_9_BY_15_FONT'Address;

BITMAP_8_BY_13_FONT    : constant System.Address;

BITMAP_8_BY_13         : constant System.Address := BITMAP_8_BY_13_FONT'Address;

BITMAP_TIMES_ROMAN_10_FONT  : constant System.Address;

BITMAP_TIMES_ROMAN_10  : constant System.Address := BITMAP_TIMES_ROMAN_10_FONT'Address;

BITMAP_TIMES_ROMAN_24_FONT  : constant System.Address;

BITMAP_TIMES_ROMAN_24  : constant System.Address := BITMAP_TIMES_ROMAN_24_FONT'Address;

BITMAP_HELVETICA_10_FONT    : constant System.Address;

BITMAP_HELVETICA_10    : constant System.Address := BITMAP_HELVETICA_10_FONT'Address;

BITMAP_HELVETICA_12_FONT    : constant System.Address;

BITMAP_HELVETICA_12    : constant System.Address := BITMAP_HELVETICA_12_FONT'Address;

BITMAP_HELVETICA_18_FONT    : constant System.Address;

BITMAP_HELVETICA_18    : constant System.Address := BITMAP_HELVETICA_18_FONT'Address;

WINDOW_X                   : constant := 100;

WINDOW_Y                   : constant := 101;

WINDOW_WIDTH               : constant := 102;

WINDOW_HEIGHT              : constant := 103;

WINDOW_BUFFER_SIZE         : constant := 104;

WINDOW_STENCIL_SIZE        : constant := 105;

WINDOW_DEPTH_SIZE          : constant := 106;

WINDOW_RED_SIZE            : constant := 107;

WINDOW_GREEN_SIZE          : constant := 108;

WINDOW_BLUE_SIZE           : constant := 109;

WINDOW_ALPHA_SIZE          : constant := 110;

WINDOW_ACCUM_RED_SIZE      : constant := 111;

WINDOW_ACCUM_GREEN_SIZE    : constant := 112;

WINDOW_ACCUM_BLUE_SIZE     : constant := 113;

WINDOW_ACCUM_ALPHA_SIZE    : constant := 114;

WINDOW_DOUBLEBUFFER        : constant := 115;

WINDOW_RGBA                : constant := 116;

WINDOW_PARENT              : constant := 117;

WINDOW_NUM_CHILDREN        : constant := 118;

WINDOW_COLORMAP_SIZE       : constant := 119;

WINDOW_NUM_SAMPLES         : constant := 120;

WINDOW_STEREO              : constant := 121;

WINDOW_CURSOR              : constant := 122;

SCREEN_WIDTH               : constant := 200;

SCREEN_HEIGHT              : constant := 201;

SCREEN_WIDTH_MM            : constant := 202;

SCREEN_HEIGHT_MM           : constant := 203;

MENU_NUM_ITEMS             : constant := 300;

DISPLAY_MODE_POSSIBLE      : constant := 400;

INIT_WINDOW_X              : constant := 500;

INIT_WINDOW_Y              : constant := 501;

INIT_WINDOW_WIDTH          : constant := 502;

INIT_WINDOW_HEIGHT         : constant := 503;

INIT_DISPLAY_MODE          : constant := 504;

ELAPSED_TIME               : constant := 700;

HAS_KEYBOARD               : constant := 600;

HAS_MOUSE                  : constant := 601;

HAS_SPACEBALL              : constant := 602;

HAS_DIAL_AND_BUTTON_BOX    : constant := 603;

HAS_TABLET                 : constant := 604;

NUM_MOUSE_BUTTONS          : constant := 605;

NUM_SPACEBALL_BUTTONS      : constant := 606;

NUM_BUTTON_BOX_BUTTONS     : constant := 607;

NUM_DIALS                  : constant := 608;

NUM_TABLET_BUTTONS         : constant := 609;

OVERLAY_POSSIBLE           : constant := 800;

LAYER_IN_USE               : constant := 801;

HAS_OVERLAY                : constant := 802;

TRANSPARENT_INDEX          : constant := 803;

NORMAL_DAMAGED             : constant := 804;

OVERLAY_DAMAGED            : constant := 805;

VIDEO_RESIZE_POSSIBLE      : constant := 900;

VIDEO_RESIZE_IN_USE        : constant := 901;

VIDEO_RESIZE_X_DELTA       : constant := 902;

VIDEO_RESIZE_Y_DELTA       : constant := 903;

VIDEO_RESIZE_WIDTH_DELTA   : constant := 904;

VIDEO_RESIZE_HEIGHT_DELTA  : constant := 905;

VIDEO_RESIZE_X             : constant := 906;

VIDEO_RESIZE_Y             : constant := 907;

VIDEO_RESIZE_WIDTH         : constant := 908;

VIDEO_RESIZE_HEIGHT        : constant := 909;

NORMAL   : constant := 0;

OVERLAY  : constant := 1;

Active_Shift                : constant := 1;

Active_Control              : constant := 2;

Active_Alt                  : constant := 4;

CURSOR_RIGHT_ARROW          : constant := 0;

CURSOR_LEFT_ARROW           : constant := 1;

CURSOR_INFO                 : constant := 2;

CURSOR_DESTROY              : constant := 3;

CURSOR_HELP                 : constant := 4;

CURSOR_CYCLE                : constant := 5;

CURSOR_SPRAY                : constant := 6;

CURSOR_WAIT                 : constant := 7;

CURSOR_TEXT                 : constant := 8;

CURSOR_CROSSHAIR            : constant := 9;

CURSOR_UP_DOWN              : constant := 10;

CURSOR_LEFT_RIGHT           : constant := 11;

CURSOR_TOP_SIDE             : constant := 12;

CURSOR_BOTTOM_SIDE          : constant := 13;

CURSOR_LEFT_SIDE            : constant := 14;

CURSOR_RIGHT_SIDE           : constant := 15;

CURSOR_TOP_LEFT_CORNER      : constant := 16;

CURSOR_TOP_RIGHT_CORNER     : constant := 17;

CURSOR_BOTTOM_RIGHT_CORNER  : constant := 18;

CURSOR_BOTTOM_LEFT_CORNER   : constant := 19;

CURSOR_INHERIT              : constant := 100;

CURSOR_NONE                 : constant := 101;

CURSOR_FULL_CROSSHAIR       : constant := 102;

ACTION_EXIT                  : constant := 0;

ACTION_GLUTMAINLOOP_RETURNS  : constant := 1;

ACTION_CONTINUE_EXECUTION    : constant := 2;

ACTION_ON_WINDOW_CLOSE       : constant := 16#01F9#;

GLUT_RENDERING_CONTEXT    : constant := 16#01FD#;

GLUT_CREATE_NEW_CONTEXT   : constant := 0;

GLUT_USE_CURRENT_CONTEXT  : constant := 1;

function "and" 
(
x, y
: Unsigned) return Unsigned renames Interfaces.C."and";

function "or"  
(
x, y
: Unsigned) return Unsigned renames Interfaces.C."or";

procedure Init;

procedure SetOption 
(
option_flag
: Integer;
value
: Integer);

procedure InitDisplayMode 
(
Mode
: Unsigned);

procedure InitDisplayString 
(
str
: Interfaces.C.Strings.chars_ptr);

procedure InitDisplayString 
(
str
: String);

procedure InitWindowPosition 
(
X
: Integer;
Y
: Integer);

procedure InitWindowSize 
(
Width
: Integer;
Height
: Integer);

procedure MainLoop;

procedure LeaveMainLoop;

procedure MainLoopEvent;

function CreateWindow 
(
Title
: Interfaces.C.Strings.chars_ptr) return Integer;

function CreateWindow 
(
Title
: String) return Integer;

function CreateSubWindow 
(
Win
: Integer;
X
: Integer;
Y
: Integer;
Width
: Integer;
Height
: Integer) return Integer;

procedure DestroyWindow 
(
Win
: Integer);

procedure PostRedisplay;

procedure PostWindowRedisplay 
(
Win
: Integer);

procedure SwapBuffers;

function GetWindow return Integer;

function GetWindowData return System.Address;

procedure SetWindow 
(
Win
: Integer);

procedure SetWindowData 
(
Data
: System.Address);

procedure SetWindowTitle 
(
Title
: Interfaces.C.Strings.chars_ptr);

procedure SetWindowTitle 
(
Title
: String);

procedure SetIconTitle 
(
Title
: Interfaces.C.Strings.chars_ptr);

procedure SetIconTitle 
(
Title
: String);

procedure PositionWindow 
(
X
: Integer;
Y
: Integer);

procedure ReshapeWindow 
(
Width
: Integer;
Height
: Integer);

procedure PopWindow;

procedure PushWindow;

procedure IconifyWindow;

procedure ShowWindow;

procedure HideWindow;

procedure FullScreen;

procedure SetCursor 
(
Cursor
: Integer);

procedure WarpPointer 
(
X
: Integer;
Y
: Integer);

procedure SpecialUpFunc 
(
Func
: Glut_SpecialUp);

procedure SpecialUpFunc 
(
Func
: System.Address);

procedure JoystickFunc 
(
Funct
: Glut_Joystick;
PollInterval
: Integer);

procedure EstablishOverlay;

procedure RemoveOverlay;

procedure UseLayer 
(
Layer
: GL.enum);

procedure PostOverlayRedisplay;

procedure PostWindowOverlayRedisplay 
(
Win
: Integer);

procedure ShowOverlay;

procedure HideOverlay;

function CreateMenu 
(
P1
: Glut_Proc_1) return Integer;

function CreateMenu 
(
P1
: System.Address) return Integer;

procedure DestroyMenu 
(
Menu
: Integer);

function GetMenu return Integer;

procedure SetMenu 
(
Menu
: Integer);

procedure AddMenuEntry 
(
Label
: Interfaces.C.Strings.chars_ptr;
Value
: Integer);

procedure AddMenuEntry 
(
Label
: String;
Value
: Integer);

procedure AddSubMenu 
(
Label
: Interfaces.C.Strings.chars_ptr;
Submenu
: Integer);

procedure AddSubMenu 
(
Label
: String;
Submenu
: Integer);

procedure ChangeToMenuEntry 
(
Item
: Integer;
Label
: Interfaces.C.Strings.chars_ptr;
Value
: Integer);

procedure ChangeToMenuEntry 
(
Item
: Integer;
Label
: String;
Value
: Integer);

procedure ChangeToSubMenu 
(
Item
: Integer;
Label
: Interfaces.C.Strings.chars_ptr;
Submenu
: Integer);

procedure ChangeToSubMenu 
(
Item
: Integer;
Label
: String;
Submenu
: Integer);

procedure RemoveMenuItem 
(
Item
: Integer);

procedure AttachMenu 
(
Button
: Integer);

procedure DetachMenu 
(
Button
: Integer);

procedure CloseFunc 
(
Callback
: Glut_Proc_2);

procedure DisplayFunc 
(
P1
: Glut_Proc_2);

procedure DisplayFunc 
(
P1
: System.Address);

procedure ReshapeFunc 
(
P1
: Glut_Proc_3);

procedure ReshapeFunc 
(
P1
: System.Address);

procedure KeyboardFunc 
(
P1
: Glut_Proc_4);

procedure KeyboardFunc 
(
P1
: System.Address);

procedure KeyboardUpFunc 
(
P1
: Glut_KeyUpFunc);

procedure KeyboardUpFunc 
(
P1
: System.Address);

procedure MouseFunc 
(
P1
: Glut_Proc_5);

procedure MouseFunc 
(
P1
: System.Address);

procedure MotionFunc 
(
P1
: Glut_Proc_6);

procedure MotionFunc 
(
P1
: System.Address);

procedure PassiveMotionFunc 
(
P1
: Glut_Proc_7);

procedure PassiveMotionFunc 
(
P1
: System.Address);

procedure EntryFunc 
(
P1
: Glut_Proc_8);

procedure VisibilityFunc 
(
P1
: Glut_Proc_9);

procedure IdleFunc 
(
P1
: Glut_Proc_10);

procedure IdleFunc 
(
P1
: System.Address);

procedure TimerFunc 
(
Millis
: Unsigned;
P2
: Glut_Proc_11;
Value
: Integer);

procedure MenuStateFunc 
(
P1
: Glut_Proc_12);

procedure SpecialFunc 
(
P1
: Glut_Proc_13);

procedure SpecialFunc 
(
P1
: System.Address);

procedure SpaceballMotionFunc 
(
P1
: Glut_Proc_14);

procedure SpaceballRotateFunc 
(
P1
: Glut_Proc_15);

procedure SpaceballButtonFunc 
(
P1
: Glut_Proc_16);

procedure ButtonBoxFunc 
(
P1
: Glut_Proc_17);

procedure DialsFunc 
(
P1
: Glut_Proc_18);

procedure TabletMotionFunc 
(
P1
: Glut_Proc_19);

procedure TabletButtonFunc 
(
P1
: Glut_Proc_20);

procedure MenuStatusFunc 
(
P1
: Glut_Proc_21);

procedure OverlayDisplayFunc 
(
P1
: Glut_Proc_22);

procedure WindowStatusFunc 
(
P1
: Glut_Proc_23);

procedure SetColor 
(
P1
: Integer;
r
: GL.C_Float;
g
: GL.C_Float;
b
: GL.C_Float);

function GetColor 
(
Ndx
: Integer;
Component
: Integer) return GL.C_Float;

procedure CopyColormap 
(
Win
: Integer);

function Get 
(
Type_Id
: GL.enum) return Integer;

function DeviceGet 
(
Type_Id
: GL.enum) return Integer;

function ExtensionSupported 
(
Name
: Interfaces.C.Strings.chars_ptr) return Integer;

function ExtensionSupported 
(
str
: String) return Integer;

function GetModifiers return Integer;

function LayerGet 
(
Type_Id
: GL.enum) return Integer;