Deliantra-Client/DC/Texture.pm

=head1 NAME

CFPlus::Texture - tetxure class for CFPlus

=head1 SYNOPSIS

 use CFPlus::Texture;

=head1 DESCRIPTION

=over 4

=cut

package CFPlus::Texture;

use strict;

use List::Util qw(max min);
use CFPlus::OpenGL;

my %TEXTURES;
my ($MAX_W, $MAX_H) = (4096, 4096); # maximum texture size attempted by this module

sub new {
   my ($class, %data) = @_;

   my $self = bless {
      internalformat => GL_RGBA,
      format         => GL_RGBA,
      type           => GL_UNSIGNED_BYTE,
      %data,
   }, $class;

   CFPlus::weaken ($TEXTURES{$self+0} = $self);

   $self->upload
      unless delete $self->{delay};

   $self
}

sub new_from_image {
   my ($class, $image, %arg) = @_;

   Carp::confess "tried to create texture from undefined image"
      unless defined $image;

   $class->new (image => $image, internalformat => undef, %arg)
}


sub new_from_file {
   my ($class, $path, %arg) = @_;

   open my $fh, "<:raw", $path
      or die "$path: $!";

   local $/;
   $class->new_from_image (<$fh>, %arg)
}

#sub new_from_surface {
#   my ($class, $surface) = @_;
#
#   $surface->rgba;
#
#   $class->new (
#      data   => $surface->pixels,
#      w      => $surface->width,
#      h      => $surface->height,
#   )
#}

#sub new_from_layout {
#   my ($class, $layout, %arg) = @_;
#
#   my ($w, $h, $data, $format, $internalformat) = $layout->render;
#
#   $class->new (
#      w              => $w,
#      h              => $h,
#      data           => $data,
#      format         => $format,
#      internalformat => $format,
#      type           => GL_UNSIGNED_BYTE,
#      %arg,
#   )
#}

sub new_from_opengl {
   my ($class, $w, $h, $cb) = @_;

   $class->new (w => $w || 1, h => $h || 1, render_cb => $cb, nearest => 1)
}

sub loading_done($$) {
   my ($self, $data) = @_;

   delete $self->{loading};
   ++$self->{delete_image};
   $self->{image} = $data;
   $self->upload;
}

sub upload {
   my ($self, $cb) = @_;

   push @{ $self->{upload_done} }, $cb
      if $cb;

   return if $self->{loading};

   unless ($GL_VERSION) {
      $self->{was_loaded} = 1;
      return;
   }

   unless ($self->{name}) {
      # $tw,$th texture
      # $rw,$rh rendered/used size
      # $dw,$dh $data

      my ($data, $dw, $dh);

      if (exists $self->{data}) {
         $data = $self->{data};
         ($dw, $dh) = @$self{qw(w h)};

      } elsif (exists $self->{render_cb}) {
         ($dw, $dh) = @$self{qw(w h)};

      } elsif (exists $self->{image}) {
         ($self->{w}, $self->{h}, $data, my $internalformat, $self->{format}, $self->{type})
            = CFPlus::load_image_inline $self->{image};

         $self->{internalformat} ||= $internalformat;
         ($dw, $dh) = @$self{qw(w h)};
         
         delete $self->{image} if delete $self->{delete_image};

      } elsif (exists $self->{tile}) {
         ++$self->{loading};
         return CFPlus::DB::get tilecache => $self->{tile}, sub {
            $self->loading_done ($_[0]);

            $::MAP->set_texture ($self->{tile}, @$self{qw(name w h s t)}, @{$self->{minified}})
               if $::MAP;
            $::MAPWIDGET->update
               if $::MAPWIDGET;
         };

      } elsif (exists $self->{path}) {
         ++$self->{loading};
         return CFPlus::DB::read_file $self->{path}, sub {
            $self->loading_done ($_[0]);
         };

      } else {
         Carp::confess "tried to create texture that is not data, render or image";
      }

      my ($tw, $th) = ($dw, $dh);

      defined $data or $self->{render_cb} or die; # some sanity check

      $self->{minified} ||= [CFPlus::average $dw, $dh, $data]
         if $self->{minify};

      # against rather broken cards we enforce a maximum texture size
      $tw = min $MAX_W, minpot $tw;
      $th = min $MAX_H, minpot $th;

      # if only pot-textures are allowed, pot'ify tw/th
      unless ($GL_NPOT && 0) {#d#
         $tw = minpot $tw;
         $th = minpot $th;
      }

      # now further decrease texture size until the
      # card does accept it
      while (!texture_valid_2d $self->{internalformat}, $tw, $th, $self->{format}, $self->{type}) {
         # quarter the texture size
         $tw >>= 1;
         $th >>= 1;
      }

      # decide the amount of space used in the texture
      my ($rw, $rh);
      my ($ox, $oy); # area shift to lessen effetc of buggy opengl implementations (nvida, ati)
      my $render;

      if ($self->{render_cb}) {
         # use only part of the texture
         #$rw >>= 1 while $rw > $tw;
         #$rh >>= 1 while $rh > $th;
         $rw = min $dw, $tw;
         $rh = min $dh, $th;
         ++$render;
      } else {
         if ($self->{wrap} || $tw < $dw || $th < $dh) {
            # scale to the full texture size
            ($rw, $rh) = ($tw, $th);
            ++$render;
         } else {
            # pad
            pad $data, $dw, $dh, $tw, $th;
            ($rw, $rh) = ($dw, $dh);
            ($dw, $dh) = ($tw, $th);
         }
      }

      if ($render) {
         $ox = int .5 * ($::WIDTH  - $rw);
         $oy = int .5 * ($::HEIGHT - $rh);

         glViewport $ox, $oy, $tw, $th;
         #glScissor 0, 0, $tw, $th;
         #glEnable GL_SCISSOR_TEST;
         glMatrixMode GL_PROJECTION;
         glLoadIdentity;
         glOrtho 0, $tw, 0, $th, -10000, 10000;
         glMatrixMode GL_MODELVIEW;
         glLoadIdentity;

         if ($self->{render_cb}) {
            glScale $rw / $dw, $rh / $dh;
            $self->{render_cb}->($self, $rw, $rh);
         } else {
            glClearColor 0, 0, 0, 0;
            glClear GL_COLOR_BUFFER_BIT;
            glPixelZoom $tw / $dw, $th / $dh;
            glRasterPos 0, 0;
            glDrawPixels $dw, $dh,
                         $self->{format},
                         $self->{type},
                         $data;
            glPixelZoom 1, 1;
         }
      }

      glBindTexture GL_TEXTURE_2D, $self->{name} ||= glGenTexture;

      if ($self->{wrap}) {
         glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT;
         glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT;
      } else {
         glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, $GL_VERSION >= 1.2 ? GL_CLAMP_TO_EDGE : GL_CLAMP;
         glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, $GL_VERSION >= 1.2 ? GL_CLAMP_TO_EDGE : GL_CLAMP;
      }

      if ($::FAST || $self->{nearest}) {
         glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST;
         glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST;
      } elsif ($self->{mipmap} && $GL_VERSION >= 1.4) {
         glTexParameter GL_TEXTURE_2D, GL_GENERATE_MIPMAP, 1;
         glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR;
         glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR_MIPMAP_LINEAR;
      } else {
         glTexParameter GL_TEXTURE_2D, GL_GENERATE_MIPMAP, $self->{mipmap};
         glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR;
         glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR;
      }
      
      glGetError;

      if ($render) {
         glCopyTexImage2D GL_TEXTURE_2D, 0,
                      $self->{internalformat},
                      $ox, $oy,
                      $tw, $th,
                      0;
         gl_check "copying to texture %dx%d if=%x",
                  $tw, $th, $self->{internalformat};

         #glDisable GL_SCISSOR_TEST;
      } else {
         my $if = $self->{internalformat};

         if ($GL_COMPRESS && $::CFG->{texture_compression}) {
            if ($if == GL_RGB) {
               $if = GL_COMPRESSED_RGB_ARB;
            } elsif ($if == GL_RGBA) {
               $if = GL_COMPRESSED_RGBA_ARB;
            }
         }

         glTexImage2D GL_TEXTURE_2D, 0,
                      $if,
                      $dw, $dh,
                      0,
                      $self->{format},
                      $self->{type},
                      $data;
         gl_check "uploading texture %dx%d if=%x f=%x t=%x",
                  $tw, $th, $self->{internalformat},  $self->{format}, $self->{type};
      }

      $self->{s} = $rw / $tw;
      $self->{t} = $rh / $th;
   }

   $_->($self)
      for @{ (delete $self->{upload_done}) || [] };
}

sub unload {
   my ($self) = @_;

   glDeleteTexture delete $self->{name}
      if $self->{name};
} 

sub DESTROY {
   my ($self) = @_;

   delete $TEXTURES{$self+0};

   $self->unload;
}

$CFPlus::OpenGL::INIT_HOOK{"CFPlus::Texture"} = sub {
   for (values %TEXTURES) {
      next unless delete $_->{was_loaded};
      $_->upload;
   }
};

$CFPlus::OpenGL::SHUTDOWN_HOOK{"CFPlus::Texture"} = sub {
   for (values %TEXTURES) {
      next unless $_->{name};
      $_->{was_loaded} = 1;
      $_->unload;
   }
};

1;

=back

=head1 AUTHOR

 Marc Lehmann <schmorp@schmorp.de>
 http://home.schmorp.de/

=cut

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