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) 1997--2015 Han-Wen Nienhuys <hanwen@xs4all.nl> | 4 Copyright (C) 1997--2015 Han-Wen Nienhuys <hanwen@xs4all.nl> |
5 | 5 |
6 Jan Nieuwenhuizen <janneke@gnu.org> | 6 Jan Nieuwenhuizen <janneke@gnu.org> |
7 | 7 |
8 LilyPond is free software: you can redistribute it and/or modify | 8 LilyPond is free software: you can redistribute it and/or modify |
9 it under the terms of the GNU General Public License as published by | 9 it under the terms of the GNU General Public License as published by |
10 the Free Software Foundation, either version 3 of the License, or | 10 the Free Software Foundation, either version 3 of the License, or |
(...skipping 103 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
114 Box box; | 114 Box box; |
115 box[X_AXIS] = w; | 115 box[X_AXIS] = w; |
116 box[Y_AXIS] = Interval (-th / 2, th / 2); | 116 box[Y_AXIS] = Interval (-th / 2, th / 2); |
117 | 117 |
118 return Stencil (box, at); | 118 return Stencil (box, at); |
119 } | 119 } |
120 | 120 |
121 Stencil | 121 Stencil |
122 Lookup::blank (Box b) | 122 Lookup::blank (Box b) |
123 { | 123 { |
124 return Stencil (b, scm_from_locale_string ("")); | 124 return Stencil (b, scm_string (SCM_EOL)); |
125 } | 125 } |
126 | 126 |
127 Stencil | 127 Stencil |
128 Lookup::circle (Real rad, Real thick, bool filled) | 128 Lookup::circle (Real rad, Real thick, bool filled) |
129 { | 129 { |
130 Box b (Interval (-rad, rad), Interval (-rad, rad)); | 130 Box b (Interval (-rad, rad), Interval (-rad, rad)); |
131 return Stencil (b, scm_list_4 (ly_symbol2scm ("circle"), | 131 return Stencil (b, scm_list_4 (ly_symbol2scm ("circle"), |
132 scm_from_double (rad), | 132 scm_from_double (rad), |
133 scm_from_double (thick), | 133 scm_from_double (thick), |
134 scm_from_bool (filled))); | 134 scm_from_bool (filled))); |
(...skipping 444 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
579 { | 579 { |
580 if (points[i - 1].is_sane () && points[i].is_sane ()) | 580 if (points[i - 1].is_sane () && points[i].is_sane ()) |
581 { | 581 { |
582 Stencil line | 582 Stencil line |
583 = Line_interface::make_line (thick, points[i - 1], points[i]); | 583 = Line_interface::make_line (thick, points[i - 1], points[i]); |
584 ret.add_stencil (line); | 584 ret.add_stencil (line); |
585 } | 585 } |
586 } | 586 } |
587 return ret; | 587 return ret; |
588 } | 588 } |
OLD | NEW |