ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/DC/UI.pm
(Generate patch)

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.3 by elmex, Fri Apr 7 18:16:51 2006 UTC vs.
Revision 1.48 by root, Sun Apr 9 22:26:09 2006 UTC

1package Client::Widget; 1package Crossfire::Client::Widget;
2
2use strict; 3use strict;
3 4
4our $FOCUS; # the widget with current focus 5use Scalar::Util;
5our %ACTIVE_WIDGETS; 6
7use SDL::OpenGL;
8use SDL::OpenGL::Constants;
9
10use Crossfire::Client;
6 11
7# class methods for events 12# class methods for events
8sub feed_sdl_key_down_event { $FOCUS->key_down ($_[0]) if $FOCUS } 13sub feed_sdl_key_down_event { $::FOCUS->key_down ($_[0]) if $::FOCUS }
9sub feed_sdl_key_up_event { $FOCUS->key_up ($_[0]) if $FOCUS } 14sub feed_sdl_key_up_event { $::FOCUS->key_up ($_[0]) if $::FOCUS }
10sub feed_sdl_button_down_event { $FOCUS->button_down ($_[0]) if $FOCUS } 15sub feed_sdl_button_down_event { }
11sub feed_sdl_button_up_event { $FOCUS->button_up ($_[0]) if $FOCUS } 16sub feed_sdl_button_up_event { }
12 17
13sub new { 18sub new {
14 my $class = shift; 19 my $class = shift;
15 my $self = { @_ };
16 bless $self, $class;
17 return $self;
18}
19 20
20sub activate { 21 bless { @_ }, $class
21 $ACTIVE_WIDGETS{$_[0]} = $_[0];
22} 22}
23sub deactivate { 23
24 delete $ACTIVE_WIDGETS{$_[0]}; 24sub move {
25 my ($self, $x, $y, $z) = @_;
26 $self->{x} = $x;
27 $self->{y} = $y;
28 $self->{z} = $z if defined $z;
29}
30
31sub needs_redraw {
32 0
33}
34
35sub size_request {
36 require Carp;
37 Carp::confess "size_request is abtract";
38}
39
40sub size_allocate {
41 my ($self, $w, $h) = @_;
42
43 $self->{w} = $w;
44 $self->{h} = $h;
25} 45}
26 46
27sub focus_in { 47sub focus_in {
28 my ($widget) = @_; 48 my ($widget) = @_;
29 $FOCUS = $widget; 49 $::FOCUS = $widget;
30} 50}
51
31sub focus_out { 52sub focus_out {
32 my ($widget) = @_; 53 my ($widget) = @_;
33} 54}
55
34sub key_down { 56sub key_down {
35 my ($widget, $sdlev) = @_; 57 my ($widget, $sdlev) = @_;
36} 58}
59
37sub key_up { 60sub key_up {
38 my ($widget, $sdlev) = @_; 61 my ($widget, $sdlev) = @_;
39} 62}
63
40sub button_down { 64sub button_down {
41 my ($widget, $sdlev) = @_; 65 my ($widget, $sdlev) = @_;
42} 66}
67
43sub button_up { 68sub button_up {
44 my ($widget, $sdlev) = @_; 69 my ($widget, $sdlev) = @_;
45} 70}
71
72sub w { $_[0]->{w} = $_[1] if $_[1]; $_[0]->{w} }
73sub h { $_[0]->{h} = $_[1] if $_[1]; $_[0]->{h} }
74sub x { $_[0]->{x} = $_[1] if $_[1]; $_[0]->{x} }
75sub y { $_[0]->{y} = $_[1] if $_[1]; $_[0]->{y} }
76sub z { $_[0]->{z} = $_[1] if $_[1]; $_[0]->{z} }
77
46sub draw { 78sub draw {
47 my ($widget) = @_; 79 my ($self) = @_;
80
81 glPushMatrix;
82 glTranslate $self->{x}, $self->{y}, 0;
83 $self->_draw;
84 if ($self == $::HOVER) {
85 glColor 1, 1, 1, 0.4;
86 glEnable GL_BLEND;
87 glBegin GL_QUADS;
88 glVertex 0, 0;
89 glVertex $self->{w} - 1, 0;
90 glVertex $self->{w} - 1, $self->{h} - 1;
91 glVertex 0, $self->{h} - 1;
92 glEnd;
93 glDisable GL_BLEND;
94 }
95 glPopMatrix;
48} 96}
97
98sub _draw {
99 my ($self) = @_;
100
101 warn "no draw defined for $self\n";
102}
103
49sub bbox { 104sub bbox {
105 my ($self) = @_;
106 my ($w, $h) = $self->size_request;
107 (
108 $self->{x},
109 $self->{y},
110 $self->{x} = $w,
111 $self->{y} = $h
112 )
113}
114
115sub find_widget {
116 my ($self, $x, $y) = @_;
117
118 return $self
119 if $x >= $self->{x} && $x < $self->{x} + $self->{w}
120 && $y >= $self->{y} && $y < $self->{y} + $self->{h};
121
122 ()
123}
124
125sub del_parent { $_[0]->{parent} = undef }
126
127sub set_parent {
128 my ($self, $par) = @_;
129
130 $self->{parent} = $par;
131 Scalar::Util::weaken $self->{parent};
132}
133
134sub get_parent {
135 $_[0]->{parent}
136}
137
138sub update {
139 my ($self) = @_;
140
141 $self->{parent}->update
142 if $self->{parent};
143}
144
145sub DESTROY {
146 my ($self) = @_;
147
148 #$self->deactivate;
149}
150
151#############################################################################
152
153package Crossfire::Client::Widget::Container;
154
155our @ISA = Crossfire::Client::Widget::;
156
157sub new {
158 my ($class, @widgets) = @_;
159
160 my $self = $class->SUPER::new (children => []);
161 $self->add ($_) for @widgets;
162
163 $self
164}
165
166sub add {
167 my ($self, $chld, $expand) = @_;
168
169 $chld->{expand} = $expand;
170 $chld->set_parent ($self);
171
172 @{$self->{children}} =
173 sort { $a->{z} <=> $b->{z} }
174 @{$self->{children}}, $chld;
175
176 $self->size_allocate ($self->{w}, $self->{h})
177 if $self->{w}; #TODO: check for "realised state"
178}
179
180sub remove {
50 my ($widget) = @_; 181 my ($self, $widget) = @_;
51}
52 182
53package Client::TextView; 183 $self->{children} = [ grep $_ != $widget, @{ $self->{children} } ];
184
185 $self->size_allocate ($self->{w}, $self->{h});
186}
187
188sub find_widget {
189 my ($self, $x, $y) = @_;
190
191 $x -= $self->{x};
192 $y -= $self->{y};
193
194 my $res;
195
196 for (reverse @{ $self->{children} }) {
197 $res = $_->find_widget ($x, $y)
198 and return $res;
199 }
200
201 $self->SUPER::find_widget ($x + $self->{x}, $y + $self->{y})
202}
203
204sub _draw {
205 my ($self) = @_;
206
207 $_->draw for @{$self->{children}};
208}
209
210#############################################################################
211
212package Crossfire::Client::Widget::Bin;
213
214our @ISA = Crossfire::Client::Widget::Container::;
215
216sub child { $_[0]->{children}[0] }
217
218sub size_request {
219 $_[0]{children}[0]->size_request if $_[0]{children}[0];
220}
221
222sub size_allocate {
223 my ($self, $w, $h) = @_;
224
225 $self->SUPER::size_allocate ($w, $h);
226 $self->{children}[0]->size_allocate ($w, $h)
227 if $self->{children}[0]
228}
229
230#############################################################################
231
232package Crossfire::Client::Widget::Toplevel;
233
234our @ISA = Crossfire::Client::Widget::Container::;
235
236sub update {
237 my ($self) = @_;
238
239 ::refresh ();
240}
241
242sub add {
243 my ($self, $widget) = @_;
244
245 $self->SUPER::add ($widget);
246
247 $widget->size_allocate ($widget->size_request);
248}
249
250#############################################################################
251
252package Crossfire::Client::Widget::Window;
253
254our @ISA = Crossfire::Client::Widget::Bin::;
255
256use SDL::OpenGL;
257
258sub new {
259 my ($class, $x, $y, $z, $w, $h) = @_;
260
261 my $self = $class->SUPER::new;
262
263 @$self{qw(x y z w h)} = ($x, $y, $z, $w, $h);
264}
265
266sub update {
267 my ($self) = @_;
268
269 $self->render_chld;
270 $self->SUPER::update;
271}
272
273sub render_chld {
274 my ($self) = @_;
275
276 $self->{texture} =
277 Crossfire::Client::Texture->new_from_opengl (
278 $self->{w}, $self->{h}, sub { $self->child->draw }
279 );
280}
281
282sub size_allocate {
283 my ($self, $w, $h) = @_;
284
285 $self->{w} = $w;
286 $self->{h} = $h;
287
288 $self->child->size_allocate ($w, $h);
289
290 $self->render_chld;
291}
292
293sub _draw {
294 my ($self) = @_;
295
296 my ($w, $h) = ($self->w, $self->h);
297
298 my $tex = $self->{texture}
299 or return;
300
301 glEnable GL_BLEND;
302 glEnable GL_TEXTURE_2D;
303 glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE;
304 glBindTexture GL_TEXTURE_2D, $tex->{name};
305
306 glBegin GL_QUADS;
307 glTexCoord 0, 0; glVertex 0, 0;
308 glTexCoord 0, 1; glVertex 0, $h;
309 glTexCoord 1, 1; glVertex $w, $h;
310 glTexCoord 1, 0; glVertex $w, 0;
311 glEnd;
312
313 glDisable GL_BLEND;
314 glDisable GL_TEXTURE_2D;
315}
316
317#############################################################################
318
319package Crossfire::Client::Widget::Frame;
320
321our @ISA = Crossfire::Client::Widget::Bin::;
322
323use SDL::OpenGL;
324
325sub size_request {
326 my ($self) = @_;
327 my $chld = $self->child
328 or return (0, 0);
329
330 $chld->move (2, 2);
331
332 map { $_ + 4 } $chld->size_request;
333}
334
335sub size_allocate {
336 my ($self, $w, $h) = @_;
337
338 $self->{w} = $w;
339 $self->{h} = $h;
340
341 $self->child->size_allocate ($w - 4, $h - 4);
342 $self->child->move (2, 2);
343}
344
345sub _draw {
346 my ($self) = @_;
347
348 my $chld = $self->child;
349
350 my ($w, $h) = $chld->size_request;
351
352 glBegin GL_QUADS;
353 glColor 0, 0, 0;
354 glTexCoord 0, 0; glVertex 0 , 0;
355 glTexCoord 0, 1; glVertex 0 , $h + 4;
356 glTexCoord 1, 1; glVertex $w + 4 , $h + 4;
357 glTexCoord 1, 0; glVertex $w + 4 , 0;
358 glEnd;
359
360 $chld->draw;
361}
362
363#############################################################################
364
365package Crossfire::Client::Widget::FancyFrame;
366
367our @ISA = Crossfire::Client::Widget::Bin::;
368
369use SDL::OpenGL;
370
371my @tex =
372 map { new_from_file Crossfire::Client::Texture Crossfire::Client::find_rcfile $_ }
373 qw(d1_bg.png d1_border_top.png d1_border_right.png d1_border_left.png d1_border_bottom.png);
374
375sub size_request {
376 my ($self) = @_;
377
378 my ($w, $h) = $self->SUPER::size_request;
379
380 $h += $tex[1]->{height};
381 $h += $tex[4]->{height};
382 $w += $tex[2]->{width};
383 $w += $tex[3]->{width};
384
385 ($w, $h)
386}
387
388sub size_allocate {
389 my ($self, $w, $h) = @_;
390
391 $self->SUPER::size_allocate ($w, $h);
392
393 $h -= $tex[1]->{height};
394 $h -= $tex[4]->{height};
395 $w -= $tex[2]->{width};
396 $w -= $tex[3]->{width};
397
398 $h = $h < 0 ? 0 : $h;
399 $w = $w < 0 ? 0 : $w;
400
401 $self->child->size_allocate ($w, $h);
402 $self->child->move ($tex[3]->{width}, $tex[1]->{height});
403}
404
405sub _draw {
406 my ($self) = @_;
407
408 my ($w, $h) = ($self->{w}, $self->{h});
409 my ($cw, $ch) = ($self->child->{w}, $self->child->{h});
410
411 glEnable GL_BLEND;
412 glEnable GL_TEXTURE_2D;
413 glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;
414 glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE;
415
416 my $top = $tex[1];
417 glBindTexture GL_TEXTURE_2D, $top->{name};
418
419 glBegin GL_QUADS;
420 glTexCoord 0, 0; glVertex 0 , 0;
421 glTexCoord 0, 1; glVertex 0 , $top->{height};
422 glTexCoord 1, 1; glVertex $w , $top->{height};
423 glTexCoord 1, 0; glVertex $w , 0;
424 glEnd;
425
426 my $left = $tex[3];
427 glBindTexture GL_TEXTURE_2D, $left->{name};
428
429 glBegin GL_QUADS;
430 glTexCoord 0, 0; glVertex 0 , $top->{height};
431 glTexCoord 0, 1; glVertex 0 , $top->{height} + $ch;
432 glTexCoord 1, 1; glVertex $left->{width}, $top->{height} + $ch;
433 glTexCoord 1, 0; glVertex $left->{width}, $top->{height};
434 glEnd;
435
436 my $right = $tex[2];
437 glBindTexture GL_TEXTURE_2D, $right->{name};
438
439 glBegin GL_QUADS;
440 glTexCoord 0, 0; glVertex $w - $right->{width}, $top->{height};
441 glTexCoord 0, 1; glVertex $w - $right->{width}, $top->{height} + $ch;
442 glTexCoord 1, 1; glVertex $w , $top->{height} + $ch;
443 glTexCoord 1, 0; glVertex $w , $top->{height};
444 glEnd;
445
446 my $bottom = $tex[4];
447 glBindTexture GL_TEXTURE_2D, $bottom->{name};
448
449 glBegin GL_QUADS;
450 glTexCoord 0, 0; glVertex 0 , $h - $bottom->{height};
451 glTexCoord 0, 1; glVertex 0 , $h;
452 glTexCoord 1, 1; glVertex $w , $h;
453 glTexCoord 1, 0; glVertex $w , $h - $bottom->{height};
454 glEnd;
455
456 my $bg = $tex[0];
457 glBindTexture GL_TEXTURE_2D, $bg->{name};
458 glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE;
459 glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT;
460 glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT;
461
462 my $rep_x = $cw / $bg->{width};
463 my $rep_y = $ch / $bg->{height};
464
465 glBegin GL_QUADS;
466 glTexCoord 0, 0; glVertex $left->{width}, $top->{height};
467 glTexCoord 0, $rep_y; glVertex $left->{width}, $top->{height} + $ch;
468 glTexCoord $rep_x, $rep_y; glVertex $left->{width} + $cw , $top->{height} + $ch;
469 glTexCoord $rep_x, 0; glVertex $left->{width} + $cw , $top->{height};
470 glEnd;
471
472 glDisable GL_BLEND;
473 glDisable GL_TEXTURE_2D;
474
475 $self->child->draw;
476
477}
478
479#############################################################################
480
481package Crossfire::Client::Widget::Table;
482
483our @ISA = Crossfire::Client::Widget::Bin::;
484
485use SDL::OpenGL;
486
487sub add {
488 my ($self, $x, $y, $chld) = @_;
489 my $old_chld = $self->{children}[$y][$x];
490
491 $self->{children}[$y][$x] = $chld;
492 $chld->set_parent ($self);
493 $self->update;
494}
495
496sub max_row_height {
497 my ($self, $row) = @_;
498
499 my $hs = 0;
500 for (my $xi = 0; $xi <= $#{$self->{children}->[$row] || []}; $xi++) {
501 my $c = $self->{children}->[$row]->[$xi];
502 if ($c) {
503 my ($w, $h) = $c->size_request;
504 if ($hs < $h) { $hs = $h }
505 }
506 }
507 return $hs;
508}
509
510sub max_col_width {
511 my ($self, $col) = @_;
512
513 my $ws = 0;
514 for (my $yi = 0; $yi <= $#{$self->{children} || []}; $yi++) {
515 my $c = ($self->{children}->[$yi] || [])->[$col];
516 if ($c) {
517 my ($w, $h) = $c->size_request;
518 if ($ws < $w) { $ws = $w }
519 }
520 }
521 return $ws;
522}
523
524sub size_request {
525 my ($self) = @_;
526
527 my ($hs, $ws) = (0, 0);
528
529 for (my $yi = 0; $yi <= $#{$self->{children}}; $yi++) {
530 $hs += $self->max_row_height ($yi);
531 }
532
533 for (my $yi = 0; $yi <= $#{$self->{children}}; $yi++) {
534 my $wm = 0;
535 for (my $xi = 0; $xi <= $#{$self->{children}->[$yi]}; $xi++) {
536 $wm += $self->max_col_width ($xi)
537 }
538 if ($ws < $wm) { $ws = $wm }
539 }
540
541 return ($ws, $hs);
542}
543
544sub _draw {
545 my ($self) = @_;
546
547 my $y = 0;
548 for (my $yi = 0; $yi <= $#{$self->{children}}; $yi++) {
549 my $x = 0;
550
551 for (my $xi = 0; $xi <= $#{$self->{children}->[$yi]}; $xi++) {
552
553 my $c = $self->{children}->[$yi]->[$xi];
554 if ($c) {
555 $c->move ($x, $y, 0); #TODO: Move to size_request
556 $c->draw if $c;
557 }
558
559 $x += $self->max_col_width ($xi);
560 }
561
562 $y += $self->max_row_height ($yi);
563 }
564}
565
566#############################################################################
567
568package Crossfire::Client::Widget::VBox;
569
570our @ISA = Crossfire::Client::Widget::Container::;
571
572use SDL::OpenGL;
573
574sub size_request {
575 my ($self) = @_;
576
577 my @alloc = map [$_->size_request], @{$self->{children}};
578
579 (
580 (List::Util::max map $_->[0], @alloc),
581 (List::Util::sum map $_->[1], @alloc),
582 )
583}
584
585sub size_allocate {
586 my ($self, $w, $h) = @_;
587
588 $self->w ($w);
589 $self->h ($h);
590
591 my $exp;
592 my @oth;
593 # find expand widget
594 for (@{$self->{children}}) {
595 if ($_->{expand}) {
596 $exp = $_;
597 last;
598 }
599 push @oth, $_;
600 }
601
602 my ($ow, $oh);
603
604 # get sizes of other widgets
605 for (@oth) {
606 my ($w, $h) = $_->size_request;
607 $oh += $h;
608 if ($ow < $w) { $ow = $w }
609 }
610
611 my $y = 0;
612 for (@{$self->{children}}) {
613 $_->move (0, $y);
614
615 if ($_ == $exp) {
616 $_->size_allocate ($w, $h - $oh);
617 $y += $h - $oh;
618 } else {
619 my ($cw, $h) = $_->size_request;
620 $_->size_allocate ($w, $h);
621 $y += $h;
622 }
623 }
624}
625
626#############################################################################
627
628package Crossfire::Client::Widget::Label;
629
630our @ISA = Crossfire::Client::Widget::;
631
632use SDL::OpenGL;
633
634sub new {
635 my ($class, $x, $y, $z, $height, $text) = @_;
636
637 # TODO: color, and make height, xyz etc. optional
638 my $self = $class->SUPER::new (x => $x, y => $y, z => $z, height => $height);
639
640 $self->set_text ($text);
641
642 $self
643}
644
645sub set_text {
646 my ($self, $text) = @_;
647
648 $self->{text} = $text;
649 $self->{texture} = new_from_text Crossfire::Client::Texture $text, $self->{height};
650
651 $self->update;
652}
653
654sub get_text {
655 my ($self, $text) = @_;
656
657 $self->{text}
658}
659
660sub size_request {
661 my ($self) = @_;
662
663 (
664 $self->{texture}{width},
665 $self->{texture}{height},
666 )
667}
668
669sub _draw {
670 my ($self) = @_;
671
672 my $tex = $self->{texture};
673
674 glEnable GL_BLEND;
675 glEnable GL_TEXTURE_2D;
676 glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;
677 glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;
678 glBindTexture GL_TEXTURE_2D, $tex->{name};
679
680 glColor 1, 0, 0, 1; # TODO color
681
682 glBegin GL_QUADS;
683 glTexCoord 0, 0; glVertex 0 , 0;
684 glTexCoord 0, 1; glVertex 0 , $tex->{height};
685 glTexCoord 1, 1; glVertex $tex->{width}, $tex->{height};
686 glTexCoord 1, 0; glVertex $tex->{width}, 0;
687 glEnd;
688
689 glDisable GL_BLEND;
690 glDisable GL_TEXTURE_2D;
691}
692
693#############################################################################
694
695package Crossfire::Client::Widget::TextEntry;
696
697our @ISA = Crossfire::Client::Widget::Label::;
698
699use SDL;
700use SDL::OpenGL;
701
702sub key_down {
703 my ($self, $ev) = @_;
704
705 my $mod = $ev->key_mod;
706 my $sym = $ev->key_sym;
707
708 $ev->set_unicode (1);
709 my $uni = $ev->key_unicode;
710
711 my $text = $self->get_text;
712
713 if ($sym == SDLK_BACKSPACE) {
714 substr $text, -1, 1, '';
715
716 } elsif ($uni) {
717 $text .= chr $uni;
718 }
719 $self->set_text ($text);
720}
721
722#############################################################################
723
724package Crossfire::Client::Widget::MapWidget;
725
54use strict; 726use strict;
55our @ISA = qw/Client::Widget/;
56 727
728use List::Util qw(min max);
729
730use SDL;
57use SDL::OpenGL; 731use SDL::OpenGL;
58use SDL::OpenGL::Constants; 732use SDL::OpenGL::Constants;
59 733
60sub add_line {
61 my ($self, $line) = @_;
62 push @{$self->{lines}}, $line;
63}
64
65sub draw {
66 my ($self) = @_;
67
68}
69
70package Client::MapWidget;
71use strict;
72our @ISA = qw/Client::Widget/; 734our @ISA = Crossfire::Client::Widget::;
73
74use SDL::OpenGL;
75use SDL::OpenGL::Constants;
76 735
77sub key_down { 736sub key_down {
78 print "MAPKEYDOWN\n"; 737 print "MAPKEYDOWN\n";
79} 738}
80 739
81sub key_up { 740sub key_up {
82} 741}
83 742
743sub size_request {
744
745}
746
747sub size_allocate {
748}
749
84sub draw { 750sub _draw {
751 my ($self) = @_;
752
753 my $mx = $::CONN->{mapx};
754 my $my = $::CONN->{mapy};
755
756 my $map = $::CONN->{map};
757
758 my ($xofs, $yofs);
759
760 my $sw = 1 + int $::WIDTH / 32;
761 my $sh = 1 + int $::HEIGHT / 32;
762
763 if ($::CONN->{mapw} > $sw) {
764 $xofs = $mx + ($::CONN->{mapw} - $sw) * 0.5;
765 } else {
766 $xofs = $self->{xofs} = min $mx, max $mx + $::CONN->{mapw} - $sw + 1, $self->{xofs};
767 }
768
769 if ($::CONN->{maph} > $sh) {
770 $yofs = $my + ($::CONN->{maph} - $sh) * 0.5;
771 } else {
772 $yofs = $self->{yofs} = min $my, max $my + $::CONN->{maph} - $sh + 1, $self->{yofs};
773 }
774
85 glEnable GL_TEXTURE_2D; 775 glEnable GL_TEXTURE_2D;
86 glEnable GL_BLEND; 776 glEnable GL_BLEND;
777 glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE;
87 778
88 my $map = $::CONN->{map}; 779 my $sw4 = ($sw + 3) & ~3;
780 my $lighting = "\x00" x ($sw4 * $sh);
89 781
90 for my $x (0 .. $::CONN->{mapw} - 1) { 782 for my $x (0 .. $sw - 1) {
91 for my $y (0 .. $::CONN->{maph} - 1) { 783 for my $y (0 .. $sh - 1) {
92 784
93 my $cell = $map->[$x][$y] 785 my $cell = $map->[$x + $xofs][$y + $yofs]
94 or next; 786 or next;
95 787
96 my $darkness = $cell->[3] * (1 / 255); 788 my $darkness = $cell->[0] * (1 / 255);
97 glColor $darkness, $darkness, $darkness; 789 if ($darkness < 0) {
790 $darkness = 0.15;
791 }
792 substr $lighting, $y * $sw4 + $x, 1, chr 255 - $darkness * 255;
98 793
99 for my $num (grep $_, $cell->[0], $cell->[1], $cell->[2]) { 794 for my $num (grep $_, @$cell[1,2,3]) {
100 my $tex = $::CONN->{face}[$num]{texture} || 0; 795 my $tex = $::CONN->{face}[$num]{texture} || next;
101 796
102 glBindTexture GL_TEXTURE_2D, $tex; 797 glBindTexture GL_TEXTURE_2D, $tex->{name};
798
799 my $w = $tex->{width};
800 my $h = $tex->{height};
801
802 my $px = ($x + 1) * 32 - $w;
803 my $py = ($y + 1) * 32 - $h;
103 804
104 glBegin GL_QUADS; 805 glBegin GL_QUADS;
105 glTexCoord 0, 0; glVertex $x, $y; 806 glTexCoord 0, 0; glVertex $px , $py;
106 glTexCoord 0, 1; glVertex $x, $y + 1; 807 glTexCoord 0, 1; glVertex $px , $py + $h;
107 glTexCoord 1, 1; glVertex $x + 1, $y + 1; 808 glTexCoord 1, 1; glVertex $px + $w, $py + $h;
108 glTexCoord 1, 0; glVertex $x + 1, $y; 809 glTexCoord 1, 0; glVertex $px + $w, $py;
109 glEnd; 810 glEnd;
110 } 811 }
111 } 812 }
112 } 813 }
113 814
815# if (1) { # higher quality darkness
816# $lighting =~ s/(.)/$1$1$1/gs;
817# my $pb = new_from_data Gtk2::Gdk::Pixbuf $lighting, "rgb", 0, 8, $sw4, $sh, $sw4 * 3;
818#
819# $pb = $pb->scale_simple ($sw4 * 0.5, $sh * 0.5, "bilinear");
820#
821# $lighting = $pb->get_pixels;
822# $lighting =~ s/(.)../$1/gs;
823# }
824
825 $lighting = new Crossfire::Client::Texture
826 width => $sw4,
827 height => $sh,
828 data => $lighting,
829 internalformat => GL_ALPHA4,
830 format => GL_ALPHA;
831
832 glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;
833 glColor 0, 0, 0, 0.75;
834 glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;
835 glBindTexture GL_TEXTURE_2D, $lighting->{name};
836 glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR;
837 glBegin GL_QUADS;
838 glTexCoord 0, 0; glVertex 0 , 0;
839 glTexCoord 0, 1; glVertex 0 , $sh * 32;
840 glTexCoord 1, 1; glVertex $sw4 * 32, $sh * 32;
841 glTexCoord 1, 0; glVertex $sw4 * 32, 0;
842 glEnd;
843
114 glDisable GL_TEXTURE_2D; 844 glDisable GL_TEXTURE_2D;
115 glDisable GL_BLEND; 845 glDisable GL_BLEND;
116} 846}
117 847
848my %DIR = (
849 SDLK_KP8, [1, "north"],
850 SDLK_KP9, [2, "northeast"],
851 SDLK_KP6, [3, "east"],
852 SDLK_KP3, [4, "southeast"],
853 SDLK_KP2, [5, "south"],
854 SDLK_KP1, [6, "southwest"],
855 SDLK_KP4, [7, "west"],
856 SDLK_KP7, [8, "northwest"],
857
858 SDLK_UP, [1, "north"],
859 SDLK_RIGHT, [3, "east"],
860 SDLK_DOWN, [5, "south"],
861 SDLK_LEFT, [7, "west"],
862);
863
864sub key_down {
865 my ($self, $ev) = @_;
866
867 my $mod = $ev->key_mod;
868 my $sym = $ev->key_sym;
869
870 if ($sym == SDLK_KP5) {
871 $::CONN->send ("command stay fire");
872 } elsif (exists $DIR{$sym}) {
873 if ($mod & KMOD_SHIFT) {
874 $self->{shft}++;
875 $::CONN->send ("command fire $DIR{$sym}[0]");
876 } elsif ($mod & KMOD_CTRL) {
877 $self->{ctrl}++;
878 $::CONN->send ("command run $DIR{$sym}[0]");
879 } else {
880 $::CONN->send ("command $DIR{$sym}[1]");
881 }
882 }
883}
884
885sub key_up {
886 my ($self, $ev) = @_;
887
888 my $mod = $ev->key_mod;
889 my $sym = $ev->key_sym;
890
891 if (!($mod & KMOD_SHIFT) && delete $self->{shft}) {
892 $::CONN->send ("command fire_stop");
893 }
894 if (!($mod & KMOD_CTRL ) && delete $self->{ctrl}) {
895 $::CONN->send ("command run_stop");
896 }
897}
898
899#############################################################################
900
901package Crossfire::Client::Widget::Animator;
902
903use SDL::OpenGL;
904
905our @ISA = Crossfire::Client::Widget::Bin::;
906
907sub moveto {
908 my ($self, $x, $y) = @_;
909
910 $self->{moveto} = [$self->{x}, $self->{y}, $x, $y];
911 $self->{speed} = 0.2;
912 $self->{time} = 1;
913
914 ::animation_start $self;
915}
916
917sub animate {
918 my ($self, $interval) = @_;
919
920 $self->{time} -= $interval * $self->{speed};
921 if ($self->{time} <= 0) {
922 $self->{time} = 0;
923 ::animation_stop $self;
924 }
925
926 my ($x0, $y0, $x1, $y1) = @{$self->{moveto}};
927
928 $self->{x} = $x0 * $self->{time} + $x1 * (1 - $self->{time});
929 $self->{y} = $y0 * $self->{time} + $y1 * (1 - $self->{time});
930}
931
932sub _draw {
933 my ($self) = @_;
934
935 glPushMatrix;
936 glRotate $self->{time} * 10000, 0, 1, 0;
937 $self->{children}[0]->draw;
938 glPopMatrix;
939}
940
1181; 9411;
942

Diff Legend

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