danwizard208
/
wiki-map
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

.

Browse Source
main
Daniel Asher Resnick 3 weeks ago
parent 809086c676
commit 7c9c407f59
2 changed files with 3 additions and 35 deletions
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Show Stats Download Patch File Download Diff File
  1. 1
      coord_tripler.pl
  2. 37
      grid-tester.pl

1
coord_tripler.pl
Unescape View File

@ -25,7 +25,6 @@ open (my $input_fh, $input_file);
my $output_file = shift // "$input_file.out"; my $output_file = shift // "$input_file.out";
open (my $output_fh, ">$output_file"); open (my $output_fh, ">$output_file");
$regions{holes}{bg} = '#000000';
while (my $line = <$input_fh>) while (my $line = <$input_fh>)
{ {
my @fields = split '; ', $line; my @fields = split '; ', $line;

37
grid-tester.pl
Unescape View File

@ -3,6 +3,7 @@ use rlib '.';
use HexGrid; use HexGrid;
use HexGrid::Pin; use HexGrid::Pin;
use HexGrid::Dynamic;
use Carp; use Carp;
use Data::Dumper; use Data::Dumper;
@ -31,38 +32,6 @@ while (my $line = <$test_fh>)
} }
} }
# say $grid->render; say $grid->render;
say wrap_in_html($grid); # say HexGrid::Dynamic::render_html($grid->render, {});
close $test_fh; 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;
}

Write Preview
Loading…
Cancel
Save