Note4.hs

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

import Sharc.Types

note4 :: Note
note4 = Note
    (Pitch 246.942 47 "b3")
    5
    (Range
        (NoteRange
            (NoteRangeAmplitude 10124.62 41 0.26)
            (NoteRangeHarmonicFreq 1 246.94))
        (NoteRange
            (NoteRangeAmplitude 493.88 2 8467.0)
            (NoteRangeHarmonicFreq 43 10618.5)))
    [Harmonic 1 1.621 6868.37
    ,Harmonic 2 (-2.38) 8467.0
    ,Harmonic 3 0.742 1245.28
    ,Harmonic 4 (-2.792) 645.43
    ,Harmonic 5 0.95 488.79
    ,Harmonic 6 (-2.322) 137.84
    ,Harmonic 7 2.425 194.39
    ,Harmonic 8 (-0.74) 70.93
    ,Harmonic 9 1.415 116.88
    ,Harmonic 10 1.749 179.12
    ,Harmonic 11 (-0.134) 99.49
    ,Harmonic 12 (-3.3e-2) 63.88
    ,Harmonic 13 2.418 14.23
    ,Harmonic 14 (-0.143) 49.27
    ,Harmonic 15 1.271 10.08
    ,Harmonic 16 4.8e-2 5.8
    ,Harmonic 17 0.288 8.28
    ,Harmonic 18 0.593 21.6
    ,Harmonic 19 1.873 30.18
    ,Harmonic 20 0.349 8.47
    ,Harmonic 21 (-2.771) 2.44
    ,Harmonic 22 (-2.406) 9.37
    ,Harmonic 23 5.2e-2 3.18
    ,Harmonic 24 (-0.244) 2.43
    ,Harmonic 25 2.911 4.44
    ,Harmonic 26 (-0.834) 7.39
    ,Harmonic 27 3.129 4.36
    ,Harmonic 28 (-2.398) 0.72
    ,Harmonic 29 (-2.058) 1.66
    ,Harmonic 30 1.161 2.38
    ,Harmonic 31 0.889 0.8
    ,Harmonic 32 0.365 1.82
    ,Harmonic 33 0.165 0.89
    ,Harmonic 34 3.108 0.75
    ,Harmonic 35 2.9 1.41
    ,Harmonic 36 (-1.473) 1.07
    ,Harmonic 37 1.936 0.69
    ,Harmonic 38 (-1.918) 0.42
    ,Harmonic 39 0.284 0.81
    ,Harmonic 40 0.212 0.67
    ,Harmonic 41 (-1.209) 0.26
    ,Harmonic 42 1.398 0.87
    ,Harmonic 43 1.487 0.82]