ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/DC/Texture.pm
(Generate patch)

Comparing deliantra/Deliantra-Client/DC/Texture.pm (file contents):
Revision 1.23 by root, Tue Jul 24 01:24:27 2007 UTC vs.
Revision 1.30 by root, Wed Dec 26 20:46:39 2007 UTC

1=head1 NAME 1=head1 NAME
2 2
3CFPlus::Texture - tetxure class for CFPlus 3dc::Texture - tetxure class for CFPlus
4 4
5=head1 SYNOPSIS 5=head1 SYNOPSIS
6 6
7 use CFPlus::Texture; 7 use dc::Texture;
8 8
9=head1 DESCRIPTION 9=head1 DESCRIPTION
10 10
11=over 4 11=over 4
12 12
13=cut 13=cut
14 14
15package CFPlus::Texture; 15package dc::Texture;
16 16
17use strict; 17use strict;
18 18
19use List::Util qw(max min); 19use List::Util qw(max min);
20use CFPlus::OpenGL; 20use dc::OpenGL;
21 21
22my %TEXTURES; 22my %TEXTURES;
23my ($MAX_W, $MAX_H) = (4096, 4096); # maximum texture size attempted by this module 23my ($MAX_W, $MAX_H) = (4096, 4096); # maximum texture size attempted by this module
24 24
25sub new { 25sub new {
30 format => GL_RGBA, 30 format => GL_RGBA,
31 type => GL_UNSIGNED_BYTE, 31 type => GL_UNSIGNED_BYTE,
32 %data, 32 %data,
33 }, $class; 33 }, $class;
34 34
35 CFPlus::weaken ($TEXTURES{$self+0} = $self); 35 dc::weaken ($TEXTURES{$self+0} = $self);
36 36
37 $self->upload; 37 $self->upload
38 unless delete $self->{delay};
38 39
39 $self 40 $self
40} 41}
41 42
42sub new_from_image { 43sub new_from_image {
43 my ($class, $image, %arg) = @_; 44 my ($class, $image, %arg) = @_;
44 45
46 Carp::confess "tried to create texture from undefined image"
47 unless defined $image;
48
45 $class->new (image => $image, internalformat => undef, %arg) 49 $class->new (image => $image, internalformat => undef, %arg)
46} 50}
51
47 52
48sub new_from_file { 53sub new_from_file {
49 my ($class, $path, %arg) = @_; 54 my ($class, $path, %arg) = @_;
50 55
51 open my $fh, "<:raw", $path 56 open my $fh, "<:raw", $path
87 my ($class, $w, $h, $cb) = @_; 92 my ($class, $w, $h, $cb) = @_;
88 93
89 $class->new (w => $w || 1, h => $h || 1, render_cb => $cb, nearest => 1) 94 $class->new (w => $w || 1, h => $h || 1, render_cb => $cb, nearest => 1)
90} 95}
91 96
97sub loading_done($$) {
98 my ($self, $data) = @_;
99
100 delete $self->{loading};
101 ++$self->{delete_image};
102 $self->{image} = $data;
103 $self->upload;
104}
105
92sub upload { 106sub upload {
93 my ($self) = @_; 107 my ($self, $cb) = @_;
94 108
109 push @{ $self->{upload_done} }, $cb
110 if $cb;
111
112 return if $self->{loading};
113
95 return unless $GL_VERSION; 114 unless ($GL_VERSION) {
96 115 $self->{want_upload} = -1;
97 # $tw,$th texture 116 return;
98 # $rw,$rh rendered/used size
99 # $dw,$dh $data
100
101 my ($data, $dw, $dh);
102
103 if (exists $self->{data}) {
104 $data = $self->{data};
105 ($dw, $dh) = @$self{qw(w h)};
106
107 } elsif (exists $self->{render_cb}) {
108 ($dw, $dh) = @$self{qw(w h)};
109
110 } else {
111 ($self->{w}, $self->{h}, $data, my $internalformat, $self->{format}, $self->{type})
112 = CFPlus::load_image_inline $self->{image};
113
114 $self->{internalformat} ||= $internalformat;
115 ($dw, $dh) = @$self{qw(w h)};
116 } 117 }
117 118
119 unless ($self->{name}) {
120 # $tw,$th texture
121 # $rw,$rh rendered/used size
122 # $dw,$dh $data
123
124 my ($data, $dw, $dh);
125
126 if (defined $self->{data}) {
127 $data = $self->{data};
128 ($dw, $dh) = @$self{qw(w h)};
129
130 } elsif ($self->{render_cb}) {
131 ($dw, $dh) = @$self{qw(w h)};
132
133 } elsif (defined $self->{image}) {
134 ($self->{w}, $self->{h}, $data, my $internalformat, $self->{format}, $self->{type})
135 = dc::load_image_inline $self->{image};
136
137 $self->{internalformat} ||= $internalformat;
138 ($dw, $dh) = @$self{qw(w h)};
139
140 delete $self->{image} if delete $self->{delete_image};
141
142 } elsif (defined $self->{tile}) {
143 ++$self->{loading};
144 return dc::DB::get tilecache => $self->{tile}, sub {
145 $self->loading_done ($_[0]);
146 };
147
148 } elsif (defined $self->{path}) {
149 ++$self->{loading};
150 return dc::DB::read_file $self->{path}, sub {
151 $self->loading_done ($_[0]);
152 };
153
154 } else {
155 Carp::confess "tried to create texture that is not data, render or image";
156 }
157
118 my ($tw, $th) = ($dw, $dh); 158 my ($tw, $th) = ($dw, $dh);
119 159
120 defined $data or $self->{render_cb} or die; # some sanity check 160 defined $data or $self->{render_cb} or die; # some sanity check
121 161
122 $self->{minified} ||= [CFPlus::average $dw, $dh, $data] 162 $self->{minified} ||= [dc::average $dw, $dh, $data]
123 if $self->{minify}; 163 if $self->{minify};
124 164
125 # against rather broken cards we enforce a maximum texture size 165 # against rather broken cards we enforce a maximum texture size
126 $tw = min $MAX_W, minpot $tw; 166 $tw = min $MAX_W, $tw;
127 $th = min $MAX_H, minpot $th; 167 $th = min $MAX_H, $th;
128 168
129 # if only pot-textures are allowed, pot'ify tw/th 169 # if only pot-textures are allowed, pot'ify tw/th
130 unless ($GL_NPOT && 0) {#d# 170 unless ($GL_NPOT) {
131 $tw = minpot $tw; 171 $tw = dc::minpot $tw;
132 $th = minpot $th; 172 $th = dc::minpot $th;
133 } 173 }
134 174
135 # now further decrease texture size until the 175 # now further decrease texture size until the
136 # card does accept it 176 # card does accept it
137 while (!texture_valid_2d $self->{internalformat}, $tw, $th, $self->{format}, $self->{type}) { 177 while (!texture_valid_2d $self->{internalformat}, $tw, $th, $self->{format}, $self->{type}) {
138 # quarter the texture size 178 # quarter the texture size
139 $tw >>= 1; 179 $tw >>= 1;
140 $th >>= 1; 180 $th >>= 1;
141 } 181 }
142 182
143 # decide the amount of space used in the texture 183 # decide the amount of space used in the texture
144 my ($rw, $rh); 184 my ($rw, $rh);
145 my ($ox, $oy); # area shift to lessen effetc of buggy opengl implementations (nvida, ati) 185 my ($ox, $oy); # area shift to lessen effetc of buggy opengl implementations (nvida, ati)
146 my $render; 186 my $render;
147 187
148 if ($self->{render_cb}) { 188 if ($self->{render_cb}) {
149 # use only part of the texture 189 # use only part of the texture
150 #$rw >>= 1 while $rw > $tw; 190 #$rw >>= 1 while $rw > $tw;
151 #$rh >>= 1 while $rh > $th; 191 #$rh >>= 1 while $rh > $th;
152 $rw = min $dw, $tw; 192 $rw = min $dw, $tw;
153 $rh = min $dh, $th; 193 $rh = min $dh, $th;
154 ++$render;
155 } else {
156 if ($self->{wrap} || $tw < $dw || $th < $dh) {
157 # scale to the full texture size
158 ($rw, $rh) = ($tw, $th);
159 ++$render; 194 ++$render;
160 } else { 195 } else {
196 if ($self->{wrap} || $tw < $dw || $th < $dh) {
197 # scale to the full texture size
198 ($rw, $rh) = ($tw, $th);
199 ++$render;
200 } else {
161 # pad 201 # pad
162 pad $data, $dw, $dh, $tw, $th; 202 pad $data, $dw, $dh, $tw, $th;
163 ($rw, $rh) = ($dw, $dh); 203 ($rw, $rh) = ($dw, $dh);
164 ($dw, $dh) = ($tw, $th); 204 ($dw, $dh) = ($tw, $th);
165 } 205 }
166 } 206 }
167 207
168 if ($render) { 208 if ($render) {
169 $ox = int .5 * ($::WIDTH - $rw); 209 $ox = int .5 * ($::WIDTH - $rw);
170 $oy = int .5 * ($::HEIGHT - $rh); 210 $oy = int .5 * ($::HEIGHT - $rh);
171 211
172 glViewport $ox, $oy, $tw, $th; 212 glViewport $ox, $oy, $tw, $th;
173 #glScissor 0, 0, $tw, $th; 213 #glScissor 0, 0, $tw, $th;
174 #glEnable GL_SCISSOR_TEST; 214 #glEnable GL_SCISSOR_TEST;
175 glMatrixMode GL_PROJECTION; 215 glMatrixMode GL_PROJECTION;
176 glLoadIdentity; 216 glLoadIdentity;
177 glOrtho 0, $tw, 0, $th, -10000, 10000; 217 glOrtho 0, $tw, 0, $th, -10000, 10000;
178 glMatrixMode GL_MODELVIEW; 218 glMatrixMode GL_MODELVIEW;
179 glLoadIdentity; 219 glLoadIdentity;
180 220
181 if ($self->{render_cb}) { 221 if ($self->{render_cb}) {
182 glScale $rw / $dw, $rh / $dh; 222 glScale $rw / $dw, $rh / $dh;
183 $self->{render_cb}->($self, $rw, $rh); 223 $self->{render_cb}->($self, $rw, $rh);
184 } else { 224 } else {
185 glClearColor 0, 0, 0, 0; 225 glClearColor 0, 0, 0, 0;
186 glClear GL_COLOR_BUFFER_BIT; 226 glClear GL_COLOR_BUFFER_BIT;
187 glPixelZoom $tw / $dw, $th / $dh; 227 glPixelZoom $tw / $dw, $th / $dh;
188 glRasterPos 0, 0; 228 glRasterPos 0, 0;
189 glDrawPixels $dw, $dh, 229 glDrawPixels $dw, $dh,
230 $self->{format},
231 $self->{type},
232 $data;
233 glPixelZoom 1, 1;
234 }
235 }
236
237 if ((my $name = delete $self->{want_upload}) > 0) {
238 $self->{name} = $name;
239 }
240
241 glBindTexture GL_TEXTURE_2D, $self->{name} ||= glGenTexture;
242
243 if ($self->{wrap}) {
244 glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT;
245 glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT;
246 } else {
247 glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, $GL_VERSION >= 1.2 ? GL_CLAMP_TO_EDGE : GL_CLAMP;
248 glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, $GL_VERSION >= 1.2 ? GL_CLAMP_TO_EDGE : GL_CLAMP;
249 }
250
251 if ($::FAST || $self->{nearest}) {
252 glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST;
253 glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST;
254 } elsif ($self->{mipmap} && $GL_VERSION >= 1.4) {
255 glTexParameter GL_TEXTURE_2D, GL_GENERATE_MIPMAP, 1;
256 glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR;
257 glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR_MIPMAP_LINEAR;
258 } else {
259 glTexParameter GL_TEXTURE_2D, GL_GENERATE_MIPMAP, $self->{mipmap};
260 glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR;
261 glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR;
262 }
263
264 glGetError;
265
266 if ($render) {
267 glCopyTexImage2D GL_TEXTURE_2D, 0,
268 $self->{internalformat},
269 $ox, $oy,
270 $tw, $th,
271 0;
272 gl_check "copying to texture %dx%d if=%x",
273 $tw, $th, $self->{internalformat};
274
275 #glDisable GL_SCISSOR_TEST;
276 } else {
277 my $if = $self->{internalformat};
278
279 if ($GL_COMPRESS && $::CFG->{texture_compression}) {
280 if ($if == GL_RGB) {
281 $if = GL_COMPRESSED_RGB_ARB;
282 } elsif ($if == GL_RGBA) {
283 $if = GL_COMPRESSED_RGBA_ARB;
284 }
285 }
286
287 glTexImage2D GL_TEXTURE_2D, 0,
288 $if,
289 $dw, $dh,
290 0,
190 $self->{format}, 291 $self->{format},
191 $self->{type}, 292 $self->{type},
192 $data; 293 $data;
193 glPixelZoom 1, 1; 294 gl_check "uploading texture %dx%d if=%x f=%x t=%x",
295 $tw, $th, $self->{internalformat}, $self->{format}, $self->{type};
296 }
297
298 $self->{s} = $rw / $tw;
299 $self->{t} = $rh / $th;
300
301 if ($self->{tile}) {
302 $::MAP->set_texture ($self->{tile}, @$self{qw(name w h s t)}, @{$self->{minified}})
303 if $::MAP;
304 $::MAPWIDGET->update
305 if $::MAPWIDGET;
194 } 306 }
195 } 307 }
196 308
197 glBindTexture GL_TEXTURE_2D, $self->{name} ||= glGenTexture; 309 $_->($self)
198 310 for @{ (delete $self->{upload_done}) || [] };
199 if ($self->{wrap}) {
200 glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT;
201 glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT;
202 } else {
203 glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, $GL_VERSION >= 1.2 ? GL_CLAMP_TO_EDGE : GL_CLAMP;
204 glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, $GL_VERSION >= 1.2 ? GL_CLAMP_TO_EDGE : GL_CLAMP;
205 }
206
207 if ($::FAST || $self->{nearest}) {
208 glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST;
209 glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST;
210 } elsif ($self->{mipmap} && $GL_VERSION >= 1.4) {
211 glTexParameter GL_TEXTURE_2D, GL_GENERATE_MIPMAP, 1;
212 glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR;
213 glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR_MIPMAP_LINEAR;
214 } else {
215 glTexParameter GL_TEXTURE_2D, GL_GENERATE_MIPMAP, $self->{mipmap};
216 glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR;
217 glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR;
218 }
219
220 glGetError;
221
222 if ($render) {
223 glCopyTexImage2D GL_TEXTURE_2D, 0,
224 $self->{internalformat},
225 $ox, $oy,
226 $tw, $th,
227 0;
228 gl_check "copying to texture %dx%d if=%x",
229 $tw, $th, $self->{internalformat};
230
231 #glDisable GL_SCISSOR_TEST;
232 } else {
233 glTexImage2D GL_TEXTURE_2D, 0,
234 $self->{internalformat},
235 $dw, $dh,
236 0,
237 $self->{format},
238 $self->{type},
239 $data;
240 gl_check "uploading texture %dx%d if=%x f=%x t=%x",
241 $tw, $th, $self->{internalformat}, $self->{format}, $self->{type};
242 }
243
244 $self->{s} = $rw / $tw;
245 $self->{t} = $rh / $th;
246} 311}
247 312
248sub shutdown { 313sub unload {
249 my ($self) = @_; 314 my ($self) = @_;
250 315
251 glDeleteTexture $self->{name} 316 glDeleteTexture delete $self->{name}
252 if $self->{name}; 317 if $self->{name};
253} 318}
254 319
255sub DESTROY { 320sub DESTROY {
256 my ($self) = @_; 321 my ($self) = @_;
257 322
258 delete $TEXTURES{$self+0}; 323 delete $TEXTURES{$self+0};
259 324
260 $self->shutdown; 325 $self->unload;
261} 326}
262 327
263$CFPlus::OpenGL::INIT_HOOK{"CFPlus::Texture"} = sub { 328$dc::OpenGL::INIT_HOOK{"dc::Texture"} = sub {
264 # first mark all existing texture names as in-use, in case the context lost textures
265 glBindTexture GL_TEXTURE_2D, $_->{name}
266 for values %TEXTURES; 329 for (values %TEXTURES) {
267 $_->upload 330 $_->upload if $_->{want_upload};
268 for values %TEXTURES; 331 }
269}; 332};
270 333
271$CFPlus::OpenGL::SHUTDOWN_HOOK{"CFPlus::Texture"} = sub { 334$dc::OpenGL::SHUTDOWN_HOOK{"dc::Texture"} = sub {
272 $_->shutdown
273 for values %TEXTURES; 335 for (values %TEXTURES) {
336 next unless $_->{name};
337 $_->{want_upload} = $_->{name};
338 $_->unload;
339 }
274}; 340};
275 341
2761; 3421;
277 343
278=back 344=back

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines