Note4.hs

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

import Sharc.Types

note4 :: Note
note4 = Note
    (Pitch 246.942 47 "b3")
    5
    (Range
        (NoteRange
            (NoteRangeAmplitude 9383.79 38 1.67)
            (NoteRangeHarmonicFreq 1 246.94))
        (NoteRange
            (NoteRangeAmplitude 246.94 1 5301.0)
            (NoteRangeHarmonicFreq 40 9877.68)))
    [Harmonic 1 1.469 5301.0
    ,Harmonic 2 (-2.383) 40.76
    ,Harmonic 3 1.15 1630.43
    ,Harmonic 4 (-0.521) 23.65
    ,Harmonic 5 2.497 288.45
    ,Harmonic 6 1.386 82.45
    ,Harmonic 7 2.609 1204.47
    ,Harmonic 8 (-0.494) 602.11
    ,Harmonic 9 (-0.542) 287.49
    ,Harmonic 10 2.859 144.39
    ,Harmonic 11 (-2.795) 372.51
    ,Harmonic 12 1.545 150.05
    ,Harmonic 13 2.375 203.58
    ,Harmonic 14 0.173 315.71
    ,Harmonic 15 0.234 38.34
    ,Harmonic 16 1.55 126.51
    ,Harmonic 17 3.116 51.03
    ,Harmonic 18 1.118 140.74
    ,Harmonic 19 (-2.917) 47.35
    ,Harmonic 20 (-9.5e-2) 51.29
    ,Harmonic 21 1.451 20.2
    ,Harmonic 22 (-1.886) 19.1
    ,Harmonic 23 (-0.255) 19.12
    ,Harmonic 24 2.198 43.38
    ,Harmonic 25 (-1.213) 2.81
    ,Harmonic 26 5.5e-2 31.66
    ,Harmonic 27 (-2.221) 21.14
    ,Harmonic 28 (-2.309) 24.68
    ,Harmonic 29 0.148 15.39
    ,Harmonic 30 1.913 9.89
    ,Harmonic 31 (-1.14) 13.62
    ,Harmonic 32 0.697 4.18
    ,Harmonic 33 1.81 4.49
    ,Harmonic 34 (-1.053) 3.86
    ,Harmonic 35 1.529 3.45
    ,Harmonic 36 1.775 2.58
    ,Harmonic 37 (-2.356) 4.96
    ,Harmonic 38 (-1.921) 1.67
    ,Harmonic 39 0.72 4.28
    ,Harmonic 40 1.36 1.72]