swept area is gray

diff --git a/layout/layout b/layout/layout
index d4f0ddff3bbfa38c3a1b5e73ead5f776d8c81925..53b6ec1a30c824b14888a2d7129a6fd5c3154b0a 100755 (executable)
--- a/layout/layout
+++ b/layout/layout
@@ -440,7 +440,15 @@ print DEBUG "ps $p0 $p1 $lenperp ($ppu)\n";
                       psu_coords(\@ends,1.5,$side*$railctr),
                       $psu_raillw);
            }
-           if ($draw =~ m/A/) {
+       }
+       if ($draw =~ m/S/) {
+           o_line(psu_coords(\@ends,$sleeperctr,-$sleeperend),
+                  psu_coords(\@ends,$sleeperctr,+$sleeperend),
+                  $psu_sleeperlw);
+       }
+       if ($draw =~ m/A/) {
+           o("        0.5 setgray\n");
+           foreach $side qw(-1 1) {
                o_line(psu_coords(\@ends,0,$side*$psu_allwidth),
                       psu_coords(\@ends,1.5,$side*$psu_allwidth),
                       $psu_edgelw);
@@ -451,11 +459,6 @@ print DEBUG "ps $p0 $p1 $lenperp ($ppu)\n";
                }
            }
        }
-       if ($draw =~ m/S/) {
-           o_line(psu_coords(\@ends,$sleeperctr,-$sleeperend),
-                  psu_coords(\@ends,$sleeperctr,+$sleeperend),
-                  $psu_sleeperlw);
-       }
        o("      grestore\n");
     }
 }