From: ian <ian>
Date: Sat, 31 Jan 2004 22:50:13 +0000 (+0000)
Subject: swept area is gray
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=178ae39ec566ba344185a50986f9ecf9cb87f284;p=trains.git

swept area is gray
---

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");
     }
 }