Note12.hs

module Sharc.Instruments.TrumpetMutedC.Note12 (note12) where

import Sharc.Types

note12 :: Note
note12 = Note
    (Pitch 369.994 54 "f#4")
    13
    (Range
        (NoteRange
            (NoteRangeAmplitude 4439.92 12 21.0)
            (NoteRangeHarmonicFreq 1 369.99))
        (NoteRange
            (NoteRangeAmplitude 5179.91 14 2192.0)
            (NoteRangeHarmonicFreq 27 9989.83)))
    [Harmonic 1 (-1.971) 1975.88
    ,Harmonic 2 (-1.197) 540.22
    ,Harmonic 3 (-0.74) 375.7
    ,Harmonic 4 0.909 166.21
    ,Harmonic 5 (-0.112) 680.5
    ,Harmonic 6 (-0.831) 331.65
    ,Harmonic 7 1.082 165.16
    ,Harmonic 8 0.795 560.88
    ,Harmonic 9 0.271 915.83
    ,Harmonic 10 (-0.84) 512.5
    ,Harmonic 11 (-0.989) 247.67
    ,Harmonic 12 1.082 21.0
    ,Harmonic 13 1.277 582.61
    ,Harmonic 14 (-0.541) 2192.0
    ,Harmonic 15 (-1.978) 131.37
    ,Harmonic 16 0.266 367.84
    ,Harmonic 17 0.279 1136.23
    ,Harmonic 18 (-1.0) 1248.31
    ,Harmonic 19 (-0.602) 918.52
    ,Harmonic 20 (-1.731) 1429.83
    ,Harmonic 21 (-2.525) 1195.13
    ,Harmonic 22 (-1.57) 329.38
    ,Harmonic 23 (-2.851) 324.63
    ,Harmonic 24 2.587 257.46
    ,Harmonic 25 0.507 496.86
    ,Harmonic 26 4.6e-2 205.66
    ,Harmonic 27 (-1.03) 219.78]