Note22.hs

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

import Sharc.Types

note22 :: Note
note22 = Note
    (Pitch 293.665 50 "d4")
    23
    (Range
        (NoteRange
            (NoteRangeAmplitude 6460.63 22 0.89)
            (NoteRangeHarmonicFreq 1 293.66))
        (NoteRange
            (NoteRangeAmplitude 587.33 2 4519.0)
            (NoteRangeHarmonicFreq 34 9984.61)))
    [Harmonic 1 0.611 1943.9
    ,Harmonic 2 (-2.195) 4519.0
    ,Harmonic 3 0.735 3097.37
    ,Harmonic 4 (-2.763) 2161.41
    ,Harmonic 5 (-0.155) 959.0
    ,Harmonic 6 (-2.999) 379.82
    ,Harmonic 7 0.223 246.45
    ,Harmonic 8 (-2.749) 149.12
    ,Harmonic 9 0.48 71.74
    ,Harmonic 10 (-2.428) 37.0
    ,Harmonic 11 1.063 24.33
    ,Harmonic 12 (-1.439) 20.5
    ,Harmonic 13 2.237 8.71
    ,Harmonic 14 (-0.737) 7.11
    ,Harmonic 15 2.773 6.22
    ,Harmonic 16 0.475 7.5
    ,Harmonic 17 (-1.931) 6.55
    ,Harmonic 18 1.97 5.83
    ,Harmonic 19 (-0.276) 2.76
    ,Harmonic 20 (-2.191) 1.12
    ,Harmonic 21 0.178 1.21
    ,Harmonic 22 (-3.031) 0.89
    ,Harmonic 23 0.948 2.13
    ,Harmonic 24 (-1.53) 2.16
    ,Harmonic 25 1.654 2.68
    ,Harmonic 26 (-1.236) 3.36
    ,Harmonic 27 0.57 1.96
    ,Harmonic 28 0.775 3.64
    ,Harmonic 29 (-2.862) 1.8
    ,Harmonic 30 (-0.196) 2.64
    ,Harmonic 31 3.096 2.19
    ,Harmonic 32 0.418 1.69
    ,Harmonic 33 (-2.153) 1.42
    ,Harmonic 34 1.109 1.6]