Note22.hs

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

import Sharc.Types

note22 :: Note
note22 = Note
    (Pitch 246.942 47 "b3")
    23
    (Range
        (NoteRange
            (NoteRangeAmplitude 8396.02 34 1.0e-2)
            (NoteRangeHarmonicFreq 1 246.94))
        (NoteRange
            (NoteRangeAmplitude 246.94 1 2112.0)
            (NoteRangeHarmonicFreq 40 9877.68)))
    [Harmonic 1 (-1.363) 2112.0
    ,Harmonic 2 (-2.873) 631.66
    ,Harmonic 3 0.241 172.26
    ,Harmonic 4 (-2.223) 75.68
    ,Harmonic 5 1.157 1.09
    ,Harmonic 6 0.507 3.12
    ,Harmonic 7 (-3.051) 1.27
    ,Harmonic 8 2.985 0.98
    ,Harmonic 9 2.532 1.08
    ,Harmonic 10 1.262 0.8
    ,Harmonic 11 0.574 0.9
    ,Harmonic 12 0.418 0.48
    ,Harmonic 13 0.747 0.44
    ,Harmonic 14 1.213 0.24
    ,Harmonic 15 (-0.205) 0.33
    ,Harmonic 16 (-5.8e-2) 0.9
    ,Harmonic 17 (-1.587) 0.24
    ,Harmonic 18 (-5.2e-2) 0.23
    ,Harmonic 19 (-0.962) 0.32
    ,Harmonic 20 0.632 0.25
    ,Harmonic 21 0.638 0.12
    ,Harmonic 22 (-1.321) 9.0e-2
    ,Harmonic 23 0.191 0.12
    ,Harmonic 24 (-0.46) 0.12
    ,Harmonic 25 (-0.362) 8.0e-2
    ,Harmonic 26 (-0.728) 0.34
    ,Harmonic 27 2.093 5.0e-2
    ,Harmonic 28 (-0.41) 0.1
    ,Harmonic 29 0.357 8.0e-2
    ,Harmonic 30 6.3e-2 0.17
    ,Harmonic 31 0.177 8.0e-2
    ,Harmonic 32 (-1.004) 0.11
    ,Harmonic 33 (-1.476) 0.11
    ,Harmonic 34 (-2.817) 1.0e-2
    ,Harmonic 35 0.512 8.0e-2
    ,Harmonic 36 0.271 0.12
    ,Harmonic 37 (-2.781) 7.0e-2
    ,Harmonic 38 (-0.856) 0.2
    ,Harmonic 39 (-0.87) 0.14
    ,Harmonic 40 0.413 9.0e-2]