--- deliantra/Deliantra-Client/DC/Texture.pm 2006/07/04 23:23:32 1.10 +++ deliantra/Deliantra-Client/DC/Texture.pm 2006/07/30 13:16:44 1.11 @@ -1,10 +1,10 @@ =head1 NAME -CFClient::Texture - tetxure class for CFClient +CFPlus::Texture - tetxure class for CFPlus =head1 SYNOPSIS - use CFClient::Texture; + use CFPlus::Texture; =head1 DESCRIPTION @@ -12,13 +12,13 @@ =cut -package CFClient::Texture; +package CFPlus::Texture; use strict; use Scalar::Util; -use CFClient::OpenGL; +use CFPlus::OpenGL; my %TEXTURES; @@ -110,14 +110,14 @@ } else { ($self->{w}, $self->{h}, $data, my $internalformat, $self->{format}, $self->{type}) - = CFClient::load_image_inline $self->{image}; + = CFPlus::load_image_inline $self->{image}; $self->{internalformat} ||= $internalformat; } my ($tw, $th) = @$self{qw(w h)}; - $self->{minified} ||= [CFClient::average $tw, $th, $data] + $self->{minified} ||= [CFPlus::average $tw, $th, $data] if $self->{minify}; pad2pot $data, $tw, $th unless $GL_NPOT; @@ -189,7 +189,7 @@ $self->shutdown; } -$CFClient::OpenGL::INIT_HOOK{"CFClient::Texture"} = sub { +$CFPlus::OpenGL::INIT_HOOK{"CFPlus::Texture"} = sub { # first mark all existing texture names as in-use, in case the context lost textures glBindTexture GL_TEXTURE_2D, $_->{name} for values %TEXTURES; @@ -197,7 +197,7 @@ for values %TEXTURES; }; -$CFClient::OpenGL::SHUTDOWN_HOOK{"CFClient::Texture"} = sub { +$CFPlus::OpenGL::SHUTDOWN_HOOK{"CFPlus::Texture"} = sub { $_->shutdown for values %TEXTURES; };