ly/norsk.ly

   1
   2 %       Idx norsk.ly,v 1.1 1998/03/25 11:38:28 arvidg Exp arvidg $
   3
   4 %{
   5
   6  Common norwegian names for notes, including versions without the
   7  double s-es to save typing, as well as the traditional names with
   8  them not to confuse musicians.  "es" or "ess" means flat, "is" or
   9  "iss" means sharp.
  10
  11  Otherwise, the main difference from the dutch names is the that the
  12  "b" is called "h" in norwegian, while the dutch "bes" is a norwegian
  13  "b".
  14
  15  Staying within the (proud?) naming convention for norwegian language
  16  setup used in LaTeX, this file is called "norsk.ly" instead of
  17  "norwegian.ly", even if all other languages' files use the english
  18  name.
  19
  20  This file is based on "dutch.ly".  Basically, I copied "dutch.ly",
  21  duplicated all lines containing at least one "is" or "es", changed
  22  every other "is" into an "iss" and every other "es" into an "ess",
  23  added "ass" et al, and made some b->h-related changes.  There may be
  24  bugs in here please tell me (or send patches) if you find any.
  25
  26                                   Arvid Gr=F8tting <<arvidg@ifi.uio.no>>
  27
  28 %}
  29
  30 pitchnamesNorsk = #`(
  31         (ceses . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
  32         (cessess . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
  33         (ces . ,(ly:make-pitch -1 0 FLAT))
  34         (cess . ,(ly:make-pitch -1 0 FLAT))
  35         (c . ,(ly:make-pitch -1 0 NATURAL))
  36         (cis . ,(ly:make-pitch -1 0 SHARP))
  37         (ciss . ,(ly:make-pitch -1 0 SHARP))
  38         (cisis . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
  39         (cississ . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
  40         (deses . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
  41         (dessess . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
  42         (des . ,(ly:make-pitch -1 1 FLAT))
  43         (dess . ,(ly:make-pitch -1 1 FLAT))
  44         (d . ,(ly:make-pitch -1 1 NATURAL))
  45         (dis . ,(ly:make-pitch -1 1 SHARP))
  46         (diss . ,(ly:make-pitch -1 1 SHARP))
  47         (disis . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
  48         (dississ . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
  49         (eeses . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
  50         (eessess . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
  51         (eses . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
  52         (essess . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
  53         (ees . ,(ly:make-pitch -1 2 FLAT))
  54         (eess . ,(ly:make-pitch -1 2 FLAT))
  55         (es . ,(ly:make-pitch -1 2 FLAT))
  56         (ess . ,(ly:make-pitch -1 2 FLAT))
  57         (e . ,(ly:make-pitch -1 2 NATURAL))
  58         (eis . ,(ly:make-pitch -1 2 SHARP))
  59         (eiss . ,(ly:make-pitch -1 2 SHARP))
  60         (eisis . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
  61         (eississ . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
  62         (feses . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
  63         (fessess . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
  64         (fes . ,(ly:make-pitch -1 3 FLAT))
  65         (fess . ,(ly:make-pitch -1 3 FLAT))
  66         (f . ,(ly:make-pitch -1 3 NATURAL))
  67         (fis . ,(ly:make-pitch -1 3 SHARP))
  68         (fiss . ,(ly:make-pitch -1 3 SHARP))
  69         (fisis . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
  70         (fississ . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
  71         (geses . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
  72         (gessess . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
  73         (ges . ,(ly:make-pitch -1 4 FLAT))
  74         (gess . ,(ly:make-pitch -1 4 FLAT))
  75         (g . ,(ly:make-pitch -1 4 NATURAL))
  76         (g . ,(ly:make-pitch -1 4 NATURAL))
  77         (gis . ,(ly:make-pitch -1 4 SHARP))
  78         (giss . ,(ly:make-pitch -1 4 SHARP))
  79         (gisis . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
  80         (gississ . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
  81         (aeses . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
  82         (aessess . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
  83         (ases . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
  84         (assess . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
  85         (aes . ,(ly:make-pitch -1 5 FLAT))
  86         (aess . ,(ly:make-pitch -1 5 FLAT))
  87         (as . ,(ly:make-pitch -1 5 FLAT))
  88         (ass . ,(ly:make-pitch -1 5 FLAT))
  89         (a . ,(ly:make-pitch -1 5 NATURAL))
  90         (ais . ,(ly:make-pitch -1 5 SHARP))
  91         (aiss . ,(ly:make-pitch -1 5 SHARP))
  92         (aisis . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
  93         (aississ . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
  94         (bes . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
  95         (bess . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
  96         (b . ,(ly:make-pitch -1 6 FLAT))
  97         (b . ,(ly:make-pitch -1 6 FLAT))
  98         (h . ,(ly:make-pitch -1 6 NATURAL))
  99         (his . ,(ly:make-pitch -1 6 SHARP))
 100         (hiss . ,(ly:make-pitch -1 6 SHARP))
 101         (hisis . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 102         (hississ . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 103 )
 104
 105
 106 pitchnames =\pitchnamesNorsk
 107
 108 \version "2.2.0"
 109
 110 #(ly:parser-set-note-names parser pitchnames)