* lily/program-option.cc (LY_DEFINE): new function ly_add_option.

[lilypond.git] / scm / output-lib.scm

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 759727bb06962b5c76f1680d5020e1844cba7aff..9b24de88ecef092e4925259dc34dae2ba14ad046 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -64,12 +64,13 @@
       (let ((x (/ (- (cdr (ly:stencil-extent slur 0)) 
                      (/ (cdr (ly:stencil-extent text 0)) 2.0))
                   -2.0)))
-       
-        (ly:stencil-set-extent! text 0 (cons x x))
-        (ly:stencil-align-to! text 0 1)))))
-
-;; (ly:stencil-combine-at-edge slur 1 1 text -0.6)
 
+       (set! text
+             (ly:make-stencil (ly:stencil-expr text)
+                              (cons x x)
+                              (ly:stencil-extent text Y)))
+       
+        (ly:stencil-aligned-to text X RIGHT)))))
 
 
 (define-public guitar-tuning '(4 -1 -5 -10 -15 -20))
@@ -91,23 +92,13 @@
 
 ;;; end of tablature functions
 
+(define-public (make-stencil-boxer thickness padding callback)
+  "Return function that adds a box around the grob passed as argument."
+  (lambda (grob) (box-stencil (callback grob) thickness padding)))
 
-(define-public (make-stencil-boxer line-thick x-padding y-padding callback)
-  "Makes a routine that adds a box around the grob parsed as argument"
-  (define (stencil-boxer grob)
-    (let* ((mol (callback grob))
-          (x-ext (interval-widen (ly:stencil-extent mol 0) x-padding))
-          (y-ext (interval-widen (ly:stencil-extent mol 1) y-padding))
-          (x-rule (make-filled-box-stencil (interval-widen x-ext line-thick)
-                                           (cons 0 line-thick)))
-          (y-rule (make-filled-box-stencil (cons 0 line-thick) y-ext)))
-      
-      (set! mol (ly:stencil-combine-at-edge mol 0 1 y-rule x-padding))
-      (set! mol (ly:stencil-combine-at-edge mol 0 -1 y-rule x-padding))
-      (set! mol (ly:stencil-combine-at-edge mol 1 1 x-rule 0))  
-      (set! mol (ly:stencil-combine-at-edge mol 1 -1 x-rule 0))
-      mol))
-  stencil-boxer)
+(define-public (make-stencil-circler thickness padding callback)
+  "Return function that adds a circle around the grob passed as argument."
+  (lambda (grob) (circle-stencil (callback grob) thickness padding)))
 
 (define-public (arg->string arg)
   (cond ((number? arg) (ly:inexact->string arg 10))
@@ -115,21 +106,15 @@
        ((symbol? arg) (string-append "\"" (symbol->string arg) "\""))))
 
 (define-public (print-circled-text-callback grob)
-  (let*
-      ((text (ly:grob-property grob 'text))
-       (layout (ly:grob-layout grob))
-       (defs (ly:output-def-lookup layout 'text-font-defaults))
-       (props (ly:grob-alist-chain grob defs))
-       (circle (Text_interface::interpret_markup layout props 
-                                                (make-circle-markup
-                                                 1.0 0.1)))
-       (text-stencil
-       (Text_interface::interpret_markup layout props text)))
-
-    (ly:stencil-align-to! text-stencil X CENTER)
-    (ly:stencil-align-to! text-stencil Y CENTER)
-    (ly:stencil-add text-stencil circle)
-  ))
+  (let* ((text (ly:grob-property grob 'text))
+        (layout (ly:grob-layout grob))
+        (defs (ly:output-def-lookup layout 'text-font-defaults))
+        (props (ly:grob-alist-chain grob defs))
+        (circle (Text_interface::interpret_markup
+                 layout props (make-draw-circle-markup 0.8 0.1 #f)))
+        (text-stencil (Text_interface::interpret_markup layout props text)))
+    
+    (ly:stencil-add (centered-stencil text-stencil) circle)))
 
 
 ;;(define (mm-to-pt x)
@@ -173,6 +158,10 @@
         (number->string duration)))
     ((mensural)
      (string-append (number->string duration) (symbol->string style)))
+    ((petrucci)
+     (if (< duration 0)
+        (string-append (number->string duration) "mensural")
+        (string-append (number->string duration) (symbol->string style))))
     ((neomensural)
      (string-append (number->string duration) (symbol->string style)))
     ((default)
@@ -258,7 +247,7 @@ centered, X==1 is at the right, X == -1 is at the left."
                         ("bracket" . (() . "bracket"))  ))))
 
     (if (equal? result #f)
-       (ly:warn "Unknown bar glyph: `~S'" glyph)
+       (ly:warning (_ "unknown bar glyph: `~S'" glyph))
        (index-cell (cdr result) dir))))
 
 (define-public (shift-right-at-line-begin g)