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) {
$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) {