Note18.hs

module Sharc.Instruments.BassFlute.Note18 (note18) where

import Sharc.Types

note18 :: Note
note18 = Note
    (Pitch 369.994 54 "f#4")
    19
    (Range
        (NoteRange
            (NoteRangeAmplitude 6289.89 17 0.82)
            (NoteRangeHarmonicFreq 1 369.99))
        (NoteRange
            (NoteRangeAmplitude 369.99 1 4587.0)
            (NoteRangeHarmonicFreq 27 9989.83)))
    [Harmonic 1 1.417 4587.0
    ,Harmonic 2 1.708 1362.39
    ,Harmonic 3 1.654 1137.75
    ,Harmonic 4 0.633 239.7
    ,Harmonic 5 1.375 123.36
    ,Harmonic 6 0.747 51.05
    ,Harmonic 7 1.403 20.57
    ,Harmonic 8 1.045 13.81
    ,Harmonic 9 1.625 10.5
    ,Harmonic 10 1.791 9.07
    ,Harmonic 11 (-2.771) 2.68
    ,Harmonic 12 1.393 3.86
    ,Harmonic 13 3.124 2.02
    ,Harmonic 14 (-0.7) 4.32
    ,Harmonic 15 (-1.976) 4.4
    ,Harmonic 16 (-2.483) 4.08
    ,Harmonic 17 1.67 0.82
    ,Harmonic 18 0.466 1.01
    ,Harmonic 19 2.326 2.07
    ,Harmonic 20 2.374 5.4
    ,Harmonic 21 2.838 10.07
    ,Harmonic 22 2.81 4.25
    ,Harmonic 23 2.773 2.42
    ,Harmonic 24 (-2.0) 4.2
    ,Harmonic 25 (-2.076) 3.11
    ,Harmonic 26 (-1.407) 2.86
    ,Harmonic 27 (-2.432) 1.86]