LEFT | RIGHT |
1 /* | 1 /* |
2 This file is part of LilyPond, the GNU music typesetter. | 2 This file is part of LilyPond, the GNU music typesetter. |
3 | 3 |
4 Copyright (C) 1996--2012 Han-Wen Nienhuys <hanwen@xs4all.nl> | 4 Copyright (C) 1996--2012 Han-Wen Nienhuys <hanwen@xs4all.nl> |
5 | 5 |
6 LilyPond is free software: you can redistribute it and/or modify | 6 LilyPond is free software: you can redistribute it and/or modify |
7 it under the terms of the GNU General Public License as published by | 7 it under the terms of the GNU General Public License as published by |
8 the Free Software Foundation, either version 3 of the License, or | 8 the Free Software Foundation, either version 3 of the License, or |
9 (at your option) any later version. | 9 (at your option) any later version. |
10 | 10 |
(...skipping 398 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
409 SCM | 409 SCM |
410 System::vertical_skyline_elements (SCM smob) | 410 System::vertical_skyline_elements (SCM smob) |
411 { | 411 { |
412 Grob *me_grob = unsmob_grob (smob); | 412 Grob *me_grob = unsmob_grob (smob); |
413 vector<Grob *> vertical_skyline_grobs; | 413 vector<Grob *> vertical_skyline_grobs; |
414 extract_grob_set (me_grob, "elements", my_elts); | 414 extract_grob_set (me_grob, "elements", my_elts); |
415 for (vsize i = 0; i < my_elts.size (); i++) | 415 for (vsize i = 0; i < my_elts.size (); i++) |
416 if (System_start_delimiter::has_interface (my_elts[i])) | 416 if (System_start_delimiter::has_interface (my_elts[i])) |
417 vertical_skyline_grobs.push_back (my_elts[i]); | 417 vertical_skyline_grobs.push_back (my_elts[i]); |
418 | 418 |
419 | |
420 System *me = dynamic_cast<System *> (me_grob); | 419 System *me = dynamic_cast<System *> (me_grob); |
421 Grob *align = unsmob_grob (me->get_object ("vertical-alignment")); | 420 Grob *align = unsmob_grob (me->get_object ("vertical-alignment")); |
422 if (!align) | 421 if (!align) |
423 { | 422 { |
424 SCM grobs_scm = Grob_array::make_array (); | 423 SCM grobs_scm = Grob_array::make_array (); |
425 unsmob_grob_array (grobs_scm)->set_array (vertical_skyline_grobs); | 424 unsmob_grob_array (grobs_scm)->set_array (vertical_skyline_grobs); |
426 return grobs_scm; | 425 return grobs_scm; |
427 } | 426 } |
428 | 427 |
429 extract_grob_set (align, "elements", elts); | 428 extract_grob_set (align, "elements", elts); |
430 | 429 |
431 for (vsize i = 0; i < elts.size (); i++) | 430 for (vsize i = 0; i < elts.size (); i++) |
432 if (Hara_kiri_group_spanner::has_interface (elts[i])) | 431 if (Hara_kiri_group_spanner::has_interface (elts[i])) |
433 vertical_skyline_grobs.push_back (elts[i]); | 432 vertical_skyline_grobs.push_back (elts[i]); |
434 | 433 |
435 SCM grobs_scm = Grob_array::make_array (); | 434 SCM grobs_scm = Grob_array::make_array (); |
436 unsmob_grob_array (grobs_scm)->set_array (vertical_skyline_grobs); | 435 unsmob_grob_array (grobs_scm)->set_array (vertical_skyline_grobs); |
(...skipping 618 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1055 "footnote-stencil " | 1054 "footnote-stencil " |
1056 "footnotes-before-line-breaking " | 1055 "footnotes-before-line-breaking " |
1057 "footnotes-after-line-breaking " | 1056 "footnotes-after-line-breaking " |
1058 "in-note-direction " | 1057 "in-note-direction " |
1059 "in-note-padding " | 1058 "in-note-padding " |
1060 "in-note-stencil " | 1059 "in-note-stencil " |
1061 "labels " | 1060 "labels " |
1062 "pure-Y-extent " | 1061 "pure-Y-extent " |
1063 "vertical-alignment " | 1062 "vertical-alignment " |
1064 ); | 1063 ); |
LEFT | RIGHT |