chiark
/
gitweb
/
~ian
/
pandemic-rising-tide.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f32b6a3
)
tiny adjustments to track symbols
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sun, 3 Mar 2019 21:20:21 +0000
(21:20 +0000)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sun, 3 Mar 2019 21:20:21 +0000
(21:20 +0000)
generate-board
patch
|
blob
|
history
diff --git
a/generate-board
b/generate-board
index ac38bc5d01e7be08f3e700c75063eba2ce33f197..a6d00c51a0c6eb037f6ede6f0babe43786110e9b 100755
(executable)
--- a/
generate-board
+++ b/
generate-board
@@
-590,7
+590,7
@@
sub sea_track(){
my $t_sz = 24;
my $shrink = ($hs_sz * 0.75 / $deck_h);
o(" gsave % T M $i\n");
- o(" -4
4
-6.5 translate\n");
+ o(" -4
3.5
-6.5 translate\n");
o(" 0.8 .8 scale \n");
o(" ",0.6 * $dx, " ", -0.28 * $dy," translate\n");
o(" gsave");
@@
-599,7
+599,7
@@
sub sea_track(){
o(" deck1path stroke\n");
o(" grestore");
o(" /Helvetica-Bold findfont $t_sz scalefont setfont\n");
- o(" 12 -2
2
moveto ($track->[$i]) show");
+ o(" 12 -2
1.5
moveto ($track->[$i]) show");
o(" grestore\n");
if ($i > 0) {