← Back to branch summary

~ubuntu-branches/ubuntu/raring/muse/raring

« back to all changes in this revision

Viewing changes to share/scoreglyphs/feta-original/parmesan-scripts.mf

  • Committer: Package Import Robot
  • Author(s): Alessio Treglia
  • Date: 2011-08-12 11:16:41 UTC
  • mfrom: (1.1.9) (10.1.6 sid)
  • Revision ID: package-import@ubuntu.com-20110812111641-sjz0e93fr0ozfv0b
Tags: 2.0~beta2-1
http://bugs.debian.org/627371
http://bugs.debian.org/604584
http://bugs.debian.org/570833
* New maintainer (see bug 637185#12), thanks Daniel!
* New upstream release (Closes: #627371):
  - New interface Qt4-based (Closes: #604584)
* Refresh packaging:
  - Move to DH7 and source format 3.0 (quilt).
  - Refresh patchset.
  - Fix a bunch lintian warnings.
  - debian/postinst:
    + Use set -e in the body rather than pass -e on the #! line to make it
      have actually effect if it is run by hand with "sh /path/to/script".
  - Update instructions on how-to increase RTC clock frequency.
    Thanks to Torquil Macdonald Sørensen for the report (Closes: #570833).
  - Bump Standards.

Show diffs side-by-side

added added

removed removed

Lines of Context:
share/scoreglyphs/feta-original/parmesan-scripts.mf
 
1
% -%-Fundamental-%- -*-Metafont-*-
 
2
% parmesan-scripts.mf -- implement ancient script symbols
 
3
% 
 
4
% source file of LilyPond's pretty-but-neat music font
 
5
% 
 
6
% (c) 2002--2009 Juergen Reuter <reuter@ipd.uka.de>
 
7
% 
 
8
 
 
9
fet_begingroup ("scripts");
 
10
 
 
11
fet_beginchar ("ictus", "ictus");
 
12
        save ht, wd;
 
13
        ht# = .35 staff_space#;
 
14
        wd# = linethickness#;
 
15
 
 
16
        define_pixels (wd, ht);
 
17
 
 
18
        save ellipse, T;
 
19
        path ellipse;
 
20
        transform T;
 
21
 
 
22
        T := identity xscaled wd
 
23
                      yscaled blot_diameter;
 
24
        pickup pencircle transformed T;
 
25
        ellipse := fullcircle transformed T;
 
26
 
 
27
        set_char_box (wd# / 2, wd# / 2, ht# / 2, ht# / 2);
 
28
 
 
29
        x1 = 0;
 
30
        top y1 = ht / 2;
 
31
        x2 = 0;
 
32
        bot y2 = -ht / 2;
 
33
 
 
34
        fill get_subpath (ellipse, up, down, z1)
 
35
             -- get_subpath (ellipse, down, up, z2)
 
36
             -- cycle;
 
37
 
 
38
        labels (1, 2);
 
39
fet_endchar;
 
40
 
 
41
 
 
42
def draw_accentus =
 
43
        save thick, thin, ht, wd;
 
44
 
 
45
        thin# = 1 linethickness#;
 
46
        thick# = 1.2 linethickness#;
 
47
        ht# = .35 staff_space#;
 
48
        wd# = .25 staff_space#;
 
49
 
 
50
        define_pixels (wd, ht, thin, thick);
 
51
 
 
52
        z1 = z2 = (-wd / 2 + thin / 2, -ht / 2 + thin / 2);
 
53
        z3 = z4 = (wd / 2 - thick / 2, ht / 2 - thick / 2);
 
54
 
 
55
        penpos1 (thin, angle (z1 - z3));
 
56
        penpos2 (thin, angle (z1 - z3) + 90);
 
57
        penpos3 (thick, angle (z3 - z1) + 90);
 
58
        penpos4 (thick, angle (z3 - z1));
 
59
 
 
60
        fill z1r
 
61
             .. z2r
 
62
             -- z3l
 
63
             .. z4r
 
64
             .. z3r
 
65
             -- z2l
 
66
             .. cycle;
 
67
 
 
68
        set_char_box (wd#/2, wd#/2, ht#/2, ht#/2);
 
69
enddef;
 
70
 
 
71
 
 
72
fet_beginchar ("accentus up", "uaccentus");
 
73
        draw_accentus;
 
74
        penlabels (1, 2, 3, 4);
 
75
fet_endchar;
 
76
 
 
77
 
 
78
fet_beginchar ("accentus down", "daccentus");
 
79
        draw_accentus;
 
80
        y_mirror_char;
 
81
fet_endchar;
 
82
 
 
83
 
 
84
def draw_half_circle (expr diam) =
 
85
        save diameter, thick;
 
86
 
 
87
        diameter# = diam;
 
88
 
 
89
        define_pixels (diameter);
 
90
 
 
91
        thick = 0.6 linethickness;
 
92
 
 
93
        penpos1 (thick, 0);
 
94
        penpos2 (thick, -90);
 
95
        penpos3 (thick, -180);
 
96
 
 
97
        z1r = (diameter / 2, 0);
 
98
        z2r = (0, -diameter / 2);
 
99
        z3r = (-diameter / 2, 0);
 
100
        
 
101
        penstroke z1e{down}
 
102
                  .. z2e{left}
 
103
                  .. z3e{up};
 
104
enddef;
 
105
 
 
106
 
 
107
fet_beginchar ("half circle", "usemicirculus");
 
108
        draw_half_circle (5/16 staff_space#);
 
109
 
 
110
        currentpicture := currentpicture yscaled -1;
 
111
 
 
112
        set_char_box (diameter# / 2, diameter# / 2,
 
113
                      0, diameter# / 2);
 
114
fet_endchar;
 
115
 
 
116
 
 
117
fet_beginchar ("half circle", "dsemicirculus");
 
118
        draw_half_circle (5/16 staff_space#);
 
119
 
 
120
        set_char_box (diameter# / 2, diameter# / 2,
 
121
                      diameter# / 2, 0);
 
122
 
 
123
        penlabels (1, 2, 3);
 
124
fet_endchar;
 
125
 
 
126
 
 
127
fet_beginchar ("circle", "circulus");
 
128
        save diameter, thick;
 
129
 
 
130
        diameter# = 5/16 staff_space#;
 
131
 
 
132
        define_pixels (diameter);
 
133
 
 
134
        thick = 0.6 linethickness;
 
135
 
 
136
        fill fullcircle scaled diameter;
 
137
        unfill fullcircle scaled (diameter - 2 thick);
 
138
 
 
139
        set_char_box (diameter# / 2, diameter# / 2,
 
140
                      diameter# / 2, diameter# / 2);
 
141
fet_endchar;
 
142
 
 
143
 
 
144
fet_beginchar ("augmentum", "augmentum");
 
145
        save diameter;
 
146
 
 
147
        diameter# = 0.25 staff_space#;
 
148
 
 
149
        define_pixels (diameter);
 
150
 
 
151
        pickup pencircle scaled diameter;
 
152
 
 
153
        drawdot (0, 0);
 
154
 
 
155
        set_char_box (diameter# / 2, diameter# / 2,
 
156
                      diameter# / 2, diameter# / 2);
 
157
fet_endchar;
 
158
 
 
159
 
 
160
def draw_signum_congruentiae =
 
161
        set_char_box (0.50 staff_space# + 1.5 linethickness#,
 
162
                      0.50 staff_space# + 1.5 linethickness#,
 
163
                      2.5 linethickness#,
 
164
                      2.00 staff_space# + 3.5 linethickness#);
 
165
 
 
166
        save ellipse, pat;
 
167
        path ellipse, pat;
 
168
 
 
169
        ellipse := fullcircle xscaled 1.0 linethickness
 
170
                              yscaled 5.0 linethickness
 
171
                              rotated -35;
 
172
 
 
173
        z1 = (+0.50 staff_space, +2.00 staff_space);
 
174
        z2 = (+0.00 staff_space, +2.00 staff_space);
 
175
        z3 = (-0.50 staff_space, +1.50 staff_space);
 
176
        z4 = (-0.25 staff_space, +1.00 staff_space);
 
177
        z5 = (+0.10 staff_space, +0.80 staff_space);
 
178
        z6 = (+0.00 staff_space, +0.00 staff_space);
 
179
 
 
180
        pat := z1{-1, +1}
 
181
               .. z2
 
182
               .. z3
 
183
               .. z4
 
184
               .. z5
 
185
               .. z6;
 
186
 
 
187
        % we avoid cusps originally present in `draw pat'
 
188
        fill get_subpath (ellipse,
 
189
                          -direction 0 of pat, direction 0 of pat, z1)
 
190
             .. get_subpoint (ellipse, direction 1 of pat, z2)
 
191
                  {direction 1 of pat}
 
192
             .. get_subpoint (ellipse, direction 2 of pat, z3)
 
193
                  {direction 2 of pat}
 
194
             .. get_subpoint (ellipse, direction 3 of pat, z4)
 
195
                  {direction 3 of pat}
 
196
             .. get_subpoint (ellipse, direction 4 of pat, z5)
 
197
                  {direction 4 of pat}
 
198
             .. get_subpath (ellipse,
 
199
                             direction 4.8 of pat, -direction 5 of pat, z6)
 
200
             .. get_subpoint (ellipse, -direction 4 of pat, z5)
 
201
                  {-direction 4 of pat}
 
202
             .. get_subpoint (ellipse, -direction 3 of pat, z4)
 
203
                  {-direction 3 of pat}
 
204
             .. get_subpoint (ellipse, -direction 2.5 of pat, point 2.5 of pat)
 
205
             .. get_subpoint (ellipse, -direction 1 of pat, z2)
 
206
                  {-direction 1 of pat}
 
207
             .. cycle;
 
208
 
 
209
        pickup pencircle scaled 3.0 linethickness;
 
210
 
 
211
        z7 = (-0.5 staff_space, +0.0 staff_space);
 
212
        z8 = (+0.5 staff_space, +0.0 staff_space);
 
213
 
 
214
        drawdot z7;
 
215
        drawdot z8;
 
216
enddef;
 
217
 
 
218
 
 
219
fet_beginchar ("signum congruentiae up", "usignumcongruentiae");
 
220
        draw_signum_congruentiae;
 
221
        labels (1, 2, 3, 4, 5, 6, 7, 8);
 
222
fet_endchar;
 
223
 
 
224
 
 
225
fet_beginchar ("signum congruentiae down", "dsignumcongruentiae");
 
226
        draw_signum_congruentiae;
 
227
        xy_mirror_char;
 
228
fet_endchar;
 
229
 
 
230
 
 
231
fet_endgroup ("scripts");