- 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)