2f524481c1
git-svn-id: https://sfml.svn.sourceforge.net/svnroot/sfml/trunk@1002 4e206d99-4929-0410-ac5d-dfc041789085
363 lines
9.4 KiB
C
363 lines
9.4 KiB
C
/*
|
|
* Copyright (C) 2007 Jan Dvorak <jan.dvorak@kraxnet.cz>
|
|
*
|
|
* This program is distributed under the terms of the MIT license.
|
|
* See the included MIT-LICENSE file for the terms of this license.
|
|
*
|
|
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
|
|
* OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
|
* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
|
|
* IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
|
|
* CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
|
|
* TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
|
|
* SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
|
*/
|
|
|
|
#ifdef __APPLE__
|
|
#include <OpenGL/gl.h>
|
|
#elif defined WIN32
|
|
#include <windows.h>
|
|
#include <GL/gl.h>
|
|
#else
|
|
#include <GL/gl.h>
|
|
#endif
|
|
#include "../common/common.h"
|
|
|
|
/* OpenGL 1.5 functions */
|
|
|
|
static void (APIENTRY * fptr_glGenQueries)(GLsizei,GLuint *);
|
|
static VALUE
|
|
gl_GenQueries(obj,arg1)
|
|
VALUE obj,arg1;
|
|
{
|
|
GLsizei n;
|
|
GLuint *queries;
|
|
RArray *ret;
|
|
int i;
|
|
LOAD_GL_FUNC(glGenQueries)
|
|
n = (GLsizei)NUM2UINT(arg1);
|
|
queries = ALLOC_N(GLuint, n);
|
|
fptr_glGenQueries(n, queries);
|
|
ret = RARRAY(rb_ary_new2(n));
|
|
for (i = 0; i < n; i++)
|
|
rb_ary_push((VALUE)ret, INT2NUM(queries[i]));
|
|
xfree(queries);
|
|
return (VALUE)ret;
|
|
}
|
|
|
|
static void (APIENTRY * fptr_glDeleteQueries)(GLsizei,GLuint *);
|
|
static VALUE
|
|
gl_DeleteQueries(obj,arg1)
|
|
VALUE obj,arg1;
|
|
{
|
|
GLsizei n;
|
|
GLuint *queries;
|
|
LOAD_GL_FUNC(glDeleteQueries)
|
|
Check_Type(arg1,T_ARRAY);
|
|
n = RARRAY(arg1)->len;
|
|
queries = ALLOC_N(GLuint,n);
|
|
ary2cuint(arg1,queries,n);
|
|
fptr_glDeleteQueries( n, queries);
|
|
xfree(queries);
|
|
return Qnil;
|
|
}
|
|
|
|
static GLboolean (APIENTRY * fptr_glIsQuery)(GLuint);
|
|
static VALUE
|
|
gl_IsQuery(obj,arg1)
|
|
VALUE obj,arg1;
|
|
{
|
|
GLuint query;
|
|
GLboolean ret;
|
|
LOAD_GL_FUNC(glIsQuery)
|
|
query = (GLuint)NUM2UINT(arg1);
|
|
ret = fptr_glIsQuery(query);
|
|
return INT2NUM(ret);
|
|
}
|
|
|
|
static void (APIENTRY * fptr_glBeginQuery)(GLenum,GLuint);
|
|
static VALUE
|
|
gl_BeginQuery(obj,arg1,arg2)
|
|
VALUE obj,arg1,arg2;
|
|
{
|
|
GLenum target;
|
|
GLuint id;
|
|
LOAD_GL_FUNC(glBeginQuery)
|
|
target = (GLenum)NUM2INT(arg1);
|
|
id = (GLuint)NUM2UINT(arg2);
|
|
fptr_glBeginQuery(target,id);
|
|
return Qnil;
|
|
}
|
|
|
|
static void (APIENTRY * fptr_glEndQuery)(GLenum);
|
|
static VALUE
|
|
gl_EndQuery(obj,arg1)
|
|
VALUE obj,arg1;
|
|
{
|
|
GLenum target;
|
|
LOAD_GL_FUNC(glEndQuery)
|
|
target = (GLenum)NUM2INT(arg1);
|
|
fptr_glEndQuery(target);
|
|
return Qnil;
|
|
}
|
|
|
|
static void (APIENTRY * fptr_glGetQueryiv)(GLenum,GLenum,GLint *);
|
|
static VALUE
|
|
gl_GetQueryiv(obj,arg1,arg2)
|
|
VALUE obj,arg1,arg2;
|
|
{
|
|
GLenum target;
|
|
GLenum pname;
|
|
GLint params = 0;
|
|
VALUE retary;
|
|
LOAD_GL_FUNC(glGetQueryiv)
|
|
target = (GLenum)NUM2INT(arg1);
|
|
pname = (GLenum)NUM2INT(arg2);
|
|
fptr_glGetQueryiv(target,pname,¶ms);
|
|
retary = rb_ary_new2(1);
|
|
rb_ary_push(retary, INT2NUM(params));
|
|
return retary;
|
|
}
|
|
|
|
static void (APIENTRY * fptr_glGetQueryObjectiv)(GLuint,GLenum,GLint *);
|
|
static VALUE
|
|
gl_GetQueryObjectiv(obj,arg1,arg2)
|
|
VALUE obj,arg1,arg2;
|
|
{
|
|
GLuint id;
|
|
GLenum pname;
|
|
GLint params = 0;
|
|
VALUE retary;
|
|
LOAD_GL_FUNC(glGetQueryObjectiv)
|
|
id = (GLuint)NUM2UINT(arg1);
|
|
pname = (GLenum)NUM2INT(arg2);
|
|
fptr_glGetQueryObjectiv(id,pname,¶ms);
|
|
retary = rb_ary_new2(1);
|
|
rb_ary_push(retary,INT2NUM(params));
|
|
return retary;
|
|
}
|
|
|
|
static void (APIENTRY * fptr_glGetQueryObjectuiv)(GLuint,GLenum,GLuint *);
|
|
static VALUE
|
|
gl_GetQueryObjectuiv(obj,arg1,arg2,arg3)
|
|
VALUE obj,arg1,arg2,arg3;
|
|
{
|
|
GLuint id;
|
|
GLenum pname;
|
|
GLuint params = 0;
|
|
VALUE retary;
|
|
LOAD_GL_FUNC(glGetQueryObjectuiv)
|
|
id = (GLuint)NUM2UINT(arg1);
|
|
pname = (GLenum)NUM2INT(arg2);
|
|
fptr_glGetQueryObjectuiv(id,pname,¶ms);
|
|
retary = rb_ary_new2(1);
|
|
rb_ary_push(retary,INT2NUM(params));
|
|
return retary;
|
|
}
|
|
|
|
static void (APIENTRY * fptr_glBindBuffer)(GLenum,GLuint);
|
|
static VALUE
|
|
gl_BindBuffer(obj,arg1,arg2)
|
|
VALUE obj,arg1,arg2;
|
|
{
|
|
GLenum target;
|
|
GLuint buffer;
|
|
LOAD_GL_FUNC(glBindBuffer)
|
|
target = (GLenum)NUM2INT(arg1);
|
|
buffer = (GLenum)NUM2INT(arg2);
|
|
fptr_glBindBuffer(target,buffer);
|
|
return Qnil;
|
|
}
|
|
|
|
static void (APIENTRY * fptr_glDeleteBuffers)(GLsizei,GLuint *);
|
|
static VALUE
|
|
gl_DeleteBuffers(obj,arg1)
|
|
VALUE obj,arg1;
|
|
{
|
|
GLsizei n;
|
|
GLuint *buffers;
|
|
LOAD_GL_FUNC(glDeleteBuffers)
|
|
Check_Type(arg1,T_ARRAY);
|
|
n = RARRAY(arg1)->len;
|
|
buffers = ALLOC_N(GLuint,n);
|
|
ary2cuint(arg1,buffers,n);
|
|
fptr_glDeleteBuffers(n, buffers);
|
|
xfree(buffers);
|
|
return Qnil;
|
|
}
|
|
|
|
static void (APIENTRY * fptr_glGenBuffers)(GLsizei,GLuint *);
|
|
static VALUE
|
|
gl_GenBuffers(obj,arg1)
|
|
VALUE obj,arg1;
|
|
{
|
|
GLsizei n;
|
|
GLuint *buffers;
|
|
RArray *ret;
|
|
int i;
|
|
LOAD_GL_FUNC(glGenBuffers)
|
|
n = (GLsizei)NUM2UINT(arg1);
|
|
buffers = ALLOC_N(GLuint, n);
|
|
fptr_glGenBuffers(n, buffers);
|
|
ret = RARRAY(rb_ary_new2(n));
|
|
for (i = 0; i < n; i++)
|
|
rb_ary_push((VALUE)ret, INT2NUM(buffers[i]));
|
|
xfree(buffers);
|
|
return (VALUE)ret;
|
|
}
|
|
|
|
static GLboolean (APIENTRY * fptr_glIsBuffer)(GLuint);
|
|
static VALUE
|
|
gl_IsBuffer(obj,arg1)
|
|
VALUE obj,arg1;
|
|
{
|
|
GLuint buffer;
|
|
GLboolean ret;
|
|
LOAD_GL_FUNC(glIsBuffer)
|
|
buffer = (GLuint)NUM2UINT(arg1);
|
|
ret = fptr_glIsBuffer(buffer);
|
|
return INT2NUM(ret);
|
|
}
|
|
|
|
static void (APIENTRY * fptr_glBufferData)(GLenum,GLsizeiptr,GLvoid *,GLenum);
|
|
static VALUE
|
|
gl_BufferData(obj,arg1,arg2,arg3,arg4)
|
|
VALUE obj,arg1,arg2,arg3,arg4;
|
|
{
|
|
GLenum target;
|
|
GLsizeiptr size;
|
|
GLenum usage;
|
|
LOAD_GL_FUNC(glBufferData)
|
|
target = (GLenum)NUM2INT(arg1);
|
|
size = (GLsizeiptr)NUM2INT(arg2);
|
|
usage = (GLenum)NUM2INT(arg4);
|
|
if (TYPE(arg3) == T_STRING) {
|
|
fptr_glBufferData(target,size,(GLvoid *)RSTRING(arg3)->ptr,usage);
|
|
} else if (NIL_P(arg3)) {
|
|
fptr_glBufferData(target,size,NULL,usage);
|
|
} else {
|
|
Check_Type(arg3,T_STRING); /* force exception */
|
|
}
|
|
return Qnil;
|
|
}
|
|
|
|
static void (APIENTRY * fptr_glBufferSubData)(GLenum,GLintptr,GLsizeiptr,GLvoid *);
|
|
static VALUE
|
|
gl_BufferSubData(obj,arg1,arg2,arg3,arg4)
|
|
VALUE obj,arg1,arg2,arg3,arg4;
|
|
{
|
|
GLenum target;
|
|
GLintptr offset;
|
|
GLsizeiptr size;
|
|
LOAD_GL_FUNC(glBufferSubData)
|
|
target = (GLenum)NUM2INT(arg1);
|
|
offset = (GLintptr)NUM2INT(arg2);
|
|
size = (GLsizeiptr)NUM2INT(arg3);
|
|
Check_Type(arg4,T_STRING);
|
|
fptr_glBufferSubData(target,offset,size,(GLvoid *)RSTRING(arg4)->ptr);
|
|
return Qnil;
|
|
}
|
|
|
|
static void (APIENTRY * fptr_glGetBufferSubData)(GLenum,GLintptr,GLsizeiptr,GLvoid *);
|
|
static VALUE
|
|
gl_GetBufferSubData(obj,arg1,arg2,arg3)
|
|
VALUE obj,arg1,arg2,arg3;
|
|
{
|
|
GLenum target;
|
|
GLintptr offset;
|
|
GLsizeiptr size;
|
|
VALUE data;
|
|
LOAD_GL_FUNC(glGetBufferSubData)
|
|
target = (GLenum)NUM2INT(arg1);
|
|
offset = (GLintptr)NUM2INT(arg2);
|
|
size = (GLsizeiptr)NUM2INT(arg3);
|
|
data = allocate_buffer_with_string(size);
|
|
fptr_glGetBufferSubData(target,offset,size,(GLvoid *)RSTRING(data)->ptr);
|
|
return data;
|
|
}
|
|
|
|
static void (APIENTRY * fptr_glGetBufferParameteriv)(GLenum,GLenum,GLint *);
|
|
static VALUE
|
|
gl_GetBufferParameteriv(obj,arg1,arg2)
|
|
VALUE obj,arg1,arg2;
|
|
{
|
|
GLenum target;
|
|
GLenum value;
|
|
GLint data = 0;
|
|
VALUE retary;
|
|
LOAD_GL_FUNC(glGetBufferParameteriv)
|
|
target = (GLenum)NUM2INT(arg1);
|
|
value = (GLenum)NUM2INT(arg2);
|
|
fptr_glGetBufferParameteriv(target,value,&data);
|
|
retary = rb_ary_new2(1);
|
|
rb_ary_push(retary,INT2NUM(data));
|
|
return retary;
|
|
}
|
|
|
|
static GLvoid * (APIENTRY * fptr_glMapBuffer)(GLenum,GLenum);
|
|
static VALUE
|
|
gl_MapBuffer(obj,arg1,arg2)
|
|
VALUE obj,arg1,arg2;
|
|
{
|
|
GLenum target;
|
|
GLenum access;
|
|
GLint size = 0;
|
|
VALUE data;
|
|
GLvoid *buffer_ptr;
|
|
LOAD_GL_FUNC(glMapBuffer)
|
|
LOAD_GL_FUNC(glGetBufferParameteriv)
|
|
target = (GLenum)NUM2INT(arg1);
|
|
access = (GLenum)NUM2INT(arg2);
|
|
fptr_glGetBufferParameteriv(target,GL_BUFFER_SIZE,&size);
|
|
buffer_ptr = fptr_glMapBuffer(target,access);
|
|
data = allocate_buffer_with_string(size);
|
|
memcpy(RSTRING(data)->ptr, buffer_ptr, size);
|
|
return data;
|
|
}
|
|
|
|
static GLboolean (APIENTRY * fptr_glUnmapBuffer)(GLenum);
|
|
static VALUE
|
|
gl_UnmapBuffer(obj,arg1)
|
|
VALUE obj,arg1;
|
|
{
|
|
GLenum target;
|
|
GLboolean ret;
|
|
LOAD_GL_FUNC(glUnmapBuffer)
|
|
target = (GLenum)NUM2INT(arg1);
|
|
ret = fptr_glUnmapBuffer(target);
|
|
return INT2NUM(ret);
|
|
}
|
|
|
|
static void (APIENTRY * fptr_glGetBufferPointerv)(GLenum,GLenum,GLvoid **);
|
|
static VALUE
|
|
gl_GetBufferPointerv(obj,arg1,arg2,arg3)
|
|
VALUE obj,arg1,arg2,arg3;
|
|
{
|
|
LOAD_GL_FUNC(glGetBufferPointerv)
|
|
/* not implemented */
|
|
return Qnil;
|
|
}
|
|
|
|
void gl_init_functions_1_5(VALUE module)
|
|
{
|
|
rb_define_module_function(module, "glGenQueries", gl_GenQueries, 1);
|
|
rb_define_module_function(module, "glDeleteQueries", gl_DeleteQueries, 1);
|
|
rb_define_module_function(module, "glIsQuery", gl_IsQuery, 1);
|
|
rb_define_module_function(module, "glBeginQuery", gl_BeginQuery, 2);
|
|
rb_define_module_function(module, "glEndQuery", gl_EndQuery, 1);
|
|
rb_define_module_function(module, "glGetQueryiv", gl_GetQueryiv, 2);
|
|
rb_define_module_function(module, "glGetQueryObjectiv", gl_GetQueryObjectiv, 2);
|
|
rb_define_module_function(module, "glGetQueryObjectuiv", gl_GetQueryObjectuiv, 2);
|
|
rb_define_module_function(module, "glBindBuffer", gl_BindBuffer, 2);
|
|
rb_define_module_function(module, "glDeleteBuffers", gl_DeleteBuffers, 1);
|
|
rb_define_module_function(module, "glGenBuffers", gl_GenBuffers, 1);
|
|
rb_define_module_function(module, "glIsBuffer", gl_IsBuffer, 1);
|
|
rb_define_module_function(module, "glBufferData", gl_BufferData, 4);
|
|
rb_define_module_function(module, "glBufferSubData", gl_BufferSubData, 4);
|
|
rb_define_module_function(module, "glGetBufferSubData", gl_GetBufferSubData, 3);
|
|
rb_define_module_function(module, "glMapBuffer", gl_MapBuffer, 2);
|
|
rb_define_module_function(module, "glUnmapBuffer", gl_UnmapBuffer, 1);
|
|
rb_define_module_function(module, "glGetBufferParameteriv", gl_GetBufferParameteriv, 2);
|
|
rb_define_module_function(module, "glGetBufferPointerv", gl_GetBufferPointerv, 3);
|
|
}
|