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) 2002--2011 Juergen Reuter <reuter@ipd.uka.de>, | 4 Copyright (C) 2002--2011 Juergen Reuter <reuter@ipd.uka.de>, |
5 Pal Benko <benkop@freestart.hu> | 5 Pal Benko <benkop@freestart.hu> |
6 | 6 |
7 LilyPond is free software: you can redistribute it and/or modify | 7 LilyPond is free software: you can redistribute it and/or modify |
8 it under the terms of the GNU General Public License as published by | 8 it under the terms of the GNU General Public License as published by |
9 the Free Software Foundation, either version 3 of the License, or | 9 the Free Software Foundation, either version 3 of the License, or |
10 (at your option) any later version. | 10 (at your option) any later version. |
(...skipping 321 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
332 * these properties via the concrete Ligature grob (like | 332 * these properties via the concrete Ligature grob (like |
333 * MensuralLigature) and then copy these properties as necessary to | 333 * MensuralLigature) and then copy these properties as necessary to |
334 * each of the NoteHead grobs. This is what | 334 * each of the NoteHead grobs. This is what |
335 * propagate_properties () does. | 335 * propagate_properties () does. |
336 */ | 336 */ |
337 void | 337 void |
338 Mensural_ligature_engraver::propagate_properties (Spanner *ligature, | 338 Mensural_ligature_engraver::propagate_properties (Spanner *ligature, |
339 vector<Grob_info> primitives) | 339 vector<Grob_info> primitives) |
340 { | 340 { |
341 Real thickness | 341 Real thickness |
342 = robust_scm2double (ligature->get_property ("thickness"), 1.4); | 342 = robust_scm2double (ligature->get_property ("thickness"), 1.3); |
343 thickness | 343 thickness |
344 *= ligature->layout ()->get_dimension (ly_symbol2scm ("line-thickness")); | 344 *= ligature->layout ()->get_dimension (ly_symbol2scm ("line-thickness")); |
345 | 345 |
346 Real head_width | 346 Real head_width |
347 = Font_interface::get_default_font (ligature)-> | 347 = Font_interface::get_default_font (ligature)-> |
348 find_by_name ("noteheads.sM1mensural").extent (X_AXIS).length (); | 348 find_by_name ("noteheads.sM1mensural").extent (X_AXIS).length (); |
349 Real maxima_head_width | 349 Real maxima_head_width |
350 = Font_interface::get_default_font (ligature)-> | 350 = Font_interface::get_default_font (ligature)-> |
351 find_by_name ("noteheads.sM3ligmensural").extent (X_AXIS).length (); | 351 find_by_name ("noteheads.sM3ligmensural").extent (X_AXIS).length (); |
352 | 352 |
(...skipping 130 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
483 | 483 |
484 /* create */ | 484 /* create */ |
485 "MensuralLigature ", | 485 "MensuralLigature ", |
486 | 486 |
487 /* read */ | 487 /* read */ |
488 "", | 488 "", |
489 | 489 |
490 /* write */ | 490 /* write */ |
491 "" | 491 "" |
492 ); | 492 ); |
LEFT | RIGHT |