}
}
+sub hs_initial_1 ($$$) {
+ my ($colour, $xi,$yi) = @_;
+ my $interval = $hs_sz * 1.75;
+ o(" % HS I $colour\n");
+ o(" gsave\n");
+ o(" 400 1720 translate\n");
+ o(" ", ($xi*$interval), " ", (($yi-1)*$interval), " translate\n");
+ one_hs($colour, mkvec(0,0));
+ o(" grestore\n");
+}
+
+sub hs_initial () {
+ hs_initial_1('red', 0,0);
+ hs_initial_1('purple', 0,1);
+ hs_initial_1('green', 1,0);
+ hs_initial_1('yellow', 1,1);
+}
+
#----- main program -----
$xopts = shift @ARGV if $ARGV[0] =~ s/^-X//;
dykes();
label_faces();
sea_track();
+hs_initial();
# xxx HS initial locations
# xxx HS instructions
# xxx overall instructions