* lily/text-engraver.cc (process_acknowledged_grobs): use new

[lilypond.git] / scm / new-markup.scm

diff --git a/scm/new-markup.scm b/scm/new-markup.scm
index 4dfb2cbdb71c89217bfc9169228cef8ebacdb847..5f90f7f3e052b8c77ba9af0df11c519cd8793927 100644 (file)
--- a/scm/new-markup.scm
+++ b/scm/new-markup.scm
@@ -1,6 +1,3 @@
-
-
-
 (define-public (simple-markup grob props . rest)
   (Text_item::text_to_molecule grob props (car rest))
   )
@@ -25,6 +22,13 @@
   
   ))
 
+(define-public (magnify-markup grob props . rest  )
+  (interpret-markup grob
+                   (cons (cons `(font-magnification . ,(car rest))
+                               (car props)) (cdr props))
+                   (cadr rest))
+  )
+
 (define-public bold-markup
   (font-markup 'font-series 'bold))
 (define-public dynamic-markup
@@ -32,6 +36,8 @@
 (define-public italic-markup
   (font-markup 'font-shape 'italic))
 
+
+;; TODO: baseline-skip should come from the font.
 (define-public (column-markup grob props . rest)
   (stack-lines
    -1 0.0 (cdr (chain-assoc 'baseline-skip props))
@@ -86,7 +92,7 @@
           (cons dynamic-markup 'markup0)
           (cons char-markup 'scm0)
           (cons hspace-markup 'scm0)
-          
+          (cons magnify-markup 'scm0-markup1)
           ))