Note3.hs

module Sharc.Instruments.ClarinetEflat.Note3 (note3) where

import Sharc.Types

note3 :: Note
note3 = Note
    (Pitch 233.082 46 "a#3")
    4
    (Range
        (NoteRange
            (NoteRangeAmplitude 7458.62 32 1.16)
            (NoteRangeHarmonicFreq 1 233.08))
        (NoteRange
            (NoteRangeAmplitude 233.08 1 4197.0)
            (NoteRangeHarmonicFreq 42 9789.44)))
    [Harmonic 1 (-0.366) 4197.0
    ,Harmonic 2 0.417 40.0
    ,Harmonic 3 2.735 3144.3
    ,Harmonic 4 (-2.243) 54.77
    ,Harmonic 5 1.191 361.18
    ,Harmonic 6 (-2.559) 232.01
    ,Harmonic 7 1.064 1463.45
    ,Harmonic 8 (-3.101) 583.99
    ,Harmonic 9 1.113 654.95
    ,Harmonic 10 3.116 158.0
    ,Harmonic 11 1.319 481.48
    ,Harmonic 12 (-2.27) 158.93
    ,Harmonic 13 2.047 122.66
    ,Harmonic 14 (-1.413) 123.39
    ,Harmonic 15 2.42 118.99
    ,Harmonic 16 (-2.048) 203.14
    ,Harmonic 17 (-1.365) 17.28
    ,Harmonic 18 (-0.801) 5.59
    ,Harmonic 19 (-0.19) 47.1
    ,Harmonic 20 4.9e-2 53.98
    ,Harmonic 21 1.198 17.75
    ,Harmonic 22 1.842 16.38
    ,Harmonic 23 (-2.469) 5.51
    ,Harmonic 24 2.905 18.92
    ,Harmonic 25 2.81 14.87
    ,Harmonic 26 2.13 42.84
    ,Harmonic 27 (-2.173) 37.99
    ,Harmonic 28 3.011 34.99
    ,Harmonic 29 (-2.519) 25.27
    ,Harmonic 30 1.334 1.97
    ,Harmonic 31 3.107 10.92
    ,Harmonic 32 (-2.931) 1.16
    ,Harmonic 33 (-2.649) 7.62
    ,Harmonic 34 (-1.133) 3.55
    ,Harmonic 35 (-0.38) 2.79
    ,Harmonic 36 2.855 2.39
    ,Harmonic 37 (-0.571) 1.72
    ,Harmonic 38 (-2.62) 4.71
    ,Harmonic 39 2.997 4.63
    ,Harmonic 40 3.064 5.94
    ,Harmonic 41 3.003 2.28
    ,Harmonic 42 2.37 3.71]