Note16.hs

module Sharc.Instruments.TrumpetMutedC.Note16 (note16) where

import Sharc.Types

note16 :: Note
note16 = Note
    (Pitch 466.164 58 "a#4")
    17
    (Range
        (NoteRange
            (NoteRangeAmplitude 5593.96 12 52.71)
            (NoteRangeHarmonicFreq 1 466.16))
        (NoteRange
            (NoteRangeAmplitude 5127.8 11 1866.0)
            (NoteRangeHarmonicFreq 21 9789.44)))
    [Harmonic 1 1.35 328.78
    ,Harmonic 2 (-0.497) 263.5
    ,Harmonic 3 (-1.511) 66.53
    ,Harmonic 4 1.124 533.95
    ,Harmonic 5 (-2.794) 70.9
    ,Harmonic 6 (-2.38) 153.11
    ,Harmonic 7 0.22 285.12
    ,Harmonic 8 2.368 379.11
    ,Harmonic 9 (-0.497) 100.1
    ,Harmonic 10 (-0.504) 128.18
    ,Harmonic 11 1.226 1866.0
    ,Harmonic 12 2.546 52.71
    ,Harmonic 13 2.2 340.46
    ,Harmonic 14 (-1.163) 646.73
    ,Harmonic 15 2.289 642.8
    ,Harmonic 16 (-1.667) 734.93
    ,Harmonic 17 0.5 296.68
    ,Harmonic 18 (-2.162) 179.64
    ,Harmonic 19 1.063 213.76
    ,Harmonic 20 1.418 337.73
    ,Harmonic 21 (-1.506) 151.75]