wip

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index bb4a37b892f30ec6cbd5fbcde28a27fccdf1667f..8ca17a6adb3269eaa4f79cfe6aebc03a54fcbe16 100755 (executable)
--- 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 $!;