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