← Back to branch summary

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

« back to all changes in this revision

Viewing changes to mf/parmesan-custodes.mf

  • 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:
mf/parmesan-custodes.mf
3
3
% 
4
4
% source file of LilyPond's pretty-but-neat music font
5
5
% 
6
 
% (c) 2000--2004 Juergen Reuter <reuter@ipd.uka.de>
 
6
% (c) 2000--2006 Juergen Reuter <reuter@ipd.uka.de>
7
7
% 
8
8
 
9
9
save black_notehead_width;
52
52
%
53
53
 
54
54
% parameterized hufnagel custos
55
 
def custos_hufnagel(expr verbose_name, internal_name, ly_name,
 
55
def custos_hufnagel(expr verbose_name, internal_name, 
56
56
                    direction, staffline_adjustment) =
57
57
 
58
 
        fet_beginchar(verbose_name, internal_name, ly_name)
 
58
        fet_beginchar(verbose_name, internal_name)
59
59
                save alpha, dalpha, ht, wd, stem_ht, pen_size;
60
60
                ht# = noteheight#;
61
61
                wd#/ht# = 0.6;
100
100
enddef;
101
101
 
102
102
% custos hufnagel, stem up, between staff lines
103
 
custos_hufnagel("Custos Hufnagel", "hufnagel-u0", "hufnagelu0",
 
103
custos_hufnagel("Custos Hufnagel", "hufnagel.u0", 
104
104
                dir_up, between_staff_lines);
105
105
 
106
106
% custos hufnagel, stem up, on staff line
107
 
custos_hufnagel("Custos Hufnagel", "hufnagel-u1", "hufnagelu1",
 
107
custos_hufnagel("Custos Hufnagel", "hufnagel.u1", 
108
108
                dir_up, on_staff_line);
109
109
 
110
110
% custos hufnagel, stem up, anywhere
111
 
custos_hufnagel("Custos Hufnagel", "hufnagel-u2", "hufnagelu2",
 
111
custos_hufnagel("Custos Hufnagel", "hufnagel.u2", 
112
112
                dir_up, anywhere);
113
113
 
114
114
% custos hufnagel, stem down, between staff lines
115
 
custos_hufnagel("Reverse Custos Hufnagel", "hufnagel-d0", "hufnageld0",
 
115
custos_hufnagel("Reverse Custos Hufnagel", "hufnagel.d0",
116
116
                dir_down, between_staff_lines);
117
117
 
118
118
% custos hufnagel, stem down, on staff line
119
 
custos_hufnagel("Reverse Custos Hufnagel", "hufnagel-d1", "hufnageld1",
 
119
custos_hufnagel("Reverse Custos Hufnagel", "hufnagel.d1",
120
120
                dir_down, on_staff_line);
121
121
 
122
122
% custos hufnagel, stem down, anywhere
123
 
custos_hufnagel("Reverse Custos Hufnagel", "hufnagel-d2", "hufnageld2",
 
123
custos_hufnagel("Reverse Custos Hufnagel", "hufnagel.d2",
124
124
                dir_down, anywhere);
125
125
 
126
126
%%%%%%%%
130
130
%
131
131
%
132
132
 
133
 
def custos_medicaea(expr verbose_name, internal_name, ly_name,
 
133
def custos_medicaea(expr verbose_name, internal_name, 
134
134
                    direction, staffline_adjustment) =
135
135
 
136
 
        fet_beginchar(verbose_name, internal_name, ly_name)
 
136
        fet_beginchar(verbose_name, internal_name)
137
137
 
138
138
                save ht, wd, stem_ht;
139
139
                ht# = noteheight#;
172
172
enddef;
173
173
 
174
174
% custos medicaea, stem up, between staff lines
175
 
custos_medicaea("Custos Med.", "medicaea-u0", "medicaeau0",
 
175
custos_medicaea("Custos Med.", "medicaea.u0", 
176
176
                dir_up, between_staff_lines);
177
177
 
178
178
% custos medicaea, stem up, on staff line
179
 
custos_medicaea("Custos Med.", "medicaea-u1", "medicaeau1",
 
179
custos_medicaea("Custos Med.", "medicaea.u1", 
180
180
                dir_up, on_staff_line);
181
181
 
182
182
% custos medicaea, stem up, anywhere
183
 
custos_medicaea("Custos Med.", "medicaea-u2", "medicaeau2",
 
183
custos_medicaea("Custos Med.", "medicaea.u2", 
184
184
                dir_up, anywhere);
185
185
 
186
186
% custos medicaea, stem down, between staff lines
187
 
custos_medicaea("Reverse Custos Med.", "medicaea-d0", "medicaead0",
 
187
custos_medicaea("Reverse Custos Med.", "medicaea.d0", 
188
188
                dir_down, between_staff_lines);
189
189
 
190
190
% custos medicaea, stem down, on staff line
191
 
custos_medicaea("Reverse Custos Med.", "medicaea-d1", "medicaead1",
 
191
custos_medicaea("Reverse Custos Med.", "medicaea.d1", 
192
192
                dir_down, on_staff_line);
193
193
 
194
194
% custos medicaea, stem down, anywhere
195
 
custos_medicaea("Reverse Custos Med.", "medicaea-d2", "medicaead2",
 
195
custos_medicaea("Reverse Custos Med.", "medicaea.d2", 
196
196
                dir_down, anywhere);
197
197
 
198
198
%%%%%%%%
202
202
%
203
203
%
204
204
 
205
 
def custos_vaticana(expr verbose_name, internal_name, ly_name,
 
205
def custos_vaticana(expr verbose_name, internal_name, 
206
206
                    direction, staffline_adjustment) =
207
207
 
208
 
        fet_beginchar(verbose_name, internal_name, ly_name)
 
208
        fet_beginchar(verbose_name, internal_name)
209
209
                save ht, wd, u_offs, l_offs, stem_size, stem_end;
210
210
                save pen_ht, l_shift, curve_ht, bend_ht;
211
211
                ht# = noteheight#;
253
253
enddef;
254
254
 
255
255
% custos vaticana, stem up, between staff lines
256
 
custos_vaticana("Custos Ed. Vat.", "vaticana-u0", "vaticanau0",
 
256
custos_vaticana("Custos Ed. Vat.", "vaticana.u0", 
257
257
                dir_up, between_staff_lines);
258
258
 
259
259
% custos vaticana, stem up, on staff line
260
 
custos_vaticana("Custos Ed. Vat.", "vaticana-u1", "vaticanau1",
 
260
custos_vaticana("Custos Ed. Vat.", "vaticana.u1", 
261
261
                dir_up, on_staff_line);
262
262
 
263
263
% custos vaticana, stem up, anywhere
264
 
custos_vaticana("Custos Ed. Vat.", "vaticana-u2", "vaticanau2",
 
264
custos_vaticana("Custos Ed. Vat.", "vaticana.u2", 
265
265
                dir_up, anywhere);
266
266
 
267
267
% custos vaticana, stem down, between staff lines
268
 
custos_vaticana("Reverse Custos Ed. Vat.", "vaticana-d0", "vaticanad0",
 
268
custos_vaticana("Reverse Custos Ed. Vat.", "vaticana.d0", 
269
269
                dir_down, between_staff_lines);
270
270
 
271
271
% custos vaticana, stem down, on_staff_line
272
 
custos_vaticana("Reverse Custos Ed. Vat.", "vaticana-d1", "vaticanad1",
 
272
custos_vaticana("Reverse Custos Ed. Vat.", "vaticana.d1", 
273
273
                dir_down, on_staff_line);
274
274
 
275
275
% custos vaticana, stem down, anywhere
276
 
custos_vaticana("Reverse Custos Ed. Vat.", "vaticana-d2", "vaticanad2",
 
276
custos_vaticana("Reverse Custos Ed. Vat.", "vaticana.d2", 
277
277
                dir_down, anywhere);
278
278
 
279
279
%%%%%%%%
283
283
%
284
284
%
285
285
 
286
 
def custos_mensural(expr verbose_name, internal_name, ly_name,
 
286
def custos_mensural(expr verbose_name, internal_name, 
287
287
                    direction, staffline_adjustment) =
288
288
 
289
 
        fet_beginchar(verbose_name, internal_name, ly_name)
 
289
        fet_beginchar(verbose_name, internal_name)
290
290
                save alpha, dalpha, ht, wd, stem_ht;
291
291
                ht# = noteheight#;
292
292
                wd#/ht# = 1.2;
331
331
enddef;
332
332
 
333
333
% custos mensural, stem up, between staff lines
334
 
custos_mensural("Custos Mensural", "mensural-u0", "mensuralu0",
 
334
custos_mensural("Custos Mensural", "mensural.u0", 
335
335
                dir_up, between_staff_lines);
336
336
 
337
337
% custos mensural, stem up, on staff line
338
 
custos_mensural("Custos Mensural", "mensural-u1", "mensuralu1",
 
338
custos_mensural("Custos Mensural", "mensural.u1", 
339
339
                dir_up, on_staff_line);
340
340
 
341
341
% custos mensural, stem up, anywhere
342
 
custos_mensural("Custos Mensural", "mensural-u2", "mensuralu2",
 
342
custos_mensural("Custos Mensural", "mensural.u2", 
343
343
                dir_up, anywhere);
344
344
 
345
345
% custos mensural, stem down, between staff lines
346
 
custos_mensural("Reverse Custos Mensural", "mensural-d0", "mensurald0",
 
346
custos_mensural("Reverse Custos Mensural", "mensural.d0", 
347
347
                dir_down, between_staff_lines);
348
348
 
349
349
% custos mensural, stem down, on staff line
350
 
custos_mensural("Reverse Custos Mensural", "mensural-d1", "mensurald1",
 
350
custos_mensural("Reverse Custos Mensural", "mensural.d1", 
351
351
                dir_down, on_staff_line);
352
352
 
353
353
% custos mensural, stem down, anywhere
354
 
custos_mensural("Reverse Custos Mensural", "mensural-d2", "mensurald2",
 
354
custos_mensural("Reverse Custos Mensural", "mensural.d2", 
355
355
                dir_down, anywhere);
356
356
 
357
357
fet_endgroup ("custodes")