Note34.hs

module Sharc.Instruments.CelloMarteleBowing.Note34 (note34) where

import Sharc.Types

note34 :: Note
note34 = Note
    (Pitch 466.164 58 "a#4")
    35
    (Range
        (NoteRange
            (NoteRangeAmplitude 9789.44 21 17.39)
            (NoteRangeHarmonicFreq 1 466.16))
        (NoteRange
            (NoteRangeAmplitude 466.16 1 3241.0)
            (NoteRangeHarmonicFreq 21 9789.44)))
    [Harmonic 1 0.427 3241.0
    ,Harmonic 2 3.058 2742.37
    ,Harmonic 3 0.667 538.33
    ,Harmonic 4 1.087 2582.39
    ,Harmonic 5 (-2.638) 78.53
    ,Harmonic 6 2.768 490.48
    ,Harmonic 7 0.294 397.05
    ,Harmonic 8 (-0.542) 314.09
    ,Harmonic 9 2.089 366.85
    ,Harmonic 10 (-0.134) 119.23
    ,Harmonic 11 (-0.756) 79.55
    ,Harmonic 12 (-2.013) 40.29
    ,Harmonic 13 1.65 39.04
    ,Harmonic 14 0.822 49.02
    ,Harmonic 15 2.431 53.05
    ,Harmonic 16 0.155 31.25
    ,Harmonic 17 0.391 36.43
    ,Harmonic 18 2.419 29.3
    ,Harmonic 19 (-1.039) 63.22
    ,Harmonic 20 (-0.17) 27.02
    ,Harmonic 21 (-2.002) 17.39]