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 1c2c67f944a77671d0f004e8bfbaf2931895e2c5..b4ed2b3fff15fc13e56ffa04f47df400f20abf5b 100755 (executable)
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -36,6 +36,8 @@ my $y_pl_zero = $y_cut + $spacing - $y_cutd* 0.5 * $x_cut/$colspacing;
 
 my $y_top = $y_pl_zero + $y_cutd + $spacing*1.25;
 
+our $veep_bg = " 0.66 0.85 0.75 setrgbcolor ";
+
 sub some_cut_line($) {
   <<END;
 gsave
@@ -83,7 +85,7 @@ sub veepsq ($) {
                $sqx -$sqy lineto closepath
 
        gsave 
-             0.66 0.85 0.75 setrgbcolor
+             $veep_bg
              fill
        grestore
        0.19 0.35 0.25 setrgbcolor
@@ -176,6 +178,8 @@ END
 
   $line = <<END;
   newpath
+    $veep_bg
+    4 setlinewidth
   $line
   stroke
 END