Note1.hs

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

import Sharc.Types

note1 :: Note
note1 = Note
    (Pitch 261.626 48 "c4")
    2
    (Range
        (NoteRange
            (NoteRangeAmplitude 9156.91 35 4.25)
            (NoteRangeHarmonicFreq 1 261.62))
        (NoteRange
            (NoteRangeAmplitude 1831.38 7 3184.0)
            (NoteRangeHarmonicFreq 38 9941.78)))
    [Harmonic 1 (-3.007) 759.57
    ,Harmonic 2 1.1e-2 1565.87
    ,Harmonic 3 (-2.888) 2136.15
    ,Harmonic 4 0.411 2293.16
    ,Harmonic 5 (-1.959) 2484.21
    ,Harmonic 6 0.492 2217.4
    ,Harmonic 7 (-2.542) 3184.0
    ,Harmonic 8 0.897 1494.65
    ,Harmonic 9 (-2.974) 1133.94
    ,Harmonic 10 1.9e-2 1695.37
    ,Harmonic 11 (-2.956) 1288.08
    ,Harmonic 12 (-0.642) 684.58
    ,Harmonic 13 2.494 802.86
    ,Harmonic 14 (-0.763) 602.14
    ,Harmonic 15 2.168 283.19
    ,Harmonic 16 (-1.417) 277.9
    ,Harmonic 17 1.867 187.84
    ,Harmonic 18 (-0.882) 130.09
    ,Harmonic 19 1.908 98.85
    ,Harmonic 20 (-1.033) 106.85
    ,Harmonic 21 1.976 72.15
    ,Harmonic 22 (-1.009) 47.28
    ,Harmonic 23 1.991 45.05
    ,Harmonic 24 (-0.73) 39.79
    ,Harmonic 25 2.04 25.14
    ,Harmonic 26 (-1.627) 14.22
    ,Harmonic 27 1.828 22.36
    ,Harmonic 28 (-1.164) 15.75
    ,Harmonic 29 1.7 12.04
    ,Harmonic 30 (-1.183) 15.61
    ,Harmonic 31 2.063 19.5
    ,Harmonic 32 (-0.953) 7.57
    ,Harmonic 33 2.066 11.55
    ,Harmonic 34 (-0.671) 7.28
    ,Harmonic 35 2.785 4.25
    ,Harmonic 36 (-0.962) 7.5
    ,Harmonic 37 2.375 11.33
    ,Harmonic 38 (-0.393) 12.37]