parent
6acfb81512
commit
5c2c1c5afc
@ -0,0 +1,47 @@ |
|||||||
|
use v5.36; |
||||||
|
use rlib '.'; |
||||||
|
|
||||||
|
use Carp; |
||||||
|
use Data::Dumper; |
||||||
|
|
||||||
|
use feature "signatures"; |
||||||
|
no warnings "experimental::signatures"; |
||||||
|
|
||||||
|
my $coords_regex = qr/^\s*(-?\d+)\s*,\s*(-?\d+)\s*$/; |
||||||
|
|
||||||
|
my %regions_to_tiles; |
||||||
|
my %tiles_to_regions; |
||||||
|
|
||||||
|
my $input_file = shift; |
||||||
|
open (my $input_fh, $input_file); |
||||||
|
|
||||||
|
my $output_file = shift // "$input_file.out"; |
||||||
|
open (my $output_fh, ">$output_file"); |
||||||
|
|
||||||
|
while (my $line = <$input_fh>) |
||||||
|
{ |
||||||
|
my @fields = split '; ', $line; |
||||||
|
print $output_fh (shift @fields) . "; "; #region name |
||||||
|
print $output_fh (shift @fields) . "; "; #background colour |
||||||
|
my @expanded_tile_specs = (); |
||||||
|
foreach my $coords (@fields) |
||||||
|
{ |
||||||
|
do { carp "Skipping bad spec: $coords"; next; } unless $coords =~ $coords_regex; |
||||||
|
my $nw_base = $1 * 3; |
||||||
|
my $sw_base = $2 * 3; |
||||||
|
|
||||||
|
my @new = ("$nw_base,$sw_base"); |
||||||
|
push @new, ($nw_base+1) . "," . ($sw_base); |
||||||
|
push @new, ($nw_base-1) . "," . ($sw_base); |
||||||
|
push @new, ($nw_base) . "," . ($sw_base+1); |
||||||
|
push @new, ($nw_base) . "," . ($sw_base-1); |
||||||
|
push @new, ($nw_base+1) . "," . ($sw_base-1); |
||||||
|
push @new, ($nw_base-1) . "," . ($sw_base+1); |
||||||
|
|
||||||
|
push @expanded_tile_specs, (join "; ", @new); |
||||||
|
} |
||||||
|
say $output_fh (join "; ", @expanded_tile_specs); |
||||||
|
} |
||||||
|
|
||||||
|
close $input_fh; |
||||||
|
close $output_fh; |
||||||
@ -0,0 +1,68 @@ |
|||||||
|
use v5.36; |
||||||
|
use rlib '.'; |
||||||
|
|
||||||
|
use HexGrid; |
||||||
|
use HexGrid::Pin; |
||||||
|
|
||||||
|
use Carp; |
||||||
|
use Data::Dumper; |
||||||
|
|
||||||
|
use feature "signatures"; |
||||||
|
no warnings "experimental::signatures"; |
||||||
|
|
||||||
|
my $coords_regex = qr/^\s*(-?\d+)\s*,\s*(-?\d+)\s*$/; |
||||||
|
|
||||||
|
my $grid = HexGrid->new(defaults => { |
||||||
|
style => { 'stroke-width' => 1, stroke => 'black' }, |
||||||
|
show_coords => 1}); |
||||||
|
|
||||||
|
my $test_file = shift; |
||||||
|
open (my $test_fh, $test_file); |
||||||
|
|
||||||
|
while (my $line = <$test_fh>) |
||||||
|
{ |
||||||
|
my @fields = split '; ', $line; |
||||||
|
my $region = $grid->make_region(shift @fields); |
||||||
|
$region->{defaults}{colour} = shift @fields; |
||||||
|
foreach my $coords (@fields) |
||||||
|
{ |
||||||
|
do { carp "Skipping bad spec: $coords"; next; } unless $coords =~ $coords_regex; |
||||||
|
$region->make_tile_at($1,$2); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
# say $grid->render; |
||||||
|
say wrap_in_html($grid); |
||||||
|
close $test_fh; |
||||||
|
|
||||||
|
sub wrap_in_html($grid) |
||||||
|
{ |
||||||
|
my $html_builder = "<!DOCTYPE html>"; |
||||||
|
$html_builder .= "\n<html>\n<body>"; |
||||||
|
$html_builder .= "\n" . <<EOS; |
||||||
|
<script> |
||||||
|
function clickPin(pinId, containerId) { |
||||||
|
let popup = document.getElementById(pinId + '-popup'); |
||||||
|
popup.style.visibility = popup.style.visibility == 'visible' ? 'hidden' : 'visible'; |
||||||
|
} |
||||||
|
</script> |
||||||
|
EOS |
||||||
|
if(1) |
||||||
|
{ |
||||||
|
$html_builder .= <<EOS; |
||||||
|
<script> |
||||||
|
function toggleCoords(show) { |
||||||
|
for (var elem of document.getElementsByClassName('coords')) { |
||||||
|
elem.style.visibility = show ? 'visible' : 'hidden'; |
||||||
|
} |
||||||
|
} |
||||||
|
</script> |
||||||
|
<label for="show-coords-checkbox">Show coordinates</label> |
||||||
|
<input type="checkbox" checked id="show-coords-checkbox" onclick="toggleCoords(event.srcElement.checked)" /> |
||||||
|
EOS |
||||||
|
} |
||||||
|
$html_builder .= "\n" . $grid->render; |
||||||
|
$html_builder .= "\n</body>\n</html>"; |
||||||
|
return $html_builder; |
||||||
|
} |
||||||
|
|
||||||
@ -0,0 +1,3 @@ |
|||||||
|
Minev; #2F7621; 0,1; 0,2; 1,1; 2,0; 0,3; 1,2; 2,1; 1,3; 2,2; 3,1; 1,4; 2,3; 3,2; 2,4; 3,3; 4,2; 3,4; 4,3; 5,2; 4,4; 5,3; 5,4; 6,3; 5,5; 6,5 |
||||||
|
Buslish; #E7F79C; 0,5; 1,5; 0,6; 2,5; 1,6; 0,7; -1,8; 2,5; 3,5; 2,6; 1,7; 0,8; 4,5; 3,6; 1,8; 0,9; 4,6; 3,7; 2,8; 1,9; 4,7; 3,8; 2,9; 3,9 |
||||||
|
Midhills; #E7CE5A; 5,6; 4,8; 5,7; 6,6 |
||||||
Loading…
Reference in new issue