Note30.hs

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

import Sharc.Types

note30 :: Note
note30 = Note
    (Pitch 369.994 54 "f#4")
    31
    (Range
        (NoteRange
            (NoteRangeAmplitude 9989.83 27 1.03)
            (NoteRangeHarmonicFreq 1 369.99))
        (NoteRange
            (NoteRangeAmplitude 369.99 1 1143.0)
            (NoteRangeHarmonicFreq 27 9989.83)))
    [Harmonic 1 (-1.772) 1143.0
    ,Harmonic 2 0.238 35.6
    ,Harmonic 3 (-0.111) 130.25
    ,Harmonic 4 0.499 75.01
    ,Harmonic 5 1.007 103.29
    ,Harmonic 6 (-1.256) 48.4
    ,Harmonic 7 0.383 9.54
    ,Harmonic 8 0.425 13.61
    ,Harmonic 9 0.207 19.67
    ,Harmonic 10 (-1.742) 8.61
    ,Harmonic 11 (-1.353) 28.28
    ,Harmonic 12 (-0.375) 5.7
    ,Harmonic 13 0.252 5.95
    ,Harmonic 14 2.163 26.24
    ,Harmonic 15 1.7 11.72
    ,Harmonic 16 1.414 1.42
    ,Harmonic 17 1.833 4.75
    ,Harmonic 18 (-0.575) 3.67
    ,Harmonic 19 (-2.51) 6.66
    ,Harmonic 20 2.471 4.79
    ,Harmonic 21 2.552 4.68
    ,Harmonic 22 0.469 6.64
    ,Harmonic 23 2.771 6.58
    ,Harmonic 24 (-2.338) 2.12
    ,Harmonic 25 (-1.479) 4.18
    ,Harmonic 26 1.899 4.24
    ,Harmonic 27 (-1.92) 1.03]