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.2 by elmex, Fri Apr 7 17:37:11 2006 UTC vs.
Revision 1.5 by root, Fri Apr 7 19:33:42 2006 UTC

… …
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
61package Client::TextView;
62
63use strict;
64our @ISA = qw/Client::Widget/;
65
66use SDL::OpenGL;
67use SDL::OpenGL::Constants;
68
69sub add_line {
70 my ($self, $line) = @_;
71 push @{$self->{lines}}, $line;
72}
73
74sub draw {
75 my ($self) = @_;
76
77}
78
53package Client::MapWidget; 79package Client::MapWidget;
80
54use strict; 81use strict;
55our @ISA = qw/Client::Widget/; 82our @ISA = qw/Client::Widget/;
56 83
57use SDL::OpenGL; 84use SDL::OpenGL;
58use SDL::OpenGL::Constants; 85use SDL::OpenGL::Constants;
… …
62} 89}
63 90
64sub key_up { 91sub key_up {
65} 92}
66 93
94my $x;
95
67sub draw { 96sub draw {
68 glEnable GL_TEXTURE_2D; 97 glEnable GL_TEXTURE_2D;
69 glEnable GL_BLEND; 98 glEnable GL_BLEND;
99
100 glPushMatrix;
70 101
71 my $map = $::CONN->{map}; 102 my $map = $::CONN->{map};
72 103
73 for my $x (0 .. $::CONN->{mapw} - 1) { 104 for my $x (0 .. $::CONN->{mapw} - 1) {
74 for my $y (0 .. $::CONN->{maph} - 1) { 105 for my $y (0 .. $::CONN->{maph} - 1) {
… …
78 109
79 my $darkness = $cell->[3] * (1 / 255); 110 my $darkness = $cell->[3] * (1 / 255);
80 glColor $darkness, $darkness, $darkness; 111 glColor $darkness, $darkness, $darkness;
81 112
82 for my $num (grep $_, $cell->[0], $cell->[1], $cell->[2]) { 113 for my $num (grep $_, $cell->[0], $cell->[1], $cell->[2]) {
83 my $tex = $::CONN->{face}[$num]{texture} || 0; 114 my $tex = $::CONN->{face}[$num]{texture} || next;
84 115
85 glBindTexture GL_TEXTURE_2D, $tex; 116 glBindTexture GL_TEXTURE_2D, $tex->{name};
86 117
87 glBegin GL_QUADS; 118 glBegin GL_QUADS;
88 glTexCoord 0, 0; glVertex $x, $y; 119 glTexCoord 0, 0; glVertex $x, $y;
89 glTexCoord 0, 1; glVertex $x, $y + 1; 120 glTexCoord 0, 1; glVertex $x, $y + 1;
90 glTexCoord 1, 1; glVertex $x + 1, $y + 1; 121 glTexCoord 1, 1; glVertex $x + 1, $y + 1;
… …
92 glEnd; 123 glEnd;
93 } 124 }
94 } 125 }
95 } 126 }
96 127
128 glPopMatrix;
129
97 glDisable GL_TEXTURE_2D; 130 glDisable GL_TEXTURE_2D;
98 glDisable GL_BLEND; 131 glDisable GL_BLEND;
99} 132}
100 133
1011; 1341;
135

Diff Legend

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