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   : in 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_CTRL                : 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 
(
String
: Interfaces.C.Strings.Chars_Ptr);

procedure InitDisplayString 
(
Name
: 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;
Red
: GL.float;
Green
: GL.float;
Blue
: GL.float);

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

procedure CopyColormap 
(
Win
: Integer);

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