[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/DC.pm

Comparing deliantra/Deliantra-Client/DC.pm (file contents):
Revision 1.9 by elmex, Sat Apr 8 16:34:46 2006 UTC vs.
Revision 1.12 by root, Sat Apr 8 18:48:34 2006 UTC

 }
 sub new_from_opengl {
    my ($class, $w, $h, $cb) = @_;
-   $class->_new (width => $w, height => $h, render => $cb)
+   $class->_new (width => $w, height => $h, rendercb => $cb)
 }
 sub upload {
    my ($self) = @_;
    if (exists $self->{data}) {
       $data = $self->{data};
    } elsif (exists $self->{rendercb}) {
       glViewport 0, 0, $self->{width}, $self->{height};
+      glMatrixMode GL_PROJECTION;
+      glLoadIdentity;
+      glOrtho 0, $self->{width}, $self->{height}, 0, -100, 100;
+      glMatrixMode GL_MODELVIEW;
+      glPushmatrix;
+      glLoadIdentity;
       glClear GL_COLOR_BUFFER_BIT;
       $self->{rendercb}->($self, $self->{width}, $self->{height});
    } else {
       my $pb = new Gtk2::Gdk::PixbufLoader;
                    0,
                    GL_RGBA,
                    GL_UNSIGNED_BYTE,
                    $data;
    } else {
+      warn "I{DTEDRAW TEX: $self->{width} $self->{height} \n";
+      warn "ERR: ". (glGetError). "\n";
+      my ($bd, $br) = (glGet (GL_DRAW_BUFFER), glGet (GL_READ_BUFFER));
+      warn "BUF:[$bd $br]\n";
       glCopyTexImage2D GL_TEXTURE_2D, 0,
                    GL_RGBA8,
                    0, 0,
                    $self->{width}, $self->{height},
                    0;
+      glPopmatrix;
+      warn "ERR: ". (glGetError). "\n";
+      sleep 1;
    }
 }
 sub DESTROY {
    my ($self) = @_;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines