Note3.hs

module Sharc.Instruments.Flute.Note3 (note3) where

import Sharc.Types

note3 :: Note
note3 = Note
    (Pitch 311.127 51 "d#4")
    4
    (Range
        (NoteRange
            (NoteRangeAmplitude 5600.28 18 0.8)
            (NoteRangeHarmonicFreq 1 311.12))
        (NoteRange
            (NoteRangeAmplitude 622.25 2 4666.0)
            (NoteRangeHarmonicFreq 31 9644.93)))
    [Harmonic 1 2.946 3366.87
    ,Harmonic 2 0.713 4666.0
    ,Harmonic 3 (-1.467) 931.67
    ,Harmonic 4 1.151 1009.54
    ,Harmonic 5 (-2.64) 716.99
    ,Harmonic 6 (-0.522) 205.57
    ,Harmonic 7 2.152 9.82
    ,Harmonic 8 0.689 108.8
    ,Harmonic 9 (-2.676) 12.38
    ,Harmonic 10 (-2.532) 8.12
    ,Harmonic 11 (-7.9e-2) 25.55
    ,Harmonic 12 2.708 22.36
    ,Harmonic 13 0.391 21.07
    ,Harmonic 14 (-1.657) 1.12
    ,Harmonic 15 (-1.67) 4.99
    ,Harmonic 16 2.335 5.73
    ,Harmonic 17 (-1.567) 2.04
    ,Harmonic 18 (-0.91) 0.8
    ,Harmonic 19 2.639 1.1
    ,Harmonic 20 0.696 3.57
    ,Harmonic 21 2.361 2.87
    ,Harmonic 22 (-0.742) 7.04
    ,Harmonic 23 (-3.123) 9.01
    ,Harmonic 24 0.438 2.17
    ,Harmonic 25 0.788 1.7
    ,Harmonic 26 2.413 4.2
    ,Harmonic 27 1.024 4.43
    ,Harmonic 28 (-1.882) 2.83
    ,Harmonic 29 1.024 1.72
    ,Harmonic 30 2.261 1.26
    ,Harmonic 31 (-1.87) 2.07]