default: all
-all: test.ps
+all: test.ps layout-test.ps
map.plag: generate-plag input-graph Parse.pm
./$< input-graph $o
$(PLANAR_GRAPH) RF $< W-FACES $@.tmp && $i
test.ps: generate-board faces.plag input-graph misc-data.pl
- ./$(filter-out misc-data.pl,$^) $o
+ ./generate-board -XS faces.plag input-graph $o
+
+layout-test.ps: test.ps Makefile
+ ./generate-board -XW faces.plag input-graph $o
#map.ps: map.dot
# neato -Tps $^ $o
use Parse;
+our $xopts;
our $facesf;
our %vxname2pos; # $vxname2pos{VXNAME} = Math::GSL::Vector
sub preamble() {
o("%!\n");
- o(" 0.52 dup scale\n"); # xxx bodge, want boundingbox or something
+ o(" 0.52 dup scale\n") if $xopts =~ m/S/;
+ # xxx bodge, want boundingbox or something
}
sub facepscolour ($) {
my ($colourname) = @_;
- pscolour($c{Colours}{$colourname},
- sub { $_ = 1.0 - 0.75 * (1.0 - $_) foreach @_ });
+ $xopts =~ m/W/ ? '1 setgray'
+ : pscolour($c{Colours}{$colourname},
+ sub { $_ = 1.0 - 0.75 * (1.0 - $_) foreach @_ });
}
sub fill_faces() {
}
}
+sub postamble () {
+ o("showpage\n");
+}
+
#----- main program -----
+$xopts = shift @ARGV if $ARGV[0] =~ s/^-X//;
+
($facesf, @ARGV) = @ARGV or die;
parse_input_graph();
prep_region_rmap();
fill_faces();
edge_faces();
label_faces();
+postamble();
print STDERR Dumper(\%region) if $ENV{'GENERATE_BOARD_DUP'};