Note16.hs

module Sharc.Instruments.Clarinet.Note16 (note16) where

import Sharc.Types

note16 :: Note
note16 = Note
    (Pitch 369.994 54 "f#4")
    17
    (Range
        (NoteRange
            (NoteRangeAmplitude 8879.85 24 1.4)
            (NoteRangeHarmonicFreq 1 369.99))
        (NoteRange
            (NoteRangeAmplitude 1109.98 3 1544.0)
            (NoteRangeHarmonicFreq 26 9619.84)))
    [Harmonic 1 2.252 182.32
    ,Harmonic 2 (-0.78) 63.74
    ,Harmonic 3 (-0.822) 1544.0
    ,Harmonic 4 2.403 294.43
    ,Harmonic 5 (-0.862) 981.79
    ,Harmonic 6 2.93 298.82
    ,Harmonic 7 (-2.668) 333.2
    ,Harmonic 8 (-3.012) 234.81
    ,Harmonic 9 (-2.306) 426.27
    ,Harmonic 10 2.25 254.34
    ,Harmonic 11 (-2.397) 120.36
    ,Harmonic 12 (-1.978) 49.52
    ,Harmonic 13 (-2.395) 90.67
    ,Harmonic 14 (-1.57) 35.56
    ,Harmonic 15 (-2.63) 66.97
    ,Harmonic 16 (-1.888) 44.48
    ,Harmonic 17 (-2.318) 11.61
    ,Harmonic 18 (-1.914) 5.03
    ,Harmonic 19 (-0.342) 10.56
    ,Harmonic 20 1.657 7.4
    ,Harmonic 21 (-1.74) 2.57
    ,Harmonic 22 1.109 3.35
    ,Harmonic 23 (-0.426) 2.29
    ,Harmonic 24 (-3.121) 1.4
    ,Harmonic 25 0.753 1.4
    ,Harmonic 26 0.114 2.63]