From c60d4508c44e7d678cf8861ea643bdb78f66c70a Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Jul 2022 15:09:02 +0100
Subject: [PATCH] wip

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

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index bb4a37b..8ca17a6 100755
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -25,11 +25,13 @@ my $y_cutd = 10;
 
 my $nrepis = 4;
 
+my $paper_x = 210;
+
 my $spacing = 23;
-my $colspacing = (210 - $x_cut) / $nrepis / 2;
+my $colspacing = 23;
 my $vhalf = sqrt( $spacing ** 2 - ($colspacing*0.5) ** 2 );
 
-my $x_pl_zero = $x_cut + 0.5*$colspacing;
+my $x_pl_zero = $paper_x*0.5 - 3*$colspacing;
 my $y_pl_zero = $y_cut + $spacing - $y_cutd* 0.5 * $x_cut/$colspacing;
 
 o <<END;
@@ -91,13 +93,12 @@ END
 }
 
 sub repis () {
-  for my $repi (0..4) {
+  for my $repi (0..$nrepis-1) {
     o(<<END);
 gsave
   $repi $colspacing 2 mul mul  0 translate
-
-  cut_line
 END
+
     places($repi);
     o(<<END);
 grestore
@@ -105,6 +106,18 @@ END
   }
 }
 
-repis();
+sub set () {
+  o(<<END);
+    cut_line
+    gsave
+      $paper_x $x_cut sub  0 translate
+      cut_line
+    grestore
+END
+
+  repis();
+}
+
+set();
 
 print $ps_framing or die $!;
-- 
2.30.2