Note29.hs

module Sharc.Instruments.Cello.Note29 (note29) where

import Sharc.Types

note29 :: Note
note29 = Note
    (Pitch 349.228 53 "f4")
    30
    (Range
        (NoteRange
            (NoteRangeAmplitude 8381.47 24 8.55)
            (NoteRangeHarmonicFreq 1 349.22))
        (NoteRange
            (NoteRangeAmplitude 1746.14 5 2020.0)
            (NoteRangeHarmonicFreq 28 9778.38)))
    [Harmonic 1 0.234 1304.89
    ,Harmonic 2 2.443 1851.99
    ,Harmonic 3 2.326 1455.31
    ,Harmonic 4 1.94 547.71
    ,Harmonic 5 0.486 2020.0
    ,Harmonic 6 (-0.511) 760.31
    ,Harmonic 7 (-2.354) 369.99
    ,Harmonic 8 1.14 356.62
    ,Harmonic 9 2.537 531.96
    ,Harmonic 10 (-2.06) 171.92
    ,Harmonic 11 2.678 86.2
    ,Harmonic 12 1.796 143.19
    ,Harmonic 13 1.65 62.84
    ,Harmonic 14 (-0.865) 12.91
    ,Harmonic 15 (-0.599) 27.92
    ,Harmonic 16 0.743 21.74
    ,Harmonic 17 (-0.674) 24.54
    ,Harmonic 18 1.647 27.75
    ,Harmonic 19 (-1.687) 10.54
    ,Harmonic 20 1.863 17.71
    ,Harmonic 21 (-1.713) 14.11
    ,Harmonic 22 2.563 18.7
    ,Harmonic 23 (-1.374) 24.09
    ,Harmonic 24 (-1.371) 8.55
    ,Harmonic 25 0.84 31.37
    ,Harmonic 26 (-2.434) 16.24
    ,Harmonic 27 (-0.698) 9.72
    ,Harmonic 28 1.63 20.42]