]> git.donarmstrong.com Git - lilypond.git/blob - input/test/mensural-ligatures.ly
9a063b5c052a59b6aa4a9a2ec42d36047cde07a3
[lilypond.git] / input / test / mensural-ligatures.ly
1 \version "1.5.68"
2 \header {
3     title       = "mensural ligature test"
4     date        = "2002"
5 }
6
7 \include "paper26.ly"
8
9 % Note the horizontal alignment of the fermatas that obeys to the
10 % graphical width of the ligatures rather to the musical moment in time.
11 % This is intended behaviour.
12
13 voice = \notes \transpose c'' {
14   \property Score.timing = ##f
15   \property Score.defaultBarType = "empty"
16   \property Voice.NoteHead \set #'font-family = #'ancient
17   \property Voice.NoteHead \override #'style = #'mensural
18   g\longa c\breve a\breve f\breve d'\longa^\fermata
19   \bar "|"
20   \[
21     g\longa c\breve a\breve f\breve d'\longa^\fermata
22   \]
23   \bar "|"
24   e1 f1 a\breve g\longa^\fermata
25   \bar "|"
26   \[
27     e1 f1 a\breve g\longa^\fermata
28   \]
29   \bar "|"
30   e1 f1 a\breve g\longa^\fermata
31   \bar "||"
32 }
33
34 upperStaff = \context Staff = upperStaff <
35   \context MensuralVoice <
36     \voice
37   >
38 >
39
40 lowerStaff = \context Staff = lowerStaff <
41   \context TranscribedVoice <
42     \voice
43   >
44 >
45
46 \score {
47     \context ChoirStaff <
48         \upperStaff
49         \lowerStaff
50     >
51     \paper {
52         stafflinethickness = \staffspace / 5.0
53         \translator {
54             \VoiceContext
55             \name MensuralVoice
56             \alias Voice
57             \remove Ligature_bracket_engraver
58             \consists Mensural_ligature_engraver
59         }
60         \translator {
61             \VoiceContext
62             \name TranscribedVoice
63             \alias Voice
64             \remove Mensural_ligature_engraver
65             \consists Ligature_bracket_engraver
66         }
67         \translator {
68             \StaffContext
69             \accepts MensuralVoice
70             \accepts TranscribedVoice
71         }
72         \translator {
73             \HaraKiriStaffContext
74             \accepts MensuralVoice
75             \accepts TranscribedVoice
76         }
77     }
78 }