=**************************************
= Name: OpenGL
= Description:This code is to show you that you can do OpenGL in Perl this example was done by a friend of mine called: Jenkins
= By: Damian myerscough
=
= Returns:Graphics
=
= Assumes:Installing OpenGL
=
=This code is copyrighted and has= limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=474&lngWId=6=for details.=**************************************
#! /usr/bin/perl -w
#
# This was coded By; Jenkins a friend of mine the reason
# I uploaded this was to get the perl section live again ;)
# Hope you enjoy this.
#
#
#
use OpenGL qw(:all); # Use the OpenGL module
use strict;# Use strict typechecking
use constant ESCAPE => 27;
my $window;
my $rtri = 0.0;
my $rquad = 0.0;
sub InitGL {
my ($width, $height) = @_;
glClearColor(0.0, 0.0, 0.0, 0.0);
glClearDepth(1.0);
glDepthFunc(GL_LESS);
glEnable(GL_DEPTH_TEST);
glShadeModel(GL_SMOOTH);
glMatrixMode(GL_PROJECTION);
glLoadIdentity;
gluPerspective(45.0, $width/$height, 0.1, 100.0);
glMatrixMode(GL_MODELVIEW);
}
sub ReSizeGLScene {
my ($width, $height) = @_;
if ($height == 0) { $height = 1; }
glViewport(0, 0, $width, $height);
glMatrixMode(GL_PROJECTION);
glLoadIdentity;
gluPerspective(45.0, $width/$height, 0.1, 100.0);
glMatrixMode(GL_MODELVIEW);
}
sub DrawGLScene {
glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);
glLoadIdentity;
# dont worry about this stuff below its just the dimentions of the objects and the nice gradient affects that it has
glTranslatef(-1.5, 0.0, -6.0);
glRotatef($rtri, 0.0, 1.0, 0.0);
glBegin(GL_POLYGON);
glColor3f(1.0, 0.0, 0.0);
glVertex3f(0.0, 1.0, 0.0);
glColor3f(0.0, 1.0, 0.0);
glVertex3f(-1.0, -1.0, 1.0);
glColor3f(0.0, 0.0, 1.0);
glVertex3f(1.0, -1.0, 1.0);
glColor3f(1.0, 0.0, 0.0);
glVertex3f(0.0, 1.0, 0.0);
glColor3f(0.0, 0.0, 1.0);
glVertex3f(1.0, -1.0, 1.0);
glColor3f(0.0, 1.0, 0.0);
glVertex3f(1.0, -1.0, -1.0);
glColor3f(1.0, 0.0, 0.0);
glVertex3f(0.0, 1.0, 0.0);
glColor3f(0.0, 1.0, 0.0);
glVertex3f(1.0, -1.0, -1.0);
glColor3f(0.0, 0.0, 1.0);
glVertex3f(-1.0, -1.0, -1.0);
glColor3f(1.0, 0.0, 0.0);
glVertex3f(0.0, 1.0, 0.0);
glColor3f(0.0, 0.0, 1.0);
glVertex3f(-1.0, -1.0, -1.0);
glColor3f(0.0, 1.0, 0.0);
glVertex3f(-1.0, -1.0, 1.0);
glEnd;
glLoadIdentity;
glTranslatef(1.5, 0.0, -6.0);
glRotatef($rquad, 1.0, 1.0, 1.0);
glColor3f(0.5, 0.5, 1.0);
glBegin(GL_QUADS);
glColor3f(0.0, 1.0, 0.0);
glVertex3f(1.0, 1.0, -1.0);
glVertex3f(-1.0, 1.0, -1.0);
glVertex3f(-1.0, 1.0, 1.0);
glVertex3f(1.0, 1.0, 1.0);
glColor3f(1.0, 0.5, 0.0);
glVertex3f(1.0, -1.0, 1.0);
glVertex3f(-1.0, -1.0, 1.0);
glVertex3f(-1.0, -1.0, -1.0);
glVertex3f( 1.0, -1.0, -1.0);
glColor3f(1.0, 0.0, 0.0);
glVertex3f(1.0, 1.0, 1.0);
glVertex3f(-1.0, 1.0, 1.0);
glVertex3f(-1.0, -1.0, 1.0);
glVertex3f(1.0, -1.0, 1.0);
glColor3f(1.0, 1.0, 0.0);
glVertex3f(1.0, -1.0, -1.0);
glVertex3f(-1.0, -1.0, -1.0);
glVertex3f(-1.0, 1.0, -1.0);
glVertex3f(1.0, 1.0, -1.0);
glColor3f(0.0, 0.0, 1.0);
glVertex3f(-1.0, 1.0, 1.0);
glVertex3f(-1.0, 1.0, -1.0);
glVertex3f(-1.0, -1.0, -1.0);
glVertex3f(-1.0, -1.0, 1.0);
glColor3f(1.0, 0.0, 1.0);
glVertex3f(1.0, 1.0, -1.0);
glVertex3f(1.0, 1.0, 1.0);
glVertex3f(1.0, -1.0, 1.0);
glVertex3f(1.0, -1.0, -1.0);
glEnd;
$rtri = $rtri + 15.0;
$rquad = $rquad - 15.0;
glutSwapBuffers;
}
sub keyPressed {
my ($key, $x, $y) = @_;
sleep(100);
if ($key == ord('f')) {
glutReshapeWindow(640, 480);
}
if ($key == ESCAPE)
{
glutDestroyWindow($window);
exit(0);
}
}
glutInit;
glutInitDisplayMode(GLUT_RGB | GLUT_DOUBLE | GLUT_DEPTH);
glutInitWindowSize(640, 480);
glutInitWindowPosition(0, 0);
$window = glutCreateWindow("Perl's OpenGL");
glutDisplayFunc(\&DrawGLScene);
glutFullScreen;
glutIdleFunc(\&DrawGLScene);
glutReshapeFunc(\&ReSizeGLScene);
glutKeyboardFunc(\&keyPressed);
InitGL(640, 480);
glutMainLoop;
return 1;
|
