Note7.hs

module Sharc.Instruments.Violin.Note7 (note7) where

import Sharc.Types

note7 :: Note
note7 = Note
    (Pitch 293.665 50 "d4")
    8
    (Range
        (NoteRange
            (NoteRangeAmplitude 9103.61 31 2.82)
            (NoteRangeHarmonicFreq 1 293.66))
        (NoteRange
            (NoteRangeAmplitude 2349.32 8 3009.0)
            (NoteRangeHarmonicFreq 34 9984.61)))
    [Harmonic 1 (-2.874) 2510.16
    ,Harmonic 2 3.6e-2 953.18
    ,Harmonic 3 (-0.982) 751.29
    ,Harmonic 4 (-0.122) 453.99
    ,Harmonic 5 (-1.172) 1993.43
    ,Harmonic 6 (-2.382) 403.69
    ,Harmonic 7 (-1.9e-2) 2393.37
    ,Harmonic 8 3.094 3009.0
    ,Harmonic 9 (-0.424) 63.07
    ,Harmonic 10 (-0.579) 494.43
    ,Harmonic 11 2.676 550.53
    ,Harmonic 12 6.3e-2 334.75
    ,Harmonic 13 1.044 136.26
    ,Harmonic 14 (-1.073) 68.44
    ,Harmonic 15 (-2.255) 150.62
    ,Harmonic 16 0.366 175.39
    ,Harmonic 17 (-0.64) 72.94
    ,Harmonic 18 (-2.194) 137.64
    ,Harmonic 19 (-0.794) 131.43
    ,Harmonic 20 (-1.726) 72.96
    ,Harmonic 21 2.373 37.04
    ,Harmonic 22 (-1.913) 33.23
    ,Harmonic 23 1.668 14.82
    ,Harmonic 24 0.144 18.95
    ,Harmonic 25 (-1.937) 52.57
    ,Harmonic 26 (-1.463) 25.83
    ,Harmonic 27 2.071 7.49
    ,Harmonic 28 (-0.184) 19.75
    ,Harmonic 29 (-0.827) 17.93
    ,Harmonic 30 (-1.914) 18.12
    ,Harmonic 31 2.577 2.82
    ,Harmonic 32 (-2.579) 3.8
    ,Harmonic 33 (-2.932) 9.08
    ,Harmonic 34 5.2e-2 12.51]