Note26.hs

module Sharc.Instruments.Tuba.Note26 (note26) where

import Sharc.Types

note26 :: Note
note26 = Note
    (Pitch 311.127 51 "d#4")
    27
    (Range
        (NoteRange
            (NoteRangeAmplitude 9644.93 31 7.0e-2)
            (NoteRangeHarmonicFreq 1 311.12))
        (NoteRange
            (NoteRangeAmplitude 311.12 1 1843.0)
            (NoteRangeHarmonicFreq 32 9956.06)))
    [Harmonic 1 1.448 1843.0
    ,Harmonic 2 2.6 32.76
    ,Harmonic 3 1.367 139.53
    ,Harmonic 4 0.637 12.57
    ,Harmonic 5 1.203 16.04
    ,Harmonic 6 (-2.419) 2.25
    ,Harmonic 7 (-2.471) 0.98
    ,Harmonic 8 (-1.974) 1.16
    ,Harmonic 9 (-2.662) 0.33
    ,Harmonic 10 (-2.477) 0.31
    ,Harmonic 11 (-0.782) 0.14
    ,Harmonic 12 (-2.072) 0.16
    ,Harmonic 13 (-2.652) 0.2
    ,Harmonic 14 (-2.072) 0.14
    ,Harmonic 15 (-2.196) 0.29
    ,Harmonic 16 (-2.97) 0.6
    ,Harmonic 17 3.074 0.18
    ,Harmonic 18 (-2.156) 0.2
    ,Harmonic 19 2.742 0.2
    ,Harmonic 20 (-2.565) 0.33
    ,Harmonic 21 (-2.66) 0.21
    ,Harmonic 22 (-2.555) 0.12
    ,Harmonic 23 (-2.9) 0.13
    ,Harmonic 24 (-2.188) 0.24
    ,Harmonic 25 2.233 0.12
    ,Harmonic 26 (-2.771) 0.1
    ,Harmonic 27 2.909 0.1
    ,Harmonic 28 (-2.804) 0.34
    ,Harmonic 29 3.039 0.14
    ,Harmonic 30 (-2.42) 0.21
    ,Harmonic 31 2.262 7.0e-2
    ,Harmonic 32 2.48 7.0e-2]