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) 2000--2011 Han-Wen Nienhuys <hanwen@xs4all.nl> | 4 Copyright (C) 2000--2011 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 437 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
448 if (elts[i]->common_refpoint (staff, parent_a) == staff) | 448 if (elts[i]->common_refpoint (staff, parent_a) == staff) |
449 new_elts.push_back (elts[i]); | 449 new_elts.push_back (elts[i]); |
450 | 450 |
451 return relative_group_extent (new_elts, refp, ext_a); | 451 return relative_group_extent (new_elts, refp, ext_a); |
452 } | 452 } |
453 | 453 |
454 MAKE_SCHEME_CALLBACK (Axis_group_interface, calc_pure_relevant_grobs, 1); | 454 MAKE_SCHEME_CALLBACK (Axis_group_interface, calc_pure_relevant_grobs, 1); |
455 SCM | 455 SCM |
456 Axis_group_interface::calc_pure_relevant_grobs (SCM smob) | 456 Axis_group_interface::calc_pure_relevant_grobs (SCM smob) |
457 { | 457 { |
458 return internal_calc_pure_relevant_grobs (smob, "elements"); | |
459 } | |
460 | |
461 SCM | |
462 Axis_group_interface::internal_calc_pure_relevant_grobs (SCM smob, string grob_s
et_name) | |
463 { | |
464 Grob *me = unsmob_grob (smob); | 458 Grob *me = unsmob_grob (smob); |
465 | 459 return internal_calc_pure_relevant_grobs (me, "elements"); |
| 460 } |
| 461 |
| 462 SCM |
| 463 Axis_group_interface::internal_calc_pure_relevant_grobs (Grob *me, string grob_s
et_name) |
| 464 { |
466 extract_grob_set (me, grob_set_name.c_str (), elts); | 465 extract_grob_set (me, grob_set_name.c_str (), elts); |
467 | 466 |
468 vector<Grob *> relevant_grobs; | 467 vector<Grob *> relevant_grobs; |
469 SCM pure_relevant_p = ly_lily_module_constant ("pure-relevant?"); | 468 SCM pure_relevant_p = ly_lily_module_constant ("pure-relevant?"); |
470 | 469 |
471 for (vsize i = 0; i < elts.size (); i++) | 470 for (vsize i = 0; i < elts.size (); i++) |
472 { | 471 { |
473 if (to_boolean (scm_apply_1 (pure_relevant_p, elts[i]->self_scm (), SCM_EO
L))) | 472 if (to_boolean (scm_apply_1 (pure_relevant_p, elts[i]->self_scm (), SCM_EO
L))) |
474 relevant_grobs.push_back (elts[i]); | 473 relevant_grobs.push_back (elts[i]); |
475 | 474 |
(...skipping 387 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
863 "pure-relevant-spanners " | 862 "pure-relevant-spanners " |
864 "pure-Y-common " | 863 "pure-Y-common " |
865 "staff-affinity " | 864 "staff-affinity " |
866 "staff-grouper " | 865 "staff-grouper " |
867 "staff-staff-spacing " | 866 "staff-staff-spacing " |
868 "system-Y-offset " | 867 "system-Y-offset " |
869 "vertical-skylines " | 868 "vertical-skylines " |
870 "X-common " | 869 "X-common " |
871 "Y-common " | 870 "Y-common " |
872 ); | 871 ); |
LEFT | RIGHT |