Note5.hs

module Sharc.Instruments.TrumpetMutedC.Note5 (note5) where

import Sharc.Types

note5 :: Note
note5 = Note
    (Pitch 246.942 47 "b3")
    6
    (Range
        (NoteRange
            (NoteRangeAmplitude 4444.95 18 21.74)
            (NoteRangeHarmonicFreq 1 246.94))
        (NoteRange
            (NoteRangeAmplitude 5185.78 21 1789.0)
            (NoteRangeHarmonicFreq 40 9877.68)))
    [Harmonic 1 (-2.268) 636.67
    ,Harmonic 2 (-2.048) 528.43
    ,Harmonic 3 (-1.624) 527.43
    ,Harmonic 4 (-1.588) 248.47
    ,Harmonic 5 (-0.756) 69.6
    ,Harmonic 6 0.263 124.2
    ,Harmonic 7 0.907 632.45
    ,Harmonic 8 (-0.782) 285.78
    ,Harmonic 9 (-2.025) 232.68
    ,Harmonic 10 1.632 22.7
    ,Harmonic 11 (-5.0e-3) 192.96
    ,Harmonic 12 (-0.778) 520.63
    ,Harmonic 13 (-0.338) 489.71
    ,Harmonic 14 (-1.277) 419.86
    ,Harmonic 15 (-2.501) 655.4
    ,Harmonic 16 (-2.348) 309.5
    ,Harmonic 17 (-2.75) 130.28
    ,Harmonic 18 (-0.693) 21.74
    ,Harmonic 19 (-0.455) 285.64
    ,Harmonic 20 (-1.222) 624.76
    ,Harmonic 21 (-2.997) 1789.0
    ,Harmonic 22 2.491 366.32
    ,Harmonic 23 (-1.751) 121.84
    ,Harmonic 24 (-2.648) 346.6
    ,Harmonic 25 (-2.368) 860.82
    ,Harmonic 26 (-3.062) 788.81
    ,Harmonic 27 2.175 1010.06
    ,Harmonic 28 (-2.809) 489.95
    ,Harmonic 29 2.249 1284.39
    ,Harmonic 30 1.562 1697.36
    ,Harmonic 31 0.748 1257.95
    ,Harmonic 32 (-0.497) 559.31
    ,Harmonic 33 0.924 477.67
    ,Harmonic 34 0.326 432.54
    ,Harmonic 35 (-0.662) 342.63
    ,Harmonic 36 (-1.952) 327.35
    ,Harmonic 37 (-2.199) 354.83
    ,Harmonic 38 1.948 447.87
    ,Harmonic 39 2.047 294.13
    ,Harmonic 40 1.133 445.14]