followKeySignature

[David Raleigh Arnold]

# keys.sed 
# Writes chromatics for *single letter* notes, according to user flag,
# to save typing.  There is *no* transposition. 
# Uses b for flat, w for double flat. s and x 
# Use 'n' for natural to prevent alteration, b included. no h.
# Writes in "international.ly" form. intl.sed can convert to english.ly
# Put KEY[1-7][bs] anywhere on first line to edit and new key anywhere
# on any line to change keys. KEY0 ends processing.
# examples: KEY4s = E major. KEY3b = Eb major.  KEY0 = A minor ;-)
# (c)2005 David Raleigh Arnold. -->GNU Enjoy! rev. 20080116

# no tabs
s/\t/ /g

# space follows/precedes curly, pointer, to prettify.
s/[{<]/ & /g
s/[}>]/ &/g

# put spaces at begin and end of line, double spaces inside
# to simplify
s/^ */ /
s/ *$/ /
s/  */  /g

# make the following into a conversion script:
# change spellings. Notes must follow at least one space.
# not relevant to key, user preference thing:
#
#   b and bb notes to f and ff
# if this changes,single letter marking must also
#s/\( [a-g]\)bb/\1ff/g
#s/\( [a-g]\)b/\1f/g
#   h to b-natural
#  todo: not followed by
#s/ h/ bn/g
#   w to double flat ff
# if this changes,single letter marking must also
#s/\( [a-g]\)w/\1ff/g

# key range
/Key[1-7][bs]/,/Key0/{

# mark single letter notes only. Accidentals will
# be added as they fall into the right key.

s/\( [a-g]\)\([^wbnxs]\)/\1%flatORsharp%\2/g

# goto (branch) and fall through
/Key7b/,/Key0/b keycb
/Key6b/,/Key0/b keygb
/Key5b/,/Key0/b keydb
/Key4b/,/Key0/b keyab
/Key3b/,/Key0/b keyeb
/Key2b/,/Key0/b keybb
/Key1b/,/Key0/b keyfn
/Key7s/,/Key0/b keycs
/Key6s/,/Key0/b keyfs
/Key5s/,/Key0/b keybn
/Key4s/,/Key0/b keyen
/Key3s/,/Key0/b keyan
/Key2s/,/Key0/b keydn
/Key1s/,/Key0/b keygn 

:keycb
s/f%flatORsharp%/f%flat%/g
:keygb
s/c%flatORsharp%/c%flat%/g
:keydb
s/g%flatORsharp%/g%flat%/g
:keyab
s/d%flatORsharp%/d%flat%/g
:keyeb
s/a%flatORsharp%/a%flat%/g
:keybb
s/e%flatORsharp%/e%flat%/g
:keyfn
s/b%flatORsharp%/b%flat%/g
b finish

:keycs
s/b%flatORsharp%/b%sharp%/g
:keyfs
s/e%flatORsharp%/e%sharp%/g
:keybn 
s/a%flatORsharp%/a%sharp%/g
:keyen 
s/d%flatORsharp%/d%sharp%/g
:keyan 
s/g%flatORsharp%/g%sharp%/g
:keydn 
s/c%flatORsharp%/c%sharp%/g
:keygn 
s/f%flatORsharp%/f%sharp%/g

:finish
# leaving out next line for debugging;
s/%flatORsharp%//g
# only b's and s's are added, since no 
# others are in key signatures
        
# flat is b
s/%flat%/b/g
# sharp is s
s/%sharp%/s/g
}

# Now outside of curly. clean up. Getting rid of n's, Key, Key0:
s/\( [a-g]\)n/\1/g
s/KEY[1-7][bs]//g
s/KEY0//g

# Undo formatting, (except bar-letter. ???)
s/{ */{/g
s/< */</g
s/ *>/>/g
s/ *}/}/g

# undo spaces at begin and end of line, double space inside
s/^ *//
s/*$//
s/  */ /g

Regards, daveA

-- 
For beginners: very easy guitar music, solos, duets, exercises. Early
intermediate guitar solos. One best scale set for all guitarists.
http://www.openguitar.com/scalescomparison.html ::: plus new and
better chord and arpeggio exercises.  http://www.openguitar.com