Reimplement ChordRepetition facility.

lily/music-sequence.cc

 /*
   This file is part of LilyPond, the GNU music typesetter.
 
   Copyright (C) 1998--2012 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
   LilyPond is free software: you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation, either version 3 of the License, or
   (at your option) any later version.
 
@@ skipping 68 matching lines @@
 {
   Music *me = unsmob_music (m);
   return maximum_length (me->get_property ("elements")).smobbed_copy ();
 }
 
 MAKE_SCHEME_CALLBACK (Music_sequence, event_chord_length_callback, 1);
 SCM
 Music_sequence::event_chord_length_callback (SCM m)
 {
   Music *me = unsmob_music (m);
-  Duration *d = unsmob_duration (me->get_property ("chord-repeat"));
+  Duration *d = unsmob_duration (me->get_property ("duration"));
   // Preset duration is used in chord repetitions.
   if (d) {
     Moment mom = d->get_length ();
     return mom.smobbed_copy ();
   }
   return maximum_length (me->get_property ("elements")).smobbed_copy ();
 }
 
 MAKE_SCHEME_CALLBACK (Music_sequence, cumulative_length_callback, 1);
 SCM
@@ skipping 99 matching lines @@
 
 MAKE_SCHEME_CALLBACK (Music_sequence, event_chord_relative_callback, 2);
 SCM
 Music_sequence::event_chord_relative_callback (SCM music, SCM pitch)
 {
   Music *me = unsmob_music (music);
   Pitch p = *unsmob_pitch (pitch);
   return music_list_to_relative (me->get_property ("elements"),
                                  p, true).smobbed_copy ();
 }