overflow-tube: Add cover up instruction (introduce var)

[quacks.git] / Quacks.pm

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 //= '';