Note24.hs

module Sharc.Instruments.Viola.Note24 (note24) where

import Sharc.Types

note24 :: Note
note24 = Note
    (Pitch 523.251 60 "c5")
    25
    (Range
        (NoteRange
            (NoteRangeAmplitude 7848.76 15 7.47)
            (NoteRangeHarmonicFreq 1 523.25))
        (NoteRange
            (NoteRangeAmplitude 1569.75 3 6561.0)
            (NoteRangeHarmonicFreq 19 9941.76)))
    [Harmonic 1 2.216 2658.8
    ,Harmonic 2 0.751 3080.38
    ,Harmonic 3 1.14 6561.0
    ,Harmonic 4 1.241 4529.37
    ,Harmonic 5 (-0.353) 507.46
    ,Harmonic 6 2.847 1503.43
    ,Harmonic 7 (-2.105) 1053.57
    ,Harmonic 8 1.264 680.26
    ,Harmonic 9 2.151 241.65
    ,Harmonic 10 2.007 406.73
    ,Harmonic 11 0.683 636.65
    ,Harmonic 12 (-1.682) 677.39
    ,Harmonic 13 (-1.193) 138.13
    ,Harmonic 14 2.211 131.81
    ,Harmonic 15 2.591 7.47
    ,Harmonic 16 (-1.105) 24.53
    ,Harmonic 17 0.745 47.39
    ,Harmonic 18 (-1.861) 23.11
    ,Harmonic 19 (-1.434) 14.09]