From 34b09edda9458e5edb83599a90d976cd8c0cb9f4 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Wed, 4 Oct 2006 12:01:48 +0000
Subject: [PATCH] *** empty log message ***

---
 ChangeLog                      | 11 +++++++++++
 lily/dynamic-engraver.cc       |  3 ---
 lily/note-name-engraver.cc     |  2 +-
 lily/pitched-trill-engraver.cc |  9 +++++++--
 scm/define-grobs.scm           |  1 +
 scm/output-lib.scm             |  8 ++++++++
 6 files changed, 28 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 7a39b8d69d..b4cbfa60c6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -4,6 +4,17 @@
 
 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.
 
diff --git a/lily/dynamic-engraver.cc b/lily/dynamic-engraver.cc
index d8795f0bdc..daba771386 100644
--- a/lily/dynamic-engraver.cc
+++ b/lily/dynamic-engraver.cc
@@ -241,9 +241,6 @@ Dynamic_engraver::process_music ()
 						     ly_symbol2scm ("adjacent-hairpins"),
 						     finished_cresc_);
 		}
-	      cresc_->set_property ("grow-direction",
-				    scm_from_int ((start_type == "crescendo")
-						  ? BIGGER : SMALLER));
 	    }
 
 	  /*
diff --git a/lily/note-name-engraver.cc b/lily/note-name-engraver.cc
index 32253cb2bc..132bd17e29 100644
--- a/lily/note-name-engraver.cc
+++ b/lily/note-name-engraver.cc
@@ -67,7 +67,7 @@ Note_name_engraver::Note_name_engraver ()
 }
 
 ADD_TRANSLATOR (Note_name_engraver,
-		/* doc */ "",
+		/* doc */ "Print pitches as words.",
 		/* create */ "NoteName",
 		/* accept */ "note-event",
 		/* read */ "printOctaveNames",
diff --git a/lily/pitched-trill-engraver.cc b/lily/pitched-trill-engraver.cc
index 5044552a52..71913d2bb9 100644
--- a/lily/pitched-trill-engraver.cc
+++ b/lily/pitched-trill-engraver.cc
@@ -144,11 +144,16 @@ ADD_ACKNOWLEDGER (Pitched_trill_engraver, dots);
 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 */ "");
diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index 333c6a8e9e..97de2fd69f 100644
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -692,6 +692,7 @@
 	(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)
diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 90edde716a..93e61dd9d9 100644
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -416,3 +416,11 @@ centered, X==1 is at the right, X == -1 is at the left."
     
     (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
+      ))
-- 
2.39.5