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

Comparing deliantra/Deliantra-Client/DC/Texture.pm (file contents):
Revision 1.2 by root, Mon May 29 02:01:56 2006 UTC vs.
Revision 1.30 by root, Wed Dec 26 20:46:39 2007 UTC

…		…
1	=head1 NAME	1	=head1 NAME
2		2
3	CFClient::Texture - tetxure class for CFClient	3	dc::Texture - tetxure class for CFPlus
4		4
5	=head1 SYNOPSIS	5	=head1 SYNOPSIS
6		6
7	use CFClient::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 CFClient::Texture;	15	package dc::Texture;
16		16
17	use strict;	17	use strict;
18		18
19	use Scalar::Util;	19	use List::Util qw(max min);
20		20	use dc::OpenGL;
21	use CFClient::OpenGL;
22		21
23	my %TEXTURES;	22	my %TEXTURES;
		23	my ($MAX_W, $MAX_H) = (4096, 4096); # maximum texture size attempted by this module
24		24
25	sub new {	25	sub new {
26	my ($class, %data) = @_;	26	my ($class, %data) = @_;
27		27
28	my $self = bless {	28	my $self = bless {
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	Scalar::Util::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, %arg)	49	$class->new (image => $image, internalformat => undef, %arg)
46	}	50	}
		51
47		52
48	sub new_from_file {	53	sub 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
…		…
65	# w => $surface->width,	70	# w => $surface->width,
66	# h => $surface->height,	71	# h => $surface->height,
67	# )	72	# )
68	#}	73	#}
69		74
70	sub new_from_layout {	75	#sub new_from_layout {
71	my ($class, $layout, %arg) = @_;	76	# my ($class, $layout, %arg) = @_;
72		77	#
73	my ($w, $h, $data, $format, $internalformat) = $layout->render;	78	# my ($w, $h, $data, $format, $internalformat) = $layout->render;
74		79	#
75	$class->new (	80	# $class->new (
76	w => $w,	81	# w => $w,
77	h => $h,	82	# h => $h,
78	data => $data,	83	# data => $data,
79	format => $format,	84	# format => $format,
80	internalformat => $format,	85	# internalformat => $format,
81	type => GL_UNSIGNED_BYTE,	86	# type => GL_UNSIGNED_BYTE,
82	%arg,	87	# %arg,
83	)	88	# )
84	}	89	#}
85		90
86	sub new_from_opengl {	91	sub new_from_opengl {
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)	94	$class->new (w => $w \|\| 1, h => $h \|\| 1, render_cb => $cb, nearest => 1)
90	}	95	}
91		96
92	sub topot {	97	sub loading_done($$) {
93	(grep $_ >= $_[0], 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048, 4096, 8192, 16384, 32768)[0]	98	my ($self, $data) = @_;
		99
		100	delete $self->{loading};
		101	++$self->{delete_image};
		102	$self->{image} = $data;
		103	$self->upload;
94	}	104	}
95		105
96	sub upload {	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->{want_upload} = -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 (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
		158	my ($tw, $th) = ($dw, $dh);
		159
		160	defined $data or $self->{render_cb} or die; # some sanity check
		161
		162	$self->{minified} \|\|= [dc::average $dw, $dh, $data]
		163	if $self->{minify};
		164
		165	# against rather broken cards we enforce a maximum texture size
		166	$tw = min $MAX_W, $tw;
		167	$th = min $MAX_H, $th;
		168
		169	# if only pot-textures are allowed, pot'ify tw/th
		170	unless ($GL_NPOT) {
		171	$tw = dc::minpot $tw;
		172	$th = dc::minpot $th;
		173	}
		174
		175	# now further decrease texture size until the
		176	# card does accept it
		177	while (!texture_valid_2d $self->{internalformat}, $tw, $th, $self->{format}, $self->{type}) {
		178	# quarter the texture size
		179	$tw >>= 1;
		180	$th >>= 1;
		181	}
		182
		183	# decide the amount of space used in the texture
		184	my ($rw, $rh);
		185	my ($ox, $oy); # area shift to lessen effetc of buggy opengl implementations (nvida, ati)
		186	my $render;
		187
		188	if ($self->{render_cb}) {
		189	# use only part of the texture
		190	#$rw >>= 1 while $rw > $tw;
		191	#$rh >>= 1 while $rh > $th;
		192	$rw = min $dw, $tw;
		193	$rh = min $dh, $th;
		194	++$render;
		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 {
		201	# pad
		202	pad $data, $dw, $dh, $tw, $th;
		203	($rw, $rh) = ($dw, $dh);
		204	($dw, $dh) = ($tw, $th);
		205	}
		206	}
		207
		208	if ($render) {
		209	$ox = int .5 * ($::WIDTH - $rw);
		210	$oy = int .5 * ($::HEIGHT - $rh);
		211
		212	glViewport $ox, $oy, $tw, $th;
		213	#glScissor 0, 0, $tw, $th;
		214	#glEnable GL_SCISSOR_TEST;
		215	glMatrixMode GL_PROJECTION;
		216	glLoadIdentity;
		217	glOrtho 0, $tw, 0, $th, -10000, 10000;
		218	glMatrixMode GL_MODELVIEW;
		219	glLoadIdentity;
		220
		221	if ($self->{render_cb}) {
		222	glScale $rw / $dw, $rh / $dh;
		223	$self->{render_cb}->($self, $rw, $rh);
		224	} else {
		225	glClearColor 0, 0, 0, 0;
		226	glClear GL_COLOR_BUFFER_BIT;
		227	glPixelZoom $tw / $dw, $th / $dh;
		228	glRasterPos 0, 0;
		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,
		291	$self->{format},
		292	$self->{type},
		293	$data;
		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;
		306	}
		307	}
		308
		309	$_->($self)
		310	for @{ (delete $self->{upload_done}) \|\| [] };
		311	}
		312
		313	sub unload {
97	my ($self) = @_;	314	my ($self) = @_;
98		315
99	return unless $GL_VERSION;	316	glDeleteTexture delete $self->{name}
100
101	my $data;
102
103	if (exists $self->{data}) {
104	$data = $self->{data};
105
106	} elsif (exists $self->{render_cb}) {
107	glViewport 0, 0, $self->{w}, $self->{h};
108	glMatrixMode GL_PROJECTION;
109	glLoadIdentity;
110	glOrtho 0, $self->{w}, 0, $self->{h}, -10000, 10000;
111	glMatrixMode GL_MODELVIEW;
112	glLoadIdentity;
113	$self->{render_cb}->($self, $self->{w}, $self->{h});
114
115	} else {
116	($self->{w}, $self->{h}, $data, $self->{internalformat}, $self->{format}, $self->{type})
117	= CFClient::load_image_inline $self->{image};
118	}
119
120	my ($tw, $th) = @$self{qw(w h)};
121
122	unless ($tw > 0 && $th > 0) {
123	$tw = $th = 1;
124	$data = "\x00" x 64;
125	}
126
127	$self->{minified} = [CFClient::average $tw, $th, $data]
128	if $self->{minify};	317	if $self->{name};
129		318	}
130	unless ($GL_NPOT) {
131	# TODO: does not work for zero-sized textures
132	$tw = topot $tw;
133	$th = topot $th;
134
135	if (($tw != $self->{w} \|\| $th != $self->{h}) && defined $data) {
136	my $bpp = (length $data) / ($self->{w} * $self->{h});
137	$data = pack "(a" . ($tw * $bpp) . ")*",
138	unpack "(a" . ($self->{w} * $bpp) . ")*", $data;
139	$data .= ("\x00" x ($tw * $bpp)) x ($th - $self->{h});
140	}
141	}
142
143	$self->{s} = $self->{w} / $tw;
144	$self->{t} = $self->{h} / $th;
145
146	$self->{name} \|\|= glGenTexture;
147
148	glBindTexture GL_TEXTURE_2D, $self->{name};
149
150	if ($self->{wrap}) {
151	glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT;
152	glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT;
153	} else {
154	glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, $GL_VERSION >= 1.2 ? GL_CLAMP_TO_EDGE : GL_CLAMP;
155	glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, $GL_VERSION >= 1.2 ? GL_CLAMP_TO_EDGE : GL_CLAMP;
156	}
157
158	if ($::FAST) {
159	glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST;
160	glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST;
161	} elsif ($self->{mipmap} && $GL_VERSION >= 1.4) {
162	# alternatively check for 0x8191
163	glTexParameter GL_TEXTURE_2D, GL_GENERATE_MIPMAP, 1;
164	glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR;
165	glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR_MIPMAP_LINEAR;
166	} else {
167	glTexParameter GL_TEXTURE_2D, GL_GENERATE_MIPMAP, $self->{mipmap};
168	glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR;
169	glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR;
170	}
171
172	glGetError;
173
174	if (defined $data) {
175	glTexImage2D GL_TEXTURE_2D, 0,
176	$self->{internalformat},
177	$tw, $th,
178	0,
179	$self->{format},
180	$self->{type},
181	$data;
182	gl_check "uploading texture %dx%d if=%x f=%x t=%x",
183	$tw, $th, $self->{internalformat}, $self->{format}, $self->{type};
184	} else {
185	glCopyTexImage2D GL_TEXTURE_2D, 0,
186	$self->{internalformat},
187	0, 0,
188	$tw, $th,
189	0;
190	gl_check "copying to texture %dx%d if=%x",
191	$tw, $th, $self->{internalformat};
192	}
193
194	glBindTexture GL_TEXTURE_2D, 0; # just to be on the safe side
195	}
196		319
197	sub DESTROY {	320	sub DESTROY {
198	my ($self) = @_;	321	my ($self) = @_;
199		322
200	delete $TEXTURES{$self+0};	323	delete $TEXTURES{$self+0};
201		324
202	glDeleteTexture delete $self->{name}	325	$self->unload;
203	if $self->{name};
204	}	326	}
205		327
206	$CFClient::OpenGL::INIT_HOOK{"CFClient::Texture"} = sub {	328	$dc::OpenGL::INIT_HOOK{"dc::Texture"} = sub {
207	$_->upload
208	for values %TEXTURES;	329	for (values %TEXTURES) {
		330	$_->upload if $_->{want_upload};
		331	}
		332	};
		333
		334	$dc::OpenGL::SHUTDOWN_HOOK{"dc::Texture"} = sub {
		335	for (values %TEXTURES) {
		336	next unless $_->{name};
		337	$_->{want_upload} = $_->{name};
		338	$_->unload;
		339	}
209	};	340	};
210		341
211	1;	342	1;
212		343
213	=back	344	=back

Diff Legend

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

Comparing deliantra/Deliantra-Client/DC/Texture.pm (file contents): Revision 1.2 by root, Mon May 29 02:01:56 2006 UTC vs. Revision 1.30 by root, Wed Dec 26 20:46:39 2007 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/DC/Texture.pm (file contents):
Revision 1.2 by root, Mon May 29 02:01:56 2006 UTC vs.
Revision 1.30 by root, Wed Dec 26 20:46:39 2007 UTC