From a47af8e61cd4f9f0132e998da474f7dbe74faa86 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Jul 2022 12:08:03 +0100
Subject: [PATCH] wip

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 Quacks.pm           | 6 +++---
 overflow-tube.ps.pl | 9 +++++++++
 2 files changed, 12 insertions(+), 3 deletions(-)

diff --git a/Quacks.pm b/Quacks.pm
index 7980d03..9583c9b 100644
--- 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 d656f1f..1887bd5 100755
--- 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 $!;
-- 
2.30.2