Note1.hs

module Sharc.Instruments.ViolinMarteleBowing.Note1 (note1) where

import Sharc.Types

note1 :: Note
note1 = Note
    (Pitch 207.652 44 "g#3")
    2
    (Range
        (NoteRange
            (NoteRangeAmplitude 9344.34 45 0.51)
            (NoteRangeHarmonicFreq 1 207.65))
        (NoteRange
            (NoteRangeAmplitude 415.3 2 4804.0)
            (NoteRangeHarmonicFreq 46 9551.99)))
    [Harmonic 1 0.734 273.11
    ,Harmonic 2 1.223 4804.0
    ,Harmonic 3 (-1.26) 841.32
    ,Harmonic 4 (-1.849) 288.13
    ,Harmonic 5 (-1.857) 1019.85
    ,Harmonic 6 (-2.875) 1437.38
    ,Harmonic 7 (-0.825) 956.61
    ,Harmonic 8 2.902 253.9
    ,Harmonic 9 1.726 249.31
    ,Harmonic 10 2.023 136.38
    ,Harmonic 11 (-6.8e-2) 738.04
    ,Harmonic 12 (-1.93) 154.38
    ,Harmonic 13 1.808 236.69
    ,Harmonic 14 1.964 132.35
    ,Harmonic 15 (-0.504) 141.87
    ,Harmonic 16 (-1.153) 61.62
    ,Harmonic 17 2.589 35.25
    ,Harmonic 18 (-0.324) 20.26
    ,Harmonic 19 (-2.332) 94.07
    ,Harmonic 20 (-2.451) 30.75
    ,Harmonic 21 (-1.38) 42.3
    ,Harmonic 22 1.699 30.39
    ,Harmonic 23 (-1.299) 24.85
    ,Harmonic 24 2.766 10.01
    ,Harmonic 25 (-1.823) 14.84
    ,Harmonic 26 (-2.189) 4.65
    ,Harmonic 27 (-1.1e-2) 6.1
    ,Harmonic 28 (-0.95) 3.39
    ,Harmonic 29 0.903 3.16
    ,Harmonic 30 (-1.915) 3.45
    ,Harmonic 31 (-1.763) 1.86
    ,Harmonic 32 1.016 4.01
    ,Harmonic 33 1.362 1.28
    ,Harmonic 34 (-1.966) 2.02
    ,Harmonic 35 0.311 1.15
    ,Harmonic 36 (-0.712) 2.38
    ,Harmonic 37 (-0.542) 0.85
    ,Harmonic 38 (-1.839) 1.99
    ,Harmonic 39 2.167 2.94
    ,Harmonic 40 0.567 1.57
    ,Harmonic 41 (-2.248) 1.36
    ,Harmonic 42 2.27 0.89
    ,Harmonic 43 (-1.114) 1.4
    ,Harmonic 44 0.313 1.24
    ,Harmonic 45 2.845 0.51
    ,Harmonic 46 (-2.199) 4.42]