Note8.hs

module Sharc.Instruments.ViolaMarteleBowing.Note8 (note8) where

import Sharc.Types

note8 :: Note
note8 = Note
    (Pitch 207.652 44 "g#3")
    9
    (Range
        (NoteRange
            (NoteRangeAmplitude 9967.29 48 0.88)
            (NoteRangeHarmonicFreq 1 207.65))
        (NoteRange
            (NoteRangeAmplitude 415.3 2 4011.0)
            (NoteRangeHarmonicFreq 48 9967.29)))
    [Harmonic 1 (-1.808) 1155.25
    ,Harmonic 2 (-1.447) 4011.0
    ,Harmonic 3 (-2.667) 1383.5
    ,Harmonic 4 1.604 2200.03
    ,Harmonic 5 (-0.122) 1562.61
    ,Harmonic 6 (-2.989) 1680.68
    ,Harmonic 7 (-1.709) 651.98
    ,Harmonic 8 1.508 877.87
    ,Harmonic 9 (-2.041) 116.23
    ,Harmonic 10 (-2.05) 317.32
    ,Harmonic 11 1.188 89.37
    ,Harmonic 12 0.69 316.64
    ,Harmonic 13 1.071 183.37
    ,Harmonic 14 (-2.45) 192.8
    ,Harmonic 15 (-0.929) 51.44
    ,Harmonic 16 4.6e-2 49.48
    ,Harmonic 17 2.7e-2 66.05
    ,Harmonic 18 (-3.116) 8.95
    ,Harmonic 19 8.0e-2 20.64
    ,Harmonic 20 0.341 13.45
    ,Harmonic 21 (-2.62) 7.22
    ,Harmonic 22 1.165 3.81
    ,Harmonic 23 (-2.602) 13.99
    ,Harmonic 24 0.556 7.93
    ,Harmonic 25 1.424 9.03
    ,Harmonic 26 (-0.555) 4.93
    ,Harmonic 27 (-2.861) 3.75
    ,Harmonic 28 (-1.69) 2.37
    ,Harmonic 29 (-2.509) 3.14
    ,Harmonic 30 (-1.103) 5.41
    ,Harmonic 31 0.568 6.01
    ,Harmonic 32 0.825 4.35
    ,Harmonic 33 (-0.188) 10.69
    ,Harmonic 34 (-1.644) 4.68
    ,Harmonic 35 (-2.914) 5.27
    ,Harmonic 36 (-1.023) 2.41
    ,Harmonic 37 (-1.902) 5.77
    ,Harmonic 38 0.342 2.22
    ,Harmonic 39 0.395 5.09
    ,Harmonic 40 1.591 3.87
    ,Harmonic 41 (-2.635) 1.07
    ,Harmonic 42 2.844 3.05
    ,Harmonic 43 (-0.332) 4.32
    ,Harmonic 44 1.24 2.18
    ,Harmonic 45 1.827 1.81
    ,Harmonic 46 (-2.051) 3.96
    ,Harmonic 47 (-0.351) 4.44
    ,Harmonic 48 1.903 0.88]