/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 1997--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ Copyright (C) 1997--2012 Han-Wen Nienhuys <hanwen@xs4all.nl>
LilyPond is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
SCM staff_color = staff->get_property ("color");
Real radius = Staff_symbol_referencer::staff_radius (me);
if (bar_line_color == staff_color && radius)
- result *= (1 - 0.5 * (Staff_symbol_referencer::line_thickness (me) / radius));
+ result *= (1 - 0.5 * (Staff_symbol_referencer::line_thickness (me) / radius));
}
return ly_interval2scm (result);
}
m = dashed_bar_line (me, extent, hair);
else if (str == "'")
m = tick_bar_line (me, extent.at (UP), rounded);
-
+ else if (str == "kievan")
+ {
+ me->set_property ("layer", scm_from_int (1));
+ m.add_stencil (Font_interface::get_default_font (me)->find_by_name ("scripts.barline.kievan"));
+ m = *unsmob_stencil (scm_call_1 (ly_lily_module_constant ("stencil-whiteout"), m.smobbed_copy ()));
+ }
return m;
}