2 files changed, 239 insertions, 0 deletions
diff --git a/PerlQt/examples/opengl/box/GLBox.pm b/PerlQt/examples/opengl/box/GLBox.pm
new file mode 100644
index 0000000..dd6ceb9
--- /dev/null
+++ b/PerlQt/examples/opengl/box/GLBox.pm
@@ -0,0 +1,149 @@
+package GLBox;
+
+use OpenGL qw(:all);
+
+use strict;
+
+use Qt;
+use Qt::isa qw(Qt::GLWidget);
+use Qt::slots 
+    setXRotation => ['int'],
+    setYRotation => ['int'],
+    setZRotation => ['int'];
+use Qt::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_QUADS );
+    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_QUADS );
+    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_QUAD_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
new file mode 100644
index 0000000..613a274
--- /dev/null
+++ b/PerlQt/examples/opengl/box/glbox
@@ -0,0 +1,90 @@
+
+package GLObjectWindow;
+
+use strict;
+
+use Qt;
+use Qt::isa qw(Qt::Widget);          
+use Qt::attributes qw(
+    file
+    frame
+    menu
+    box
+    xpos
+    ypos
+    zpos
+);
+
+use GLBox;
+
+sub NEW
+{
+    shift->SUPER::NEW(@_);
+
+    # Create a menu
+    file = Qt::PopupMenu( this );
+    file->insertItem( "Exit",  Qt::app(), SLOT 'quit()', Qt::KeySequence(int &CTRL + &Key_Q ));
+
+    # Create a menu bar
+    menu = Qt::MenuBar( this );
+    menu->setSeparator( &Qt::MenuBar::InWindowsStyle );
+    menu->insertItem("&File", file );
+
+    # Create a nice frame to put around the OpenGL widget
+    frame = Qt::Frame( this, "frame" );
+    frame->setFrameStyle( &Qt::Frame::Sunken | &Qt::Frame::Panel );
+    frame->setLineWidth( 2 );
+
+    # Create our OpenGL widget
+    box = GLBox( frame, "glbox");
+
+    # Create the three sliders; one for each rotation axis
+    xpos = Qt::Slider ( 0, 360, 60, 0, &Qt::Slider::Vertical, this, "xsl" );
+    xpos->setTickmarks( &Qt::Slider::Left );
+    Qt::Object::connect( xpos, SIGNAL 'valueChanged(int)', box, SLOT 'setXRotation(int)' );
+
+    ypos = Qt::Slider ( 0, 360, 60, 0, &Qt::Slider::Vertical, this, "ysl" );
+    ypos->setTickmarks( &Qt::Slider::Left );
+    Qt::Object::connect( ypos, SIGNAL 'valueChanged(int)', box, SLOT 'setYRotation(int)' );
+
+    zpos = Qt::Slider ( 0, 360, 60, 0, &Qt::Slider::Vertical, this, "zsl" );
+    zpos->setTickmarks( &Qt::Slider::Left );
+    Qt::Object::connect( zpos, SIGNAL 'valueChanged(int)', box, 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 = Qt::VBoxLayout( 20, "vlayout");
+    $vlayout->addWidget( xpos );
+    $vlayout->addWidget( ypos );
+    $vlayout->addWidget( zpos );
+
+    # Put the GL widget inside the frame
+    my $flayout = Qt::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 = Qt::HBoxLayout( this, 20, 20, "hlayout");
+    $hlayout->setMenuBar( menu );
+    $hlayout->addLayout( $vlayout );
+    $hlayout->addWidget( frame, 1 );
+}
+
+1;
+
+package main;
+
+use Qt;
+use GLObjectWindow;
+
+my $a = Qt::Application(\@ARGV);
+
+my $w = GLObjectWindow;
+$w->resize(350,350);
+$w->show;
+
+$a->setMainWidget( $w);
+
+exit $a->exec;
+