From: fred Date: Wed, 27 Mar 2002 02:06:11 +0000 (+0000) Subject: lilypond-1.5.35 X-Git-Tag: release/1.5.59~295 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=fa891d8c97075d2de8ac88133eecb21f3ec5dd66;p=lilypond.git lilypond-1.5.35 --- diff --git a/Documentation/regression-test.tely b/Documentation/regression-test.tely index 208904fae8..100d39fc95 100644 --- a/Documentation/regression-test.tely +++ b/Documentation/regression-test.tely @@ -88,15 +88,17 @@ Accidentals are currently in a development stage. @section Chord names @lilypondfile[printfilename]{chord-names.ly} + @lilypondfile[printfilename]{chord-changes.ly} +@section Figured bass +@lilypondfile[printfilename]{figured-bass.ly} @section Grace notes Grace note do weird things with timing. Fragile. - @lilypondfile[printfilename]{grace.ly} @lilypondfile[printfilename]{grace-bar-line.ly} @@ -108,6 +110,7 @@ Grace note do weird things with timing. Fragile. @lilypondfile[printfilename]{grace-nest4.ly} @lilypondfile[printfilename]{grace-nest5.ly} + @lilypondfile[printfilename]{grace-nest1.ly} @lilypondfile[printfilename]{grace-start.ly} @@ -125,8 +128,11 @@ Grace note do weird things with timing. Fragile. @lilypondfile[printfilename]{beam-position.ly} + @lilypondfile[printfilename]{auto-beam-bar.ly} +@lilypondfile[printfilename]{beam-over-barline.ly} + @lilypondfile[printfilename]{beam-rest.ly} @lilypondfile[printfilename]{beam-length.ly} @@ -139,6 +145,7 @@ Grace note do weird things with timing. Fragile. @lilypondfile[printfilename]{triplets.ly} +@lilypondfile[printfilename]{beaming-ternary-metrum.ly} @section Slurs diff --git a/lily/music.cc b/lily/music.cc index b00c8519d6..f2939fb4f5 100644 --- a/lily/music.cc +++ b/lily/music.cc @@ -174,7 +174,7 @@ Music::internal_set_mus_property (SCM s, SCM v) { #ifndef NDEBUG if (internal_type_checking_global_b) - assert (type_check_assignment (s, v, ly_symbol2scm ("backend-type?"))); + assert (type_check_assignment (s, v, ly_symbol2scm ("music-type?"))); #endif diff --git a/lily/scm-option.cc b/lily/scm-option.cc index 2eac1482ac..e472f2878e 100644 --- a/lily/scm-option.cc +++ b/lily/scm-option.cc @@ -11,7 +11,7 @@ #include "string.hh" #include "lily-guile.hh" #include "scm-option.hh" - +#include "warn.hh" /* This interface to option setting is meant for setting options are @@ -74,7 +74,7 @@ possible options for SYMBOL are : ")<set_grob_property ("molecule-callback", SCM_BOOL_T); + arpeggios_[i]->set_grob_property ("molecule-callback", SCM_EOL); } typeset_grob (span_arpeggio_); diff --git a/lily/stem-engraver.cc b/lily/stem-engraver.cc index cdf1a6b5d4..a23d1430a8 100644 --- a/lily/stem-engraver.cc +++ b/lily/stem-engraver.cc @@ -137,13 +137,13 @@ Stem_engraver::stop_translation_timestep () if (gh_number_p (prop)) { Stem::set_beaming (stem_p_,gh_scm2int (prop),LEFT); - daddy_trans_l_->set_property ("stemLeftBeamCount", SCM_UNDEFINED); + daddy_trans_l_->unset_property (ly_symbol2scm ("stemLeftBeamCount")); } prop = get_property ("stemRightBeamCount"); if (gh_number_p (prop)) { Stem::set_beaming (stem_p_,gh_scm2int (prop), RIGHT); - daddy_trans_l_->set_property ("stemRightBeamCount", SCM_UNDEFINED); + daddy_trans_l_->unset_property (ly_symbol2scm ("stemRightBeamCount")); } diff --git a/lily/third-try.cc b/lily/third-try.cc index 2690c877c7..c91e3fd697 100644 --- a/lily/third-try.cc +++ b/lily/third-try.cc @@ -287,16 +287,20 @@ Third_spacing_spanner::set_implicit_neighbor_columns (Link_array cols) continue; // it->breakable || it->musical + + /* + sloppy with typnig left/right-neighbors should take list, but paper-column found instead. + */ SCM ln = cols[i] ->get_grob_property ("left-neighbors"); if (!gh_pair_p (ln) && i ) { - cols[i]->set_grob_property ("left-neighbors", cols[i-1]->self_scm()); + cols[i]->set_grob_property ("left-neighbors", gh_cons (cols[i-1]->self_scm(), SCM_EOL)); } SCM rn = cols[i] ->get_grob_property ("right-neighbors"); if (!gh_pair_p (rn) && i < cols.size () - 1) { - cols[i]->set_grob_property ("right-neighbors", cols[i + 1]->self_scm()); + cols[i]->set_grob_property ("right-neighbors", gh_cons (cols[i + 1]->self_scm(), SCM_EOL)); } } } diff --git a/lily/translator-group.cc b/lily/translator-group.cc index 48384af09f..fe46960c4e 100644 --- a/lily/translator-group.cc +++ b/lily/translator-group.cc @@ -306,7 +306,7 @@ Translator_group::internal_set_property (SCM sym, SCM val) { #ifndef NDEBUG if (internal_type_checking_global_b) - assert (type_check_assignment (sym, val, ly_symbol2scm ("backend-type?"))); + assert (type_check_assignment (sym, val, ly_symbol2scm ("translation-type?"))); #endif properties_dict ()->set (sym, val); diff --git a/scm/grob-property-description.scm b/scm/grob-property-description.scm index b64817cf61..280fba7f67 100644 --- a/scm/grob-property-description.scm +++ b/scm/grob-property-description.scm @@ -432,3 +432,7 @@ function of type (beam multiplicity dy staff-line-thickness) -> real. Default v (grob-property-description 'script-molecule pair? "index code for script.") (grob-property-description 'accidentals-grob ly-grob? "accidentals for this note.") + +(grob-property-description 'causes list? "list of cause objects.") +(grob-property-description 'tremolo-flags number? "") +(grob-property-description 'chord-tremolo boolean? "if set, this beam is a tremolo. TODO: use interface for this!")