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:
c60d450
)
wip
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sat, 2 Jul 2022 14:12:47 +0000
(15:12 +0100)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sat, 2 Jul 2022 14:12:47 +0000
(15:12 +0100)
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 8ca17a6adb3269eaa4f79cfe6aebc03a54fcbe16..95b09f37d411f27bcbc38ffb8b755173edcb42d9 100755
(executable)
--- a/
overflow-tube.ps.pl
+++ b/
overflow-tube.ps.pl
@@
-19,8
+19,6
@@
ps_start(<<END);
END
my $x_cut = 27;
-my $y_cut = 120; # XX
-my $y_top = 160; # XX
my $y_cutd = 10;
my $nrepis = 4;
@@
-31,9
+29,13
@@
my $spacing = 23;
my $colspacing = 23;
my $vhalf = sqrt( $spacing ** 2 - ($colspacing*0.5) ** 2 );
+my $y_cut = 2.75 * $spacing;
+
my $x_pl_zero = $paper_x*0.5 - 3*$colspacing;
my $y_pl_zero = $y_cut + $spacing - $y_cutd* 0.5 * $x_cut/$colspacing;
+my $y_top = $y_pl_zero + $y_cutd + $spacing*1.25;
+
o <<END;
gsave
0.5 setgray