← Back to branch summary

~ubuntu-branches/ubuntu/precise/lilypond/precise

« back to all changes in this revision

Viewing changes to input/test/ancient-font.ly

  • Committer: Bazaar Package Importer
  • Author(s): Thomas Bushnell, BSG
  • Date: 2006-12-19 10:18:12 UTC
  • mfrom: (3.1.4 feisty)
  • Revision ID: james.westby@ubuntu.com-20061219101812-7awtjkp0i393wxty
Tags: 2.8.7-3
http://bugs.debian.org/400550
scripts/midi2ly.py: When setting DATADIR, find Lilypond python files
in the @TOPLEVEL_VERSION@ directory, not 'current'.  Patch thanks to
Chris Lamb (chris@chris-lamb.co.uk).  (Closes: #400550)

Show diffs side-by-side

added added

removed removed

Lines of Context:
input/test/ancient-font.ly
1
 
\version "2.2.0"
 
1
\version "2.7.39"
2
2
% TODO: split ancient-font into seperate files; possibly in
3
3
% different locations.
4
4
\header {
9
9
}
10
10
 
11
11
 
12
 
upperStaff = \context GregorianStaff = upperStaff <<
 
12
upperStaff = \new GregorianStaff =  "upperStaff" <<
13
13
  \context GregorianVoice <<
14
14
    \set Score.timing = ##f
15
15
%   \set Score.forceAccidental = ##t %%%%%%%% FIXME: what happened to this property?
16
16
 
17
17
    \override Staff.StaffSymbol  #'line-count = #4
18
18
 
19
 
    \notes \transpose c c {
 
19
     \transpose c c {
20
20
        \override Staff.KeySignature  #'style = #'vaticana
21
21
        \override Staff.Accidental  #'style = #'vaticana
22
 
        \override NoteHead  #'style = #'vaticana_punctum
 
22
        \override NoteHead  #'style = #'vaticana.punctum
23
23
        \key es \major
24
 
        \clef "vaticana_fa2"
 
24
        \clef "vaticana-fa2"
25
25
        c!1 des! e! f! ges!
26
26
 
27
 
        \override NoteHead  #'style = #'vaticana_inclinatum
 
27
        \override NoteHead  #'style = #'vaticana.inclinatum
28
28
        a! b! ces'
29
29
        \override Staff.BarLine  #'bar-size = #3.0 \bar "|"
30
30
%       \break % 1 (8*1)
31
31
 
32
 
        \override NoteHead  #'style = #'vaticana_quilisma
 
32
        \override NoteHead  #'style = #'vaticana.quilisma
33
33
        b! des'! ges! fes!
34
34
        \breathe
35
 
        \clef "vaticana_fa1"
36
 
        \override NoteHead  #'style = #'vaticana_plica
 
35
        \clef "vaticana-fa1"
 
36
        \override NoteHead  #'style = #'vaticana.plica
37
37
        es d
38
 
        \override NoteHead  #'style = #'vaticana_reverse_plica
 
38
        \override NoteHead  #'style = #'vaticana.reverse.plica
39
39
        c d
40
40
        \override Staff.BarLine  #'bar-size = #3.0 \bar "|"
41
41
%       \break %2 (8*1)
42
42
 
43
 
        \override NoteHead  #'style = #'vaticana_punctum_cavum
 
43
        \override NoteHead  #'style = #'vaticana.punctum.cavum
44
44
        es f
45
 
        \override NoteHead  #'style = #'vaticana_lpes
 
45
        \override NoteHead  #'style = #'vaticana.lpes
46
46
        g as
47
 
        \override NoteHead  #'style = #'vaticana_upes
 
47
        \override NoteHead  #'style = #'vaticana.upes
48
48
        bes as
49
 
        \override NoteHead  #'style = #'vaticana_vupes
 
49
        \override NoteHead  #'style = #'vaticana.vupes
50
50
        g f
51
 
        \override NoteHead  #'style = #'vaticana_linea_punctum
 
51
        \override NoteHead  #'style = #'vaticana.linea.punctum
52
52
        \override Staff.BarLine  #'bar-size = #2.0 \bar "|"
53
53
%       \break % 3 (8*1)
54
54
 
55
55
        es d
56
 
        \override NoteHead  #'style = #'vaticana_epiphonus
 
56
        \override NoteHead  #'style = #'vaticana.epiphonus
57
57
        c d
58
 
        \override NoteHead  #'style = #'vaticana_cephalicus
 
58
        \override NoteHead  #'style = #'vaticana.cephalicus
59
59
        es f
60
60
 
61
61
        \override Staff.KeySignature  #'style = #'medicaea
62
62
        \override Staff.Accidental  #'style = #'medicaea
63
63
        \override Staff.Custos  #'style = #'medicaea
64
 
        \override NoteHead  #'style = #'medicaea_punctum
65
 
        \clef "medicaea_fa2"
 
64
        \override NoteHead  #'style = #'medicaea.punctum
 
65
        \clef "medicaea-fa2"
66
66
        ces! des!
67
67
        \override Staff.BarLine  #'bar-size = #3.0 \bar "|"
68
68
%       \break % 4 (8*1)
69
69
 
70
70
        e! f! ges!
71
 
        \clef "medicaea_do2"
72
 
        \override NoteHead  #'style = #'medicaea_inclinatum
 
71
        \clef "medicaea-do2"
 
72
        \override NoteHead  #'style = #'medicaea.inclinatum
73
73
        a! b! ces'!
74
 
        \override NoteHead  #'style = #'medicaea_virga
 
74
        \override NoteHead  #'style = #'medicaea.virga
75
75
        b! a!
76
76
        \override Staff.BarLine  #'bar-size = #3.0 \bar "|"
77
77
%       \break % 5 (8*1)
78
78
 
79
79
        ges! fes!
80
 
        \clef "medicaea_fa1"
81
 
        \override NoteHead  #'style = #'medicaea_rvirga
 
80
        \clef "medicaea-fa1"
 
81
        \override NoteHead  #'style = #'medicaea.rvirga
82
82
        e! des! ces!
83
83
 
84
84
        \override Staff.KeySignature  #'style = #'hufnagel
85
85
        \override Staff.Accidental  #'style = #'hufnagel
86
86
        \override Staff.Custos  #'style = #'hufnagel
87
 
        \override NoteHead  #'style = #'hufnagel_punctum
88
 
        \clef "hufnagel_fa2"
 
87
        \override NoteHead  #'style = #'hufnagel.punctum
 
88
        \clef "hufnagel-fa2"
89
89
        ces! des! es!
90
90
        \override Staff.BarLine  #'bar-size = #3.0 \bar "|"
91
91
%       \break % 6 (8*1)
92
92
 
93
93
        fes! ges!
94
 
        \clef "hufnagel_do2"
95
 
        \override NoteHead  #'style = #'hufnagel_lpes
 
94
        \clef "hufnagel-do2"
 
95
        \override NoteHead  #'style = #'hufnagel.lpes
96
96
        as! bes! ces'!
97
 
        \override NoteHead  #'style = #'hufnagel_virga
 
97
        \override NoteHead  #'style = #'hufnagel.virga
98
98
        bes! as!
99
99
        \override Staff.BarLine  #'bar-size = #3.0 \bar "|"
100
100
%       \break % 7 (8*1)
101
101
 
102
102
        ges! fes!
103
 
        \clef "hufnagel_do_fa"
104
 
        \override NoteHead  #'style = #'hufnagel_punctum
 
103
        \clef "hufnagel-do-fa"
 
104
        \override NoteHead  #'style = #'hufnagel.punctum
105
105
        es! des! ces! des! es! fes!
106
106
        \bar "||"
107
107
%       \break % 8 (8*1)
112
112
  >>
113
113
>>
114
114
 
115
 
lowerStaff = \context MensuralStaff = lowerStaff <<
 
115
lowerStaff = \new MensuralStaff =  "lowerStaff" <<
116
116
  \context MensuralVoice <<
117
117
    
118
118
    % this is broken until further notice -- see refman
119
119
    % \override Staff.StaffSymbol  #'line-count = #5
120
 
    \context Staff \applyoutput #(outputproperty-compatibility (make-type-checker 'staff-symbol-interface) 'line-count 5)
 
120
    \context Staff \applyOutput #(outputproperty-compatibility (make-type-checker 'staff-symbol-interface) 'line-count 5)
121
121
 
122
 
    \notes \transpose c c {
 
122
     \transpose c c {
123
123
        \set autoBeaming = ##f
124
 
        \override NoteHead  #'style = #'neo_mensural
125
 
        \override Rest  #'style = #'neo_mensural
 
124
        \override NoteHead  #'style = #'neomensural
 
125
        \override Rest  #'style = #'neomensural
126
126
        \key a \major
127
127
 
128
128
% FIXME: lily crashes on some (invalid?) ligatures with:
134
134
 
135
135
        cis'1 d'\breve gis'\breve e'\breve \[ e'\longa fis'\longa \]
136
136
        \set Staff.forceClef = ##t
137
 
        \clef "neo_mensural_c2"
 
137
        \clef "neomensural-c2"
138
138
        cis1
139
139
        \bar "|"
140
140
%       \break % 2 (16*1)
141
141
 
142
142
        \[ g\breve dis''\longa \]
143
143
        b\breve \[ a\longa d\longa \]
144
 
        \clef "petrucci_c2"
 
144
        \clef "petrucci-c2"
145
145
%       \break % 4 (16*1)
146
146
 
147
147
        fis1 ces1
148
 
        \clef "petrucci_c2"
 
148
        \clef "petrucci-c2"
149
149
        r\longa
150
150
        \set Staff.forceClef = ##t
151
 
        \clef "mensural_c2"
 
151
        \clef "mensural-c2"
152
152
        r\breve
153
153
        \bar "|"
154
154
%       \break % 5 (8*1)
155
155
 
156
156
        r2
157
 
        \clef "mensural_g"
 
157
        \clef "mensural-g"
158
158
        r4 r8 r16 r16
159
159
        \override NoteHead  #'style = #'mensural
160
160
        \override Stem  #'flag-style = #'mensural
161
161
        \override Stem  #'thickness = #1.0
162
162
        \override Rest  #'style = #'mensural
163
 
        \clef "petrucci_f"
 
163
        \clef "petrucci-f"
164
164
        c8 b, c16 b, c32 b, c64 b, c64 b,
165
165
        d8 e  d16 e  d32 e  d64 e  d64 e
166
166
        r\longa
167
167
        \set Staff.forceClef = ##t
168
 
        \clef "petrucci_f"
 
168
        \clef "petrucci-f"
169
169
        r\breve
170
170
        \bar "|"
171
171
%       \break % 6 (8*1)
172
172
 
173
173
        r\breve 
174
 
        \clef "mensural_f"
175
 
        % FIXME: must set Stem flag-style to #'neo_mensural to avoid
 
174
        \clef "mensural-f"
 
175
        % FIXME: must set Stem flag-style to #'neomensural to avoid
176
176
        % segmentation fault on r8/r16/r32.  (Strange: what has
177
177
        % Stem flag-style to do with mensural rests?)
178
 
        \override Stem  #'flag-style = #'neo_mensural
179
 
        % FIXME: produces warnings about "flag `neo_mensurald4' (or 3) not found".
 
178
        \override Stem  #'flag-style = #'neomensural
 
179
        % FIXME: produces warnings about "flag `neomensurald4' (or 3) not found".
180
180
        r2 r4 r8 r16 r16
181
181
        \override Stem  #'flag-style = #'mensural
182
182
        \set Staff.forceClef = ##t
183
 
        \clef "mensural_f"
 
183
        \clef "mensural-f"
184
184
        e\breve f g a1
185
 
        \clef "mensural_g"
 
185
        \clef "mensural-g"
186
186
%       \break % 7 (8*1)
187
187
 
188
188
        \[ bes'!\longa a'!\longa c''!\longa \]
192
192
 
193
193
        bes'!\longa fis'!1 as'!1 ges'!\longa % lig
194
194
        \set Staff.forceClef = ##t
195
 
        \clef "mensural_g"
 
195
        \clef "mensural-g"
196
196
        e'2 d' c' \bar "|"
197
197
%       \break % 11 (16*1)
198
198
 
199
199
        \set Staff.forceClef = ##t
200
 
        \clef "petrucci_g"
 
200
        \clef "petrucci-g"
201
201
        c'2 d' e' f'
202
 
        \clef "petrucci_g"
 
202
        \clef "petrucci-g"
203
203
        g' as'! bes'! cis''!
204
204
        bes'! as'! gis'! fis'!
205
205
        \set Staff.forceClef = ##t
206
 
        \clef "mensural_g"
 
206
        \clef "mensural-g"
207
207
        es'! des'! cis'!1 \bar "||"
208
208
%       \break % 12 (8*1)
209
209
    }
210
210
  >>
211
211
>>
212
212
 
 
213
\paper {
 
214
        line-thickness = #(/ staff-space 5.0)
 
215
}
 
216
 
213
217
\score {
214
218
    \context Score <<
215
219
        \upperStaff
216
220
        \lowerStaff
217
221
    >>
218
 
    \paper {
 
222
    \layout {
219
223
% do we want to keep these settings? -gp
220
 
        linewidth = 17.25\cm
 
224
        line-width = 17.25\cm
221
225
        textheight = 26.0\cm
222
 
        linethickness = #(/ staffspace 5.0)
223
226
        indent = 0.0
224
227
        \context {
225
 
            \ScoreContext
 
228
            \Score
226
229
            \accepts MensuralStaff
227
230
            \accepts GregorianStaff
228
231
%           timing = ##f %%%%%%%% FIXME: this has no effect
229
232
        }
230
233
        \context {
231
 
            \VoiceContext
 
234
            \Voice
232
235
            \name MensuralVoice
233
236
            \alias Voice
234
237
            \remove Ligature_bracket_engraver
240
243
            autoBeaming = ##f
241
244
        }
242
245
        \context {
243
 
            \VoiceContext
 
246
            \Voice
244
247
            \name GregorianVoice
245
248
            \alias Voice
246
249
            \remove Ligature_bracket_engraver
247
250
%           \consists Gregorian_ligature_engraver %%%%%%%% TODO: not yet implemented
248
 
            \override NoteHead #'style = #'vaticana_punctum
 
251
            \override NoteHead #'style = #'vaticana.punctum
249
252
            autoBeaming = ##f
250
253
        }
251
254
        \context {
252
 
            \StaffContext
 
255
            \Staff
253
256
            \name MensuralStaff
254
257
            \alias Staff
255
258
            \accepts MensuralVoice
259
262
            \override Accidental #'style = #'mensural
260
263
            \override Custos #'style = #'mensural
261
264
            \override Custos #'neutral-position = #3
262
 
            \override Custos #'neutral-direction = #-1
263
 
            clefGlyph = #"clefs-petrucci_c2"
 
265
            \override Custos #'neutral-direction = #down
 
266
            clefGlyph = #"clefs.petrucci.c2"
264
267
            clefPosition = #-2
265
268
            clefOctavation = #0 
266
269
        }
267
270
        \context {
268
 
            \StaffContext
 
271
            \Staff
269
272
            \name GregorianStaff
270
273
            \alias Staff
271
274
            \accepts GregorianVoice
277
280
            \override Accidental #'style = #'vaticana
278
281
            \override Custos #'style = #'vaticana
279
282
            \override Custos #'neutral-position = #4
280
 
            \override Custos #'neutral-direction = #-1
281
 
            clefGlyph = #"clefs-vaticana_do"
 
283
            \override Custos #'neutral-direction = #down
 
284
            clefGlyph = #"clefs.vaticana.do"
282
285
            clefPosition = #1
283
286
            clefOctavation = #0 
284
287
        }