module Sharc.Instruments.CelloMarteleBowing.Note42 (note42) where

import Sharc.Types

note42 :: Note
note42 = Note
    (Pitch 739.989 66 "f#5")
    43
    (Range
        (NoteRange
            (NoteRangeAmplitude 8879.86 12 23.1)
            (NoteRangeHarmonicFreq 1 739.98))
        (NoteRange
            (NoteRangeAmplitude 2219.96 3 3595.0)
            (NoteRangeHarmonicFreq 13 9619.85)))
    [Harmonic 1 3.09 2046.12
    ,Harmonic 2 0.669 2604.75
    ,Harmonic 3 1.381 3595.0
    ,Harmonic 4 1.353 2379.23
    ,Harmonic 5 (-2.685) 1077.55
    ,Harmonic 6 (-1.141) 154.24
    ,Harmonic 7 2.815 121.83
    ,Harmonic 8 (-2.499) 67.43
    ,Harmonic 9 (-3.107) 80.96
    ,Harmonic 10 1.67 50.68
    ,Harmonic 11 (-2.509) 45.53
    ,Harmonic 12 0.953 23.1
    ,Harmonic 13 1.6 36.2]