diff options
Diffstat (limited to 'lib/base/opengl/glut.pp')
| -rw-r--r-- | lib/base/opengl/glut.pp | 436 |
1 files changed, 0 insertions, 436 deletions
diff --git a/lib/base/opengl/glut.pp b/lib/base/opengl/glut.pp deleted file mode 100644 index 3a6e7d9fc..000000000 --- a/lib/base/opengl/glut.pp +++ /dev/null @@ -1,436 +0,0 @@ -{ - - 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. |