Teoría musical/Fundamentos de la Teoría Musical/Ciclo descendente de escalas

De Wikilibros, la colección de libros de texto de contenido libre.
Ir a la navegación Ir a la búsqueda
← Ciclo ascendente de escalas Ciclo descendente de escalas Círculo de quintas →
Teoría musical/Fundamentos de la Teoría Musical


Ahora veremos el círculo de quintas en sentido descendente o ciclo descendente.

Al igual que en el ciclo ascendente, nuestro punto de partida será la escala de Do Mayor.

Primer paso del ciclo[editar]

Para el primer paso del ciclo, usaremos la escala de Do Mayor. Tomaremos el primer tetracordio y lo copiaremos en otro pentagrama, pero como segundo tetracordio de una nueva escala: la escala de Fa Mayor.

<<
  \new Staff \with {
    \override VerticalAxisGroup #'default-staff-staff-spacing =
      #'((basic-distance . .5)
        (padding . 15))
  } \relative c' {
    \override Score.SystemStartBar #'stencil = ##f
    \override Staff.TimeSignature #'stencil = ##f
    \time 8/1
    c1^\markup {
      \postscript #"/tetracordio {
                      0 0 moveto
                      0 1 rlineto
                      18 0 rlineto
                      0 -1 rlineto
                      stroke
                      /Times-Roman findfont
                      2 scalefont
                      setfont
                      1.5 1.5 moveto
                      show
                    } def
                    1 0 translate
                    (Tetracordio 1) tetracordio
                    24.5 0 translate
                    (Tetracordio 2) tetracordio"
    }
    _\markup \column {
      "1"
      \translate #'(0 . 2)
      \postscript #"/puente {
                      save
                      0 0 moveto
                      0 -1 rlineto
                      5 0 rlineto
                      0 1 rlineto
                      [0.5] 1.25 setdash
                      stroke
                      restore
                      /Times-Roman findfont
                      3 scalefont
                      setfont
                      1.5 -4 moveto
                      (T) show
                    } def
                    /tono {
                      0 0 moveto
                      0 -1 rlineto
                      5 0 rlineto
                      0 1 rlineto
                      stroke
                      /Times-Roman findfont
                      3 scalefont
                      setfont
                      1.5 -4 moveto
                      (T) show
                    } def
                    /semitono {
                      0 0 moveto
                      1.5 -2 5 -1 5 0 rcurveto
                      stroke
                      /Times-Roman findfont
                      3 scalefont
                      setfont
                      1.5 -4 moveto
                      (st) show
                    } def
                    .5 0 translate
                    tono
                    6.25 0 translate
                    tono
                    6.25 0 translate
                    semitono
                    6.25 0 translate
                    puente
                    6.25 0 translate
                    tono
                    6.25 0 translate
                    tono
                    6.25 0 translate
                    semitono
                    -37.8 .5 moveto
                    0 -13.5 -1 -16.5 26 0 24.5 -17.5 rcurveto
                    -19.4 2 moveto
                    0 -15 -1 -18 26 0 25.2 -18 rcurveto
                    [0.5] 1.25 setdash
                    stroke"
    }
    d_"2" e_"3" f_"4" g_"5" a_"6" b_"7" c_"8"
    \bar "|."
  }
  \new Staff \relative c' {
    \clef alto
    \override Staff.TimeSignature #'stencil = ##f
    \time 8/1
    s s s s
    c1^\markup {
      \postscript #"/tetracordio {
                      0 0 moveto
                      0 1 rlineto
                      18 0 rlineto
                      0 -1 rlineto
                      stroke
                      /Times-Roman findfont
                      2 scalefont
                      setfont
                      1.5 1.5 moveto
                      show
                    } def
                    1 0 translate
                    (Tetracordio 2) tetracordio"
    }
    _\markup \column {
      "5"
      \translate #'(0 . 2)
      \postscript #"/tono {
                      0 0 moveto
                      0 -1 rlineto
                      5 0 rlineto
                      0 1 rlineto
                      stroke
                      /Times-Roman findfont
                      3 scalefont
                      setfont
                      1.5 -4 moveto
                      (T) show
                    } def
                    /semitono {
                      0 0 moveto
                      1.5 -2 5 -1 5 0 rcurveto
                      stroke
                      /Times-Roman findfont
                      3 scalefont
                      setfont
                      1.5 -4 moveto
                      (st) show
                    } def
                    .5 0 translate
                    tono
                    6.25 0 translate
                    tono
                    6.25 0 translate
                    semitono"
    }
    d_"6" e_"7" f_"8"
    \bar "|."
  }
>>

Ya tenemos el segundo tetracordio de la escala de Fa Mayor, sólo falta añadir un primer tetracordio conservando la estructura diatónica (Tono - Tono - semitono). Para conservar esta estructura es necesario descender la cuarta nota en un semitono cromático, es decir, el Si pasa a ser Si, como se muestra a continuación:

\relative c' {
  \clef alto
  \override Staff.TimeSignature #'stencil = ##f
  \time 8/1
  f,1^\markup {
    \postscript #"/tetracordio {
                    0 0 moveto
                    0 1 rlineto
                    18 0 rlineto
                    0 -1 rlineto
                    stroke
                    /Times-Roman findfont
                    2 scalefont
                    setfont
                    1.5 1.5 moveto
                    show
                  } def
                  1 0 translate
                  (Tetracordio 1) tetracordio
                  24.5 0 translate
                  (Tetracordio 2) tetracordio"
  }
  _\markup \column {
    "1"
    \translate #'(0 . 2)
    \postscript #"/puente {
                    save
                    0 0 moveto
                    0 -1 rlineto
                    5 0 rlineto
                    0 1 rlineto
                    [0.5] 1.25 setdash
                    stroke
                    restore
                    /Times-Roman findfont
                    3 scalefont
                    setfont
                    1.5 -4 moveto
                    (T) show
                  } def
                  /tono {
                    0 0 moveto
                    0 -1 rlineto
                    5 0 rlineto
                    0 1 rlineto
                    stroke
                    /Times-Roman findfont
                    3 scalefont
                    setfont
                    1.5 -4 moveto
                    (T) show
                  } def
                  /semitono {
                    0 0 moveto
                    1.5 -2 5 -1 5 0 rcurveto
                    stroke
                    /Times-Roman findfont
                    3 scalefont
                    setfont
                    1.5 -4 moveto
                    (st) show
                  } def
                  .5 0 translate
                  tono
                  6.25 0 translate
                  tono
                  6.25 0 translate
                  semitono
                  6.25 0 translate
                  puente
                  6.25 0 translate
                  tono
                  6.25 0 translate
                  tono
                  6.25 0 translate
                  semitono"
  }
  g_"2" a_"3" bes_"4" c_"5" d_"6" e_"7" f_"8"
  \bar "|."
}

Segundo paso del ciclo[editar]

Para el segundo paso del ciclo, usaremos la escala de Fa Mayor. Tomaremos el primer tetracordio y lo copiaremos en otro pentagrama, pero como segundo tetracordio de una nueva escala: la escala de Si Mayor.

<<
  \new Staff \with {
    \override VerticalAxisGroup #'default-staff-staff-spacing =
      #'((basic-distance . .5)
        (padding . 15))
  } \relative c' {
    \clef alto
    \override Score.SystemStartBar #'stencil = ##f
    \override Staff.TimeSignature #'stencil = ##f
    \time 8/1
    f,1^\markup {
      \postscript #"/tetracordio {
                      0 0 moveto
                      0 1 rlineto
                      18 0 rlineto
                      0 -1 rlineto
                      stroke
                      /Times-Roman findfont
                      2 scalefont
                      setfont
                      1.5 1.5 moveto
                      show
                    } def
                    1 0 translate
                    (Tetracordio 1) tetracordio
                    24.5 0 translate
                    (Tetracordio 2) tetracordio"
    }
    _\markup \column {
      "1"
      \translate #'(0 . 2)
      \postscript #"/puente {
                      save
                      0 0 moveto
                      0 -1 rlineto
                      5 0 rlineto
                      0 1 rlineto
                      [0.5] 1.25 setdash
                      stroke
                      restore
                      /Times-Roman findfont
                      3 scalefont
                      setfont
                      1.5 -4 moveto
                      (T) show
                    } def
                    /tono {
                      0 0 moveto
                      0 -1 rlineto
                      5 0 rlineto
                      0 1 rlineto
                      stroke
                      /Times-Roman findfont
                      3 scalefont
                      setfont
                      1.5 -4 moveto
                      (T) show
                    } def
                    /semitono {
                      0 0 moveto
                      1.5 -2 5 -1 5 0 rcurveto
                      stroke
                      /Times-Roman findfont
                      3 scalefont
                      setfont
                      1.5 -4 moveto
                      (st) show
                    } def
                    .5 0 translate
                    tono
                    6.25 0 translate
                    tono
                    6.25 0 translate
                    semitono
                    6.25 0 translate
                    puente
                    6.25 0 translate
                    tono
                    6.25 0 translate
                    tono
                    6.25 0 translate
                    semitono
                    -37.8 .5 moveto
                    0 -13.5 -1 -16.5 26 0 24.5 -17.5 rcurveto
                    -19.4 2 moveto
                    0 -15 -1 -18 26 0 25.2 -18 rcurveto
                    [0.5] 1.25 setdash
                    stroke"
    }
    g_"2" a_"3" bes_"4" c_"5" d_"6" e_"7" f_"8"
    \bar "|."
  }
  \new Staff \relative c' {
    \override Staff.TimeSignature #'stencil = ##f
    \time 8/1
    s s s s
    f1^\markup {
      \postscript #"/tetracordio {
                      0 0 moveto
                      0 1 rlineto
                      18 0 rlineto
                      0 -1 rlineto
                      stroke
                      /Times-Roman findfont
                      2 scalefont
                      setfont
                      1.5 1.5 moveto
                      show
                    } def
                    1 0 translate
                    (Tetracordio 2) tetracordio"
    }
    _\markup \column {
      "5"
      \translate #'(0 . 2)
      \postscript #"/tono {
                      0 0 moveto
                      0 -1 rlineto
                      5 0 rlineto
                      0 1 rlineto
                      stroke
                      /Times-Roman findfont
                      3 scalefont
                      setfont
                      1.5 -4 moveto
                      (T) show
                    } def
                    /semitono {
                      0 0 moveto
                      1.5 -2 5 -1 5 0 rcurveto
                      stroke
                      /Times-Roman findfont
                      3 scalefont
                      setfont
                      1.5 -4 moveto
                      (st) show
                    } def
                    .5 0 translate
                    tono
                    6.25 0 translate
                    tono
                    6.25 0 translate
                    semitono"
    }
    g_"6" a_"7" bes_"8"
    \bar "|."
  }
>>

Ya tenemos el segundo tetracordio de la escala de Si, sólo falta añadir un primer tetracordio conservando la estructura diatónica (Tono - Tono - semitono). Para conservar esta estructura es necesario descender la cuarta nota en un semitono cromático, es decir, el Mi pasa a ser Mi, como se muestra a continuación:

\relative c' {
  \override Staff.TimeSignature #'stencil = ##f
  \time 8/1
  bes1^\markup {
    \postscript #"/tetracordio {
                    0 0 moveto
                    0 1 rlineto
                    18 0 rlineto
                    0 -1 rlineto
                    stroke
                    /Times-Roman findfont
                    2 scalefont
                    setfont
                    1.5 1.5 moveto
                    show
                  } def
                  1 0 translate
                  (Tetracordio 1) tetracordio
                  24.5 0 translate
                  (Tetracordio 2) tetracordio"
  }
  _\markup \column {
    "1"
    \translate #'(0 . 2)
    \postscript #"/puente {
                    save
                    0 0 moveto
                    0 -1 rlineto
                    5 0 rlineto
                    0 1 rlineto
                    [0.5] 1.25 setdash
                    stroke
                    restore
                    /Times-Roman findfont
                    3 scalefont
                    setfont
                    1.5 -4 moveto
                    (T) show
                  } def
                  /tono {
                    0 0 moveto
                    0 -1 rlineto
                    5 0 rlineto
                    0 1 rlineto
                    stroke
                    /Times-Roman findfont
                    3 scalefont
                    setfont
                    1.5 -4 moveto
                    (T) show
                  } def
                  /semitono {
                    0 0 moveto
                    1.5 -2 5 -1 5 0 rcurveto
                    stroke
                    /Times-Roman findfont
                    3 scalefont
                    setfont
                    1.5 -4 moveto
                    (st) show
                  } def
                  .5 0 translate
                  tono
                  6.25 0 translate
                  tono
                  6.25 0 translate
                  semitono
                  6.25 0 translate
                  puente
                  6.25 0 translate
                  tono
                  6.25 0 translate
                  tono
                  6.25 0 translate
                  semitono"
  }
  c_"2" d_"3" ees_"4" f_"5" g_"6" a_"7" bes_"8"
  \bar "|."
}

Ejercicios[editar]

Ya conoces los primeros dos pasos del ciclo, el resto de los pasos son exactamente iguales.

Ejercicio: Completa el ciclo de escalas descendentes comenzando por la escala de Do Mayor hasta llegar a la escala de Do Mayor (Do bemol Mayor).

Algunas consideraciones:

  • La escala de Do Mayor no lleva ninguna alteración.
  • La escala de Do Mayor lleva siete bemoles (todas sus notas son bemoles).
  • Siguiendo el ciclo obtendrás un total de ocho escalas.
  • Cada escala tendrá un bemol más que la anterior
Soluciones
Do Mayor
\relative c' {
     \override Staff.TimeSignature #'stencil = ##f
     \time 8/1
     c1^\markup {
       \postscript #"/tetracordio {
                       0 0 moveto 
                       0 1 rlineto
                       18 0 rlineto
                       0 -1 rlineto
                       stroke
                       /Times-Roman findfont
                       2 scalefont
                       setfont
                       1.5 1.5 moveto
                       show
                     } def
                     1 0 translate
                     (Tetracordio 1) tetracordio
                     24.5 0 translate
                     (Tetracordio 2) tetracordio"
     }
     _\markup \column {
       "1"
       \translate #'(0 . 2)
       \postscript #"/puente {
                       save
                       0 0 moveto
                       0 -1 rlineto
                       5 0 rlineto
                       0 1 rlineto
                       [0.5] 1.25 setdash
                       stroke
                       restore
                       /Times-Roman findfont
                       3 scalefont
                       setfont
                       1.5 -4 moveto
                       (T) show
                     } def
                     /tono {
                       0 0 moveto
                       0 -1 rlineto
                       5 0 rlineto
                       0 1 rlineto
                       stroke
                       /Times-Roman findfont
                       3 scalefont
                       setfont
                       1.5 -4 moveto
                       (T) show
                     } def
                     /semitono {
                       0 0 moveto
                       1.5 -2 5 -1 5 0 rcurveto
                       stroke
                       /Times-Roman findfont
                       3 scalefont
                       setfont
                       1.5 -4 moveto
                       (st) show
                     } def
                     .5 0 translate
                     tono
                     6.25 0 translate
                     tono
                     6.25 0 translate
                     semitono
                     6.25 0 translate
                     puente
                     6.25 0 translate
                     tono
                     6.25 0 translate
                     tono
                     6.25 0 translate
                     semitono"
     }
     d_"2" e_"3" f_"4" g_"5" a_"6" b_"7" c_"8"
     \bar "|."
   }
Fa Mayor
\relative c' {
     \clef alto
     \override Staff.TimeSignature #'stencil = ##f
     \time 8/1
     f,1^\markup {
       \postscript #"/tetracordio {
                       0 0 moveto 
                       0 1 rlineto
                       18 0 rlineto
                       0 -1 rlineto
                       stroke
                       /Times-Roman findfont
                       2 scalefont
                       setfont
                       1.5 1.5 moveto
                       show
                     } def
                     1 0 translate
                     (Tetracordio 1) tetracordio
                     24.5 0 translate
                     (Tetracordio 2) tetracordio"
     }
     _\markup \column {
       "1"
       \translate #'(0 . 2)
       \postscript #"/puente {
                       save
                       0 0 moveto
                       0 -1 rlineto
                       5 0 rlineto
                       0 1 rlineto
                       [0.5] 1.25 setdash
                       stroke
                       restore
                       /Times-Roman findfont
                       3 scalefont
                       setfont
                       1.5 -4 moveto
                       (T) show
                     } def
                     /tono {
                       0 0 moveto
                       0 -1 rlineto
                       5 0 rlineto
                       0 1 rlineto
                       stroke
                       /Times-Roman findfont
                       3 scalefont
                       setfont
                       1.5 -4 moveto
                       (T) show
                     } def
                     /semitono {
                       0 0 moveto
                       1.5 -2 5 -1 5 0 rcurveto
                       stroke
                       /Times-Roman findfont
                       3 scalefont
                       setfont
                       1.5 -4 moveto
                       (st) show
                     } def
                     .5 0 translate
                     tono
                     6.25 0 translate
                     tono
                     6.25 0 translate
                     semitono
                     6.25 0 translate
                     puente
                     6.25 0 translate
                     tono
                     6.25 0 translate
                     tono
                     6.25 0 translate
                     semitono"
     }
     g_"2" a_"3" bes_"4" c_"5" d_"6" e_"7" f_"8"
     \bar "|."
   }
Si Mayor
\relative c' {
     \override Staff.TimeSignature #'stencil = ##f
     \time 8/1
     bes1^\markup {
       \postscript #"/tetracordio {
                       0 0 moveto 
                       0 1 rlineto
                       18 0 rlineto
                       0 -1 rlineto
                       stroke
                       /Times-Roman findfont
                       2 scalefont
                       setfont
                       1.5 1.5 moveto
                       show
                     } def
                     1 0 translate
                     (Tetracordio 1) tetracordio
                     24.5 0 translate
                     (Tetracordio 2) tetracordio"
     }
     _\markup \column {
       "1"
       \translate #'(0 . 2)
       \postscript #"/puente {
                       save
                       0 0 moveto
                       0 -1 rlineto
                       5 0 rlineto
                       0 1 rlineto
                       [0.5] 1.25 setdash
                       stroke
                       restore
                       /Times-Roman findfont
                       3 scalefont
                       setfont
                       1.5 -4 moveto
                       (T) show
                     } def
                     /tono {
                       0 0 moveto
                       0 -1 rlineto
                       5 0 rlineto
                       0 1 rlineto
                       stroke
                       /Times-Roman findfont
                       3 scalefont
                       setfont
                       1.5 -4 moveto
                       (T) show
                     } def
                     /semitono {
                       0 0 moveto
                       1.5 -2 5 -1 5 0 rcurveto
                       stroke
                       /Times-Roman findfont
                       3 scalefont
                       setfont
                       1.5 -4 moveto
                       (st) show
                     } def
                     .5 0 translate
                     tono
                     6.25 0 translate
                     tono
                     6.25 0 translate
                     semitono
                     6.25 0 translate
                     puente
                     6.25 0 translate
                     tono
                     6.25 0 translate
                     tono
                     6.25 0 translate
                     semitono"
     }
     c_"2" d_"3" ees_"4" f_"5" g_"6" a_"7" bes_"8"
     \bar "|."
   }
Mi Mayor
\relative c' {
     \clef alto
     \override Staff.TimeSignature #'stencil = ##f
     \time 8/1
     ees,1^\markup {
       \postscript #"/tetracordio {
                       0 0 moveto 
                       0 1 rlineto
                       18 0 rlineto
                       0 -1 rlineto
                       stroke
                       /Times-Roman findfont
                       2 scalefont
                       setfont
                       1.5 1.5 moveto
                       show
                     } def
                     1 0 translate
                     (Tetracordio 1) tetracordio
                     24.5 0 translate
                     (Tetracordio 2) tetracordio"
     }
     _\markup \column {
       "1"
       \translate #'(0 . 2)
       \postscript #"/puente {
                       save
                       0 0 moveto
                       0 -1 rlineto
                       5 0 rlineto
                       0 1 rlineto
                       [0.5] 1.25 setdash
                       stroke
                       restore
                       /Times-Roman findfont
                       3 scalefont
                       setfont
                       1.5 -4 moveto
                       (T) show
                     } def
                     /tono {
                       0 0 moveto
                       0 -1 rlineto
                       5 0 rlineto
                       0 1 rlineto
                       stroke
                       /Times-Roman findfont
                       3 scalefont
                       setfont
                       1.5 -4 moveto
                       (T) show
                     } def
                     /semitono {
                       0 0 moveto
                       1.5 -2 5 -1 5 0 rcurveto
                       stroke
                       /Times-Roman findfont
                       3 scalefont
                       setfont
                       1.5 -4 moveto
                       (st) show
                     } def
                     .5 0 translate
                     tono
                     6.25 0 translate
                     tono
                     6.25 0 translate
                     semitono
                     6.25 0 translate
                     puente
                     6.25 0 translate
                     tono
                     6.25 0 translate
                     tono
                     6.25 0 translate
                     semitono"
     }
     f_"2" g_"3" aes_"4" bes_"5" c_"6" d_"7" ees_"8"
     \bar "|."
   }
La Mayor
\relative c {
     \clef bass
     \override Staff.TimeSignature #'stencil = ##f
     \time 8/1
     aes1^\markup {
       \postscript #"/tetracordio {
                       0 0 moveto 
                       0 1 rlineto
                       18 0 rlineto
                       0 -1 rlineto
                       stroke
                       /Times-Roman findfont
                       2 scalefont
                       setfont
                       1.5 1.5 moveto
                       show
                     } def
                     1 0 translate
                     (Tetracordio 1) tetracordio
                     24.5 0 translate
                     (Tetracordio 2) tetracordio"
     }
     _\markup \column {
       "1"
       \translate #'(0 . 2)
       \postscript #"/puente {
                       save
                       0 0 moveto
                       0 -1 rlineto
                       5 0 rlineto
                       0 1 rlineto
                       [0.5] 1.25 setdash
                       stroke
                       restore
                       /Times-Roman findfont
                       3 scalefont
                       setfont
                       1.5 -4 moveto
                       (T) show
                     } def
                     /tono {
                       0 0 moveto
                       0 -1 rlineto
                       5 0 rlineto
                       0 1 rlineto
                       stroke
                       /Times-Roman findfont
                       3 scalefont
                       setfont
                       1.5 -4 moveto
                       (T) show
                     } def
                     /semitono {
                       0 0 moveto
                       1.5 -2 5 -1 5 0 rcurveto
                       stroke
                       /Times-Roman findfont
                       3 scalefont
                       setfont
                       1.5 -4 moveto
                       (st) show
                     } def
                     .5 0 translate
                     tono
                     6.25 0 translate
                     tono
                     6.25 0 translate
                     semitono
                     6.25 0 translate
                     puente
                     6.25 0 translate
                     tono
                     6.25 0 translate
                     tono
                     6.25 0 translate
                     semitono"
     }
     bes_"2" c_"3" des_"4" ees_"5" f_"6" g_"7" aes_"8"
     \bar "|."
   }
Re Mayor
\relative c' {
     \override Staff.TimeSignature #'stencil = ##f
     \time 8/1
     des1^\markup {
       \postscript #"/tetracordio {
                       0 0 moveto 
                       0 1 rlineto
                       18 0 rlineto
                       0 -1 rlineto
                       stroke
                       /Times-Roman findfont
                       2 scalefont
                       setfont
                       1.5 1.5 moveto
                       show
                     } def
                     1 0 translate
                     (Tetracordio 1) tetracordio
                     24.5 0 translate
                     (Tetracordio 2) tetracordio"
     }
     _\markup \column {
       "1"
       \translate #'(0 . 2)
       \postscript #"/puente {
                       save
                       0 0 moveto
                       0 -1 rlineto
                       5 0 rlineto
                       0 1 rlineto
                       [0.5] 1.25 setdash
                       stroke
                       restore
                       /Times-Roman findfont
                       3 scalefont
                       setfont
                       1.5 -4 moveto
                       (T) show
                     } def
                     /tono {
                       0 0 moveto
                       0 -1 rlineto
                       5 0 rlineto
                       0 1 rlineto
                       stroke
                       /Times-Roman findfont
                       3 scalefont
                       setfont
                       1.5 -4 moveto
                       (T) show
                     } def
                     /semitono {
                       0 0 moveto
                       1.5 -2 5 -1 5 0 rcurveto
                       stroke
                       /Times-Roman findfont
                       3 scalefont
                       setfont
                       1.5 -4 moveto
                       (st) show
                     } def
                     .5 0 translate
                     tono
                     6.25 0 translate
                     tono
                     6.25 0 translate
                     semitono
                     6.25 0 translate
                     puente
                     6.25 0 translate
                     tono
                     6.25 0 translate
                     tono
                     6.25 0 translate
                     semitono"
     }
     ees_"2" f_"3" ges_"4" aes_"5" bes_"6" c_"7" des_"8"
     \bar "|."
   }
Sol Mayor
\relative c {
     \clef bass
     \override Staff.TimeSignature #'stencil = ##f
     \time 8/1
     ges1^\markup {
       \postscript #"/tetracordio {
                       0 0 moveto 
                       0 1 rlineto
                       18 0 rlineto
                       0 -1 rlineto
                       stroke
                       /Times-Roman findfont
                       2 scalefont
                       setfont
                       1.5 1.5 moveto
                       show
                     } def
                     1 0 translate
                     (Tetracordio 1) tetracordio
                     24.5 0 translate
                     (Tetracordio 2) tetracordio"
     }
     _\markup \column {
       "1"
       \translate #'(0 . 2)
       \postscript #"/puente {
                       save
                       0 0 moveto
                       0 -1 rlineto
                       5 0 rlineto
                       0 1 rlineto
                       [0.5] 1.25 setdash
                       stroke
                       restore
                       /Times-Roman findfont
                       3 scalefont
                       setfont
                       1.5 -4 moveto
                       (T) show
                     } def
                     /tono {
                       0 0 moveto
                       0 -1 rlineto
                       5 0 rlineto
                       0 1 rlineto
                       stroke
                       /Times-Roman findfont
                       3 scalefont
                       setfont
                       1.5 -4 moveto
                       (T) show
                     } def
                     /semitono {
                       0 0 moveto
                       1.5 -2 5 -1 5 0 rcurveto
                       stroke
                       /Times-Roman findfont
                       3 scalefont
                       setfont
                       1.5 -4 moveto
                       (st) show
                     } def
                     .5 0 translate
                     tono
                     6.25 0 translate
                     tono
                     6.25 0 translate
                     semitono
                     6.25 0 translate
                     puente
                     6.25 0 translate
                     tono
                     6.25 0 translate
                     tono
                     6.25 0 translate
                     semitono"
     }
     aes_"2" bes_"3" ces_"4" des_"5" ees_"6" f_"7" ges_"8"
     \bar "|."
   }
Do Mayor
\relative c' {
     \override Staff.TimeSignature #'stencil = ##f
     \time 8/1
     ces1^\markup {
       \postscript #"/tetracordio {
                       0 0 moveto 
                       0 1 rlineto
                       18 0 rlineto
                       0 -1 rlineto
                       stroke
                       /Times-Roman findfont
                       2 scalefont
                       setfont
                       1.5 1.5 moveto
                       show
                     } def
                     1 0 translate
                     (Tetracordio 1) tetracordio
                     24.5 0 translate
                     (Tetracordio 2) tetracordio"
     }
     _\markup \column {
       "1"
       \translate #'(0 . 2)
       \postscript #"/puente {
                       save
                       0 0 moveto
                       0 -1 rlineto
                       5 0 rlineto
                       0 1 rlineto
                       [0.5] 1.25 setdash
                       stroke
                       restore
                       /Times-Roman findfont
                       3 scalefont
                       setfont
                       1.5 -4 moveto
                       (T) show
                     } def
                     /tono {
                       0 0 moveto
                       0 -1 rlineto
                       5 0 rlineto
                       0 1 rlineto
                       stroke
                       /Times-Roman findfont
                       3 scalefont
                       setfont
                       1.5 -4 moveto
                       (T) show
                     } def
                     /semitono {
                       0 0 moveto
                       1.5 -2 5 -1 5 0 rcurveto
                       stroke
                       /Times-Roman findfont
                       3 scalefont
                       setfont
                       1.5 -4 moveto
                       (st) show
                     } def
                     .5 0 translate
                     tono
                     6.25 0 translate
                     tono
                     6.25 0 translate
                     semitono
                     6.25 0 translate
                     puente
                     6.25 0 translate
                     tono
                     6.25 0 translate
                     tono
                     6.25 0 translate
                     semitono"
     }
     des_"2" ees_"3" fes_"4" ges_"5" aes_"6" bes_"7" ces_"8"
     \bar "|."
   }