From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Mar 2019 23:37:22 +0000 (+0000)
Subject: wip decks
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=4e0fb70f60d8f93d0f220c44bb22ce38cb0b2e26;p=pandemic-rising-tide.git

wip decks
---

diff --git a/generate-board b/generate-board
index f5b2275..83868c2 100755
--- a/generate-board
+++ b/generate-board
@@ -507,6 +507,27 @@ sub water_cubes($){
   }
 }
 
+sub decks(){
+  o("  /deckpath {\n");
+  my $w = 63 * MM2PT;
+  my $h = 87 * MM2PT;
+  my $r =  5 * MM2PT;
+  o("    newpath  ",($w/2)," 0 moveto\n");
+  my @p = ([ $w, 0 ],
+	   [ $w,$h ],
+	   [ 0, $h ],
+	   [ 0,  0 ]);
+  foreach my $i (0..3) {
+    o("    @{ $p[$i] }  @{ $p[($i + 1) % 4] }  $r  arct\n");
+  }
+  o("    closepath\n");
+  o("  } bind def");
+  o("  gsave 400 0 translate");
+  o("                   deckpath stroke\n");
+  o("   200 0 translate deckpath stroke\n");
+  o("  grestore");
+}
+
 sub sea_track(){
   o("% sea level track\n");
   o("  gsave 440 1700 translate\n");
@@ -641,7 +662,7 @@ sea_track();
 # xxx HS initial locations
 # xxx HS instructions
 # xxx overall instructions
-# xxx card decks
+decks();
 postamble();
 
 print STDERR Dumper(\%region) if $ENV{'GENERATE_BOARD_DUP'};