Note6.hs

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

import Sharc.Types

note6 :: Note
note6 = Note
    (Pitch 277.183 49 "c#4")
    7
    (Range
        (NoteRange
            (NoteRangeAmplitude 9424.22 34 8.0e-2)
            (NoteRangeHarmonicFreq 1 277.18))
        (NoteRange
            (NoteRangeAmplitude 277.18 1 4659.0)
            (NoteRangeHarmonicFreq 36 9978.58)))
    [Harmonic 1 (-1.499) 4659.0
    ,Harmonic 2 1.129 495.25
    ,Harmonic 3 (-1.439) 51.22
    ,Harmonic 4 2.624 467.88
    ,Harmonic 5 (-2.849) 189.32
    ,Harmonic 6 1.731 163.69
    ,Harmonic 7 (-0.767) 94.21
    ,Harmonic 8 2.725 103.71
    ,Harmonic 9 (-0.728) 31.04
    ,Harmonic 10 (-1.466) 1.95
    ,Harmonic 11 (-2.241) 8.34
    ,Harmonic 12 (-0.782) 8.12
    ,Harmonic 13 (-1.975) 25.3
    ,Harmonic 14 0.184 11.6
    ,Harmonic 15 (-1.783) 3.52
    ,Harmonic 16 (-2.319) 1.63
    ,Harmonic 17 2.017 5.04
    ,Harmonic 18 (-2.464) 1.44
    ,Harmonic 19 (-2.054) 1.48
    ,Harmonic 20 (-0.334) 0.64
    ,Harmonic 21 (-1.3e-2) 3.57
    ,Harmonic 22 (-9.1e-2) 1.46
    ,Harmonic 23 2.747 0.76
    ,Harmonic 24 (-1.595) 0.23
    ,Harmonic 25 2.68 0.63
    ,Harmonic 26 2.719 1.54
    ,Harmonic 27 2.22 0.29
    ,Harmonic 28 (-1.066) 0.37
    ,Harmonic 29 1.705 0.36
    ,Harmonic 30 8.4e-2 0.6
    ,Harmonic 31 1.654 0.4
    ,Harmonic 32 2.601 0.53
    ,Harmonic 33 (-0.479) 0.25
    ,Harmonic 34 (-1.569) 8.0e-2
    ,Harmonic 35 1.292 0.24
    ,Harmonic 36 1.529 0.15]