| … | |
… | |
| 183 | $th >>= 1; |
183 | $th >>= 1; |
| 184 | } |
184 | } |
| 185 | |
185 | |
| 186 | # decide the amount of space used in the texture |
186 | # decide the amount of space used in the texture |
| 187 | my ($rw, $rh); |
187 | my ($rw, $rh); |
| 188 | my ($ox, $oy); # area shift to lessen effetc of buggy opengl implementations (nvida, ati) |
188 | my ($ox, $oy); # area shift to lessen effect of buggy opengl implementations (nvida, ati) |
| 189 | my $render; |
189 | my $render; |
| 190 | |
190 | |
| 191 | if ($self->{render_cb}) { |
191 | if ($self->{render_cb}) { |
| 192 | # use only part of the texture |
192 | # use only part of the texture |
| 193 | #$rw >>= 1 while $rw > $tw; |
193 | #$rw >>= 1 while $rw > $tw; |
