Note14.hs

module Sharc.Instruments.ViolaMuted.Note14 (note14) where

import Sharc.Types

note14 :: Note
note14 = Note
    (Pitch 293.665 50 "d4")
    15
    (Range
        (NoteRange
            (NoteRangeAmplitude 6754.29 23 7.28)
            (NoteRangeHarmonicFreq 1 293.66))
        (NoteRange
            (NoteRangeAmplitude 293.66 1 5803.0)
            (NoteRangeHarmonicFreq 34 9984.61)))
    [Harmonic 1 (-5.2e-2) 5803.0
    ,Harmonic 2 (-0.303) 1984.57
    ,Harmonic 3 0.302 941.87
    ,Harmonic 4 6.9e-2 528.13
    ,Harmonic 5 (-3.033) 4533.88
    ,Harmonic 6 (-2.208) 4330.5
    ,Harmonic 7 2.346 1580.03
    ,Harmonic 8 1.744 1299.68
    ,Harmonic 9 (-1.426) 681.86
    ,Harmonic 10 (-3.132) 1466.14
    ,Harmonic 11 1.58 1280.36
    ,Harmonic 12 (-1.099) 275.32
    ,Harmonic 13 7.3e-2 532.05
    ,Harmonic 14 1.253 532.09
    ,Harmonic 15 2.974 49.92
    ,Harmonic 16 2.737 76.96
    ,Harmonic 17 2.334 73.48
    ,Harmonic 18 1.487 129.06
    ,Harmonic 19 (-2.426) 54.23
    ,Harmonic 20 (-1.952) 135.75
    ,Harmonic 21 1.948 40.7
    ,Harmonic 22 (-1.853) 54.89
    ,Harmonic 23 (-2.821) 7.28
    ,Harmonic 24 (-2.45) 47.16
    ,Harmonic 25 (-1.848) 24.79
    ,Harmonic 26 1.121 57.06
    ,Harmonic 27 (-2.424) 17.26
    ,Harmonic 28 (-1.495) 20.19
    ,Harmonic 29 2.696 25.98
    ,Harmonic 30 (-2.842) 26.61
    ,Harmonic 31 1.663 20.36
    ,Harmonic 32 1.254 15.6
    ,Harmonic 33 1.831 30.69
    ,Harmonic 34 (-2.713) 8.98]