Note13.hs

module Sharc.Instruments.ClarinetEflat.Note13 (note13) where

import Sharc.Types

note13 :: Note
note13 = Note
    (Pitch 415.305 56 "g#4")
    14
    (Range
        (NoteRange
            (NoteRangeAmplitude 8721.4 21 3.87)
            (NoteRangeHarmonicFreq 1 415.3))
        (NoteRange
            (NoteRangeAmplitude 415.3 1 3937.0)
            (NoteRangeHarmonicFreq 24 9967.32)))
    [Harmonic 1 (-2.047) 3937.0
    ,Harmonic 2 0.755 65.1
    ,Harmonic 3 (-0.669) 818.68
    ,Harmonic 4 (-2.019) 101.99
    ,Harmonic 5 (-1.029) 545.13
    ,Harmonic 6 (-1.624) 41.49
    ,Harmonic 7 (-1.42) 242.81
    ,Harmonic 8 (-0.548) 19.77
    ,Harmonic 9 0.762 243.48
    ,Harmonic 10 1.368 62.67
    ,Harmonic 11 (-1.819) 104.81
    ,Harmonic 12 (-2.605) 5.89
    ,Harmonic 13 (-1.126) 4.53
    ,Harmonic 14 (-1.353) 13.72
    ,Harmonic 15 (-2.718) 23.87
    ,Harmonic 16 (-2.13) 14.57
    ,Harmonic 17 3.044 20.4
    ,Harmonic 18 (-0.68) 7.74
    ,Harmonic 19 2.517 21.24
    ,Harmonic 20 2.41 9.9
    ,Harmonic 21 (-0.266) 3.87
    ,Harmonic 22 9.7e-2 5.96
    ,Harmonic 23 (-1.032) 4.08
    ,Harmonic 24 1.296 4.51]