int *current_set, int min_set, int max_set,
Grob *primitive)
{
int *current_set, int min_set, int max_set,
Grob *primitive)
{
fix_prefix ("pes_or_flexa", LINEA, current_set, min_set, max_set, primitive);
}
fix_prefix ("pes_or_flexa", LINEA, current_set, min_set, max_set, primitive);
}
- = (VIRGA *to_boolean (primitive->get_property ("virga"))) |
- (STROPHA *to_boolean (primitive->get_property ("stropha"))) |
- (INCLINATUM *to_boolean (primitive->get_property ("inclinatum"))) |
- (AUCTUM *to_boolean (primitive->get_property ("auctum"))) |
- (DESCENDENS *to_boolean (primitive->get_property ("descendens"))) |
- (ASCENDENS *to_boolean (primitive->get_property ("ascendens"))) |
- (ORISCUS *to_boolean (primitive->get_property ("oriscus"))) |
- (QUILISMA *to_boolean (primitive->get_property ("quilisma"))) |
- (DEMINUTUM *to_boolean (primitive->get_property ("deminutum"))) |
- (CAVUM *to_boolean (primitive->get_property ("cavum"))) |
- (LINEA *to_boolean (primitive->get_property ("linea"))) |
- (PES_OR_FLEXA *to_boolean (primitive->get_property ("pes-or-flexa")));
+ = (VIRGA *to_boolean (primitive->get_property ("virga")))
+ | (STROPHA *to_boolean (primitive->get_property ("stropha")))
+ | (INCLINATUM *to_boolean (primitive->get_property ("inclinatum")))
+ | (AUCTUM *to_boolean (primitive->get_property ("auctum")))
+ | (DESCENDENS *to_boolean (primitive->get_property ("descendens")))
+ | (ASCENDENS *to_boolean (primitive->get_property ("ascendens")))
+ | (ORISCUS *to_boolean (primitive->get_property ("oriscus")))
+ | (QUILISMA *to_boolean (primitive->get_property ("quilisma")))
+ | (DEMINUTUM *to_boolean (primitive->get_property ("deminutum")))
+ | (CAVUM *to_boolean (primitive->get_property ("cavum")))
+ | (LINEA *to_boolean (primitive->get_property ("linea")))
+ | (PES_OR_FLEXA *to_boolean (primitive->get_property ("pes-or-flexa")));
- if (!i) // ligature may not start with 2nd head of pes or flexa
- {
- primitive->warning ("may not apply `\\~' on first head of "
- "ligature; ignoring `\\~'");
- }
- else if (pitch > prev_pitch) // pes
- {
- prev_context_info |= PES_LOWER;
- context_info |= PES_UPPER;
- }
- else if (pitch < prev_pitch) // flexa
- {
- prev_context_info |= FLEXA_LEFT;
- context_info |= FLEXA_RIGHT;
- }
- else // (pitch == prev_pitch)
- {
- primitive->warning ("may not apply `\\~' on heads with "
- "identical pitch; ignoring `\\~'");
- }
- if (prev_prefix_set & DEMINUTUM)
- context_info |= AFTER_DEMINUTUM;
+ if (!i) // ligature may not start with 2nd head of pes or flexa
+ primitive->warning (_ ("cannot apply `\\~' on first head of ligature"));
+ else if (pitch > prev_pitch) // pes
+ {
+ prev_context_info |= PES_LOWER;
+ context_info |= PES_UPPER;
+ }
+ else if (pitch < prev_pitch) // flexa
+ {
+ prev_context_info |= FLEXA_LEFT;
+ context_info |= FLEXA_RIGHT;
+ }
+ else // (pitch == prev_pitch)
+ primitive->warning (_ ("cannot apply `\\~' on heads with identical pitch"));
prev_primitive = primitive;
prev_prefix_set = prefix_set;
prev_context_info = context_info;
prev_primitive = primitive;
prev_prefix_set = prefix_set;
prev_context_info = context_info;
- scm_int2num (prev_context_info));
-}
-
-void
-Gregorian_ligature_engraver::transform_heads (Spanner *, Array<Grob_info>)
-{
- programming_error ("Gregorian_ligature_engraver::transform_heads (): "
- "this is an abstract method that should not be called, "
- "but overridden by a subclass");
+ scm_from_int (prev_context_info));
-ADD_TRANSLATOR (Gregorian_ligature_engraver,
- /* descr */ "This is an abstract class. Subclasses such as Vaticana_ligature_engraver handle ligatures by glueing special ligature heads together.",
- /* creats*/ "",
- /* accepts */ "ligature-event",
- /* acks */ "note-head-interface rest-interface",
- /* reads */ "",
- /* write */ "");
+// no ADD_ACKNOWLEDGER / ADD_ACKNOWLEDGER / ADD_TRANSLATOR macro calls
+// since this class is abstract