wiki-map/tests/paths.pl

use v5.36;
use rlib '..';

use HexGrid;
use HexGrid::Path;

use Carp;

use Data::Dumper;

my $MAP_SIZE = 5;

my $grid = HexGrid->new(defaults => {
		style => { 'stroke-width' => 1, stroke => 'white' },
		show_coords => 1});
my $region = $grid->make_region("TEST");

for (my $nw=-$MAP_SIZE; $nw <= $MAP_SIZE; $nw++)
{
	for (my $sw=-$MAP_SIZE; $sw <= $MAP_SIZE; $sw++)
	{
		$region->make_tile_at($nw, $sw);
	}
}

# generic "standard" path
$grid->make_path_from('test-id',
	[[0,0], [1,0], [1,1], [2,0], [2,-1], [2,-2], [1,-2], [1,-1], [2,-1], [3,-1]],
	colour => 'lime', css_class => 'path', style => { 'stroke-width' => 5 }
);


# Single tile paths
$grid->make_path_from('point-id', [[-1,1]],
	colour => 'cyan', css_class => 'path', style => { 'stroke-width' => 5 }
);

$grid->add_path(HexGrid::Path->new(id => 'point-starts', tiles => [$grid->get_tile_at(-2,2)],
		starts_from => $HexGrid::DIR{n},
		colour => 'yellow', css_class => 'path', style => { 'stroke-width' => 5 }));

$grid->add_path(HexGrid::Path->new(id => 'point-ends', tiles => [$grid->get_tile_at(-3,3)],
		ends_to => $HexGrid::DIR{nw},
		colour => 'blue', css_class => 'path', style => { 'stroke-width' => 5 }));

$grid->add_path(HexGrid::Path->new(id => 'point-starts-ends-1', tiles => [$grid->get_tile_at(-2,3)],
		starts_from => $HexGrid::DIR{sw}, ends_to => $HexGrid::DIR{ne},
		colour => 'magenta', css_class => 'path', style => { 'stroke-width' => 5 }));

$grid->add_path(HexGrid::Path->new(id => 'point-starts-ends-2', tiles => [$grid->get_tile_at(-1,2)],
		starts_from => $HexGrid::DIR{sw}, ends_to => $HexGrid::DIR{n},
		colour => 'orange', css_class => 'path', style => { 'stroke-width' => 5 }));


# starts_from/ends_to paths
$grid->add_path(HexGrid::Path->new(id => 'starts', starts_from => $HexGrid::DIR{ne},
		tiles => [$grid->get_tile_at(4,-1), $grid->get_tile_at(5,-1), $grid->get_tile_at(5,0)],
		colour => 'yellow', css_class => 'path', style => { 'stroke-width' => 5 }));

$grid->add_path(HexGrid::Path->new(id => 'ends', ends_to => $HexGrid::DIR{nw},
		tiles => [$grid->get_tile_at(4,1), $grid->get_tile_at(4,0), $grid->get_tile_at(3,1)],
		colour => 'blue', css_class => 'path', style => { 'stroke-width' => 5 }));

$grid->add_path(HexGrid::Path->new(id => 'starts-ends',
		starts_from => $HexGrid::DIR{sw}, ends_to => $HexGrid::DIR{s},
		tiles => [$grid->get_tile_at(2,3), $grid->get_tile_at(3,3), $grid->get_tile_at(4,3)],
		colour => 'magenta', css_class => 'path', style => { 'stroke-width' => 5 }));


#loop
$grid->make_path_from('loop-id',
	[[-2,0], [-1,0], [-1,-1], [-2,-1], [-2,0]],
	colour => 'red', css_class => 'path', style => { 'stroke-width' => 5 }
);


say $grid->render;