%{ allCscales.ly -- Master Carcassi scale file. %}
   
\version "2.2.6"
\include "english.ly"

fi = \markup { \bold \large { "i" } }
fm = \markup { \bold \large { "m" } }
fa = \markup { \bold \large { "a" } }

st = \markup { \bold \large { "st" } }
si = \markup { \bold \large { "si" } }
sm = \markup { \bold \large { "sm" } }
sW = \markup { \bold \large { "s1" } }


%{begin_group

% c.ly

notesDue = { \notes { \stemDown
\skip 1*7 
s2 c c s2
\bar "|."
}}

notesUno = { \notes {
c4 d8 e f g_\fi a b 
c e, f g_\fi a b c_1 d_3
\stemDown % bug- wrong stem direction
e_4 g, a b
\stemBoth
c d e f
g f e d c b a g_\st^\fi
e'^4 d c b a g f e
f e d c b g a b 
c4 d8 e f g^\fi a b
c4 r 
\stemUp 
<g c e>2^\fa
<e g c>^\fa r
}}

% g.ly

notesDue = { \notes { \key g \major \stemDown
\skip 1*7
s2 g2 g s
\bar "|."    
}}

notesUno = { \notes {
g4 a8 b c d e fs
g_\fi^\si b, c d e fs g_\fm a 
b^\sm d, e fs g_\fm a b c
\stemDown d g, a b 
\stemBoth c d e fs
g fs e d c b a g^\st
d' c b a g fs e d^\st
g4^\fi fs8 e d c b a
g4 r \stemUp <g' b g'>2
<g b g'> r
}}

% d.ly

notesDue = { \notes  { \key d \major \stemDown
\skip 1*8
s2 d2 d  s2
\bar "|."
}}

notesUno = { \notes {
d4 e8_1 fs_3 g_\fm a_1 b cs_1
d_2 fs, g_\fm a b cs_2 d_3 e
fs_2 a,_1 b cs_2 d_3 e fs_1 g_2 
a_4 fs g_2 e fs_2 d_3 e cs_2
d^3 b cs^2 a^1 b^4 g a^1 fs^3
g^\fm e fs d e cs d b
a b cs d e fs g^\fi e
d^\st d'^2_\fm cs b a g fs e
d4^\st r \stemUp <a' d fs>2
 <a d fs> r
}}

% a.ly

notesDue = { \notes { \key a \major \stemDown
\skip 1*7
s2 a2 a  s2
\bar "|."    
}}
notesUno = { \notes { 
a4 b8 cs d e fs gs_\fi
a cs, d e fs gs_\fi a b
cs_2 e,_1 fs_4 gs_1^\fi a b cs_1 d_2
e^4 a,^1 b cs^1 d^2 e fs^1 gs^3
a^4 gs fs e d cs b a^1
e'^4 d cs b a^2 gs fs e
d cs b a gs e fs gs
a4^\st r \stemUp <a' cs a'^4>2
<a cs a'> r
}}

% e.ly

notesDue = { \notes { \key e \major \stemDown 
\skip 1*8
s2 e,2 e s
\bar "|."    
}}

notesUno = { \notes { 
e4 fs8 gs a b cs ds
e gs, a b cs ds e fs
gs_\fi b, cs ds e fs gs_\fm a
b^\sm e, fs gs_\fm a b cs ds
e gs fs e ds fs e ds 
cs e ds cs b ds cs b
a gs fs e ds b cs ds
e4 ds8 cs b a gs fs
e4 r \stemUp <gs' b e>2
<gs b e> r
}}

% f.ly

notesDue = { \notes { \key f \major \stemDown
\skip 1*6
s2 f2 f s2 
\bar "|."    
}}

notesUno = { \notes {
f,4 g8 a bf c d e 
f a, bf c d e f g_\fi
a c, d e f g_\fi a bf \break
c f, g_\fi a bf c d e
f e d c d c bf a
g f e d c bf a g
f4 r \stemUp <a' c f>2
<a c f> r
}}

% am.ly

notesDue = { \notes { \key a \minor \stemDown
\skip 1*6
s2 a2 a s2 
\bar "|."    
}}
 
notesUno = { \notes { 
a4 b8 c d e fs gs_\fi
a c, d e fs gs_\fi a b
c e, fs gs_\fi a b c d
e f e d c d c b
a b^4 a g f g^\fi f e
d c b a gs e fs gs
a4^\st r \stemUp <a' c e>2
<e a c > r
}}

% em.ly

notesDue = { \notes { \key e \minor \stemDown
\skip 1*3
\break
\skip 1*3
s2 e,2 e s2 
\bar "|."    
 }}

notesUno = { \notes {
e4 fs8 g a b cs ds
e g, a b cs ds e fs
g_\fi^\si b, cs ds e fs g_\fi a
b^4 g'^3 fs e d c b a
g^\st e'^4 d c b a g fs
e fs g^\fi a b^4 b, cs ds
e4 r \stemUp <g b e>2
<g b e> r
}}

% dm.ly

notesDue = { \notes { \key d \minor \stemDown  
\skip 1*3
\break
\skip 1*3
s2 d2 d s2 
\bar "|."    
}}
notesUno = { \notes {
d8_\sW f,^1 g a b cs d e
f a, b cs d e f g_\fi
a d, e f g_\fi a b cs
d e f e d c bf a
d c bf a g f e d^\st
g^\fi f e d cs a b cs
d4^\st r \stemUp <a' d f>2
<a d f> r
}}

% bb.ly

notesDue = { \notes { \key bf \major \stemDown
\skip 1*8
s2 bf2 bf s2 
\bar "|."    
}}

notesUno = { \notes {
bf8 c d ef f ef d c 
bf c d ef f g_\fi a bf
c d ef f g f ef d
c d ef d c bf a g
f g^\fi a bf c bf a g
f ef d c bf a g f^1
bf^1 c d ef f g^\fi a bf
c bf a g f ef d c
bf4 r \stemUp <f' d'>2
<d bf'>^3 r
}}

% eb.ly

notesDue = { \notes { \key ef \major \stemDown  
\skip 1*7
s2 ef2 ef s2 
\bar "|."    
}}
notesUno = { \notes { 
ef4 g8_\fi f ef d c bf
af g f g af bf c d
ef4 f8 g_\fi af bf c d
ef f g f ef d c bf
af g f g^\fi af bf c d 
ef d c bf af g f ef
d f ef d c bf c d
ef4^1 r \stemUp <g bf ef>2^2
<g bf ef>r
}}

% bm.ly

notesDue = { \notes { 
\key b \minor 
\stemDown  
\skip 1*8
s2 b2 b s2 
\bar "|."    
}}
notesUno = { \notes {
b4 d8 cs b a g fs
e fs gs as b cs d e 
fs gs_\fm as b cs_1 d_2 e_4 cs
d fs e d cs e d cs
b d cs b 
\stemDown
a^1 cs^2 b a^1   % stem direction bug, a worse example
\stemBoth
g4 <b^4>8_\fm a g fs e d
cs b as b cs fs, gs as!
b4 cs8 d e fs gs^\fm as
b4^\sm r \stemUp <fs d'>2^2
<d b'>r
}}

end_group%}

\score { 
  \context Staff {
    \set Staff.minimumVerticalExtent = #'(-0.0 . 0.0)
    \set Staff.verticalExtent = #'(-4.0 . 4.0)
    \clef "treble_8" \time 4/4 
    \notes { \relative c <<
      \context Voice = voiceDue { \notesDue }
      \context Voice = voiceUno { \notesUno }
    >> 
}}}