… | … | ||
---|---|---|---|
13 | =cut | 13 | =cut |
14 | 14 | ||
15 | package CFPlus::Texture; | 15 | package CFPlus::Texture; |
16 | 16 | ||
17 | use strict; | 17 | use strict; |
18 | |||
19 | use Scalar::Util; | ||
20 | 18 | ||
21 | use CFPlus::OpenGL; | 19 | use CFPlus::OpenGL; |
22 | 20 | ||
23 | my %TEXTURES; | 21 | my %TEXTURES; |
24 | 22 | ||
… | … | ||
30 | format => GL_RGBA, | 28 | format => GL_RGBA, |
31 | type => GL_UNSIGNED_BYTE, | 29 | type => GL_UNSIGNED_BYTE, |
32 | %data, | 30 | %data, |
33 | }, $class; | 31 | }, $class; |
34 | 32 | ||
35 | Scalar::Util::weaken ($TEXTURES{$self+0} = $self); | 33 | CFPlus::weaken ($TEXTURES{$self+0} = $self); |
36 | 34 | ||
37 | $self->upload; | 35 | $self->upload; |
38 | 36 | ||
39 | $self | 37 | $self |
40 | } | 38 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |