6 BEGIN { unshift @INC, qw(.); }
10 sub output_planar_graph () {
11 foreach my $ra (sort keys %region) {
12 o(plag_prs($ra), "\n");
13 if ($ra eq 'NZ' || $ra =~ m/^L2?$/) { o(" :outer\n"); }
14 my $adjs = $region{$ra}{Adj};
15 foreach my $adj (reverse @$adjs) {
16 o(" ", plag_prs($adj->{Name}), "\n");
19 # RUST_BACKTRACE=1 target/release/plag-mangle <../pandemic-rising-tide/map.plag R DUAL OUTER-F2V OUTER-SPLIT B T OUTER-F2V OUTER-F12VA PCO CP RAE PRINT-VI-NAMES NLOPT WG t.dot | qtdebug/vtrace
24 output_planar_graph();
27 # cperl-indent-level: 2