initial

lib/SDLx/LayerManager.pm

@@ -0,0 +1,279 @@
+package SDLx::LayerManager;
+use strict;
+use warnings;
+use SDL;
+use SDLx::Surface;
+use SDLx::Sprite;
+use overload ( '@{}' => '_array', );
+
+my @layers            = ();
+my @attached_layers   = ();
+my @attached_distance = ();
+my @attached_position = ();
+
+sub new {
+    my $class   = shift;
+    #my $options = shift;
+    my $self    = {};
+    bless( $self, $class );
+
+    #$self->add(@_, $options);
+
+    return $self;
+}
+
+sub add {
+    my $self    = shift;
+    my $options = pop;
+    my @layer   = @_;
+
+    push @layers, {layer => $_, options => $options} for @layer;
+    return $self;
+}
+
+sub set {
+    my $self    = shift;
+    my $index   = shift;
+    my $layer   = shift;
+    my $options = shift;
+
+    $layers[$index] = {layer => $layer, options => $options};
+    return $self;
+}
+
+sub length {
+    my $self = shift;
+
+    return scalar @layers;
+}
+
+sub _array {
+    my $self = shift;
+    return \@layers;
+}
+
+sub blit {
+    my $self = shift;
+    my $dest = shift;
+    $self->{dest} = $dest;
+
+    my ( $mask, $x, $y ) = @{ SDL::Events::get_mouse_state() };
+    my $layer_index      = 0;
+    foreach (@layers) {
+        $_->{layer}->draw($dest) unless join( ',', @attached_layers ) =~ m/\b\Q$layer_index\E\b/;
+        $layer_index++;
+    }
+    foreach (@attached_layers) {
+        $layers[$_]->{layer}->draw_xy($dest, $x + @{$attached_distance[$_]}[0], $y + @{$attached_distance[$_]}[1]);
+    }
+}
+
+sub attach {
+    my $self = shift;
+    #my $dest = shift;
+    my $y    = pop;
+    my $x    = pop;
+    @attached_distance = ();
+    @attached_position = ();
+    @attached_layers   = @_;
+    foreach (@layers) {
+        push( @attached_distance, [$_->{layer}->x - $x, $_->{layer}->y - $y] );
+        push( @attached_position, [$_->{layer}->x,      $_->{layer}->y] );
+    }
+}
+
+sub detach {
+    my $self = shift;
+    @attached_distance = ();
+    @attached_position = ();
+    @attached_layers   = ();
+}
+
+sub detach_back {
+    my $self = shift;
+    foreach (@attached_layers) {
+        $layers[$_]->{layer}->x(@{$attached_position[$_]}[0]);
+        $layers[$_]->{layer}->y(@{$attached_position[$_]}[1]);
+    }
+    @attached_distance = ();
+    @attached_position = ();
+    @attached_layers   = ();
+}
+
+sub detach_xy {
+    my $self = shift;
+    my $x    = shift;
+    my $y    = shift;
+    my $offset_x;
+    my $offset_y;
+    foreach (@attached_layers) {
+        $offset_x = @{$attached_position[$_]}[0] - $x unless defined $offset_x;
+        $offset_y = @{$attached_position[$_]}[1] - $y unless defined $offset_y;
+
+        $layers[$_]->{layer}->x(@{$attached_position[$_]}[0] - $offset_x);
+        $layers[$_]->{layer}->y(@{$attached_position[$_]}[1] - $offset_y);
+    }
+    my @position_before = @{$attached_position[$attached_layers[0]]};
+
+    @attached_distance = ();
+    @attached_position = ();
+    @attached_layers   = ();
+
+    return @position_before;
+}
+
+sub foreground {
+    my $self         = shift;
+    my @layers_      = @_;
+    @attached_layers = ();
+
+    for(@layers_) {
+        push(@layers,            $layers[$_]);
+        push(@attached_distance, $attached_distance[$_]);
+        push(@attached_position, $attached_position[$_]);
+    }
+
+    for(sort { $b <=> $a } @layers_) {
+        splice(@layers,            $_, 1);
+        splice(@attached_distance, $_, 1);
+        splice(@attached_position, $_, 1);
+    }
+
+    for(my $i = $#layers - $#layers_; $layers[$i]; $i++) {
+        push(@attached_layers, $i);
+    }
+
+    return @attached_layers;
+}
+
+sub get_layer_by_position {
+    my $self = shift;
+    my ( $x, $y ) = @_;
+
+    for ( my $i = $#layers ; $i > 0 ; $i-- ) {
+        if (   $layers[$i]->{layer}->x <= $x
+            && $x <= $layers[$i]->{layer}->x + $layers[$i]->{layer}->clip()->w
+            && $layers[$i]->{layer}->y <= $y
+            && $y <= $layers[$i]->{layer}->y + $layers[$i]->{layer}->clip()->h )
+        {
+            my $pixel =
+              $layers[$i]->{layer}->[ $x - $layers[$i]->{layer}->x ][ $y - $layers[$i]->{layer}->y ];
+            my ( $r, $g, $b, $a ) =
+              @{ SDL::Video::get_RGBA( $layers[$i]->{layer}->surface->format, $pixel ) };
+
+            return $i if $a > 0;
+        }
+    }
+
+    return -1;
+}
+
+sub get_layers_ahead_layer {
+    my $self          = shift;
+    my $index         = shift;
+    #my $map           = SDLx::Surface->new( surface => $self->{dest} );
+    my @matches       = ();
+    #my @intersections = ();
+    my $layer_index   = 0;
+
+    for (@layers) {
+        if (
+            $layer_index > $index
+
+            && (
+
+                # upper left point inside layer
+                (      $layers[$index]->{layer}->x <= $_->{layer}->x
+                    && $_->{layer}->x <= $layers[$index]->{layer}->x + $layers[$index]->{layer}->clip->w
+                    && $layers[$index]->{layer}->y <= $_->{layer}->y
+                    && $_->{layer}->y <= $layers[$index]->{layer}->y + $layers[$index]->{layer}->clip->h
+                )
+
+                # upper right point inside layer
+                || (   $layers[$index]->{layer}->x <= $_->{layer}->x + $_->{layer}->clip->w
+                    && $_->{layer}->x + $_->{layer}->clip->w <=
+                    $layers[$index]->{layer}->x + $layers[$index]->{layer}->clip->w
+                    && $layers[$index]->{layer}->y <= $_->{layer}->y
+                    && $_->{layer}->y <=
+                    $layers[$index]->{layer}->y + $layers[$index]->{layer}->clip->h )
+
+                # lower left point inside layer
+                || (   $layers[$index]->{layer}->x <= $_->{layer}->x
+                    && $_->{layer}->x <= $layers[$index]->{layer}->x + $layers[$index]->{layer}->clip->w
+                    && $layers[$index]->{layer}->y <= $_->{layer}->y + $_->{layer}->clip->h
+                    && $_->{layer}->y + $_->{layer}->clip->h <=
+                    $layers[$index]->{layer}->y + $layers[$index]->{layer}->clip->h)
+
+                # lower right point inside layer
+                || (   $layers[$index]->{layer}->x <= $_->{layer}->x + $_->{layer}->clip->w
+                    && $_->{layer}->x + $_->{layer}->clip->w <=
+                    $layers[$index]->{layer}->x + $layers[$index]->{layer}->clip->w
+                    && $layers[$index]->{layer}->y <= $_->{layer}->y + $_->{layer}->clip->h
+                    && $_->{layer}->y + $_->{layer}->clip->h <=
+                    $layers[$index]->{layer}->y + $layers[$index]->{layer}->clip->h )
+            )
+          )
+        {
+            push( @matches, $layer_index );    # TODO checking transparency
+        }
+        $layer_index++;
+    }
+
+    return @matches;
+}
+
+sub get_layers_behind_layer {
+    my $self          = shift;
+    my $index         = shift;
+    #my $map           = SDLx::Surface->new( surface => $self->{dest} );
+    my @matches       = ();
+    #my @intersections = ();
+    my $layer_index   = $#layers;
+
+    for (reverse @layers) {
+        if (
+            $layer_index < $index
+
+            && (
+
+                # upper left point inside layer
+                (      $layers[$index]->{layer}->x <= $_->{layer}->x
+                    && $_->{layer}->x <= $layers[$index]->{layer}->x + $layers[$index]->{layer}->clip->w
+                    && $layers[$index]->{layer}->y <= $_->{layer}->y
+                    && $_->{layer}->y <= $layers[$index]->{layer}->y + $layers[$index]->{layer}->clip->h
+                )
+
+                # upper right point inside layer
+                || (   $layers[$index]->{layer}->x <= $_->{layer}->x + $_->{layer}->clip->w
+                    && $_->{layer}->x + $_->{layer}->clip->w <=
+                    $layers[$index]->{layer}->x + $layers[$index]->{layer}->clip->w
+                    && $layers[$index]->{layer}->y <= $_->{layer}->y
+                    && $_->{layer}->y <=
+                    $layers[$index]->{layer}->y + $layers[$index]->{layer}->clip->h )
+
+                # lower left point inside layer
+                || (   $layers[$index]->{layer}->x <= $_->{layer}->x
+                    && $_->{layer}->x <= $layers[$index]->{layer}->x + $layers[$index]->{layer}->clip->w
+                    && $layers[$index]->{layer}->y <= $_->{layer}->y + $_->{layer}->clip->h
+                    && $_->{layer}->y + $_->{layer}->clip->h <=
+                    $layers[$index]->{layer}->y + $layers[$index]->{layer}->clip->h)
+
+                # lower right point inside layer
+                || (   $layers[$index]->{layer}->x <= $_->{layer}->x + $_->{layer}->clip->w
+                    && $_->{layer}->x + $_->{layer}->clip->w <=
+                    $layers[$index]->{layer}->x + $layers[$index]->{layer}->clip->w
+                    && $layers[$index]->{layer}->y <= $_->{layer}->y + $_->{layer}->clip->h
+                    && $_->{layer}->y + $_->{layer}->clip->h <=
+                    $layers[$index]->{layer}->y + $layers[$index]->{layer}->clip->h )
+            )
+          )
+        {
+            push( @matches, $layer_index );    # TODO checking transparency
+        }
+        $layer_index--;
+    }
+
+    return @matches;
+}
+
+1;