mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 01:48:00 +02:00
* First version
This commit is contained in:
sg
parent
d743f93616
commit
a76f6dc812
58
packages/opengl/README
Normal file
58
packages/opengl/README
Normal file
@ -0,0 +1,58 @@
|
||||
Free Pascal GL* (GL, GLU, GLUT, GLX) Units
|
||||
(c) 1999-2000 Sebastian Guenther, sg@freepascal.org
|
||||
|
||||
|
||||
subdirectory "build"
|
||||
--------------------
|
||||
This directory contains tools which create the sources of the real GL* units
|
||||
based on some template files. It contains its own README file, look there for
|
||||
further informations.
|
||||
|
||||
|
||||
subdirectory "linux"
|
||||
--------------------
|
||||
Contains the GL* units for Linux; currently you can use all GL, GLU and GLX
|
||||
functions as well as most GLUT functions. Automatic loading of GL extensions
|
||||
is not supported yet, but is planned for the future.
|
||||
Under Linux, the GL* units try to locate the underlying libraries at run-time;
|
||||
they search for the libraries in the following order:
|
||||
|
||||
GL: (includes GLX)
|
||||
1. libGL.so
|
||||
2. libGL.so.1
|
||||
3. libMesaGL.so.3
|
||||
|
||||
GLU:
|
||||
1. libGLU.so
|
||||
2. libGLU.so.1
|
||||
3. libMesaGLU.so.3
|
||||
|
||||
GLUT:
|
||||
1. libglut.so
|
||||
2. libglut.so.3
|
||||
|
||||
This should work on all more recent Linux installations.
|
||||
|
||||
|
||||
The GL unit has a variable called "GLDumpUnresolvedFunctions", and the GLUT
|
||||
unit one called "GLUTDumpUnresolvedFunctions". Set them to True in your
|
||||
applications if you want to get all function names dumped to the console
|
||||
which couldn't be resolved, i.e. which are not available in the loaded
|
||||
libraries.
|
||||
|
||||
|
||||
=== gtkglarea: ===
|
||||
|
||||
Additionally, there is an adaption for the gtkglarea (GTK GL area widget)
|
||||
available; as gtkglarea uses the XLib it is only available for Linux here.
|
||||
|
||||
|
||||
subdirectory "examples"
|
||||
-----------------------
|
||||
Only contains a test program called "glutdemo" at the moment, which
|
||||
demonstrates the use of the GL and GLUT units.
|
||||
|
||||
|
||||
|
||||
Have fun,
|
||||
Sebastian
|
||||
185
packages/opengl/linux/gtkglarea.pp
Normal file
185
packages/opengl/linux/gtkglarea.pp
Normal file
@ -0,0 +1,185 @@
|
||||
{
|
||||
$Id$
|
||||
|
||||
Translation of the gtkglarea 4 headers for Free Pascal
|
||||
Copyright (C) 2000 Sebastian Guenther
|
||||
|
||||
Copyright notice of gtkglarea:
|
||||
|
||||
* Copyright (C) 1997-1998 Janne Löf <jlof@mail.student.oulu.fi>
|
||||
*
|
||||
* This library is free software; you can redistribute it and/or
|
||||
* modify it under the terms of the GNU Library General Public
|
||||
* License as published by the Free Software Foundation; either
|
||||
* version 2 of the License, or (at your option) any later version.
|
||||
*
|
||||
* This library is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||||
* Library General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU Library General Public
|
||||
* License along with this library; if not, write to the Free
|
||||
* Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
||||
}
|
||||
|
||||
unit gtkglarea;
|
||||
|
||||
{$MODE objfpc}
|
||||
{$PACKRECORDS C}
|
||||
{$LINKLIB GL}
|
||||
|
||||
interface
|
||||
|
||||
uses GDK, GTK;
|
||||
|
||||
|
||||
const
|
||||
|
||||
libgtkgl = 'gtkgl';
|
||||
|
||||
|
||||
|
||||
|
||||
// ===================================================================
|
||||
// gdkgl
|
||||
// ===================================================================
|
||||
|
||||
{
|
||||
These definitions are duplicated from GL/glx.h that comes with Mesa.
|
||||
I don't want every program to include GL/glx.h, that might become
|
||||
problem if GtkGLArea is ever ported to non X environments like
|
||||
(horror!) Windows.
|
||||
}
|
||||
|
||||
// enum _GDK_GL_CONFIGS
|
||||
GDK_GL_NONE = 0;
|
||||
GDK_GL_USE_GL = 1;
|
||||
GDK_GL_BUFFER_SIZE = 2;
|
||||
GDK_GL_LEVEL = 3;
|
||||
GDK_GL_RGBA = 4;
|
||||
GDK_GL_DOUBLEBUFFER = 5;
|
||||
GDK_GL_STEREO = 6;
|
||||
GDK_GL_AUX_BUFFERS = 7;
|
||||
GDK_GL_RED_SIZE = 8;
|
||||
GDK_GL_GREEN_SIZE = 9;
|
||||
GDK_GL_BLUE_SIZE = 10;
|
||||
GDK_GL_ALPHA_SIZE = 11;
|
||||
GDK_GL_DEPTH_SIZE = 12;
|
||||
GDK_GL_STENCIL_SIZE = 13;
|
||||
GDK_GL_ACCUM_RED_SIZE = 14;
|
||||
GDK_GL_ACCUM_GREEN_SIZE = 15;
|
||||
GDK_GL_ACCUM_BLUE_SIZE = 16;
|
||||
GDK_GL_ACCUM_ALPHA_SIZE = 17;
|
||||
|
||||
// GLX_EXT_visual_info extension
|
||||
GDK_GL_X_VISUAL_TYPE_EXT = $22;
|
||||
GDK_GL_TRANSPARENT_TYPE_EXT = $23;
|
||||
GDK_GL_TRANSPARENT_INDEX_VALUE_EXT = $24;
|
||||
GDK_GL_TRANSPARENT_RED_VALUE_EXT = $25;
|
||||
GDK_GL_TRANSPARENT_GREEN_VALUE_EXT = $26;
|
||||
GDK_GL_TRANSPARENT_BLUE_VALUE_EXT = $27;
|
||||
GDK_GL_TRANSPARENT_ALPHA_VALUE_EXT = $28;
|
||||
|
||||
|
||||
type
|
||||
|
||||
TGdkGLContext = record end;
|
||||
PGdkGLContext = ^TGdkGLContext;
|
||||
|
||||
|
||||
function gdk_gl_query: Integer; cdecl; external libgtkgl;
|
||||
function gdk_gl_choose_visual(attrList: PInteger): PGdkVisual; cdecl; external libgtkgl;
|
||||
function gdk_gl_get_config(visual: PGdkVisual; attrib: Integer): Integer; cdecl; external libgtkgl;
|
||||
function gdk_gl_context_new(visual: PGdkVisual): PGdkGLContext; cdecl; external libgtkgl;
|
||||
function gdk_gl_context_share_new(visual: PGdkVisual; sharelist: PGdkGLContext; direct: Integer): PGdkGLContext; cdecl; external libgtkgl;
|
||||
function gdk_gl_context_ref(context: PGdkGLContext): PGdkGLContext; cdecl; external libgtkgl;
|
||||
procedure gdk_gl_context_unref(context: PGdkGLContext); cdecl; external libgtkgl;
|
||||
function gdk_gl_make_current(drawable: PGdkDrawable; context: PGdkGLContext): Integer; cdecl; external libgtkgl;
|
||||
procedure gdk_gl_swap_buffers(drawable: PGdkDrawable); cdecl; external libgtkgl;
|
||||
procedure gdk_gl_wait_gdk; cdecl; external libgtkgl;
|
||||
procedure gdk_gl_wait_gl; cdecl; external libgtkgl;
|
||||
|
||||
|
||||
// glpixmap stuff
|
||||
|
||||
type
|
||||
|
||||
TGdkGLPixmap = record end;
|
||||
PGdkGLPixmap = ^TGdkGLPixmap;
|
||||
|
||||
function gdk_gl_pixmap_new(visual: PGdkVisual; pixmap: PGdkPixmap): PGdkGLPixmap; cdecl; external libgtkgl;
|
||||
function gdk_gl_pixmap_ref(glpixmap: PGdkGLPixmap): PGdkGLPixmap; cdecl; external libgtkgl;
|
||||
procedure gdk_gl_pixmap_unref(glpixmap: PGdkGLPixmap); cdecl; external libgtkgl;
|
||||
function gdk_gl_pixmap_make_current(glpixmap: PGdkGLPixmap; context: PGdkGLContext): Integer; cdecl; external libgtkgl;
|
||||
|
||||
|
||||
// fonts
|
||||
procedure gdk_gl_use_gdk_font(font: PGdkFont; first, count, list_base: Integer); cdecl; external libgtkgl;
|
||||
|
||||
|
||||
|
||||
// ===================================================================
|
||||
// gtkglarea
|
||||
// ===================================================================
|
||||
|
||||
type
|
||||
|
||||
PGtkGLArea = ^TGtkGLArea;
|
||||
|
||||
TGtkGLArea = record
|
||||
darea: TGtkDrawingArea;
|
||||
glcontext: PGdkGLContext;
|
||||
end;
|
||||
|
||||
|
||||
PGtkGLAreaClass = ^TGtkGLAreaClass;
|
||||
TGtkGLAreaClass = record
|
||||
parent_class: TGtkDrawingAreaClass;
|
||||
end;
|
||||
|
||||
|
||||
function GTK_TYPE_GL_AREA: TGtkType; cdecl; external libgtkgl name 'gtk_gl_area_get_type';
|
||||
function GTK_IS_GL_AREA(obj: Pointer): Boolean;
|
||||
function GTK_IS_GL_AREA_CLASS(klass: Pointer): Boolean;
|
||||
|
||||
function gtk_gl_area_get_type: TGtkType; cdecl; external libgtkgl;
|
||||
function gtk_gl_area_new(attrList: PInteger): PGtkWidget; cdecl; external libgtkgl;
|
||||
function gtk_gl_area_share_new(attrList: PInteger; share: PGtkGLArea): PGtkWidget; cdecl; external libgtkgl;
|
||||
function gtk_gl_area_new_vargs(share: PGtkGLArea; args: array of const): PGtkWidget; cdecl; external libgtkgl;
|
||||
|
||||
function gtk_gl_area_make_current(glarea: PGtkGLArea): Integer; cdecl; external libgtkgl;
|
||||
// deprecated, use gtk_gl_area_make_current:
|
||||
function gtk_gl_area_begingl(glarea: PGtkGLArea): Integer; cdecl; external libgtkgl;
|
||||
// deprecated:
|
||||
procedure gtk_gl_area_endgl(glarea: PGtkGLArea); cdecl; external libgtkgl;
|
||||
procedure gtk_gl_area_swapbuffers(glarea: PGtkGLArea); cdecl; external libgtkgl;
|
||||
// deprecated, use gtk_drawing_area_size():
|
||||
procedure gtk_gl_area_size(glarea: PGtkGLArea; width, height: Integer); cdecl; external libgtkgl;
|
||||
|
||||
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
function GTK_IS_GL_AREA(obj: Pointer): Boolean;
|
||||
begin
|
||||
Result := Assigned(obj) and GTK_IS_GL_AREA_CLASS(PGtkTypeObject(obj)^.klass);
|
||||
end;
|
||||
|
||||
function GTK_IS_GL_AREA_CLASS(klass: Pointer): Boolean;
|
||||
begin
|
||||
Result := Assigned(klass) and (PGtkTypeClass(klass)^.thetype = GTK_TYPE_GL_AREA);
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.1 2000-03-16 17:42:02 sg
|
||||
* First version
|
||||
|
||||
}
|
||||
Loading…
Reference in New Issue
Block a user