$r= 'ARSCLMNO';
}
foreach $eo (@eopts) {
-print STDERR "layer_draw E ($k,$l) /^$eo->{GlobRe}/\n";
next unless $k =~ m/^$eo->{GlobRe}$/;
-print STDERR "layer_draw E ($k,$l) lc\n";
next unless &{ $eo->{LayerCheck} }($l);
-print STDERR "layer_draw E ($k,$l) amend $eo->{DrawMods}\n";
foreach $cc (split //, $eo->{DrawMods}) {
$r =~ s/$cc//ig;
$r .= $cc if $cc =~ m/[A-Z]/;
}
}
-print STDERR "layer_draw A ($k,$l) = $r\n";
$r= &{ $ctx->{DrawMap} }($r);
-print STDERR "layer_draw B ($k,$l) = $r\n";
return $r;
}