Note6.hs

module Sharc.Instruments.TrumpetMutedC.Note6 (note6) where

import Sharc.Types

note6 :: Note
note6 = Note
    (Pitch 261.626 48 "c4")
    7
    (Range
        (NoteRange
            (NoteRangeAmplitude 4447.64 17 5.66)
            (NoteRangeHarmonicFreq 1 261.62))
        (NoteRange
            (NoteRangeAmplitude 7325.52 28 1544.61)
            (NoteRangeHarmonicFreq 38 9941.78)))
    [Harmonic 1 (-1.485) 1126.69
    ,Harmonic 2 (-1.464) 317.41
    ,Harmonic 3 (-1.201) 324.5
    ,Harmonic 4 (-0.263) 145.67
    ,Harmonic 5 0.804 56.73
    ,Harmonic 6 2.206 153.15
    ,Harmonic 7 1.226 614.77
    ,Harmonic 8 1.965 202.0
    ,Harmonic 9 0.782 89.82
    ,Harmonic 10 (-2.228) 104.5
    ,Harmonic 11 (-2.59) 262.31
    ,Harmonic 12 (-2.842) 338.71
    ,Harmonic 13 3.009 300.1
    ,Harmonic 14 2.638 561.16
    ,Harmonic 15 (-3.087) 213.17
    ,Harmonic 16 3.1 123.76
    ,Harmonic 17 1.939 5.66
    ,Harmonic 18 (-0.284) 288.73
    ,Harmonic 19 (-0.9) 1022.43
    ,Harmonic 20 (-2.661) 1117.0
    ,Harmonic 21 (-2.916) 221.75
    ,Harmonic 22 0.495 155.95
    ,Harmonic 23 (-0.534) 500.06
    ,Harmonic 24 (-0.217) 990.46
    ,Harmonic 25 (-0.821) 903.22
    ,Harmonic 26 (-1.317) 521.76
    ,Harmonic 27 4.8e-2 684.73
    ,Harmonic 28 (-0.389) 1544.61
    ,Harmonic 29 (-0.993) 636.16
    ,Harmonic 30 (-0.886) 515.92
    ,Harmonic 31 0.4 143.19
    ,Harmonic 32 (-0.711) 206.43
    ,Harmonic 33 (-1.144) 244.43
    ,Harmonic 34 (-1.645) 242.52
    ,Harmonic 35 (-1.602) 169.17
    ,Harmonic 36 2.709 181.02
    ,Harmonic 37 2.853 138.11
    ,Harmonic 38 2.666 277.04]