Note10.hs

module Sharc.Instruments.BassFlute.Note10 (note10) where

import Sharc.Types

note10 :: Note
note10 = Note
    (Pitch 233.082 46 "a#3")
    11
    (Range
        (NoteRange
            (NoteRangeAmplitude 9556.36 41 0.6)
            (NoteRangeHarmonicFreq 1 233.08))
        (NoteRange
            (NoteRangeAmplitude 233.08 1 6008.0)
            (NoteRangeHarmonicFreq 43 10022.52)))
    [Harmonic 1 0.532 6008.0
    ,Harmonic 2 (-2.079) 3917.65
    ,Harmonic 3 (-2.421) 4240.57
    ,Harmonic 4 (-2.446) 17.1
    ,Harmonic 5 (-1.76) 1523.91
    ,Harmonic 6 (-2.558) 238.67
    ,Harmonic 7 1.26 235.99
    ,Harmonic 8 2.246 80.41
    ,Harmonic 9 1.106 169.67
    ,Harmonic 10 2.4 72.4
    ,Harmonic 11 (-3.06) 23.99
    ,Harmonic 12 (-2.676) 38.76
    ,Harmonic 13 (-1.628) 29.29
    ,Harmonic 14 (-0.523) 16.94
    ,Harmonic 15 (-1.281) 11.49
    ,Harmonic 16 0.335 6.08
    ,Harmonic 17 1.637 18.29
    ,Harmonic 18 2.814 4.07
    ,Harmonic 19 2.584 5.8
    ,Harmonic 20 (-2.117) 7.85
    ,Harmonic 21 (-0.727) 4.17
    ,Harmonic 22 1.704 1.37
    ,Harmonic 23 0.32 3.38
    ,Harmonic 24 1.578 6.34
    ,Harmonic 25 2.136 7.59
    ,Harmonic 26 2.936 3.22
    ,Harmonic 27 (-1.974) 2.76
    ,Harmonic 28 (-0.269) 6.8
    ,Harmonic 29 1.193 4.01
    ,Harmonic 30 1.182 0.67
    ,Harmonic 31 2.524 7.07
    ,Harmonic 32 2.982 11.48
    ,Harmonic 33 1.679 4.4
    ,Harmonic 34 0.113 1.54
    ,Harmonic 35 (-2.577) 2.66
    ,Harmonic 36 (-1.383) 1.76
    ,Harmonic 37 2.763 1.2
    ,Harmonic 38 (-0.525) 1.94
    ,Harmonic 39 0.997 1.97
    ,Harmonic 40 0.423 1.02
    ,Harmonic 41 1.429 0.6
    ,Harmonic 42 (-2.99) 1.06
    ,Harmonic 43 (-2.962) 1.61]