wip pastel

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

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index be424e4f4b0543213b3b5b34012458f47c82ff33..1c2c67f944a77671d0f004e8bfbaf2931895e2c5 100755 (executable)
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -174,7 +174,13 @@ END
     grestore
 END
 
-  (" newpath $line stroke ", $o)
+  $line = <<END;
+  newpath
+  $line
+  stroke
+END
+
+  ($line, $o)
 }
 
 sub repis () {