Note8.hs

module Sharc.Instruments.TrumpetMutedC.Note8 (note8) where

import Sharc.Types

note8 :: Note
note8 = Note
    (Pitch 293.665 50 "d4")
    9
    (Range
        (NoteRange
            (NoteRangeAmplitude 4404.97 15 18.79)
            (NoteRangeHarmonicFreq 1 293.66))
        (NoteRange
            (NoteRangeAmplitude 1761.99 6 1401.0)
            (NoteRangeHarmonicFreq 34 9984.61)))
    [Harmonic 1 (-1.741) 975.09
    ,Harmonic 2 (-2.008) 432.55
    ,Harmonic 3 (-1.605) 207.78
    ,Harmonic 4 (-2.072) 49.65
    ,Harmonic 5 (-0.585) 76.1
    ,Harmonic 6 (-1.436) 1401.0
    ,Harmonic 7 (-2.603) 108.42
    ,Harmonic 8 2.924 59.21
    ,Harmonic 9 (-0.917) 180.94
    ,Harmonic 10 (-2.315) 372.36
    ,Harmonic 11 (-2.776) 403.1
    ,Harmonic 12 2.414 212.69
    ,Harmonic 13 1.708 206.25
    ,Harmonic 14 1.322 134.39
    ,Harmonic 15 0.81 18.79
    ,Harmonic 16 (-3.134) 222.31
    ,Harmonic 17 2.335 850.02
    ,Harmonic 18 (-0.564) 761.21
    ,Harmonic 19 (-1.22) 63.36
    ,Harmonic 20 1.141 281.79
    ,Harmonic 21 0.313 777.01
    ,Harmonic 22 (-0.211) 504.74
    ,Harmonic 23 (-1.977) 780.21
    ,Harmonic 24 (-1.114) 943.36
    ,Harmonic 25 (-2.242) 1366.92
    ,Harmonic 26 2.852 986.04
    ,Harmonic 27 1.545 483.3
    ,Harmonic 28 1.143 389.48
    ,Harmonic 29 0.647 300.55
    ,Harmonic 30 (-0.232) 206.79
    ,Harmonic 31 (-1.445) 203.85
    ,Harmonic 32 2.56 435.82
    ,Harmonic 33 2.025 229.63
    ,Harmonic 34 1.462 344.97]