← Back to branch summary

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

« back to all changes in this revision

Viewing changes to mf/parmesan-timesig.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-timesig.mf
3
3
% 
4
4
% source file of LilyPond's pretty-but-neat music font
5
5
% 
6
 
% (c) 1998--2004 Mats Bengtsson <matsb@s3.kth.se>,
 
6
% (c) 1998--2006 Mats Bengtsson <matsb@s3.kth.se>,
7
7
%                Christian Mondrup <scancm@biobase.dk>
8
 
% (c) 2002--2004 Juergen Reuter <reuter@ipd.uka.de>
 
8
% (c) 2002--2006 Juergen Reuter <reuter@ipd.uka.de>
9
9
% 
10
10
 
11
11
fet_begingroup ("timesig")
13
13
path threequartercircle;
14
14
threequartercircle = halfcircle & quartercircle rotated 180;
15
15
 
16
 
save Cdiameter, Cthickness, Chairpin;
17
 
Cdiameter# := 3/2 staff_space#;
18
 
Cthickness# := 2 linethickness#;
19
 
Chairpin# := 0.5 linethickness#;
20
 
define_pixels(Cdiameter, Cthickness, Chairpin);
 
16
save mensural_Cdiameter, mensural_Cthickness, mensural_Chairpin;
 
17
mensural_Cdiameter# := 3/2 staff_space#;
 
18
mensural_Cthickness# := 2 linethickness#;
 
19
mensural_Chairpin# := 0.5 linethickness#;
 
20
define_pixels(mensural_Cdiameter, mensural_Cthickness);
 
21
define_pixels(mensural_Chairpin);
21
22
 
22
23
%%%%%%%%
23
24
%
38
39
 
39
40
        begingroup;
40
41
                save x,y;
41
 
                z2+(round/2,round/2) = top_right + (Cthickness/2, 0);
 
42
                z2+(round/2,round/2) = top_right + (mensural_Cthickness/2, 0);
42
43
                z4-(round/2,round/2) = bottom_left;
43
44
                y3 = y2;
44
45
                y4 = y1;
45
 
                x2 = x1 + Cthickness/2;
 
46
                x2 = x1 + mensural_Cthickness/2;
46
47
                x2 - x1 = x4 - x3;
47
48
                x5 = x1;
48
49
                x6 = x4;
49
 
                y5 = y6 = y2 - 2Cthickness;
 
50
                y5 = y6 = y2 - 2mensural_Cthickness;
50
51
 
51
52
                pickup pencircle scaled round;
52
53
                fill bot z1 .. rt z1 --- rt z5 .. rt z2 .. top z2 ---
56
57
 
57
58
enddef;
58
59
 
59
 
def mens_timesig (expr verbose_name, internal_name, ly_name,
60
 
                        full_circle, reverse_circle, slashed, dotted) =
 
60
def mensural_timesig (expr verbose_name, internal_name,
 
61
                      full_circle, reverse_circle, slashed, dotted) =
61
62
 
62
 
        fet_beginchar(verbose_name, internal_name, ly_name)
 
63
        fet_beginchar(verbose_name, internal_name)
63
64
                if slashed:
64
65
                        set_char_box(0,
65
 
                                     Cdiameter# + Cthickness#,
66
 
                                     .75 (Cdiameter# + Cthickness#),
67
 
                                     .75 (Cdiameter# + Cthickness#));
 
66
                                     mensural_Cdiameter# + mensural_Cthickness#,
 
67
                                     .75 (mensural_Cdiameter# + mensural_Cthickness#),
 
68
                                     .75 (mensural_Cdiameter# + mensural_Cthickness#));
68
69
                        if (full_circle or dotted):
69
 
                                draw_nail((-Cthickness/2, -d), (Cthickness/2, h));
 
70
                                draw_nail((-mensural_Cthickness/2, -d), (mensural_Cthickness/2, h));
70
71
                        else:
71
 
                                draw_nail((-Cthickness, -d), (0, h));
 
72
                                draw_nail((-mensural_Cthickness, -d), (0, h));
72
73
                        fi;
73
74
                else:
74
75
                        set_char_box(0,
75
 
                                     Cdiameter# + Cthickness#,
76
 
                                     .5 (Cdiameter# + Cthickness#),
77
 
                                     .5 (Cdiameter# + Cthickness#));
 
76
                                     mensural_Cdiameter# + mensural_Cthickness#,
 
77
                                     .5 (mensural_Cdiameter# + mensural_Cthickness#),
 
78
                                     .5 (mensural_Cdiameter# + mensural_Cthickness#));
78
79
                fi;
79
 
                pickup pencircle xscaled Cthickness yscaled Chairpin rotated 0;
 
80
                pickup pencircle xscaled mensural_Cthickness yscaled mensural_Chairpin rotated 0;
80
81
                if full_circle:
81
 
                        draw fullcircle scaled Cdiameter;
 
82
                        draw fullcircle scaled mensural_Cdiameter;
82
83
                elseif reverse_circle:
83
 
                        draw threequartercircle rotated 225 scaled Cdiameter;
 
84
                        draw threequartercircle rotated 225 scaled mensural_Cdiameter;
84
85
                else:
85
 
                        draw threequartercircle rotated 45 scaled Cdiameter;
 
86
                        draw threequartercircle rotated 45 scaled mensural_Cdiameter;
86
87
                fi;
87
88
                if dotted:
88
89
                        pickup pencircle scaled 4 linethickness;
89
90
                        draw (0,0);
90
91
                fi;
91
 
                currentpicture := currentpicture shifted 0.5(Cdiameter + Cthickness, 0);
 
92
                currentpicture := currentpicture shifted 0.5(mensural_Cdiameter + mensural_Cthickness, 0);
92
93
        fet_endchar;
93
94
enddef;
94
95
 
95
96
%% tempus imperfectum cum prolatione imperfecta
96
 
mens_timesig ("Mensural 4/4 meter", "mensural4/4", "mensuralfourfourmeter",
97
 
                false, false, false, false);
 
97
mensural_timesig ("Mensural 4/4 meter", "mensural44",
 
98
                  false, false, false, false);
98
99
 
99
100
%% tempus imperfectum cum prolatione imperfecta proportio dupla
100
 
mens_timesig ("Mensural 2/2 meter", "mensural2/2", "mensuralallabreve",
101
 
                false, false, true, false);
 
101
mensural_timesig ("Mensural 2/2 meter", "mensural22",
 
102
                  false, false, true, false);
102
103
 
103
104
%% tempus perfectum cum prolatione imperfecta
104
 
mens_timesig ("Mensural 3/2 meter", "mensural3/2", "mensuralthreetwometer",
105
 
                true, false, false, false);
 
105
mensural_timesig ("Mensural 3/2 meter", "mensural32",
 
106
                  true, false, false, false);
106
107
 
107
108
%% tempus imperfectum cum prolatione perfecta
108
 
mens_timesig ("Mensural 6/4 meter", "mensural6/4", "mensuralsixfourmeter",
109
 
                false, false, false, true);
 
109
mensural_timesig ("Mensural 6/4 meter", "mensural64",
 
110
                  false, false, false, true);
110
111
 
111
112
%% tempus perfectum cum prolatione perfecta
112
 
mens_timesig ("Mensural 9/4 meter", "mensural9/4", "mensuralninefourmeter",
113
 
                true, false, false, true);
 
113
mensural_timesig ("Mensural 9/4 meter", "mensural94",
 
114
                  true, false, false, true);
114
115
 
115
116
%% tempus perfectum cum prolatione imperfecta proportio dupla
116
 
mens_timesig ("Mensural 3/4 meter", "mensural3/4", "mensuralthreefourmeter",
117
 
                true, false, true, false);
 
117
mensural_timesig ("Mensural 3/4 meter", "mensural34",
 
118
                  true, false, true, false);
118
119
 
119
120
%% tempus imperfectum cum prolatione perfecta proportio dupla
120
 
mens_timesig ("Mensural 6/8 meter", "mensural6/8", "mensuralsixeightmeter",
121
 
                false, false, true, true);
 
121
mensural_timesig ("Mensural 6/8 meter", "mensural68",
 
122
                  false, false, true, true);
122
123
 
123
124
%% tempus perfectum cum prolatione perfecta proportio dupla
124
 
mens_timesig ("Mensural 9/8 meter", "mensural9/8", "mensuralnineeight",
125
 
                true, false, true, true);
 
125
mensural_timesig ("Mensural 9/8 meter", "mensural98",
 
126
                  true, false, true, true);
126
127
        
127
128
%% tempus imperfectum cum prolatione imperfecta diminutio simplex
128
 
mens_timesig ("Mensural 4/8 meter", "mensural4/8", "mensuralfoureightmeter",
129
 
                false, true, false, false);
 
129
mensural_timesig ("Mensural 4/8 meter", "mensural48",
 
130
                  false, true, false, false);
130
131
 
131
132
%% tempus imperfectum cum prolatione perfecta diminutio simplex
132
 
mens_timesig ("Mensural 6/8 meter", "mensural6/8alt", "mensuralsixeightmeteralt",
133
 
                false, true, false, true);
 
133
mensural_timesig ("Mensural 6/8 meter", "mensural68alt",
 
134
                  false, true, false, true);
134
135
 
135
136
%% tempus imperfectum cum prolatione imperfecta diminutio duplex
136
 
mens_timesig ("Mensural 2/4 meter", "mensural2/4", "mensuraltwofourmeter",
137
 
                false, true, true, false);
 
137
mensural_timesig ("Mensural 2/4 meter", "mensural24",
 
138
                  false, true, true, false);
138
139
 
139
140
%%%%%%%%
140
141
%
145
146
%
146
147
%
147
148
 
148
 
save neo_Cdiameter, neo_Cthickness;
149
 
neo_Cdiameter# := 3/2 staff_space#;
150
 
neo_Cthickness# := 2 linethickness#;
151
 
define_pixels(neo_Cdiameter, neo_Cthickness);
152
 
 
153
 
def neo_mens_timesig (expr verbose_name, internal_name, ly_name,
154
 
                        full_circle, reverse_circle, slashed, dotted) =
155
 
 
156
 
        fet_beginchar(verbose_name, internal_name, ly_name)
 
149
save neomensural_Cdiameter, neomensural_Cthickness;
 
150
neomensural_Cdiameter# := 3/2 staff_space#;
 
151
neomensural_Cthickness# := 2 linethickness#;
 
152
define_pixels(neomensural_Cdiameter, neomensural_Cthickness);
 
153
 
 
154
def neomensural_timesig (expr verbose_name, internal_name,
 
155
                         full_circle, reverse_circle, slashed, dotted) =
 
156
 
 
157
        fet_beginchar(verbose_name, internal_name)
157
158
                if slashed:
158
159
                        set_char_box(0,
159
 
                                     neo_Cdiameter# + neo_Cthickness#,
160
 
                                     .5 (neo_Cdiameter# + neo_Cthickness#),
161
 
                                     .5 (neo_Cdiameter# + neo_Cthickness#));
 
160
                                     neomensural_Cdiameter# + neomensural_Cthickness#,
 
161
                                     .5 (neomensural_Cdiameter# + neomensural_Cthickness#),
 
162
                                     .5 (neomensural_Cdiameter# + neomensural_Cthickness#));
162
163
                        if (full_circle or dotted):
163
 
                                draw_block((-neo_Cthickness/2, -d), (neo_Cthickness/2, h));
 
164
                                draw_block((-neomensural_Cthickness/2, -d), (neomensural_Cthickness/2, h));
164
165
                        else:
165
 
                                draw_block((-neo_Cthickness, -d), (0, h));
 
166
                                draw_block((-neomensural_Cthickness, -d), (0, h));
166
167
                        fi;
167
168
                else:
168
169
                        set_char_box(0,
169
 
                                     neo_Cdiameter# + neo_Cthickness#,
170
 
                                     .5 (neo_Cdiameter# + neo_Cthickness#),
171
 
                                     .5 (neo_Cdiameter# + neo_Cthickness#));
 
170
                                     neomensural_Cdiameter# + neomensural_Cthickness#,
 
171
                                     .5 (neomensural_Cdiameter# + neomensural_Cthickness#),
 
172
                                     .5 (neomensural_Cdiameter# + neomensural_Cthickness#));
172
173
                fi;
173
 
                pickup pencircle scaled neo_Cthickness;
 
174
                pickup pencircle scaled neomensural_Cthickness;
174
175
                if full_circle:
175
 
                        draw fullcircle scaled neo_Cdiameter;
 
176
                        draw fullcircle scaled neomensural_Cdiameter;
176
177
                elseif reverse_circle:
177
 
                        draw threequartercircle rotated 225 scaled neo_Cdiameter;
 
178
                        draw threequartercircle rotated 225 scaled neomensural_Cdiameter;
178
179
                else:
179
 
                        draw threequartercircle rotated 45 scaled neo_Cdiameter;
 
180
                        draw threequartercircle rotated 45 scaled neomensural_Cdiameter;
180
181
                fi;
181
182
                if dotted:
182
183
                        pickup pencircle scaled 4 linethickness;
183
184
                        draw (0,0);
184
185
                fi;
185
 
                currentpicture := currentpicture shifted 0.5(neo_Cdiameter + neo_Cthickness, 0);
 
186
                currentpicture := currentpicture shifted 0.5(neomensural_Cdiameter + neomensural_Cthickness, 0);
186
187
        fet_endchar;
187
188
enddef;
188
189
 
189
190
%% tempus imperfectum cum prolatione imperfecta
190
 
neo_mens_timesig ("Mensural 4/4 meter", "neo_mensural4/4", "neomensuralfourfourmeter",
 
191
neomensural_timesig ("Mensural 4/4 meter", "neomensural44",
191
192
                        false, false, false, false);
192
193
 
193
194
%% tempus imperfectum cum prolatione imperfecta proportio dupla
194
 
neo_mens_timesig ("Mensural 2/2 meter", "neo_mensural2/2", "neomensuralallabreve",
 
195
neomensural_timesig ("Mensural 2/2 meter", "neomensural22",
195
196
                        false, false, true, false);
196
197
 
197
198
%% tempus perfectum cum prolatione imperfecta
198
 
neo_mens_timesig ("Mensural 3/2 meter", "neo_mensural3/2", "neomensuralthreetwometer",
 
199
neomensural_timesig ("Mensural 3/2 meter", "neomensural32",
199
200
                        true, false, false, false);
200
201
 
201
202
%% tempus imperfectum cum prolatione perfecta
202
 
neo_mens_timesig ("Mensural 6/4 meter", "neo_mensural6/4", "neomensuralsixfourmeter",
 
203
neomensural_timesig ("Mensural 6/4 meter", "neomensural64",
203
204
                        false, false, false, true);
204
205
 
205
206
%% tempus perfectum cum prolatione perfecta
206
 
neo_mens_timesig ("Mensural 9/4 meter", "neo_mensural9/4", "neomensuralninefourmeter",
 
207
neomensural_timesig ("Mensural 9/4 meter", "neomensural94",
207
208
                        true, false, false, true);
208
209
 
209
210
%% tempus perfectum cum prolatione imperfecta proportio dupla
210
 
neo_mens_timesig ("Mensural 3/4 meter", "neo_mensural3/4", "neomensuralthreefourmeter",
 
211
neomensural_timesig ("Mensural 3/4 meter", "neomensural34",
211
212
                        true, false, true, false);
212
213
 
213
214
%% tempus imperfectum cum prolatione perfecta proportio dupla
214
 
neo_mens_timesig ("Mensural 6/8 meter", "neo_mensural6/8", "neomensuralsixeightmeter",
 
215
neomensural_timesig ("Mensural 6/8 meter", "neomensural68",
215
216
                        false, false, true, true);
216
217
 
217
218
%% tempus perfectum cum prolatione perfecta proportio dupla
218
 
neo_mens_timesig ("Mensural 9/8 meter", "neo_mensural9/8", "neomensuralnineeight",
 
219
neomensural_timesig ("Mensural 9/8 meter", "neomensural98",
219
220
                        true, false, true, true);
220
221
        
221
222
%% tempus imperfectum cum prolatione imperfecta diminutio simplex
222
 
neo_mens_timesig ("Mensural 4/8 meter", "neo_mensural4/8", "neomensuralfoureightmeter",
 
223
neomensural_timesig ("Mensural 4/8 meter", "neomensural48",
223
224
                        false, true, false, false);
224
225
 
225
226
%% tempus imperfectum cum prolatione perfecta diminutio simplex
226
 
neo_mens_timesig ("Mensural 6/8 meter", "neo_mensural6/8alt", "neomensuralsixeightmeteralt",
 
227
neomensural_timesig ("Mensural 6/8 meter", "neomensural68alt",
227
228
                        false, true, false, true);
228
229
 
229
230
%% tempus imperfectum cum prolatione imperfecta diminutio duplex
230
 
neo_mens_timesig ("Mensural 2/4 meter", "neo_mensural2/4", "neomensuraltwofourmeter",
 
231
neomensural_timesig ("Mensural 2/4 meter", "neomensural24",
231
232
                        false, true, true, false);
232
233
 
233
234
fet_endgroup ("timesig")