From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Jul 2022 11:08:03 +0000 (+0100)
Subject: wip
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=a47af8e61cd4f9f0132e998da474f7dbe74faa86;p=quacks.git

wip

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

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 $!;