89 lines
2.3 KiB
C
89 lines
2.3 KiB
C
|
/***************************************************************************
|
||
|
|
|
||
|
|
GLpixelOperations.c
|
||
|
|
|
||
|
|
The Gambas openGL component
|
||
|
|
|
||
|
|
(c) 2005-2007 Laurent Carlier <lordheavy@users.sourceforge.net>
|
||
|
|
Benoît Minisini <gambas@users.sourceforge.net>
|
||
|
|
|
||
|
|
This program is free software; you can redistribute it and/or modify
|
||
|
|
it under the terms of the GNU General Public License as published by
|
||
|
|
the Free Software Foundation; either version 1, or (at your option)
|
||
|
|
any later version.
|
||
|
|
|
||
|
|
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. See the
|
||
|
|
GNU General Public License for more details.
|
||
|
|
|
||
|
|
You should have received a copy of the GNU General Public License
|
||
|
|
along with this program; if not, write to the Free Software
|
||
|
|
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
||
|
|
|
||
|
|
***************************************************************************/
|
||
|
|
|
||
|
|
#define __GLPIXELOPERATIONS_C
|
||
|
|
|
||
|
|
#include "gambas.h"
|
||
|
|
#include "gb_common.h"
|
||
|
|
#include "main.h"
|
||
|
|
|
||
|
|
#include <GL/gl.h>
|
||
|
|
|
||
|
|
BEGIN_METHOD(GLCOPYPIXELS, GB_INTEGER x; GB_INTEGER y; GB_INTEGER width; GB_INTEGER height; GB_INTEGER type)
|
||
|
|
|
||
|
|
glCopyPixels(VARG(x), VARG(y), VARG(width), VARG(height), VARG(type));
|
||
|
|
|
||
|
|
END_METHOD
|
||
|
|
|
||
|
|
BEGIN_METHOD(GLPIXELSTOREF, GB_INTEGER pname; GB_FLOAT param)
|
||
|
|
|
||
|
|
glPixelStoref(VARG(pname), VARG(param));
|
||
|
|
|
||
|
|
END_METHOD
|
||
|
|
|
||
|
|
BEGIN_METHOD(GLPIXELSTOREI, GB_INTEGER pname; GB_INTEGER param)
|
||
|
|
|
||
|
|
glPixelStorei(VARG(pname), VARG(param));
|
||
|
|
|
||
|
|
END_METHOD
|
||
|
|
|
||
|
|
BEGIN_METHOD(GLPIXELTRANSFERF, GB_INTEGER pname; GB_FLOAT param)
|
||
|
|
|
||
|
|
glPixelTransferf(VARG(pname), VARG(param));
|
||
|
|
|
||
|
|
END_METHOD
|
||
|
|
|
||
|
|
BEGIN_METHOD(GLPIXELTRANSFERI, GB_INTEGER pname; GB_INTEGER param)
|
||
|
|
|
||
|
|
glPixelTransferi(VARG(pname), VARG(param));
|
||
|
|
|
||
|
|
END_METHOD
|
||
|
|
|
||
|
|
BEGIN_METHOD(GLREADBUFFER, GB_INTEGER mode)
|
||
|
|
|
||
|
|
glReadBuffer(VARG(mode));
|
||
|
|
|
||
|
|
END_METHOD
|
||
|
|
|
||
|
|
BEGIN_METHOD(GLDRAWPIXELS, GB_OBJECT Image)
|
||
|
|
|
||
|
|
GB_IMAGE *image = VARG(Image);
|
||
|
|
GB_IMAGE_INFO info;
|
||
|
|
GLint format = 0;
|
||
|
|
|
||
|
|
GB.Image.Info(image, &info);
|
||
|
|
|
||
|
|
if ((info.format == GB_IMAGE_RGBA) || (info.format == GB_IMAGE_RGBX))
|
||
|
|
format = GL_RGBA;
|
||
|
|
|
||
|
|
// is it good ?
|
||
|
|
if ((info.format == GB_IMAGE_BGRA) || (info.format == GB_IMAGE_BGRX))
|
||
|
|
format = GL_BGRA;
|
||
|
|
|
||
|
|
glDrawPixels(info.width, info.height, format, GL_UNSIGNED_BYTE, info.data);
|
||
|
|
|
||
|
|
END_METHOD
|
||
|
|
|