/
glscene
/
LZScene
GigaCode
beta
ОбзорЦентр заботыВойти

LZScene

Форк
0
Ветки: 1Коммиты: 13Теги: 0
LZScene
/Source
/
cgGL.pas 
336 строк · 17.1 Кб
1
{******************************************************************************}
2
{*                                                                            *}
3
{*  Copyright (c) 2002, NVIDIA Corporation.                                   *}
4
{*                                                                            *}
5
{*  Files:    cgGL.h                                                          *}
6
{*  Content:  NVIDIA Cg OpenGL interface include files                        *}
7
{*                                                                            *}
8
{*  NVIDIA "Cg" Release 1.2 ObjectPascal adaptation by Alexey Barkovoy        *}
9
{*  E-Mail: clootie@ixbt.com                                                  *}
10
{*                                                                            *}
11
{*  Modified: 14-Mar-2004                                                     *}
12
{*                                                                            *}
13
{*  Latest version can be downloaded from:                                    *}
14
{*     http://clootie.narod.ru                                                *}
15
{*       http://developer.nvidia.com/object/cg_download.html                  *}
16
{*                                                                            *}
17
{******************************************************************************}
18
{                                                                              }
19
{ Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI)        }
20
{                                                                              }
21
{ The contents of this file are used with permission, subject to the Mozilla   }
22
{ Public License Version 1.1 (the "License"); you may not use this file except }
23
{ in compliance with the License. You may obtain a copy of the License at      }
24
{ http://www.mozilla.org/MPL/MPL-1.1.html                                      }
25
{                                                                              }
26
{ Software distributed under the License is distributed on an "AS IS" basis,   }
27
{ WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
28
{ the specific language governing rights and limitations under the License.    }
29
{                                                                              }
30
{ Alternatively, the contents of this file may be used under the terms of the  }
31
{ GNU Lesser General Public License (the  "LGPL License"), in which case the   }
32
{ provisions of the LGPL License are applicable instead of those above.        }
33
{ If you wish to allow use of your version of this file only under the terms   }
34
{ of the LGPL License and not to allow others to use your version of this file }
35
{ under the MPL, indicate your decision by deleting  the provisions above and  }
36
{ replace  them with the notice and other provisions required by the LGPL      }
37
{ License.  If you do not delete the provisions above, a recipient may use     }
38
{ your version of this file under either the MPL or the LGPL License.          }
39
{                                                                              }
40
{ For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
41
{                                                                              }
42
{******************************************************************************}
43


44
(*
45
 *
46
 * Copyright (c) 2002, NVIDIA Corporation.
47
 *
48
 *
49
 *
50
 * NVIDIA Corporation("NVIDIA") supplies this software to you in consideration
51
 * of your agreement to the following terms, and your use, installation,
52
 * modification or redistribution of this NVIDIA software constitutes
53
 * acceptance of these terms.  If you do not agree with these terms, please do
54
 * not use, install, modify or redistribute this NVIDIA software.
55
 *
56
 *
57
 *
58
 * In consideration of your agreement to abide by the following terms, and
59
 * subject to these terms, NVIDIA grants you a personal, non-exclusive license,
60
 * under NVIDIARs copyrights in this original NVIDIA software (the "NVIDIA
61
 * Software"), to use, reproduce, modify and redistribute the NVIDIA
62
 * Software, with or without modifications, in source and/or binary forms;
63
 * provided that if you redistribute the NVIDIA Software, you must retain the
64
 * copyright notice of NVIDIA, this notice and the following text and
65
 * disclaimers in all such redistributions of the NVIDIA Software. Neither the
66
 * name, trademarks, service marks nor logos of NVIDIA Corporation may be used
67
 * to endorse or promote products derived from the NVIDIA Software without
68
 * specific prior written permission from NVIDIA.  Except as expressly stated
69
 * in this notice, no other rights or licenses express or implied, are granted
70
 * by NVIDIA herein, including but not limited to any patent rights that may be
71
 * infringed by your derivative works or by other works in which the NVIDIA
72
 * Software may be incorporated. No hardware is licensed hereunder.
73
 *
74
 *
75
 *
76
 * THE NVIDIA SOFTWARE IS BEING PROVIDED ON AN "AS IS" BASIS, WITHOUT
77
 * WARRANTIES OR CONDITIONS OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING
78
 * WITHOUT LIMITATION, WARRANTIES OR CONDITIONS OF TITLE, NON-INFRINGEMENT,
79
 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, OR ITS USE AND OPERATION
80
 * EITHER ALONE OR IN COMBINATION WITH OTHER PRODUCTS.
81
 *
82
 *
83
 *
84
 * IN NO EVENT SHALL NVIDIA BE LIABLE FOR ANY SPECIAL, INDIRECT, INCIDENTAL,
85
 * EXEMPLARY, CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, LOST
86
 * PROFITS; PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
87
 * PROFITS; OR BUSINESS INTERRUPTION) OR ARISING IN ANY WAY OUT OF THE USE,
88
 * REPRODUCTION, MODIFICATION AND/OR DISTRIBUTION OF THE NVIDIA SOFTWARE,
89
 * HOWEVER CAUSED AND WHETHER UNDER THEORY OF CONTRACT, TORT (INCLUDING
90
 * NEGLIGENCE), STRICT LIABILITY OR OTHERWISE, EVEN IF NVIDIA HAS BEEN ADVISED
91
 * OF THE POSSIBILITY OF SUCH DAMAGE.
92
 *
93
 *)
94


95
//////////////////////////////////////////////////////////////////////////////
96
// HISTORY:
97
// 19-Dec-2012 - PW: Restored CPPB compatibility, 
98
//                 suppressed some unnecessary directives 
99
// 23-Aug-2010 - YarUnderoaker
100
//   - Replaced OpenGL1x to OpenGLTokens
101
// 17-Nov-09 - Da Stranger
102
//   - Improved Unix compatibility (thanks Predator) (BugtrackerID = 2893580)
103
// XX-XX-04 - LR, YHC - BCB corrections:
104
//   - suppress the $NODEFINE, $HPPEMIT and $EXTERNALSYM directives
105
// 23-Apr-04 - Nelson Chu:
106
//   - Adopted to use with GLScene (jedi.inc -> GLScene.inc)
107
// 04-Mar-04 - Alexey Barkovoy:
108
//   - Updated to Release 1.2 of Cg toolkit (published 25-Feb-2004)
109
// 21-Mar-03 - Alexey Barkovoy:
110
//   - Updated to Release 1.1 of Cg toolkit (published 04-Mar-2003)
111
// 11-Jan-03 - Alexey Barkovoy:
112
//   - Updated to Release 1.0 of Cg toolkit (published 20-Dec-2002)
113


114
unit cgGL;
115


116
{$Include GLScene.inc}
117


118
interface
119


120
uses
121
  OpenGLTokens, cg
122
  {$IFDEF MSWINDOWS} ,Windows{$ENDIF};
123


124
const
125
  {$IFDEF MSWINDOWS}
126
  CgGLlibrary = 'cgGL.dll';
127
  {$ELSE}
128
  CgGLlibrary = 'libCgGL.so';
129
  {$ENDIF}
130


131
(*****************************************************************************)
132
(*** cgGL Type Definitions                                                 ***)
133
(*****************************************************************************)
134


135
type
136
  TCGGLenum = TGLEnum;
137
  CGGLenum = TCGGLenum;
138


139
const
140
  CG_GL_MATRIX_IDENTITY          = 0;
141
  CG_GL_MATRIX_TRANSPOSE         = 1;
142
  CG_GL_MATRIX_INVERSE           = 2;
143
  CG_GL_MATRIX_INVERSE_TRANSPOSE = 3;
144


145
  CG_GL_MODELVIEW_MATRIX         = 4;
146
  CG_GL_PROJECTION_MATRIX        = 5;
147
  CG_GL_TEXTURE_MATRIX           = 6;
148
  CG_GL_MODELVIEW_PROJECTION_MATRIX = 7;
149


150
  CG_GL_VERTEX                   = 8;
151
  CG_GL_FRAGMENT                 = 9;
152


153
(******************************************************************************
154
 *** Profile Functions
155
 *****************************************************************************)
156


157
function cgGLIsProfileSupported(profile: TCGprofile): TCGbool; cdecl; external CgGLlibrary;
158


159
procedure cgGLEnableProfile(profile: TCGprofile); cdecl; external CgGLlibrary;
160
procedure cgGLDisableProfile(profile: TCGprofile); cdecl; external CgGLlibrary;
161


162
function cgGLGetLatestProfile(profile_type: TCGGLenum): TCGprofile; cdecl; external CgGLlibrary;
163
procedure cgGLSetOptimalOptions(profile: TCGprofile); cdecl; external CgGLlibrary;
164


165
(******************************************************************************
166
 *** Program Managment Functions
167
 *****************************************************************************)
168


169
procedure cgGLLoadProgram(_program: PCGprogram); cdecl; external CgGLlibrary;
170
function cgGLIsProgramLoaded(_program: PCGprogram): TCGbool; cdecl; external CgGLlibrary;
171
procedure cgGLBindProgram(_program: PCGprogram); cdecl; external CgGLlibrary;
172
procedure cgGLUnbindProgram(profile: TCGprofile); cdecl; external CgGLlibrary;
173
function cgGLGetProgramID(_program: PCGprogram): GLuint; cdecl; external CgGLlibrary;
174


175
(******************************************************************************
176
 *** Parameter Managment Functions
177
 *****************************************************************************)
178


179
procedure cgGLSetParameter1f(param: PCGparameter; x: Single); cdecl; external CgGLlibrary;
180


181
procedure cgGLSetParameter2f(param: PCGparameter; x, y: Single); cdecl; external CgGLlibrary;
182


183
procedure cgGLSetParameter3f(param: PCGparameter; x, y, z: Single); cdecl; external CgGLlibrary;
184


185
procedure cgGLSetParameter4f(param: PCGparameter; x, y, z, w: Single); cdecl; external CgGLlibrary;
186


187
procedure cgGLSetParameter1fv(param: PCGparameter; const v: PSingle); cdecl; external CgGLlibrary;
188


189
procedure cgGLSetParameter2fv(param: PCGparameter; const v: PSingle); cdecl; external CgGLlibrary;
190


191
procedure cgGLSetParameter3fv(param: PCGparameter; const v: PSingle); cdecl; external CgGLlibrary;
192


193
procedure cgGLSetParameter4fv(param: PCGparameter; const v: PSingle); cdecl; external CgGLlibrary;
194


195
procedure cgGLSetParameter1d(param: PCGparameter; x: Double); cdecl; external CgGLlibrary;
196


197
procedure cgGLSetParameter2d(param: PCGparameter; x, y: Double); cdecl; external CgGLlibrary;
198


199
procedure cgGLSetParameter3d(param: PCGparameter; x, y, z: Double); cdecl; external CgGLlibrary;
200


201
procedure cgGLSetParameter4d(param: PCGparameter; x, y, z, w: Double); cdecl; external CgGLlibrary;
202


203
procedure cgGLSetParameter1dv(param: PCGparameter; const v: PDouble); cdecl; external CgGLlibrary;
204


205
procedure cgGLSetParameter2dv(param: PCGparameter; const v: PDouble); cdecl; external CgGLlibrary;
206


207
procedure cgGLSetParameter3dv(param: PCGparameter; const v: PDouble); cdecl; external CgGLlibrary;
208


209
procedure cgGLSetParameter4dv(param: PCGparameter; const v: PDouble); cdecl; external CgGLlibrary;
210


211
procedure cgGLGetParameter1f(param: PCGparameter; v: PSingle); cdecl; external CgGLlibrary;
212


213
procedure cgGLGetParameter2f(param: PCGparameter; v: PSingle); cdecl; external CgGLlibrary;
214


215
procedure cgGLGetParameter3f(param: PCGparameter; v: PSingle); cdecl; external CgGLlibrary;
216


217
procedure cgGLGetParameter4f(param: PCGparameter; v: PSingle); cdecl; external CgGLlibrary;
218


219
procedure cgGLGetParameter1d(param: PCGparameter; v: PDouble); cdecl; external CgGLlibrary;
220


221
procedure cgGLGetParameter2d(param: PCGparameter; v: PDouble); cdecl; external CgGLlibrary;
222


223
procedure cgGLGetParameter3d(param: PCGparameter; v: PDouble); cdecl; external CgGLlibrary;
224


225
procedure cgGLGetParameter4d(param: PCGparameter; v: PDouble); cdecl; external CgGLlibrary;
226


227
procedure cgGLSetParameterArray1f(param: PCGparameter;
228
    offset, nelements: Longint; const v: PSingle); cdecl; external CgGLlibrary;
229


230
procedure cgGLSetParameterArray2f(param: PCGparameter;
231
    offset, nelements: Longint; const v: PSingle); cdecl; external CgGLlibrary;
232


233
procedure cgGLSetParameterArray3f(param: PCGparameter;
234
    offset, nelements: Longint; const v: PSingle); cdecl; external CgGLlibrary;
235


236
procedure cgGLSetParameterArray4f(param: PCGparameter;
237
    offset, nelements: Longint; const v: PSingle); cdecl; external CgGLlibrary;
238


239
procedure cgGLSetParameterArray1d(param: PCGparameter;
240
    offset, nelements: Longint; const v: PDouble); cdecl; external CgGLlibrary;
241


242
procedure cgGLSetParameterArray2d(param: PCGparameter;
243
    offset, nelements: Longint; const v: PDouble); cdecl; external CgGLlibrary;
244


245
procedure cgGLSetParameterArray3d(param: PCGparameter;
246
    offset, nelements: Longint; const v: PDouble); cdecl; external CgGLlibrary;
247


248
procedure cgGLSetParameterArray4d(param: PCGparameter;
249
    offset, nelements: Longint; const v: PDouble); cdecl; external CgGLlibrary;
250


251
procedure cgGLGetParameterArray1f(param: PCGparameter;
252
    offset, nelements: Longint; v: PSingle); cdecl; external CgGLlibrary;
253


254
procedure cgGLGetParameterArray2f(param: PCGparameter;
255
    offset, nelements: Longint; v: PSingle); cdecl; external CgGLlibrary;
256


257
procedure cgGLGetParameterArray3f(param: PCGparameter;
258
    offset, nelements: Longint; v: PSingle); cdecl; external CgGLlibrary;
259


260
procedure cgGLGetParameterArray4f(param: PCGparameter;
261
    offset, nelements: Longint; v: PSingle); cdecl; external CgGLlibrary;
262


263
procedure cgGLGetParameterArray1d(param: PCGparameter;
264
    offset, nelements: Longint; v: PDouble); cdecl; external CgGLlibrary;
265


266
procedure cgGLGetParameterArray2d(param: PCGparameter;
267
    offset, nelements: Longint; v: PDouble); cdecl; external CgGLlibrary;
268


269
procedure cgGLGetParameterArray3d(param: PCGparameter;
270
    offset, nelements: Longint; v: PDouble); cdecl; external CgGLlibrary;
271


272
procedure cgGLGetParameterArray4d(param: PCGparameter;
273
    offset, nelements: Longint; v: PDouble); cdecl; external CgGLlibrary;
274


275
procedure cgGLSetParameterPointer(param: PCGparameter; fsize: GLint;
276
    _type: TGLenum; stride: GLsizei; const _pointer: Pointer); cdecl; external CgGLlibrary;
277


278
procedure cgGLEnableClientState(param: PCGparameter); cdecl; external CgGLlibrary;
279
procedure cgGLDisableClientState(param: PCGparameter); cdecl; external CgGLlibrary;
280


281
(******************************************************************************
282
 *** Matrix Parameter Managment Functions
283
 *****************************************************************************)
284


285
procedure cgGLSetMatrixParameterdr(param: PCGparameter; const matrix: PDouble); cdecl; external CgGLlibrary;
286
procedure cgGLSetMatrixParameterfr(param: PCGparameter; const matrix: PSingle); cdecl; external CgGLlibrary;
287
procedure cgGLSetMatrixParameterdc(param: PCGparameter; const matrix: PDouble); cdecl; external CgGLlibrary;
288
procedure cgGLSetMatrixParameterfc(param: PCGparameter; const matrix: PSingle); cdecl; external CgGLlibrary;
289


290
procedure cgGLGetMatrixParameterdr(param: PCGparameter; matrix: PDouble); cdecl; external CgGLlibrary;
291
procedure cgGLGetMatrixParameterfr(param: PCGparameter; matrix: PSingle); cdecl; external CgGLlibrary;
292
procedure cgGLGetMatrixParameterdc(param: PCGparameter; matrix: PDouble); cdecl; external CgGLlibrary;
293
procedure cgGLGetMatrixParameterfc(param: PCGparameter; matrix: PSingle); cdecl; external CgGLlibrary;
294


295
procedure cgGLSetStateMatrixParameter(param: PCGparameter;
296
    matrix: TCGGLenum; transform: TCGGLenum); cdecl; external CgGLlibrary;
297


298
procedure cgGLSetMatrixParameterArrayfc(param: PCGparameter;
299
    offset, nelements: Longint; const matrices: PSingle); cdecl; external CgGLlibrary;
300


301
procedure cgGLSetMatrixParameterArrayfr(param: PCGparameter;
302
    offset, nelements: Longint; const matrices: PSingle); cdecl; external CgGLlibrary;
303


304
procedure cgGLSetMatrixParameterArraydc(param: PCGparameter;
305
    offset, nelements: Longint; const matrices: PDouble); cdecl; external CgGLlibrary;
306


307
procedure cgGLSetMatrixParameterArraydr(param: PCGparameter;
308
    offset, nelements: Longint; const matrices: PDouble); cdecl; external CgGLlibrary;
309


310
procedure cgGLGetMatrixParameterArrayfc(param: PCGparameter;
311
    offset, nelements: Longint; matrices: PSingle); cdecl; external CgGLlibrary;
312


313
procedure cgGLGetMatrixParameterArrayfr(param: PCGparameter;
314
    offset, nelements: Longint; matrices: PSingle); cdecl; external CgGLlibrary;
315


316
procedure cgGLGetMatrixParameterArraydc(param: PCGparameter;
317
    offset, nelements: Longint; matrices: PDouble); cdecl; external CgGLlibrary;
318


319
procedure cgGLGetMatrixParameterArraydr(param: PCGparameter;
320
    offset, nelements: Longint; matrices: PDouble); cdecl; external CgGLlibrary;
321


322
(******************************************************************************
323
 *** Texture Parameter Managment Functions
324
 *****************************************************************************)
325


326
procedure cgGLSetTextureParameter(param: PCGparameter; texobj: TGLuint); cdecl; external CgGLlibrary;
327
function cgGLGetTextureParameter(param: PCGparameter): TGLuint; cdecl; external CgGLlibrary;
328
procedure cgGLEnableTextureParameter(param: PCGparameter); cdecl; external CgGLlibrary;
329
procedure cgGLDisableTextureParameter(param: PCGparameter); cdecl; external CgGLlibrary;
330
function cgGLGetTextureEnum(param: PCGparameter): TGLenum; cdecl; external CgGLlibrary;
331
procedure cgGLSetManageTextureParameters(ctx: PCGcontext; flag: TCGbool); cdecl; external CgGLlibrary;
332
function cgGLGetManageTextureParameters(ctx: PCGcontext): TCGbool; cdecl; external CgGLlibrary;
333


334
implementation
335


336
end.
337

Использование cookies

Мы используем файлы cookie в соответствии с Политикой конфиденциальности и Политикой использования cookies.

Нажимая кнопку «Принимаю», Вы даете АО «СберТех» согласие на обработку Ваших персональных данных в целях совершенствования нашего веб-сайта и Сервиса GitVerse, а также повышения удобства их использования.

Запретить использование cookies Вы можете самостоятельно в настройках Вашего браузера.