clarifications etc. from notes

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

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index c2e345373033c1a905fe932999d12181a85b815a..071ccd16ac17341797b5b68324ed09a182f9e3e1 100755 (executable)
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -19,8 +19,18 @@ ps_start(<<END);
 END
 
 my $x_cut = 27;
+my $x_cutd = 1;
+my $x_cut2 = 38;
+my $y_cut2 = 24;
 my $y_cutd = 10;
 
+my $coverup_x = 5;
+my $coverup_y = 89;
+
+my $cutd_slope = ($x_cut2-$x_cut)/$x_cut;
+my $y_cut2d = $y_cutd * $cutd_slope;
+my $y_cutdd = $x_cutd * $cutd_slope;
+
 my $nrepis = 4;
 
 my $paper_x = 210;
@@ -36,10 +46,14 @@ 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 ";
+
+our $x_cut_rhs = $paper_x - $x_cut + 0.5 * $colspacing;;
+
 sub some_cut_line($) {
   <<END;
 gsave
-  0.5 setgray
+  0.25 setlinewidth
   $_[0]
 grestore
 END
@@ -49,19 +63,56 @@ END
 o <<GS, some_cut_line(<<GR), <<END;
 /cut_line {
 GS
-                              newpath
-  $x_cut 0                    moveto
-  $x_cut $y_cut               lineto
-  0      $y_cut $y_cutd add   lineto
-  0      $y_top               lineto
-                              stroke
+                                          newpath
+  $x_cut2     0                           moveto
+  $x_cut2     $y_cut2                     lineto
+  $x_cut $x_cutd add     $y_cut2   $y_cut2d add      lineto
+  $x_cut $x_cutd add      $y_cut   $y_cutdd add      lineto
+  0           $y_cut    $y_cutd add       lineto
+  0           $y_top                      lineto
+                                          stroke
 GR
 } def
 END
 
+my $veep_font = "/Helvetica-Bold findfont 6.5 scalefont setfont";
+my $money_font = "/Helvetica-BoldOblique findfont 6.5 scalefont setfont";
+
 o <<END;
-    /Helvetica-Bold findfont 6.5 scalefont setfont
+$money_font
+END
+
+sub veepsq ($) {
+  my ($veeps) = @_;
+
+  my $sqx = 4.1;
+  my $sqy = 3.2;
+
+  <<END;
+  gsave
+    -1.5 -3.0 translate
+
+    gsave
+      newpath  -$sqx -$sqy moveto
+              -$sqx  $sqy lineto
+               $sqx  $sqy lineto
+               $sqx -$sqy lineto closepath
+
+       gsave 
+             $veep_bg
+             fill
+       grestore
+       0.19 0.35 0.25 setrgbcolor
+       0.5 setlinewidth
+       stroke
+    grestore
+
+    $veep_font
+    0 0 moveto
+    ($veeps) dup  stringwidth pop -0.5 mul -2.5 rmoveto  show
+  grestore
 END
+}
 
 sub places ($) {
   my ($repi) = @_;
@@ -107,34 +158,20 @@ END
     $money += 4 * $repi;
     $veeps += 2 * $repi;
 
-    my $sqx = 4.1;
-    my $sqy = 3.2;
-
     $o .= <<END;
 % place $x $y $money $veeps $ruby
 gsave
   $x $y translate
-  gsave ${\ chip($anychip, 0) } grestore
-  -4 1 moveto ($money) show
-
   gsave
-    -1.5 -3.0 translate
-
-    gsave
-      newpath  -$sqx -$sqy moveto
-              -$sqx  $sqy lineto
-               $sqx  $sqy lineto
-               $sqx -$sqy lineto closepath
-
-       gsave 1 setgray fill grestore
-       0.5 setlinewidth
-       stroke
-    grestore
-
-    0 0 moveto
-    ($veeps) dup  stringwidth pop -0.5 mul -2.5 rmoveto  show
+    newpath
+    0 0 chip 0.5 mul 0 360 arc
+    gsave 0.5 setlinewidth $black stroke grestore
+    0.80 0.89 0.63 setrgbcolor fill
   grestore
 
+  -4.7 1 moveto ($money) show
+
+  ${\ veepsq($veeps) }
 END
 
     $o .= <<END if $ruby;
@@ -153,7 +190,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 () {
@@ -177,20 +222,31 @@ sub set () {
   o(<<END);
     cut_line
     gsave
-      $paper_x $x_cut sub  0 translate
+      $x_cut_rhs 0 translate
       cut_line
     grestore
 END
   o some_cut_line <<END;
                                  newpath
     0                    $y_top  moveto
-    $paper_x $x_cut sub  $y_top  lineto
+    $x_cut_rhs           $y_top  lineto
                                  stroke
 END
 
   repis();
 
   o <<END;
+    gsave
+      $coverup_x $coverup_y translate
+      /Times-Roman findfont 4.0 scalefont setfont
+      0 8 moveto  (cover) show
+      2 4.5 moveto  (up) show
+      0 0 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
 
@@ -202,8 +258,17 @@ END
       -40 0 translate
       /Helvetica-Bold findfont 6.5 scalefont setfont
 
-     0 0 moveto
-     (+8) show
+     -4.5 0 moveto
+     $money_font
+     (+16) show
+
+     4 -2 translate
+     ${\ veepsq('+8') }
+
+     4 4.5 moveto
+     /Times-Roman findfont 4.5 scalefont setfont
+     (per next page) show
+
     grestore
 END
 }