Note10.hs

module Sharc.Instruments.ViolaMarteleBowing.Note10 (note10) where

import Sharc.Types

note10 :: Note
note10 = Note
    (Pitch 246.942 47 "b3")
    11
    (Range
        (NoteRange
            (NoteRangeAmplitude 8889.91 36 2.19)
            (NoteRangeHarmonicFreq 1 246.94))
        (NoteRange
            (NoteRangeAmplitude 987.76 4 9383.0)
            (NoteRangeHarmonicFreq 40 9877.68)))
    [Harmonic 1 0.485 3069.16
    ,Harmonic 2 2.908 1541.86
    ,Harmonic 3 1.438 2309.3
    ,Harmonic 4 (-1.685) 9383.0
    ,Harmonic 5 (-1.161) 1452.18
    ,Harmonic 6 (-0.301) 358.03
    ,Harmonic 7 2.966 3277.31
    ,Harmonic 8 (-2.143) 1220.58
    ,Harmonic 9 2.616 648.12
    ,Harmonic 10 (-0.528) 127.14
    ,Harmonic 11 2.961 287.87
    ,Harmonic 12 0.251 30.42
    ,Harmonic 13 (-1.489) 236.02
    ,Harmonic 14 (-1.211) 188.42
    ,Harmonic 15 3.005 136.25
    ,Harmonic 16 (-2.897) 35.03
    ,Harmonic 17 (-2.078) 28.65
    ,Harmonic 18 1.252 7.08
    ,Harmonic 19 0.732 12.73
    ,Harmonic 20 (-1.722) 22.8
    ,Harmonic 21 (-1.398) 23.39
    ,Harmonic 22 1.329 19.89
    ,Harmonic 23 (-2.232) 21.0
    ,Harmonic 24 1.916 3.6
    ,Harmonic 25 (-0.616) 22.29
    ,Harmonic 26 1.571 16.55
    ,Harmonic 27 (-1.867) 11.62
    ,Harmonic 28 (-0.697) 6.36
    ,Harmonic 29 (-0.186) 9.8
    ,Harmonic 30 0.134 3.74
    ,Harmonic 31 1.114 8.44
    ,Harmonic 32 1.145 18.93
    ,Harmonic 33 (-1.183) 19.25
    ,Harmonic 34 (-0.78) 10.9
    ,Harmonic 35 2.554 18.65
    ,Harmonic 36 2.952 2.19
    ,Harmonic 37 (-0.516) 6.21
    ,Harmonic 38 (-2.91) 3.2
    ,Harmonic 39 (-0.6) 5.25
    ,Harmonic 40 (-0.861) 2.94]