release: 1.5.48

[lilypond.git] / scm / tex.scm

diff --git a/scm/tex.scm b/scm/tex.scm
index 2769db1cd20a963e6129039d021e713b2c794c2f..9f0e65d857b11a3a8448d0005241dd4ca3c0bba1 100644 (file)
--- a/scm/tex.scm
+++ b/scm/tex.scm
@@ -249,6 +249,9 @@
        "depth " (number->dim depth)
        "height " (number->dim height) " ")))
 
+(define (roundfilledbox x y width height blotdiam)
+  (embedded-ps (list 'roundfilledbox  x y width height blotdiam)))
+
 (define (text s)
   (string-append "\\hbox{" (output-tex-string s) "}"))