From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 1 Mar 2019 13:53:46 +0000 (+0000)
Subject: text shadow
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=56a6f339c4854837d6a97b6423951cca3b1bd212;p=pandemic-rising-tide.git

text shadow
---

diff --git a/generate-board b/generate-board
index 1fe542b..dc5fcd8 100755
--- a/generate-board
+++ b/generate-board
@@ -310,6 +310,7 @@ sub edge_faces() {
 
 sub label_faces() {
   my $sz = 18;
+  my $shadow = $sz * 0.1;
   o("  /Helvetica-Bold findfont  $sz scalefont setfont\n");
   foreach my $rr (values %region) {
     next if $rr->{Special};
@@ -329,7 +330,11 @@ END
     }
     o(<<END);
   } bind def
- %  0 setgray 0 10 359 { } bind for
+    0 setgray 0 10 359 {
+      dup  cos $shadow mul
+      exch sin $shadow mul
+      words pop pop
+    } bind for
     1 setgray 0 0 words pop pop
 END
   }