* 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 b2da7e16f48d12ac91893809f3f7ad6893964070..152444b0c374c88f4905b14a7cda83a020d9f0b4 100644 (file)
--- 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;