make ruby avail

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

diff --git a/Quacks.pm b/Quacks.pm
index 7ae0b2ce6528cb2b26f0bfd1711734f65a1d8f16..b4b06dcf12965bcabd7c4e7613f494c884d7ec99 100644 (file)
--- 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 3c36472edf01c1d36a8c84e220a9676df6b7c1db..706d7d6ff67c6766fb4468afc3376bc2f4aa23e9 100755 (executable)
--- 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;