Note16.hs

module Sharc.Instruments.ViolaMarteleBowing.Note16 (note16) where

import Sharc.Types

note16 :: Note
note16 = Note
    (Pitch 349.228 53 "f4")
    17
    (Range
        (NoteRange
            (NoteRangeAmplitude 9079.92 26 6.75)
            (NoteRangeHarmonicFreq 1 349.22))
        (NoteRange
            (NoteRangeAmplitude 349.22 1 15999.0)
            (NoteRangeHarmonicFreq 28 9778.38)))
    [Harmonic 1 1.701 15999.0
    ,Harmonic 2 (-0.74) 15383.06
    ,Harmonic 3 1.687 9271.04
    ,Harmonic 4 (-2.254) 12348.67
    ,Harmonic 5 1.42 3856.67
    ,Harmonic 6 1.368 3708.36
    ,Harmonic 7 2.843 1593.97
    ,Harmonic 8 2.15 1959.62
    ,Harmonic 9 (-0.87) 92.9
    ,Harmonic 10 (-0.353) 294.35
    ,Harmonic 11 2.3 114.11
    ,Harmonic 12 3.041 55.85
    ,Harmonic 13 1.031 187.53
    ,Harmonic 14 (-1.468) 168.25
    ,Harmonic 15 (-2.053) 81.47
    ,Harmonic 16 0.73 131.76
    ,Harmonic 17 1.108 19.53
    ,Harmonic 18 0.529 156.3
    ,Harmonic 19 (-0.963) 55.15
    ,Harmonic 20 1.789 28.55
    ,Harmonic 21 0.98 79.42
    ,Harmonic 22 0.215 130.21
    ,Harmonic 23 (-0.862) 134.7
    ,Harmonic 24 (-0.816) 22.23
    ,Harmonic 25 (-1.114) 25.96
    ,Harmonic 26 1.989 6.75
    ,Harmonic 27 (-0.878) 13.64
    ,Harmonic 28 (-1.94) 21.47]