Note22.hs

module Sharc.Instruments.BassClarinet.Note22 (note22) where

import Sharc.Types

note22 :: Note
note22 = Note
    (Pitch 246.942 47 "b3")
    23
    (Range
        (NoteRange
            (NoteRangeAmplitude 7161.31 29 2.53)
            (NoteRangeHarmonicFreq 1 246.94))
        (NoteRange
            (NoteRangeAmplitude 246.94 1 4774.0)
            (NoteRangeHarmonicFreq 40 9877.68)))
    [Harmonic 1 (-1.645) 4774.0
    ,Harmonic 2 (-0.149) 112.48
    ,Harmonic 3 3.14 111.29
    ,Harmonic 4 1.582 241.35
    ,Harmonic 5 (-5.8e-2) 1496.2
    ,Harmonic 6 (-1.2e-2) 350.24
    ,Harmonic 7 2.214 363.13
    ,Harmonic 8 2.85 398.41
    ,Harmonic 9 2.584 420.88
    ,Harmonic 10 2.744 303.99
    ,Harmonic 11 (-2.509) 102.27
    ,Harmonic 12 (-1.551) 80.73
    ,Harmonic 13 (-1.496) 5.39
    ,Harmonic 14 1.347 39.6
    ,Harmonic 15 1.574 178.89
    ,Harmonic 16 0.783 40.53
    ,Harmonic 17 (-1.132) 35.89
    ,Harmonic 18 2.925 57.59
    ,Harmonic 19 1.894 14.67
    ,Harmonic 20 (-0.134) 27.88
    ,Harmonic 21 2.737 51.34
    ,Harmonic 22 0.296 42.71
    ,Harmonic 23 2.787 21.25
    ,Harmonic 24 3.001 16.71
    ,Harmonic 25 2.368 13.03
    ,Harmonic 26 (-1.809) 11.6
    ,Harmonic 27 (-1.718) 6.45
    ,Harmonic 28 2.482 6.18
    ,Harmonic 29 1.581 2.53
    ,Harmonic 30 (-2.39) 11.26
    ,Harmonic 31 2.678 14.01
    ,Harmonic 32 1.529 4.77
    ,Harmonic 33 2.752 9.61
    ,Harmonic 34 1.472 13.75
    ,Harmonic 35 0.984 5.51
    ,Harmonic 36 1.149 6.1
    ,Harmonic 37 2.3e-2 6.4
    ,Harmonic 38 1.13 3.2
    ,Harmonic 39 0.957 5.27
    ,Harmonic 40 0.165 7.81]