input/test/ancient-accidentals.ly

   1 \header {
   2 texidoc = "@cindex Ancient Accidentals
   3 Accidentals are available in different ancient styles. This
   4 file lists all of them.
   5 "
   6 }
   7
   8 \version "1.7.18"
   9
  10 \score {
  11   \context Voice \notes\relative c {
  12     \time 3/4
  13         \property Staff.Accidental \set #'style = #'default
  14         cisis''^"Accidental style = \#'default" cisis! cisis? |
  15         cis cis! cis? |
  16         c c! c? |
  17         ces ces! ces? |
  18         ceses ceses! ceses? |
  19         \break
  20
  21         \property Staff.Accidental \set #'style = #'hufnagel
  22         cisis^"Accidental style = \#'hufnagel" cisis! cisis? |
  23         cis cis! cis? |
  24         c c! c? |
  25         ces ces! ces? |
  26         ceses ceses! ceses? |
  27         \break
  28
  29         \property Staff.Accidental \set #'style = #'medicaea
  30         cisis^"Accidental style = \#'medicaea" cisis! cisis? |
  31         cis cis! cis? |
  32         c c! c? |
  33         ces ces! ces? |
  34         ceses ceses! ceses? |
  35         \break
  36
  37         \property Staff.Accidental \set #'style = #'vaticana
  38         cisis^"Accidental style = \#'vaticana" cisis! cisis? |
  39         cis cis! cis? |
  40         c c! c? |
  41         ces ces! ces? |
  42         ceses ceses! ceses? |
  43         \break
  44
  45         \property Staff.Accidental \set #'style = #'mensural
  46         cisis^"Accidental style = \#'mensural" cisis! cisis? |
  47         cis cis! cis? |
  48         c c! c? |
  49         ces ces! ces? |
  50         ceses ceses! ceses? |
  51
  52   }
  53   \paper { }
  54 }
  55 %% new-chords-done %%