my $lw = $edge_lw * 0.50;
my $l2 = $l/2;
my $w2 = $w/2;
+ o(" /dyke {\n");
+ o(" newpath -$l2 -$w2 moveto\n");
+ o(" $l2 -$w2 lineto\n");
+ o(" $l2 $w2 lineto\n");
+ o(" -$l2 $w2 lineto closepath\n");
+ o(" gsave 0.50 setgray fill grestore\n");
+ o(" gsave 0.00 setgray $lw setlinewidth stroke grestore\n");
+ o(" } bind def\n");
foreach my $rr (values %region) {
next if $rr->{Special};
next if $rr->{Colour} eq 'high';
o(" gsave\n");
o(" ", psvec( 0.5 * ($ends[0] + $ends[1]) )," translate\n");
o(" ", ($angle * 360 / TAU), " rotate\n");
- o(" newpath -$l2 -$w2 moveto\n");
- o(" $l2 -$w2 lineto\n");
- o(" $l2 $w2 lineto\n");
- o(" -$l2 $w2 lineto closepath\n");
- o(" gsave 0.50 setgray fill grestore\n");
- o(" gsave 0.00 setgray $lw setlinewidth stroke grestore\n");
+ o(" dyke\n");
o(" grestore\n");
}
}