Note30.hs

module Sharc.Instruments.CelloMarteleBowing.Note30 (note30) where

import Sharc.Types

note30 :: Note
note30 = Note
    (Pitch 369.994 54 "f#4")
    31
    (Range
        (NoteRange
            (NoteRangeAmplitude 5919.9 16 4.73)
            (NoteRangeHarmonicFreq 1 369.99))
        (NoteRange
            (NoteRangeAmplitude 369.99 1 3627.0)
            (NoteRangeHarmonicFreq 26 9619.84)))
    [Harmonic 1 (-1.631) 3627.0
    ,Harmonic 2 (-0.698) 706.59
    ,Harmonic 3 (-1.342) 1381.36
    ,Harmonic 4 1.639 363.19
    ,Harmonic 5 (-2.321) 1579.67
    ,Harmonic 6 (-1.42) 697.18
    ,Harmonic 7 (-1.183) 369.69
    ,Harmonic 8 4.4e-2 276.16
    ,Harmonic 9 3.024 165.94
    ,Harmonic 10 (-2.929) 134.46
    ,Harmonic 11 1.52 39.23
    ,Harmonic 12 (-1.466) 67.67
    ,Harmonic 13 0.1 42.8
    ,Harmonic 14 (-1.472) 41.85
    ,Harmonic 15 1.398 22.66
    ,Harmonic 16 (-2.235) 4.73
    ,Harmonic 17 (-3.136) 18.6
    ,Harmonic 18 (-3.041) 23.18
    ,Harmonic 19 (-2.056) 20.05
    ,Harmonic 20 (-4.0e-2) 5.49
    ,Harmonic 21 2.149 9.46
    ,Harmonic 22 (-2.333) 20.15
    ,Harmonic 23 3.0e-3 15.73
    ,Harmonic 24 (-3.116) 13.51
    ,Harmonic 25 (-2.666) 14.65
    ,Harmonic 26 (-0.677) 7.64]