summaryrefslogtreecommitdiffstats
path: root/PerlQt/examples/opengl
diff options
context:
space:
mode:
Diffstat (limited to 'PerlQt/examples/opengl')
-rw-r--r--PerlQt/examples/opengl/README12
-rw-r--r--PerlQt/examples/opengl/box/GLBox.pm149
-rw-r--r--PerlQt/examples/opengl/box/glbox90
-rw-r--r--PerlQt/examples/opengl/gear/gear267
4 files changed, 0 insertions, 518 deletions
diff --git a/PerlQt/examples/opengl/README b/PerlQt/examples/opengl/README
deleted file mode 100644
index 7e2f174..0000000
--- a/PerlQt/examples/opengl/README
+++ /dev/null
@@ -1,12 +0,0 @@
-Before you can run the OpenGL examples, you need to install
-the OpenGL module available on CPAN (http://www.cpan.org)
-
-Latest version is 0.54, as of 09/11/02
-
-Both Smoke and TQt must also have been compiled with OpenGL support.
-
-If your TQt library has OpenGL support but PerlTQt complains about lacking
- methods or classes, check ./configure's config.log file for any
-error that might have occured while detecting your OpenGL settings.
-
-You might also want to check if OpenGL is properly installed on your system.
diff --git a/PerlQt/examples/opengl/box/GLBox.pm b/PerlQt/examples/opengl/box/GLBox.pm
deleted file mode 100644
index 1c6ceb8..0000000
--- a/PerlQt/examples/opengl/box/GLBox.pm
+++ /dev/null
@@ -1,149 +0,0 @@
-package GLBox;
-
-use OpenGL qw(:all);
-
-use strict;
-
-use TQt;
-use TQt::isa qw(TQt::GLWidget);
-use TQt::slots
- setXRotation => ['int'],
- setYRotation => ['int'],
- setZRotation => ['int'];
-use TQt::attributes qw(
- xRot
- yRot
- zRot
- scale
- object
- list
-);
-
-sub NEW {
- shift->SUPER::NEW(@_);
- xRot = yRot = zRot = 0.0;
- scale = 1.25;
- object = undef;
-}
-
-sub paintGL
-{
- glClear( GL_COLOR_BUFFER_BIT );
- glClear( GL_DEPTH_BUFFER_BIT );
-
- glLoadIdentity();
- glTranslatef( 0.0, 0.0, -10.0 );
- glScalef( scale, scale, scale );
-
- glRotatef( xRot, 1.0, 0.0, 0.0 );
- glRotatef( yRot, 0.0, 1.0, 0.0 );
- glRotatef( zRot, 0.0, 0.0, 1.0 );
-
- glCallList( object );
-}
-
-sub initializeGL
-{
- qglClearColor( &black ); # Let OpenGL clear to black
- object = makeObject(); # Generate an OpenGL display list
- glShadeModel( GL_FLAT );
- glEnable( GL_DEPTH_TEST );
-}
-
-# Set up the OpenGL view port, matrix mode, etc.
-
-sub resizeGL
-{
- my $w = shift;
- my $h = shift;
- glViewport( 0, 0, $w, $h );
- glMatrixMode( GL_PROJECTION );
- glLoadIdentity();
- glFrustum( -1.0, 1.0, -1.0, 1.0, 5.0, 15.0 );
- glMatrixMode( GL_MODELVIEW );
-}
-
-# Generate an OpenGL display list for the object to be shown, i.e. the box
-
-sub makeObject
-{
- my $list = glGenLists( 1 );
-
- glNewList( $list, GL_COMPILE );
-
- qglColor( &darkGreen ); # Shorthand for glColor3f or glIndex
-
- glLineWidth( 2.0 );
-
- glBegin( GL_TQUADS );
- glVertex3f( 1.0, 0.5, -0.4 );
- glVertex3f( 1.0, -0.5, -0.4 );
- glVertex3f( -1.0, -0.5, -0.4 );
- glVertex3f( -1.0, 0.5, -0.4 );
- glEnd();
-
- qglColor( &blue );
-
- glBegin( GL_TQUADS );
- glVertex3f( 1.0, 0.5, 0.4 );
- glVertex3f( 1.0, -0.5, 0.4 );
- glVertex3f( -1.0, -0.5, 0.4 );
- glVertex3f( -1.0, 0.5, 0.4 );
- glEnd();
-
- qglColor( &darkRed );
-
- glBegin( GL_TQUAD_STRIP );
- glVertex3f( 1.0, 0.5, -0.4 ); glVertex3f( 1.0, 0.5, 0.4 );
- glVertex3f( 1.0, -0.5, -0.4 ); glVertex3f( 1.0, -0.5, 0.4 );
- qglColor( &yellow );
- glVertex3f( -1.0, -0.5, -0.4 ); glVertex3f( -1.0, -0.5, 0.4 );
- qglColor( &green );
- glVertex3f( -1.0, 0.5, -0.4 ); glVertex3f( -1.0, 0.5, 0.4 );
- qglColor( &lightGray );
- glVertex3f( 1.0, 0.5, -0.4 ); glVertex3f( 1.0, 0.5, 0.4 );
- glEnd();
-
- glEndList();
-
- return $list;
-}
-
-
-
-# Set the rotation angle of the object to \e degrees around the X axis.
-
-sub setXRotation
-{
- my $deg = shift;
- xRot = $deg % 360;
- updateGL();
-}
-
-
-# Set the rotation angle of the object to \e degrees around the Y axis.
-
-sub setYRotation
-{
- my $deg = shift;
- yRot = $deg % 360;
- updateGL();
-}
-
-
-# Set the rotation angle of the object to \e degrees around the Z axis.
-
-sub setZRotation
-{
- my $deg = shift;
- zRot = $deg % 360;
- updateGL();
-}
-
-sub DESTROY
-{
-# makeCurrent();
- glDeleteLists( object, 1 );
-}
-
-1;
diff --git a/PerlQt/examples/opengl/box/glbox b/PerlQt/examples/opengl/box/glbox
deleted file mode 100644
index fed74a3..0000000
--- a/PerlQt/examples/opengl/box/glbox
+++ /dev/null
@@ -1,90 +0,0 @@
-
-package GLObjectWindow;
-
-use strict;
-
-use TQt;
-use TQt::isa qw(TQt::Widget);
-use TQt::attributes qw(
- file
- frame
- menu
- box
- xpos
- ypos
- zpos
-);
-
-use GLBox;
-
-sub NEW
-{
- shift->SUPER::NEW(@_);
-
- # Create a menu
- file = TQt::PopupMenu( this );
- file->insertItem( "Exit", TQt::app(), TQT_SLOT 'quit()', TQt::KeySequence(int &CTRL + &Key_Q ));
-
- # Create a menu bar
- menu = TQt::MenuBar( this );
- menu->setSeparator( &TQt::MenuBar::InWindowsStyle );
- menu->insertItem("&File", file );
-
- # Create a nice frame to put around the OpenGL widget
- frame = TQt::Frame( this, "frame" );
- frame->setFrameStyle( &TQt::Frame::Sunken | &TQt::Frame::Panel );
- frame->setLineWidth( 2 );
-
- # Create our OpenGL widget
- box = GLBox( frame, "glbox");
-
- # Create the three sliders; one for each rotation axis
- xpos = TQt::Slider ( 0, 360, 60, 0, &TQt::Slider::Vertical, this, "xsl" );
- xpos->setTickmarks( &TQt::Slider::Left );
- TQt::Object::connect( xpos, TQT_SIGNAL 'valueChanged(int)', box, TQT_SLOT 'setXRotation(int)' );
-
- ypos = TQt::Slider ( 0, 360, 60, 0, &TQt::Slider::Vertical, this, "ysl" );
- ypos->setTickmarks( &TQt::Slider::Left );
- TQt::Object::connect( ypos, TQT_SIGNAL 'valueChanged(int)', box, TQT_SLOT 'setYRotation(int)' );
-
- zpos = TQt::Slider ( 0, 360, 60, 0, &TQt::Slider::Vertical, this, "zsl" );
- zpos->setTickmarks( &TQt::Slider::Left );
- TQt::Object::connect( zpos, TQT_SIGNAL 'valueChanged(int)', box, TQT_SLOT 'setZRotation(int)' );
-
-
- # Now that we have all the widgets, put them into a nice layout
-
- # Put the sliders on top of each other
- my $vlayout = TQt::VBoxLayout( 20, "vlayout");
- $vlayout->addWidget( xpos );
- $vlayout->addWidget( ypos );
- $vlayout->addWidget( zpos );
-
- # Put the GL widget inside the frame
- my $flayout = TQt::HBoxLayout( frame, 2, 2, "flayout");
- $flayout->addWidget( box, 1 );
-
- # Top level layout, puts the sliders to the left of the frame/GL widget
- my $hlayout = TQt::HBoxLayout( this, 20, 20, "hlayout");
- $hlayout->setMenuBar( menu );
- $hlayout->addLayout( $vlayout );
- $hlayout->addWidget( frame, 1 );
-}
-
-1;
-
-package main;
-
-use TQt;
-use GLObjectWindow;
-
-my $a = TQt::Application(\@ARGV);
-
-my $w = GLObjectWindow;
-$w->resize(350,350);
-$w->show;
-
-$a->setMainWidget( $w);
-
-exit $a->exec;
-
diff --git a/PerlQt/examples/opengl/gear/gear b/PerlQt/examples/opengl/gear/gear
deleted file mode 100644
index d9e4c8a..0000000
--- a/PerlQt/examples/opengl/gear/gear
+++ /dev/null
@@ -1,267 +0,0 @@
-#!/usr/bin/perl -w
-#
-# Draws a gear.
-#
-# This code is originally from TQt-1.44, by Troll Tech
-#
-# Portions of this code have been borrowed from Brian Paul's Mesa
-# distribution.
-#
-
-package GearWidget;
-use OpenGL qw(:all);
-
-use TQt;
-use TQt::attributes qw(
- gear1
- gear2
- gear3
- view_rotx
- view_roty
- view_rotz
- angle
-);
-
-use TQt::isa qw(TQt::GLWidget);
-
-#
-# Draw a gear wheel. You'll probably want to call this function when
-# building a display list since we do a lot of trig here.
-#
-# Input: inner_radius - radius of hole at center
-# outer_radius - radius at center of teeth
-# width - width of gear
-# teeth - number of teeth
-# tooth_depth - depth of tooth
-#
-
-sub gear {
- my($inner_radius, $outer_radius, $width, $teeth, $tooth_depth) = @_;
- my $i;
- my($r0, $r1, $r2);
- my($angle, $da);
- my($u, $v, $len);
-
- $r0 = $inner_radius;
- $r1 = $outer_radius - $tooth_depth/2.0;
- $r2 = $outer_radius + $tooth_depth/2.0;
-
- my $pi = 3.141592654;
- $da = 2.0*$pi / $teeth / 4.0;
-
- glShadeModel(GL_FLAT);
-
- glNormal3f(0.0, 0.0, 1.0);
-
- # draw front face
- glBegin(GL_TQUAD_STRIP);
- for $i (0 .. $teeth) {
- $angle = $i * 2.0*$pi / $teeth;
- glVertex3f($r0*cos($angle), $r0*sin($angle), $width*0.5);
- glVertex3f($r1*cos($angle), $r1*sin($angle), $width*0.5);
- glVertex3f($r0*cos($angle), $r0*sin($angle), $width*0.5);
- glVertex3f($r1*cos($angle+3*$da), $r1*sin($angle+3*$da), $width*0.5);
- }
- glEnd();
-
- # draw front sides of teeth
- glBegin(GL_TQUADS);
- $da = 2.0*$pi / $teeth / 4.0;
- for $i (0 .. $teeth-1) {
- $angle = $i * 2.0*$pi / $teeth;
-
- glVertex3f($r1*cos($angle), $r1*sin($angle), $width*0.5);
- glVertex3f($r2*cos($angle+$da), $r2*sin($angle+$da), $width*0.5);
- glVertex3f($r2*cos($angle+2*$da), $r2*sin($angle+2*$da), $width*0.5);
- glVertex3f($r1*cos($angle+3*$da), $r1*sin($angle+3*$da), $width*0.5);
- }
- glEnd();
-
-
- glNormal3f(0.0, 0.0, -1.0);
-
- # draw back face
- glBegin(GL_TQUAD_STRIP);
- for $i (0 .. $teeth) {
- $angle = $i * 2.0*$pi / $teeth;
- glVertex3f($r1*cos($angle), $r1*sin($angle), -$width*0.5);
- glVertex3f($r0*cos($angle), $r0*sin($angle), -$width*0.5);
- glVertex3f($r1*cos($angle+3*$da), $r1*sin($angle+3*$da), -$width*0.5);
- glVertex3f($r0*cos($angle), $r0*sin($angle), -$width*0.5);
- }
- glEnd();
-
- # draw back sides of teeth
- glBegin(GL_TQUADS);
- $da = 2.0*$pi / $teeth / 4.0;
- for $i (0 .. $teeth-1) {
- $angle = $i * 2.0*$pi / $teeth;
-
- glVertex3f($r1*cos($angle+3*$da), $r1*sin($angle+3*$da), -$width*0.5);
- glVertex3f($r2*cos($angle+2*$da), $r2*sin($angle+2*$da), -$width*0.5);
- glVertex3f($r2*cos($angle+$da), $r2*sin($angle+$da), -$width*0.5);
- glVertex3f($r1*cos($angle), $r1*sin($angle), -$width*0.5);
- }
- glEnd();
-
- # draw outward faces of teeth
- glBegin(GL_TQUAD_STRIP);
- for $i (0 .. $teeth-1) {
- $angle = $i * 2.0*$pi / $teeth;
-
- glVertex3f($r1*cos($angle), $r1*sin($angle), $width*0.5);
- glVertex3f($r1*cos($angle), $r1*sin($angle), -$width*0.5);
- $u = $r2*cos($angle+$da) - $r1*cos($angle);
- $v = $r2*sin($angle+$da) - $r1*sin($angle);
- $len = sqrt($u*$u + $v*$v);
- $u /= $len;
- $v /= $len;
- glNormal3f($v, -$u, 0.0);
- glVertex3f($r2*cos($angle+$da), $r2*sin($angle+$da), $width*0.5);
- glVertex3f($r2*cos($angle+$da), $r2*sin($angle+$da), -$width*0.5);
- glNormal3f(cos($angle), sin($angle), 0.0);
- glVertex3f($r2*cos($angle+2*$da), $r2*sin($angle+2*$da), $width*0.5);
- glVertex3f($r2*cos($angle+2*$da), $r2*sin($angle+2*$da), -$width*0.5);
- $u = $r1*cos($angle+3*$da) - $r2*cos($angle+2*$da);
- $v = $r1*sin($angle+3*$da) - $r2*sin($angle+2*$da);
- glNormal3f($v, -$u, 0.0);
- glVertex3f($r1*cos($angle+3*$da), $r1*sin($angle+3*$da), $width*0.5);
- glVertex3f($r1*cos($angle+3*$da), $r1*sin($angle+3*$da), -$width*0.5);
- glNormal3f(cos($angle), sin($angle), 0.0);
- }
-
- glVertex3f($r1*cos(0.0), $r1*sin(0.0), $width*0.5);
- glVertex3f($r1*cos(0.0), $r1*sin(0.0), -$width*0.5);
-
- glEnd();
-
-
- glShadeModel(GL_SMOOTH);
-
- # draw inside radius cylinder
- glBegin(GL_TQUAD_STRIP);
- for $i (0 .. $teeth) {
- $angle = $i * 2.0*$pi / $teeth;
- glNormal3f(-cos($angle), -sin($angle), 0.0);
- glVertex3f($r0*cos($angle), $r0*sin($angle), -$width*0.5);
- glVertex3f($r0*cos($angle), $r0*sin($angle), $width*0.5);
- }
- glEnd();
-}
-
-
-
-sub draw {
- angle += 2.0;
- view_roty += 1.0;
-
- glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);
-
- glPushMatrix();
- glRotatef(view_rotx, 1.0, 0.0, 0.0);
- glRotatef(view_roty, 0.0, 1.0, 0.0);
- glRotatef(view_rotz, 0.0, 0.0, 1.0);
-
- glPushMatrix();
- glTranslatef(-3.0, -2.0, 0.0);
- glRotatef(angle, 0.0, 0.0, 1.0);
- glCallList(gear1);
- glPopMatrix();
-
- glPushMatrix();
- glTranslatef(3.1, -2.0, 0.0);
- glRotatef(-2.0*angle-9.0, 0.0, 0.0, 1.0);
- glCallList(gear2);
- glPopMatrix();
-
- glPushMatrix();
- glTranslatef(-3.1, 2.2, -1.8);
- glRotatef(90.0, 1.0, 0.0, 0.0);
- glRotatef(2.0*angle-2.0, 0.0, 0.0, 1.0);
- glCallList(gear3);
- glPopMatrix();
-
- glPopMatrix();
-}
-
-sub NEW {
- shift->SUPER::NEW(@_);
- this->startTimer(10);
- view_rotx = 20.0;
- view_roty = 30.0;
- view_rotz = 0.0;
- angle = 0.0;
-}
-
-sub initializeGL {
- my $pos = [ 5.0, 5.0, 10.0, 1.0 ];
- my $red = [ 0.8, 0.1, 0.0, 1.0 ];
- my $green = [ 0.0, 0.8, 0.2, 1.0 ];
- my $blue = [ 0.2, 0.2, 1.0, 1.0 ];
-
- glLightfv_p(GL_LIGHT0, GL_POSITION, @$pos);
- glEnable(GL_CULL_FACE);
- glEnable(GL_LIGHTING);
- glEnable(GL_LIGHT0);
- glEnable(GL_DEPTH_TEST);
-
- # make the gears
- gear1 = glGenLists(1);
- glNewList(gear1, GL_COMPILE);
- glMaterialfv_p(GL_FRONT, GL_AMBIENT_AND_DIFFUSE, @$red);
- gear(1.0, 4.0, 1.0, 20, 0.7);
- glEndList();
-
- gear2 = glGenLists(1);
- glNewList(gear2, GL_COMPILE);
- glMaterialfv_p(GL_FRONT, GL_AMBIENT_AND_DIFFUSE, @$green);
- gear(0.5, 2.0, 2.0, 10, 0.7);
- glEndList();
-
- gear3 = glGenLists(1);
- glNewList(gear3, GL_COMPILE);
- glMaterialfv_p(GL_FRONT, GL_AMBIENT_AND_DIFFUSE, @$blue);
- gear(1.3, 2.0, 0.5, 10, 0.7);
- glEndList();
-
- glEnable(GL_NORMALIZE);
-}
-
-sub resizeGL {
- my($width, $height) = @_;
- my $w = $width / $height;
- my $h = 1.0;
-
- glViewport(0, 0, $width, $height);
- glMatrixMode(GL_PROJECTION);
- glLoadIdentity();
- glFrustum(-$w, $w, -$h, $h, 5.0, 60.0);
- glMatrixMode(GL_MODELVIEW);
- glLoadIdentity();
- glTranslatef(0.0, 0.0, -40.0);
-}
-
-sub paintGL {
- draw();
-}
-
-sub timerEvent {
- updateGL();
-}
-
-package main;
-
-use TQt;
-use GearWidget;
-
-$app = TQt::Application(\@ARGV);
-
-if(!TQt::GLFormat::hasOpenGL()) {
- warn("This system has no OpenGL support. Exiting.");
- exit -1;
-}
-
-$w = GearWidget;
-$app->setMainWidget($w);
-$w->show;
-exit $app->exec;
generated by cgit v1.2.1 (git 2.18.0) at 2025-02-20 22:54:54 +0000