-- | Terry Riley.
module Music.Theory.Tuning.Db.Riley where

import Music.Theory.Tuning.Type {- hmt -}

-- | Ratios for 'riley_albion'.
--
-- > let r = [0,112,204,316,386,498,610,702,814,884,996,1088]
-- > in map (round . ratio_to_cents) riley_albion_r == r
riley_albion_r :: [Rational]
riley_albion_r :: [Rational]
riley_albion_r = [Rational
1,Rational
16forall a. Fractional a => a -> a -> a
/Rational
15,Rational
9forall a. Fractional a => a -> a -> a
/Rational
8,Rational
6forall a. Fractional a => a -> a -> a
/Rational
5,Rational
5forall a. Fractional a => a -> a -> a
/Rational
4,Rational
4forall a. Fractional a => a -> a -> a
/Rational
3,Rational
64forall a. Fractional a => a -> a -> a
/Rational
45,Rational
3forall a. Fractional a => a -> a -> a
/Rational
2,Rational
8forall a. Fractional a => a -> a -> a
/Rational
5,Rational
5forall a. Fractional a => a -> a -> a
/Rational
3,Rational
16forall a. Fractional a => a -> a -> a
/Rational
9,Rational
15forall a. Fractional a => a -> a -> a
/Rational
8]

-- | Riley's five-limit tuning as used in _The Harp of New Albion_,
-- see <http://www.ex-tempore.org/Volx1/hudson/hudson.htm>.
--
-- > cents_i riley_albion == [0,112,204,316,386,498,610,702,814,884,996,1088]
--
-- > import Music.Theory.Tuning.Scala
-- > scl <- scl_load "riley_albion"
-- > cents_i (scale_tuning 0.01 scl) == cents_i riley_albion
riley_albion :: Tuning
riley_albion :: Tuning
riley_albion = Either [Rational] [Cents]
-> Maybe (Either Rational Cents) -> Tuning
Tuning (forall a b. a -> Either a b
Left [Rational]
riley_albion_r) forall a. Maybe a
Nothing