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.7 by elmex, Fri Apr 7 20:04:59 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;
82
72our @ISA = qw/Client::Widget/; 83our @ISA = qw/Client::Widget/;
73 84
74use SDL::OpenGL; 85use SDL::OpenGL;
75use SDL::OpenGL::Constants; 86use SDL::OpenGL::Constants;
76 87
… …
79} 90}
80 91
81sub key_up { 92sub key_up {
82} 93}
83 94
95my $x;
96
84sub draw { 97sub draw {
85 glEnable GL_TEXTURE_2D; 98 glEnable GL_TEXTURE_2D;
86 glEnable GL_BLEND; 99 glEnable GL_BLEND;
100
101 glPushMatrix;
87 102
88 my $map = $::CONN->{map}; 103 my $map = $::CONN->{map};
89 104
90 for my $x (0 .. $::CONN->{mapw} - 1) { 105 for my $x (0 .. $::CONN->{mapw} - 1) {
91 for my $y (0 .. $::CONN->{maph} - 1) { 106 for my $y (0 .. $::CONN->{maph} - 1) {
… …
95 110
96 my $darkness = $cell->[3] * (1 / 255); 111 my $darkness = $cell->[3] * (1 / 255);
97 glColor $darkness, $darkness, $darkness; 112 glColor $darkness, $darkness, $darkness;
98 113
99 for my $num (grep $_, $cell->[0], $cell->[1], $cell->[2]) { 114 for my $num (grep $_, $cell->[0], $cell->[1], $cell->[2]) {
100 my $tex = $::CONN->{face}[$num]{texture} || 0; 115 my $tex = $::CONN->{face}[$num]{texture} || next;
101 116
102 glBindTexture GL_TEXTURE_2D, $tex; 117 glBindTexture GL_TEXTURE_2D, $tex->{name};
103 118
104 glBegin GL_QUADS; 119 glBegin GL_QUADS;
105 glTexCoord 0, 0; glVertex $x, $y; 120 glTexCoord 0, 0; glVertex $x, $y;
106 glTexCoord 0, 1; glVertex $x, $y + 1; 121 glTexCoord 0, 1; glVertex $x, $y + 1;
107 glTexCoord 1, 1; glVertex $x + 1, $y + 1; 122 glTexCoord 1, 1; glVertex $x + 1, $y + 1;
… …
109 glEnd; 124 glEnd;
110 } 125 }
111 } 126 }
112 } 127 }
113 128
129 glPopMatrix;
130
114 glDisable GL_TEXTURE_2D; 131 glDisable GL_TEXTURE_2D;
115 glDisable GL_BLEND; 132 glDisable GL_BLEND;
116} 133}
117 134
1181; 1351;
136

Diff Legend

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