Note5.hs

module Sharc.Instruments.ViolinsEnsemble.Note5 (note5) where

import Sharc.Types

note5 :: Note
note5 = Note
    (Pitch 261.626 48 "c4")
    6
    (Range
        (NoteRange
            (NoteRangeAmplitude 10203.41 39 2.42)
            (NoteRangeHarmonicFreq 1 261.62))
        (NoteRange
            (NoteRangeAmplitude 261.62 1 27620.0)
            (NoteRangeHarmonicFreq 39 10203.41)))
    [Harmonic 1 (-0.81) 27620.0
    ,Harmonic 2 (-2.337) 25402.92
    ,Harmonic 3 (-3.038) 3472.67
    ,Harmonic 4 (-0.557) 1613.85
    ,Harmonic 5 (-2.127) 1506.6
    ,Harmonic 6 (-1.409) 1012.98
    ,Harmonic 7 (-2.636) 824.67
    ,Harmonic 8 0.635 847.85
    ,Harmonic 9 0.599 480.94
    ,Harmonic 10 2.645 248.75
    ,Harmonic 11 (-0.451) 391.77
    ,Harmonic 12 0.924 132.02
    ,Harmonic 13 (-0.649) 102.25
    ,Harmonic 14 (-0.834) 137.74
    ,Harmonic 15 (-0.373) 941.86
    ,Harmonic 16 (-1.7e-2) 118.58
    ,Harmonic 17 0.312 235.13
    ,Harmonic 18 (-1.125) 219.67
    ,Harmonic 19 (-2.338) 128.08
    ,Harmonic 20 (-0.884) 79.21
    ,Harmonic 21 (-2.32) 48.65
    ,Harmonic 22 1.507 76.41
    ,Harmonic 23 0.132 78.94
    ,Harmonic 24 1.311 29.09
    ,Harmonic 25 (-0.768) 26.12
    ,Harmonic 26 1.008 8.26
    ,Harmonic 27 (-2.707) 13.0
    ,Harmonic 28 (-1.223) 7.31
    ,Harmonic 29 (-1.215) 8.37
    ,Harmonic 30 (-2.907) 16.89
    ,Harmonic 31 (-2.539) 7.57
    ,Harmonic 32 (-2.421) 19.13
    ,Harmonic 33 (-1.776) 17.14
    ,Harmonic 34 (-2.63) 5.28
    ,Harmonic 35 (-2.294) 11.03
    ,Harmonic 36 (-1.981) 8.08
    ,Harmonic 37 (-2.786) 11.49
    ,Harmonic 38 (-3.053) 8.32
    ,Harmonic 39 2.678 2.42]