Note4.hs

module Sharc.Instruments.TrumpetBach.Note4 (note4) where

import Sharc.Types

note4 :: Note
note4 = Note
    (Pitch 311.127 51 "d#4")
    5
    (Range
        (NoteRange
            (NoteRangeAmplitude 7467.04 24 7.66)
            (NoteRangeHarmonicFreq 1 311.12))
        (NoteRange
            (NoteRangeAmplitude 1866.76 6 4541.0)
            (NoteRangeHarmonicFreq 31 9644.93)))
    [Harmonic 1 2.864 1264.93
    ,Harmonic 2 0.475 1502.83
    ,Harmonic 3 (-2.877) 2188.34
    ,Harmonic 4 (-0.52) 2010.48
    ,Harmonic 5 2.623 2585.22
    ,Harmonic 6 0.23 4541.0
    ,Harmonic 7 (-3.129) 3320.76
    ,Harmonic 8 (-0.17) 2586.02
    ,Harmonic 9 2.703 994.82
    ,Harmonic 10 (-1.491) 1200.78
    ,Harmonic 11 1.25 1064.15
    ,Harmonic 12 (-2.134) 891.14
    ,Harmonic 13 0.984 592.14
    ,Harmonic 14 (-1.997) 384.68
    ,Harmonic 15 1.028 264.1
    ,Harmonic 16 (-2.512) 173.05
    ,Harmonic 17 0.531 161.37
    ,Harmonic 18 (-2.442) 141.73
    ,Harmonic 19 0.82 144.06
    ,Harmonic 20 (-2.39) 67.53
    ,Harmonic 21 1.123 27.88
    ,Harmonic 22 (-2.309) 12.34
    ,Harmonic 23 1.186 11.81
    ,Harmonic 24 (-1.032) 7.66
    ,Harmonic 25 1.733 12.83
    ,Harmonic 26 (-2.388) 17.17
    ,Harmonic 27 0.321 15.12
    ,Harmonic 28 2.997 10.23
    ,Harmonic 29 (-0.264) 16.02
    ,Harmonic 30 3.012 19.27
    ,Harmonic 31 3.8e-2 30.16]