3 title = "ancient font test"
12 \property Score.timing = ##f
13 % \property Score.forceAccidental = ##t
14 \property Staff.TimeSignature \set #'font-family = #'ancient
15 % \property Staff.TimeSignature \override #'style = #'mensural
18 upperVoice = \context Staff = upperVoice <
21 % this is broken until further notice -- see refman
22 % \property Staff.StaffSymbol \override #'line-count = #4
23 \context Staff \outputproperty #(make-type-checker 'staff-symbol-interface)
26 \notes \transpose c' {
27 \property Staff.Clef \set #'font-family = #'ancient
28 \property Staff.KeySignature \set #'font-family = #'ancient
29 \property Staff.KeySignature \override #'style = #'vaticana
30 \property Staff.Accidentals \set #'font-family = #'ancient
31 \property Staff.Accidentals \override #'style = #'vaticana
32 \property Staff.Custos \set #'font-family = #'ancient
33 \property Staff.Custos \override #'style = #'vaticana
34 \property Staff.Custos \override #'neutral-position = #4
35 \property Staff.Custos \override #'neutral-direction = #-1
36 \property Staff.Custos \override #'adjust-if-on-staffline = ##t
37 \property Voice.NoteHead \set #'font-family = #'ancient
38 \property Voice.NoteHead \override #'style = #'vaticana_punctum
39 \property Voice.Porrectus \override #'style = #'vaticana
40 \property Voice.Porrectus \override #'solid = ##t
41 \property Voice.Porrectus \override #'add-stem = ##t
42 \property Voice.Porrectus \override #'direction = #-1
43 \property Voice.Porrectus \override #'thickness = #0.5
48 % \property Staff.clefGlyph = #"clefs-vaticana_do"
49 % \property Staff.clefPosition = #1
50 % \property Staff.clefOctavation = #0
53 \property Voice.NoteHead \override #'style = #'vaticana_inclinatum
55 \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
56 \property Voice.NoteHead \override #'style = #'vaticana_virga
57 ces' b! des'! \~ ges! \~ fes!
60 \property Voice.NoteHead \override #'style = #'vaticana_quilisma
62 \property Voice.NoteHead \override #'style = #'vaticana_rvirga
64 \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
65 \property Voice.NoteHead \override #'style = #'vaticana_rvirga
67 \property Voice.NoteHead \override #'style = #'vaticana_lpes
69 \property Voice.NoteHead \override #'style = #'vaticana_upes
71 \property Voice.NoteHead \override #'style = #'vaticana_vupes
73 \property Voice.NoteHead \override #'style = #'vaticana_plica
74 \property Staff.BarLine \override #'bar-size = #2.0 \bar "|"
76 \property Voice.NoteHead \override #'style = #'vaticana_epiphonus
78 \property Voice.NoteHead \override #'style = #'vaticana_cephalicus
81 \property Staff.KeySignature \override #'style = #'medicaea
82 \property Staff.Accidentals \override #'style = #'medicaea
83 \property Staff.Custos \override #'style = #'medicaea
84 \property Voice.NoteHead \override #'style = #'medicaea_punctum
87 \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
90 \property Voice.NoteHead \override #'style = #'medicaea_subbipunctum
92 \property Voice.NoteHead \override #'style = #'medicaea_virga
94 \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
97 \property Voice.NoteHead \override #'style = #'medicaea_rvirga
100 \property Staff.KeySignature \override #'style = #'hufnagel
101 \property Staff.Accidentals \override #'style = #'hufnagel
102 \property Staff.Custos \override #'style = #'hufnagel
103 \property Voice.NoteHead \override #'style = #'hufnagel_punctum
106 \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
109 \property Voice.NoteHead \override #'style = #'hufnagel_lpes
111 \property Voice.NoteHead \override #'style = #'hufnagel_virga
113 \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
115 \clef "hufnagel_do_fa"
116 \property Voice.NoteHead \override #'style = #'hufnagel_punctum
117 es! des! ces! des! es! fes!
122 lowerVoice = \context Staff = lowerNotes <
125 % this is broken until further notice -- see refman
126 % \property Staff.StaffSymbol \override #'line-count = #5
127 \context Staff \outputproperty #(make-type-checker 'staff-symbol-interface)
130 \notes \transpose c' {
131 \property Voice.noAutoBeaming = ##t
132 \property Staff.Clef \set #'font-family = #'ancient
133 \property Staff.KeySignature \set #'font-family = #'ancient
134 \property Staff.KeySignature \override #'style = #'mensural
135 \property Staff.Accidentals \set #'font-family = #'ancient
136 \property Staff.Accidentals \override #'style = #'mensural
137 \property Staff.Custos \set #'font-family = #'ancient
138 \property Staff.Custos \override #'style = #'mensural
139 \property Staff.Custos \override #'neutral-position = #3
140 \property Staff.Custos \override #'neutral-direction = #-1
141 \property Staff.Custos \override #'adjust-if-on-staffline = ##t
142 \property Voice.NoteHead \set #'font-family = #'ancient
143 \property Voice.NoteHead \override #'style = #'neo_mensural
144 \property Voice.Stem \set #'font-family = #'ancient % ancient flags
145 \property Voice.Rest \set #'font-family = #'music
146 \property Voice.Rest \override #'style = #'neo_mensural
147 \property Voice.Porrectus \override #'style = #'mensural
148 \property Voice.Porrectus \override #'solid = ##f
149 \property Voice.Porrectus \override #'add-stem = ##t
150 \property Voice.Porrectus \override #'stem-direction = #1
151 \property Voice.Porrectus \override #'thickness = #0.7
152 % \property Voice.Porrectus \override #'auto-properties = ##t
153 % \property Voice.Porrectus \override #'width = #3.0
158 % The porrectus syntax is definitely subject to change. For
159 % proper use, it may eventually change into something like this:
161 % \startLigature e \~ c \endLigature
163 % The reason is that there needs to be some enclosing instance
164 % for correct handling of line breaking, alignment with
165 % adjacent note heads, and placement of accidentals.
167 \clef "neo_mensural_c2"
168 cis' e' \~ d' gis' \~ e'
169 \property Staff.forceClef = ##t
170 \clef "neo_mensural_c2"
175 cis \~ fis ces1 % \bar "|"
179 \property Staff.forceClef = ##t
183 r4 r8 r16 r16 \bar "|"
185 \property Voice.NoteHead \override #'style = #'mensural
186 \property Voice.Stem \override #'style = #'mensural
187 \property Voice.Stem \override #'thickness = #1.0
188 \property Voice.Rest \set #'font-family = #'ancient
189 \property Voice.Rest \override #'style = #'mensural
191 c8 b, c16 b, c32 b, c64 b, c b,
192 d8 e d16 e d32 e d64 e d e
194 \property Staff.forceClef = ##t
196 r\breve r1 % \bar "|"
199 % FIXME: must set Voice.Stem style to #'neo_mensural to avoid
200 % segmentation fault on r8/r16/r32. (Strange: what has
201 % Voice.Stem style to do with mensural rests?)
202 \property Voice.Stem \override #'style = #'neo_mensural
204 \property Voice.Stem \override #'style = #'mensural
206 \property Staff.forceClef = ##t
211 bes'! \~ as'! \~ cis''!
212 bes'! \~ fis'! as'! \~ ges'!
213 \property Staff.forceClef = ##t
217 \property Staff.forceClef = ##t
222 bes'! as'! gis'! fis'!
223 \property Staff.forceClef = ##t
225 es'! des'! cis'!1 \bar "||"
230 \context ChoirStaff <
238 stafflinethickness = \staffspace / 5.0
242 \consists Custos_engraver
243 % Custos \override #'style = #'mensural
244 \remove Time_signature_engraver
245 % StaffSymbol \override #'thickness = #2.0
246 % StaffSymbol \override #'line-count = #4
250 % \remove System_start_delimiter_engraver
251 % SystemStartDelimiter \override #'glyph = #'brace
255 \remove System_start_delimiter_engraver
256 % SystemStartDelimiter \override #'glyph = #'empty