]> git.donarmstrong.com Git - lilypond.git/commitdiff
lilypond-1.3.103
authorfred <fred>
Wed, 27 Mar 2002 00:30:55 +0000 (00:30 +0000)
committerfred <fred>
Wed, 27 Mar 2002 00:30:55 +0000 (00:30 +0000)
lily/chord-name-engraver.cc
scm/element-descriptions.scm

index 8729cb57a2a08b420e4544661e000daef6a3edfb..aa5c6f27ee4309fb562127b14eb04854562696c6 100644 (file)
@@ -116,7 +116,7 @@ void
 Chord_name_engraver::create_chord_name ()
 {
   assert (chord_p_);
-  chord_name_p_ = new Item (get_property ("ChordNames"));
+  chord_name_p_ = new Item (get_property ("ChordName"));
   /*
     Hmm, why not represent complete chord as list?
     ((tonic third fifth) (inversion bass))
index 9bd688f806ece6398e800e82f27356dfc3ba197f..ac46e1c525015b8ec0ed00edbd69f519b03c7d6b 100644 (file)
@@ -84,7 +84,7 @@
           (meta . ,(element-description "Clef" clef-interface font-interface break-aligned-interface ))
        ))
 
-       (ChordNames . (
+       (ChordName . (
                (molecule-callback . ,Chord_name::brew_molecule)
                (after-line-breaking-callback . ,Chord_name::after_line_breaking)
                (chord-name-function . ,default-chord-name-function)
        ))
        
        (RehearsalMark . (
-               (molecule-callback . ,Text_item::brew_molecule) 
+               (molecule-callback . ,Text_item::brew_molecule)
+               (direction . 1)
                (breakable . #t)
                (font-family . number)
                (font-relative-size . 1)
                (collapse-height . 1.0)
                (thickness . 1.6)
                (arch-height . 1.5)
-               (arch-angle . 25.0)
+               (arch-angle . 50.0)
                (arch-thick . 0.25)
                (glyph . bar-line)
                (arch-width . 1.5)
                (bracket-thick . 0.25)
-               (bracket-width . 0.4)
+               (bracket-width . 2.0)
                (font-family . braces)
                (font-point-size . 20)
                (Y-extent-callback . #f)