Music.Theory.Tuning.Rosenboom_1979

David Rosenboom, "In the Beginning: Etude I (Trombones)", 1979 http://davidrosenboom.com/media/beginning-etude-i-trombones

kw: subharmonics, difference tones

Documentation

t2_to_ratio :: (Integer, Integer) -> Rational

dr_tuning_oct :: Num n => [[(n, n)]]

Tuning, ratios for each octave.

length (concat dr_tuning_oct) == 19
import qualified Music.Theory.Tuning as T
map (map (T.ratio_to_cents . t2_to_ratio)) dr_tuning_oct

dr_tuning :: [Rational]

Tuning, actual ratios.

dr_scale :: [Double]

Actual scale, in CPS.

let r = [52,69,76,83,92,104,119,138,156,166,185,208,234,260,277,286,311,332,363]
in map round dr_scale == r

dr_scale_tbl_12et :: [HS_R Pitch]

dr_scale_scala :: Scale Integer

dr_scale_tbl_24et :: [HS_R Pitch]

dr_chords :: [[Pitch]]

dr_ratio_seq :: Num n => [[(n, n)]]

dr_ratio_seq_hist :: (Ord n, Num n) => [((n, n), Int)]

dr_nt :: Integral i => [([i], [i])]

dr_nt_pitch :: ([Int], [Int]) -> ([Pitch], [Pitch])