Note4.hs

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

import Sharc.Types

note4 :: Note
note4 = Note
    (Pitch 233.082 46 "a#3")
    5
    (Range
        (NoteRange
            (NoteRangeAmplitude 5593.96 24 14.1)
            (NoteRangeHarmonicFreq 1 233.08))
        (NoteRange
            (NoteRangeAmplitude 5127.8 22 2056.0)
            (NoteRangeHarmonicFreq 42 9789.44)))
    [Harmonic 1 (-2.585) 1371.4
    ,Harmonic 2 (-2.474) 368.31
    ,Harmonic 3 (-1.856) 514.98
    ,Harmonic 4 (-1.832) 211.03
    ,Harmonic 5 (-2.45) 59.88
    ,Harmonic 6 (-0.288) 89.76
    ,Harmonic 7 0.464 199.13
    ,Harmonic 8 (-1.371) 353.26
    ,Harmonic 9 (-1.264) 105.49
    ,Harmonic 10 (-2.029) 64.78
    ,Harmonic 11 1.096 51.53
    ,Harmonic 12 0.399 145.89
    ,Harmonic 13 (-0.687) 498.41
    ,Harmonic 14 (-0.854) 664.6
    ,Harmonic 15 (-1.789) 416.34
    ,Harmonic 16 (-2.187) 451.46
    ,Harmonic 17 (-2.103) 189.24
    ,Harmonic 18 (-2.375) 83.94
    ,Harmonic 19 (-0.452) 21.77
    ,Harmonic 20 (-0.225) 185.68
    ,Harmonic 21 (-0.829) 605.33
    ,Harmonic 22 (-1.362) 2056.0
    ,Harmonic 23 2.652 490.35
    ,Harmonic 24 2.12 14.1
    ,Harmonic 25 (-0.955) 356.3
    ,Harmonic 26 (-1.642) 439.16
    ,Harmonic 27 (-1.979) 1020.27
    ,Harmonic 28 (-2.736) 983.58
    ,Harmonic 29 2.477 756.19
    ,Harmonic 30 (-2.591) 1298.36
    ,Harmonic 31 2.54 951.96
    ,Harmonic 32 2.198 898.69
    ,Harmonic 33 1.289 1101.82
    ,Harmonic 34 0.832 263.08
    ,Harmonic 35 1.589 543.75
    ,Harmonic 36 0.412 339.4
    ,Harmonic 37 (-0.332) 239.71
    ,Harmonic 38 (-0.79) 197.44
    ,Harmonic 39 (-1.098) 200.97
    ,Harmonic 40 2.514 581.97
    ,Harmonic 41 2.842 152.84
    ,Harmonic 42 2.168 145.88]