module Music.Theory.Clef where
import Music.Theory.Pitch
import Music.Theory.Pitch.Name
data Clef_T = Bass | Tenor | Alto | Treble | Percussion
deriving (Eq,Ord,Show)
data Integral i => Clef i = Clef {clef_t :: Clef_T
,clef_octave :: i}
deriving (Eq,Ord,Show)
clef_range :: Clef_T -> Maybe (Pitch,Pitch)
clef_range c =
case c of
Bass -> Just (f2,b3)
Tenor -> Just (c3,f4)
Alto -> Just (e3,a4)
Treble -> Just (d4,g5)
Percussion -> Nothing
clef_suggest :: Integral i => Pitch -> Clef i
clef_suggest p | p < f1 = Clef Bass (2)
| p < f2 = Clef Bass (1)
| p < b3 = Clef Bass 0
| p < g5 = Clef Treble 0
| p < g6 = Clef Treble 1
| otherwise = Clef Treble 2
clef_zero :: Integral i => Clef i -> Clef i
clef_zero (Clef c_t _) = Clef c_t 0