OLD | NEW |
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) 2012 Mike Solomon <mike@mikesolomon.org> | 4 Copyright (C) 2012 Mike Solomon <mike@mikesolomon.org> |
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 926 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
937 } | 937 } |
938 else if (scm_is_eq (scm_car (expr), ly_symbol2scm ("delay-stencil-evaluation")
)) | 938 else if (scm_is_eq (scm_car (expr), ly_symbol2scm ("delay-stencil-evaluation")
)) |
939 // should not use the place-holder text, but no need for the warning below | 939 // should not use the place-holder text, but no need for the warning below |
940 return vector<Transform_matrix_and_expression> (); | 940 return vector<Transform_matrix_and_expression> (); |
941 else if (scm_is_eq (scm_car (expr), ly_symbol2scm ("grob-cause"))) | 941 else if (scm_is_eq (scm_car (expr), ly_symbol2scm ("grob-cause"))) |
942 return stencil_traverser (trans, scm_caddr (expr)); | 942 return stencil_traverser (trans, scm_caddr (expr)); |
943 else if (scm_is_eq (scm_car (expr), ly_symbol2scm ("color"))) | 943 else if (scm_is_eq (scm_car (expr), ly_symbol2scm ("color"))) |
944 return stencil_traverser (trans, scm_caddr (expr)); | 944 return stencil_traverser (trans, scm_caddr (expr)); |
945 else if (scm_is_eq (scm_car (expr), ly_symbol2scm ("transparent-stencil"))) | 945 else if (scm_is_eq (scm_car (expr), ly_symbol2scm ("transparent-stencil"))) |
946 return stencil_traverser (trans, scm_cadr (expr)); | 946 return stencil_traverser (trans, scm_cadr (expr)); |
947 else if (scm_is_eq (scm_car (expr), ly_symbol2scm ("id"))) | 947 else if (scm_is_eq (scm_car (expr), ly_symbol2scm ("output-attributes"))) |
948 return stencil_traverser (trans, scm_caddr (expr)); | 948 return stencil_traverser (trans, scm_caddr (expr)); |
949 else | 949 else |
950 { | 950 { |
951 vector<Transform_matrix_and_expression> out; | 951 vector<Transform_matrix_and_expression> out; |
952 out.push_back (Transform_matrix_and_expression (trans, expr)); | 952 out.push_back (Transform_matrix_and_expression (trans, expr)); |
953 return out; | 953 return out; |
954 } | 954 } |
955 warning ("Stencil expression not supported by the veritcal skylines."); | 955 warning ("Stencil expression not supported by the veritcal skylines."); |
956 return vector<Transform_matrix_and_expression> (); | 956 return vector<Transform_matrix_and_expression> (); |
957 } | 957 } |
(...skipping 194 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1152 | 1152 |
1153 MAKE_SCHEME_CALLBACK (Grob, pure_horizontal_skylines_from_element_stencils, 3); | 1153 MAKE_SCHEME_CALLBACK (Grob, pure_horizontal_skylines_from_element_stencils, 3); |
1154 SCM | 1154 SCM |
1155 Grob::pure_horizontal_skylines_from_element_stencils (SCM smob, SCM beg_scm, SCM
end_scm) | 1155 Grob::pure_horizontal_skylines_from_element_stencils (SCM smob, SCM beg_scm, SCM
end_scm) |
1156 { | 1156 { |
1157 Grob *me = unsmob<Grob> (smob); | 1157 Grob *me = unsmob<Grob> (smob); |
1158 int beg = robust_scm2int (beg_scm, 0); | 1158 int beg = robust_scm2int (beg_scm, 0); |
1159 int end = robust_scm2int (end_scm, 0); | 1159 int end = robust_scm2int (end_scm, 0); |
1160 return internal_skylines_from_element_stencils (me, Y_AXIS, true, beg, end); | 1160 return internal_skylines_from_element_stencils (me, Y_AXIS, true, beg, end); |
1161 } | 1161 } |
OLD | NEW |