} else {
$ctx->{Draw}= 'ARSCLMNO';
}
- print STDERR "layer $k $l drawdef |$ctx->{Draw}|\n";
foreach $eo (@eopts) {
- print STDERR "layer $k $l eo $eo->{GlobRe}\n";
next unless $k =~ m/^$eo->{GlobRe}$/;
- print STDERR "layer $k $l lc $eo->{LayerCheck}\n";
next unless &{ $eo->{LayerCheck} }($l);
- print STDERR "layer $k $l dm $eo->{DrawMods}\n";
foreach $cc (split //, $eo->{DrawMods}) {
$ctx->{Draw} =~ s/$cc//ig;
$ctx->{Draw} .= $cc if $cc =~ m/[A-Z]/;
}
}
- print STDERR "layer $k $l drawing |$ctx->{Draw}|\n";
}
sub cmd_part { cmd__obj(Part); }