From 558bf3a101eae1fdd00e7519c50eb3d21abf8a9a Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Mon, 18 Apr 2005 12:47:17 +0000 Subject: [PATCH] * 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 (arrows): idem. * lily/line-spanner.cc (line_stencil): add arrows. --- lily/paper-book.cc | 26 +++++++++++++++++--------- 1 file changed, 17 insertions(+), 9 deletions(-) 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 (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 (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; -- 2.39.5