From 178ae39ec566ba344185a50986f9ecf9cb87f284 Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Sat, 31 Jan 2004 22:50:13 +0000
Subject: [PATCH] swept area is gray

---
 layout/layout | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/layout/layout b/layout/layout
index d4f0ddf..53b6ec1 100755
--- 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");
     }
 }
-- 
2.30.2