input/lsr/dodecaphonic-style-accidentals-for-each-note-including-naturals.ly

   1 %% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
   2 %% This file is in the public domain.
   3 \version "2.11.57"
   4
   5 \header {
   6   lsrtags = "pitches"
   7
   8   doctitlees = "Alteraciones de estilo dodecafónico para todas las notas, incluidas las naturales"
   9   texidoces = "
  10 En las obras de principios del s.XX, empezando por Schoenberg, Berg y
  11 Webern (la \"Segunda\" escuela de Viena), cada nota de la escala de
  12 doce tonos se debe tratar con igualdad, sin ninguna jerarquía como los
  13 grados clásicos tonales.  Por tanto, estos compositores imprimen una
  14 alteración accidental para cada nota, incluso en las notas naturales,
  15 para enfatizar su nuevo enfoque de la teoría y el lenguaje musicales.
  16
  17 Este fragmento de código muestra cómo conseguir dichas reglas de
  18 notación.
  19
  20 "
  21
  22
  23   texidoc = "
  24 In early 20th century works, starting with Schoenberg, Berg and Webern
  25 (the \"Second\" Viennese school), every pitch in the twelve-tone scale
  26 has to be regarded as equal, without any hierarchy such as the
  27 classical (tonal) degrees. Therefore, these composers print one
  28 accidental for each note, even at natural pitches, to emphasize their
  29 new approach to music theory and language.
  30
  31 This snippet shows how to achieve such notation rules.
  32
  33 "
  34   doctitle = "Dodecaphonic-style accidentals for each note including naturals"
  35 } % begin verbatim
  36 webernAccidentals = {
  37   % the 5s are just "a value different from any accidental"
  38   \set Staff.keySignature = #'((0 . 5) (1 . 5) (2 . 5) (3 . 5)
  39                                (4 . 5) (5 . 5) (6 . 5))
  40   \set Staff.extraNatural = ##f
  41   #(set-accidental-style 'forget)
  42 }
  43
  44 \score {
  45   {
  46     \webernAccidentals
  47     c'4 dis' cis' cis'
  48     c'4 dis' cis' cis'
  49     c'4 c' dis' des'
  50   }
  51   \layout {
  52     \context {
  53     \Staff
  54     \remove "Key_engraver"
  55     }
  56   }
  57 }