From 1cf4d57beae43438fc53bcf9e96c000a2e84c0fe Mon Sep 17 00:00:00 2001 From: fred Date: Wed, 27 Mar 2002 02:02:41 +0000 Subject: [PATCH] lilypond-1.5.9 --- ly/catalan.ly | 74 ++++++++++++++++++++++++++++++++ ly/english.ly | 82 ++++++++++++++++++++++++++++++++++++ ly/italiano.ly | 51 ++++++++++++++++++++++ ly/nederlands.ly | 49 ++++++++++++++++++++++ ly/norsk.ly | 107 +++++++++++++++++++++++++++++++++++++++++++++++ ly/svenska.ly | 43 +++++++++++++++++++ 6 files changed, 406 insertions(+) create mode 100644 ly/catalan.ly create mode 100644 ly/english.ly create mode 100644 ly/italiano.ly create mode 100644 ly/nederlands.ly create mode 100644 ly/norsk.ly create mode 100644 ly/svenska.ly diff --git a/ly/catalan.ly b/ly/catalan.ly new file mode 100644 index 0000000000..74d42851d1 --- /dev/null +++ b/ly/catalan.ly @@ -0,0 +1,74 @@ +%{ + + Common catalan names for notes. "b" means flat (bemoll), "d" means sharp (diesi). + Also "s" is included for sharp (sostingut). Both "diesi" and "sostingut" are approved + by "Diccionari de la Llengua Catalana" from "Institut d'Estudis Catalans". + + Adapted from italiano.ly. + + English: a b c d e f g + Catalan: la si do re mi fa sol + + For spanish naming just use the sharp sign "s" (sostenido) instead of "s" +(sostenido) . +%} + +% contributed by Jaume Obrador + + +% For using "sostingut" notation, which is also correct +\pitchnames #`( + (dobb . ,(make-pitch -1 0 -2 )) + (dob . ,(make-pitch -1 0 -1 )) + (do . ,(make-pitch -1 0 0 )) + (dod . ,(make-pitch -1 0 1 )) + (dodd . ,(make-pitch -1 0 2 )) + (rebb . ,(make-pitch -1 1 -2 )) + (reb . ,(make-pitch -1 1 -1 )) + (re . ,(make-pitch -1 1 0 )) + (red . ,(make-pitch -1 1 1 )) + (redd . ,(make-pitch -1 1 2 )) + (mibb . ,(make-pitch -1 2 -2 )) + (mib . ,(make-pitch -1 2 -1 )) + (mi . ,(make-pitch -1 2 0 )) + (mid . ,(make-pitch -1 2 1 )) + (midd . ,(make-pitch -1 2 2 )) + (fabb . ,(make-pitch -1 3 -2 )) + (fab . ,(make-pitch -1 3 -1 )) + (fa . ,(make-pitch -1 3 0 )) + (fad . ,(make-pitch -1 3 1 )) + (fadd . ,(make-pitch -1 3 2 )) + (solbb . ,(make-pitch -1 4 -2 )) + (solb . ,(make-pitch -1 4 -1 )) + (sol . ,(make-pitch -1 4 0 )) + (sold . ,(make-pitch -1 4 1 )) + (soldd . ,(make-pitch -1 4 2 )) + (labb . ,(make-pitch -1 5 -2 )) + (lab . ,(make-pitch -1 5 -1 )) + (la . ,(make-pitch -1 5 0 )) + (lad . ,(make-pitch -1 5 1 )) + (ladd . ,(make-pitch -1 5 2 )) + (sibb . ,(make-pitch -1 6 -2 )) + (sib . ,(make-pitch -1 6 -1 )) + (si . ,(make-pitch -1 6 0 )) + (sid . ,(make-pitch -1 6 1 )) + (sidd . ,(make-pitch -1 6 2 )) + (dos . ,(make-pitch -1 0 1 )) + (doss . ,(make-pitch -1 0 2 )) + (res . ,(make-pitch -1 1 1 )) + (ress . ,(make-pitch -1 1 2 )) + (mis . ,(make-pitch -1 2 1 )) + (miss . ,(make-pitch -1 2 2 )) + (fas . ,(make-pitch -1 3 1 )) + (fass . ,(make-pitch -1 3 2 )) + (sols . ,(make-pitch -1 4 1 )) + (solss . ,(make-pitch -1 4 2 )) + (las . ,(make-pitch -1 5 1 )) + (lass . ,(make-pitch -1 5 2 )) + (sis . ,(make-pitch -1 6 1 )) + (siss . ,(make-pitch -1 6 2 )) +) + + + +\version "1.3.146" diff --git a/ly/english.ly b/ly/english.ly new file mode 100644 index 0000000000..9afeff28f6 --- /dev/null +++ b/ly/english.ly @@ -0,0 +1,82 @@ +%{ + English note names spelled out in full, and abbreviated + with s for sharp and f for flat. +%} + +\pitchnames #`( + (cflatflat . ,(make-pitch -1 0 -2 )) + (cflat . ,(make-pitch -1 0 -1 )) + (c . ,(make-pitch -1 0 0 )) + (csharp . ,(make-pitch -1 0 1 )) + (csharpsharp . ,(make-pitch -1 0 2 )) + (dflatflat . ,(make-pitch -1 1 -2 )) + (dflat . ,(make-pitch -1 1 -1 )) + (d . ,(make-pitch -1 1 0 )) + (dsharp . ,(make-pitch -1 1 1 )) + (dsharpsharp . ,(make-pitch -1 1 2 )) + (eflatflat . ,(make-pitch -1 2 -2 )) + (eflat . ,(make-pitch -1 2 -1 )) + (e . ,(make-pitch -1 2 0 )) + (esharp . ,(make-pitch -1 2 1 )) + (esharpsharp . ,(make-pitch -1 2 2 )) + (fflatflat . ,(make-pitch -1 3 -2 )) + (fflat . ,(make-pitch -1 3 -1 )) + (f . ,(make-pitch -1 3 0 )) + (fsharp . ,(make-pitch -1 3 1 )) + (fsharpsharp . ,(make-pitch -1 3 2 )) + (gflatflat . ,(make-pitch -1 4 -2 )) + (gflat . ,(make-pitch -1 4 -1 )) + (g . ,(make-pitch -1 4 0 )) + (gsharp . ,(make-pitch -1 4 1 )) + (gsharpsharp . ,(make-pitch -1 4 2 )) + (aflatflat . ,(make-pitch -1 5 -2 )) + (aflat . ,(make-pitch -1 5 -1 )) + (a . ,(make-pitch -1 5 0 )) + (asharp . ,(make-pitch -1 5 1 )) + (asharpsharp . ,(make-pitch -1 5 2 )) + (bflatflat . ,(make-pitch -1 6 -2 )) + (bflat . ,(make-pitch -1 6 -1 )) + (b . ,(make-pitch -1 6 0 )) + (bsharp . ,(make-pitch -1 6 1 )) + (bsharpsharp . ,(make-pitch -1 6 2 )) + + (cff . ,(make-pitch -1 0 -2 )) + (cf . ,(make-pitch -1 0 -1 )) + (c . ,(make-pitch -1 0 0 )) + (cs . ,(make-pitch -1 0 1 )) + (css . ,(make-pitch -1 0 2 )) + (dff . ,(make-pitch -1 1 -2 )) + (df . ,(make-pitch -1 1 -1 )) + (d . ,(make-pitch -1 1 0 )) + (ds . ,(make-pitch -1 1 1 )) + (dss . ,(make-pitch -1 1 2 )) + (eff . ,(make-pitch -1 2 -2 )) + (ef . ,(make-pitch -1 2 -1 )) + (e . ,(make-pitch -1 2 0 )) + + (es . ,(make-pitch -1 2 1 )) + (ess . ,(make-pitch -1 2 2 )) + (fff . ,(make-pitch -1 3 -2 )) + (ff . ,(make-pitch -1 3 -1 )) + (f . ,(make-pitch -1 3 0 )) + (fs . ,(make-pitch -1 3 1 )) + (fss . ,(make-pitch -1 3 2 )) + (gff . ,(make-pitch -1 4 -2 )) + (gf . ,(make-pitch -1 4 -1 )) + (g . ,(make-pitch -1 4 0 )) + (gs . ,(make-pitch -1 4 1 )) + (gss . ,(make-pitch -1 4 2 )) + (aff . ,(make-pitch -1 5 -2 )) + (af . ,(make-pitch -1 5 -1 )) + (a . ,(make-pitch -1 5 0 )) + (as . ,(make-pitch -1 5 1 )) + (ass . ,(make-pitch -1 5 2 )) + (bff . ,(make-pitch -1 6 -2 )) + (bf . ,(make-pitch -1 6 -1 )) + (b . ,(make-pitch -1 6 0 )) + (bs . ,(make-pitch -1 6 1 )) + (bss . ,(make-pitch -1 6 2 )) +) + +\version "1.3.146" + diff --git a/ly/italiano.ly b/ly/italiano.ly new file mode 100644 index 0000000000..263d2bfab9 --- /dev/null +++ b/ly/italiano.ly @@ -0,0 +1,51 @@ +%{ + Common italian names for notes. "b" means flat (bemolle), "d" means sharp (diesis) + Adapted from dutch.ly. + + English: a b c d e f g + Italian: la si do re mi fa sol + + For french naming just change 'do' in 'ut'. +%} + +% contributed by Paolo Zuliani + +\pitchnames #`( + (dobb . ,(make-pitch -1 0 -2 )) + (dob . ,(make-pitch -1 0 -1 )) + (do . ,(make-pitch -1 0 0 )) + (dod . ,(make-pitch -1 0 1 )) + (dodd . ,(make-pitch -1 0 2 )) + (rebb . ,(make-pitch -1 1 -2 )) + (reb . ,(make-pitch -1 1 -1 )) + (re . ,(make-pitch -1 1 0 )) + (red . ,(make-pitch -1 1 1 )) + (redd . ,(make-pitch -1 1 2 )) + (mibb . ,(make-pitch -1 2 -2 )) + (mib . ,(make-pitch -1 2 -1 )) + (mi . ,(make-pitch -1 2 0 )) + (mid . ,(make-pitch -1 2 1 )) + (midd . ,(make-pitch -1 2 2 )) + (fabb . ,(make-pitch -1 3 -2 )) + (fab . ,(make-pitch -1 3 -1 )) + (fa . ,(make-pitch -1 3 0 )) + (fad . ,(make-pitch -1 3 1 )) + (fadd . ,(make-pitch -1 3 2 )) + (solbb . ,(make-pitch -1 4 -2 )) + (solb . ,(make-pitch -1 4 -1 )) + (sol . ,(make-pitch -1 4 0 )) + (sold . ,(make-pitch -1 4 1 )) + (soldd . ,(make-pitch -1 4 2 )) + (labb . ,(make-pitch -1 5 -2 )) + (lab . ,(make-pitch -1 5 -1 )) + (la . ,(make-pitch -1 5 0 )) + (lad . ,(make-pitch -1 5 1 )) + (ladd . ,(make-pitch -1 5 2 )) + (sibb . ,(make-pitch -1 6 -2 )) + (sib . ,(make-pitch -1 6 -1 )) + (si . ,(make-pitch -1 6 0 )) + (sid . ,(make-pitch -1 6 1 )) + (sidd . ,(make-pitch -1 6 2 )) +) + +\version "1.3.146" diff --git a/ly/nederlands.ly b/ly/nederlands.ly new file mode 100644 index 0000000000..bba3d0ad31 --- /dev/null +++ b/ly/nederlands.ly @@ -0,0 +1,49 @@ +\version "1.3.146" +%{ + common dutch names for notes. es means flat, is means sharp +%} + +\pitchnames #`( + (ceses . ,(make-pitch -1 0 -2)) + (ces . ,(make-pitch -1 0 -1 )) + (c . ,(make-pitch -1 0 0 )) + (cis . ,(make-pitch -1 0 1 )) + (cisis . ,(make-pitch -1 0 2 )) + (deses . ,(make-pitch -1 1 -2 )) + (des . ,(make-pitch -1 1 -1 )) + (d . ,(make-pitch -1 1 0 )) + (dis . ,(make-pitch -1 1 1 )) + (disis . ,(make-pitch -1 1 2 )) + (eeses . ,(make-pitch -1 2 -2 )) + (eses . ,(make-pitch -1 2 -2 )) + (ees . ,(make-pitch -1 2 -1 )) + (es . ,(make-pitch -1 2 -1 )) + (e . ,(make-pitch -1 2 0 )) + (eis . ,(make-pitch -1 2 1 )) + (eisis . ,(make-pitch -1 2 2 )) + (feses . ,(make-pitch -1 3 -2 )) + (fes . ,(make-pitch -1 3 -1 )) + (f . ,(make-pitch -1 3 0 )) + (fis . ,(make-pitch -1 3 1 )) + (fisis . ,(make-pitch -1 3 2 )) + (geses . ,(make-pitch -1 4 -2 )) + (ges . ,(make-pitch -1 4 -1 )) + (g . ,(make-pitch -1 4 0 )) + (gis . ,(make-pitch -1 4 1 )) + (gisis . ,(make-pitch -1 4 2 )) + (aeses . ,(make-pitch -1 5 -2 )) + (ases . ,(make-pitch -1 5 -2 )) + (aes . ,(make-pitch -1 5 -1 )) + (as . ,(make-pitch -1 5 -1 )) + (a . ,(make-pitch -1 5 0 )) + (ais . ,(make-pitch -1 5 1 )) + (aisis . ,(make-pitch -1 5 2 )) + (beses . ,(make-pitch -1 6 -2 )) + (bes . ,(make-pitch -1 6 -1 )) + (b . ,(make-pitch -1 6 0 )) + (bis . ,(make-pitch -1 6 1 )) + (bisis . ,(make-pitch -1 6 2 )) +) + + + diff --git a/ly/norsk.ly b/ly/norsk.ly new file mode 100644 index 0000000000..f6630bab93 --- /dev/null +++ b/ly/norsk.ly @@ -0,0 +1,107 @@ + +% Idx norsk.ly,v 1.1 1998/03/25 11:38:28 arvidg Exp arvidg $ + +%{ + + Common norwegian names for notes, including versions without the + double s-es to save typing, as well as the traditional names with + them not to confuse musicians. "es" or "ess" means flat, "is" or + "iss" means sharp. + + Otherwise, the main difference from the dutch names is the that the + "b" is called "h" in norwegian, while the dutch "bes" is a norwegian + "b". + + Staying within the (proud?) naming convention for norwegian language + setup used in LaTeX, this file is called "norsk.ly" instead of + "norwegian.ly", even if all other languages' files use the english + name. + + This file is based on "dutch.ly". Basically, I copied "dutch.ly", + duplicated all lines containing at least one "is" or "es", changed + every other "is" into an "iss" and every other "es" into an "ess", + added "ass" et al, and made some b->h-related changes. There may be + bugs in here please tell me (or send patches) if you find any. + + Arvid Gr=F8tting + +%} + +\pitchnames #`( + (ceses . ,(make-pitch -1 0 -2 )) + (cessess . ,(make-pitch -1 0 -2 )) + (ces . ,(make-pitch -1 0 -1 )) + (cess . ,(make-pitch -1 0 -1 )) + (c . ,(make-pitch -1 0 0 )) + (cis . ,(make-pitch -1 0 1 )) + (ciss . ,(make-pitch -1 0 1 )) + (cisis . ,(make-pitch -1 0 2 )) + (cississ . ,(make-pitch -1 0 2 )) + (deses . ,(make-pitch -1 1 -2 )) + (dessess . ,(make-pitch -1 1 -2 )) + (des . ,(make-pitch -1 1 -1 )) + (dess . ,(make-pitch -1 1 -1 )) + (d . ,(make-pitch -1 1 0 )) + (dis . ,(make-pitch -1 1 1 )) + (diss . ,(make-pitch -1 1 1 )) + (disis . ,(make-pitch -1 1 2 )) + (dississ . ,(make-pitch -1 1 2 )) + (eeses . ,(make-pitch -1 2 -2 )) + (eessess . ,(make-pitch -1 2 -2 )) + (eses . ,(make-pitch -1 2 -2 )) + (essess . ,(make-pitch -1 2 -2 )) + (ees . ,(make-pitch -1 2 -1 )) + (eess . ,(make-pitch -1 2 -1 )) + (es . ,(make-pitch -1 2 -1 )) + (ess . ,(make-pitch -1 2 -1 )) + (e . ,(make-pitch -1 2 0 )) + (eis . ,(make-pitch -1 2 1 )) + (eiss . ,(make-pitch -1 2 1 )) + (eisis . ,(make-pitch -1 2 2 )) + (eississ . ,(make-pitch -1 2 2 )) + (feses . ,(make-pitch -1 3 -2 )) + (fessess . ,(make-pitch -1 3 -2 )) + (fes . ,(make-pitch -1 3 -1 )) + (fess . ,(make-pitch -1 3 -1 )) + (f . ,(make-pitch -1 3 0 )) + (fis . ,(make-pitch -1 3 1 )) + (fiss . ,(make-pitch -1 3 1 )) + (fisis . ,(make-pitch -1 3 2 )) + (fississ . ,(make-pitch -1 3 2 )) + (geses . ,(make-pitch -1 4 -2 )) + (gessess . ,(make-pitch -1 4 -2 )) + (ges . ,(make-pitch -1 4 -1 )) + (gess . ,(make-pitch -1 4 -1 )) + (g . ,(make-pitch -1 4 0 )) + (g . ,(make-pitch -1 4 0 )) + (gis . ,(make-pitch -1 4 1 )) + (giss . ,(make-pitch -1 4 1 )) + (gisis . ,(make-pitch -1 4 2 )) + (gississ . ,(make-pitch -1 4 2 )) + (aeses . ,(make-pitch -1 5 -2 )) + (aessess . ,(make-pitch -1 5 -2 )) + (ases . ,(make-pitch -1 5 -2 )) + (assess . ,(make-pitch -1 5 -2 )) + (aes . ,(make-pitch -1 5 -1 )) + (aess . ,(make-pitch -1 5 -1 )) + (as . ,(make-pitch -1 5 -1 )) + (ass . ,(make-pitch -1 5 -1 )) + (a . ,(make-pitch -1 5 0 )) + (ais . ,(make-pitch -1 5 1 )) + (aiss . ,(make-pitch -1 5 1 )) + (aisis . ,(make-pitch -1 5 2 )) + (aississ . ,(make-pitch -1 5 2 )) + (bes . ,(make-pitch -1 6 -2 )) + (bess . ,(make-pitch -1 6 -2 )) + (b . ,(make-pitch -1 6 -1 )) + (b . ,(make-pitch -1 6 -1 )) + (h . ,(make-pitch -1 6 0 )) + (his . ,(make-pitch -1 6 1 )) + (hiss . ,(make-pitch -1 6 1 )) + (hisis . ,(make-pitch -1 6 2 )) + (hississ . ,(make-pitch -1 6 2 )) +) + + + +\version "1.3.146" diff --git a/ly/svenska.ly b/ly/svenska.ly new file mode 100644 index 0000000000..c9b54987e9 --- /dev/null +++ b/ly/svenska.ly @@ -0,0 +1,43 @@ +% +% common Swedish names for notes. "ess" means flat, "iss" means sharp +% +% by Mats Bengtsson. + +\pitchnames #`( + (cessess . ,(make-pitch -1 0 -2 )) + (cess . ,(make-pitch -1 0 -1 )) + (c . ,(make-pitch -1 0 0 )) + (ciss . ,(make-pitch -1 0 1 )) + (cississ . ,(make-pitch -1 0 2 )) + (dessess . ,(make-pitch -1 1 -2 )) + (dess . ,(make-pitch -1 1 -1 )) + (d . ,(make-pitch -1 1 0 )) + (diss . ,(make-pitch -1 1 1 )) + (dississ . ,(make-pitch -1 1 2 )) + (essess . ,(make-pitch -1 2 -2 )) + (ess . ,(make-pitch -1 2 -1 )) + (e . ,(make-pitch -1 2 0 )) + (eiss . ,(make-pitch -1 2 1 )) + (eississ . ,(make-pitch -1 2 2 )) + (fessess . ,(make-pitch -1 3 -2 )) + (fess . ,(make-pitch -1 3 -1 )) + (f . ,(make-pitch -1 3 0 )) + (fiss . ,(make-pitch -1 3 1 )) + (fississ . ,(make-pitch -1 3 2 )) + (gessess . ,(make-pitch -1 4 -2 )) + (gess . ,(make-pitch -1 4 -1 )) + (g . ,(make-pitch -1 4 0 )) + (giss . ,(make-pitch -1 4 1 )) + (gississ . ,(make-pitch -1 4 2 )) + (assess . ,(make-pitch -1 5 -2 )) + (ass . ,(make-pitch -1 5 -1 )) + (a . ,(make-pitch -1 5 0 )) + (aiss . ,(make-pitch -1 5 1 )) + (aississ . ,(make-pitch -1 5 2 )) + (hessess . ,(make-pitch -1 6 -2 )) + (b . ,(make-pitch -1 6 -1 )) + (h . ,(make-pitch -1 6 0 )) + (hiss . ,(make-pitch -1 6 1 )) + (hississ . ,(make-pitch -1 6 2 )) +) +\version "1.3.146" -- 2.39.5