Note3.hs

module Sharc.Instruments.ViolinMarteleBowing.Note3 (note3) where

import Sharc.Types

note3 :: Note
note3 = Note
    (Pitch 233.082 46 "a#3")
    4
    (Range
        (NoteRange
            (NoteRangeAmplitude 9556.36 41 1.59)
            (NoteRangeHarmonicFreq 1 233.08))
        (NoteRange
            (NoteRangeAmplitude 699.24 3 4088.0)
            (NoteRangeHarmonicFreq 42 9789.44)))
    [Harmonic 1 1.692 210.92
    ,Harmonic 2 (-1.738) 608.1
    ,Harmonic 3 (-1.356) 4088.0
    ,Harmonic 4 1.253 165.07
    ,Harmonic 5 (-0.918) 754.36
    ,Harmonic 6 (-2.947) 1882.55
    ,Harmonic 7 2.501 191.0
    ,Harmonic 8 (-0.949) 286.71
    ,Harmonic 9 (-2.334) 237.22
    ,Harmonic 10 0.749 424.03
    ,Harmonic 11 (-1.523) 227.63
    ,Harmonic 12 (-0.925) 124.23
    ,Harmonic 13 0.85 139.36
    ,Harmonic 14 1.511 318.43
    ,Harmonic 15 (-1.5e-2) 114.83
    ,Harmonic 16 (-2.735) 57.42
    ,Harmonic 17 1.504 168.08
    ,Harmonic 18 (-0.281) 37.97
    ,Harmonic 19 2.438 138.61
    ,Harmonic 20 (-0.631) 105.53
    ,Harmonic 21 (-0.659) 40.71
    ,Harmonic 22 1.725 30.42
    ,Harmonic 23 1.772 3.04
    ,Harmonic 24 (-2.862) 18.29
    ,Harmonic 25 (-3.072) 20.91
    ,Harmonic 26 1.566 45.39
    ,Harmonic 27 1.213 2.58
    ,Harmonic 28 (-1.626) 7.09
    ,Harmonic 29 0.625 11.44
    ,Harmonic 30 1.586 3.37
    ,Harmonic 31 0.756 16.18
    ,Harmonic 32 2.074 4.56
    ,Harmonic 33 1.003 2.8
    ,Harmonic 34 (-1.004) 13.29
    ,Harmonic 35 (-2.839) 3.17
    ,Harmonic 36 0.111 6.16
    ,Harmonic 37 0.811 1.78
    ,Harmonic 38 0.677 5.46
    ,Harmonic 39 0.54 2.05
    ,Harmonic 40 (-0.364) 3.22
    ,Harmonic 41 0.204 1.59
    ,Harmonic 42 1.108 5.97]