Note4.hs

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

import Sharc.Types

note4 :: Note
note4 = Note
    (Pitch 246.942 47 "b3")
    5
    (Range
        (NoteRange
            (NoteRangeAmplitude 9383.79 38 1.5)
            (NoteRangeHarmonicFreq 1 246.94))
        (NoteRange
            (NoteRangeAmplitude 493.88 2 3564.0)
            (NoteRangeHarmonicFreq 40 9877.68)))
    [Harmonic 1 1.319 1725.35
    ,Harmonic 2 1.291 3564.0
    ,Harmonic 3 1.064 1670.75
    ,Harmonic 4 (-0.437) 899.03
    ,Harmonic 5 3.041 2290.37
    ,Harmonic 6 1.937 704.21
    ,Harmonic 7 2.49 41.42
    ,Harmonic 8 0.164 71.26
    ,Harmonic 9 (-0.308) 279.85
    ,Harmonic 10 2.206 280.85
    ,Harmonic 11 (-7.2e-2) 162.29
    ,Harmonic 12 (-2.17) 69.0
    ,Harmonic 13 (-2.187) 11.17
    ,Harmonic 14 2.432 15.45
    ,Harmonic 15 1.801 16.13
    ,Harmonic 16 (-2.83) 9.0
    ,Harmonic 17 2.725 30.95
    ,Harmonic 18 (-0.23) 18.14
    ,Harmonic 19 (-0.798) 33.07
    ,Harmonic 20 (-1.773) 8.29
    ,Harmonic 21 (-2.187) 19.22
    ,Harmonic 22 (-2.984) 6.92
    ,Harmonic 23 0.774 13.57
    ,Harmonic 24 0.554 19.71
    ,Harmonic 25 1.426 5.58
    ,Harmonic 26 (-0.155) 6.89
    ,Harmonic 27 1.404 8.71
    ,Harmonic 28 0.165 11.22
    ,Harmonic 29 (-3.13) 14.91
    ,Harmonic 30 1.892 10.79
    ,Harmonic 31 (-2.731) 6.69
    ,Harmonic 32 2.919 23.63
    ,Harmonic 33 2.679 27.43
    ,Harmonic 34 2.703 17.71
    ,Harmonic 35 (-2.388) 7.62
    ,Harmonic 36 (-2.339) 11.07
    ,Harmonic 37 (-1.604) 2.21
    ,Harmonic 38 0.96 1.5
    ,Harmonic 39 0.955 5.04
    ,Harmonic 40 0.376 3.73]