Note0.hs

module Sharc.Instruments.Oboe.Note0 (note0) where

import Sharc.Types

note0 :: Note
note0 = Note
    (Pitch 233.082 46 "a#3")
    1
    (Range
        (NoteRange
            (NoteRangeAmplitude 8157.87 35 0.82)
            (NoteRangeHarmonicFreq 1 233.08))
        (NoteRange
            (NoteRangeAmplitude 1165.4 5 6367.0)
            (NoteRangeHarmonicFreq 43 10022.52)))
    [Harmonic 1 2.589 1218.94
    ,Harmonic 2 0.722 1570.61
    ,Harmonic 3 (-1.378) 3223.07
    ,Harmonic 4 2.696 2304.36
    ,Harmonic 5 1.553 6367.0
    ,Harmonic 6 (-0.12) 2537.99
    ,Harmonic 7 (-0.616) 1022.76
    ,Harmonic 8 (-2.894) 568.72
    ,Harmonic 9 (-2.288) 187.49
    ,Harmonic 10 (-2.962) 606.61
    ,Harmonic 11 2.375 990.88
    ,Harmonic 12 0.645 372.82
    ,Harmonic 13 (-0.468) 367.5
    ,Harmonic 14 (-1.298) 222.96
    ,Harmonic 15 2.493 162.46
    ,Harmonic 16 (-9.5e-2) 93.38
    ,Harmonic 17 (-2.747) 77.53
    ,Harmonic 18 1.564 85.07
    ,Harmonic 19 0.351 44.51
    ,Harmonic 20 (-2.034) 21.06
    ,Harmonic 21 2.936 83.95
    ,Harmonic 22 2.276 18.26
    ,Harmonic 23 (-0.619) 24.04
    ,Harmonic 24 (-1.577) 39.63
    ,Harmonic 25 2.795 3.6
    ,Harmonic 26 (-0.502) 3.81
    ,Harmonic 27 (-0.367) 8.39
    ,Harmonic 28 (-0.954) 3.86
    ,Harmonic 29 0.379 2.43
    ,Harmonic 30 0.298 4.2
    ,Harmonic 31 0.913 3.09
    ,Harmonic 32 2.526 1.61
    ,Harmonic 33 2.64 1.28
    ,Harmonic 34 (-2.711) 1.14
    ,Harmonic 35 1.977 0.82
    ,Harmonic 36 0.493 1.69
    ,Harmonic 37 1.438 2.68
    ,Harmonic 38 2.65 2.7
    ,Harmonic 39 2.549 3.56
    ,Harmonic 40 (-3.023) 3.65
    ,Harmonic 41 (-2.613) 3.54
    ,Harmonic 42 (-2.684) 3.4
    ,Harmonic 43 (-2.733) 1.19]