From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 3 Jul 2022 12:38:22 +0000 (+0100)
Subject: wip pastel
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=bc2b7a4b86da665ac98104cc24f5942d5cb93cad;p=quacks.git

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 1c2c67f..b4ed2b3 100755
--- 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