chiark / gitweb /
wip ruby
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 2 Jul 2022 14:46:16 +0000 (15:46 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 2 Jul 2022 14:46:16 +0000 (15:46 +0100)
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
overflow-tube.ps.pl

index a98ab71d471dd4695bec490132619eacf8a974c1..9dd4ee6120e8288513ca4db3fc78c628a4e9a8c4 100755 (executable)
@@ -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