paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 22:09:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

Few more TinyGL specific GLUT calls added.

Browse Source 
git-svn-id: trunk@1814 -
This commit is contained in:
Károly Balogh 2005-11-24 06:35:09 +00:00
parent bd24678ae5
commit f280832cc6
2 changed files with 36 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
packages/extra/opengl/tinygl.inc
View File

@ -1,22 +1,3 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2005 by Karoly Balogh
TinyGL/OpenGL function declarations for MorphOS/PowerPC
Thanks to Michal 'kiero' Wozniak and Mark 'bigfoot' Olsen
for their help.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program 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.
**********************************************************************}
{ ****************************************************************************************************** }
{ ** TinyGL syscalls ** }
{ ****************************************************************************************************** }
@ -252,15 +233,27 @@ syscall sysvbase TinyGLBase 742;
procedure _GLUTKeyboardFunc(gcl: pointer; f: TGlut1Char2IntCallback);
syscall sysvbase TinyGLBase 748;
procedure _GLUTMouseFunc(gcl: pointer; f: TGlut4IntCallback);
syscall sysvbase TinyGLBase 760;
procedure _GLUTMotionFunc(gcl: pointer; f: TGlut2IntCallback);
syscall sysvbase TinyGLBase 766;
function _GLUTGet(gcl: pointer; t: GLenum): LongInt;
syscall sysvbase TinyGLBase 802;
procedure _GLUTInitDisplayMode(gcl: pointer; mode: Word);
syscall sysvbase TinyGLBase 808;
procedure _GLUTSpecialFunc(gcl: pointer; f: TGlut3IntCallback);
syscall sysvbase TinyGLBase 814;
procedure _GLUTTimerFunc(gcl: pointer; millis: Word; f: TGlut1IntCallback; value: LongInt);
syscall sysvbase TinyGLBase 820;
procedure _GLUTPassiveMotionFunc(gcl: pointer; f: TGlut2IntCallback);
syscall sysvbase TinyGLBase 832;
// MorphOS specific GLUT call, returns Intuition window handle
function _GLUTGetWindowHandle(gcl: pointer): Pointer;
syscall sysvbase TinyGLBase 856;
@ -782,6 +775,26 @@ begin
_GLUTKeyboardFunc(tglContext, f);
end;
procedure GLUTMouseFunc(f: TGlut4IntCallback); inline;
begin
_GLUTMouseFunc(tglContext, f);
end;
procedure GLUTSpecialFunc(f: TGlut3IntCallback); inline;
begin
_GLUTSpecialFunc(tglContext, f);
end;
procedure GLUTMotionFunc(f: TGlut2IntCallback); inline;
begin
_GLUTMotionFunc(tglContext, f);
end;
procedure GLUTPassiveMotionFunc(f: TGlut2IntCallback); inline;
begin
_GLUTPassiveMotionFunc(tglContext, f);
end;
function GLUTGetWindowHandle: pointer; inline;
begin
GLUTGetWindowHandle:=_GLUTGetWindowHandle(tglContext);

23
packages/extra/opengl/tinyglh.inc
View File

@ -1,21 +1,3 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2005 by Karoly Balogh
TinyGL/OpenGL function headers for MorphOS/PowerPC
Thanks to Michal 'kiero' Wozniak and Mark 'bigfoot' Olsen
for their help.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program 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.
**********************************************************************}
{ ****************************************************************************************************** }
{ ** GL functions ** }
@ -148,8 +130,11 @@ procedure GLUTTimerFunc(millis: Word; f: TGlut1IntCallback; value: LongInt); inl
function GLUTGetWindowHandle: pointer; inline; // MorphOS specific
procedure GLUTVisibilityFunc(f: TGlut1IntCallback); inline;
procedure GLUTKeyboardFunc(f: TGlut1Char2IntCallback); inline;
procedure GLUTMouseFunc(f: TGlut4IntCallback); inline;
procedure GLUTSpecialFunc(f: TGlut3IntCallback); inline;
procedure GLUTReshapeFunc(f: TGlut2IntCallback); inline;
procedure GLUTMotionFunc(f: TGlut2IntCallback); inline;
procedure GLUTPassiveMotionFunc(f: TGlut2IntCallback); inline;
procedure GLUTSwapBuffers; inline;
procedure GLUTPostRedisplay; inline;