From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Jul 2022 14:45:18 +0000 (+0100)
Subject: make ruby avail
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=706da1767d8d4dd59d20da4dd8bb0dbdfc0e60e9;p=quacks.git

make ruby avail

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

diff --git a/Quacks.pm b/Quacks.pm
index 7ae0b2c..b4b06dc 100644
--- a/Quacks.pm
+++ b/Quacks.pm
@@ -17,7 +17,7 @@ our @EXPORT = qw(
 
  $page_pre ps_start
 
- arrow_any chip
+ arrow_any chip ruby
 
 	       );
 
@@ -98,6 +98,19 @@ END
   $o;
 }
 
+sub ruby () { # put in gsave translate
+  <<END;
+  newpath
+    rubysz neg  0 moveto
+    0  rubysz neg lineto
+    rubysz      0 lineto
+    0      rubysz lineto
+    closepath
+    ${\ colour('1 .2 .2') } gsave fill grestore
+    $black 1 setlinewidth stroke
+END
+}
+
 sub ps_start (;$) {
   my ($adj) = @_;
   $adj //= '';
diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 3c36472..706d7d6 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -41,19 +41,6 @@ grestore
 END
 }
 
-sub ruby () { # put in gsave translate
-  <<END;
-  newpath
-    rubysz neg  0 moveto
-    0  rubysz neg lineto
-    rubysz      0 lineto
-    0      rubysz lineto
-    closepath
-    ${\ colour('1 .2 .2') } gsave fill grestore
-    $black 1 setlinewidth stroke
-END
-}
-
 sub exposition ($) {
   my ($text) = @_;
   my $fontsz = 6;