From 0e02e2e79e6fbab0d9aaabe7f0d5a898c7d72300 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sat, 12 Nov 2022 16:41:49 +0000 Subject: [PATCH] overflow-tube: wip cut2 Signed-off-by: Ian Jackson --- overflow-tube.ps.pl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl index 976e8f7..be1eb64 100755 --- a/overflow-tube.ps.pl +++ b/overflow-tube.ps.pl @@ -20,9 +20,11 @@ END my $x_cut = 27; my $x_cut2 = 38; -my $y_cut2 = 25; +my $y_cut2 = 24; my $y_cutd = 10; +my $y_cut2d = $y_cutd * ($x_cut2-$x_cut)/$x_cut; + my $nrepis = 4; my $paper_x = 210; @@ -56,7 +58,7 @@ GS newpath $x_cut2 0 moveto $x_cut2 $y_cut2 lineto - $x_cut $y_cut2 lineto + $x_cut $y_cut2 $y_cut2d add lineto $x_cut $y_cut lineto 0 $y_cut $y_cutd add lineto 0 $y_top lineto -- 2.30.2