From b5f98d3254c0474c56233aa48bb1669538482774 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sat, 2 Jul 2022 15:46:16 +0100 Subject: [PATCH] wip ruby Signed-off-by: Ian Jackson --- overflow-tube.ps.pl | 28 +++++++++++++++------------- 1 file changed, 15 insertions(+), 13 deletions(-) diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl index a98ab71..9dd4ee6 100755 --- a/overflow-tube.ps.pl +++ b/overflow-tube.ps.pl @@ -114,21 +114,23 @@ gsave gsave ${\ chip($anychip, 0) } grestore -4 1 moveto ($money) show - -1.5 -3.0 translate - gsave - newpath -$sqx -$sqy moveto - -$sqx $sqy lineto - $sqx $sqy lineto - $sqx -$sqy lineto closepath - - gsave 1 setgray fill grestore - 0.5 setlinewidth - stroke - grestore + -1.5 -3.0 translate + + gsave + newpath -$sqx -$sqy moveto + -$sqx $sqy lineto + $sqx $sqy lineto + $sqx -$sqy lineto closepath + + gsave 1 setgray fill grestore + 0.5 setlinewidth + stroke + grestore - 0 0 moveto - ($veeps) dup stringwidth pop -0.5 mul -2.5 rmoveto show + 0 0 moveto + ($veeps) dup stringwidth pop -0.5 mul -2.5 rmoveto show + grestore grestore END -- 2.30.2