439 lines
9.6 KiB
C
439 lines
9.6 KiB
C
|
/***************************************************************************
|
||
|
|
|
||
|
|
GLinfo.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 __GLINFO_C
|
||
|
|
|
||
|
|
#include "main.h"
|
||
|
|
|
||
|
|
#include <GL/gl.h>
|
||
|
|
|
||
|
|
// max size of an array
|
||
|
|
#define MAXSIZE 16
|
||
|
|
|
||
|
|
// Arrays returned with glGet calls
|
||
|
|
static GLboolean *boolArray;
|
||
|
|
static int boolSize = 0;
|
||
|
|
static GLdouble *floatArray;
|
||
|
|
static int floatSize = 0;
|
||
|
|
static GLint *intArray;
|
||
|
|
static int intSize = 0;
|
||
|
|
|
||
|
|
static void resizeBool(int size)
|
||
|
|
{
|
||
|
|
if (size < boolSize)
|
||
|
|
return;
|
||
|
|
|
||
|
|
if (!boolSize)
|
||
|
|
GB.Alloc(POINTER(&boolArray), sizeof(GLboolean)*size);
|
||
|
|
else
|
||
|
|
GB.Realloc(POINTER(&boolArray), sizeof(GLboolean)*size);
|
||
|
|
|
||
|
|
boolSize = size;
|
||
|
|
}
|
||
|
|
|
||
|
|
static void resizeFloat(int size)
|
||
|
|
{
|
||
|
|
if (size < floatSize)
|
||
|
|
return;
|
||
|
|
|
||
|
|
if (!floatSize)
|
||
|
|
GB.Alloc(POINTER(&floatArray), sizeof(GLdouble)*size);
|
||
|
|
else
|
||
|
|
GB.Realloc(POINTER(&floatArray), sizeof(GLdouble)*size);
|
||
|
|
|
||
|
|
floatSize = size;
|
||
|
|
}
|
||
|
|
|
||
|
|
static void resizeInt(int size)
|
||
|
|
{
|
||
|
|
if (size < intSize)
|
||
|
|
return;
|
||
|
|
|
||
|
|
if (!intSize)
|
||
|
|
GB.Alloc(POINTER(&intArray), sizeof(GLint)*size);
|
||
|
|
else
|
||
|
|
GB.Realloc(POINTER(&intArray), sizeof(GLint)*size);
|
||
|
|
|
||
|
|
intSize = size;
|
||
|
|
}
|
||
|
|
|
||
|
|
static int checkSize(GLenum value)
|
||
|
|
{
|
||
|
|
int retSize = 0;
|
||
|
|
|
||
|
|
switch(value)
|
||
|
|
{
|
||
|
|
case GL_ACCUM_ALPHA_BITS:
|
||
|
|
case GL_ACCUM_BLUE_BITS:
|
||
|
|
case GL_ACCUM_GREEN_BITS:
|
||
|
|
case GL_ACCUM_RED_BITS:
|
||
|
|
case GL_ALPHA_BIAS:
|
||
|
|
case GL_ALPHA_TEST:
|
||
|
|
case GL_ALPHA_BITS:
|
||
|
|
case GL_ALPHA_SCALE:
|
||
|
|
case GL_ALPHA_TEST_FUNC:
|
||
|
|
case GL_ALPHA_TEST_REF:
|
||
|
|
case GL_ATTRIB_STACK_DEPTH:
|
||
|
|
case GL_AUTO_NORMAL:
|
||
|
|
case GL_AUX_BUFFERS:
|
||
|
|
case GL_BLEND:
|
||
|
|
case GL_BLEND_DST:
|
||
|
|
case GL_BLEND_SRC:
|
||
|
|
case GL_BLUE_BIAS:
|
||
|
|
case GL_BLUE_BITS:
|
||
|
|
case GL_BLUE_SCALE:
|
||
|
|
case GL_CLIP_PLANE0:
|
||
|
|
case GL_CLIP_PLANE1:
|
||
|
|
case GL_CLIP_PLANE2:
|
||
|
|
case GL_CLIP_PLANE3:
|
||
|
|
case GL_CLIP_PLANE4:
|
||
|
|
case GL_CLIP_PLANE5:
|
||
|
|
case GL_COLOR_MATERIAL:
|
||
|
|
case GL_COLOR_MATERIAL_FACE:
|
||
|
|
case GL_COLOR_MATERIAL_PARAMETER:
|
||
|
|
case GL_CULL_FACE:
|
||
|
|
case GL_CULL_FACE_MODE:
|
||
|
|
case GL_CURRENT_INDEX:
|
||
|
|
case GL_CURRENT_RASTER_DISTANCE:
|
||
|
|
case GL_CURRENT_RASTER_INDEX:
|
||
|
|
case GL_CURRENT_RASTER_POSITION_VALID:
|
||
|
|
case GL_DEPTH_BIAS:
|
||
|
|
case GL_DEPTH_BITS:
|
||
|
|
case GL_DEPTH_CLEAR_VALUE:
|
||
|
|
case GL_DEPTH_FUNC:
|
||
|
|
case GL_DEPTH_SCALE:
|
||
|
|
case GL_DEPTH_TEST:
|
||
|
|
case GL_DEPTH_WRITEMASK:
|
||
|
|
case GL_DITHER:
|
||
|
|
case GL_DOUBLEBUFFER:
|
||
|
|
case GL_DRAW_BUFFER:
|
||
|
|
case GL_EDGE_FLAG:
|
||
|
|
case GL_FOG:
|
||
|
|
case GL_FOG_DENSITY:
|
||
|
|
case GL_FOG_END:
|
||
|
|
case GL_FOG_HINT:
|
||
|
|
case GL_FOG_INDEX:
|
||
|
|
case GL_FOG_MODE:
|
||
|
|
case GL_FOG_START:
|
||
|
|
case GL_FRONT_FACE:
|
||
|
|
case GL_GREEN_BIAS:
|
||
|
|
case GL_GREEN_BITS:
|
||
|
|
case GL_GREEN_SCALE:
|
||
|
|
case GL_INDEX_BITS:
|
||
|
|
case GL_INDEX_CLEAR_VALUE:
|
||
|
|
case GL_INDEX_MODE:
|
||
|
|
case GL_INDEX_OFFSET:
|
||
|
|
case GL_INDEX_SHIFT:
|
||
|
|
case GL_INDEX_WRITEMASK:
|
||
|
|
case GL_LIGHT0:
|
||
|
|
case GL_LIGHT1:
|
||
|
|
case GL_LIGHT2:
|
||
|
|
case GL_LIGHT3:
|
||
|
|
case GL_LIGHT4:
|
||
|
|
case GL_LIGHT5:
|
||
|
|
case GL_LIGHT6:
|
||
|
|
case GL_LIGHT7:
|
||
|
|
case GL_LIGHTING:
|
||
|
|
case GL_LIGHT_MODEL_LOCAL_VIEWER:
|
||
|
|
case GL_LIGHT_MODEL_TWO_SIDE:
|
||
|
|
case GL_LINE_SMOOTH:
|
||
|
|
case GL_LINE_SMOOTH_HINT:
|
||
|
|
case GL_LINE_STIPPLE:
|
||
|
|
case GL_LINE_STIPPLE_PATTERN:
|
||
|
|
case GL_LINE_STIPPLE_REPEAT:
|
||
|
|
case GL_LINE_WIDTH:
|
||
|
|
case GL_LINE_WIDTH_GRANULARITY:
|
||
|
|
case GL_LIST_BASE:
|
||
|
|
case GL_LIST_INDEX:
|
||
|
|
case GL_LIST_MODE:
|
||
|
|
case GL_LOGIC_OP:
|
||
|
|
case GL_LOGIC_OP_MODE:
|
||
|
|
case GL_MAP1_COLOR_4:
|
||
|
|
case GL_MAP1_GRID_SEGMENTS:
|
||
|
|
case GL_MAP1_INDEX:
|
||
|
|
case GL_MAP1_NORMAL:
|
||
|
|
case GL_MAP1_TEXTURE_COORD_1:
|
||
|
|
case GL_MAP1_TEXTURE_COORD_2:
|
||
|
|
case GL_MAP1_TEXTURE_COORD_3:
|
||
|
|
case GL_MAP1_TEXTURE_COORD_4:
|
||
|
|
case GL_MAP1_VERTEX_3:
|
||
|
|
case GL_MAP1_VERTEX_4:
|
||
|
|
case GL_MAP2_COLOR_4:
|
||
|
|
case GL_MAP2_INDEX:
|
||
|
|
case GL_MAP2_NORMAL:
|
||
|
|
case GL_MAP2_TEXTURE_COORD_1:
|
||
|
|
case GL_MAP2_TEXTURE_COORD_2:
|
||
|
|
case GL_MAP2_TEXTURE_COORD_3:
|
||
|
|
case GL_MAP2_TEXTURE_COORD_4:
|
||
|
|
case GL_MAP2_VERTEX_3:
|
||
|
|
case GL_MAP2_VERTEX_4:
|
||
|
|
case GL_MAP_COLOR:
|
||
|
|
case GL_MAP_STENCIL:
|
||
|
|
case GL_MATRIX_MODE:
|
||
|
|
case GL_MAX_ATTRIB_STACK_DEPTH:
|
||
|
|
case GL_MAX_CLIP_PLANES:
|
||
|
|
case GL_MAX_EVAL_ORDER:
|
||
|
|
case GL_MAX_LIGHTS:
|
||
|
|
case GL_MAX_LIST_NESTING:
|
||
|
|
case GL_MAX_MODELVIEW_STACK_DEPTH:
|
||
|
|
case GL_MAX_NAME_STACK_DEPTH:
|
||
|
|
case GL_MAX_PIXEL_MAP_TABLE:
|
||
|
|
case GL_MAX_PROJECTION_STACK_DEPTH:
|
||
|
|
case GL_MAX_TEXTURE_SIZE:
|
||
|
|
case GL_MAX_TEXTURE_STACK_DEPTH:
|
||
|
|
case GL_MODELVIEW_STACK_DEPTH:
|
||
|
|
case GL_NAME_STACK_DEPTH:
|
||
|
|
case GL_NORMALIZE:
|
||
|
|
case GL_PACK_ALIGNMENT:
|
||
|
|
case GL_PACK_LSB_FIRST:
|
||
|
|
case GL_PACK_ROW_LENGTH:
|
||
|
|
case GL_PACK_SKIP_PIXELS:
|
||
|
|
case GL_PACK_SKIP_ROWS:
|
||
|
|
case GL_PACK_SWAP_BYTES:
|
||
|
|
case GL_PERSPECTIVE_CORRECTION_HINT:
|
||
|
|
case GL_PIXEL_MAP_A_TO_A_SIZE:
|
||
|
|
case GL_PIXEL_MAP_B_TO_B_SIZE:
|
||
|
|
case GL_PIXEL_MAP_G_TO_G_SIZE:
|
||
|
|
case GL_PIXEL_MAP_I_TO_A_SIZE:
|
||
|
|
case GL_PIXEL_MAP_I_TO_B_SIZE:
|
||
|
|
case GL_PIXEL_MAP_I_TO_G_SIZE:
|
||
|
|
case GL_PIXEL_MAP_I_TO_I_SIZE:
|
||
|
|
case GL_PIXEL_MAP_I_TO_R_SIZE:
|
||
|
|
case GL_PIXEL_MAP_R_TO_R_SIZE:
|
||
|
|
case GL_PIXEL_MAP_S_TO_S_SIZE:
|
||
|
|
case GL_POINT_SIZE:
|
||
|
|
case GL_POINT_SIZE_GRANULARITY:
|
||
|
|
case GL_POINT_SMOOTH:
|
||
|
|
case GL_POINT_SMOOTH_HINT:
|
||
|
|
case GL_POLYGON_SMOOTH:
|
||
|
|
case GL_POLYGON_SMOOTH_HINT:
|
||
|
|
case GL_POLYGON_STIPPLE:
|
||
|
|
case GL_PROJECTION_STACK_DEPTH:
|
||
|
|
case GL_READ_BUFFER:
|
||
|
|
case GL_RED_BIAS:
|
||
|
|
case GL_RED_BITS:
|
||
|
|
case GL_RED_SCALE:
|
||
|
|
case GL_RENDER_MODE:
|
||
|
|
case GL_RGBA_MODE:
|
||
|
|
case GL_SCISSOR_TEST:
|
||
|
|
case GL_SHADE_MODEL:
|
||
|
|
case GL_STENCIL_BITS:
|
||
|
|
case GL_STENCIL_CLEAR_VALUE:
|
||
|
|
case GL_STENCIL_FAIL:
|
||
|
|
case GL_STENCIL_FUNC:
|
||
|
|
case GL_STENCIL_PASS_DEPTH_FAIL:
|
||
|
|
case GL_STENCIL_PASS_DEPTH_PASS:
|
||
|
|
case GL_STENCIL_REF:
|
||
|
|
case GL_STENCIL_TEST:
|
||
|
|
case GL_STENCIL_VALUE_MASK:
|
||
|
|
case GL_STENCIL_WRITEMASK:
|
||
|
|
case GL_STEREO:
|
||
|
|
case GL_SUBPIXEL_BITS:
|
||
|
|
case GL_TEXTURE_1D:
|
||
|
|
case GL_TEXTURE_2D:
|
||
|
|
case GL_TEXTURE_ENV_MODE:
|
||
|
|
case GL_TEXTURE_GEN_S:
|
||
|
|
case GL_TEXTURE_GEN_R:
|
||
|
|
case GL_TEXTURE_GEN_T:
|
||
|
|
case GL_TEXTURE_GEN_Q:
|
||
|
|
case GL_TEXTURE_STACK_DEPTH:
|
||
|
|
case GL_UNPACK_ALIGNMENT:
|
||
|
|
case GL_UNPACK_LSB_FIRST:
|
||
|
|
case GL_UNPACK_ROW_LENGTH:
|
||
|
|
case GL_UNPACK_SKIP_PIXELS:
|
||
|
|
case GL_UNPACK_SKIP_ROWS:
|
||
|
|
case GL_UNPACK_SWAP_BYTES:
|
||
|
|
case GL_ZOOM_X:
|
||
|
|
case GL_ZOOM_Y:
|
||
|
|
retSize = 1;
|
||
|
|
break;
|
||
|
|
case GL_DEPTH_RANGE:
|
||
|
|
case GL_LINE_WIDTH_RANGE:
|
||
|
|
case GL_MAP1_GRID_DOMAIN:
|
||
|
|
case GL_MAP2_GRID_SEGMENTS:
|
||
|
|
case GL_MAX_VIEWPORT_DIMS:
|
||
|
|
case GL_POINT_SIZE_RANGE:
|
||
|
|
case GL_POLYGON_MODE:
|
||
|
|
retSize = 2;
|
||
|
|
break;
|
||
|
|
case GL_CURRENT_NORMAL:
|
||
|
|
retSize = 3;
|
||
|
|
break;
|
||
|
|
case GL_ACCUM_CLEAR_VALUE:
|
||
|
|
case GL_COLOR_WRITEMASK:
|
||
|
|
case GL_CURRENT_COLOR:
|
||
|
|
case GL_CURRENT_RASTER_COLOR:
|
||
|
|
case GL_CURRENT_RASTER_POSITION:
|
||
|
|
case GL_CURRENT_RASTER_TEXTURE_COORDS:
|
||
|
|
case GL_CURRENT_TEXTURE_COORDS:
|
||
|
|
case GL_FOG_COLOR:
|
||
|
|
case GL_LIGHT_MODEL_AMBIENT:
|
||
|
|
case GL_MAP2_GRID_DOMAIN:
|
||
|
|
case GL_SCISSOR_BOX:
|
||
|
|
case GL_TEXTURE_ENV_COLOR:
|
||
|
|
case GL_VIEWPORT:
|
||
|
|
retSize = 4;
|
||
|
|
break;
|
||
|
|
case GL_MODELVIEW_MATRIX:
|
||
|
|
case GL_PROJECTION_MATRIX:
|
||
|
|
case GL_TEXTURE_MATRIX:
|
||
|
|
retSize = 16;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
|
||
|
|
return retSize;
|
||
|
|
}
|
||
|
|
|
||
|
|
void freeAllocs(void )
|
||
|
|
{
|
||
|
|
if (boolSize)
|
||
|
|
GB.Free(POINTER(&boolArray));
|
||
|
|
|
||
|
|
if (floatSize)
|
||
|
|
GB.Free(POINTER(&floatArray));
|
||
|
|
|
||
|
|
if (intSize)
|
||
|
|
GB.Free(POINTER(&intArray));
|
||
|
|
|
||
|
|
boolSize = 0;
|
||
|
|
floatSize = 0;
|
||
|
|
intSize = 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**************************************************************************/
|
||
|
|
|
||
|
|
/*
|
||
|
|
First, we check if the parameter is of a known size.
|
||
|
|
If not (0 is returned), we check the size method parameter.
|
||
|
|
If size is always 0 (size parameter is equal to 0 or is missing)
|
||
|
|
we return a null object.
|
||
|
|
If size is too big (see MAXSIZE) an error is raised.
|
||
|
|
|
||
|
|
Finally we return an object of the defined size.
|
||
|
|
*/
|
||
|
|
|
||
|
|
|
||
|
|
BEGIN_METHOD(GLGETBOOLEANV, GB_INTEGER parameter; GB_INTEGER size)
|
||
|
|
|
||
|
|
GB_ARRAY bArray;
|
||
|
|
int i;
|
||
|
|
int size = checkSize(VARG(parameter));
|
||
|
|
|
||
|
|
if (!size)
|
||
|
|
size = VARGOPT(size, 0);
|
||
|
|
|
||
|
|
if (size >= MAXSIZE)
|
||
|
|
{
|
||
|
|
GB.Error("Parameter size is too big");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!size)
|
||
|
|
{
|
||
|
|
GB.ReturnNull();
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
resizeBool(size);
|
||
|
|
|
||
|
|
GB.Array.New(&bArray , GB_T_BOOLEAN , size);
|
||
|
|
glGetBooleanv(VARG(parameter), boolArray);
|
||
|
|
|
||
|
|
for (i=0;i<size; i++)
|
||
|
|
*((int *)GB.Array.Get(bArray, i)) = boolArray[i];
|
||
|
|
|
||
|
|
GB.ReturnObject(bArray);
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
END_METHOD
|
||
|
|
|
||
|
|
BEGIN_METHOD(GLGETFLOATV, GB_INTEGER parameter; GB_INTEGER size)
|
||
|
|
|
||
|
|
GB_ARRAY fArray;
|
||
|
|
int i;
|
||
|
|
int size = checkSize(VARG(parameter));
|
||
|
|
|
||
|
|
if (!size)
|
||
|
|
size = VARGOPT(size, 0);
|
||
|
|
|
||
|
|
if (size >= MAXSIZE)
|
||
|
|
{
|
||
|
|
GB.Error("Parameter size is too big");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!size)
|
||
|
|
{
|
||
|
|
GB.ReturnNull();
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
resizeFloat(size);
|
||
|
|
|
||
|
|
GB.Array.New(&fArray , GB_T_FLOAT , size);
|
||
|
|
glGetDoublev(VARG(parameter), floatArray);
|
||
|
|
|
||
|
|
for (i=0;i<size; i++)
|
||
|
|
*((double *)GB.Array.Get(fArray, i)) = floatArray[i];
|
||
|
|
|
||
|
|
GB.ReturnObject(fArray);
|
||
|
|
|
||
|
|
END_METHOD
|
||
|
|
|
||
|
|
BEGIN_METHOD(GLGETINTEGERV, GB_INTEGER parameter; GB_INTEGER size)
|
||
|
|
|
||
|
|
GB_ARRAY iArray;
|
||
|
|
int i;
|
||
|
|
int size = checkSize(VARG(parameter));
|
||
|
|
|
||
|
|
if (!size)
|
||
|
|
size = VARGOPT(size, 0);
|
||
|
|
|
||
|
|
if (size >= MAXSIZE)
|
||
|
|
{
|
||
|
|
GB.Error("Parameter size is too big");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!size)
|
||
|
|
{
|
||
|
|
GB.ReturnNull();
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
resizeInt(size);
|
||
|
|
|
||
|
|
GB.Array.New(&iArray , GB_T_INTEGER , size);
|
||
|
|
glGetIntegerv(VARG(parameter), intArray);
|
||
|
|
|
||
|
|
for (i=0;i<size; i++)
|
||
|
|
*((int *)GB.Array.Get(iArray, i)) = intArray[i];
|
||
|
|
|
||
|
|
GB.ReturnObject(iArray);
|
||
|
|
|
||
|
|
END_METHOD
|
||
|
|
|