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.
Ir a la navegación Ir a la búsqueda
← Escalas diatónicas en modo mayor Ciclo ascendente de escalas Ciclo descendente de escalas →
Teoría musical/Fundamentos de la Teoría Musical


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 "|."
   }