Note4.hs

module Sharc.Instruments.Clarinet.Note4 (note4) where

import Sharc.Types

note4 :: Note
note4 = Note
    (Pitch 184.997 42 "f#3")
    5
    (Range
        (NoteRange
            (NoteRangeAmplitude 7769.87 42 0.32)
            (NoteRangeHarmonicFreq 1 184.99))
        (NoteRange
            (NoteRangeAmplitude 184.99 1 2561.0)
            (NoteRangeHarmonicFreq 54 9989.83)))
    [Harmonic 1 (-1.151) 2561.0
    ,Harmonic 2 (-1.945) 33.41
    ,Harmonic 3 (-3.097) 706.07
    ,Harmonic 4 2.946 57.9
    ,Harmonic 5 0.515 588.18
    ,Harmonic 6 2.308 81.73
    ,Harmonic 7 (-2.028) 649.02
    ,Harmonic 8 (-2.125) 281.09
    ,Harmonic 9 (-0.435) 534.39
    ,Harmonic 10 (-1.77) 72.26
    ,Harmonic 11 1.096 172.47
    ,Harmonic 12 0.826 230.18
    ,Harmonic 13 2.317 210.34
    ,Harmonic 14 1.958 121.94
    ,Harmonic 15 2.671 240.93
    ,Harmonic 16 2.608 229.14
    ,Harmonic 17 (-2.861) 346.01
    ,Harmonic 18 (-2.319) 226.98
    ,Harmonic 19 (-1.426) 86.54
    ,Harmonic 20 (-1.082) 26.76
    ,Harmonic 21 0.113 9.97
    ,Harmonic 22 (-0.165) 39.8
    ,Harmonic 23 0.974 18.48
    ,Harmonic 24 1.925 35.56
    ,Harmonic 25 (-2.992) 4.36
    ,Harmonic 26 2.325 47.23
    ,Harmonic 27 2.327 29.51
    ,Harmonic 28 (-2.874) 43.63
    ,Harmonic 29 (-2.967) 25.4
    ,Harmonic 30 (-1.375) 26.49
    ,Harmonic 31 (-3.077) 4.39
    ,Harmonic 32 0.256 1.14
    ,Harmonic 33 (-1.762) 5.71
    ,Harmonic 34 0.141 5.33
    ,Harmonic 35 0.435 2.86
    ,Harmonic 36 0.751 2.25
    ,Harmonic 37 0.624 2.2
    ,Harmonic 38 3.106 1.7
    ,Harmonic 39 (-0.532) 0.8
    ,Harmonic 40 (-2.232) 1.18
    ,Harmonic 41 0.213 2.21
    ,Harmonic 42 1.272 0.32
    ,Harmonic 43 (-1.026) 1.84
    ,Harmonic 44 (-2.97) 2.01
    ,Harmonic 45 0.446 0.89
    ,Harmonic 46 1.065 1.1
    ,Harmonic 47 2.928 0.69
    ,Harmonic 48 (-2.866) 0.52
    ,Harmonic 49 2.316 0.52
    ,Harmonic 50 (-0.691) 1.78
    ,Harmonic 51 2.932 0.65
    ,Harmonic 52 (-0.507) 0.45
    ,Harmonic 53 0.666 0.75
    ,Harmonic 54 (-2.714) 1.05]