From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Jul 2022 15:04:15 +0000 (+0100)
Subject: veepsq
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=dfd26e871703d724cb96ba68823aea432cfac883;p=quacks.git

veepsq

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index c2e3453..5437b5c 100755
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -63,6 +63,33 @@ o <<END;
     /Helvetica-Bold findfont 6.5 scalefont setfont
 END
 
+sub veepsq ($) {
+  my ($veeps) = @_;
+
+  my $sqx = 4.1;
+  my $sqy = 3.2;
+
+  <<END;
+  gsave
+    -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
+  grestore
+END
+}
+
 sub places ($) {
   my ($repi) = @_;
   my $data = <<END;
@@ -107,9 +134,6 @@ END
     $money += 4 * $repi;
     $veeps += 2 * $repi;
 
-    my $sqx = 4.1;
-    my $sqy = 3.2;
-
     $o .= <<END;
 % place $x $y $money $veeps $ruby
 gsave
@@ -117,24 +141,7 @@ gsave
   gsave ${\ chip($anychip, 0) } grestore
   -4 1 moveto ($money) show
 
-  gsave
-    -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
-  grestore
-
+  ${\ veepsq($veeps) }
 END
 
     $o .= <<END if $ruby;