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.6 by elmex, Fri Apr 7 19:58:55 2006 UTC

1package Client::Widget; 1package Crossfire::Client::Widget;
2use strict; 2use strict;
3 3
4our $FOCUS; # the widget with current focus 4our $FOCUS; # the widget with current focus
5our %ACTIVE_WIDGETS; 5our %ACTIVE_WIDGETS;
6 6
… …
18} 18}
19 19
20sub activate { 20sub activate {
21 $ACTIVE_WIDGETS{$_[0]} = $_[0]; 21 $ACTIVE_WIDGETS{$_[0]} = $_[0];
22} 22}
23
23sub deactivate { 24sub deactivate {
24 delete $ACTIVE_WIDGETS{$_[0]}; 25 delete $ACTIVE_WIDGETS{$_[0]};
25} 26}
26 27
27sub focus_in { 28sub focus_in {
28 my ($widget) = @_; 29 my ($widget) = @_;
29 $FOCUS = $widget; 30 $FOCUS = $widget;
30} 31}
32
31sub focus_out { 33sub focus_out {
32 my ($widget) = @_; 34 my ($widget) = @_;
33} 35}
36
34sub key_down { 37sub key_down {
35 my ($widget, $sdlev) = @_; 38 my ($widget, $sdlev) = @_;
36} 39}
40
37sub key_up { 41sub key_up {
38 my ($widget, $sdlev) = @_; 42 my ($widget, $sdlev) = @_;
39} 43}
44
40sub button_down { 45sub button_down {
41 my ($widget, $sdlev) = @_; 46 my ($widget, $sdlev) = @_;
42} 47}
48
43sub button_up { 49sub button_up {
44 my ($widget, $sdlev) = @_; 50 my ($widget, $sdlev) = @_;
45} 51}
52
46sub draw { 53sub draw {
47 my ($widget) = @_; 54 my ($widget) = @_;
48} 55}
56
49sub bbox { 57sub bbox {
50 my ($widget) = @_; 58 my ($widget) = @_;
51} 59}
52 60
53package Client::TextView; 61package Client::TextView;
62
54use strict; 63use strict;
55our @ISA = qw/Client::Widget/; 64our @ISA = qw/Client::Widget/;
56 65
57use SDL::OpenGL; 66use SDL::OpenGL;
58use SDL::OpenGL::Constants; 67use SDL::OpenGL::Constants;
… …
66 my ($self) = @_; 75 my ($self) = @_;
67 76
68} 77}
69 78
70package Client::MapWidget; 79package Client::MapWidget;
80
71use strict; 81use strict;
72our @ISA = qw/Client::Widget/; 82our @ISA = qw/Client::Widget/;
73 83
74use SDL::OpenGL; 84use SDL::OpenGL;
75use SDL::OpenGL::Constants; 85use SDL::OpenGL::Constants;
… …
79} 89}
80 90
81sub key_up { 91sub key_up {
82} 92}
83 93
94my $x;
95
84sub draw { 96sub draw {
85 glEnable GL_TEXTURE_2D; 97 glEnable GL_TEXTURE_2D;
86 glEnable GL_BLEND; 98 glEnable GL_BLEND;
99
100 glPushMatrix;
87 101
88 my $map = $::CONN->{map}; 102 my $map = $::CONN->{map};
89 103
90 for my $x (0 .. $::CONN->{mapw} - 1) { 104 for my $x (0 .. $::CONN->{mapw} - 1) {
91 for my $y (0 .. $::CONN->{maph} - 1) { 105 for my $y (0 .. $::CONN->{maph} - 1) {
… …
95 109
96 my $darkness = $cell->[3] * (1 / 255); 110 my $darkness = $cell->[3] * (1 / 255);
97 glColor $darkness, $darkness, $darkness; 111 glColor $darkness, $darkness, $darkness;
98 112
99 for my $num (grep $_, $cell->[0], $cell->[1], $cell->[2]) { 113 for my $num (grep $_, $cell->[0], $cell->[1], $cell->[2]) {
100 my $tex = $::CONN->{face}[$num]{texture} || 0; 114 my $tex = $::CONN->{face}[$num]{texture} || next;
101 115
102 glBindTexture GL_TEXTURE_2D, $tex; 116 glBindTexture GL_TEXTURE_2D, $tex->{name};
103 117
104 glBegin GL_QUADS; 118 glBegin GL_QUADS;
105 glTexCoord 0, 0; glVertex $x, $y; 119 glTexCoord 0, 0; glVertex $x, $y;
106 glTexCoord 0, 1; glVertex $x, $y + 1; 120 glTexCoord 0, 1; glVertex $x, $y + 1;
107 glTexCoord 1, 1; glVertex $x + 1, $y + 1; 121 glTexCoord 1, 1; glVertex $x + 1, $y + 1;
… …
109 glEnd; 123 glEnd;
110 } 124 }
111 } 125 }
112 } 126 }
113 127
128 glPopMatrix;
129
114 glDisable GL_TEXTURE_2D; 130 glDisable GL_TEXTURE_2D;
115 glDisable GL_BLEND; 131 glDisable GL_BLEND;
116} 132}
117 133
1181; 1341;
135

Diff Legend

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