Note15.hs

module Sharc.Instruments.ViolaMarteleBowing.Note15 (note15) where

import Sharc.Types

note15 :: Note
note15 = Note
    (Pitch 329.628 52 "e4")
    16
    (Range
        (NoteRange
            (NoteRangeAmplitude 9559.21 29 1.03)
            (NoteRangeHarmonicFreq 1 329.62))
        (NoteRange
            (NoteRangeAmplitude 329.62 1 7074.0)
            (NoteRangeHarmonicFreq 31 10218.46)))
    [Harmonic 1 1.2 7074.0
    ,Harmonic 2 (-1.841) 2927.72
    ,Harmonic 3 1.424 4694.28
    ,Harmonic 4 1.352 1580.64
    ,Harmonic 5 2.575 1715.95
    ,Harmonic 6 (-2.02) 1880.26
    ,Harmonic 7 1.108 515.35
    ,Harmonic 8 (-2.085) 1018.23
    ,Harmonic 9 3.047 149.25
    ,Harmonic 10 0.318 115.96
    ,Harmonic 11 (-2.727) 121.55
    ,Harmonic 12 (-1.224) 49.42
    ,Harmonic 13 0.741 10.52
    ,Harmonic 14 (-0.585) 50.03
    ,Harmonic 15 (-2.005) 30.26
    ,Harmonic 16 (-1.015) 19.24
    ,Harmonic 17 1.169 24.23
    ,Harmonic 18 2.791 7.02
    ,Harmonic 19 2.294 7.76
    ,Harmonic 20 (-1.907) 10.63
    ,Harmonic 21 1.948 11.75
    ,Harmonic 22 0.982 4.64
    ,Harmonic 23 0.586 1.13
    ,Harmonic 24 2.736 10.75
    ,Harmonic 25 (-0.628) 5.19
    ,Harmonic 26 (-2.424) 7.77
    ,Harmonic 27 (-1.69) 2.6
    ,Harmonic 28 (-1.623) 9.87
    ,Harmonic 29 2.139 1.03
    ,Harmonic 30 (-1.428) 4.7
    ,Harmonic 31 (-2.294) 7.74]