blob: a8264b0ef67d4582570ee69fd5abe4f6b37f454f (
about) (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
/*
rest.cc -- implement Rest
source file of the GNU LilyPond music typesetter
(c) 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
#include "molecule.hh"
#include "paper-def.hh"
#include "lookup.hh"
#include "rest.hh"
#include "dots.hh"
#include "paper-score.hh"
#include "staff-symbol-referencer.hh"
// -> offset callback
MAKE_SCHEME_SCORE_ELEMENT_CALLBACK(Rest,after_line_breaking);
SCM
Rest::after_line_breaking (SCM smob)
{
Score_element *me = unsmob_element (smob);
int bt = gh_scm2int (me->get_elt_property ("duration-log"));
if (bt == 0)
{
Staff_symbol_referencer_interface si (me);
me->translate_axis (si.staff_space() , Y_AXIS);
}
Score_element * d = unsmob_element (me->get_elt_pointer ("dot"));
if (d && bt > 4) // UGH.
{
d->set_elt_property ("staff-position",
gh_int2scm ((bt == 7) ? 4 : 3));
}
return SCM_UNDEFINED;
}
MAKE_SCHEME_SCORE_ELEMENT_CALLBACK(Rest,brew_molecule)
SCM
Rest::brew_molecule (SCM smob)
{
Score_element* sc = unsmob_element (smob);
bool ledger_b =false;
SCM balltype = sc->get_elt_property ("duration-log");
if (balltype == gh_int2scm (0) || balltype == gh_int2scm (1))
{
Staff_symbol_referencer_interface si(sc);
ledger_b = abs(si.position_f () - (2* gh_scm2int (balltype) - 1))
> si.line_count ();
}
String style;
SCM style_sym =sc->get_elt_property ("style");
if (gh_scm2int (balltype) >= 2 && gh_string_p (style_sym))
{
style = ly_scm2string (style_sym);
}
String idx = ("rests-") + to_str (gh_scm2int (balltype))
+ (ledger_b ? "o" : "") + style;
return sc-> lookup_l ()->afm_find (idx).create_scheme();
}
|
