[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/DC/Texture.pm

Comparing deliantra/Deliantra-Client/DC/Texture.pm (file contents):
Revision 1.20 by root, Thu Jul 19 22:38:53 2007 UTC vs.
Revision 1.37 by root, Sun Nov 15 19:05:14 2009 UTC

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

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing deliantra/Deliantra-Client/DC/Texture.pm (file contents): Revision 1.20 by root, Thu Jul 19 22:38:53 2007 UTC vs. Revision 1.37 by root, Sun Nov 15 19:05:14 2009 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/DC/Texture.pm (file contents):
Revision 1.20 by root, Thu Jul 19 22:38:53 2007 UTC vs.
Revision 1.37 by root, Sun Nov 15 19:05:14 2009 UTC