Note6.hs

module Sharc.Instruments.Clarinet.Note6 (note6) where

import Sharc.Types

note6 :: Note
note6 = Note
    (Pitch 207.652 44 "g#3")
    7
    (Range
        (NoteRange
            (NoteRangeAmplitude 6437.21 31 0.11)
            (NoteRangeHarmonicFreq 1 207.65))
        (NoteRange
            (NoteRangeAmplitude 207.65 1 2315.0)
            (NoteRangeHarmonicFreq 48 9967.29)))
    [Harmonic 1 0.487 2315.0
    ,Harmonic 2 2.566 23.7
    ,Harmonic 3 2.421 1317.96
    ,Harmonic 4 (-1.836) 87.88
    ,Harmonic 5 (-2.454) 684.52
    ,Harmonic 6 (-0.477) 251.73
    ,Harmonic 7 2.761 818.33
    ,Harmonic 8 2.65 177.16
    ,Harmonic 9 (-0.184) 389.8
    ,Harmonic 10 0.632 87.76
    ,Harmonic 11 (-2.511) 163.31
    ,Harmonic 12 (-1.076) 64.51
    ,Harmonic 13 2.471 35.63
    ,Harmonic 14 (-0.377) 24.94
    ,Harmonic 15 (-1.272) 53.51
    ,Harmonic 16 1.06 79.32
    ,Harmonic 17 3.003 152.43
    ,Harmonic 18 (-0.287) 61.09
    ,Harmonic 19 0.719 39.52
    ,Harmonic 20 0.936 55.53
    ,Harmonic 21 (-1.129) 17.47
    ,Harmonic 22 (-0.323) 20.08
    ,Harmonic 23 (-1.974) 1.04
    ,Harmonic 24 (-2.985) 10.39
    ,Harmonic 25 (-1.164) 2.37
    ,Harmonic 26 1.54 24.27
    ,Harmonic 27 (-2.232) 7.05
    ,Harmonic 28 (-0.279) 5.83
    ,Harmonic 29 1.705 1.43
    ,Harmonic 30 2.373 2.13
    ,Harmonic 31 1.351 0.11
    ,Harmonic 32 2.26 1.19
    ,Harmonic 33 0.66 1.13
    ,Harmonic 34 (-2.637) 1.01
    ,Harmonic 35 (-2.01) 0.41
    ,Harmonic 36 2.473 0.62
    ,Harmonic 37 (-1.612) 1.2
    ,Harmonic 38 1.12 0.16
    ,Harmonic 39 (-2.013) 0.2
    ,Harmonic 40 1.142 1.63
    ,Harmonic 41 0.89 1.41
    ,Harmonic 42 (-2.42) 1.6
    ,Harmonic 43 1.732 0.69
    ,Harmonic 44 1.299 0.66
    ,Harmonic 45 (-2.332) 0.4
    ,Harmonic 46 (-1.698) 0.62
    ,Harmonic 47 2.449 0.27
    ,Harmonic 48 2.812 0.36]