ly/english.ly

   1 %%%% common English names for notes
   2 %%%% This file is part of LilyPond, the GNU music typesetter.
   3 %%%%
   4 %%%% Copyright (C) 1996--2010 Han-Wen Nienhuys <hanwen@xs4all.nl>
   5 %%%%
   6 %%%% LilyPond is free software: you can redistribute it and/or modify
   7 %%%% it under the terms of the GNU General Public License as published by
   8 %%%% the Free Software Foundation, either version 3 of the License, or
   9 %%%% (at your option) any later version.
  10 %%%%
  11 %%%% LilyPond is distributed in the hope that it will be useful,
  12 %%%% but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 %%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 %%%% GNU General Public License for more details.
  15 %%%%
  16 %%%% You should have received a copy of the GNU General Public License
  17 %%%% along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
  18
  19 \version "2.12.0"
  20
  21 %{
  22
  23   f   = flat
  24   ff  = double-flat
  25   qf  = quarter[-tone] flat
  26   tqf = three-quarter[-tones] flat
  27
  28   s   = sharp
  29   x   = double-sharp
  30   ss  = double-sharp
  31   qs  = quarter[-tone] sharp
  32   tqs = three-quarter[-tones] sharp
  33
  34 %}
  35
  36 pitchnamesEnglish = #`(
  37         (cflatflat . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
  38         (cflat . ,(ly:make-pitch -1 0 FLAT))
  39         (c . ,(ly:make-pitch -1 0 NATURAL))
  40         (csharp . ,(ly:make-pitch -1 0 SHARP))
  41         (csharpsharp . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
  42         (dflatflat . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
  43         (dflat . ,(ly:make-pitch -1 1 FLAT))
  44         (d . ,(ly:make-pitch -1 1 NATURAL))
  45         (dsharp . ,(ly:make-pitch -1 1 SHARP))
  46         (dsharpsharp . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
  47         (eflatflat . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
  48         (eflat . ,(ly:make-pitch -1 2 FLAT))
  49         (e . ,(ly:make-pitch -1 2 NATURAL))
  50         (esharp . ,(ly:make-pitch -1 2 SHARP))
  51         (esharpsharp . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
  52         (fflatflat . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
  53         (fflat . ,(ly:make-pitch -1 3 FLAT))
  54         (f . ,(ly:make-pitch -1 3 NATURAL))
  55         (fsharp . ,(ly:make-pitch -1 3 SHARP))
  56         (fsharpsharp . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
  57         (gflatflat . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
  58         (gflat . ,(ly:make-pitch -1 4 FLAT))
  59         (g . ,(ly:make-pitch -1 4 NATURAL))
  60         (gsharp . ,(ly:make-pitch -1 4 SHARP))
  61         (gsharpsharp . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
  62         (aflatflat . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
  63         (aflat . ,(ly:make-pitch -1 5 FLAT))
  64         (a . ,(ly:make-pitch -1 5 NATURAL))
  65         (asharp . ,(ly:make-pitch -1 5 SHARP))
  66         (asharpsharp . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
  67         (bflatflat . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
  68         (bflat . ,(ly:make-pitch -1 6 FLAT))
  69         (b . ,(ly:make-pitch -1 6 NATURAL))
  70         (bsharp . ,(ly:make-pitch -1 6 SHARP))
  71         (bsharpsharp . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
  72
  73         (cff . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
  74         (ctqf . ,(ly:make-pitch -1 0 THREE-Q-FLAT))
  75         (cf . ,(ly:make-pitch -1 0 FLAT))
  76         (cqf . ,(ly:make-pitch -1 0 SEMI-FLAT))
  77         (c . ,(ly:make-pitch -1 0 NATURAL))
  78         (cqs . ,(ly:make-pitch -1 0 SEMI-SHARP))
  79         (cs . ,(ly:make-pitch -1 0 SHARP))
  80         (ctqs . ,(ly:make-pitch -1 0 THREE-Q-SHARP))
  81         (css . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
  82         (cx . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
  83
  84         (dff . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
  85         (dtqf . ,(ly:make-pitch -1 1 THREE-Q-FLAT))
  86         (df . ,(ly:make-pitch -1 1 FLAT))
  87         (dqf . ,(ly:make-pitch -1 1 SEMI-FLAT))
  88         (d . ,(ly:make-pitch -1 1 NATURAL))
  89         (dqs . ,(ly:make-pitch -1 1 SEMI-SHARP))
  90         (ds . ,(ly:make-pitch -1 1 SHARP))
  91         (dtqs . ,(ly:make-pitch -1 1 THREE-Q-SHARP))
  92         (dss . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
  93         (dx . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
  94
  95         (eff . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
  96         (etqf . ,(ly:make-pitch -1 2 THREE-Q-FLAT))
  97         (ef . ,(ly:make-pitch -1 2 FLAT))
  98         (eqf . ,(ly:make-pitch -1 2 SEMI-FLAT))
  99         (e . ,(ly:make-pitch -1 2 NATURAL))
 100         (eqs . ,(ly:make-pitch -1 2 SEMI-SHARP))
 101         (es . ,(ly:make-pitch -1 2 SHARP))
 102         (etqs . ,(ly:make-pitch -1 2 THREE-Q-SHARP))
 103         (ess . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
 104         (ex . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
 105
 106         (fff . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
 107         (ftqf . ,(ly:make-pitch -1 3 THREE-Q-FLAT))
 108         (ff . ,(ly:make-pitch -1 3 FLAT))
 109         (fqf . ,(ly:make-pitch -1 3 SEMI-FLAT))
 110         (f . ,(ly:make-pitch -1 3 NATURAL))
 111         (fqs . ,(ly:make-pitch -1 3 SEMI-SHARP))
 112         (fs . ,(ly:make-pitch -1 3 SHARP))
 113         (ftqs . ,(ly:make-pitch -1 3 THREE-Q-SHARP))
 114         (fss . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
 115         (fx . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
 116
 117         (gff . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
 118         (gtqf . ,(ly:make-pitch -1 4 THREE-Q-FLAT))
 119         (gf . ,(ly:make-pitch -1 4 FLAT))
 120         (gqf . ,(ly:make-pitch -1 4 SEMI-FLAT))
 121         (g . ,(ly:make-pitch -1 4 NATURAL))
 122         (gqs . ,(ly:make-pitch -1 4 SEMI-SHARP))
 123         (gs . ,(ly:make-pitch -1 4 SHARP))
 124         (gtqs . ,(ly:make-pitch -1 4 THREE-Q-SHARP))
 125         (gss . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
 126         (gx . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
 127
 128         (aff . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
 129         (atqf . ,(ly:make-pitch -1 5 THREE-Q-FLAT))
 130         (af . ,(ly:make-pitch -1 5 FLAT))
 131         (aqf . ,(ly:make-pitch -1 5 SEMI-FLAT))
 132         (a . ,(ly:make-pitch -1 5 NATURAL))
 133         (aqs . ,(ly:make-pitch -1 5 SEMI-SHARP))
 134         (as . ,(ly:make-pitch -1 5 SHARP))
 135         (atqs . ,(ly:make-pitch -1 5 THREE-Q-SHARP))
 136         (ass . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
 137         (ax . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
 138
 139         (bff . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
 140         (btqf . ,(ly:make-pitch -1 6 THREE-Q-FLAT))
 141         (bf . ,(ly:make-pitch -1 6 FLAT))
 142         (bqf . ,(ly:make-pitch -1 6 SEMI-FLAT))
 143         (b . ,(ly:make-pitch -1 6 NATURAL))
 144         (bqs . ,(ly:make-pitch -1 6 SEMI-SHARP))
 145         (bs . ,(ly:make-pitch -1 6 SHARP))
 146         (btqs . ,(ly:make-pitch -1 6 THREE-Q-SHARP))
 147         (bss . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 148         (bx . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 149 )
 150
 151 pitchnames = \pitchnamesEnglish
 152
 153 #(ly:parser-set-note-names parser pitchnames)