Note1.hs

module Sharc.Instruments.Oboe.Note1 (note1) where

import Sharc.Types

note1 :: Note
note1 = Note
    (Pitch 246.942 47 "b3")
    2
    (Range
        (NoteRange
            (NoteRangeAmplitude 7161.31 29 1.33)
            (NoteRangeHarmonicFreq 1 246.94))
        (NoteRange
            (NoteRangeAmplitude 1234.71 5 5719.0)
            (NoteRangeHarmonicFreq 40 9877.68)))
    [Harmonic 1 (-0.648) 2507.43
    ,Harmonic 2 (-0.363) 936.45
    ,Harmonic 3 0.246 4240.12
    ,Harmonic 4 0.997 3493.9
    ,Harmonic 5 2.242 5719.0
    ,Harmonic 6 2.26 3315.5
    ,Harmonic 7 (-2.831) 649.13
    ,Harmonic 8 (-1.394) 52.48
    ,Harmonic 9 2.744 184.03
    ,Harmonic 10 2.487 144.34
    ,Harmonic 11 (-2.8e-2) 114.14
    ,Harmonic 12 (-0.855) 917.4
    ,Harmonic 13 (-0.484) 416.61
    ,Harmonic 14 7.6e-2 373.73
    ,Harmonic 15 1.151 258.87
    ,Harmonic 16 1.726 178.91
    ,Harmonic 17 2.048 222.87
    ,Harmonic 18 2.624 91.78
    ,Harmonic 19 (-2.636) 56.58
    ,Harmonic 20 (-1.0) 44.26
    ,Harmonic 21 (-2.077) 3.6
    ,Harmonic 22 (-0.474) 40.59
    ,Harmonic 23 1.09 14.43
    ,Harmonic 24 1.603 14.65
    ,Harmonic 25 0.709 15.7
    ,Harmonic 26 1.6 17.45
    ,Harmonic 27 1.12 1.55
    ,Harmonic 28 2.676 6.82
    ,Harmonic 29 0.879 1.33
    ,Harmonic 30 (-2.851) 4.05
    ,Harmonic 31 1.781 2.68
    ,Harmonic 32 (-2.697) 4.58
    ,Harmonic 33 2.278 5.63
    ,Harmonic 34 (-2.274) 2.17
    ,Harmonic 35 2.327 5.1
    ,Harmonic 36 (-2.073) 3.73
    ,Harmonic 37 2.227 3.68
    ,Harmonic 38 (-2.854) 2.85
    ,Harmonic 39 1.99 3.6
    ,Harmonic 40 (-2.974) 4.48]