Note6.hs

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

import Sharc.Types

note6 :: Note
note6 = Note
    (Pitch 277.183 49 "c#4")
    7
    (Range
        (NoteRange
            (NoteRangeAmplitude 9147.03 33 0.38)
            (NoteRangeHarmonicFreq 1 277.18))
        (NoteRange
            (NoteRangeAmplitude 277.18 1 5857.0)
            (NoteRangeHarmonicFreq 36 9978.58)))
    [Harmonic 1 1.432 5857.0
    ,Harmonic 2 (-0.113) 1673.49
    ,Harmonic 3 2.708 1623.19
    ,Harmonic 4 3.022 345.33
    ,Harmonic 5 2.391 382.01
    ,Harmonic 6 1.912 138.94
    ,Harmonic 7 0.963 243.36
    ,Harmonic 8 0.771 51.16
    ,Harmonic 9 0.305 39.41
    ,Harmonic 10 1.559 87.89
    ,Harmonic 11 0.164 49.29
    ,Harmonic 12 0.416 42.41
    ,Harmonic 13 0.475 24.88
    ,Harmonic 14 (-2.06) 9.87
    ,Harmonic 15 1.375 11.16
    ,Harmonic 16 0.633 11.67
    ,Harmonic 17 0.899 17.95
    ,Harmonic 18 2.71 7.79
    ,Harmonic 19 (-1.63) 5.05
    ,Harmonic 20 (-2.345) 3.93
    ,Harmonic 21 2.127 3.92
    ,Harmonic 22 (-2.258) 3.66
    ,Harmonic 23 (-0.261) 4.77
    ,Harmonic 24 (-2.604) 3.59
    ,Harmonic 25 (-0.595) 2.15
    ,Harmonic 26 (-2.331) 4.04
    ,Harmonic 27 7.1e-2 3.41
    ,Harmonic 28 3.062 5.17
    ,Harmonic 29 (-0.269) 9.35
    ,Harmonic 30 2.569 6.12
    ,Harmonic 31 (-0.441) 0.79
    ,Harmonic 32 (-2.749) 4.39
    ,Harmonic 33 0.412 0.38
    ,Harmonic 34 (-2.834) 2.23
    ,Harmonic 35 (-3.069) 0.72
    ,Harmonic 36 1.844 0.63]