preview png, actually make it a png

[pandemic-rising-tide.git] / generate-plag

diff --git a/generate-plag b/generate-plag
index 1868acf4ed17e989d8fc52393b8dc1913d21a3e9..28b4437993e07feceaa23b43d0c667e011825b2d 100755 (executable)
--- a/generate-plag
+++ b/generate-plag
@@ -1,4 +1,41 @@
 #!/usr/bin/perl -w
+#
+# generate-plag - program for processing game board definitions
+#
+# Copyright (C) 2019 Ian Jackson
+#
+# This program is dual licensed, GPv3+ or CC-BY-SA 4.0+.
+# Only to the Pandemic Rising Tide folks, it is permissively licensed.
+#
+#   This program is free software.
+#
+#   You can redistribute it and/or modify it under the terms of the
+#   GNU General Public License as published by the Free Software
+#   Foundation, either version 3 of the License, or (at your option)
+#   any later version; or (at your option), under the terms of the
+#   Creative Commons Attribution-ShareAlike International License,
+#   version 4.0 of that License, or (at your option), any later
+#   version.
+#
+#   This program is distributed in the hope that it will be useful,
+#   but WITHOUT ANY WARRANTY; without even the implied warranty of
+#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#   General Public License Creative Commons Attribution-ShareAlike
+#   License or the for more details.
+#
+#   You should have received a copy of these licenses along with this
+#   program.  If not, see <https://www.gnu.org/licenses/> and
+#   <https://creativecommons.org/licenses/>.
+#
+# Pandemic and Pandemic Rising Tide are (I think) trademarks of Z-Man
+# games and I use them without permission.
+# 
+# For the avoidance of doubt, I do not consider this program to be a
+# derivative work of the game Pandemic Rising Tide.  However, it is
+# not very useful without a pair of game description files and the
+# only nontrivial game description files I know of are indeed such
+# derivatives.
+
 
 use strict;
 use Carp;
@@ -10,7 +47,7 @@ use Parse;
 sub output_planar_graph () {
   foreach my $ra (sort keys %region) {
     o(plag_prs($ra), "\n");
-    if ($ra eq 'NZ' || $ra =~ m/^L2?$/) { o(" :outer\n"); }
+    if ($ra eq $c{Sea} || $ra =~ m/^L2?$/) { o(" :outer\n"); }
     my $adjs = $region{$ra}{Adj};
     foreach my $adj (reverse @$adjs) {
       o(" ", plag_prs($adj->{Name}), "\n");