--- deliantra/Deliantra-Client/DC/MapWidget.pm	2006/04/19 23:43:07	1.5
+++ deliantra/Deliantra-Client/DC/MapWidget.pm	2006/04/20 08:11:57	1.6
@@ -139,8 +139,12 @@
          # HACK BEGIN
          {
            glTranslate -($sx0 - 32), -($sy0 - 32), 0;#remove
+
+           glTranslate 0, 30;
            my ($w, $h) = (250, 250);
 
+           my ($ox, $oy) = ($::MAP->ox, $::MAP->oy);
+
            glEnable GL_BLEND;
            glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;
            glEnable GL_TEXTURE_2D;
@@ -150,12 +154,23 @@
               new CFClient::Texture
                  w    => $w,
                  h    => $h,
-                 data => $::MAP->mapmap ($w, $h),
+                 data => $::MAP->mapmap (- $w * 0.5, - $h * 0.5, $w, $h),
                  type => $CFClient::GL_VERSION >= 1.2 ? GL_UNSIGNED_INT_8_8_8_8_REV : GL_UNSIGNED_BYTE;
 
-           $self->{mapmap_texture}->draw_quad (100, 100);
+           $self->{mapmap_texture}->draw_quad (0, 0);
 
            glDisable GL_TEXTURE_2D;
+
+           glTranslate 0.375, 0.375;
+
+           glColor 1, 1, 0, 1;
+           glBegin GL_LINE_LOOP;
+           glVertex $w * 0.5 - $sx      , $h * 0.5 - $sy      ;
+           glVertex $w * 0.5 - $sx      , $h * 0.5 - $sy + $sh;
+           glVertex $w * 0.5 - $sx + $sw, $h * 0.5 - $sy + $sh;
+           glVertex $w * 0.5 - $sx + $sw, $h * 0.5 - $sy      ;
+           glEnd;
+           
            glDisable GL_BLEND;
          }
          # HACK END