ly/italiano.ly

   1 %{
   2  Common italian names for notes. "b" means flat (bemolle), "d" means sharp (diesis) and "s" means semi- (semi-).
   3  Adapted from dutch.ly.
   4
   5  English: a   b   c   d   e   f   g
   6  Italian: la  si  do  re  mi  fa  sol
   7
   8  For french naming just change 'do' in 'ut'.
   9 %}
  10
  11 % contributed by Paolo Zuliani <<zuliap@easynet.it>>
  12 % additions for semi-sharps and semi-flats by Eric Wurbel <<wurbel@univ-tln.fr>>
  13
  14 pitchnamesItaliano = #`(
  15         (dobb . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
  16         (dobsb . ,(ly:make-pitch -1 0 THREE-Q-FLAT))
  17         (dob . ,(ly:make-pitch -1 0 FLAT))
  18         (dosb . ,(ly:make-pitch -1 0 SEMI-FLAT))
  19         (do . ,(ly:make-pitch -1 0 NATURAL))
  20         (dosd . ,(ly:make-pitch -1 0 SEMI-SHARP))
  21         (dod . ,(ly:make-pitch -1 0 SHARP))
  22         (dodsd . ,(ly:make-pitch -1 0 THREE-Q-SHARP))
  23         (dodd . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
  24
  25         (rebb . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
  26         (rebsb . ,(ly:make-pitch -1 1 THREE-Q-FLAT))
  27         (reb . ,(ly:make-pitch -1 1 FLAT))
  28         (resb . ,(ly:make-pitch -1 1 SEMI-FLAT))
  29         (re . ,(ly:make-pitch -1 1 NATURAL))
  30         (resd . ,(ly:make-pitch -1 1 SEMI-SHARP))
  31         (red . ,(ly:make-pitch -1 1 SHARP))
  32         (redsd . ,(ly:make-pitch -1 1 THREE-Q-SHARP))
  33         (redd . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
  34
  35         (mibb . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
  36         (mibsb . ,(ly:make-pitch -1 2 THREE-Q-FLAT))
  37         (mib . ,(ly:make-pitch -1 2 FLAT))
  38         (misb . ,(ly:make-pitch -1 2 SEMI-FLAT))
  39         (mi . ,(ly:make-pitch -1 2 NATURAL))
  40         (misd . ,(ly:make-pitch -1 2 SEMI-SHARP))
  41         (mid . ,(ly:make-pitch -1 2 SHARP))
  42         (midsd . ,(ly:make-pitch -1 2 THREE-Q-SHARP))
  43         (midd . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
  44
  45         (fabb . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
  46         (fabsb . ,(ly:make-pitch -1 3 THREE-Q-FLAT))
  47         (fab . ,(ly:make-pitch -1 3 FLAT))
  48         (fasb . ,(ly:make-pitch -1 3 SEMI-FLAT))
  49         (fa . ,(ly:make-pitch -1 3 NATURAL))
  50         (fasd . ,(ly:make-pitch -1 3 SEMI-SHARP))
  51         (fad . ,(ly:make-pitch -1 3 SHARP))
  52         (fadsd . ,(ly:make-pitch -1 3 THREE-Q-SHARP))
  53         (fadd . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
  54
  55         (solbb . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
  56         (solbsb . ,(ly:make-pitch -1 4 THREE-Q-FLAT))
  57         (solb . ,(ly:make-pitch -1 4 FLAT))
  58         (solsb . ,(ly:make-pitch -1 4 SEMI-FLAT))
  59         (sol . ,(ly:make-pitch -1 4 NATURAL))
  60         (solsd . ,(ly:make-pitch -1 4 SEMI-SHARP))
  61         (sold . ,(ly:make-pitch -1 4 SHARP))
  62         (soldsd . ,(ly:make-pitch -1 4 THREE-Q-SHARP))
  63         (soldd . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
  64
  65         (labb . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
  66         (labsb . ,(ly:make-pitch -1 5 THREE-Q-FLAT))
  67         (lab . ,(ly:make-pitch -1 5 FLAT))
  68         (lasb . ,(ly:make-pitch -1 5 SEMI-FLAT))
  69         (la . ,(ly:make-pitch -1 5 NATURAL))
  70         (lasd . ,(ly:make-pitch -1 5 SEMI-SHARP))
  71         (lad . ,(ly:make-pitch -1 5 SHARP))
  72         (ladsd . ,(ly:make-pitch -1 5 THREE-Q-SHARP))
  73         (ladd . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
  74
  75         (sibb . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
  76         (sibsb . ,(ly:make-pitch -1 6 THREE-Q-FLAT))
  77         (sib . ,(ly:make-pitch -1 6 FLAT))
  78         (sisb . ,(ly:make-pitch -1 6 SEMI-FLAT))
  79         (si . ,(ly:make-pitch -1 6 NATURAL))
  80         (sisd . ,(ly:make-pitch -1 6 SEMI-SHARP))
  81         (sid . ,(ly:make-pitch -1 6 SHARP))
  82         (sidsd . ,(ly:make-pitch -1 6 THREE-Q-SHARP))
  83         (sidd . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
  84
  85 )
  86
  87 pitchnames = \pitchnamesItaliano
  88
  89 \version "2.12.0"
  90
  91 #(ly:parser-set-note-names parser pitchnames)