Note0.hs

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

import Sharc.Types

note0 :: Note
note0 = Note
    (Pitch 246.942 47 "b3")
    1
    (Range
        (NoteRange
            (NoteRangeAmplitude 9877.68 40 5.55)
            (NoteRangeHarmonicFreq 1 246.94))
        (NoteRange
            (NoteRangeAmplitude 1481.65 6 4373.0)
            (NoteRangeHarmonicFreq 40 9877.68)))
    [Harmonic 1 (-2.694) 667.46
    ,Harmonic 2 1.565 1648.54
    ,Harmonic 3 (-0.425) 3368.65
    ,Harmonic 4 (-2.66) 4275.54
    ,Harmonic 5 1.741 3736.42
    ,Harmonic 6 (-0.198) 4373.0
    ,Harmonic 7 (-2.401) 2820.24
    ,Harmonic 8 1.01 2679.98
    ,Harmonic 9 (-1.23) 3051.89
    ,Harmonic 10 3.099 3044.35
    ,Harmonic 11 0.135 1855.64
    ,Harmonic 12 (-2.146) 2074.04
    ,Harmonic 13 2.049 1248.48
    ,Harmonic 14 (-1.193) 956.13
    ,Harmonic 15 3.061 910.92
    ,Harmonic 16 1.039 555.95
    ,Harmonic 17 (-1.944) 471.66
    ,Harmonic 18 2.4 389.29
    ,Harmonic 19 0.346 301.04
    ,Harmonic 20 (-2.453) 250.88
    ,Harmonic 21 1.976 241.23
    ,Harmonic 22 (-0.209) 184.6
    ,Harmonic 23 (-2.97) 159.36
    ,Harmonic 24 1.236 138.73
    ,Harmonic 25 (-0.94) 60.83
    ,Harmonic 26 2.817 66.65
    ,Harmonic 27 0.691 78.14
    ,Harmonic 28 (-1.118) 55.21
    ,Harmonic 29 2.544 48.75
    ,Harmonic 30 0.564 47.05
    ,Harmonic 31 (-2.02) 25.27
    ,Harmonic 32 2.024 16.1
    ,Harmonic 33 (-0.127) 27.17
    ,Harmonic 34 (-2.453) 15.56
    ,Harmonic 35 1.606 20.51
    ,Harmonic 36 (-0.502) 19.1
    ,Harmonic 37 (-2.155) 10.51
    ,Harmonic 38 1.14 10.79
    ,Harmonic 39 (-0.705) 14.25
    ,Harmonic 40 (-2.38) 5.55]