blob: 395a2d3645765f9e5e2cbeca2faa53ac0f4acbb0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
|
{ Parsed from Appkit.framework NSOpenGL.h }
{$ifdef TYPES}
{$ifndef NSOPENGL_PAS_T}
{$define NSOPENGL_PAS_T}
{ Defines }
const
NSOPENGL_CURRENT_VERSION = 1;
{ Types }
type
NSOpenGLGlobalOption = culong;
NSOpenGLContextParameter = culong;
{ Constants }
const
NSOpenGLGOFormatCacheSize = 501;
NSOpenGLGOClearFormatCache = 502;
NSOpenGLGORetainRenderers = 503;
NSOpenGLGOResetLibrary = 504;
const
NSOpenGLPFAAllRenderers = 1;
NSOpenGLPFADoubleBuffer = 5;
NSOpenGLPFAStereo = 6;
NSOpenGLPFAAuxBuffers = 7;
NSOpenGLPFAColorSize = 8;
NSOpenGLPFAAlphaSize = 11;
NSOpenGLPFADepthSize = 12;
NSOpenGLPFAStencilSize = 13;
NSOpenGLPFAAccumSize = 14;
NSOpenGLPFAMinimumPolicy = 51;
NSOpenGLPFAMaximumPolicy = 52;
NSOpenGLPFAOffScreen = 53;
NSOpenGLPFAFullScreen = 54;
NSOpenGLPFASampleBuffers = 55;
NSOpenGLPFASamples = 56;
NSOpenGLPFAAuxDepthStencil = 57;
NSOpenGLPFAColorFloat = 58;
NSOpenGLPFAMultisample = 59;
NSOpenGLPFASupersample = 60;
NSOpenGLPFASampleAlpha = 61;
NSOpenGLPFARendererID = 70;
NSOpenGLPFASingleRenderer = 71;
NSOpenGLPFANoRecovery = 72;
NSOpenGLPFAAccelerated = 73;
NSOpenGLPFAClosestPolicy = 74;
NSOpenGLPFARobust = 75;
NSOpenGLPFABackingStore = 76;
NSOpenGLPFAMPSafe = 78;
NSOpenGLPFAWindow = 80;
NSOpenGLPFAMultiScreen = 81;
NSOpenGLPFACompliant = 83;
NSOpenGLPFAScreenMask = 84;
NSOpenGLPFAPixelBuffer = 90;
NSOpenGLPFARemotePixelBuffer = 91;
NSOpenGLPFAAllowOfflineRenderers = 96;
NSOpenGLPFAAcceleratedCompute = 97;
NSOpenGLPFAVirtualScreenCount = 128;
const
NSOpenGLCPSwapRectangle = 200;
NSOpenGLCPSwapRectangleEnable = 201;
NSOpenGLCPRasterizationEnable = 221;
NSOpenGLCPSwapInterval = 222;
NSOpenGLCPSurfaceOrder = 235;
NSOpenGLCPSurfaceOpacity = 236;
NSOpenGLCPStateValidation = 301;
{ Types }
type
NSOpenGLPixelFormatAttribute = cuint32;
NSOpenGLPixelFormatAttributePtr = ^NSOpenGLPixelFormatAttribute;
_CGLPixelFormatObject = record end;
NSOpenGLPixelFormatAuxiliary = _CGLPixelFormatObject;
NSOpenGLPixelFormatAuxiliaryPtr = ^NSOpenGLPixelFormatAuxiliary;
_CGLContextObject = record end;
NSOpenGLContextAuxiliary = _CGLContextObject;
NSOpenGLContextAuxiliaryPtr = ^NSOpenGLContextAuxiliary;
{$endif}
{$endif}
{$ifdef RECORDS}
{$ifndef NSOPENGL_PAS_R}
{$define NSOPENGL_PAS_R}
{$endif}
{$endif}
{$ifdef FUNCTIONS}
{$ifndef NSOPENGL_PAS_F}
{$define NSOPENGL_PAS_F}
{ Functions }
procedure NSOpenGLSetOption(pname: NSOpenGLGlobalOption; param: GLint); cdecl; external;
procedure NSOpenGLGetOption(pname: NSOpenGLGlobalOption; param: GLintPtr); cdecl; external;
procedure NSOpenGLGetVersion(major: GLintPtr; minor: GLintPtr); cdecl; external;
{$endif}
{$endif}
{$ifdef EXTERNAL_SYMBOLS}
{$ifndef NSOPENGL_PAS_S}
{$define NSOPENGL_PAS_S}
{$endif}
{$endif}
{$ifdef FORWARD}
NSOpenGLPixelFormat = objcclass;
NSOpenGLPixelFormatPointer = ^NSOpenGLPixelFormat;
NSOpenGLPixelFormatPtr = NSOpenGLPixelFormatPointer;
NSOpenGLPixelBuffer = objcclass;
NSOpenGLPixelBufferPointer = ^NSOpenGLPixelBuffer;
NSOpenGLPixelBufferPtr = NSOpenGLPixelBufferPointer;
NSOpenGLContext = objcclass;
NSOpenGLContextPointer = ^NSOpenGLContext;
NSOpenGLContextPtr = NSOpenGLContextPointer;
{$endif}
{$ifdef CLASSES}
{$ifndef NSOPENGL_PAS_C}
{$define NSOPENGL_PAS_C}
{ NSOpenGLPixelFormat }
NSOpenGLPixelFormat = objcclass external (NSObject, NSCodingProtocol)
private
_pixelFormatAuxiliary: NSOpenGLPixelFormatAuxiliaryPtr;
_pixelAttributes: NSData;
_reserved1: NSInteger;
_reserved2: NSInteger;
_reserved3: NSInteger;
public
function initWithAttributes(attribs: NSOpenGLPixelFormatAttributePtr): id; message 'initWithAttributes:';
function initWithData(attribs: NSData): id; message 'initWithData:';
function initWithCGLPixelFormatObj(format: Pointer): id; message 'initWithCGLPixelFormatObj:';
function attributes: NSData; message 'attributes';
procedure setAttributes(attribs: NSData); message 'setAttributes:';
procedure getValues_forAttribute_forVirtualScreen(vals: GLintPtr; attrib: NSOpenGLPixelFormatAttribute; screen: GLint); message 'getValues:forAttribute:forVirtualScreen:';
function numberOfVirtualScreens: GLint; message 'numberOfVirtualScreens';
function CGLPixelFormatObj: Pointer; message 'CGLPixelFormatObj';
{ Adopted Protocols }
procedure encodeWithCoder(aCoder: NSCoder);
function initWithCoder(aDecoder: NSCoder): id;
end;
{ NSOpenGLPixelBuffer }
NSOpenGLPixelBuffer = objcclass external (NSObject)
private
__pixelBufferAuxiliary: Pointer;
_reserved1: Pointer;
_reserved2: Pointer;
public
function initWithTextureTarget_textureInternalFormat_textureMaxMipMapLevel_pixelsWide_pixelsHigh(target: GLenum; format: GLenum; maxLevel: GLint; pixelsWide_: GLsizei; pixelsHigh_: GLsizei): id; message 'initWithTextureTarget:textureInternalFormat:textureMaxMipMapLevel:pixelsWide:pixelsHigh:';
function initWithCGLPBufferObj(pbuffer: Pointer): id; message 'initWithCGLPBufferObj:';
function CGLPBufferObj: Pointer; message 'CGLPBufferObj';
function pixelsWide: GLsizei; message 'pixelsWide';
function pixelsHigh: GLsizei; message 'pixelsHigh';
function textureTarget: GLenum; message 'textureTarget';
function textureInternalFormat: GLenum; message 'textureInternalFormat';
function textureMaxMipMapLevel: GLint; message 'textureMaxMipMapLevel';
end;
{ NSOpenGLContext }
NSOpenGLContext = objcclass external (NSObject)
private
_view: NSView;
_contextAuxiliary: NSOpenGLContextAuxiliaryPtr;
public
function initWithFormat_shareContext(format: NSOpenGLPixelFormat; share: NSOpenGLContext): id; message 'initWithFormat:shareContext:';
function initWithCGLContextObj(context: Pointer): id; message 'initWithCGLContextObj:';
procedure setView(view_: NSView); message 'setView:';
function view: NSView; message 'view';
procedure setFullScreen; message 'setFullScreen';
procedure setOffScreen_width_height_rowbytes(baseaddr: Pointer; width: GLsizei; height: GLsizei; rowbytes: GLint); message 'setOffScreen:width:height:rowbytes:';
procedure clearDrawable; message 'clearDrawable';
procedure update; message 'update';
procedure flushBuffer; message 'flushBuffer';
procedure makeCurrentContext; message 'makeCurrentContext';
class procedure clearCurrentContext; message 'clearCurrentContext';
class function currentContext: NSOpenGLContext; message 'currentContext';
procedure copyAttributesFromContext_withMask(context: NSOpenGLContext; mask: GLbitfield); message 'copyAttributesFromContext:withMask:';
procedure setValues_forParameter(vals: GLintPtr; param: NSOpenGLContextParameter); message 'setValues:forParameter:';
procedure getValues_forParameter(vals: GLintPtr; param: NSOpenGLContextParameter); message 'getValues:forParameter:';
procedure setCurrentVirtualScreen(screen: GLint); message 'setCurrentVirtualScreen:';
function currentVirtualScreen: GLint; message 'currentVirtualScreen';
procedure createTexture_fromView_internalFormat(target: GLenum; view_: NSView; format: GLenum); message 'createTexture:fromView:internalFormat:';
function CGLContextObj: Pointer; message 'CGLContextObj';
procedure setPixelBuffer_cubeMapFace_mipMapLevel_currentVirtualScreen(pixelBuffer_: NSOpenGLPixelBuffer; face: GLenum; level: GLint; screen: GLint); message 'setPixelBuffer:cubeMapFace:mipMapLevel:currentVirtualScreen:';
function pixelBuffer: NSOpenGLPixelBuffer; message 'pixelBuffer';
function pixelBufferCubeMapFace: GLenum; message 'pixelBufferCubeMapFace';
function pixelBufferMipMapLevel: GLint; message 'pixelBufferMipMapLevel';
procedure setTextureImageToPixelBuffer_colorBuffer(pixelBuffer_: NSOpenGLPixelBuffer; source: GLenum); message 'setTextureImageToPixelBuffer:colorBuffer:';
end;
{$endif}
{$endif}
|
