Ir al contenido

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

De Wikilibros, la colección de libros de texto de contenido libre.

Las escalas mayores siguen un orden de aparición denominado círculo de quintas. Este círculo de quintas tiene un sentido ascendente (ciclo ascendente) y un sentido descendente. En este capítulo exploraremos el ciclo ascendente.

Para comenzar el ciclo de escalas ascendentes nuestro punto de partida será la escala de Do Mayor

Primer paso del ciclo

[editar]

Para el primer paso del ciclo, tomaremos la escala de Do Mayor que, como se ha estudiado en los capítulos anteriores, tiene dos tetracordios con la misma estructura (Tono - Tono - semitono). Si tomamos el segundo tetracordio y lo copiamos en un nuevo pentagrama, lo podremos usar como base para construir una nueva escala: la escala de Sol 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
                    -13.1 2 moveto
                    0 -15 1 -18 -26 0 -24.5 -19 rcurveto
                    5.5 2 moveto
                    0 -15 1 -18 -24.5 0 -24 -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' {
    \override Staff.TimeSignature #'stencil = ##f
    \time 8/1
    g'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"
    }
    _\markup \column {
      "1"
      \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"
    }
    a_"2" b_"3" c_"4" s s s s
    \bar "|."
  }
>>

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

\relative c' {
  \override Staff.TimeSignature #'stencil = ##f
  \time 8/1
  g'1^\markup \column {
    \translate #'(0 . -3)
    \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"
    \vspace #.5
  }
  _\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"
  }
  a_"2" b_"3" c_"4" d_"5" e_"6" fis_"7" g_"8"
  \bar "|."
}

Segundo paso del ciclo

[editar]

Para el segundo paso del ciclo, usaremos la escala de Sol Mayor. Si tomamos el segundo tetracordio y lo copiamos en un nuevo pentagrama, lo podremos usar como base para construir una nueva escala: la escala de Re 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
    g'1^\markup \column {
      \translate #'(0 . -3)
      \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"
      \vspace #.5
    }
    _\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
                    -13.1 2 moveto
                    0 -15 1 -18 -26 0 -24.5 -19 rcurveto
                    5.5 2 moveto
                    0 -15 1 -18 -24.5 0 -24 -18 rcurveto
                    [0.5] 1.25 setdash
                    stroke"
    }
    a_"2" b_"3" c_"4" d_"5" e_"6" fis_"7" g_"8"
    \bar "|."
  }
  \new Staff \relative c' {
    \override Staff.TimeSignature #'stencil = ##f
    \time 8/1
    d1^\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"
    }
    _\markup \column {
      "1"
      \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"
    }
    e_"2" fis_"3" g_"4" s s s s
    \bar "|."
  }
>>

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

\relative c' {
  \override Staff.TimeSignature #'stencil = ##f
  \time 8/1
  d1^\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"
  }
  e_"2" fis_"3" g_"4" a_"5" b_"6" cis_"7" d_"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 ascendentes comenzando por la escala de Do Mayor hasta llegar a la escala de Do♯ Mayor (Do sostenido Mayor).

Algunas consideraciones:

  • La escala de Do Mayor no lleva ninguna alteración.
  • La escala de Do♯ Mayor lleva siete sostenidos (todas sus notas son sostenidas).
  • Siguiendo el ciclo obtendrás un total de ocho escalas.
  • Cada escala tendrá un sostenido 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 "|."
   }
Sol Mayor
\relative c {
     \clef bass
     \override Staff.TimeSignature #'stencil = ##f
     \time 8/1
     g1^\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"
     }
     a_"2" b_"3" c_"4" d_"5" e_"6" fis_"7" g_"8"
     \bar "|."
   }
Re Mayor
\relative c' {
     \override Staff.TimeSignature #'stencil = ##f
     \time 8/1
     d1^\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"
     }
     e_"2" fis_"3" g_"4" a_"5" b_"6" cis_"7" d_"8"
     \bar "|."
   }
La Mayor
\relative c {
     \clef bass
     \override Staff.TimeSignature #'stencil = ##f
     \time 8/1
     a1^\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"
     }
     b_"2" cis_"3" d_"4" e_"5" fis_"6" gis_"7" a_"8"
     \bar "|."
   }
Mi Mayor
\relative c' {
     \clef alto
     \override Staff.TimeSignature #'stencil = ##f
     \time 8/1
     e,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"
     }
     fis_"2" gis_"3" a_"4" b_"5" cis_"6" dis_"7" e_"8"
     \bar "|."
   }
Si Mayor
\relative c' {
     \override Staff.TimeSignature #'stencil = ##f
     \time 8/1
     b1^\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"
     }
     cis_"2" dis_"3" e_"4" fis_"5" gis_"6" ais_"7" b_"8"
     \bar "|."
   }
Fa♯ Mayor
\relative c' {
     \clef alto
     \override Staff.TimeSignature #'stencil = ##f
     \time 8/1
     fis,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"
     }
     gis_"2" ais_"3" b_"4" cis_"5" dis_"6" eis_"7" fis_"8"
     \bar "|."
   }
Do♯ Mayor
\relative c' {
     \override Staff.TimeSignature #'stencil = ##f
     \time 8/1
     cis1^\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"
     }
     dis_"2" eis_"3" fis_"4" gis_"5" ais_"6" bis_"7" cis_"8"
     \bar "|."
   }