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

Comparing deliantra/Deliantra-Client/DC/Texture.pm (file contents):
Revision 1.15 by root, Tue Jul 17 16:02:14 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	my ($tw, $th, $data);	111	return;
98
99	if (exists $self->{data}) {
100	$data = $self->{data};
101	($tw, $th) = @$self{qw(w h)};
102
103	} elsif (exists $self->{render_cb}) {
104	($tw, $th) = @$self{qw(w h)};
105
106	} else {
107	($self->{w}, $self->{h}, $data, my $internalformat, $self->{format}, $self->{type})
108	= CFPlus::load_image_inline $self->{image};
109
110	$self->{internalformat} \|\|= $internalformat;
111	($tw, $th) = @$self{qw(w h)};
112	}	112	}
113		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
		160	my ($tw, $th) = ($dw, $dh);
		161
114	defined $data or $self->{render_cb} or die; # some sanity check	162	defined $data or $self->{render_cb} or die; # some sanity check
115		163
116	$self->{minified} \|\|= [CFPlus::average $tw, $th, $data]	164	$self->{minified} \|\|= [DC::average $dw, $dh, $data]
117	if $self->{minify};	165	if $self->{minify};
118		166
119	pad2pot $data, $tw, $th unless $GL_NPOT;	167	# against rather broken cards we enforce a maximum texture size
120	$tw = min $MAX_W, $tw;	168	$tw = min $MAX_W, $tw;
121	$th = min $MAX_H, $th;	169	$th = min $MAX_H, $th;
122		170
		171	# if only pot-textures are allowed, pot'ify tw/th
		172	unless ($GL_NPOT) {
		173	$tw = DC::minpot $tw;
		174	$th = DC::minpot $th;
		175	}
		176
123	# now further decrease texture size	177	# now further decrease texture size until the
		178	# card does accept it
124	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}) {
125	# quarter the texture size	180	# quarter the texture size
126	$tw >>= 1;	181	$tw >>= 1;
127	$th >>= 1;	182	$th >>= 1;
128	}	183	}
129		184
130	my $render = $self->{render_cb} \|\| $tw < $self->{w} \|\| $th < $self->{h};	185	# decide the amount of space used in the texture
131		186	my ($rw, $rh);
132	if ($render) {	187	my ($ox, $oy); # area shift to lessen effetc of buggy opengl implementations (nvida, ati)
133	glViewport 0, 0, $tw, $th;	188	my $render;
134	glMatrixMode GL_PROJECTION;
135	glLoadIdentity;
136	glOrtho 0, $self->{w}, 0, $self->{h}, -10000, 10000;
137	glMatrixMode GL_MODELVIEW;
138	glLoadIdentity;
139		189
140	if ($self->{render_cb}) {	190	if ($self->{render_cb}) {
141	$self->{render_cb}->($self, $self->{w}, $self->{h});	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;
142	} else {	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}) {
		224	glScale $rw / $dw, $rh / $dh;
		225	$self->{render_cb}->($self, $rw, $rh);
		226	} else {
		227	glClearColor 0, 0, 0, 0;
		228	glClear GL_COLOR_BUFFER_BIT;
143	glPixelZoom $tw / $self->{w}, $th / $self->{h};	229	glPixelZoom $tw / $dw, $th / $dh;
144	glDrawPixels $self->{w}, $self->{h},	230	glRasterPos 0, 0;
		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,
145	$self->{format},	293	$self->{format},
146	$self->{type},	294	$self->{type},
147	$data;	295	$data;
148	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;
149	}	308	}
150	}	309	}
151		310
152	glBindTexture GL_TEXTURE_2D, $self->{name} \|\|= glGenTexture;	311	$_->($self)
153		312	for @{ (delete $self->{upload_done}) \|\| [] };
154	if ($self->{wrap}) {
155	glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT;
156	glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT;
157	} else {
158	glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, $GL_VERSION >= 1.2 ? GL_CLAMP_TO_EDGE : GL_CLAMP;
159	glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, $GL_VERSION >= 1.2 ? GL_CLAMP_TO_EDGE : GL_CLAMP;
160	}
161
162	if ($::FAST \|\| $self->{nearest}) {
163	glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST;
164	glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST;
165	} elsif ($self->{mipmap} && $GL_VERSION >= 1.4) {
166	glTexParameter GL_TEXTURE_2D, GL_GENERATE_MIPMAP, 1;
167	glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR;
168	glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR_MIPMAP_LINEAR;
169	} else {
170	glTexParameter GL_TEXTURE_2D, GL_GENERATE_MIPMAP, $self->{mipmap};
171	glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR;
172	glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR;
173	}
174
175	glGetError;
176
177	if ($render) {
178	glCopyTexImage2D GL_TEXTURE_2D, 0,
179	$self->{internalformat},
180	0, 0,
181	$tw, $th,
182	0;
183	gl_check "copying to texture %dx%d if=%x",
184	$tw, $th, $self->{internalformat};
185	} else {
186	glTexImage2D GL_TEXTURE_2D, 0,
187	$self->{internalformat},
188	$tw, $th,
189	0,
190	$self->{format},
191	$self->{type},
192	$data;
193	gl_check "uploading texture %dx%d if=%x f=%x t=%x",
194	$tw, $th, $self->{internalformat}, $self->{format}, $self->{type};
195	}
196
197	$self->{s} = min 1, $self->{w} / $tw;
198	$self->{t} = min 1, $self->{h} / $th;
199	}	313	}
200		314
201	sub shutdown {	315	sub unload {
202	my ($self) = @_;	316	my ($self) = @_;
203		317
204	glDeleteTexture $self->{name}	318	glDeleteTexture delete $self->{name}
205	if $self->{name};	319	if $self->{name};
206	}	320	}
207		321
208	sub DESTROY {	322	sub DESTROY {
209	my ($self) = @_;	323	my ($self) = @_;
210		324
211	delete $TEXTURES{$self+0};	325	delete $TEXTURES{$self+0};
212		326
213	$self->shutdown;	327	$self->unload;
214	}	328	}
215		329
216	$CFPlus::OpenGL::INIT_HOOK{"CFPlus::Texture"} = sub {	330	$DC::OpenGL::INIT_HOOK{"DC::Texture"} = sub {
217	# 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
218	glBindTexture GL_TEXTURE_2D, $_->{name}	337	glBindTexture GL_TEXTURE_2D, $name;
219	for values %TEXTURES;	338	glTexImage2D GL_TEXTURE_2D, 0, GL_ALPHA, 0, 0, 0, GL_ALPHA, GL_UNSIGNED_BYTE;
220	$_->upload	339	}
221	for values %TEXTURES;	340	}
		341	}
222	};	342	};
223		343
224	$CFPlus::OpenGL::SHUTDOWN_HOOK{"CFPlus::Texture"} = sub {	344	$DC::OpenGL::SHUTDOWN_HOOK{"DC::Texture"} = sub {
225	$_->shutdown
226	for values %TEXTURES;	345	for (values %TEXTURES) {
		346	next unless $_->{name};
		347	$_->{want_upload} = $_->{name};
		348	$_->unload;
		349	}
227	};	350	};
228		351
229	1;	352	1;
230		353
231	=back	354	=back

Diff Legend

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

Comparing deliantra/Deliantra-Client/DC/Texture.pm (file contents): Revision 1.15 by root, Tue Jul 17 16:02:14 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.15 by root, Tue Jul 17 16:02:14 2007 UTC vs.
Revision 1.35 by root, Wed Sep 3 06:07:39 2008 UTC