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

Comparing deliantra/Deliantra-Client/DC.pm (file contents):
Revision 1.58 by root, Tue May 23 00:26:17 2006 UTC vs.
Revision 1.61 by root, Wed May 24 21:49:58 2006 UTC

… …
36sub gl_init { 36sub gl_init {
37 $GL_VERSION = gl_version * 1; 37 $GL_VERSION = gl_version * 1;
38 %GL_EXT = map +($_ => 1), split /\s+/, gl_extensions; 38 %GL_EXT = map +($_ => 1), split /\s+/, gl_extensions;
39 39
40 $GL_NPOT = $GL_EXT{GL_ARB_texture_non_power_of_two} || $GL_VERSION >= 2; 40 $GL_NPOT = $GL_EXT{GL_ARB_texture_non_power_of_two} || $GL_VERSION >= 2;
41 $GL_NPOT = 0 if gl_vendor =~ /ATI Technologies/; # ATI doesn't get it right...
41 42
42 glDisable GL_COLOR_MATERIAL; 43 glDisable GL_COLOR_MATERIAL;
43 glShadeModel GL_FLAT; 44 glShadeModel GL_FLAT;
44 glDisable GL_DITHER; 45 glDisable GL_DITHER;
45 glDisable GL_DEPTH_TEST; 46 glDisable GL_DEPTH_TEST;
… …
51 52
52sub gl_check { 53sub gl_check {
53 return unless $GL_DEBUG; 54 return unless $GL_DEBUG;
54 55
55 if (my $error = glGetError) { 56 if (my $error = glGetError) {
57 my ($format, @args) = @_;
56 Carp::cluck sprintf "opengl error %x while %s", $error, &sprintf(@_); 58 Carp::cluck sprintf "opengl error %x while $format", $error, @args;
57 } 59 }
58} 60}
59 61
60sub find_rcfile($) { 62sub find_rcfile($) {
61 my $path; 63 my $path;
… …
130 my ($pom) = @_; 132 my ($pom) = @_;
131 133
132 $pom->present ("CFClient::PodToPango") 134 $pom->present ("CFClient::PodToPango")
133} 135}
134 136
137sub pod_to_pango_list($) {
138 my ($pom) = @_;
139
140 [
141 map s/^(\s*)// && [40 * length $1, length $_ ? $_ : " "],
142 split /\n/, $pom->present ("CFClient::PodToPango")
143 ]
144}
145
135package CFClient::PodToPango; 146package CFClient::PodToPango;
136 147
137use base Pod::POM::View::Text; 148use base Pod::POM::View::Text;
138 149
139our $indent = 0; 150our $indent = 0;
… …
167 178
168sub view_textblock { 179sub view_textblock {
169 ("\t" x ($indent / 2)) . "$_[1]\n\n" 180 ("\t" x ($indent / 2)) . "$_[1]\n\n"
170} 181}
171 182
183sub view_head1 {
184 "<span foreground='#ffff00' size='x-large'>" . $_[1]->title->present ($_[0]) . "</span>\n\n"
185 . $_[1]->content->present ($_[0])
186};
187
172sub view_head2 { 188sub view_head2 {
173 "<big>" . $_[1]->title->present ($_[0]) . "</big>\n\n" 189 "<span foreground='#ccccff' size='large'>" . $_[1]->title->present ($_[0]) . "</span>\n\n"
174 . $_[1]->content->present ($_[0]) 190 . $_[1]->content->present ($_[0])
175}; 191};
176 192
177sub view_over { 193sub view_over {
178 local $indent = $indent + $_[1]->indent; 194 local $indent = $indent + $_[1]->indent;

Diff Legend

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