LEFT | RIGHT |
(no file at all) | |
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 438 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
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 Grob *me = unsmob_grob (smob); | 458 Grob *me = unsmob_grob (smob); |
459 | 459 return internal_calc_pure_relevant_grobs (me, "elements"); |
460 extract_grob_set (me, "elements", elts); | 460 } |
| 461 |
| 462 SCM |
| 463 Axis_group_interface::internal_calc_pure_relevant_grobs (Grob *me, string grob_s
et_name) |
| 464 { |
| 465 extract_grob_set (me, grob_set_name.c_str (), elts); |
461 | 466 |
462 vector<Grob *> relevant_grobs; | 467 vector<Grob *> relevant_grobs; |
463 SCM pure_relevant_p = ly_lily_module_constant ("pure-relevant?"); | 468 SCM pure_relevant_p = ly_lily_module_constant ("pure-relevant?"); |
464 | 469 |
465 for (vsize i = 0; i < elts.size (); i++) | 470 for (vsize i = 0; i < elts.size (); i++) |
466 { | 471 { |
467 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))) |
468 relevant_grobs.push_back (elts[i]); | 473 relevant_grobs.push_back (elts[i]); |
469 | 474 |
470 if (Item *it = dynamic_cast<Item *> (elts[i])) | 475 if (Item *it = dynamic_cast<Item *> (elts[i])) |
(...skipping 386 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
857 "pure-relevant-spanners " | 862 "pure-relevant-spanners " |
858 "pure-Y-common " | 863 "pure-Y-common " |
859 "staff-affinity " | 864 "staff-affinity " |
860 "staff-grouper " | 865 "staff-grouper " |
861 "staff-staff-spacing " | 866 "staff-staff-spacing " |
862 "system-Y-offset " | 867 "system-Y-offset " |
863 "vertical-skylines " | 868 "vertical-skylines " |
864 "X-common " | 869 "X-common " |
865 "Y-common " | 870 "Y-common " |
866 ); | 871 ); |
LEFT | RIGHT |