Skip Menu |
 

This queue is for tickets about the SDL_perl CPAN distribution.

Report information
The Basics
Id: 25598
Status: resolved
Priority: 0/
Queue: SDL_perl

People
Owner: Nobody in particular
Requestors: justice8 [...] wanadoo.fr
Cc:
AdminCc:

Bug Information
Severity: Wishlist
Broken in: 2.1.3
Fixed in: (no value)



Subject: [PATCH] add support for gluquadric* sub
Download (untitled) / with headers
text/plain 312b
Hi, this is a little patch to add quadratic missing subs gluNewQuadric, gluDeleteQuadric, gluQuadricNormals, gluQuadricTexture, gluCylinder, gluDisk, gluSphere and gluPartialDisk An exemple is included (lesson 18 from Nehe OpenGL series). Note: this example may not work properly for SDL_perl < 2.* . Regards.
Subject: gluquadrics.diff
Download gluquadrics.diff
text/x-diff 1.5k
--- typemap.orig 2007-03-21 13:20:53.408981059 +0100 +++ typemap 2007-03-21 13:21:49.012456059 +0100 @@ -54,10 +54,13 @@ GLUnurbsObj * T_PTR GLUtesselator * T_PTR GLuint T_UV +GLint T_IV GLint* T_PTR float * T_PTR float T_NV GLfloat T_NV +GLUquadric * T_PTR +GLdouble T_NV Sound_DecoderInfo * T_PTR const Sound_DecoderInfo * T_PTR Sound_Sample * T_PTR --- src/OpenGL.xs.orig 2007-03-21 13:21:00.857446559 +0100 +++ src/OpenGL.xs 2007-03-21 13:23:52.864196309 +0100 @@ -1,4 +1,4 @@ -// SDL::OpenGL +/ SDL::OpenGL // // Copyright (C) 2002,2003,2004 David J. Goehrig @@ -2705,5 +2705,60 @@ #endif +GLUquadric * +gluNewQuadric () + CODE: + RETVAL = gluNewQuadric (); + OUTPUT: + RETVAL + +void +gluDeleteQuadric (quad) + GLUquadric *quad + +void +gluQuadricNormals ( quad, normal ) + GLUquadric *quad + GLenum normal + +void +gluQuadricTexture ( quad, texture ) + GLUquadric *quad + GLboolean texture + +void +gluCylinder ( quad, base, top, height, slices, stacks ) + GLUquadric *quad + GLdouble base + GLdouble top + GLdouble height + GLint slices + GLint stacks + +void +gluDisk ( quad, inner, outer, slices, loops ) + GLUquadric *quad + GLdouble inner + GLdouble outer + GLint slices + GLint loops + +void +gluPartialDisk ( quad, inner, outer, slices, loops, start, sweep ) + GLUquadric *quad + GLdouble inner + GLdouble outer + GLint slices + GLint loops + GLdouble start + GLdouble sweep + +void +gluSphere ( quad, radius, slices, stacks ) + GLUquadric *quad + GLdouble radius + GLint slices + GLint stacks + #endif
Subject: lesson18-sdl.gz
Download lesson18-sdl.gz
application/x-gzip 3.1k

Message body not shown because it is not plain text.



This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.