File Coverage

blib/lib/Math/Shape/Grid.pm

Criterion	Covered	Total	%
statement	42	42	100.0
branch	10	10	100.0
condition	3	3	100.0
subroutine	5	5	100.0
pod	1	1	100.0
total	61	61	100.0

use strict;
use warnings;
package Math::Shape::Grid;
$Math::Shape::Grid::VERSION = '0.03';
use 5.008;
use List::Util qw/max min/;

# ABSTRACT: a 2d grid for visualizing Math::Shape::Point objects on the terminal


sub print {
    my $points = shift;

    my ($min_x, $max_x, $min_y, $max_y) = qw/0 0 0 0/;

    for my $name (sort { $a cmp $b } keys %{$points}) {
        my $point = $points->{$name};

        printf "%s x:%3s, y:%3s, r:%6s\n", $name, $point->{x}, $point->{y}, $point->{r};

        # get grid range
        $min_x = $point->{x} if $point->{x} < $min_x;
        $max_x = $point->{x} if $point->{x} > $max_x;
        $min_y = $point->{y} if $point->{y} < $min_y;
        $max_y = $point->{y} if $point->{y} > $max_y;
    }

    my $max = max ( $max_x, $max_y ) + 5;
    my $min = min ( $min_x, $min_y ) + -5;

    # print grid
    print "\n   ";
    for ($min..$max) { printf "%3s", $_ }
    printf "%3s", "x\n";
    for my $y (reverse $min..$max)
    {
        printf "%3s", $y;
        for my $x ($min..$max)
        {
            my $intercept = sprintf "%3s", '.';

            # loop through points to see if we have a match
            for (keys %{ $points } ) {
                my $p = $points->{$_};
                if ($p->{x} == $x && $p->{y} == $y) {
                    $intercept = sprintf "%3s", $_;
                }
            }
            print $intercept;
        }
        print "\n";
    }
    printf "%3s", "y\n";
    1;
}

1;

__END__