Rietveld Code Review Tool
Help | Bug tracker | Discussion group | Source code | Sign in
(456)

Delta Between Two Patch Sets: mf/parmesan-scripts.mf

Issue 4951062: Glyphs for Kievan Notation (Closed)
Left Patch Set: Style cleanup Created 12 years, 6 months ago
Right Patch Set: Fixing remaining char_box issues Created 12 years, 2 months ago
Left:
Right:
Use n/p to move between diff chunks; N/P to move between comments. Please Sign in to add in-line comments.
Jump to:
Right: Side by side diff | Download
« no previous file with change/comment | « mf/parmesan-noteheads.mf ('k') | scm/output-lib.scm » ('j') | no next file with change/comment »
Toggle Intra-line Diffs ('i') | Expand Comments ('e') | Collapse Comments ('c') | Show Comments Hide Comments ('s')
LEFTRIGHT
(no file at all)
1 % Feta (not the Font-En-Tja) music font -- ancient script symbols 1 % Feta (not the Font-En-Tja) music font -- ancient script symbols
2 % This file is part of LilyPond, the GNU music typesetter. 2 % This file is part of LilyPond, the GNU music typesetter.
3 % 3 %
4 % Copyright (C) 2002--2012 Juergen Reuter <reuter@ipd.uka.de> 4 % Copyright (C) 2002--2012 Juergen Reuter <reuter@ipd.uka.de>
5 %· 5 %·
6 % 6 %
7 % LilyPond is free software: you can redistribute it and/or modify 7 % LilyPond is free software: you can redistribute it and/or modify
8 % it under the terms of the GNU General Public License as published by 8 % it under the terms of the GNU General Public License as published by
9 % the Free Software Foundation, either version 3 of the License, or 9 % the Free Software Foundation, either version 3 of the License, or
10 % (at your option) any later version. 10 % (at your option) any later version.
(...skipping 220 matching lines...) Expand 10 before | Expand all | Expand 10 after
231 draw_signum_congruentiae; 231 draw_signum_congruentiae;
232 labels (1, 2, 3, 4, 5, 6, 7, 8); 232 labels (1, 2, 3, 4, 5, 6, 7, 8);
233 fet_endchar; 233 fet_endchar;
234 234
235 235
236 fet_beginchar ("signum congruentiae down", "dsignumcongruentiae"); 236 fet_beginchar ("signum congruentiae down", "dsignumcongruentiae");
237 draw_signum_congruentiae; 237 draw_signum_congruentiae;
238 xy_mirror_char; 238 xy_mirror_char;
239 fet_endchar; 239 fet_endchar;
240 240
241 %%%%%%%%%%%%%
242 %%%%
243 %%%% Code for Kievan Notation
244 %%%%
245 %%%%%%%%%%%%%
246
247 fet_beginchar ("kievan end of piece (slash)", "barline.kievan");
248 % this draws the end of piece figure
249 % this figure is placed at the end of the musical piece, after the staff
250 save hair_thickness, thick_thickness, width, depth, height, padding;
251 hair# = 1.9 linethickness#;
252 thick# = 6.0 linethickness#;
253 width = .8 staff_space;
254 height# + depth# = 4 staff_space#;
255 depth# = height# + hair# / 2;
256 padding = .2 staff_space;
257
258 set_char_box (0, 0, depth#, height#);
259 define_pixels (hair, thick);
260
261 x1r - x2l = width;
262 y1 - y3r = d + h + linethickness / 2;
263 z3 = z2;
264 z4 = .5 [z1, z2] = (width / 2 + padding, hair / 8);
265 z5 = (x2 - .17 staff_space, 9/10 [y2, y1]);
266 z7 - z6 = (.5 staff_space, -.2 staff_space);
267 .4 [z6, z7] = 7/6 [z2, z1];
268
269 pickup pencircle scaled blot_diameter;
270 penpos1 (hair, 0);
271 penpos2 (hair, 0);
272 penpos3 (hair, -90);
273 penpos4 (thick, 10);
274 penpos5 (thick, 35);
275 penpos6 (hair, -90);
276 penpos7 (.5 thick, -120);
277
278 penlabels (1, 2, 3, 4, 5, 6, 7);
279
280 penstroke z1e
281 -- z2e;
282
283 fill simple_serif (z3l, z3r, 90){1.5 right}
284 .. z4r
285 .. z5r
286 .. z6r
287 .. simple_serif (z7r, z7l, 80)
288 .. {left}z6l
289 .. z5l
290 .. z4l
291 .. cycle;
292 fet_endchar;
241 293
242 fet_endgroup ("scripts"); 294 fet_endgroup ("scripts");
LEFTRIGHT

Powered by Google App Engine
RSS Feeds Recent Issues | This issue
This is Rietveld f62528b