overflow-tube: wip cut2

[quacks.git] / overflow-tube.ps.pl

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index 6042462c8442431027001609c0b246172ae1e34a..976e8f77ad64681d90308c6202f17cb0191596c4 100755 (executable)
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -19,6 +19,8 @@ ps_start(<<END);
 END
 
 my $x_cut = 27;
+my $x_cut2 = 38;
+my $y_cut2 = 25;
 my $y_cutd = 10;
 
 my $nrepis = 4;
@@ -36,6 +38,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.95 0.90 0.67 setrgbcolor ";
+
 sub some_cut_line($) {
   <<END;
 gsave
@@ -50,7 +54,9 @@ o <<GS, some_cut_line(<<GR), <<END;
 /cut_line {
 GS
                               newpath
-  $x_cut 0                    moveto
+  $x_cut2 0                   moveto
+  $x_cut2 $y_cut2             lineto
+  $x_cut  $y_cut2             lineto
   $x_cut $y_cut               lineto
   0      $y_cut $y_cutd add   lineto
   0      $y_top               lineto
@@ -82,7 +88,11 @@ sub veepsq ($) {
                $sqx  $sqy lineto
                $sqx -$sqy lineto closepath
 
-       gsave 1 setgray fill grestore
+       gsave 
+             $veep_bg
+             fill
+       grestore
+       0.19 0.35 0.25 setrgbcolor
        0.5 setlinewidth
        stroke
     grestore
@@ -146,7 +156,7 @@ gsave
     newpath
     0 0 chip 0.5 mul 0 360 arc
     gsave 0.5 setlinewidth $black stroke grestore
-    0.37 0.70 0.50 setrgbcolor fill
+    0.80 0.89 0.63 setrgbcolor fill
   grestore
 
   -4.7 1 moveto ($money) show
@@ -170,7 +180,15 @@ END
     grestore
 END
 
-  (" newpath $line stroke ", $o)
+  $line = <<END;
+  newpath
+    0.66 0.85 0.75 setrgbcolor
+    4 setlinewidth
+  $line
+  stroke
+END
+
+  ($line, $o)
 }
 
 sub repis () {
@@ -208,6 +226,16 @@ END
   repis();
 
   o <<END;
+    gsave
+      /Times-Roman findfont 4.0 scalefont setfont
+      4 97 moveto  (cover) show
+      6 93.5 moveto  (up) show
+      4 89 moveto
+      /Helvetica-Bold-Italic findfont 3.5 scalefont setfont (35) show
+      1 0 rmoveto
+      /Helvetica-Bold findfont 3.5 scalefont setfont (15) show
+    grestore
+
     gsave
       $paper_x $x_cut sub  $y_top 7 sub translate