X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSDL%2FOpenGL.pm;h=ec61c7c2ab7c98ad14abc4bb42d6f7e5ee87124c;hb=896b04ee008898e1c1edbdd432bedaa8643400dc;hp=cf8ef334f414196a9e8d521e0e782561a7d7aa4b;hpb=b3cdeb39a431b026168c4060bf74001fcee07493;p=sdlgit%2FSDL_perl.git

diff --git a/lib/SDL/OpenGL.pm b/lib/SDL/OpenGL.pm
index cf8ef33..ec61c7c 100644
--- a/lib/SDL/OpenGL.pm
+++ b/lib/SDL/OpenGL.pm
@@ -64,73 +64,3 @@ sub import {
 
 1;
 
-__END__;
-
-=pod
-
-
-
-=head1 NAME
-
-SDL::OpenGL - a perl extension
-
-=head1 DESCRIPTION
-
-L<SDL::OpenGL> is a perl module which when used by your application
-exports the gl* and glu* functions into your application's primary namespace.
-Most of the functions described in the OpenGL 1.3 specification are currently
-supported in this fashion.  As the implementation of the OpenGL bindings that
-comes with SDL_perl is largely type agnositic, there is no need to decline
-the function names in the fashion that is done in the C API. For example,
-glVertex3d is simply glVertex, and perl just does the right thing with regards
-to types.
-
-=head1 CAVEATS
-
-The following methods work different in Perl than in C:
-
-=over 2
-
-=item glCallLists
-
-        glCallLists(@array_of_numbers);
-
-Unlike the C function, which get's passed a count, a type and a list of
-numbers, the Perl equivalent only takes a list of numbers.
-
-Note that this is slow, since it needs to allocate memory and construct a
-list of numbers from the given scalars. For a faster version see
-L<glCallListsString>.
-
-=back
-
-The following methods exist in addition to the normal OpenGL specification:
-
-=over 2
-
-=item glCallListsString
-
-        glCallListsString($string);
-
-Works like L<glCallLists()>, except that it needs only one parameter, a scalar
-holding a string. The string is interpreted as a set of bytes, and each of
-these will be passed to glCallLists as GL_BYTE. This is faster than
-glCallLists, so you might want to pack your data like this:
-
-        my $lists = pack("C", @array_of_numbers);
-
-And later use it like this:
-
-        glCallListsString($lists);
-
-=back
-
-=head1 AUTHOR
-
-David J. Goehrig
-
-=head1 SEE ALSO
-
-L<perl> L<SDL::App>
-
-=cut