- $movfeat= $csegbare =~ s,(/\D+)(\d+)$,$1, ? $2 : 'f';
- die "unknown subsegment colour for $csegbare\n"
- unless exists $subsegcmap{$csegbare};
- $red= $pt->{A} / (2*$pi);
- $red *= $subsegcmapangscale;
- $red += $subsegcmapangscale*2;
- $red += $subsegcmapangscale/2 if $segments[0] =~ m/^\-/;
- $red %= $subsegcmapangscale;
- $red += $subsegcmapangscale if $me eq 'e';
- $red= sprintf("%f", $red / 255.0);
- $movstroke=
- (" $red $subsegcmap{$csegbare} setrgbcolor\n".
- " $psu_subseglw{$me} setlinewidth stroke\n");
- if ($subsegmovfeatpos ne $movfeat ||
- ($me eq 'e' && $csegbare =~ m,^/,)) {
- $movstroke= "% no-stroke\n";
+ if ($draw =~ m/Q/) {
+ $csegbare =~ m,^[^/]*,;
+#print STDERR "looking for \`$&' $me\n";
+ $movstroke= $segcmap{$&};
+ $movstroke= "% no-colour "
+ unless defined $movstroke;
+ } elsif ($draw =~ m/G/) {
+ $movfeat= $csegbare =~ s,(/\D+)(\d+)$,$1, ? $2 : 'f';
+ die "unknown subsegment colour for $csegbare\n"
+ unless exists $subsegcmap{$csegbare};
+ $red= $pt->{A} / (2*$pi);
+ $red *= $subsegcmapangscale;
+ $red += $subsegcmapangscale*2;
+ $red += $subsegcmapangscale/2
+ if $segments[0] =~ m/^\-/;
+ $red %= $subsegcmapangscale;
+ $red += $subsegcmapangscale if $me eq 'e';
+ $red= sprintf("%f", $red / 255.0);
+ $movstroke= " $red $subsegcmap{$csegbare}".
+ " setrgbcolor\n";
+ if ($subsegmovfeatpos ne $movfeat ||
+ ($me eq 'e' && $csegbare =~ m,^/,)) {
+ $movstroke= "% no-stroke ";
+ }