LilyPond-Ruby 0.0.2.1 → 0.1.2

data/share/lilypond/2.24.1/fonts/source/parmesan-scripts.mf

@@ -0,0 +1,284 @@
+% Feta (not the Font-En-Tja) music font --  ancient script symbols
+% This file is part of LilyPond, the GNU music typesetter.
+%
+% Copyright (C) 2002--2022 Juergen Reuter <reuter@ipd.uka.de>
+%
+%
+% The LilyPond font is free software: you can redistribute it and/or modify
+% it under the terms of the GNU General Public License as published by
+% the Free Software Foundation, either version 3 of the License, or
+% (at your option) any later version, or under the SIL Open Font License.
+%
+% LilyPond is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
+
+fet_begingroup ("scripts");
+
+fet_beginchar ("ictus", "ictus");
+  save ht, wd;
+  ht# = .35 staff_space#;
+  wd# = 1.5 linethickness#;
+
+  define_pixels (wd, ht);
+
+  save ellipse, T;
+  path ellipse;
+  transform T;
+
+  T := identity xscaled wd
+                yscaled blot_diameter;
+  pickup pencircle transformed T;
+  ellipse := fullcircle transformed T;
+
+  set_char_box (wd# / 2, wd# / 2, ht# / 2, ht# / 2);
+
+  x1 = 0;
+  top y1 = ht / 2;
+  x2 = 0;
+  bot y2 = -ht / 2;
+
+  fill get_subpath (ellipse, up, down, z1)
+       -- get_subpath (ellipse, down, up, z2)
+       -- cycle;
+
+  labels (1, 2);
+fet_endchar;
+
+
+def draw_accentus =
+  save thick, thin, ht, wd;
+
+  thin# = 1 linethickness#;
+  thick# = 1.2 linethickness#;
+  ht# = .35 staff_space#;
+  wd# = .25 staff_space#;
+
+  define_pixels (wd, ht, thin, thick);
+
+  z1 = z2 = (-wd / 2 + thin / 2, -ht / 2 + thin / 2);
+  z3 = z4 = (wd / 2 - thick / 2, ht / 2 - thick / 2);
+
+  penpos1 (thin, angle (z1 - z3));
+  penpos2 (thin, angle (z1 - z3) + 90);
+  penpos3 (thick, angle (z3 - z1) + 90);
+  penpos4 (thick, angle (z3 - z1));
+
+  fill z1r
+       .. z2r
+       -- z3l
+       .. z4r
+       .. z3r
+       -- z2l
+       .. cycle;
+
+  set_char_box (wd#/2, wd#/2, ht#/2, ht#/2);
+enddef;
+
+
+fet_beginchar ("accentus up", "uaccentus");
+  draw_accentus;
+  penlabels (1, 2, 3, 4);
+fet_endchar;
+
+
+fet_beginchar ("accentus down", "daccentus");
+  draw_accentus;
+  y_mirror_char;
+fet_endchar;
+
+
+def draw_half_circle (expr diam) =
+  save diameter, thick;
+
+  diameter# = diam;
+
+  define_pixels (diameter);
+
+  thick = 0.6 linethickness;
+
+  penpos1 (thick, 0);
+  penpos2 (thick, -90);
+  penpos3 (thick, -180);
+
+  z1r = (diameter / 2, 0);
+  z2r = (0, -diameter / 2);
+  z3r = (-diameter / 2, 0);
+
+  penstroke z1e{down}
+            .. z2e{left}
+            .. z3e{up};
+enddef;
+
+
+fet_beginchar ("half circle up", "usemicirculus");
+  draw_half_circle (5/16 staff_space#);
+
+  currentpicture := currentpicture yscaled -1;
+
+  set_char_box (diameter# / 2, diameter# / 2,
+                0, diameter# / 2);
+fet_endchar;
+
+
+fet_beginchar ("half circle down", "dsemicirculus");
+  draw_half_circle (5/16 staff_space#);
+
+  set_char_box (diameter# / 2, diameter# / 2,
+                diameter# / 2, 0);
+
+  penlabels (1, 2, 3);
+fet_endchar;
+
+
+fet_beginchar ("circle", "circulus");
+  save diameter, thick;
+
+  diameter# = 5/16 staff_space#;
+
+  define_pixels (diameter);
+
+  thick = 0.6 linethickness;
+
+  fill fullcircle scaled diameter;
+  unfill fullcircle scaled (diameter - 2 thick);
+
+  set_char_box (diameter# / 2, diameter# / 2,
+                diameter# / 2, diameter# / 2);
+fet_endchar;
+
+
+def draw_signum_congruentiae =
+  set_char_box (0.50 staff_space# + 1.5 linethickness#,
+                0.50 staff_space# + 1.5 linethickness#,
+                2.5 linethickness#,
+                2.00 staff_space# + 3.5 linethickness#);
+
+  save ellipse, pat;
+  path ellipse, pat;
+
+  ellipse := fullcircle xscaled 1.0 linethickness
+                        yscaled 5.0 linethickness
+                        rotated -35;
+
+  z1 = (+0.50 staff_space, +2.00 staff_space);
+  z2 = (+0.00 staff_space, +2.00 staff_space);
+  z3 = (-0.50 staff_space, +1.50 staff_space);
+  z4 = (-0.25 staff_space, +1.00 staff_space);
+  z5 = (+0.10 staff_space, +0.80 staff_space);
+  z6 = (+0.00 staff_space, +0.00 staff_space);
+
+  pat := z1{-1, +1}
+         .. z2
+         .. z3
+         .. z4
+         .. z5
+         .. z6;
+
+  % we avoid cusps originally present in `draw pat'
+  fill get_subpath (ellipse,
+                    -direction 0 of pat, direction 0 of pat, z1)
+       .. get_subpoint (ellipse, direction 1 of pat, z2)
+            {direction 1 of pat}
+       .. get_subpoint (ellipse, direction 2 of pat, z3)
+            {direction 2 of pat}
+       .. get_subpoint (ellipse, direction 3 of pat, z4)
+            {direction 3 of pat}
+       .. get_subpoint (ellipse, direction 4 of pat, z5)
+            {direction 4 of pat}
+       .. get_subpath (ellipse,
+                       direction 4.8 of pat, -direction 5 of pat, z6)
+       .. get_subpoint (ellipse, -direction 4 of pat, z5)
+            {-direction 4 of pat}
+       .. get_subpoint (ellipse, -direction 3 of pat, z4)
+            {-direction 3 of pat}
+       .. get_subpoint (ellipse, -direction 2.5 of pat, point 2.5 of pat)
+       .. get_subpoint (ellipse, -direction 1 of pat, z2)
+            {-direction 1 of pat}
+       .. cycle;
+
+  pickup pencircle scaled 3.0 linethickness;
+
+  z7 = (-0.5 staff_space, +0.0 staff_space);
+  z8 = (+0.5 staff_space, +0.0 staff_space);
+
+  drawdot z7;
+  drawdot z8;
+enddef;
+
+
+fet_beginchar ("signum congruentiae up", "usignumcongruentiae");
+  draw_signum_congruentiae;
+  labels (1, 2, 3, 4, 5, 6, 7, 8);
+fet_endchar;
+
+
+fet_beginchar ("signum congruentiae down", "dsignumcongruentiae");
+  draw_signum_congruentiae;
+  xy_mirror_char;
+fet_endchar;
+
+
+%%%%%%%%%%%%%
+%%%%
+%%%% Code for Kievan Notation
+%%%%
+%%%%%%%%%%%%%
+
+
+fet_beginchar ("Kievan end of piece (slash)", "barline.kievan");
+  % This draws the end of piece figure.
+  % This figure is placed at the end of the musical piece,
+  % after the staff.
+
+  save hair_thickness, thick_thickness, width, depth, height, padding;
+  hair# = 1.9 linethickness#;
+  thick# = 6.0 linethickness#;
+  width# = 1.0 staff_space#;
+  height# + depth# = 4 staff_space#;
+  depth# = height# + hair#;
+  padding# = .2 staff_space#;
+
+  set_char_box (0, width# + 3 padding#, depth#, height# + staff_space#);
+  define_pixels (hair, thick, width, padding, depth, height);
+
+  x7r - x2l = width;
+  y1 - y3r = depth + height + linethickness / 2;
+  z3 = z2;
+  z4 = .5 [z1, z2]
+     = (width / 2 + padding, hair / 8);
+  z5 = (x2 - .17 staff_space, 9/10 [y2, y1]);
+  z7 - z6 = (.5 staff_space, -.2 staff_space);
+  .4 [z6, z7] = 7/6 [z2, z1];
+
+  penpos1 (hair, 0);
+  penpos2 (hair, 0);
+  penpos3 (hair, -90);
+  penpos4 (thick, 10);
+  penpos5 (thick, 35);
+  penpos6 (hair, -90);
+  penpos7 (.5 thick, -120);
+
+  penlabels (1, 2, 3, 4, 5, 6, 7);
+
+  penstroke z1e
+            -- z2e;
+
+  fill z3l
+       -- z2l{z2 - z1}
+       .. z3r{right}
+       .. z4r
+       .. z5r
+       .. z6r
+       .. simple_serif (z7r, z7l, 80)
+       .. {left}z6l
+       .. z5l
+       .. z4l
+       .. {left}cycle;
+fet_endchar;
+
+fet_endgroup ("scripts");

data/share/lilypond/2.24.1/fonts/source/parmesan-timesignatures.mf

@@ -0,0 +1,402 @@
+% Feta (not the Font-En-Tja) music font --  ancient time signatures
+% This file is part of LilyPond, the GNU music typesetter.
+%
+% Copyright (C) 1998--2022 Mats Bengtsson <matsb@s3.kth.se>,
+%                 Christian Mondrup <scancm@biobase.dk>
+% Copyright (C) 2002--2022 Juergen Reuter <reuter@ipd.uka.de>
+%
+% The LilyPond font is free software: you can redistribute it and/or modify
+% it under the terms of the GNU General Public License as published by
+% the Free Software Foundation, either version 3 of the License, or
+% (at your option) any later version, or under the SIL Open Font License.
+%
+% LilyPond is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
+
+fet_begingroup ("timesig");
+
+
+path threequartercircle;
+
+threequartercircle := halfcircle & quartercircle rotated 180;
+
+save mensural_Cdiameter, mensural_Cthickness, mensural_Chairpin;
+
+mensural_Cdiameter# := 3/2 staff_space#;
+mensural_Cthickness# := 2 linethickness#;
+mensural_Chairpin# := 0.5 linethickness#;
+
+define_pixels (mensural_Cdiameter, mensural_Cthickness, mensural_Chairpin);
+
+
+%%%%%%%%
+%
+%
+%
+% MENSURAL NOTATION
+%
+%
+%
+
+def draw_nail (expr bottom_left, top_right) =
+  save round;
+
+  round = floor min (blot_diameter,
+                     xpart (top_right-bottom_left),
+                     ypart (top_right-bottom_left));
+
+  pickup pencircle scaled round;
+
+  z2 + (round / 2, round / 2) = top_right
+                                + (mensural_Cthickness / 2, 0);
+  z4 - (round / 2,round / 2) = bottom_left;
+  y3 = y2;
+  y4 = y1;
+  x2 = x1 + mensural_Cthickness / 2;
+  x2 - x1 = x4 - x3;
+  x5 = x1;
+  x6 = x4;
+  y5 = y6 = y2 - 2 mensural_Cthickness;
+
+  fill bot z1{right}
+       .. rt z1{up}
+       -- rt z5{up}
+       .. rt z2
+       .. top z2{left}
+       -- top z3{left}
+       .. lft z3
+       .. lft z6{down}
+       -- lft z4{down}
+       .. bot z4{right}
+       -- cycle;
+
+  % labels (1, 2, 3, 4, 5, 6);
+enddef;
+
+
+def mensural_timesig (expr verbose_name, internal_name,
+                           full_circle, reverse_circle, slashed, dotted) =
+  fet_beginchar (verbose_name, internal_name);
+    if slashed:
+      set_char_box (
+        0,
+        mensural_Cdiameter# + mensural_Cthickness#,
+        .75 (mensural_Cdiameter# + mensural_Cthickness#),
+        .75 (mensural_Cdiameter# + mensural_Cthickness#));
+
+      if (full_circle or dotted):
+        draw_nail ((-mensural_Cthickness / 2, -d),
+                   (mensural_Cthickness / 2, h));
+      elseif reverse_circle:
+        draw_nail ((0, -d), (mensural_Cthickness, h));
+      else:
+        draw_nail ((-mensural_Cthickness, -d), (0, h));
+      fi;
+    else:
+      set_char_box (
+        0,
+        mensural_Cdiameter# + mensural_Cthickness#,
+        .5 (mensural_Cdiameter# + mensural_Cthickness#),
+        .5 (mensural_Cdiameter# + mensural_Cthickness#));
+    fi;
+
+    save ellipse, pat;
+    path ellipse, pat;
+
+    ellipse := fullcircle xscaled mensural_Cthickness
+                          yscaled mensural_Chairpin;
+
+    save rot;
+
+    if reverse_circle:
+      rot := 225;
+    else:
+      rot := 45;
+    fi;
+
+    if full_circle:
+      pat := fullcircle scaled mensural_Cdiameter;
+
+      fill get_subpoint (ellipse,
+                         direction 0 of pat,
+                         point 0 of pat)
+           for i = 1 step 1 until length pat:
+             .. get_subpoint (ellipse,
+                              direction i of pat,
+                              point i of pat)
+           endfor
+           .. cycle;
+      unfill get_subpoint (ellipse,
+                           -direction 0 of pat,
+                           point 0 of pat)
+             for i = 1 step 1 until length pat:
+                                       .. get_subpoint (ellipse,
+                          -direction i of pat,
+                          point i of pat)
+             endfor
+             .. cycle;
+    else:
+      pat := threequartercircle rotated rot scaled mensural_Cdiameter;
+
+      fill get_subpath (ellipse,
+                        -direction 0 of pat,
+                        direction 0 of pat,
+                        point 0 of pat)
+           for i = 1 step 1 until (length pat - 1):
+             .. get_subpoint (ellipse,
+                              direction i of pat,
+                              point i of pat)
+           endfor
+           .. get_subpath (ellipse,
+                           direction infinity of pat,
+                           -direction infinity of pat,
+                           point infinity of pat)
+           for i = (length pat - 1) step -1 until 1:
+             .. get_subpoint (ellipse,
+                              -direction i of pat,
+                              point i of pat)
+           endfor
+           .. cycle;
+    fi;
+
+    if dotted:
+      pickup pencircle scaled 4 linethickness;
+      drawdot (0, 0);
+    fi;
+
+    currentpicture := currentpicture
+                        shifted 0.5 (mensural_Cdiameter
+                                     + mensural_Cthickness, 0);
+  fet_endchar;
+enddef;
+
+
+%% tempus imperfectum cum prolatione imperfecta
+mensural_timesig ("mensural 4/4 meter", "mensural44",
+                  false, false, false, false);
+
+
+%% tempus imperfectum cum prolatione imperfecta proportio dupla
+mensural_timesig ("mensural 2/2 meter", "mensural22",
+                  false, false, true, false);
+
+
+%% tempus perfectum cum prolatione imperfecta
+mensural_timesig ("mensural 3/2 meter", "mensural32",
+                  true, false, false, false);
+
+
+%% tempus imperfectum cum prolatione perfecta
+mensural_timesig ("mensural 6/4 meter", "mensural64",
+                  false, false, false, true);
+
+
+%% tempus perfectum cum prolatione perfecta
+mensural_timesig ("mensural 9/4 meter", "mensural94",
+                  true, false, false, true);
+
+
+%% tempus perfectum cum prolatione imperfecta proportio dupla
+mensural_timesig ("mensural 3/4 meter", "mensural34",
+                  true, false, true, false);
+
+
+%% tempus imperfectum cum prolatione perfecta proportio dupla
+mensural_timesig ("mensural 6/8 meter", "mensural68",
+                  false, false, true, true);
+
+
+%% tempus perfectum cum prolatione perfecta proportio dupla
+mensural_timesig ("mensural 9/8 meter", "mensural98",
+                  true, false, true, true);
+
+
+%% tempus imperfectum cum prolatione imperfecta diminutio simplex
+mensural_timesig ("mensural 4/8 meter", "mensural48",
+                  false, true, false, false);
+
+
+%% tempus imperfectum cum prolatione perfecta diminutio simplex
+mensural_timesig ("mensural 6/8 meter", "mensural68alt",
+                  false, true, false, true);
+
+
+%% tempus imperfectum cum prolatione imperfecta diminutio duplex
+mensural_timesig ("mensural 2/4 meter", "mensural24",
+                  false, true, true, false);
+
+
+%%%%%%%%
+%
+%
+%
+% NEO-MENSURAL NOTATION
+%
+%
+%
+
+save neomensural_Cdiameter, neomensural_Cthickness;
+
+neomensural_Cdiameter# := 3/2 staff_space#;
+neomensural_Cthickness# := 2 linethickness#;
+
+define_pixels (neomensural_Cdiameter, neomensural_Cthickness);
+
+
+def neomensural_timesig (expr verbose_name, internal_name,
+                              full_circle, reverse_circle, slashed, dotted) =
+  fet_beginchar (verbose_name, internal_name);
+    set_char_box (
+      0,
+      neomensural_Cdiameter# + neomensural_Cthickness#,
+      .5 (neomensural_Cdiameter# + neomensural_Cthickness#),
+      .5 (neomensural_Cdiameter# + neomensural_Cthickness#));
+
+    if slashed:
+      pickup penrazor scaled neomensural_Cthickness;
+
+      save t;
+      t := neomensural_Cthickness / 2;
+
+      if (full_circle or dotted):
+        draw (0, -d + t)
+             -- (0, h - t);
+      elseif reverse_circle:
+        draw (t, -d + t)
+             -- (t, h - t);
+      else:
+        draw (-t, -d + t)
+             -- (-t, h - t);
+      fi;
+    fi;
+
+    save ellipse, pat;
+    path ellipse, pat;
+
+    ellipse := fullcircle scaled neomensural_Cthickness;
+
+    save rot;
+
+    if reverse_circle:
+      rot := 225;
+    else:
+      rot := 45;
+    fi;
+
+    if full_circle:
+      pat := fullcircle scaled neomensural_Cdiameter;
+
+      fill get_subpoint (ellipse,
+                         direction 0 of pat,
+                         point 0 of pat)
+           for i = 1 step 1 until length pat:
+             .. get_subpoint (ellipse,
+                              direction i of pat,
+                              point i of pat)
+           endfor
+           .. cycle;
+      unfill get_subpoint (ellipse,
+                           -direction 0 of pat,
+                           point 0 of pat)
+             for i = 1 step 1 until length pat:
+               .. get_subpoint (ellipse,
+                                -direction i of pat,
+                                point i of pat)
+             endfor
+             .. cycle;
+    else:
+      pat := threequartercircle rotated rot scaled neomensural_Cdiameter;
+
+      fill get_subpath (ellipse,
+                        -direction 0 of pat,
+                        direction 0 of pat,
+                        point 0 of pat)
+           for i = 1 step 1 until (length pat - 1):
+             .. get_subpoint (ellipse,
+                              direction i of pat,
+                              point i of pat)
+           endfor
+           .. get_subpath (ellipse,
+                           direction infinity of pat,
+                           -direction infinity of pat,
+                           point infinity of pat)
+           for i = (length pat - 1) step -1 until 1:
+             .. get_subpoint (ellipse,
+                              -direction i of pat,
+                              point i of pat)
+           endfor
+           .. cycle;
+    fi;
+
+    if dotted:
+      pickup pencircle scaled 4 linethickness;
+      drawdot (0, 0);
+    fi;
+
+    currentpicture := currentpicture
+                        shifted 0.5 (neomensural_Cdiameter
+                                     + neomensural_Cthickness, 0);
+  fet_endchar;
+enddef;
+
+
+%% tempus imperfectum cum prolatione imperfecta
+neomensural_timesig ("mensural 4/4 meter", "neomensural44",
+                     false, false, false, false);
+
+
+%% tempus imperfectum cum prolatione imperfecta proportio dupla
+neomensural_timesig ("mensural 2/2 meter", "neomensural22",
+                     false, false, true, false);
+
+
+%% tempus perfectum cum prolatione imperfecta
+neomensural_timesig ("mensural 3/2 meter", "neomensural32",
+                     true, false, false, false);
+
+
+%% tempus imperfectum cum prolatione perfecta
+neomensural_timesig ("mensural 6/4 meter", "neomensural64",
+                     false, false, false, true);
+
+
+%% tempus perfectum cum prolatione perfecta
+neomensural_timesig ("mensural 9/4 meter", "neomensural94",
+                     true, false, false, true);
+
+
+%% tempus perfectum cum prolatione imperfecta proportio dupla
+neomensural_timesig ("mensural 3/4 meter", "neomensural34",
+                     true, false, true, false);
+
+
+%% tempus imperfectum cum prolatione perfecta proportio dupla
+neomensural_timesig ("mensural 6/8 meter", "neomensural68",
+                     false, false, true, true);
+
+
+%% tempus perfectum cum prolatione perfecta proportio dupla
+neomensural_timesig ("mensural 9/8 meter", "neomensural98",
+                     true, false, true, true);
+
+
+%% tempus imperfectum cum prolatione imperfecta diminutio simplex
+neomensural_timesig ("mensural 4/8 meter", "neomensural48",
+                     false, true, false, false);
+
+
+%% tempus imperfectum cum prolatione perfecta diminutio simplex
+neomensural_timesig ("mensural 6/8 meter", "neomensural68alt",
+                     false, true, false, true);
+
+
+%% tempus imperfectum cum prolatione imperfecta diminutio duplex
+neomensural_timesig ("mensural 2/4 meter", "neomensural24",
+                     false, true, true, false);
+
+fet_endgroup ("timesig");

data/share/lilypond/2.24.1/fonts/source/parmesan11.mf

@@ -0,0 +1,6 @@
+% Produce font files at specified size.
+
+design_size := 11.22;
+
+input parmesan-other-generic;
+end.

data/share/lilypond/2.24.1/fonts/source/parmesan13.mf

@@ -0,0 +1,6 @@
+% Produce font files at specified size.
+
+design_size := 12.60;
+
+input parmesan-other-generic;
+end.

data/share/lilypond/2.24.1/fonts/source/parmesan14.mf

@@ -0,0 +1,6 @@
+% Produce font files at specified size.
+
+design_size := 14.14;
+
+input parmesan-other-generic;
+end.

data/share/lilypond/2.24.1/fonts/source/parmesan16.mf

@@ -0,0 +1,6 @@
+% Produce font files at specified size.
+
+design_size := 15.87;
+
+input parmesan-other-generic;
+end.