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

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.22 by elmex, Sat Apr 8 18:18:09 2006 UTC vs.
Revision 1.35 by root, Sun Apr 9 17:34:15 2006 UTC

…		…
6		6
7	use SDL::OpenGL;	7	use SDL::OpenGL;
8	use SDL::OpenGL::Constants;	8	use SDL::OpenGL::Constants;
9		9
10	our $FOCUS; # the widget with current focus	10	our $FOCUS; # the widget with current focus
11	our @ACTIVE_WIDGETS;	11	#our @ACTIVE_WIDGETS;
12		12
13	# class methods for events	13	# class methods for events
14	sub feed_sdl_key_down_event { $FOCUS->key_down ($_[0]) if $FOCUS }	14	sub feed_sdl_key_down_event { $FOCUS->key_down ($_[0]) if $FOCUS }
15	sub feed_sdl_key_up_event { $FOCUS->key_up ($_[0]) if $FOCUS }	15	sub feed_sdl_key_up_event { $FOCUS->key_up ($_[0]) if $FOCUS }
16	sub feed_sdl_button_down_event { $FOCUS->button_down ($_[0]) if $FOCUS }	16	sub feed_sdl_button_down_event { }
17	sub feed_sdl_button_up_event { $FOCUS->button_up ($_[0]) if $FOCUS }	17	sub feed_sdl_button_up_event { }
18		18
19	sub new {	19	sub new {
20	my $class = shift;	20	my $class = shift;
21		21
22	bless { @_ }, $class	22	bless { @_ }, $class
23	}	23	}
24		24
25	sub activate {	25	#sub activate {
26	push @ACTIVE_WIDGETS, $_[0];	26	# push @ACTIVE_WIDGETS, $_[0];
27	Scalar::Util::weaken $ACTIVE_WIDGETS[-1];	27	# Scalar::Util::weaken $ACTIVE_WIDGETS[-1];
28	}	28	#}
29		29
30	sub deactivate {	30	#sub deactivate {
31	@ACTIVE_WIDGETS =	31	# @ACTIVE_WIDGETS =
32	sort { $a->{z} <=> $b->{z} }	32	# sort { $a->{z} <=> $b->{z} }
33	grep { $_ && $_ != $_[0] }	33	# grep { $_ && $_ != $_[0] }
34	@ACTIVE_WIDGETS;	34	# @ACTIVE_WIDGETS;
35	}	35	#}
36		36
37	sub move {	37	sub move {
38	my ($self, $x, $y, $z) = @_;	38	my ($self, $x, $y, $z) = @_;
39	$self->{x} = $x;	39	$self->{x} = $x;
40	$self->{y} = $y;	40	$self->{y} = $y;
…		…
92	sub _draw {	92	sub _draw {
93	my ($widget) = @_;	93	my ($widget) = @_;
94	}	94	}
95		95
96	sub bbox {	96	sub bbox {
97	my ($widget) = @_;	97	my ($self) = @_;
		98	my ($w, $h) = $self->size_request;
		99	(
		100	$self->{x},
		101	$self->{y},
		102	$self->{x} = $w,
		103	$self->{y} = $h
		104	)
		105	}
		106
		107	sub del_parent { $_[0]->{parent} = undef }
		108
		109	sub set_parent {
		110	my ($self, $par) = @_;
		111
		112	$self->{parent} = $par;
		113	Scalar::Util::weaken $self->{parent};
		114	}
		115
		116	sub get_parent {
		117	$_[0]->{parent}
		118	}
		119
		120	sub update {
		121	my ($self) = @_;
		122
		123	$self->{parent}->update
		124	if $self->{parent};
98	}	125	}
99		126
100	sub DESTROY {	127	sub DESTROY {
101	my ($self) = @_;	128	my ($self) = @_;
102		129
103	$self->deactivate;	130	#$self->deactivate;
104	}	131	}
105		132
106	package Crossfire::Client::Widget::Container;	133	package Crossfire::Client::Widget::Bin;
107		134
108	our @ISA = Crossfire::Client::Widget::;	135	our @ISA = Crossfire::Client::Widget::;
109		136
110	use SDL::OpenGL;	137	sub add { $_[0]->{child} = $_[1]; $_[1]->set_parent ($_[0]); $_[1]->update }
111		138
112	sub add { $_[0]->{child} = $_[1] }
113	sub get { $_[0]->{child} }	139	sub get { $_[0]->{child} }
114		140
		141	sub remove {
		142	my ($self, $chld) = @_;
		143	delete $self->{child}
		144	if $self->{child} == $chld;
		145	}
		146
		147	sub size_request {
115	sub size_request { $_[0]->{child}->size_request if $_[0]->{child} }	148	$_[0]->{child}->size_request if $_[0]->{child}
		149	}
116		150
117	sub _draw { die "Containers can't be drawn!" }	151	sub _draw {
		152	my ($self) = @_;
		153
		154	$self->{child}->draw;
		155	}
		156
		157	package Crossfire::Client::Widget::Toplevel;
		158
		159	our @ISA = Crossfire::Client::Widget::;
		160
		161	use SDL::OpenGL;
		162
		163	sub add {
		164	my ($self, $chld) = @_;
		165
		166	push @{$self->{childs}}, $chld;
		167	@{$self->{childs}} =
		168	sort { $a->{z} <=> $b->{z} }
		169	@{$self->{childs}};
		170
		171	$chld->set_parent ($self);
		172	}
		173
		174	sub remove {
		175	my ($self, $chld) = @_;
		176	@{$self->{childs}} =
		177	sort { $a->{z} <=> $b->{z} }
		178	grep { $_ && $_ != $_[0] }
		179	@{$self->{childs}}
		180	}
		181
		182	sub update {
		183	my ($self) = @_;
		184	::refresh ();
		185	}
		186
		187	sub _draw {
		188	my ($self) = @_;
		189
		190	$_->draw for @{$self->{childs}};
		191	}
118		192
119	package Crossfire::Client::Widget::Window;	193	package Crossfire::Client::Widget::Window;
120		194
121	our @ISA = Crossfire::Client::Widget::Container::;	195	our @ISA = Crossfire::Client::Widget::Bin::;
122		196
123	use SDL::OpenGL;	197	use SDL::OpenGL;
124		198
125	sub add {	199	sub add {
126	my ($self, $chld) = @_;	200	my ($self, $chld) = @_;
127	$self->SUPER::add ($chld);	201	$self->SUPER::add ($chld);
		202	$chld->set_parent ($self);
		203	$self->update; #TODO: Move this to the size_request event propably?
		204	}
		205
		206	sub remove {
		207	my ($self) = @_;
		208	# TODO FIXME: removing a child from a window will crash, see render_chld
		209	$self->update;
		210	}
		211
		212	sub update {
		213	my ($self) = @_;
128	$self->render_chld;	214	$self->render_chld;
129	}	215	}
130		216
131	sub render_chld {	217	sub render_chld {
132	my ($self) = @_;	218	my ($self) = @_;
133	my $chld = $self->get;	219	my $chld = $self->get;
134	my ($w, $h) = $self->size_request;	220	my ($w, $h) = $self->size_request;
135		221
136	$w = $h = 256;
137
138	$self->{texture} =	222	$self->{texture} =
139	Crossfire::Client::Texture->new_from_opengl (	223	Crossfire::Client::Texture->new_from_opengl (
140	$w, $h, sub {	224	$w, $h, sub { $chld->draw }
141	glPushMatrix;
142	glLoadIdentity;
143	$chld->_draw;
144	glPopMatrix;
145	}
146	);	225	);
147	$self->{texture}->upload;	226	$self->{texture}->upload;
148	}	227	}
149		228
150	sub size_request {	229	sub size_request {
…		…
155	}	234	}
156		235
157	sub _draw {	236	sub _draw {
158	my ($self) = @_;	237	my ($self) = @_;
159		238
160	my ($w, $h) = $self->size_request;	239	my ($w, $h) = $self->size_request;#TODO# use width/height of texture
		240
161	my $tex = $self->{texture}	241	my $tex = $self->{texture}
162	or return;	242	or return;
163		243
164	glEnable GL_BLEND;	244	glEnable GL_BLEND;
165	glEnable GL_TEXTURE_2D;	245	glEnable GL_TEXTURE_2D;
166	glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;	246	glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE;
167	glBindTexture GL_TEXTURE_2D, $tex->{name};	247	glBindTexture GL_TEXTURE_2D, $tex->{name};
168		248
169	glColor 1, 1, 1;
170
171	glBegin GL_QUADS;	249	glBegin GL_QUADS;
172	glTexCoord 0, 0; glVertex 0 , 0;	250	glTexCoord 0, 0; glVertex 0, 0;
173	glTexCoord 0, 1; glVertex 0 , $h;	251	glTexCoord 0, 1; glVertex 0, $h;
174	glTexCoord 1, 1; glVertex $w , $h;	252	glTexCoord 1, 1; glVertex $w, $h;
175	glTexCoord 1, 0; glVertex $w , 0;	253	glTexCoord 1, 0; glVertex $w, 0;
176	glEnd;	254	glEnd;
177		255
178	glDisable GL_BLEND;	256	glDisable GL_BLEND;
179	glDisable GL_TEXTURE_2D;	257	glDisable GL_TEXTURE_2D;
180	}	258	}
181		259
182	package Crossfire::Client::Widget::Frame;	260	package Crossfire::Client::Widget::Frame;
183		261
184	our @ISA = Crossfire::Client::Widget::Container::;	262	our @ISA = Crossfire::Client::Widget::Bin::;
185		263
186	use SDL::OpenGL;	264	use SDL::OpenGL;
187		265
188	sub size_request {	266	sub size_request {
189	my ($self) = @_;	267	my ($self) = @_;
190	my $chld = $self->get	268	my $chld = $self->get
191	or return (0, 0);	269	or return (0, 0);
		270
		271	$chld->move (2, 2);
		272
192	map { $_ + 4 } $chld->size_request;	273	map { $_ + 4 } $chld->size_request;
193	}	274	}
194		275
195	sub _draw {	276	sub _draw {
196	my ($self) = @_;	277	my ($self) = @_;
197		278
198	my $chld = $self->get;	279	my $chld = $self->get;
199		280
200	my ($w, $h) = $chld->size_request;	281	my ($w, $h) = $chld->size_request;
201		282
202	glColor 1, 0, 0;
203	glBegin GL_QUADS;	283	glBegin GL_QUADS;
		284	glColor 0, 0, 0;
204	glTexCoord 0, 0; glVertex 0 , 0;	285	glTexCoord 0, 0; glVertex 0 , 0;
205	glTexCoord 0, 1; glVertex 0 , $h + 4;	286	glTexCoord 0, 1; glVertex 0 , $h + 4;
206	glTexCoord 1, 1; glVertex $w + 4 , $h + 4;	287	glTexCoord 1, 1; glVertex $w + 4 , $h + 4;
207	glTexCoord 1, 0; glVertex $w + 4 , 0;	288	glTexCoord 1, 0; glVertex $w + 4 , 0;
208	glEnd;	289	glEnd;
209		290
210	glPushMatrix;
211	glTranslate (2, 2, 0);
212	$chld->_draw;	291	$chld->draw;
213	glPopMatrix;	292	}
		293
		294	package Crossfire::Client::Widget::FancyFrame;
		295
		296	our @ISA = Crossfire::Client::Widget::Frame::;
		297
		298	use SDL::OpenGL;
		299
		300	sub new {
		301	my ($self, $theme) = @_;
		302	$self = $self->SUPER::new;
		303
		304	$self->{txts} = [
		305	map { new_from_file Crossfire::Client::Texture Crossfire::Client::find_rcfile $_ }
		306	qw/d1_bg.png d1_border_top.png d1_border_right.png d1_border_left.png d1_border_bottom.png/
		307	];
		308	$self
		309
		310	}
		311
		312	sub size_request {
		313	my ($self) = @_;
		314	my ($w, $h) = $self->get->size_request;
		315
		316	$h += $self->{txts}->[1]->{height};
		317	$h += $self->{txts}->[4]->{height};
		318	$w += $self->{txts}->[2]->{width};
		319	$w += $self->{txts}->[3]->{width};
		320
		321	$self->get->move ($self->{txts}->[3]->{width}, $self->{txts}->[1]->{height});
		322
		323	($w, $h)
		324	}
		325
		326	sub _draw {
		327	my ($self) = @_;
		328
		329	my ($w, $h) = $self->size_request;
		330	my ($cw, $ch) = $self->get->size_request;
		331
		332	glEnable GL_BLEND;
		333	glEnable GL_TEXTURE_2D;
		334	glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;
		335	glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;
		336
		337
		338	my $top = $self->{txts}->[1];
		339	glBindTexture GL_TEXTURE_2D, $top->{name};
		340
		341	glColor 1, 1, 1, 0.8;
		342
		343	glBegin GL_QUADS;
		344	glTexCoord 0, 0; glVertex 0 , 0;
		345	glTexCoord 0, 1; glVertex 0 , $top->{height};
		346	glTexCoord 1, 1; glVertex $w , $top->{height};
		347	glTexCoord 1, 0; glVertex $w , 0;
		348	glEnd;
		349
		350	my $left = $self->{txts}->[3];
		351	glBindTexture GL_TEXTURE_2D, $left->{name};
		352
		353	glColor 1, 1, 1, 0.8;
		354
		355	glBegin GL_QUADS;
		356	glTexCoord 0, 0; glVertex 0 , $top->{height};
		357	glTexCoord 0, 1; glVertex 0 , $top->{height} + $ch;
		358	glTexCoord 1, 1; glVertex $left->{width}, $top->{height} + $ch;
		359	glTexCoord 1, 0; glVertex $left->{width}, $top->{height};
		360	glEnd;
		361
		362	my $right = $self->{txts}->[2];
		363	glBindTexture GL_TEXTURE_2D, $right->{name};
		364
		365	glColor 1, 1, 1, 0.8;
		366
		367	glBegin GL_QUADS;
		368	glTexCoord 0, 0; glVertex $w - $right->{width}, $top->{height};
		369	glTexCoord 0, 1; glVertex $w - $right->{width}, $top->{height} + $ch;
		370	glTexCoord 1, 1; glVertex $w , $top->{height} + $ch;
		371	glTexCoord 1, 0; glVertex $w , $top->{height};
		372	glEnd;
		373
		374	my $bottom = $self->{txts}->[4];
		375	glBindTexture GL_TEXTURE_2D, $bottom->{name};
		376
		377	glColor 1, 1, 1, 0.8;
		378
		379	glBegin GL_QUADS;
		380	glTexCoord 0, 0; glVertex 0 , $h - $bottom->{height};
		381	glTexCoord 0, 1; glVertex 0 , $h;
		382	glTexCoord 1, 1; glVertex $w , $h;
		383	glTexCoord 1, 0; glVertex $w , $h - $bottom->{height};
		384	glEnd;
		385
		386	my $bg = $self->{txts}->[0];
		387	glBindTexture GL_TEXTURE_2D, $bg->{name};
		388	glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT;
		389	glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT;
		390
		391	glColor 1, 1, 1, 0.8;
		392
		393	my $rep_x = $cw / $bg->{width};
		394	my $rep_y = $ch / $bg->{height};
		395
		396	glBegin GL_QUADS;
		397	glTexCoord 0, 0; glVertex $left->{width}, $top->{height};
		398	glTexCoord 0, $rep_y; glVertex $left->{width}, $top->{height} + $ch;
		399	glTexCoord $rep_x, $rep_y; glVertex $left->{width} + $cw , $top->{height} + $ch;
		400	glTexCoord $rep_x, 0; glVertex $left->{width} + $cw , $top->{height};
		401	glEnd;
		402
		403	$self->get->draw;
		404
		405	glDisable GL_BLEND;
		406	glDisable GL_TEXTURE_2D;
214	}	407	}
215		408
216	package Crossfire::Client::Widget::Table;	409	package Crossfire::Client::Widget::Table;
217		410
218	our @ISA = Crossfire::Client::Widget::Container::;	411	our @ISA = Crossfire::Client::Widget::Bin::;
219		412
220	use SDL::OpenGL;	413	use SDL::OpenGL;
221		414
222	sub add {	415	sub add {
223	my ($self, $x, $y, $chld) = @_;	416	my ($self, $x, $y, $chld) = @_;
		417	my $old_chld = $self->{childs}[$y][$x];
		418
224	$self->{childs}[$y][$x] = $chld;	419	$self->{childs}[$y][$x] = $chld;
		420	$chld->set_parent ($self);
		421	$self->update;
225	}	422	}
226		423
227	sub max_row_height {	424	sub max_row_height {
228	my ($self, $row) = @_;	425	my ($self, $row) = @_;
229		426
…		…
279	for (my $yi = 0; $yi <= $#{$self->{childs}}; $yi++) {	476	for (my $yi = 0; $yi <= $#{$self->{childs}}; $yi++) {
280	my $x = 0;	477	my $x = 0;
281		478
282	for (my $xi = 0; $xi <= $#{$self->{childs}->[$yi]}; $xi++) {	479	for (my $xi = 0; $xi <= $#{$self->{childs}->[$yi]}; $xi++) {
283		480
284	glPushMatrix;
285	glTranslate ($x, $y, 0);
286	my $c = $self->{childs}->[$yi]->[$xi];	481	my $c = $self->{childs}->[$yi]->[$xi];
		482	if ($c) {
		483	$c->move ($x, $y, 0); #TODO: Move to size_request
287	$c->_draw if $c;	484	$c->draw if $c;
288	glPopMatrix;	485	}
289		486
290	$x += $self->max_col_width ($xi);	487	$x += $self->max_col_width ($xi);
291	}	488	}
292		489
293	$y += $self->max_row_height ($yi);	490	$y += $self->max_row_height ($yi);
294	}	491	}
295	}	492	}
296		493
297	package Crossfire::Client::Widget::VBox;	494	package Crossfire::Client::Widget::VBox;
298		495
299	our @ISA = Crossfire::Client::Widget::Container::;	496	our @ISA = Crossfire::Client::Widget::Bin::;
300		497
301	use SDL::OpenGL;	498	use SDL::OpenGL;
302		499
303	sub add {	500	sub add {
304	my ($self, $chld) = @_;	501	my ($self, $chld) = @_;
305	push @{$self->{childs}}, $chld;	502	push @{$self->{childs}}, $chld;
		503	$chld->set_parent ($self);
		504	$self->update;
306	}	505	}
307		506
308	sub size_request {	507	sub size_request {
309	my ($self) = @_;	508	my ($self) = @_;
310		509
…		…
321	sub _draw {	520	sub _draw {
322	my ($self) = @_;	521	my ($self) = @_;
323		522
324	my ($x, $y);	523	my ($x, $y);
325	for (@{$self->{childs} \|\| []}) {	524	for (@{$self->{childs} \|\| []}) {
326	glPushMatrix;	525	$_->move (0, $y, 0); #TODO: move to size_request
327	glTranslate (0, $y, 0);
328	$_->_draw;	526	$_->draw;
329	glPopMatrix;
330	my ($w, $h) = $_->size_request;	527	my ($w, $h) = $_->size_request;
331	$y += $h;	528	$y += $h;
332	}	529	}
333	}	530	}
334		531
…		…
337	our @ISA = Crossfire::Client::Widget::;	534	our @ISA = Crossfire::Client::Widget::;
338		535
339	use SDL::OpenGL;	536	use SDL::OpenGL;
340		537
341	sub new {	538	sub new {
342	my ($class, $x, $y, $z, $ttf, $text) = @_;	539	my ($class, $x, $y, $z, $height, $text) = @_;
343		540
		541	# TODO: color, and make height, xyz etc. optional
344	my $self = $class->SUPER::new (x => $x, y => $y, z => $z, ttf => $ttf);	542	my $self = $class->SUPER::new (x => $x, y => $y, z => $z, height => $height);
345		543
346	$self->set_text ($text);	544	$self->set_text ($text);
347		545
348	$self	546	$self
349	}	547	}
350		548
351	sub set_text {	549	sub set_text {
352	my ($self, $text) = @_;	550	my ($self, $text) = @_;
		551
		552	$self->{text} = $text;
353	$self->{texture} = new_from_ttf Crossfire::Client::Texture $self->{ttf}, $self->{text} = $text;	553	$self->{texture} = new_from_text Crossfire::Client::Texture $text, $self->{height};
		554
		555	$self->update;
354	}	556	}
355		557
356	sub get_text {	558	sub get_text {
357	my ($self, $text) = @_;	559	my ($self, $text) = @_;
		560
358	$self->{text}	561	$self->{text}
359	}	562	}
360		563
361	sub size_request {	564	sub size_request {
362	my ($self) = @_;	565	my ($self) = @_;
…		…
372		575
373	my $tex = $self->{texture};	576	my $tex = $self->{texture};
374		577
375	glEnable GL_BLEND;	578	glEnable GL_BLEND;
376	glEnable GL_TEXTURE_2D;	579	glEnable GL_TEXTURE_2D;
		580	glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;
377	glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;	581	glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;
378	glBindTexture GL_TEXTURE_2D, $tex->{name};	582	glBindTexture GL_TEXTURE_2D, $tex->{name};
379		583
380	glColor 1, 1, 1;	584	glColor 1, 1, 1, 0.6; # TODO color
381		585
382	glBegin GL_QUADS;	586	glBegin GL_QUADS;
383	glTexCoord 0, 0; glVertex 0 , 0;	587	glTexCoord 0, 0; glVertex 0 , 0;
384	glTexCoord 0, 1; glVertex 0 , $tex->{height};	588	glTexCoord 0, 1; glVertex 0 , $tex->{height};
385	glTexCoord 1, 1; glVertex $tex->{width}, $tex->{height};	589	glTexCoord 1, 1; glVertex $tex->{width}, $tex->{height};
…		…
388		592
389	glDisable GL_BLEND;	593	glDisable GL_BLEND;
390	glDisable GL_TEXTURE_2D;	594	glDisable GL_TEXTURE_2D;
391	}	595	}
392		596
		597	package Crossfire::Client::Widget::TextEntry;
		598
		599	our @ISA = Crossfire::Client::Widget::Label::;
		600
		601	use SDL;
		602	use SDL::OpenGL;
		603
		604	sub key_down {
		605	my ($self, $ev) = @_;
		606
		607	my $mod = $ev->key_mod;
		608	my $sym = $ev->key_sym;
		609
		610	$ev->set_unicode (1);
		611	my $uni = $ev->key_unicode;
		612
		613	my $text = $self->get_text;
		614
		615	if ($sym == SDLK_BACKSPACE) {
		616	substr $text, -1, 1, '';
		617
		618	} elsif ($uni) {
		619	$text .= chr $uni;
		620	}
		621	$self->set_text ($text);
		622	}
		623
		624
		625	# XXX: TextView isn't neccessary with pango multiline text rendering
393	package Crossfire::Client::Widget::TextView;	626	package Crossfire::Client::Widget::TextView;
394		627
395	use strict;	628	use strict;
396		629
397	our @ISA = qw/Crossfire::Client::Widget/;	630	our @ISA = qw/Crossfire::Client::Widget/;
398		631
399	use SDL::OpenGL;	632	use SDL::OpenGL;
400	use SDL::OpenGL::Constants;	633	use SDL::OpenGL::Constants;
		634
		635	sub new {
		636	my ($class, $text, $h) = @_;
		637	my $self = $class->SUPER::new ();
		638
		639	$self->{txt_height} = $h;
		640	@{$self->{lines}} = split /\r?\n/, $text;
		641
		642	for (split /\r?\n/, $text) {
		643	$self->add_line ($_);
		644	}
		645	$self
		646	}
		647
		648	#sub render_lines {
		649	# my ($self) = @_;
		650	#
		651	# $self->{txt_lines} = [];
		652	#
		653	# for (@{$self->{lines}}) {
		654	# push @{$self->{txt_lines}},
		655	# new_from_ttf Crossfire::Client::Texture $self->{ttf}, $_;
		656	# }
		657	#}
401		658
402	sub add_line {	659	sub add_line {
403	my ($self, $line) = @_;	660	my ($self, $line) = @_;
404	push @{$self->{lines}}, $line;	661	push @{$self->{lines}}, $line;
405	}
406		662
		663	push @{$self->{txt_lines}},
		664	new_from_text Crossfire::Client::Texture $line, $self->{txt_height};
		665	}
		666
		667	sub size_request {
		668	my ($self) = @_;
		669
		670	my $w = 0;
		671	my $h = 0;
		672
		673	for (@{$self->{txt_lines}}) {
		674	if ($w < $_->{width}) { $w = $_->{width} }
		675	$h += $_->{height};
		676	}
		677
		678	return ($w, $h);
		679	}
		680
407	sub _draw {	681	sub draw_line {
408	my ($self) = @_;	682	my ($self, $tex, $y) = @_;
409		683
		684	glBindTexture GL_TEXTURE_2D, $tex->{name};
		685
		686	glColor 1, 0, 1;
		687
		688	glBegin GL_QUADS;
		689	glTexCoord 0, 0; glVertex 0 , $y;
		690	glTexCoord 0, 1; glVertex 0 , $y + $tex->{height};
		691	glTexCoord 1, 1; glVertex $tex->{width}, $y + $tex->{height};
		692	glTexCoord 1, 0; glVertex $tex->{width}, $y;
		693	glEnd;
		694	}
		695
		696	sub _draw {
		697	my ($self) = @_;
		698
		699	glEnable GL_BLEND;
		700	glEnable GL_TEXTURE_2D;
		701	glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;#DECAL;
		702
		703	my $l = 0;
		704	for (@{$self->{txt_lines}}) {
		705	$self->draw_line ($_, $l);
		706	$l += $_->{height};
		707	}
		708
		709	glDisable GL_BLEND;
		710	glDisable GL_TEXTURE_2D;
410	}	711	}
411		712
412	package Crossfire::Client::Widget::MapWidget;	713	package Crossfire::Client::Widget::MapWidget;
413		714
414	use strict;	715	use strict;
415		716
416	our @ISA = qw/Crossfire::Client::Widget/;	717	use List::Util qw(min max);
417		718
418	use SDL;	719	use SDL;
419	use SDL::OpenGL;	720	use SDL::OpenGL;
420	use SDL::OpenGL::Constants;	721	use SDL::OpenGL::Constants;
		722
		723	our @ISA = Crossfire::Client::Widget::;
421		724
422	sub key_down {	725	sub key_down {
423	print "MAPKEYDOWN\n";	726	print "MAPKEYDOWN\n";
424	}	727	}
425		728
…		…
427	}	730	}
428		731
429	sub _draw {	732	sub _draw {
430	my ($self) = @_;	733	my ($self) = @_;
431		734
		735	my $mx = $::CONN->{mapx};
		736	my $my = $::CONN->{mapy};
		737
		738	my $map = $::CONN->{map};
		739
		740	my ($xofs, $yofs);
		741
		742	my $sw = 1 + int $::WIDTH / 32;
		743	my $sh = 1 + int $::HEIGHT / 32;
		744
		745	if ($::CONN->{mapw} > $sw) {
		746	$xofs = $mx + ($::CONN->{mapw} - $sw) * 0.5;
		747	} else {
		748	$xofs = $self->{xofs} = min $mx, max $mx + $::CONN->{mapw} - $sw + 1, $self->{xofs};
		749	}
		750
		751	if ($::CONN->{maph} > $sh) {
		752	$yofs = $my + ($::CONN->{maph} - $sh) * 0.5;
		753	} else {
		754	$yofs = $self->{yofs} = min $my, max $my + $::CONN->{maph} - $sh + 1, $self->{yofs};
		755	}
		756
432	glEnable GL_TEXTURE_2D;	757	glEnable GL_TEXTURE_2D;
433	glEnable GL_BLEND;	758	glEnable GL_BLEND;
434	glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;	759	glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE;
435		760
436	my $map = $::CONN->{map};	761	my $sw4 = ($sw + 3) & ~3;
		762	my $lighting = "\x00" x ($sw4 * $sh);
437		763
438	for my $x (0 .. int $::WIDTH / 32) {	764	for my $x (0 .. $sw - 1) {
439	for my $y (0 .. int $::HEIGHT / 32) {	765	for my $y (0 .. $sh - 1) {
440		766
441	my $cell = $map->[$x + $::CONN->{mapx}]	767	my $cell = $map->[$x + $xofs][$y + $yofs]
442	[$y + $::CONN->{mapy}]
443	or next;	768	or next;
444		769
445	my $darkness = $cell->[0] * (1 / 255);	770	my $darkness = $cell->[0] * (1 / 255);
446	if ($darkness < 0) {	771	if ($darkness < 0) {
447	$darkness = 0.5;	772	$darkness = 0.15;
448	}	773	}
449	glColor $darkness, $darkness, $darkness;	774	substr $lighting, $y * $sw4 + $x, 1, chr 255 - $darkness * 255;
450		775
451	for my $num (grep $_, @$cell[1,2,3]) {	776	for my $num (grep $_, @$cell[1,2,3]) {
452	my $tex = $::CONN->{face}[$num]{texture} \|\| next;	777	my $tex = $::CONN->{face}[$num]{texture} \|\| next;
453		778
454	glBindTexture GL_TEXTURE_2D, $tex->{name};	779	glBindTexture GL_TEXTURE_2D, $tex->{name};
…		…
466	glTexCoord 1, 0; glVertex $px + $w, $py;	791	glTexCoord 1, 0; glVertex $px + $w, $py;
467	glEnd;	792	glEnd;
468	}	793	}
469	}	794	}
470	}	795	}
		796
		797	# if (1) { # higher quality darkness
		798	# $lighting =~ s/(.)/$1$1$1/gs;
		799	# my $pb = new_from_data Gtk2::Gdk::Pixbuf $lighting, "rgb", 0, 8, $sw4, $sh, $sw4 * 3;
		800	#
		801	# $pb = $pb->scale_simple ($sw4 * 0.5, $sh * 0.5, "bilinear");
		802	#
		803	# $lighting = $pb->get_pixels;
		804	# $lighting =~ s/(.)../$1/gs;
		805	# }
		806
		807	$lighting = new Crossfire::Client::Texture
		808	width => $sw4,
		809	height => $sh,
		810	data => $lighting,
		811	internalformat => GL_ALPHA4,
		812	format => GL_ALPHA;
		813
		814	glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;
		815	glColor 0, 0, 0, 0.75;
		816	glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;
		817	glBindTexture GL_TEXTURE_2D, $lighting->{name};
		818	glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR;
		819	glBegin GL_QUADS;
		820	glTexCoord 0, 0; glVertex 0 , 0;
		821	glTexCoord 0, 1; glVertex 0 , $sh * 32;
		822	glTexCoord 1, 1; glVertex $sw4 * 32, $sh * 32;
		823	glTexCoord 1, 0; glVertex $sw4 * 32, 0;
		824	glEnd;
471		825
472	glDisable GL_TEXTURE_2D;	826	glDisable GL_TEXTURE_2D;
473	glDisable GL_BLEND;	827	glDisable GL_BLEND;
474	}	828	}
475		829
…		…
522	if (!($mod & KMOD_CTRL ) && delete $self->{ctrl}) {	876	if (!($mod & KMOD_CTRL ) && delete $self->{ctrl}) {
523	$::CONN->send ("command run_stop");	877	$::CONN->send ("command run_stop");
524	}	878	}
525	}	879	}
526		880
		881	package Crossfire::Client::Widget::Animator;
		882
		883	use SDL::OpenGL;
		884
		885	our @ISA = Crossfire::Client::Widget::Bin::;
		886
		887	sub moveto {
		888	my ($self, $x, $y) = @_;
		889
		890	$self->{moveto} = [$self->{x}, $self->{y}, $x, $y];
		891	$self->{speed} = 0.01;
		892	$self->{time} = 1;
		893
		894	::animation_start $self;
		895	}
		896
		897	sub animate {
		898	my ($self, $interval) = @_;
		899
		900	$self->{time} -= $interval * $self->{speed};
		901	if ($self->{time} <= 0) {
		902	$self->{time} = 0;
		903	::animation_stop $self;
		904	}
		905
		906	my ($x0, $y0, $x1, $y1) = @{$self->{moveto}};
		907
		908	$self->{x} = $x0 * $self->{time} + $x1 * (1 - $self->{time});
		909	$self->{y} = $y0 * $self->{time} + $y1 * (1 - $self->{time});
		910	}
		911
		912	sub _draw {
		913	my ($self) = @_;
		914
		915	glPushMatrix;
		916	glRotate $self->{time} * 10000, 0, 1, 0;
		917	$self->{child}->draw;
		918	glPopMatrix;
		919	}
		920
527	1;	921	1;
528		922

Diff Legend

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

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents): Revision 1.22 by elmex, Sat Apr 8 18:18:09 2006 UTC vs. Revision 1.35 by root, Sun Apr 9 17:34:15 2006 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.22 by elmex, Sat Apr 8 18:18:09 2006 UTC vs.
Revision 1.35 by root, Sun Apr 9 17:34:15 2006 UTC