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

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.24 by root, Sat Apr 8 20:25:26 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) = @_;
…		…
148	}	234	}
149		235
150	sub _draw {	236	sub _draw {
151	my ($self) = @_;	237	my ($self) = @_;
152		238
153	my ($w, $h) = $self->size_request;#TODO# use widht/height of texture	239	my ($w, $h) = $self->size_request;#TODO# use width/height of texture
		240
154	my $tex = $self->{texture}	241	my $tex = $self->{texture}
155	or return;	242	or return;
156		243
157	glEnable GL_BLEND;	244	glEnable GL_BLEND;
158	glEnable GL_TEXTURE_2D;	245	glEnable GL_TEXTURE_2D;
159	glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;	246	glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE;
160	glBindTexture GL_TEXTURE_2D, $tex->{name};	247	glBindTexture GL_TEXTURE_2D, $tex->{name};
161
162	glColor 1, 1, 1;
163		248
164	glBegin GL_QUADS;	249	glBegin GL_QUADS;
165	glTexCoord 0, 0; glVertex 0, 0;	250	glTexCoord 0, 0; glVertex 0, 0;
166	glTexCoord 0, 1; glVertex 0, $h;	251	glTexCoord 0, 1; glVertex 0, $h;
167	glTexCoord 1, 1; glVertex $w, $h;	252	glTexCoord 1, 1; glVertex $w, $h;
…		…
172	glDisable GL_TEXTURE_2D;	257	glDisable GL_TEXTURE_2D;
173	}	258	}
174		259
175	package Crossfire::Client::Widget::Frame;	260	package Crossfire::Client::Widget::Frame;
176		261
177	our @ISA = Crossfire::Client::Widget::Container::;	262	our @ISA = Crossfire::Client::Widget::Bin::;
178		263
179	use SDL::OpenGL;	264	use SDL::OpenGL;
180		265
181	sub size_request {	266	sub size_request {
182	my ($self) = @_;	267	my ($self) = @_;
183	my $chld = $self->get	268	my $chld = $self->get
184	or return (0, 0);	269	or return (0, 0);
		270
		271	$chld->move (2, 2);
		272
185	map { $_ + 4 } $chld->size_request;	273	map { $_ + 4 } $chld->size_request;
186	}	274	}
187		275
188	sub _draw {	276	sub _draw {
189	my ($self) = @_;	277	my ($self) = @_;
190		278
191	my $chld = $self->get;	279	my $chld = $self->get;
192		280
193	my ($w, $h) = $chld->size_request;	281	my ($w, $h) = $chld->size_request;
194		282
195	glColor 1, 0, 0;
196	glBegin GL_QUADS;	283	glBegin GL_QUADS;
		284	glColor 0, 0, 0;
197	glTexCoord 0, 0; glVertex 0 , 0;	285	glTexCoord 0, 0; glVertex 0 , 0;
198	glTexCoord 0, 1; glVertex 0 , $h + 4;	286	glTexCoord 0, 1; glVertex 0 , $h + 4;
199	glTexCoord 1, 1; glVertex $w + 4 , $h + 4;	287	glTexCoord 1, 1; glVertex $w + 4 , $h + 4;
200	glTexCoord 1, 0; glVertex $w + 4 , 0;	288	glTexCoord 1, 0; glVertex $w + 4 , 0;
201	glEnd;	289	glEnd;
202		290
203	glPushMatrix;
204	glTranslate (2, 2, 0);
205	$chld->draw;	291	$chld->draw;
206	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;
207	}	407	}
208		408
209	package Crossfire::Client::Widget::Table;	409	package Crossfire::Client::Widget::Table;
210		410
211	our @ISA = Crossfire::Client::Widget::Container::;	411	our @ISA = Crossfire::Client::Widget::Bin::;
212		412
213	use SDL::OpenGL;	413	use SDL::OpenGL;
214		414
215	sub add {	415	sub add {
216	my ($self, $x, $y, $chld) = @_;	416	my ($self, $x, $y, $chld) = @_;
		417	my $old_chld = $self->{childs}[$y][$x];
		418
217	$self->{childs}[$y][$x] = $chld;	419	$self->{childs}[$y][$x] = $chld;
		420	$chld->set_parent ($self);
		421	$self->update;
218	}	422	}
219		423
220	sub max_row_height {	424	sub max_row_height {
221	my ($self, $row) = @_;	425	my ($self, $row) = @_;
222		426
…		…
272	for (my $yi = 0; $yi <= $#{$self->{childs}}; $yi++) {	476	for (my $yi = 0; $yi <= $#{$self->{childs}}; $yi++) {
273	my $x = 0;	477	my $x = 0;
274		478
275	for (my $xi = 0; $xi <= $#{$self->{childs}->[$yi]}; $xi++) {	479	for (my $xi = 0; $xi <= $#{$self->{childs}->[$yi]}; $xi++) {
276		480
277	glPushMatrix;
278	glTranslate ($x, $y, 0);#TODO#there must be no translate here, instead the widget must be moved
279	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
280	$c->draw if $c;	484	$c->draw if $c;
281	glPopMatrix;	485	}
282		486
283	$x += $self->max_col_width ($xi);	487	$x += $self->max_col_width ($xi);
284	}	488	}
285		489
286	$y += $self->max_row_height ($yi);	490	$y += $self->max_row_height ($yi);
287	}	491	}
288	}	492	}
289		493
290	package Crossfire::Client::Widget::VBox;	494	package Crossfire::Client::Widget::VBox;
291		495
292	our @ISA = Crossfire::Client::Widget::Container::;	496	our @ISA = Crossfire::Client::Widget::Bin::;
293		497
294	use SDL::OpenGL;	498	use SDL::OpenGL;
295		499
296	sub add {	500	sub add {
297	my ($self, $chld) = @_;	501	my ($self, $chld) = @_;
298	push @{$self->{childs}}, $chld;	502	push @{$self->{childs}}, $chld;
		503	$chld->set_parent ($self);
		504	$self->update;
299	}	505	}
300		506
301	sub size_request {	507	sub size_request {
302	my ($self) = @_;	508	my ($self) = @_;
303		509
…		…
314	sub _draw {	520	sub _draw {
315	my ($self) = @_;	521	my ($self) = @_;
316		522
317	my ($x, $y);	523	my ($x, $y);
318	for (@{$self->{childs} \|\| []}) {	524	for (@{$self->{childs} \|\| []}) {
319	glPushMatrix;	525	$_->move (0, $y, 0); #TODO: move to size_request
320	glTranslate (0, $y, 0);# see above TODO
321	$_->draw;	526	$_->draw;
322	glPopMatrix;
323	my ($w, $h) = $_->size_request;	527	my ($w, $h) = $_->size_request;
324	$y += $h;	528	$y += $h;
325	}	529	}
326	}	530	}
327		531
…		…
330	our @ISA = Crossfire::Client::Widget::;	534	our @ISA = Crossfire::Client::Widget::;
331		535
332	use SDL::OpenGL;	536	use SDL::OpenGL;
333		537
334	sub new {	538	sub new {
335	my ($class, $x, $y, $z, $ttf, $text) = @_;	539	my ($class, $x, $y, $z, $height, $text) = @_;
336		540
		541	# TODO: color, and make height, xyz etc. optional
337	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);
338		543
339	$self->set_text ($text);	544	$self->set_text ($text);
340		545
341	$self	546	$self
342	}	547	}
343		548
344	sub set_text {	549	sub set_text {
345	my ($self, $text) = @_;	550	my ($self, $text) = @_;
		551
		552	$self->{text} = $text;
346	$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;
347	}	556	}
348		557
349	sub get_text {	558	sub get_text {
350	my ($self, $text) = @_;	559	my ($self, $text) = @_;
		560
351	$self->{text}	561	$self->{text}
352	}	562	}
353		563
354	sub size_request {	564	sub size_request {
355	my ($self) = @_;	565	my ($self) = @_;
…		…
365		575
366	my $tex = $self->{texture};	576	my $tex = $self->{texture};
367		577
368	glEnable GL_BLEND;	578	glEnable GL_BLEND;
369	glEnable GL_TEXTURE_2D;	579	glEnable GL_TEXTURE_2D;
		580	glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;
370	glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;	581	glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;
371	glBindTexture GL_TEXTURE_2D, $tex->{name};	582	glBindTexture GL_TEXTURE_2D, $tex->{name};
372		583
373	glColor 1, 1, 1;	584	glColor 1, 1, 1, 0.6; # TODO color
374		585
375	glBegin GL_QUADS;	586	glBegin GL_QUADS;
376	glTexCoord 0, 0; glVertex 0 , 0;	587	glTexCoord 0, 0; glVertex 0 , 0;
377	glTexCoord 0, 1; glVertex 0 , $tex->{height};	588	glTexCoord 0, 1; glVertex 0 , $tex->{height};
378	glTexCoord 1, 1; glVertex $tex->{width}, $tex->{height};	589	glTexCoord 1, 1; glVertex $tex->{width}, $tex->{height};
…		…
381		592
382	glDisable GL_BLEND;	593	glDisable GL_BLEND;
383	glDisable GL_TEXTURE_2D;	594	glDisable GL_TEXTURE_2D;
384	}	595	}
385		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
386	package Crossfire::Client::Widget::TextView;	626	package Crossfire::Client::Widget::TextView;
387		627
388	use strict;	628	use strict;
389		629
390	our @ISA = qw/Crossfire::Client::Widget/;	630	our @ISA = qw/Crossfire::Client::Widget/;
391		631
392	use SDL::OpenGL;	632	use SDL::OpenGL;
393	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	#}
394		658
395	sub add_line {	659	sub add_line {
396	my ($self, $line) = @_;	660	my ($self, $line) = @_;
397	push @{$self->{lines}}, $line;	661	push @{$self->{lines}}, $line;
398	}
399		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
400	sub _draw {	681	sub draw_line {
401	my ($self) = @_;	682	my ($self, $tex, $y) = @_;
402		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;
403	}	711	}
404		712
405	package Crossfire::Client::Widget::MapWidget;	713	package Crossfire::Client::Widget::MapWidget;
406		714
407	use strict;	715	use strict;
408		716
409	our @ISA = qw/Crossfire::Client::Widget/;	717	use List::Util qw(min max);
410		718
411	use SDL;	719	use SDL;
412	use SDL::OpenGL;	720	use SDL::OpenGL;
413	use SDL::OpenGL::Constants;	721	use SDL::OpenGL::Constants;
		722
		723	our @ISA = Crossfire::Client::Widget::;
414		724
415	sub key_down {	725	sub key_down {
416	print "MAPKEYDOWN\n";	726	print "MAPKEYDOWN\n";
417	}	727	}
418		728
…		…
420	}	730	}
421		731
422	sub _draw {	732	sub _draw {
423	my ($self) = @_;	733	my ($self) = @_;
424		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
425	glEnable GL_TEXTURE_2D;	757	glEnable GL_TEXTURE_2D;
426	glEnable GL_BLEND;	758	glEnable GL_BLEND;
427	glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;	759	glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE;
428		760
429	my $map = $::CONN->{map};	761	my $sw4 = ($sw + 3) & ~3;
		762	my $lighting = "\x00" x ($sw4 * $sh);
430		763
431	for my $x (0 .. int $::WIDTH / 32) {	764	for my $x (0 .. $sw - 1) {
432	for my $y (0 .. int $::HEIGHT / 32) {	765	for my $y (0 .. $sh - 1) {
433		766
434	my $cell = $map->[$x + $::CONN->{mapx}]	767	my $cell = $map->[$x + $xofs][$y + $yofs]
435	[$y + $::CONN->{mapy}]
436	or next;	768	or next;
437		769
438	my $darkness = $cell->[0] * (1 / 255);	770	my $darkness = $cell->[0] * (1 / 255);
439	if ($darkness < 0) {	771	if ($darkness < 0) {
440	glColor 0.3, 0.3, 0.3;	772	$darkness = 0.15;
441	} else {
442	glColor $darkness, $darkness, $darkness;
443	}	773	}
		774	substr $lighting, $y * $sw4 + $x, 1, chr 255 - $darkness * 255;
444		775
445	for my $num (grep $_, @$cell[1,2,3]) {	776	for my $num (grep $_, @$cell[1,2,3]) {
446	my $tex = $::CONN->{face}[$num]{texture} \|\| next;	777	my $tex = $::CONN->{face}[$num]{texture} \|\| next;
447		778
448	glBindTexture GL_TEXTURE_2D, $tex->{name};	779	glBindTexture GL_TEXTURE_2D, $tex->{name};
…		…
460	glTexCoord 1, 0; glVertex $px + $w, $py;	791	glTexCoord 1, 0; glVertex $px + $w, $py;
461	glEnd;	792	glEnd;
462	}	793	}
463	}	794	}
464	}	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;
465		825
466	glDisable GL_TEXTURE_2D;	826	glDisable GL_TEXTURE_2D;
467	glDisable GL_BLEND;	827	glDisable GL_BLEND;
468	}	828	}
469		829
…		…
516	if (!($mod & KMOD_CTRL ) && delete $self->{ctrl}) {	876	if (!($mod & KMOD_CTRL ) && delete $self->{ctrl}) {
517	$::CONN->send ("command run_stop");	877	$::CONN->send ("command run_stop");
518	}	878	}
519	}	879	}
520		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
521	1;	921	1;
522		922

Diff Legend

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

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents): Revision 1.24 by root, Sat Apr 8 20:25:26 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.24 by root, Sat Apr 8 20:25:26 2006 UTC vs.
Revision 1.35 by root, Sun Apr 9 17:34:15 2006 UTC