]> git.donarmstrong.com Git - lilypond.git/blob - mf/feta-generic.mf
partial: 1.0.1.jcn
[lilypond.git] / mf / feta-generic.mf
1
2 % feta-generic.mf --  implement 
3
4 % source file of the Feta (defintively not an abbreviation for Font-En-Tja)
5 % music font
6
7 % (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
8
9
10
11 if test = -1:
12         mode := smoke;
13 fi
14
15 mode_setup;
16
17
18 input feta-macros;
19
20 make_pen_stack;
21 make_picture_stack;
22 input feta-params;
23
24
25
26
27 if test = 0: 
28         input feta-eindelijk;
29         input feta-toevallig;
30         input feta-puntje;
31         input feta-bolletjes;
32         input feta-schrift;
33         input feta-banier;
34         input feta-klef;
35 else:
36 %       input feta-bolletjes;   
37 %       input feta-banier;
38 %       input feta-eindelijk;
39 %       input feta-klef;
40 %       input feta-toevallig;
41 %       input feta-schrift;
42 %       input feta-schrift;
43         input feta-haak;
44 fi