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:
4889daa
)
wip pastel
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sun, 3 Jul 2022 12:32:31 +0000
(13:32 +0100)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sun, 3 Jul 2022 12:32:31 +0000
(13:32 +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 a7444e38cf1328968adbc495b6e3f7f8c2c3b7a6..ac62cb1b60ca3debaf27afc4a8b48b795764bbac 100755
(executable)
--- a/
overflow-tube.ps.pl
+++ b/
overflow-tube.ps.pl
@@
-142,7
+142,13
@@
END
% place $x $y $money $veeps $ruby
gsave
$x $y translate
- gsave ${\ chip($anychip, 0) } grestore
+ gsave
+ newpath
+ 0 0 chip 0.5 mul 0 360 arc
+ gsave 0.5 setlinewidth $black stroke grestore
+ 0.37 0.70 0.50 setrgbcolor fill
+ grestore
+
-4.7 1 moveto ($money) show
${\ veepsq($veeps) }