Note17.hs

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

import Sharc.Types

note17 :: Note
note17 = Note
    (Pitch 391.995 55 "g4")
    18
    (Range
        (NoteRange
            (NoteRangeAmplitude 9799.87 25 0.5)
            (NoteRangeHarmonicFreq 1 391.99))
        (NoteRange
            (NoteRangeAmplitude 1567.98 4 1691.0)
            (NoteRangeHarmonicFreq 25 9799.87)))
    [Harmonic 1 2.786 392.9
    ,Harmonic 2 (-0.91) 114.38
    ,Harmonic 3 (-0.864) 1416.06
    ,Harmonic 4 2.23 1691.0
    ,Harmonic 5 2.109 540.87
    ,Harmonic 6 0.492 352.87
    ,Harmonic 7 2.012 357.12
    ,Harmonic 8 1.355 890.73
    ,Harmonic 9 (-5.1e-2) 246.89
    ,Harmonic 10 0.407 77.57
    ,Harmonic 11 0.65 231.98
    ,Harmonic 12 (-0.417) 73.57
    ,Harmonic 13 0.428 104.3
    ,Harmonic 14 (-1.415) 21.42
    ,Harmonic 15 0.377 53.39
    ,Harmonic 16 (-1.503) 2.62
    ,Harmonic 17 0.64 9.86
    ,Harmonic 18 (-1.887) 5.36
    ,Harmonic 19 (-2.77) 6.43
    ,Harmonic 20 (-1.988) 6.26
    ,Harmonic 21 2.138 11.03
    ,Harmonic 22 2.234 2.97
    ,Harmonic 23 (-1.534) 2.3
    ,Harmonic 24 (-0.487) 3.2
    ,Harmonic 25 1.205 0.5]