chiark
/
gitweb
/
~ianmdlvl
/
quacks.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
39f99e0
)
overflow-tube: wip cut2
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sat, 12 Nov 2022 16:41:49 +0000
(16:41 +0000)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sat, 12 Nov 2022 16:41:49 +0000
(16:41 +0000)
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
overflow-tube.ps.pl
patch
|
blob
|
history
diff --git
a/overflow-tube.ps.pl
b/overflow-tube.ps.pl
index 976e8f77ad64681d90308c6202f17cb0191596c4..be1eb64b4ca8a1090ca1ecb29c035c0c0db45f66 100755
(executable)
--- 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 = 2
5
;
+my $y_cut2 = 2
4
;
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