Note17.hs

module Sharc.Instruments.ClarinetEflat.Note17 (note17) where

import Sharc.Types

note17 :: Note
note17 = Note
    (Pitch 523.251 60 "c5")
    18
    (Range
        (NoteRange
            (NoteRangeAmplitude 9418.51 18 0.18)
            (NoteRangeHarmonicFreq 1 523.25))
        (NoteRange
            (NoteRangeAmplitude 523.25 1 4027.0)
            (NoteRangeHarmonicFreq 19 9941.76)))
    [Harmonic 1 (-1.808) 4027.0
    ,Harmonic 2 1.097 71.89
    ,Harmonic 3 0.618 936.87
    ,Harmonic 4 (-1.022) 143.84
    ,Harmonic 5 0.948 207.16
    ,Harmonic 6 2.835 126.33
    ,Harmonic 7 (-1.898) 153.81
    ,Harmonic 8 2.49 30.76
    ,Harmonic 9 (-0.958) 42.31
    ,Harmonic 10 2.354 3.39
    ,Harmonic 11 2.594 34.0
    ,Harmonic 12 (-2.495) 3.53
    ,Harmonic 13 (-0.315) 7.31
    ,Harmonic 14 (-0.441) 5.15
    ,Harmonic 15 2.673 9.76
    ,Harmonic 16 (-2.06) 7.33
    ,Harmonic 17 (-0.612) 1.78
    ,Harmonic 18 (-0.93) 0.18
    ,Harmonic 19 (-2.856) 0.82]