From dfc4b0f35189b8d8af300b16464aebf87968ecef Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Jul 2022 13:26:16 +0100
Subject: [PATCH] wip

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 overflow-tube.ps.pl | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index 5b08f86..a63262a 100755
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -21,12 +21,15 @@ END
 my $x_cut = 27;
 my $y_cut = 120; # XX
 my $y_top = 160; # XX
-my $y_cutd = 20;
+my $y_cutd = 10;
 
 my $spacing = 23;
 my $colspacing = 24;
 my $vhalf = sqrt( $spacing ** 2 - ($colspacing*0.5) ** 2 );
 
+my $x_pl_zero = $x_cut + 0.5*$colspacing;
+my $y_pl_zero = $y_cut + $spacing - $y_cutd* 0.5 * $x_cut/$colspacing;
+
 o <<END;
 gsave
 0.5 setgray
@@ -62,7 +65,7 @@ END
     s{\#.*}{};
     next unless m/\S/;
     s{^\s*}{};
-    s{H}{ -0.5 }g;
+    s{H}{ 0.5 }ge;
     s{V}{ $vhalf / $spacing }ge;
     s{\*}{1}eg;
     my ($x,$y,$money,$veeps,$ruby) = map { eval $_ } split /\s+/;
@@ -79,8 +82,9 @@ END
     o <<END;
 % place $x $y $money $veeps $ruby
 gsave
+  $x_pl_zero $y_pl_zero translate
   $x $y translate
-  
+  ${\ chip($anychip, 0) }
 grestore
 END
   }
-- 
2.30.2