1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
module Main exposing (main)
import Browser
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import Random
import Random.List
import Piano
import Theory
type State = State { whitelistedChords : List Theory.Chord
, selectedChord : Theory.Chord
}
type Msg = NextChord
| NewChord Theory.Chord
viewChord : Theory.Chord -> String
viewChord (Theory.Chord (note, chordType, chordPosition)) =
viewNote note ++ " " ++
(case chordType of
Theory.Major -> "major"
Theory.Major7 -> "major 7th"
Theory.MajorDominant7 -> "major dominant 7th"
Theory.Minor -> "minor"
Theory.Minor7 -> "minor 7th"
Theory.MinorDominant7 -> "minor dominant 7th"
Theory.Augmented -> "augmented"
Theory.Augmented7 -> "augmented 7th"
Theory.Diminished -> "diminished"
Theory.Diminished7 -> "diminished 7th") ++ " " ++
(case chordPosition of
Theory.First -> "root position"
Theory.Second -> "2nd position"
Theory.Third -> "3rd position"
Theory.Fourth -> "4th position")
{-| Serialize a human-readable format of `note` -}
viewNote : Theory.Note -> String
viewNote note =
case note of
Theory.C -> "C"
Theory.C_sharp -> "C♯/D♭"
Theory.D -> "D"
Theory.D_sharp -> "D♯/E♭"
Theory.E -> "E"
Theory.F -> "F"
Theory.F_sharp -> "F♯/G♭"
Theory.G -> "G"
Theory.G_sharp -> "G♯/A♭"
Theory.A -> "A"
Theory.A_sharp -> "A♯/B♭"
Theory.B -> "B"
cmajor : Theory.Chord
cmajor = Theory.Chord (Theory.C, Theory.Major, Theory.First)
{-| The initial state for the application. -}
initialState : State
initialState =
State { whitelistedChords = Theory.allChords
, selectedChord = cmajor
}
{-| Now that we have state, we need a function to change the state. -}
update : Msg -> State -> (State, Cmd Msg)
update msg (State {whitelistedChords, selectedChord}) =
case msg of
NewChord chord -> ( State { whitelistedChords = whitelistedChords
, selectedChord = chord
}
, Cmd.none
)
NextChord -> ( State { whitelistedChords = whitelistedChords
, selectedChord = selectedChord
}
, Random.generate (\x ->
case x of
(Just chord, _) -> NewChord chord
(Nothing, _) -> NewChord cmajor)
(Random.List.choose whitelistedChords)
)
view : State -> Html Msg
view (State {selectedChord}) =
div [] [ p [] [ text (viewChord selectedChord) ]
, button [ onClick NextChord ] [ text "Next Chord" ]
, Piano.render { highlight = Theory.notesForChord selectedChord }
]
{-| For now, I'm just dumping things onto the page to sketch ideas. -}
main =
Browser.element { init = \() -> (initialState, Cmd.none)
, subscriptions = \_ -> Sub.none
, update = update
, view = view
}
|
