"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Graphics/TriD/OpenGLQ/openglq.pd" between
PDL-2.082.tar.gz and PDL-2.083.tar.gz

About: PDL (Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).

openglq.pd  (PDL-2.082)	:	openglq.pd  (PDL-2.083)
skipping to change at line 123		skipping to change at line 123
if ( !$COMP(in_glut) ) {		if ( !$COMP(in_glut) ) {
glPushAttrib(GL_LIST_BIT);		glPushAttrib(GL_LIST_BIT);
glListBase($COMP(base));		glListBase($COMP(base));
}		}
loop(x) %{		loop(x) %{
SV *elem = *(av_fetch(arr, x, 0));		SV *elem = *(av_fetch(arr, x, 0));
if (!elem) continue;		if (!elem) continue;
char *str = SvPV_nolen(elem);		char *str = SvPV_nolen(elem);
'.RPOS().'		'.RPOS().'
if ( $COMP(in_glut) )		if ( $COMP(in_glut) )
glutBitmapString((void *)$COMP(base), str);		glutBitmapString((void *)$COMP(base), (unsigned c har *)str);
else		else
glCallLists(strlen(str),GL_UNSIGNED_BYTE,		glCallLists(strlen(str),GL_UNSIGNED_BYTE,
(GLubyte*)str);		(GLubyte*)str);
%}		%}
if ( !$COMP(in_glut) )		if ( !$COMP(in_glut) )
glPopAttrib();		glPopAttrib();
',		',
@internal		@internal
);		);
End of changes. 1 change blocks.
1 lines changed or deleted		1 lines changed or added

---