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:
c7e2acb
)
Revert "hs in a vertical line, for revert"
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sun, 3 Mar 2019 15:32:31 +0000
(15:32 +0000)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sun, 3 Mar 2019 15:32:31 +0000
(15:32 +0000)
This reverts commit
c7e2acb2475f73ad611f889b647f21606ec72c74
.
generate-board
patch
|
blob
|
history
diff --git
a/generate-board
b/generate-board
index 3df9ec659ac59d7d0d74df0f2f7b219fc0adfb15..31ab5a19d838eb729365373e5c803ed3ca65af30 100755
(executable)
--- a/
generate-board
+++ b/
generate-board
@@
-266,7
+266,7
@@
sub adjust_nz() {
print STDERR " nz adj k=$ek ",prvec($$posk)," $poly->[$ek]{VxName}\n";
if ($poly->[$ej]{VxName} =~ /Noorderzijlvest/) {
print STDERR " nz adj extra\n";
print STDERR " nz adj k=$ek ",prvec($$posk)," $poly->[$ek]{VxName}\n";
if ($poly->[$ej]{VxName} =~ /Noorderzijlvest/) {
print STDERR " nz adj extra\n";
- $$posk = $$posj + 10 * mkvec(100,-
63
);
+ $$posk = $$posj + 10 * mkvec(100,-
50
);
}
$$posj = $$posj + $dleft + $dout*10;
$$posk = $$posk + $dout*10;
}
$$posj = $$posj + $dleft + $dout*10;
$$posk = $$posk + $dout*10;
@@
-701,8
+701,8
@@
sub hs_initial_1 ($$$;$$$) {
my $demo_w = $demo_x0 + $dyke_l * 0.60;
o(" % HS I $colour\n");
o(" gsave\n");
my $demo_w = $demo_x0 + $dyke_l * 0.60;
o(" % HS I $colour\n");
o(" gsave\n");
- o(" 5
8
0 1710 translate\n");
- o(" ", (
1*$interval), " ", (($yi-1 + (1-$xi)*-2
)*$interval), " translate\n");
+ o(" 5
5
0 1710 translate\n");
+ o(" ", (
$xi*$interval), " ", (($yi-1
)*$interval), " translate\n");
if ($fn) {
o(" gsave");
o(" $demo_h setlinewidth 0 0 moveto $demo_w 0 rlineto\n");
if ($fn) {
o(" gsave");
o(" $demo_h setlinewidth 0 0 moveto $demo_w 0 rlineto\n");