chiark / gitweb /
dyke lw
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 2 Mar 2019 17:35:51 +0000 (17:35 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 2 Mar 2019 17:35:54 +0000 (17:35 +0000)
generate-board

index e4d40ba695665fee8ae316cb3fd7b44942548dca..f15a5d4b728daefc5046dc082004f385111ffb61 100755 (executable)
@@ -549,7 +549,7 @@ sub sea_track(){
 sub dykes(){
   my $l = 25 * MM2PT;
   my $w = 5 * MM2PT;
-  my $lw = $edge_lw * 0.25;
+  my $lw = $edge_lw * 0.50;
   my $l2 = $l/2;
   my $w2 = $w/2;
   foreach my $rr (values %region) {
@@ -571,7 +571,7 @@ sub dykes(){
       o("             $l2  $w2 lineto\n");
       o("            -$l2  $w2 lineto closepath\n");
       o("    gsave 0.50 setgray fill grestore\n");
-      o("    gsave 0.00 setgray stroke grestore\n");
+      o("    gsave 0.00 setgray $lw setlinewidth stroke grestore\n");
       o("  grestore\n");
     }
   }