Note30.hs

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

import Sharc.Types

note30 :: Note
note30 = Note
    (Pitch 369.994 54 "f#4")
    31
    (Range
        (NoteRange
            (NoteRangeAmplitude 9619.84 26 3.95)
            (NoteRangeHarmonicFreq 1 369.99))
        (NoteRange
            (NoteRangeAmplitude 369.99 1 2989.0)
            (NoteRangeHarmonicFreq 26 9619.84)))
    [Harmonic 1 1.576 2989.0
    ,Harmonic 2 (-1.235) 760.59
    ,Harmonic 3 1.939 1368.35
    ,Harmonic 4 1.302 331.06
    ,Harmonic 5 1.054 1169.02
    ,Harmonic 6 (-1.835) 402.33
    ,Harmonic 7 2.632 123.0
    ,Harmonic 8 (-0.315) 502.62
    ,Harmonic 9 (-0.471) 270.11
    ,Harmonic 10 2.887 211.94
    ,Harmonic 11 (-2.895) 34.28
    ,Harmonic 12 (-1.055) 26.36
    ,Harmonic 13 1.764 28.81
    ,Harmonic 14 (-1.307) 11.9
    ,Harmonic 15 1.679 43.19
    ,Harmonic 16 (-3.138) 8.27
    ,Harmonic 17 (-1.225) 34.16
    ,Harmonic 18 3.022 38.06
    ,Harmonic 19 0.755 26.49
    ,Harmonic 20 1.0 5.98
    ,Harmonic 21 (-1.257) 13.71
    ,Harmonic 22 0.81 19.27
    ,Harmonic 23 2.969 8.68
    ,Harmonic 24 2.878 7.55
    ,Harmonic 25 (-1.444) 4.3
    ,Harmonic 26 1.982 3.95]