GD.pd (PDL-2.074) | : | GD.pd (PDL-2.075) | ||
---|---|---|---|---|
skipping to change at line 1230 | skipping to change at line 1230 | |||
The LUT ndarray format is the same as for the general interface above. | The LUT ndarray format is the same as for the general interface above. | |||
=cut | =cut | |||
sub apply_lut | sub apply_lut | |||
{ | { | |||
my $self = shift; | my $self = shift; | |||
my $lut = shift; | my $lut = shift; | |||
# Let the PDL threading engine sort this out: | # Let the PDL broadcasting engine sort this out: | |||
$self->ColorAllocates( $lut->slice("(0),:"), $lut->slice("(1),:"), $lut->sli ce("(2),:") ); | $self->ColorAllocates( $lut->slice("(0),:"), $lut->slice("(1),:"), $lut->sli ce("(2),:") ); | |||
} # End of apply_lut()... | } # End of apply_lut()... | |||
sub DESTROY | sub DESTROY | |||
{ | { | |||
my $self = shift; | my $self = shift; | |||
my $sub = _pkg_name( "DESTROY" ); | my $sub = _pkg_name( "DESTROY" ); | |||
#print STDERR sprintf("$sub: destroying gdImagePtr: 0x%p (%d) (%ld) (%lld)!\ n", $self->{IMG_PTR}, $self->{IMG_PTR},$self->{IMG_PTR},$self->{IMG_PTR}); | #print STDERR sprintf("$sub: destroying gdImagePtr: 0x%p (%d) (%ld) (%lld)!\ n", $self->{IMG_PTR}, $self->{IMG_PTR},$self->{IMG_PTR},$self->{IMG_PTR}); | |||
End of changes. 1 change blocks. | ||||
1 lines changed or deleted | 1 lines changed or added |