mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Ensure only whitelisted chord inversions present in initial state

Browse source 
Whoops...
This commit is contained in:
William Carroll 2020-04-19 18:56:51 +01:00
parent a059c32403
commit 541c40cd2f
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
website/sandbox/learnpianochords/src/State.elm
View file

@ -63,7 +63,9 @@ init =
[ { pitchClass = Theory.C, mode = Theory.MajorMode } ]
in
{ whitelistedChords =
keys |> List.concatMap Theory.chordsForKey
keys
|> List.concatMap Theory.chordsForKey
|> List.filter (\chord -> List.member chord.chordInversion inversions)
, whitelistedChordTypes = chordTypes
, whitelistedInversions = inversions
, whitelistedPitchClasses = pitchClasses
@ -200,7 +202,9 @@ update msg model =
( { model
| whitelistedKeys = keys
, whitelistedChords =
keys |> List.concatMap Theory.chordsForKey
keys
|> List.concatMap Theory.chordsForKey
|> List.filter (\chord -> List.member chord.chordInversion model.whitelistedInversions)
, selectedChord = Nothing
}
, Cmd.none