Acme-MITHALDU-BleedingOpenGL
view release on metacpan or search on metacpan
pogl_glu.xs view on Meta::CPAN
/* Last saved: Wed 17 Dec 2014 03:14:02 PM */
/* Copyright (c) 1998 Kenneth Albanowski. All rights reserved.
* Copyright (c) 2007 Bob Free. All rights reserved.
* Copyright (c) 2009 Chris Marshall. All rights reserved.
* Copyright (c) 2011 Paul Seamons. All rights reserved.
* This program is free software; you can redistribute it and/or
* modify it under the same terms as Perl itself.
*/
/* OpenGL GLU bindings */
#define IN_POGL_GLU_XS
#include <stdio.h>
#include "pgopogl.h"
#ifdef HAVE_GL
#include "gl_util.h"
#endif
#ifdef HAVE_GLX
#include "glx_util.h"
#endif
#ifdef HAVE_GLU
#include "glu_util.h"
#endif
#ifdef IN_POGL_GLU_XS
#ifndef CALLBACK
#define CALLBACK
#endif
struct PGLUtess {
GLUtesselator * triangulator;
#ifdef GLU_VERSION_1_2
SV * begin_callback;
SV * edgeFlag_callback;
SV * vertex_callback;
SV * end_callback;
SV * error_callback;
SV * combine_callback;
#endif
bool do_colors;
bool do_normals;
bool use_vertex_data;
GLdouble * vertex_data; /* used during non-GLU_TESS_VERTEX_DATA */
SV * polygon_data;
AV * vertex_datas;
AV * tess_datas;
};
typedef struct PGLUtess PGLUtess;
#define delete_vertex_datas() \
if (tess->vertex_datas) { \
AV * vds = tess->vertex_datas; \
SV** svp; \
I32 i; \
for (i=0; i<=av_len(vds); i++) { \
svp = av_fetch(vds, i, FALSE); \
free(INT2PTR(GLdouble*, SvIV(*svp))); \
} \
SvREFCNT_dec(tess->vertex_datas); \
tess->vertex_datas = 0; \
}
#define delete_tess_datas() \
if (tess->tess_datas) { \
AV * tds = tess->tess_datas; \
SV** svp; \
I32 i; \
for (i=0; i<=av_len(tds); i++) { \
svp = av_fetch(tds, i, FALSE); \
free(INT2PTR(PGLUtess*, SvIV(*svp))); \
} \
SvREFCNT_dec(tess->tess_datas); \
tess->tess_datas = 0; \
}
#define delete_polygon_data() \
if (tess->polygon_data) { \
SvREFCNT_dec(tess->polygon_data); \
tess->polygon_data = 0; \
}
#ifdef GLU_VERSION_1_2
/* Begin a named callback handler */
#define begin_tess_marshaller(name, type, params, croak_msg, default_handler) \
void CALLBACK _s_marshal_glu_t_callback_ ## name params \
{ \
dSP; \
int i; int j = 3; \
PGLUtess * t = (PGLUtess*)gl_polygon_data; \
SV * handler = t-> type ## _callback; \
if (!handler) croak(croak_msg); \
if (! SvROK(handler)) { /* default */ \
pogl_glu.xs view on Meta::CPAN
/* Declare gluTess EDGEFLAG_DATA */
begin_tess_marshaller(edgeFlag_data, edgeFlag, (GLboolean flag, void * gl_polygon_data), "Missing tess callback for edgeFlag_data", glEdgeFlag(flag))
XPUSHs(sv_2mortal(newSViv(flag)));
if (t->polygon_data) XPUSHs((SV*)t->polygon_data);
end_tess_marshaller()
/* Declare gluTess VERTEX */
begin_tess_marshaller(vertex, vertex, (void * gl_polygon_data), "Missing tess callback for vertex", \
GLdouble * vd = t->vertex_data; \
if (t->do_colors) { \
glColor4f(vd[j], vd[j+1], vd[j+2], vd[j+3]); \
j += 4; \
} \
if (t->do_normals) glNormal3f(vd[j], vd[j+1], vd[j+2]); \
glVertex3f(vd[0], vd[1], vd[2]); \
)
{
GLdouble * vd = (GLdouble*) t->vertex_data;
for (i = 0; i < 3; i++)
XPUSHs(sv_2mortal(newSVnv(vd[i])));
if (t->do_colors) {
int J = j + 4;
for ( ; j < J; j++)
XPUSHs(sv_2mortal(newSVnv(vd[j])));
}
if (t->do_normals)
for (i = 0; i < 3; i++)
XPUSHs(sv_2mortal(newSVnv(vd[j++])));
if (t->polygon_data) XPUSHs((SV*)t->polygon_data);
}
end_tess_marshaller()
/* Declare gluTess VERTEX_DATA */
begin_tess_marshaller(vertex_data, vertex, (void * vertex_data, void * gl_polygon_data), "Missing tess callback for vertex_data", \
GLdouble * vd = (GLdouble*) vertex_data; \
if (t->do_colors) { \
glColor4f(vd[j], vd[j+1], vd[j+2], vd[j+3]); \
j += 4; \
} \
if (t->do_normals) glNormal3f(vd[j], vd[j+1], vd[j+2]); \
glVertex3f(vd[0], vd[1], vd[2]); \
)
if (! vertex_data) croak("Missing vertex data in tess vertex_data callback");
{
GLdouble * vd = (GLdouble*) vertex_data;
for (i = 0; i < 3; i++)
XPUSHs(sv_2mortal(newSVnv(vd[i])));
if (t->do_colors) {
int J = j + 4;
for ( ; j < J; j++)
XPUSHs(sv_2mortal(newSVnv(vd[j])));
}
if (t->do_normals)
for (i = 0; i < 3; i++)
XPUSHs(sv_2mortal(newSVnv(vd[j++])));
if (t->polygon_data) XPUSHs((SV*)t->polygon_data);
}
end_tess_marshaller()
/* Declare gluTess ERROR */
begin_tess_marshaller(error, error, (GLenum errno_, void * gl_polygon_data), "Missing tess callback for error", \
warn("Tesselation error: %s", gluErrorString(errno_)); \
)
XPUSHs(sv_2mortal(newSViv(errno_)));
end_tess_marshaller()
/* Declare gluTess ERROR_DATA */
begin_tess_marshaller(error_data, error, (GLenum errno_, void * gl_polygon_data), "Missing tess callback for error_data", \
warn("Tesselation error: %s", gluErrorString(errno_)); \
)
XPUSHs(sv_2mortal(newSViv(errno_)));
if (t->polygon_data) XPUSHs((SV*)t->polygon_data);
end_tess_marshaller()
/* Declare gluTess COMBINE AND COMBINE_DATA */
void CALLBACK _s_marshal_glu_t_callback_combine (GLdouble coords[3], void * vertex_data[4],
GLfloat weight[4], void ** out_data,
void * gl_polygon_data)
{
SV * handler;
AV * vds;
SV * item;
I32 n;
int i, j = 3;
dSP;
GLdouble *vd[4];
PGLUtess *t = (PGLUtess*)gl_polygon_data;
bool has_data = FALSE;
int size = 3 + (t->do_colors ? 4 : 0) + (t->do_normals ? 3 : 0);
GLdouble *vertex = malloc(sizeof(GLdouble) * size);
if (vertex == NULL) croak("Couldn't allocate combination vertex during tesselation");
vds = t->vertex_datas;
if (!vds) croak("Missing vertex data storage");
av_push(vds, newSViv(PTR2IV(vertex)));
handler = t->combine_callback;
if (!handler) croak("Missing tess callback for combine_data");
if (t->use_vertex_data) {
PGLUtess * opaque = malloc(sizeof(PGLUtess));
if (!opaque) croak("Couldn't allocate storage for vertex opaque data");
opaque->triangulator = t->triangulator;
opaque->vertex_datas = t->vertex_datas;
opaque->vertex_callback = t->vertex_callback;
opaque->combine_callback = t->combine_callback;
opaque->vertex_data = vertex;
opaque->polygon_data = &PL_sv_undef;
opaque->use_vertex_data = TRUE;
opaque->do_colors = t->do_colors;
opaque->do_normals = t->do_normals;
if (! t->tess_datas) t->tess_datas = newAV();
av_push(t->tess_datas, newSViv(PTR2IV(opaque)));
*out_data = opaque;
for (i = 0; i < 4; i++) {
PGLUtess* ot = (PGLUtess*)vertex_data[i];
vd[i] = (GLdouble*)ot->vertex_data;
}
} else {
*out_data = vertex;
for (i = 0; i < 4; i++)
vd[i] = (GLdouble*)vertex_data[i];
}
if (! SvROK(handler)) { /* default */
vertex[0] = coords[0];
vertex[1] = coords[1];
vertex[2] = coords[2];
if (t->do_colors) {
int J = j + 4;
pogl_glu.xs view on Meta::CPAN
width, height, format, type, data);
}
OUTPUT:
RETVAL
#//# gluBuild2DMipmaps_s($target, $internalformat, $width, $height, $format, $type, (PACKED)data);
GLint
gluBuild2DMipmaps_s(target, internalformat, width, height, format, type, data)
GLenum target
GLuint internalformat
GLsizei width
GLsizei height
GLenum format
GLenum type
SV * data
CODE:
{
GLvoid * ptr = ELI(data, width, height, format, type, gl_pixelbuffer_unpack);
RETVAL=gluBuild2DMipmaps(target, internalformat, width, height, format, type, ptr);
}
OUTPUT:
RETVAL
#// gluCylinder($quad, $base, $top, $height, $slices, $stacks);
void
gluCylinder(quad, base, top, height, slices, stacks)
GLUquadricObj * quad
GLdouble base
GLdouble top
GLdouble height
GLint slices
GLint stacks
#// gluDeleteNurbsRenderer($nurb);
void
gluDeleteNurbsRenderer(nurb)
GLUnurbsObj * nurb
#// gluDeleteQuadric($quad);
void
gluDeleteQuadric(quad)
GLUquadricObj * quad
#// gluDeleteTess($tess);
void
gluDeleteTess(tess)
PGLUtess * tess
CODE:
{
if (tess->triangulator)
gluDeleteTess(tess->triangulator);
#ifdef GLU_VERSION_1_2
if (tess->begin_callback)
SvREFCNT_dec(tess->begin_callback);
if (tess->edgeFlag_callback)
SvREFCNT_dec(tess->edgeFlag_callback);
if (tess->vertex_callback)
SvREFCNT_dec(tess->vertex_callback);
if (tess->end_callback)
SvREFCNT_dec(tess->end_callback);
if (tess->error_callback)
SvREFCNT_dec(tess->error_callback);
if (tess->combine_callback)
SvREFCNT_dec(tess->combine_callback);
#endif
delete_vertex_datas()
delete_tess_datas()
delete_polygon_data()
free(tess);
}
#// gluDisk($quad, $inner, $outer, $slices, $loops);
void
gluDisk(quad, inner, outer, slices, loops)
GLUquadricObj * quad
GLdouble inner
GLdouble outer
GLint slices
GLint loops
#//# gluErrorString($error);
char *
gluErrorString(error)
GLenum error
CODE:
RETVAL = (char*)gluErrorString(error);
OUTPUT:
RETVAL
#// gluGetNurbsProperty_p($nurb, $property);
GLfloat
gluGetNurbsProperty_p(nurb, property)
GLUnurbsObj * nurb
GLenum property
CODE:
{
GLfloat param;
gluGetNurbsProperty(nurb, property, ¶m);
RETVAL = param;
}
OUTPUT:
RETVAL
#// gluNurbsProperty(nurb, property, value);
void
gluNurbsProperty(nurb, property, value)
GLUnurbsObj * nurb
GLenum property
GLfloat value
#ifdef GLU_VERSION_1_1
#//# gluGetString($name);
char *
gluGetString(name)
GLenum name
CODE:
RETVAL = (char*)gluGetString(name);
OUTPUT:
RETVAL
#endif
#// gluLoadSamplingMatrices_p(nurb, m1,m2,m3,m4,m5,m6,m7,m8,m9,m10,m11,m12,m13,m14,m15,m16, o1,o2,o3,o4,o5,o6,o7,o8,o9,o10,o11,o12,o13,o14,o15,o16, v1,v2,v3,v4);
void
gluLoadSamplingMatrices_p(nurb, m1,m2,m3,m4,m5,m6,m7,m8,m9,m10,m11,m12,m13,m14,m15,m16, o1,o2,o3,o4,o5,o6,o7,o8,o9,o10,o11,o12,o13,o14,o15,o16, v1,v2,v3,v4)
GLUnurbsObj * nurb
CODE:
{
GLfloat m[16], p[16];
GLint v[4];
int i;
for (i=0;i<16;i++)
m[i] = (GLfloat)SvNV(ST(i+1));
for (i=0;i<16;i++)
p[i] = (GLfloat)SvNV(ST(i+1+16));
for (i=0;i<4;i++)
v[i] = SvIV(ST(i+1+16+16));
gluLoadSamplingMatrices(nurb, m, p, v);
}
#//# gluLookAt($eyeX, $eyeY, $eyeZ, $centerX, $centerY, $centerZ, $upX, $upY, $upZ);
void
gluLookAt(eyeX, eyeY, eyeZ, centerX, centerY, centerZ, upX, upY, upZ)
GLdouble eyeX
GLdouble eyeY
pogl_glu.xs view on Meta::CPAN
gluTessEndPolygon(tess)
PGLUtess * tess
CODE:
{
gluTessEndPolygon(tess->triangulator);
delete_vertex_datas()
delete_tess_datas()
delete_polygon_data()
}
#// gluTessNormal(tess, valueX, valueY, valueZ)
void
gluTessNormal(tess, valueX, valueY, valueZ)
PGLUtess * tess
GLdouble valueX
GLdouble valueY
GLdouble valueZ
CODE:
gluTessNormal(tess->triangulator, valueX, valueY, valueZ);
#// gluTessProperty(tess, which, data);
void
gluTessProperty(tess, which, data)
PGLUtess * tess
GLenum which
GLdouble data
CODE:
gluTessProperty(tess->triangulator, which, data);
#// gluTessCallback(tess, which, ...);
void
gluTessCallback(tess, which, ...)
PGLUtess * tess
GLenum which
CODE:
{
switch (which) {
case GLU_TESS_BEGIN:
case GLU_TESS_BEGIN_DATA:
if (tess->begin_callback) {
SvREFCNT_dec(tess->begin_callback);
tess->begin_callback = 0;
}
break;
case GLU_TESS_END:
case GLU_TESS_END_DATA:
if (tess->end_callback) {
SvREFCNT_dec(tess->end_callback);
tess->end_callback = 0;
}
break;
case GLU_TESS_VERTEX:
case GLU_TESS_VERTEX_DATA:
if (tess->vertex_callback) {
SvREFCNT_dec(tess->vertex_callback);
tess->vertex_callback = 0;
}
break;
case GLU_TESS_ERROR:
case GLU_TESS_ERROR_DATA:
if (tess->error_callback) {
SvREFCNT_dec(tess->error_callback);
tess->error_callback = 0;
}
break;
case GLU_TESS_COMBINE:
case GLU_TESS_COMBINE_DATA:
if (tess->combine_callback) {
SvREFCNT_dec(tess->combine_callback);
tess->combine_callback = 0;
}
break;
case GLU_TESS_EDGE_FLAG:
case GLU_TESS_EDGE_FLAG_DATA:
if (tess->edgeFlag_callback) {
SvREFCNT_dec(tess->edgeFlag_callback);
tess->edgeFlag_callback = 0;
}
break;
}
if (items > 2) {
SV * callback;
if (SvPOK(ST(2))
&& sv_eq(ST(2), sv_2mortal(newSVpv("DEFAULT", 0)))) {
callback = newSViv(1);
switch (which) {
case GLU_TESS_BEGIN_DATA:
which = GLU_TESS_BEGIN; break;
case GLU_TESS_END_DATA:
which = GLU_TESS_END; break;
case GLU_TESS_ERROR_DATA:
which = GLU_TESS_ERROR; break;
case GLU_TESS_EDGE_FLAG_DATA:
which = GLU_TESS_EDGE_FLAG; break;
case GLU_TESS_VERTEX:
which = GLU_TESS_VERTEX_DATA; break; /* vertex data handler has less overhead and both pass opaque pointers anyway */
}
} else if (!SvROK(ST(2)) || SvTYPE(SvRV(ST(2))) != SVt_PVCV) {
croak("3rd argument to gluTessCallback must be a perl code ref");
} else {
callback = newSVsv(ST(2));
}
switch (which) {
case GLU_TESS_BEGIN:
tess->begin_callback = callback;
gluTessCallback(tess->triangulator, GLU_TESS_BEGIN_DATA, (void (CALLBACK*)()) _s_marshal_glu_t_callback_begin);
break;
case GLU_TESS_BEGIN_DATA:
tess->begin_callback = callback;
gluTessCallback(tess->triangulator, GLU_TESS_BEGIN_DATA, (void (CALLBACK*)()) _s_marshal_glu_t_callback_begin_data);
break;
case GLU_TESS_END:
tess->end_callback = callback;
gluTessCallback(tess->triangulator, GLU_TESS_END_DATA, (void (CALLBACK*)()) _s_marshal_glu_t_callback_end);
break;
case GLU_TESS_END_DATA:
tess->end_callback = callback;
gluTessCallback(tess->triangulator, GLU_TESS_END_DATA, (void (CALLBACK*)()) _s_marshal_glu_t_callback_end_data);
break;
case GLU_TESS_VERTEX:
tess->use_vertex_data = TRUE;
tess->vertex_callback = callback;
gluTessCallback(tess->triangulator, GLU_TESS_VERTEX, (void (CALLBACK*)()) _s_marshal_glu_t_callback_vertex);
break;
case GLU_TESS_VERTEX_DATA:
tess->use_vertex_data = FALSE;
tess->vertex_callback = callback;
gluTessCallback(tess->triangulator, GLU_TESS_VERTEX_DATA, (void (CALLBACK*)()) _s_marshal_glu_t_callback_vertex_data);
break;
case GLU_TESS_ERROR:
tess->error_callback = callback;
gluTessCallback(tess->triangulator, GLU_TESS_ERROR_DATA, (void (CALLBACK*)()) _s_marshal_glu_t_callback_error);
break;
case GLU_TESS_ERROR_DATA:
tess->error_callback = callback;
gluTessCallback(tess->triangulator, GLU_TESS_ERROR_DATA, (void (CALLBACK*)()) _s_marshal_glu_t_callback_error_data);
break;
case GLU_TESS_COMBINE:
case GLU_TESS_COMBINE_DATA:
tess->combine_callback = callback;
gluTessCallback(tess->triangulator, GLU_TESS_COMBINE_DATA, (void (CALLBACK*)()) _s_marshal_glu_t_callback_combine);
break;
case GLU_TESS_EDGE_FLAG:
tess->edgeFlag_callback = callback;
gluTessCallback(tess->triangulator, GLU_TESS_EDGE_FLAG_DATA, (void (CALLBACK*)()) _s_marshal_glu_t_callback_edgeFlag);
break;
case GLU_TESS_EDGE_FLAG_DATA:
tess->edgeFlag_callback = callback;
gluTessCallback(tess->triangulator, GLU_TESS_EDGE_FLAG_DATA, (void (CALLBACK*)()) _s_marshal_glu_t_callback_edgeFlag_data);
break;
}
}
}
#endif
#// gluTessVertex(tess, x, y, z);
void
gluTessVertex_p(tess, x, y, z, ...)
PGLUtess * tess
GLdouble x
GLdouble y
GLdouble z
CODE:
{
int i;
int j = 3;
AV * vds = tess->vertex_datas;
int size = 3 + (tess->do_colors ? 4 : 0) + (tess->do_normals ? 3 : 0);
GLdouble* data = malloc(sizeof(GLdouble) * size);
if (!vds) croak("Missing vertex data storage during gluTessVertex");
if (data == NULL) croak("Couldn't allocate vertex during gluTessVertex");
data[0] = x;
data[1] = y;
data[2] = z;
av_push(vds, newSViv(PTR2IV(data))); /* store for freeing later */
if (tess->do_colors) {
int J = j + 4;
if (tess->do_normals) {
if (items != 12 && items != 11) croak("gluTessVertex_p(tess, x,y,z, r,g,b,a, nx,ny,nz [,polygon_data])");
} else {
if (items != 9 && items != 8 ) croak("gluTessVertex_p(tess, x,y,z, r,g,b,a [,polygon_data])");
}
for ( ; j < J; j++) data[j] = (GLdouble)SvNV(ST(j+1));
} else {
if (tess->do_normals) {
if (items != 8 && items != 7) croak("gluTessVertex_p(tess, x,y,z, nx,ny,nz [,polygon_data])");
} else {
if (items != 5 && items != 4) croak("gluTessVertex_p(tess, x,y,z [,polygon_data])");
}
}
if (tess->do_normals) {
int J = j + 3;
for ( ; j < J; j++) data[j] = (GLdouble)SvNV(ST(j+1));
}
( run in 2.236 seconds using v1.01-cache-2.11-cpan-39bf76dae61 )