mirror of
https://github.com/microtherion/VocalEasel.git
synced 2024-12-22 11:14:00 +00:00
Omit repeated chords. Fix omitted steps
This commit is contained in:
parent
0edecd72eb
commit
1011966cfd
5
BUGS
5
BUGS
|
@ -10,5 +10,10 @@
|
|||
* Prefer flats in C major
|
||||
* Walking syllables is not accurate
|
||||
|
||||
23Feb08
|
||||
|
||||
* Joy Spring: Import in 12ths
|
||||
* Let's do it: C697
|
||||
* Let's Misbehave: Transposes wrong way
|
||||
|
||||
|
||||
|
|
|
@ -186,7 +186,7 @@ def parseLilypond
|
|||
tokens = []
|
||||
INFILE.each do |line|
|
||||
line.chomp!.sub!(/%.*/, "")
|
||||
line.scan(%r$\G\s*(\{|\}|\(|\)|\||=|~|<<|>>|--|#'|#\(|##t|##f|\\\w+|\".*?\"|\w[-+\w\d.',:*/]+|.)$) do |token|
|
||||
line.scan(%r$\G\s*(\{|\}|\(|\)|\||=|~|<<|>>|--|#'|#\(|##t|##f|\\\w+|\".*?\"|\w[-+^\w\d.',:*/]+|.)$) do |token|
|
||||
tokens.push(token[0])
|
||||
end
|
||||
end
|
||||
|
@ -237,7 +237,7 @@ def parseLilypond
|
|||
(\d+ # 1, 2, 4, 8, 16 ...
|
||||
\.*(?:\*\d+/\d+)? # ., *3/4
|
||||
)?
|
||||
(?:\:([-+^:.a-z\d]+)?)? # :maj9.7-^2
|
||||
(?:\:([-+^:.a-z\d]*))? # :maj9.7-^2
|
||||
(?:/\+?( # /+
|
||||
[a-g](?:[ei]?s)? # Root: a, bes, fis, as
|
||||
))?
|
||||
|
@ -476,9 +476,9 @@ def makeMeasures
|
|||
if len+chordLen > measureLen
|
||||
remLen = len+chordLen-measureLen
|
||||
chordLen -= remLen
|
||||
remChord = chord.dup
|
||||
remChord['durNum'] = remLen.num
|
||||
remChord['durDenom'] = remLen.denom
|
||||
remChord = {
|
||||
'pitch' => VL::NoPitch, 'root' => VL::NoPitch,
|
||||
'durNum' => remLen.num, 'durDenom' => remLen.denom}
|
||||
CHORDS.unshift(remChord)
|
||||
end
|
||||
mchords.push(chord)
|
||||
|
|
Loading…
Reference in New Issue
Block a user