chiark / gitweb /
layout: draw sleepers first so that rails can draw over, in case sleepers are lighter
authorIan Jackson <ian@liberator.relativity.greenend.org.uk>
Sun, 7 Nov 2010 22:14:41 +0000 (22:14 +0000)
committerIan Jackson <ian@liberator.relativity.greenend.org.uk>
Sun, 7 Nov 2010 22:14:41 +0000 (22:14 +0000)
layout/layout

index f373f0d5e89bef40b817e138f452a9ee0f525fd6..aeec2029d56fed7a124fe1073b95d6a170d338db 100755 (executable)
@@ -1014,6 +1014,12 @@ print DEBUG "ps $p0 $p1 $lenperp ($ppu) $allwidth\n";
        o_path_point(psu_coords(\@ends,$e,$allwidth));
        o_path_point(psu_coords(\@ends,$e,-$allwidth));
        o("        closepath clip\n");
+       if ($draw =~ m/S/) {
+           o("        ".set_black('S')."\n");
+           o_line(psu_coords(\@ends,$sleeperctr,-$sleeperend),
+                  psu_coords(\@ends,$sleeperctr,+$sleeperend),
+                  $psu_sleeperlw);
+       }
        if ($draw =~ m/R/) {
            o("        ".set_black('R')."\n");
            foreach $side qw(-1 1) {
@@ -1022,12 +1028,6 @@ print DEBUG "ps $p0 $p1 $lenperp ($ppu) $allwidth\n";
                       $psu_raillw);
            }
        }
-       if ($draw =~ m/S/) {
-           o("        ".set_black('S')."\n");
-           o_line(psu_coords(\@ends,$sleeperctr,-$sleeperend),
-                  psu_coords(\@ends,$sleeperctr,+$sleeperend),
-                  $psu_sleeperlw);
-       }
        if ($draw =~ m/A/) {
            o("        ".set_colour(0.5, 'A')."\n");
            foreach $side qw(-1 1) {