Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
$ps_framing
- $page_pre ps_head
+ $page_pre ps_start
arrow_any
our $anychip = ['0.8', '0'];
our $black = colour('0');
-our $page_pre = <<END;
-72 25.4 div dup scale
-%210 0 translate
-%90 rotate
-7 30 translate
-END
+our $page_pre;
our $ps_framing = '';
END
};
-sub ps_head () {
+sub ps_start () {
+ $page_pre = <<END;
+72 25.4 div dup scale
+%210 0 translate
+%90 rotate
+7 30 translate
+END
+
$ps_framing .= <<END;
%!
BEGIN { unshift @INC, '.'; }
use Quacks;
-ps_head();
+ps_start();
sub o {
local $_;
$o;
}
-ps_head();
+ps_start();
sub def_image ($$) {
my ($ncomps, $name) = @_;