From: hanwen <hanwen>
Date: Mon, 18 Apr 2005 12:47:17 +0000 (+0000)
Subject: * lily/text-spanner.cc: add bound-padding.
X-Git-Tag: release/2.5.23~127
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=3f6278339ea30b1396d9129275d8fb7dac3aabd9;p=lilypond.git

* lily/text-spanner.cc: add bound-padding.

* lily/paper-book.cc (systems): accept Paper_score
iso. Paper_system vector.

* lily/line-interface.cc (make_arrow): new function. Patch by
Jonatan Liljedahl <http://kymatica.com>
(arrows): idem.

* lily/line-spanner.cc (line_stencil): add arrows.
---

diff --git a/lily/paper-book.cc b/lily/paper-book.cc
index b2da7e16f4..152444b0c3 100644
--- a/lily/paper-book.cc
+++ b/lily/paper-book.cc
@@ -265,23 +265,31 @@ Paper_book::systems ()
 	  if (header_0_ == SCM_EOL)
 	    header_0_ = header;
 	}
-      else if (Paper_score *pscore
-	       = dynamic_cast<Paper_score *> (unsmob_music_output (scm_car (s))))
+      else if (Music_output *mop = unsmob_music_output (scm_car (s)))
+	
 	{
-	  add_score_title (header);
+	  if (Paper_score *pscore = dynamic_cast<Paper_score *> (mop))
+	    {
+	      add_score_title (header);
 	  
-	  header = SCM_EOL;
-
+	      header = SCM_EOL;
 	  
-	  SCM system_list = scm_vector_to_list (pscore->get_paper_systems ());
-	  system_list = scm_reverse (system_list);
-	  systems_ = scm_append (scm_list_2 (system_list, systems_));
+	      SCM system_list = scm_vector_to_list (pscore->get_paper_systems ());
+	      system_list = scm_reverse (system_list);
+	      systems_ = scm_append (scm_list_2 (system_list, systems_));
+	    }
+	  else
+	    {
+	      /*
+		Ignore MIDI
+	      */
+	    }
 	}
       else if (scm_is_vector (scm_car (s)))
 	{
 	  /*
 	    UGH. code dup.  
-	   */
+	  */
 	  add_score_title (header);
 	  header = SCM_EOL;