Note8.hs

module Sharc.Instruments.AltoFlute.Note8 (note8) where

import Sharc.Types

note8 :: Note
note8 = Note
    (Pitch 311.127 51 "d#4")
    9
    (Range
        (NoteRange
            (NoteRangeAmplitude 7467.04 24 2.4)
            (NoteRangeHarmonicFreq 1 311.12))
        (NoteRange
            (NoteRangeAmplitude 933.38 3 8800.0)
            (NoteRangeHarmonicFreq 32 9956.06)))
    [Harmonic 1 1.923 5523.98
    ,Harmonic 2 (-2.459) 5686.01
    ,Harmonic 3 0.327 8800.0
    ,Harmonic 4 1.874 3471.69
    ,Harmonic 5 1.405 548.02
    ,Harmonic 6 2.916 547.41
    ,Harmonic 7 (-1.753) 601.27
    ,Harmonic 8 (-0.326) 174.32
    ,Harmonic 9 0.639 123.7
    ,Harmonic 10 1.825 211.87
    ,Harmonic 11 (-2.713) 224.93
    ,Harmonic 12 (-0.954) 90.97
    ,Harmonic 13 (-0.178) 48.09
    ,Harmonic 14 1.07 64.37
    ,Harmonic 15 3.021 44.79
    ,Harmonic 16 (-1.807) 43.51
    ,Harmonic 17 (-0.297) 9.22
    ,Harmonic 18 0.165 13.75
    ,Harmonic 19 2.524 13.86
    ,Harmonic 20 (-2.217) 12.27
    ,Harmonic 21 0.215 5.27
    ,Harmonic 22 (-1.255) 10.23
    ,Harmonic 23 2.03 15.55
    ,Harmonic 24 (-1.996) 2.4
    ,Harmonic 25 1.08 6.4
    ,Harmonic 26 (-1.208) 10.94
    ,Harmonic 27 1.034 16.27
    ,Harmonic 28 2.793 27.96
    ,Harmonic 29 0.386 24.01
    ,Harmonic 30 2.672 18.97
    ,Harmonic 31 (-1.773) 7.92
    ,Harmonic 32 0.3 2.86]