2006-10-04 Han-Wen Nienhuys <hanwen@lilypond.org>
+ * lily/note-name-engraver.cc: doc engraver.
+
+ * scm/output-lib.scm (hairpin::calc-grow-direction): new function.
+
+ * lily/dynamic-engraver.cc (process_music): don't set grow-direction.
+
+ * scm/define-grobs.scm (all-grob-descriptions): calc duration-log
+ by callback.
+
+ * lily/stem-engraver.cc (make_stem): don't set duration-log
+
* scripts/lilypond-book.py (Lilypond_file_snippet.my_system):
write snippet-names binary.
ly_symbol2scm ("adjacent-hairpins"),
finished_cresc_);
}
- cresc_->set_property ("grow-direction",
- scm_from_int ((start_type == "crescendo")
- ? BIGGER : SMALLER));
}
/*
}
ADD_TRANSLATOR (Note_name_engraver,
- /* doc */ "",
+ /* doc */ "Print pitches as words.",
/* create */ "NoteName",
/* accept */ "note-event",
/* read */ "printOctaveNames",
ADD_ACKNOWLEDGER (Pitched_trill_engraver, text_spanner);
ADD_TRANSLATOR (Pitched_trill_engraver,
- /* doc */ "Print the bracketed notehead after a notehead with trill.",
+ /* doc */
+ "Print the bracketed notehead after a notehead with trill.",
+
/* create */
"TrillPitchHead "
"TrillPitchAccidental "
- "TrillPitchGroup",
+ "TrillPitchGroup ",
+
/* accept */ "",
+
/* read */ "",
+
/* write */ "");
(stencil . ,ly:hairpin::print)
(springs-and-rods . ,ly:spanner::set-spacing-rods)
(after-line-breaking . ,ly:hairpin::after-line-breaking)
+ (grow-direction . ,hairpin::calc-grow-direction)
(circled-tip . #f)
(thickness . 1.0)
(height . 0.6666)
(number->string digit 10)
))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; dynamics
+(define-public (hairpin::calc-grow-direction grob)
+ (if (eq? (ly:event-property (event-cause grob) 'class) 'decrescendo-event)
+ START
+ STOP
+ ))