our %region;
# $region{NAME}{Colour}
# $region{NAME}{Water}
+# $region{NAME}{Name}
# $region{NAME}{L} # line number
# $region{NAME}{Adj}[]{Name}
# $region{NAME}{Adj}[]{Pattern}
#print STDERR "total $ndikes dikes\n";
}
+sub names () {
+ foreach my $r (sort keys %region) {
+ $region{$r}{Name} = $r;
+ }
+}
+
sub edge_id_to_other_id ($$) {
my ($ra, $adjia) = @_;
my $adjsa = $region{$ra}{Adj};
read_in();
resolve_arefs();
adjacencies();
+ names();
}
1;