mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 05:06:03 +02:00
* replaced some parameter definitions based on their value in the
FreeB-licensed SGI version
* deleted constants that belong in glext.pp (and which are already
defined there)
* replaced "This is UNPUBLISHED PROPRIETARY SOURCE CODE of Silicon
Graphics, Inc." license header with FreeB license; see
http://bugs.freepascal.org/view.php?id=20200 for details)
-> fixes http://bugs.freepascal.org/view.php?id=20200
git-svn-id: trunk@19037 -
This commit is contained in:
Jonas Maebe
parent
9ce34c63c9
commit
fcc56d271a
@ -1,45 +1,37 @@
|
||||
{
|
||||
|
||||
Adaption of the delphi3d.net OpenGL units to FreePascal
|
||||
Sebastian Guenther (sg@freepascal.org) in 2002
|
||||
These units are free to use
|
||||
}
|
||||
|
||||
(*++ BUILD Version: 0004 // Increment this if a change has global effects
|
||||
|
||||
Copyright (c) 1985-96, Microsoft Corporation
|
||||
|
||||
Module Name:
|
||||
|
||||
gl.h
|
||||
|
||||
Abstract:
|
||||
|
||||
Procedure declarations, constant definitions and macros for the OpenGL
|
||||
component.
|
||||
|
||||
--*)
|
||||
|
||||
{*
|
||||
** Copyright 1996 Silicon Graphics, Inc.
|
||||
** All Rights Reserved.
|
||||
(*
|
||||
** License Applicability. Except to the extent portions of this file are
|
||||
** made subject to an alternative license as permitted in the SGI Free
|
||||
** Software License B, Version 1.1 (the "License"), the contents of this
|
||||
** file are subject only to the provisions of the License. You may not use
|
||||
** this file except in compliance with the License. You may obtain a copy
|
||||
** of the License at Silicon Graphics, Inc., attn: Legal Services, 1600
|
||||
** Amphitheatre Parkway, Mountain View, CA 94043-1351, or at:
|
||||
**
|
||||
** http://oss.sgi.com/projects/FreeB
|
||||
**
|
||||
** Note that, as provided in the License, the Software is distributed on an
|
||||
** "AS IS" basis, with ALL EXPRESS AND IMPLIED WARRANTIES AND CONDITIONS
|
||||
** DISCLAIMED, INCLUDING, WITHOUT LIMITATION, ANY IMPLIED WARRANTIES AND
|
||||
** CONDITIONS OF MERCHANTABILITY, SATISFACTORY QUALITY, FITNESS FOR A
|
||||
** PARTICULAR PURPOSE, AND NON-INFRINGEMENT.
|
||||
**
|
||||
** Original Code. The Original Code is: OpenGL Sample Implementation,
|
||||
** Version 1.2.1, released January 26, 2000, developed by Silicon Graphics,
|
||||
** Inc. The Original Code is Copyright (c) 1991-2000 Silicon Graphics, Inc.
|
||||
** Copyright in any portions created by third parties is as indicated
|
||||
** elsewhere herein. All Rights Reserved.
|
||||
**
|
||||
** Additional Notice Provisions: This software was created using the
|
||||
** OpenGL(R) version 1.2.1 Sample Implementation published by SGI, but has
|
||||
** not been independently verified as being compliant with the OpenGL(R)
|
||||
** version 1.2.1 Specification.
|
||||
**
|
||||
** This is UNPUBLISHED PROPRIETARY SOURCE CODE of Silicon Graphics, Inc.;
|
||||
** the contents of this file may not be disclosed to third parties, copied or
|
||||
** duplicated in any form, in whole or in part, without the prior written
|
||||
** permission of Silicon Graphics, Inc.
|
||||
**
|
||||
** RESTRICTED RIGHTS LEGEND:
|
||||
** Use, duplication or disclosure by the Government is subject to restrictions
|
||||
** as set forth in subdivision (c)(1)(ii) of the Rights in Technical Data
|
||||
** and Computer Software clause at DFARS 252.227-7013, and/or in similar or
|
||||
** successor clauses in the FAR, DOD or NASA FAR Supplement. Unpublished -
|
||||
** rights reserved under the Copyright Laws of the United States.
|
||||
*}
|
||||
** (this unit actually only contains the 1.1 parts of the specification,
|
||||
** the parts from the subsequence versions are in glext.pp)
|
||||
*)
|
||||
|
||||
{******************************************************************************}
|
||||
{ Converted to Delphi by Tom Nuydens (tom@delphi3d.net) }
|
||||
{ For the latest updates, visit Delphi3D: http://www.delphi3d.net }
|
||||
{******************************************************************************}
|
||||
|
||||
{$MODE Delphi}
|
||||
@ -1117,70 +1109,6 @@ const
|
||||
GL_T2F_C4F_N3F_V3F = $2A2C;
|
||||
GL_T4F_C4F_N3F_V4F = $2A2D;
|
||||
|
||||
// Extensions
|
||||
GL_EXT_vertex_array = 1;
|
||||
GL_WIN_swap_hint = 1;
|
||||
GL_EXT_bgra = 1;
|
||||
GL_EXT_paletted_texture = 1;
|
||||
|
||||
// EXT_vertex_array
|
||||
GL_VERTEX_ARRAY_EXT = $8074;
|
||||
GL_NORMAL_ARRAY_EXT = $8075;
|
||||
GL_COLOR_ARRAY_EXT = $8076;
|
||||
GL_INDEX_ARRAY_EXT = $8077;
|
||||
GL_TEXTURE_COORD_ARRAY_EXT = $8078;
|
||||
GL_EDGE_FLAG_ARRAY_EXT = $8079;
|
||||
GL_VERTEX_ARRAY_SIZE_EXT = $807A;
|
||||
GL_VERTEX_ARRAY_TYPE_EXT = $807B;
|
||||
GL_VERTEX_ARRAY_STRIDE_EXT = $807C;
|
||||
GL_VERTEX_ARRAY_COUNT_EXT = $807D;
|
||||
GL_NORMAL_ARRAY_TYPE_EXT = $807E;
|
||||
GL_NORMAL_ARRAY_STRIDE_EXT = $807F;
|
||||
GL_NORMAL_ARRAY_COUNT_EXT = $8080;
|
||||
GL_COLOR_ARRAY_SIZE_EXT = $8081;
|
||||
GL_COLOR_ARRAY_TYPE_EXT = $8082;
|
||||
GL_COLOR_ARRAY_STRIDE_EXT = $8083;
|
||||
GL_COLOR_ARRAY_COUNT_EXT = $8084;
|
||||
GL_INDEX_ARRAY_TYPE_EXT = $8085;
|
||||
GL_INDEX_ARRAY_STRIDE_EXT = $8086;
|
||||
GL_INDEX_ARRAY_COUNT_EXT = $8087;
|
||||
GL_TEXTURE_COORD_ARRAY_SIZE_EXT = $8088;
|
||||
GL_TEXTURE_COORD_ARRAY_TYPE_EXT = $8089;
|
||||
GL_TEXTURE_COORD_ARRAY_STRIDE_EXT = $808A;
|
||||
GL_TEXTURE_COORD_ARRAY_COUNT_EXT = $808B;
|
||||
GL_EDGE_FLAG_ARRAY_STRIDE_EXT = $808C;
|
||||
GL_EDGE_FLAG_ARRAY_COUNT_EXT = $808D;
|
||||
GL_VERTEX_ARRAY_POINTER_EXT = $808E;
|
||||
GL_NORMAL_ARRAY_POINTER_EXT = $808F;
|
||||
GL_COLOR_ARRAY_POINTER_EXT = $8090;
|
||||
GL_INDEX_ARRAY_POINTER_EXT = $8091;
|
||||
GL_TEXTURE_COORD_ARRAY_POINTER_EXT = $8092;
|
||||
GL_EDGE_FLAG_ARRAY_POINTER_EXT = $8093;
|
||||
GL_DOUBLE_EXT = GL_DOUBLE;
|
||||
|
||||
// EXT_bgra
|
||||
GL_BGR_EXT = $80E0;
|
||||
GL_BGRA_EXT = $80E1;
|
||||
|
||||
// EXT_paletted_texture
|
||||
|
||||
// These must match the GL_COLOR_TABLE_*_SGI enumerants
|
||||
GL_COLOR_TABLE_FORMAT_EXT = $80D8;
|
||||
GL_COLOR_TABLE_WIDTH_EXT = $80D9;
|
||||
GL_COLOR_TABLE_RED_SIZE_EXT = $80DA;
|
||||
GL_COLOR_TABLE_GREEN_SIZE_EXT = $80DB;
|
||||
GL_COLOR_TABLE_BLUE_SIZE_EXT = $80DC;
|
||||
GL_COLOR_TABLE_ALPHA_SIZE_EXT = $80DD;
|
||||
GL_COLOR_TABLE_LUMINANCE_SIZE_EXT = $80DE;
|
||||
GL_COLOR_TABLE_INTENSITY_SIZE_EXT = $80DF;
|
||||
|
||||
GL_COLOR_INDEX1_EXT = $80E2;
|
||||
GL_COLOR_INDEX2_EXT = $80E3;
|
||||
GL_COLOR_INDEX4_EXT = $80E4;
|
||||
GL_COLOR_INDEX8_EXT = $80E5;
|
||||
GL_COLOR_INDEX12_EXT = $80E6;
|
||||
GL_COLOR_INDEX16_EXT = $80E7;
|
||||
|
||||
// For compatibility with OpenGL v1.0
|
||||
GL_LOGIC_OP = GL_INDEX_LOGIC_OP;
|
||||
GL_TEXTURE_COMPONENTS = GL_TEXTURE_INTERNAL_FORMAT;
|
||||
@ -1386,9 +1314,9 @@ var
|
||||
glNormalPointer: procedure(atype: GLenum; stride: GLsizei; const pointer: Pointer); extdecl;
|
||||
glOrtho: procedure(left, right, bottom, top, zNear, zFar: GLdouble); extdecl;
|
||||
glPassThrough: procedure(token: GLfloat); extdecl;
|
||||
glPixelMapfv: procedure(map: GLenum; mapsize: GLsizei; const values: PGLfloat); extdecl;
|
||||
glPixelMapuiv: procedure(map: GLenum; mapsize: GLsizei; const values: PGLuint); extdecl;
|
||||
glPixelMapusv: procedure(map: GLenum; mapsize: GLsizei; const values: PGLushort); extdecl;
|
||||
glPixelMapfv: procedure(map: GLenum; mapsize: GLint; const values: PGLfloat); extdecl;
|
||||
glPixelMapuiv: procedure(map: GLenum; mapsize: GLint; const values: PGLuint); extdecl;
|
||||
glPixelMapusv: procedure(map: GLenum; mapsize: GLint; const values: PGLushort); extdecl;
|
||||
glPixelStoref: procedure(pname: GLenum; param: GLfloat); extdecl;
|
||||
glPixelStorei: procedure(pname: GLenum; param: GLint); extdecl;
|
||||
glPixelTransferf: procedure(pname: GLenum; param: GLfloat); extdecl;
|
||||
@ -1495,8 +1423,8 @@ var
|
||||
glTexGenfv: procedure(coord: GLenum; pname: GLenum; const params: PGLfloat); extdecl;
|
||||
glTexGeni: procedure(coord: GLenum; pname: GLenum; param: GLint); extdecl;
|
||||
glTexGeniv: procedure(coord: GLenum; pname: GLenum; const params: PGLint); extdecl;
|
||||
glTexImage1D: procedure(target: GLenum; level, internalformat: GLint; width: GLsizei; border: GLint; format, atype: GLenum; const pixels: Pointer); extdecl;
|
||||
glTexImage2D: procedure(target: GLenum; level, internalformat: GLint; width, height: GLsizei; border: GLint; format, atype: GLenum; const pixels: Pointer); extdecl;
|
||||
glTexImage1D: procedure(target: GLenum; level: GLInt; internalformat: GLEnum; width: GLsizei; border: GLint; format, atype: GLenum; const pixels: Pointer); extdecl;
|
||||
glTexImage2D: procedure(target: GLenum; level: GLInt; internalformat: GLEnum; width, height: GLsizei; border: GLint; format, atype: GLenum; const pixels: Pointer); extdecl;
|
||||
glTexParameterf: procedure(target: GLenum; pname: GLenum; param: GLfloat); extdecl;
|
||||
glTexParameterfv: procedure(target: GLenum; pname: GLenum; const params: PGLfloat); extdecl;
|
||||
glTexParameteri: procedure(target: GLenum; pname: GLenum; param: GLint); extdecl;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user