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

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

Diff Legend

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

Comparing deliantra/Deliantra-Client/DC/Texture.pm (file contents): Revision 1.16 by root, Thu Jul 19 13:45:18 2007 UTC vs. Revision 1.35 by root, Wed Sep 3 06:07:39 2008 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/DC/Texture.pm (file contents):
Revision 1.16 by root, Thu Jul 19 13:45:18 2007 UTC vs.
Revision 1.35 by root, Wed Sep 3 06:07:39 2008 UTC