wip

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/Quacks.pm b/Quacks.pm
index 7980d0345d80d125c143b9ae93d80179268331b8..9583c9bd290656e4a85f016caad289aeadf8d559 100644 (file)
--- a/Quacks.pm
+++ b/Quacks.pm
@@ -31,9 +31,6 @@ our $purple  = ["145/44/238", "0 0 0"];
 our $lotus   = [("0/245/255",) x 2];
 our $white   = ["1  1   1", "0 0 0"];
 
-our $anychip = ['0.8', '0'];
-our $black = colour('0');
-
 sub colour ($) {
   my ($c) = @_;
   if ($c =~ m{^(\d+)/(\d+)/(\d+)$}) {
@@ -49,6 +46,9 @@ sub colour ($) {
   }
 }
 
+our $anychip = ['0.8', '0'];
+our $black = colour('0');
+
 our $page_pre = <<END;
 72 25.4 div dup scale
 %210 0 translate

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index d656f1f2f09f693b10ef19681ebcdfdad24a0ec6..1887bd53d1e5086d08ffc4ad340c153cc366a1ed 100755 (executable)
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -10,4 +10,13 @@ use Quacks;
 
 ps_head();
 
+sub o {
+  local $_;
+  for (@_) { $ps_framing .= $_ }
+}
+
+o <<END;
+0 0 moveto 20 20 lineto stroke
+END
+
 print $ps_framing or die $!;