ly/english.ly

   1 %%%% english.ly -- common English names for notes
   2 %%%%
   3 %%%% source file of the GNU LilyPond music typesetter
   4 %%%%
   5 %%%% (c) 1996--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
   6
   7 \version "2.12.0"
   8
   9 %{
  10
  11   f   = flat
  12   ff  = double-flat
  13   qf  = quarter[-tone] flat
  14   tqf = three-quarter[-tones] flat
  15
  16   s   = sharp
  17   x   = double-sharp
  18   ss  = double-sharp
  19   qs  = quarter[-tone] sharp
  20   tqs = three-quarter[-tones] sharp
  21
  22 %}
  23
  24 pitchnamesEnglish = #`(
  25         (cflatflat . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
  26         (cflat . ,(ly:make-pitch -1 0 FLAT))
  27         (c . ,(ly:make-pitch -1 0 NATURAL))
  28         (csharp . ,(ly:make-pitch -1 0 SHARP))
  29         (csharpsharp . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
  30         (dflatflat . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
  31         (dflat . ,(ly:make-pitch -1 1 FLAT))
  32         (d . ,(ly:make-pitch -1 1 NATURAL))
  33         (dsharp . ,(ly:make-pitch -1 1 SHARP))
  34         (dsharpsharp . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
  35         (eflatflat . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
  36         (eflat . ,(ly:make-pitch -1 2 FLAT))
  37         (e . ,(ly:make-pitch -1 2 NATURAL))
  38         (esharp . ,(ly:make-pitch -1 2 SHARP))
  39         (esharpsharp . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
  40         (fflatflat . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
  41         (fflat . ,(ly:make-pitch -1 3 FLAT))
  42         (f . ,(ly:make-pitch -1 3 NATURAL))
  43         (fsharp . ,(ly:make-pitch -1 3 SHARP))
  44         (fsharpsharp . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
  45         (gflatflat . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
  46         (gflat . ,(ly:make-pitch -1 4 FLAT))
  47         (g . ,(ly:make-pitch -1 4 NATURAL))
  48         (gsharp . ,(ly:make-pitch -1 4 SHARP))
  49         (gsharpsharp . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
  50         (aflatflat . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
  51         (aflat . ,(ly:make-pitch -1 5 FLAT))
  52         (a . ,(ly:make-pitch -1 5 NATURAL))
  53         (asharp . ,(ly:make-pitch -1 5 SHARP))
  54         (asharpsharp . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
  55         (bflatflat . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
  56         (bflat . ,(ly:make-pitch -1 6 FLAT))
  57         (b . ,(ly:make-pitch -1 6 NATURAL))
  58         (bsharp . ,(ly:make-pitch -1 6 SHARP))
  59         (bsharpsharp . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
  60
  61         (cff . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
  62         (ctqf . ,(ly:make-pitch -1 0 THREE-Q-FLAT))
  63         (cf . ,(ly:make-pitch -1 0 FLAT))
  64         (cqf . ,(ly:make-pitch -1 0 SEMI-FLAT))
  65         (c . ,(ly:make-pitch -1 0 NATURAL))
  66         (cqs . ,(ly:make-pitch -1 0 SEMI-SHARP))
  67         (cs . ,(ly:make-pitch -1 0 SHARP))
  68         (ctqs . ,(ly:make-pitch -1 0 THREE-Q-SHARP))
  69         (css . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
  70         (cx . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
  71
  72         (dff . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
  73         (dtqf . ,(ly:make-pitch -1 1 THREE-Q-FLAT))
  74         (df . ,(ly:make-pitch -1 1 FLAT))
  75         (dqf . ,(ly:make-pitch -1 1 SEMI-FLAT))
  76         (d . ,(ly:make-pitch -1 1 NATURAL))
  77         (dqs . ,(ly:make-pitch -1 1 SEMI-SHARP))
  78         (ds . ,(ly:make-pitch -1 1 SHARP))
  79         (dtqs . ,(ly:make-pitch -1 1 THREE-Q-SHARP))
  80         (dss . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
  81         (dx . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
  82
  83         (eff . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
  84         (etqf . ,(ly:make-pitch -1 2 THREE-Q-FLAT))
  85         (ef . ,(ly:make-pitch -1 2 FLAT))
  86         (eqf . ,(ly:make-pitch -1 2 SEMI-FLAT))
  87         (e . ,(ly:make-pitch -1 2 NATURAL))
  88         (eqs . ,(ly:make-pitch -1 2 SEMI-SHARP))
  89         (es . ,(ly:make-pitch -1 2 SHARP))
  90         (etqs . ,(ly:make-pitch -1 2 THREE-Q-SHARP))
  91         (ess . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
  92         (ex . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
  93
  94         (fff . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
  95         (ftqf . ,(ly:make-pitch -1 3 THREE-Q-FLAT))
  96         (ff . ,(ly:make-pitch -1 3 FLAT))
  97         (fqf . ,(ly:make-pitch -1 3 SEMI-FLAT))
  98         (f . ,(ly:make-pitch -1 3 NATURAL))
  99         (fqs . ,(ly:make-pitch -1 3 SEMI-SHARP))
 100         (fs . ,(ly:make-pitch -1 3 SHARP))
 101         (ftqs . ,(ly:make-pitch -1 3 THREE-Q-SHARP))
 102         (fss . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
 103         (fx . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
 104
 105         (gff . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
 106         (gtqf . ,(ly:make-pitch -1 4 THREE-Q-FLAT))
 107         (gf . ,(ly:make-pitch -1 4 FLAT))
 108         (gqf . ,(ly:make-pitch -1 4 SEMI-FLAT))
 109         (g . ,(ly:make-pitch -1 4 NATURAL))
 110         (gqs . ,(ly:make-pitch -1 4 SEMI-SHARP))
 111         (gs . ,(ly:make-pitch -1 4 SHARP))
 112         (gtqs . ,(ly:make-pitch -1 4 THREE-Q-SHARP))
 113         (gss . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
 114         (gx . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
 115
 116         (aff . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
 117         (atqf . ,(ly:make-pitch -1 5 THREE-Q-FLAT))
 118         (af . ,(ly:make-pitch -1 5 FLAT))
 119         (aqf . ,(ly:make-pitch -1 5 SEMI-FLAT))
 120         (a . ,(ly:make-pitch -1 5 NATURAL))
 121         (aqs . ,(ly:make-pitch -1 5 SEMI-SHARP))
 122         (as . ,(ly:make-pitch -1 5 SHARP))
 123         (atqs . ,(ly:make-pitch -1 5 THREE-Q-SHARP))
 124         (ass . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
 125         (ax . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
 126
 127         (bff . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
 128         (btqf . ,(ly:make-pitch -1 6 THREE-Q-FLAT))
 129         (bf . ,(ly:make-pitch -1 6 FLAT))
 130         (bqf . ,(ly:make-pitch -1 6 SEMI-FLAT))
 131         (b . ,(ly:make-pitch -1 6 NATURAL))
 132         (bqs . ,(ly:make-pitch -1 6 SEMI-SHARP))
 133         (bs . ,(ly:make-pitch -1 6 SHARP))
 134         (btqs . ,(ly:make-pitch -1 6 THREE-Q-SHARP))
 135         (bss . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 136         (bx . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 137 )
 138
 139 pitchnames = \pitchnamesEnglish
 140
 141 #(ly:parser-set-note-names parser pitchnames)