KOBOLDWIZ / GFX-Enhancer-0.1.17 / lib / GFX / Enhancer / SingleLineAntialias.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56

              
package GFX::Enhancer::SingleLineAntialias;
sub new {
        my ($class, $imgrepr) = @_;
        my $self = { imgrepr => $imgrepr, };
        $class = ref($class) || $class;
        bless $self, $class;
}
sub filter {
        my ($self, $imgrepr, @rgba_points) = @_;
        my @non_return_rgba_points = @rgba_points;
        my @return_rgba_points = ();
        my @indexl = ();
        for (my $i = 0; $i < length(@rgba_points); $i++) {
                push (@indexl, @rgba_points[$i]->{index});
        }
        for (my $i = 0; $i < length(@rgba_points); $i++) {
                for (my $j = 0; $j < length(@rgba_points); $j++) {
                        ### grep points to be deleted  
                        my @non_return_rgba_points = grep { $_ != $self->grep(@indexl, @rgba_points) } @non_return_rgba_points;
                }
        }
        ### delete grepped points from resulting list
        for (my $i = 0; $i < length(@rgba_points); $i++) {
                if (not (@rgba_points[$i] ~~ @non_rgba_rgba_points)) {
                        push (@return_rgba_points, @rgba_points[$i]);
                }
        }
         
        return (@return_rgba_points);
}
sub grep {
        my ($self, @indexl, @rgbasl) = @_;
        my @grepped_points = (); ### these are scheduled for deletion
        for (my $i = 0; $i < length(@rgbasl); $i++) {
                if ((@rgbasl[$i]->{@rgbasl[$i]->{index} - $self->{imgrepr}->{width}}) % $self->{imgrepr}->{width} ~~ @indexl
                        and (@rgbasl[$i]->{@rgbasl[$i]->{index} - $self->{imgrepr}->{width} - 1}) % $self->{imgrepr}->{width} ~~ @indexl
                        and (@rgbasl[$i]->{@rgbasl[$i]->{index} - $self->{imgrepr}->{width} + 1}) % $self->{imgrepr}->{width} ~~ @indexl) {
                push (@grepped_points, @rgbasl[$i]);
                }
        }
        return (@grepped_points);       
}
1;