Note30.hs

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

import Sharc.Types

note30 :: Note
note30 = Note
    (Pitch 369.994 54 "f#4")
    31
    (Range
        (NoteRange
            (NoteRangeAmplitude 7029.88 19 0.11)
            (NoteRangeHarmonicFreq 1 369.99))
        (NoteRange
            (NoteRangeAmplitude 369.99 1 3567.0)
            (NoteRangeHarmonicFreq 26 9619.84)))
    [Harmonic 1 1.179 3567.0
    ,Harmonic 2 (-1.188) 43.12
    ,Harmonic 3 (-2.833) 339.92
    ,Harmonic 4 1.85 53.5
    ,Harmonic 5 2.117 173.22
    ,Harmonic 6 2.744 66.31
    ,Harmonic 7 2.908 23.22
    ,Harmonic 8 (-2.8e-2) 23.72
    ,Harmonic 9 1.924 14.58
    ,Harmonic 10 0.527 25.86
    ,Harmonic 11 2.105 3.38
    ,Harmonic 12 (-1.064) 27.01
    ,Harmonic 13 (-2.065) 2.95
    ,Harmonic 14 1.519 1.39
    ,Harmonic 15 (-3.026) 0.66
    ,Harmonic 16 1.771 1.37
    ,Harmonic 17 2.445 0.69
    ,Harmonic 18 0.24 1.19
    ,Harmonic 19 (-1.557) 0.11
    ,Harmonic 20 0.345 0.4
    ,Harmonic 21 (-1.227) 0.39
    ,Harmonic 22 3.049 0.68
    ,Harmonic 23 2.664 1.17
    ,Harmonic 24 2.55 0.8
    ,Harmonic 25 2.143 0.5
    ,Harmonic 26 (-2.215) 0.61]