]> git.donarmstrong.com Git - lilypond.git/commitdiff
*** empty log message ***
authorHan-Wen Nienhuys <hanwen@xs4all.nl>
Tue, 19 Apr 2005 17:34:12 +0000 (17:34 +0000)
committerHan-Wen Nienhuys <hanwen@xs4all.nl>
Tue, 19 Apr 2005 17:34:12 +0000 (17:34 +0000)
scm/define-grobs.scm

index 55f93476b403997425072885684aa6c9ef6d0435..eab2014dd8dbcb9af246d808b898071c3725b194 100644 (file)
@@ -21,7 +21,7 @@
        (cautionary-style . parentheses)
        (after-line-breaking-callback . ,Accidental_interface::after_line_breaking)
        (meta . ((interfaces . (item-interface accidental-interface
-                                                                                                                                      font-interface))))
+                                              font-interface))))
        ))
 
     (AccidentalPlacement
@@ -48,7 +48,8 @@
        (breakable . #t)
        (break-align-symbol . ambitus)
        (break-visibility . ,begin-of-line-visible)
-       (meta . ((interfaces . (axis-group-interface break-aligned-interface ambitus-interface item-interface))))
+       (meta . ((interfaces . (axis-group-interface
+                               break-aligned-interface ambitus-interface item-interface))))
        ))
 
     (AmbitusLine
        (X-offset-callbacks . (,Side_position_interface::aligned_side))
        (direction . -1)
        (cautionary-style . parentheses)
-       (after-line-breaking-callback . ,Accidental_interface::after_line_breaking)             (meta . ((interfaces . (item-interface accidental-interface break-aligned-interface side-position-interface font-interface))))
+       (after-line-breaking-callback . ,Accidental_interface::after_line_breaking)
+       (meta . ((interfaces . (item-interface
+                               accidental-interface break-aligned-interface
+                               side-position-interface font-interface))))
        ))
 
     (AmbitusNoteHead
        (direction . -1)
        (padding . 0.5)
        (staff-position . 0.0)
-       (meta . ((interfaces . (arpeggio-interface staff-symbol-referencer-interface side-position-interface item-interface font-interface))))
+       (meta . ((interfaces . (arpeggio-interface
+                               staff-symbol-referencer-interface side-position-interface
+                               item-interface font-interface))))
        ))
 
     (BarLine
        (thin-kern . 3.0)
        (hair-thickness . 1.9)
        (thick-thickness . 6.0)
-       (meta . ((interfaces . (bar-line-interface item-interface break-aligned-interface font-interface))))
+       (meta . ((interfaces . (bar-line-interface
+                               item-interface break-aligned-interface font-interface))))
        ))
 
 
        ;; layout16 become too small.
        (font-size . -4)
        (kern . 0.2)
-       (meta . ((interfaces . (text-interface                                                  rhythmic-grob-interface
-                                                                                               bass-figure-interface item-interface
-                                                                                               self-alignment-interface font-interface))))
+       (meta . ((interfaces . (text-interface
+                               rhythmic-grob-interface bass-figure-interface item-interface
+                               self-alignment-interface font-interface))))
        ))
     (Beam
      . (
                        (right-edge . (extra-space . 0.5))
                        ))
        (Y-offset-callbacks . (,Staff_symbol_referencer::callback))
-       (meta . ((interfaces . (clef-interface staff-symbol-referencer-interface font-interface break-aligned-interface item-interface ))))
+       (meta . ((interfaces . (clef-interface
+                               staff-symbol-referencer-interface font-interface
+                               break-aligned-interface item-interface ))))
        ))
 
     (ClusterSpannerBeacon
        (word-space . 0.0)
        (font-family . sans)
        (font-size . 1.5)
-       (meta . ((interfaces . (font-interface                                                  rhythmic-grob-interface
-                                                                                               text-interface chord-name-interface item-interface ))))
+       (meta . ((interfaces . (font-interface
+                               rhythmic-grob-interface text-interface chord-name-interface
+                               item-interface))))
        ))
 
     (Custos
      . (
        (print-function . ,Dots::print)
        (dot-count . 1)
-       (meta . ((interfaces . (font-interface staff-symbol-referencer-interface dots-interface item-interface ))))
+       (meta . ((interfaces . (font-interface
+                               staff-symbol-referencer-interface dots-interface item-interface ))))
        ))
 
     (DoublePercentRepeat
        (bound-padding . 1.0)
        (self-alignment-Y . 0)
        (Y-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
-       (meta . ((interfaces . (hairpin-interface line-interface self-alignment-interface dynamic-interface spanner-interface))))
+       (meta . ((interfaces . (hairpin-interface
+                               line-interface self-alignment-interface dynamic-interface
+                               spanner-interface))))
        ))
 
     (HorizontalBracket
        (break-align-symbol . instrument-name)
        (break-visibility . ,begin-of-line-visible)
        (baseline-skip . 2)
-       (meta . ((interfaces . (font-interface self-alignment-interface side-position-interface text-interface break-aligned-interface item-interface ))))
+       (meta . ((interfaces . (font-interface
+                               self-alignment-interface side-position-interface text-interface
+                               break-aligned-interface item-interface ))))
        ))
 
     (VocalName
        (edge-height . (1.0 . 1.0))
        (shorten-pair . (0.0 . 0.0))
        (thickness .  1.0)
-       (meta . ((interfaces . (line-interface piano-pedal-interface piano-pedal-bracket-interface spanner-interface))))
+       (meta . ((interfaces . (line-interface
+                               piano-pedal-interface piano-pedal-bracket-interface spanner-interface))))
        ))
 
 
        (Y-extent-callback . ,Hara_kiri_group_spanner::y_extent)
        (remove-first . #t)
        (axes . (1))
-       (meta . ((interfaces . (axis-group-interface vertically-spaceable-interface hara-kiri-group-interface item-interface spanner-interface))))
+       (meta . ((interfaces . (axis-group-interface
+                               vertically-spaceable-interface hara-kiri-group-interface
+                               item-interface spanner-interface))))
        ))
 
     (RepeatSlash
        (X-offset-callbacks . (,Self_alignment_interface::centered_on_parent))
        (before-line-breaking-callback . ,Script_interface::before_line_breaking)
        (font-encoding . fetaMusic)
-       (meta . ((interfaces . (script-interface side-position-interface font-interface item-interface ))))
+       (meta . ((interfaces . (script-interface
+                               side-position-interface font-interface item-interface ))))
        ))
 
     (ScriptColumn
        (padding . 1.0)
        (X-offset-callbacks . (,Side_position_interface::aligned_side))
        (direction . ,LEFT)
-       (meta . ((interfaces . (side-position-interface stanza-number-interface text-interface font-interface item-interface ))))               
+       (meta . ((interfaces . (side-position-interface
+                               stanza-number-interface text-interface font-interface item-interface ))))               
        ))
 
     (StaffSpacing
        (padding . 0.0) ;; padding relative to SostenutoPedalLineSpanner
        (font-shape . italic)
        (self-alignment-X . 0)
-       (meta . ((interfaces . (text-interface self-alignment-interface font-interface item-interface))))
+       (meta . ((interfaces . (text-interface
+                               self-alignment-interface font-interface item-interface))))
        ))
 
     (SostenutoPedalLineSpanner
        (padding . 1.2)
        (minimum-space . 1.0)
        (direction . -1)
-       (meta . ((interfaces . (piano-pedal-interface axis-group-interface side-position-interface spanner-interface))))
+       (meta . ((interfaces . (piano-pedal-interface
+                               axis-group-interface side-position-interface spanner-interface))))
        ))
 
     (StaffSymbol
        (direction . 1)
        (padding . 0.0)  ;; padding relative to SustainPedalLineSpanner
        (X-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
-       (meta . ((interfaces . (piano-pedal-interface text-spanner-interface text-interface self-alignment-interface font-interface item-interface))))
+       (meta . ((interfaces . (piano-pedal-interface
+                               text-spanner-interface text-interface self-alignment-interface
+                               font-interface item-interface))))
        ))
 
     (SustainPedalLineSpanner
        (staff-padding . 1.2)
        (minimum-space . 1.0)
        (direction . -1)
-       (meta . ((interfaces . (piano-pedal-interface axis-group-interface side-position-interface spanner-interface))))
+       (meta . ((interfaces . (piano-pedal-interface
+                               axis-group-interface side-position-interface spanner-interface))))
        ))
 
     (System
        (staff-padding . 0.5)
        (script-priority . 200)
        ;; todo: add X self alignment?
-       (meta . ((interfaces . (text-script-interface text-interface side-position-interface font-interface item-interface ))))
+       (meta . ((interfaces . (text-script-interface
+                               text-interface side-position-interface font-interface
+                               item-interface ))))
        ))
     (CombineTextScript
      . (