mirrors/Nim
1
0
Fork 0
mirror of https://github.com/nim-lang/Nim.git synced 2026-07-27 10:56:28 +00:00
Code Issues Packages Projects Releases Wiki Activity
Files
08bc9ac03c49db7bfcdee82f46aadf95a324e015
Nim/lib/base/opengl/glut.pp
Andreas Rumpf 985113a88f version 0.7.0
2008-11-16 22:11:53 +01:00

437 lines
18 KiB
ObjectPascal
Raw Blame History

{
Adaption of the delphi3d.net OpenGL units to FreePascal
Sebastian Guenther (sg@freepascal.org) in 2002
These units are free to use
}
unit Glut;
// Copyright (c) Mark J. Kilgard, 1994, 1995, 1996. */
(* This program is freely distributable without licensing fees and is
provided without guarantee or warrantee expressed or implied. This
program is -not- in the public domain. *)
{******************************************************************************}
{ Converted to Delphi by Tom Nuydens (tom@delphi3d.net) }
{ Contributions by Igor Karpov (glygrik@hotbox.ru) }
{ For the latest updates, visit Delphi3D: http://www.delphi3d.net }
{******************************************************************************}
interface
uses
GL;
const
dllname = 'glut32.dll';
dynlibname = '/System/Library/Frameworks/GLUT.framework/GLUT';
libname = 'libglut.so.3';
type
PInteger = ^Integer;
PPChar = ^PChar;
TGlutVoidCallback = procedure; cdecl;
TGlut1IntCallback = procedure(value: Integer); cdecl;
TGlut2IntCallback = procedure(v1, v2: Integer); cdecl;
TGlut3IntCallback = procedure(v1, v2, v3: Integer); cdecl;
TGlut4IntCallback = procedure(v1, v2, v3, v4: Integer); cdecl;
TGlut1Char2IntCallback = procedure(c: Byte; v1, v2: Integer); cdecl;
TGlut1UInt3IntCallback = procedure(u: Cardinal; v1, v2, v3: Integer); cdecl;
const
GLUT_API_VERSION = 3;
GLUT_XLIB_IMPLEMENTATION = 12;
// Display mode bit masks.
GLUT_RGB = 0;
GLUT_RGBA = GLUT_RGB;
GLUT_INDEX = 1;
GLUT_SINGLE = 0;
GLUT_DOUBLE = 2;
GLUT_ACCUM = 4;
GLUT_ALPHA = 8;
GLUT_DEPTH = 16;
GLUT_STENCIL = 32;
GLUT_MULTISAMPLE = 128;
GLUT_STEREO = 256;
GLUT_LUMINANCE = 512;
// Mouse buttons.
GLUT_LEFT_BUTTON = 0;
GLUT_MIDDLE_BUTTON = 1;
GLUT_RIGHT_BUTTON = 2;
// Mouse button state.
GLUT_DOWN = 0;
GLUT_UP = 1;
// function keys
GLUT_KEY_F1 = 1;
GLUT_KEY_F2 = 2;
GLUT_KEY_F3 = 3;
GLUT_KEY_F4 = 4;
GLUT_KEY_F5 = 5;
GLUT_KEY_F6 = 6;
GLUT_KEY_F7 = 7;
GLUT_KEY_F8 = 8;
GLUT_KEY_F9 = 9;
GLUT_KEY_F10 = 10;
GLUT_KEY_F11 = 11;
GLUT_KEY_F12 = 12;
// directional keys
GLUT_KEY_LEFT = 100;
GLUT_KEY_UP = 101;
GLUT_KEY_RIGHT = 102;
GLUT_KEY_DOWN = 103;
GLUT_KEY_PAGE_UP = 104;
GLUT_KEY_PAGE_DOWN = 105;
GLUT_KEY_HOME = 106;
GLUT_KEY_END = 107;
GLUT_KEY_INSERT = 108;
// Entry/exit state.
GLUT_LEFT = 0;
GLUT_ENTERED = 1;
// Menu usage state.
GLUT_MENU_NOT_IN_USE = 0;
GLUT_MENU_IN_USE = 1;
// Visibility state.
GLUT_NOT_VISIBLE = 0;
GLUT_VISIBLE = 1;
// Window status state.
GLUT_HIDDEN = 0;
GLUT_FULLY_RETAINED = 1;
GLUT_PARTIALLY_RETAINED = 2;
GLUT_FULLY_COVERED = 3;
// Color index component selection values.
GLUT_RED = 0;
GLUT_GREEN = 1;
GLUT_BLUE = 2;
// Layers for use.
GLUT_NORMAL = 0;
GLUT_OVERLAY = 1;
{$ifdef Windows}
const
// Stroke font constants (use these in GLUT program).
GLUT_STROKE_ROMAN = Pointer(0);
GLUT_STROKE_MONO_ROMAN = Pointer(1);
// Bitmap font constants (use these in GLUT program).
GLUT_BITMAP_9_BY_15 = Pointer(2);
GLUT_BITMAP_8_BY_13 = Pointer(3);
GLUT_BITMAP_TIMES_ROMAN_10 = Pointer(4);
GLUT_BITMAP_TIMES_ROMAN_24 = Pointer(5);
GLUT_BITMAP_HELVETICA_10 = Pointer(6);
GLUT_BITMAP_HELVETICA_12 = Pointer(7);
GLUT_BITMAP_HELVETICA_18 = Pointer(8);
{$else Windows}
var
// Stroke font constants (use these in GLUT program).
GLUT_STROKE_ROMAN : Pointer;
GLUT_STROKE_MONO_ROMAN : Pointer;
// Bitmap font constants (use these in GLUT program).
GLUT_BITMAP_9_BY_15 : Pointer;
GLUT_BITMAP_8_BY_13 : Pointer;
GLUT_BITMAP_TIMES_ROMAN_10 : Pointer;
GLUT_BITMAP_TIMES_ROMAN_24 : Pointer;
GLUT_BITMAP_HELVETICA_10 : Pointer;
GLUT_BITMAP_HELVETICA_12 : Pointer;
GLUT_BITMAP_HELVETICA_18 : Pointer;
{$endif Windows}
const
// glutGet parameters.
GLUT_WINDOW_X = 100;
GLUT_WINDOW_Y = 101;
GLUT_WINDOW_WIDTH = 102;
GLUT_WINDOW_HEIGHT = 103;
GLUT_WINDOW_BUFFER_SIZE = 104;
GLUT_WINDOW_STENCIL_SIZE = 105;
GLUT_WINDOW_DEPTH_SIZE = 106;
GLUT_WINDOW_RED_SIZE = 107;
GLUT_WINDOW_GREEN_SIZE = 108;
GLUT_WINDOW_BLUE_SIZE = 109;
GLUT_WINDOW_ALPHA_SIZE = 110;
GLUT_WINDOW_ACCUM_RED_SIZE = 111;
GLUT_WINDOW_ACCUM_GREEN_SIZE = 112;
GLUT_WINDOW_ACCUM_BLUE_SIZE = 113;
GLUT_WINDOW_ACCUM_ALPHA_SIZE = 114;
GLUT_WINDOW_DOUBLEBUFFER = 115;
GLUT_WINDOW_RGBA = 116;
GLUT_WINDOW_PARENT = 117;
GLUT_WINDOW_NUM_CHILDREN = 118;
GLUT_WINDOW_COLORMAP_SIZE = 119;
GLUT_WINDOW_NUM_SAMPLES = 120;
GLUT_WINDOW_STEREO = 121;
GLUT_WINDOW_CURSOR = 122;
GLUT_SCREEN_WIDTH = 200;
GLUT_SCREEN_HEIGHT = 201;
GLUT_SCREEN_WIDTH_MM = 202;
GLUT_SCREEN_HEIGHT_MM = 203;
GLUT_MENU_NUM_ITEMS = 300;
GLUT_DISPLAY_MODE_POSSIBLE = 400;
GLUT_INIT_WINDOW_X = 500;
GLUT_INIT_WINDOW_Y = 501;
GLUT_INIT_WINDOW_WIDTH = 502;
GLUT_INIT_WINDOW_HEIGHT = 503;
GLUT_INIT_DISPLAY_MODE = 504;
GLUT_ELAPSED_TIME = 700;
GLUT_WINDOW_FORMAT_ID = 123;
// glutDeviceGet parameters.
GLUT_HAS_KEYBOARD = 600;
GLUT_HAS_MOUSE = 601;
GLUT_HAS_SPACEBALL = 602;
GLUT_HAS_DIAL_AND_BUTTON_BOX = 603;
GLUT_HAS_TABLET = 604;
GLUT_NUM_MOUSE_BUTTONS = 605;
GLUT_NUM_SPACEBALL_BUTTONS = 606;
GLUT_NUM_BUTTON_BOX_BUTTONS = 607;
GLUT_NUM_DIALS = 608;
GLUT_NUM_TABLET_BUTTONS = 609;
GLUT_DEVICE_IGNORE_KEY_REPEAT = 610;
GLUT_DEVICE_KEY_REPEAT = 611;
GLUT_HAS_JOYSTICK = 612;
GLUT_OWNS_JOYSTICK = 613;
GLUT_JOYSTICK_BUTTONS = 614;
GLUT_JOYSTICK_AXES = 615;
GLUT_JOYSTICK_POLL_RATE = 616;
// glutLayerGet parameters.
GLUT_OVERLAY_POSSIBLE = 800;
GLUT_LAYER_IN_USE = 801;
GLUT_HAS_OVERLAY = 802;
GLUT_TRANSPARENT_INDEX = 803;
GLUT_NORMAL_DAMAGED = 804;
GLUT_OVERLAY_DAMAGED = 805;
// glutVideoResizeGet parameters.
GLUT_VIDEO_RESIZE_POSSIBLE = 900;
GLUT_VIDEO_RESIZE_IN_USE = 901;
GLUT_VIDEO_RESIZE_X_DELTA = 902;
GLUT_VIDEO_RESIZE_Y_DELTA = 903;
GLUT_VIDEO_RESIZE_WIDTH_DELTA = 904;
GLUT_VIDEO_RESIZE_HEIGHT_DELTA = 905;
GLUT_VIDEO_RESIZE_X = 906;
GLUT_VIDEO_RESIZE_Y = 907;
GLUT_VIDEO_RESIZE_WIDTH = 908;
GLUT_VIDEO_RESIZE_HEIGHT = 909;
// glutGetModifiers return mask.
GLUT_ACTIVE_SHIFT = 1;
GLUT_ACTIVE_CTRL = 2;
GLUT_ACTIVE_ALT = 4;
// glutSetCursor parameters.
// Basic arrows.
GLUT_CURSOR_RIGHT_ARROW = 0;
GLUT_CURSOR_LEFT_ARROW = 1;
// Symbolic cursor shapes.
GLUT_CURSOR_INFO = 2;
GLUT_CURSOR_DESTROY = 3;
GLUT_CURSOR_HELP = 4;
GLUT_CURSOR_CYCLE = 5;
GLUT_CURSOR_SPRAY = 6;
GLUT_CURSOR_WAIT = 7;
GLUT_CURSOR_TEXT = 8;
GLUT_CURSOR_CROSSHAIR = 9;
// Directional cursors.
GLUT_CURSOR_UP_DOWN = 10;
GLUT_CURSOR_LEFT_RIGHT = 11;
// Sizing cursors.
GLUT_CURSOR_TOP_SIDE = 12;
GLUT_CURSOR_BOTTOM_SIDE = 13;
GLUT_CURSOR_LEFT_SIDE = 14;
GLUT_CURSOR_RIGHT_SIDE = 15;
GLUT_CURSOR_TOP_LEFT_CORNER = 16;
GLUT_CURSOR_TOP_RIGHT_CORNER = 17;
GLUT_CURSOR_BOTTOM_RIGHT_CORNER = 18;
GLUT_CURSOR_BOTTOM_LEFT_CORNER = 19;
// Inherit from parent window.
GLUT_CURSOR_INHERIT = 100;
// Blank cursor.
GLUT_CURSOR_NONE = 101;
// Fullscreen crosshair (if available).
GLUT_CURSOR_FULL_CROSSHAIR = 102;
// GLUT device control sub-API.
// glutSetKeyRepeat modes.
GLUT_KEY_REPEAT_OFF = 0;
GLUT_KEY_REPEAT_ON = 1;
GLUT_KEY_REPEAT_DEFAULT = 2;
// Joystick button masks.
GLUT_JOYSTICK_BUTTON_A = 1;
GLUT_JOYSTICK_BUTTON_B = 2;
GLUT_JOYSTICK_BUTTON_C = 4;
GLUT_JOYSTICK_BUTTON_D = 8;
// GLUT game mode sub-API.
// glutGameModeGet.
GLUT_GAME_MODE_ACTIVE = 0;
GLUT_GAME_MODE_POSSIBLE = 1;
GLUT_GAME_MODE_WIDTH = 2;
GLUT_GAME_MODE_HEIGHT = 3;
GLUT_GAME_MODE_PIXEL_DEPTH = 4;
GLUT_GAME_MODE_REFRESH_RATE = 5;
GLUT_GAME_MODE_DISPLAY_CHANGED = 6;
// GLUT initialization sub-API.
procedure glutInit(argcp: PInteger; argv: PPChar); external dllname;
procedure glutInitDisplayMode(mode: Word); external dllname;
procedure glutInitDisplayString(const str: PChar); external dllname;
procedure glutInitWindowPosition(x, y: Integer); external dllname;
procedure glutInitWindowSize(width, height: Integer); external dllname;
procedure glutMainLoop; external dllname;
// GLUT window sub-API.
function glutCreateWindow(const title: PChar): Integer; external dllname;
function glutCreateSubWindow(win, x, y, width, height: Integer): Integer; external dllname;
procedure glutDestroyWindow(win: Integer); external dllname;
procedure glutPostRedisplay; external dllname;
procedure glutPostWindowRedisplay(win: Integer); external dllname;
procedure glutSwapBuffers; external dllname;
function glutGetWindow: Integer; external dllname;
procedure glutSetWindow(win: Integer); external dllname;
procedure glutSetWindowTitle(const title: PChar); external dllname;
procedure glutSetIconTitle(const title: PChar); external dllname;
procedure glutPositionWindow(x, y: Integer); external dllname;
procedure glutReshapeWindow(width, height: Integer); external dllname;
procedure glutPopWindow; external dllname;
procedure glutPushWindow; external dllname;
procedure glutIconifyWindow; external dllname;
procedure glutShowWindow; external dllname;
procedure glutHideWindow; external dllname;
procedure glutFullScreen; external dllname;
procedure glutSetCursor(cursor: Integer); external dllname;
procedure glutWarpPointer(x, y: Integer); external dllname;
// GLUT overlay sub-API.
procedure glutEstablishOverlay; external dllname;
procedure glutRemoveOverlay; external dllname;
procedure glutUseLayer(layer: GLenum); external dllname;
procedure glutPostOverlayRedisplay; external dllname;
procedure glutPostWindowOverlayRedisplay(win: Integer); external dllname;
procedure glutShowOverlay; external dllname;
procedure glutHideOverlay; external dllname;
// GLUT menu sub-API.
function glutCreateMenu(callback: TGlut1IntCallback): Integer; external dllname;
procedure glutDestroyMenu(menu: Integer); external dllname;
function glutGetMenu: Integer; external dllname;
procedure glutSetMenu(menu: Integer); external dllname;
procedure glutAddMenuEntry(const caption: PChar; value: Integer); external dllname;
procedure glutAddSubMenu(const caption: PChar; submenu: Integer); external dllname;
procedure glutChangeToMenuEntry(item: Integer; const caption: PChar; value: Integer); external dllname;
procedure glutChangeToSubMenu(item: Integer; const caption: PChar; submenu: Integer); external dllname;
procedure glutRemoveMenuItem(item: Integer); external dllname;
procedure glutAttachMenu(button: Integer); external dllname;
procedure glutDetachMenu(button: Integer); external dllname;
// GLUT window callback sub-API.
procedure glutDisplayFunc(f: TGlutVoidCallback); external dllname;
procedure glutReshapeFunc(f: TGlut2IntCallback); external dllname;
procedure glutKeyboardFunc(f: TGlut1Char2IntCallback); external dllname;
procedure glutMouseFunc(f: TGlut4IntCallback); external dllname;
procedure glutMotionFunc(f: TGlut2IntCallback); external dllname;
procedure glutPassiveMotionFunc(f: TGlut2IntCallback); external dllname;
procedure glutEntryFunc(f: TGlut1IntCallback); external dllname;
procedure glutVisibilityFunc(f: TGlut1IntCallback); external dllname;
procedure glutIdleFunc(f: TGlutVoidCallback); external dllname;
procedure glutTimerFunc(millis: Word; f: TGlut1IntCallback; value: Integer); external dllname;
procedure glutMenuStateFunc(f: TGlut1IntCallback); external dllname;
procedure glutSpecialFunc(f: TGlut3IntCallback); external dllname;
procedure glutSpaceballMotionFunc(f: TGlut3IntCallback); external dllname;
procedure glutSpaceballRotateFunc(f: TGlut3IntCallback); external dllname;
procedure glutSpaceballButtonFunc(f: TGlut2IntCallback); external dllname;
procedure glutButtonBoxFunc(f: TGlut2IntCallback); external dllname;
procedure glutDialsFunc(f: TGlut2IntCallback); external dllname;
procedure glutTabletMotionFunc(f: TGlut2IntCallback); external dllname;
procedure glutTabletButtonFunc(f: TGlut4IntCallback); external dllname;
procedure glutMenuStatusFunc(f: TGlut3IntCallback); external dllname;
procedure glutOverlayDisplayFunc(f:TGlutVoidCallback); external dllname;
procedure glutWindowStatusFunc(f: TGlut1IntCallback); external dllname;
procedure glutKeyboardUpFunc(f: TGlut1Char2IntCallback); external dllname;
procedure glutSpecialUpFunc(f: TGlut3IntCallback); external dllname;
procedure glutJoystickFunc(f: TGlut1UInt3IntCallback; pollInterval: Integer); external dllname;
// GLUT color index sub-API.
procedure glutSetColor(cell: Integer; red, green, blue: GLfloat); external dllname;
function glutGetColor(ndx, component: Integer): GLfloat; external dllname;
procedure glutCopyColormap(win: Integer); external dllname;
// GLUT state retrieval sub-API.
function glutGet(t: GLenum): Integer; external dllname;
function glutDeviceGet(t: GLenum): Integer; external dllname;
// GLUT extension support sub-API
function glutExtensionSupported(const name: PChar): Integer; external dllname;
function glutGetModifiers: Integer; external dllname;
function glutLayerGet(t: GLenum): Integer; external dllname;
// GLUT font sub-API
procedure glutBitmapCharacter(font : pointer; character: Integer); external dllname;
function glutBitmapWidth(font : pointer; character: Integer): Integer; external dllname;
procedure glutStrokeCharacter(font : pointer; character: Integer); external dllname;
function glutStrokeWidth(font : pointer; character: Integer): Integer; external dllname;
function glutBitmapLength(font: pointer; const str: PChar): Integer; external dllname;
function glutStrokeLength(font: pointer; const str: PChar): Integer; external dllname;
// GLUT pre-built models sub-API
procedure glutWireSphere(radius: GLdouble; slices, stacks: GLint); external dllname;
procedure glutSolidSphere(radius: GLdouble; slices, stacks: GLint); external dllname;
procedure glutWireCone(base, height: GLdouble; slices, stacks: GLint); external dllname;
procedure glutSolidCone(base, height: GLdouble; slices, stacks: GLint); external dllname;
procedure glutWireCube(size: GLdouble); external dllname;
procedure glutSolidCube(size: GLdouble); external dllname;
procedure glutWireTorus(innerRadius, outerRadius: GLdouble; sides, rings: GLint); external dllname;
procedure glutSolidTorus(innerRadius, outerRadius: GLdouble; sides, rings: GLint); external dllname;
procedure glutWireDodecahedron; external dllname;
procedure glutSolidDodecahedron; external dllname;
procedure glutWireTeapot(size: GLdouble); external dllname;
procedure glutSolidTeapot(size: GLdouble); external dllname;
procedure glutWireOctahedron; external dllname;
procedure glutSolidOctahedron; external dllname;
procedure glutWireTetrahedron; external dllname;
procedure glutSolidTetrahedron; external dllname;
procedure glutWireIcosahedron; external dllname;
procedure glutSolidIcosahedron; external dllname;
// GLUT video resize sub-API.
function glutVideoResizeGet(param: GLenum): Integer; external dllname;
procedure glutSetupVideoResizing; external dllname;
procedure glutStopVideoResizing; external dllname;
procedure glutVideoResize(x, y, width, height: Integer); external dllname;
procedure glutVideoPan(x, y, width, height: Integer); external dllname;
// GLUT debugging sub-API.
procedure glutReportErrors; external dllname;
// GLUT device control sub-API.
procedure glutIgnoreKeyRepeat(ignore: Integer); external dllname;
procedure glutSetKeyRepeat(repeatMode: Integer); external dllname;
procedure glutForceJoystickFunc; external dllname;
// GLUT game mode sub-API.
//example glutGameModeString('1280x1024:32@75');
procedure glutGameModeString (const AString : PChar); external dllname;
function glutEnterGameMode : integer; external dllname;
procedure glutLeaveGameMode; external dllname;
function glutGameModeGet (mode : GLenum) : integer; external dllname;
implementation
end.
Reference in New Issue View Git Blame Copy Permalink