chiark / gitweb /
adj
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 3 Jul 2022 12:57:14 +0000 (13:57 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 3 Jul 2022 12:57:14 +0000 (13:57 +0100)
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
overflow-tube.ps.pl

index d2baaf4509b0914bbb0cd135c2bd4a9f53def944..87989b60d8a00cfcfdd3e6d83bc014cfa2567564 100755 (executable)
@@ -36,7 +36,7 @@ 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 ";
+our $veep_bg = " 0.90 0.81 0.34 setrgbcolor ";
 
 sub some_cut_line($) {
   <<END;
@@ -178,7 +178,7 @@ END
 
   $line = <<END;
   newpath
-    $veep_bg
+    0.66 0.85 0.75 setrgbcolor
     4 setlinewidth
   $line
   stroke