mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-17 17:08:14 +02:00
408 lines
18 KiB
ObjectPascal
408 lines
18 KiB
ObjectPascal
{
|
|
File: opengl.pas
|
|
|
|
Contains: Pascal translation of the OpenGL Apple bindings.
|
|
Should contain only Apple specific parts of the bindings.
|
|
Other parts should be on the cross-platform "gl" unit.
|
|
|
|
Version: From Mac OS X 10.4.11
|
|
|
|
Original Copyright: (c) 1999 by Apple Computer, Inc., all rights reserved.
|
|
}
|
|
unit opengl;
|
|
|
|
{$ifdef fpc}
|
|
{$mode objfpc}
|
|
{$Packrecords C}
|
|
{$packenum 4} // verifyed with sizeof in C
|
|
{$calling cdecl}
|
|
{$linkframework OpenGL}
|
|
{$endif}
|
|
|
|
interface
|
|
|
|
uses
|
|
ctypes;
|
|
|
|
{ From gl.h }
|
|
|
|
{ Extra definitions found on gl.h unit from Apple not present on the
|
|
default gl.pas from Free Pascal }
|
|
|
|
const
|
|
{ bgra }
|
|
GL_BGR = $80E0;
|
|
GL_BGRA = $80E1;
|
|
|
|
{ packed_pixels }
|
|
GL_UNSIGNED_BYTE_3_3_2 = $8032;
|
|
GL_UNSIGNED_SHORT_4_4_4_4 = $8033;
|
|
GL_UNSIGNED_SHORT_5_5_5_1 = $8034;
|
|
GL_UNSIGNED_INT_8_8_8_8 = $8035;
|
|
GL_UNSIGNED_INT_10_10_10_2 = $8036;
|
|
GL_UNSIGNED_BYTE_2_3_3_REV = $8362;
|
|
GL_UNSIGNED_SHORT_5_6_5 = $8363;
|
|
GL_UNSIGNED_SHORT_5_6_5_REV = $8364;
|
|
GL_UNSIGNED_SHORT_4_4_4_4_REV = $8365;
|
|
GL_UNSIGNED_SHORT_1_5_5_5_REV = $8366;
|
|
GL_UNSIGNED_INT_8_8_8_8_REV = $8367;
|
|
GL_UNSIGNED_INT_2_10_10_10_REV = $8368;
|
|
|
|
{
|
|
From CGLTypes.h
|
|
|
|
Copyright: (c) 1999 by Apple Computer, Inc., all rights reserved.
|
|
}
|
|
|
|
{
|
|
** CGL opaque data.
|
|
}
|
|
type
|
|
CGLContextObj = Pointer;
|
|
PCGLContextObj = ^CGLContextObj;
|
|
CGLPixelFormatObj = Pointer;
|
|
PCGLPixelFormatObj = ^CGLPixelFormatObj;
|
|
CGLRendererInfoObj = Pointer;
|
|
CGLPBufferObj = Pointer;
|
|
|
|
{
|
|
** Attribute names for CGLChoosePixelFormat and CGLDescribePixelFormat.
|
|
}
|
|
CGLPixelFormatAttribute = (
|
|
kCGLPFAAllRenderers = 1, { choose from all available renderers }
|
|
kCGLPFADoubleBuffer = 5, { choose a double buffered pixel format }
|
|
kCGLPFAStereo = 6, { stereo buffering supported }
|
|
kCGLPFAAuxBuffers = 7, { number of aux buffers }
|
|
kCGLPFAColorSize = 8, { number of color buffer bits }
|
|
kCGLPFAAlphaSize = 11, { number of alpha component bits }
|
|
kCGLPFADepthSize = 12, { number of depth buffer bits }
|
|
kCGLPFAStencilSize = 13, { number of stencil buffer bits }
|
|
kCGLPFAAccumSize = 14, { number of accum buffer bits }
|
|
kCGLPFAMinimumPolicy = 51, { never choose smaller buffers than requested }
|
|
kCGLPFAMaximumPolicy = 52, { choose largest buffers of type requested }
|
|
kCGLPFAOffScreen = 53, { choose an off-screen capable renderer }
|
|
kCGLPFAFullScreen = 54, { choose a full-screen capable renderer }
|
|
kCGLPFASampleBuffers = 55, { number of multi sample buffers }
|
|
kCGLPFASamples = 56, { number of samples per multi sample buffer }
|
|
kCGLPFAAuxDepthStencil = 57, { each aux buffer has its own depth stencil }
|
|
kCGLPFAColorFloat = 58, { color buffers store floating point pixels }
|
|
kCGLPFAMultisample = 59, { choose multisampling }
|
|
kCGLPFASupersample = 60, { choose supersampling }
|
|
kCGLPFASampleAlpha = 61, { request alpha filtering }
|
|
|
|
kCGLPFARendererID = 70, { request renderer by ID }
|
|
kCGLPFASingleRenderer = 71, { choose a single renderer for all screens }
|
|
kCGLPFANoRecovery = 72, { disable all failure recovery systems }
|
|
kCGLPFAAccelerated = 73, { choose a hardware accelerated renderer }
|
|
kCGLPFAClosestPolicy = 74, { choose the closest color buffer to request }
|
|
kCGLPFARobust = 75, { renderer does not need failure recovery }
|
|
kCGLPFABackingStore = 76, { back buffer contents are valid after swap }
|
|
kCGLPFAMPSafe = 78, { renderer is multi-processor safe }
|
|
kCGLPFAWindow = 80, { can be used to render to an onscreen window }
|
|
kCGLPFAMultiScreen = 81, { single window can span multiple screens }
|
|
kCGLPFACompliant = 83, { renderer is opengl compliant }
|
|
kCGLPFADisplayMask = 84, { mask limiting supported displays }
|
|
kCGLPFAPBuffer = 90, { can be used to render to a pbuffer }
|
|
kCGLPFARemotePBuffer = 91, { can be used to render offline to a pbuffer }
|
|
kCGLPFAVirtualScreenCount = 128 { number of virtual screens in this format }
|
|
);
|
|
PCGLPixelFormatAttribute = ^CGLPixelFormatAttribute;
|
|
{
|
|
** Property names for CGLDescribeRenderer.
|
|
}
|
|
CGLRendererProperty = (
|
|
kCGLRPOffScreen = 53,
|
|
kCGLRPFullScreen = 54,
|
|
kCGLRPRendererID = 70,
|
|
kCGLRPAccelerated = 73,
|
|
kCGLRPRobust = 75,
|
|
kCGLRPBackingStore = 76,
|
|
kCGLRPMPSafe = 78,
|
|
kCGLRPWindow = 80,
|
|
kCGLRPMultiScreen = 81,
|
|
kCGLRPCompliant = 83,
|
|
kCGLRPDisplayMask = 84,
|
|
kCGLRPBufferModes = 100, { a bitfield of supported buffer modes }
|
|
kCGLRPColorModes = 103, { a bitfield of supported color buffer formats }
|
|
kCGLRPAccumModes = 104, { a bitfield of supported accum buffer formats }
|
|
kCGLRPDepthModes = 105, { a bitfield of supported depth buffer depths }
|
|
kCGLRPStencilModes = 106, { a bitfield of supported stencil buffer depths }
|
|
kCGLRPMaxAuxBuffers = 107, { maximum number of auxilliary buffers }
|
|
kCGLRPMaxSampleBuffers = 108, { maximum number of sample buffers }
|
|
kCGLRPMaxSamples = 109, { maximum number of samples }
|
|
kCGLRPSampleModes = 110, { a bitfield of supported sample modes }
|
|
kCGLRPSampleAlpha = 111, { support for alpha sampling }
|
|
kCGLRPVideoMemory = 120, { total video memory }
|
|
kCGLRPTextureMemory = 121, { video memory useable for texture storage }
|
|
kCGLRPGPUVertProcCapable = 122, { renderer capable of GPU vertex processing }
|
|
kCGLRPGPUFragProcCapable = 123, { renderer capable of GPU fragment processing }
|
|
kCGLRPRendererCount = 128 { the number of renderers in this renderer info }
|
|
);
|
|
|
|
{
|
|
** Enable names for CGLEnable, CGLDisable, and CGLIsEnabled.
|
|
}
|
|
CGLContextEnable = (
|
|
kCGLCESwapRectangle = 201, { Enable or disable the swap rectangle }
|
|
kCGLCESwapLimit = 203, { Enable or disable the swap async limit }
|
|
kCGLCERasterization = 221, { Enable or disable all rasterization }
|
|
kCGLCEStateValidation = 301, { Validate state for multi-screen functionality }
|
|
kCGLCESurfaceBackingSize = 305, { Enable or disable surface backing size override }
|
|
kCGLCEDisplayListOptimization = 307, { Ability to turn off display list optimizer }
|
|
kCGLCEMPEngine = 313 { Enable or disable multi-threaded GL engine }
|
|
);
|
|
|
|
{
|
|
** Parameter names for CGLSetParameter and CGLGetParameter.
|
|
}
|
|
CGLContextParameter = (
|
|
kCGLCPSwapRectangle = 200, { 4 params. Set or get the swap rectangle (x, y, w, h) }
|
|
kCGLCPSwapInterval = 222, { 1 param. 0 -> Don't sync, n -> Sync every n retrace }
|
|
kCGLCPDispatchTableSize = 224, { 1 param. Get the dispatch table size }
|
|
{ Note: kCGLCPClientStorage is always a pointer-sized parameter, even though the API claims GLint. }
|
|
kCGLCPClientStorage = 226, { 1 param. Context specific generic storage }
|
|
kCGLCPSurfaceTexture = 228, { 3 params. SID, target, internal_format }
|
|
{ - Used by AGL - }
|
|
{ AGL_STATE_VALIDATION 230 }
|
|
{ AGL_BUFFER_NAME 231 }
|
|
{ AGL_ORDER_CONTEXT_TO_FRONT 232 }
|
|
{ AGL_CONTEXT_SURFACE_ID 233 }
|
|
{ AGL_CONTEXT_DISPLAY_ID 234 }
|
|
kCGLCPSurfaceOrder = 235, { 1 param. 1 -> Above window, -1 -> Below Window }
|
|
kCGLCPSurfaceOpacity = 236, { 1 param. 1 -> Surface is opaque (default), 0 -> non-opaque }
|
|
{ - Used by AGL - }
|
|
{ AGL_CLIP_REGION 254 }
|
|
{ AGL_FS_CAPTURE_SINGLE 255 }
|
|
kCGLCPSurfaceBackingSize = 304, { 2 params. Width/height of surface backing size }
|
|
{ AGL_SURFACE_VOLATILE 306 }
|
|
kCGLCPSurfaceSurfaceVolatile = 306, { 1 param. Surface volatile state }
|
|
kCGLCPReclaimResources = 308, { 0 params. }
|
|
kCGLCPCurrentRendererID = 309, { 1 param. Retrieves the current renderer ID }
|
|
kCGLCPGPUVertexProcessing = 310, { 1 param. Currently processing vertices with GPU (get) }
|
|
kCGLCPGPUFragmentProcessing = 311 { 1 param. Currently processing fragments with GPU (get) }
|
|
);
|
|
|
|
{
|
|
** Option names for CGLSetOption and CGLGetOption.
|
|
}
|
|
CGLGlobalOption = (
|
|
kCGLGOFormatCacheSize = 501, { Set the size of the pixel format cache }
|
|
kCGLGOClearFormatCache = 502, { Reset the pixel format cache if true }
|
|
kCGLGORetainRenderers = 503, { Whether to retain loaded renderers in memory }
|
|
kCGLGOResetLibrary = 504, { *** DEPRECATED in MacOS X 10.4 *** }
|
|
{ Do a soft reset of the CGL library if true }
|
|
kCGLGOUseErrorHandler = 505 { Call the Core Graphics handler on CGL errors }
|
|
);
|
|
|
|
{
|
|
** Error return values from CGLGetError.
|
|
}
|
|
CGLError = (
|
|
kCGLNoError = 0, { no error }
|
|
kCGLBadAttribute = 10000, { invalid pixel format attribute }
|
|
kCGLBadProperty = 10001, { invalid renderer property }
|
|
kCGLBadPixelFormat = 10002, { invalid pixel format }
|
|
kCGLBadRendererInfo = 10003, { invalid renderer info }
|
|
kCGLBadContext = 10004, { invalid context }
|
|
kCGLBadDrawable = 10005, { invalid drawable }
|
|
kCGLBadDisplay = 10006, { invalid graphics device }
|
|
kCGLBadState = 10007, { invalid context state }
|
|
kCGLBadValue = 10008, { invalid numerical value }
|
|
kCGLBadMatch = 10009, { invalid share context }
|
|
kCGLBadEnumeration = 10010, { invalid enumerant }
|
|
kCGLBadOffScreen = 10011, { invalid offscreen drawable }
|
|
kCGLBadFullScreen = 10012, { invalid offscreen drawable }
|
|
kCGLBadWindow = 10013, { invalid window }
|
|
kCGLBadAddress = 10014, { invalid pointer }
|
|
kCGLBadCodeModule = 10015, { invalid code module }
|
|
kCGLBadAlloc = 10016, { invalid memory allocation }
|
|
kCGLBadConnection = 10017 { invalid CoreGraphics connection }
|
|
);
|
|
|
|
|
|
{
|
|
** Buffer modes
|
|
}
|
|
const
|
|
kCGLMonoscopicBit = $00000001;
|
|
kCGLStereoscopicBit= $00000002;
|
|
kCGLSingleBufferBit= $00000004;
|
|
kCGLDoubleBufferBit= $00000008;
|
|
|
|
{
|
|
** Depth and stencil buffer depths
|
|
}
|
|
kCGL0Bit = $00000001;
|
|
kCGL1Bit = $00000002;
|
|
kCGL2Bit = $00000004;
|
|
kCGL3Bit = $00000008;
|
|
kCGL4Bit = $00000010;
|
|
kCGL5Bit = $00000020;
|
|
kCGL6Bit = $00000040;
|
|
kCGL8Bit = $00000080;
|
|
kCGL10Bit = $00000100;
|
|
kCGL12Bit = $00000200;
|
|
kCGL16Bit = $00000400;
|
|
kCGL24Bit = $00000800;
|
|
kCGL32Bit = $00001000;
|
|
kCGL48Bit = $00002000;
|
|
kCGL64Bit = $00004000;
|
|
kCGL96Bit = $00008000;
|
|
kCGL128Bit = $00010000;
|
|
|
|
{
|
|
** Color and accumulation buffer formats.
|
|
}
|
|
kCGLRGB444Bit = $00000040; { 16 rgb bit/pixel, R=11:8, G=7:4, B=3:0 }
|
|
kCGLARGB4444Bit = $00000080; { 16 argb bit/pixel, A=15:12, R=11:8, G=7:4, B=3:0 }
|
|
kCGLRGB444A8Bit = $00000100; { 8-16 argb bit/pixel, A=7:0, R=11:8, G=7:4, B=3:0 }
|
|
kCGLRGB555Bit = $00000200; { 16 rgb bit/pixel, R=14:10, G=9:5, B=4:0 }
|
|
kCGLARGB1555Bit = $00000400; { 16 argb bit/pixel, A=15, R=14:10, G=9:5, B=4:0 }
|
|
kCGLRGB555A8Bit = $00000800; { 8-16 argb bit/pixel, A=7:0, R=14:10, G=9:5, B=4:0 }
|
|
kCGLRGB565Bit = $00001000; { 16 rgb bit/pixel, R=15:11, G=10:5, B=4:0 }
|
|
kCGLRGB565A8Bit = $00002000; { 8-16 argb bit/pixel, A=7:0, R=15:11, G=10:5, B=4:0 }
|
|
kCGLRGB888Bit = $00004000; { 32 rgb bit/pixel, R=23:16, G=15:8, B=7:0 }
|
|
kCGLARGB8888Bit = $00008000; { 32 argb bit/pixel, A=31:24, R=23:16, G=15:8, B=7:0 }
|
|
kCGLRGB888A8Bit = $00010000; { 8-32 argb bit/pixel, A=7:0, R=23:16, G=15:8, B=7:0 }
|
|
kCGLRGB101010Bit = $00020000; { 32 rgb bit/pixel, R=29:20, G=19:10, B=9:0 }
|
|
kCGLARGB2101010Bit = $00040000; { 32 argb bit/pixel, A=31:30 R=29:20, G=19:10, B=9:0 }
|
|
kCGLRGB101010_A8Bit= $00080000; { 8-32 argb bit/pixel, A=7:0 R=29:20, G=19:10, B=9:0 }
|
|
kCGLRGB121212Bit = $00100000; { 48 rgb bit/pixel, R=35:24, G=23:12, B=11:0 }
|
|
kCGLARGB12121212Bit= $00200000; { 48 argb bit/pixel, A=47:36, R=35:24, G=23:12, B=11:0 }
|
|
kCGLRGB161616Bit = $00400000; { 64 rgb bit/pixel, R=63:48, G=47:32, B=31:16 }
|
|
kCGLRGBA16161616Bit= $00800000; { 64 argb bit/pixel, R=63:48, G=47:32, B=31:16, A=15:0 }
|
|
kCGLRGBFloat64Bit = $01000000; { 64 rgb bit/pixel, half float }
|
|
kCGLRGBAFloat64Bit = $02000000; { 64 argb bit/pixel, half float }
|
|
kCGLRGBFloat128Bit = $04000000; { 128 rgb bit/pixel, ieee float }
|
|
kCGLRGBAFloat128Bit= $08000000; { 128 argb bit/pixel, ieee float }
|
|
kCGLRGBFloat256Bit = $10000000; { 256 rgb bit/pixel, ieee double }
|
|
kCGLRGBAFloat256Bit= $20000000; { 256 argb bit/pixel, ieee double }
|
|
|
|
{
|
|
** Sampling modes
|
|
}
|
|
kCGLSupersampleBit = $00000001;
|
|
kCGLMultisampleBit = $00000002;
|
|
|
|
{ Obsolete }
|
|
kCGLARGB16161616Bit = kCGLRGBA16161616Bit;
|
|
|
|
{
|
|
From CGLCurrent.h
|
|
|
|
Copyright: (c) 1999 by Apple Computer, Inc., all rights reserved.
|
|
}
|
|
|
|
{#include <OpenGL/CGLTypes.h>}
|
|
|
|
{
|
|
** Current context functions
|
|
}
|
|
function CGLSetCurrentContext(ctx: CGLContextObj): CGLError; external;
|
|
function CGLGetCurrentContext(): CGLContextObj; external;
|
|
|
|
{
|
|
From OpenGL.h
|
|
|
|
Copyright: (c) 1999 by Apple Computer, Inc., all rights reserved.
|
|
}
|
|
|
|
{#include <AvailabilityMacros.h>
|
|
#include <OpenGL/CGLCurrent.h>}
|
|
|
|
{
|
|
** CGL API version.
|
|
}
|
|
const
|
|
CGL_VERSION_1_0 = 1;
|
|
CGL_VERSION_1_1 = 1;
|
|
|
|
{
|
|
** Pixel format functions
|
|
}
|
|
function CGLChoosePixelFormat(const attribs: PCGLPixelFormatAttribute; pix: PCGLPixelFormatObj; npix: pclong): CGLError; external;
|
|
function CGLDestroyPixelFormat(pix: CGLPixelFormatObj): CGLError; external;
|
|
function CGLDescribePixelFormat(pix: CGLPixelFormatObj; pix_num: clong; attrib: CGLPixelFormatAttribute; value: pclong): CGLError; external;
|
|
|
|
{
|
|
** Renderer information functions
|
|
}
|
|
//function CGLError CGLQueryRendererInfo(unsigned long display_mask, CGLRendererInfoObj *rend, long *nrend);
|
|
//function CGLError CGLDestroyRendererInfo(CGLRendererInfoObj rend);
|
|
//function CGLError CGLDescribeRenderer(CGLRendererInfoObj rend, long rend_num, CGLRendererProperty prop, long *value);
|
|
|
|
{
|
|
** Context functions
|
|
}
|
|
function CGLCreateContext(pix: CGLPixelFormatObj; share: CGLContextObj; ctx: PCGLContextObj): CGLError; external;
|
|
function CGLDestroyContext(ctx: CGLContextObj): CGLError; external;
|
|
function CGLCopyContext(src, dst: CGLContextObj; mask: culong): CGLError; external;
|
|
|
|
{
|
|
** PBuffer functions
|
|
}
|
|
{function CGLError CGLCreatePBuffer(long width, long height, unsigned long target, unsigned long internalFormat, long max_level, CGLPBufferObj *pbuffer) AVAILABLE_MAC_OS_X_VERSION_10_3_AND_LATER;
|
|
|
|
function CGLError CGLDestroyPBuffer(CGLPBufferObj pbuffer) AVAILABLE_MAC_OS_X_VERSION_10_3_AND_LATER;
|
|
|
|
function CGLError CGLDescribePBuffer(CGLPBufferObj obj, long *width, long *height, unsigned long *target, unsigned long *internalFormat, long *mipmap) AVAILABLE_MAC_OS_X_VERSION_10_3_AND_LATER;
|
|
|
|
function CGLError CGLTexImagePBuffer(CGLContextObj ctx, CGLPBufferObj pbuffer, unsigned long source) AVAILABLE_MAC_OS_X_VERSION_10_3_AND_LATER;}
|
|
|
|
{
|
|
** Drawable Functions
|
|
}
|
|
function CGLSetOffScreen(ctx: CGLContextObj; width, height, rowbytes: clong; baseaddr: Pointer): CGLError; external;
|
|
function CGLGetOffScreen(ctx: CGLContextObj; width, height, rowbytes: pclong; baseaddr: PPointer): CGLError; external;
|
|
function CGLSetFullScreen(ctx: CGLContextObj): CGLError; external;
|
|
|
|
{function CGLError CGLSetPBuffer(CGLContextObj ctx, CGLPBufferObj pbuffer, unsigned long face, long level, long screen) AVAILABLE_MAC_OS_X_VERSION_10_3_AND_LATER;
|
|
|
|
function CGLError CGLGetPBuffer(CGLContextObj ctx, CGLPBufferObj *pbuffer, unsigned long *face, long *level, long *screen) AVAILABLE_MAC_OS_X_VERSION_10_3_AND_LATER;}
|
|
|
|
function CGLClearDrawable(ctx: CGLContextObj): CGLError; external;
|
|
function CGLFlushDrawable(ctx: CGLContextObj): CGLError; external;
|
|
|
|
{
|
|
** Per context enables and parameters
|
|
}
|
|
{function CGLError CGLEnable(CGLContextObj ctx, CGLContextEnable pname);
|
|
function CGLError CGLDisable(CGLContextObj ctx, CGLContextEnable pname);
|
|
function CGLError CGLIsEnabled(CGLContextObj ctx, CGLContextEnable pname, long *enable);
|
|
function CGLError CGLSetParameter(CGLContextObj ctx, CGLContextParameter pname, const long *params);
|
|
function CGLError CGLGetParameter(CGLContextObj ctx, CGLContextParameter pname, long *params);}
|
|
|
|
{
|
|
** Virtual screen functions
|
|
}
|
|
//function CGLError CGLSetVirtualScreen(CGLContextObj ctx, long screen);
|
|
//function CGLError CGLGetVirtualScreen(CGLContextObj ctx, long *screen);
|
|
|
|
{
|
|
** Global library options
|
|
}
|
|
//function CGLError CGLSetOption(CGLGlobalOption pname, long param);
|
|
//function CGLError CGLGetOption(CGLGlobalOption pname, long *param);
|
|
|
|
{
|
|
** Locking functions
|
|
}
|
|
//function CGLError CGLLockContext(CGLContextObj ctx) AVAILABLE_MAC_OS_X_VERSION_10_4_AND_LATER;
|
|
|
|
//function CGLError CGLUnlockContext(CGLContextObj ctx) AVAILABLE_MAC_OS_X_VERSION_10_4_AND_LATER;
|
|
|
|
{
|
|
** Version numbers
|
|
}
|
|
//function void CGLGetVersion(long *majorvers, long *minorvers);
|
|
|
|
{
|
|
** Convert an error code to a string
|
|
}
|
|
//const char *CGLErrorString(CGLError error);
|
|
|
|
implementation
|
|
|
|
end.
|
|
|