… | |
… | |
1494 | my $h1 = $self->{h} - $ycut * $self->{h}; |
1494 | my $h1 = $self->{h} - $ycut * $self->{h}; |
1495 | my $h2 = $ycut * $self->{h}; |
1495 | my $h2 = $ycut * $self->{h}; |
1496 | |
1496 | |
1497 | my $yp = 0; |
1497 | my $yp = 0; |
1498 | |
1498 | |
1499 | glBindTexture (GL_TEXTURE_2D, $t1->{name}); |
1499 | glBindTexture GL_TEXTURE_2D, $t1->{name}; |
1500 | glBegin (GL_QUADS); |
1500 | glBegin GL_QUADS; |
1501 | glTexCoord (0, 0); glVertex (0 , $yp); |
1501 | glTexCoord 0 , 0; glVertex 0 , $yp; |
1502 | glTexCoord (0, (1 - $ycut)); glVertex (0 , $yp + $h1); |
1502 | glTexCoord 0 , $t1->{t} * (1 - $ycut); glVertex 0 , $yp + $h1; |
1503 | glTexCoord (1, (1 - $ycut)); glVertex (0 + $w, $yp + $h1); |
1503 | glTexCoord $t1->{s}, $t1->{t} * (1 - $ycut); glVertex 0 + $w, $yp + $h1; |
1504 | glTexCoord (1, 0); glVertex (0 + $w, $yp); |
1504 | glTexCoord $t1->{s}, 0; glVertex 0 + $w, $yp; |
1505 | glEnd (); |
1505 | glEnd; |
1506 | |
1506 | |
1507 | $yp += $h1; |
1507 | $yp += $h1; |
1508 | |
1508 | |
1509 | glBindTexture (GL_TEXTURE_2D, $t2->{name}); |
1509 | glBindTexture GL_TEXTURE_2D, $t2->{name}; |
1510 | glBegin (GL_QUADS); |
1510 | glBegin GL_QUADS; |
1511 | glTexCoord (0, (1 - $ycut)); glVertex (0 , $yp); |
1511 | glTexCoord 0 , $t2->{t} * (1 - $ycut); glVertex 0 , $yp; |
1512 | glTexCoord (0, 1); glVertex (0 , $yp + $h2); |
1512 | glTexCoord 0 , $t2->{t}; glVertex 0 , $yp + $h2; |
1513 | glTexCoord (1, 1); glVertex (0 + $w, $yp + $h2); |
1513 | glTexCoord $t2->{s}, $t2->{t}; glVertex 0 + $w, $yp + $h2; |
1514 | glTexCoord (1, (1 - $ycut)); glVertex (0 + $w, $yp); |
1514 | glTexCoord $t2->{s}, $t2->{t} * (1 - $ycut); glVertex 0 + $w, $yp; |
1515 | glEnd (); |
1515 | glEnd; |
1516 | |
1516 | |
1517 | glDisable GL_BLEND; |
1517 | glDisable GL_BLEND; |
1518 | glDisable GL_TEXTURE_2D; |
1518 | glDisable GL_TEXTURE_2D; |
1519 | } |
1519 | } |
1520 | |
1520 | |
… | |
… | |
1913 | glTranslate $sx0 - 32, $sy0 - 32, 0; |
1913 | glTranslate $sx0 - 32, $sy0 - 32, 0; |
1914 | |
1914 | |
1915 | my ($w, $h, $data) = $::MAP->draw ($sx, $sy, 0, 0, $sw + 1, $sh + 1); |
1915 | my ($w, $h, $data) = $::MAP->draw ($sx, $sy, 0, 0, $sw + 1, $sh + 1); |
1916 | |
1916 | |
1917 | if ($::CFG->{fow_enable}) { |
1917 | if ($::CFG->{fow_enable}) { |
1918 | if ($::CFG->{fow_smooth}) { # smooth fog of war |
1918 | if ($::CFG->{fow_smooth} && $CFClient::GL_VERSION >= 1.2) { # smooth fog of war |
1919 | glConvolutionParameter (GL_CONVOLUTION_2D, GL_CONVOLUTION_BORDER_MODE, GL_CONSTANT_BORDER); |
1919 | glConvolutionParameter (GL_CONVOLUTION_2D, GL_CONVOLUTION_BORDER_MODE, GL_CONSTANT_BORDER); |
1920 | glConvolutionFilter2D ( |
1920 | glConvolutionFilter2D ( |
1921 | GL_CONVOLUTION_2D, |
1921 | GL_CONVOLUTION_2D, |
1922 | GL_ALPHA, |
1922 | GL_ALPHA, |
1923 | 3, 3, |
1923 | 3, 3, |