OpenGL 0.5 - Perl module to display 3D data using OpenGL, GLU, GLUT, and GLX
use OpenGL; # exports most of the old functionality of OpenGL 0.4
use OpenGL qw(old); # Same thing
use OpenGL qw(glfunctions glconstants); # exports functions and
# constants for using OpenGL, without exporting GLU, GLUT,
# or GLX stuff.
use OpenGL qw(all); # exports all new functionality, without the OpenGL
# 0.4 compatibility functions
Virtually all of the OpenGL 1.0, and 1.1 functions are available, and most of 1.2. In general, the calling sequence is identical in Perl as in C.
Primary author of version 0.5 is Kenneth Albanowski <kjahds@kjahds.com>, other authors include Stan Melax and Cass Everitt.
Derived from Stan's OpenGL 0.4, with pinches of Cass Everitt's OpenGL work.
%EXPORT_TAGS = ('constants' => \@constants, 'functions' => \@functions, 'all' => \@EXPORT_OK, 'old' => \@EXPORT, 'glconstants' => \@gl_const, 'gluconstants' => \@glu_const, 'glutconstants' => \@glut_const, 'glxconstants' => \@glx_const, 'glfunctions' => \@gl_func, 'glufunctions' => \@glu_func, 'glutfunctions' => \@glut_func, 'glxfunctions' => \@glx_func, );
Invoke with two strings of sufficient length for the buffer arguments.
This routine requires GL 1.1.
Invoke with two OpenGL::Arrays of sufficient length for the array arguments.
This routine requires GL 1.1.
Invoke with a list of numbers (texture IDs). The return value is an integer, saying whether
all textures were resident, and if they aren't, a list with a boolean value for each
texture ID.
This routine requires GL 1.1.
This routine requires GL 1.1.
This routine requires GL 1.1.
package OpenGL;
# Copyright (c) 1998,1999 Kenneth Albanowski. All rights reserved. # This program is free software; you can redistribute it and/or # modify it under the same terms as Perl itself.
require Exporter; require DynaLoader;
use Carp;
$VERSION = '0.5';
@ISA = qw(Exporter AutoLoader DynaLoader);
