release: 1.5.48

[lilypond.git] / scm / pdftex.scm

diff --git a/scm/pdftex.scm b/scm/pdftex.scm
index 6fccc24420a24fd98a4083a19c5a9a6e5df3f7a1..a40e208669ece44734e8ae389dbe1eaa714ceb93 100644 (file)
--- a/scm/pdftex.scm
+++ b/scm/pdftex.scm
@@ -158,6 +158,9 @@
      "depth " (number->dim depth)
      "height " (number->dim height) " "))
 
+  (define (roundfilledbox x width y height blotdiam)
+    (embedded-pdf ((pdf-scm 'roundfilledbox) x width y height blotdiam)))
+
   (define (text s)
     (string-append "\\hbox{" (output-tex-string s) "}"))