Note33.hs

module Sharc.Instruments.FrenchHorn.Note33 (note33) where

import Sharc.Types

note33 :: Note
note33 = Note
    (Pitch 493.883 59 "b4")
    34
    (Range
        (NoteRange
            (NoteRangeAmplitude 7902.12 16 0.7)
            (NoteRangeHarmonicFreq 1 493.88))
        (NoteRange
            (NoteRangeAmplitude 493.88 1 4351.0)
            (NoteRangeHarmonicFreq 20 9877.66)))
    [Harmonic 1 1.759 4351.0
    ,Harmonic 2 (-0.125) 1115.19
    ,Harmonic 3 (-2.284) 269.72
    ,Harmonic 4 1.782 49.31
    ,Harmonic 5 0.727 7.73
    ,Harmonic 6 (-5.0e-2) 4.04
    ,Harmonic 7 0.609 3.91
    ,Harmonic 8 9.2e-2 4.76
    ,Harmonic 9 (-1.842) 1.91
    ,Harmonic 10 3.073 1.55
    ,Harmonic 11 2.789 3.48
    ,Harmonic 12 0.867 1.65
    ,Harmonic 13 0.125 1.63
    ,Harmonic 14 (-1.478) 1.2
    ,Harmonic 15 (-1.693) 1.68
    ,Harmonic 16 (-2.605) 0.7
    ,Harmonic 17 1.983 1.28
    ,Harmonic 18 1.028 1.53
    ,Harmonic 19 (-0.787) 2.31
    ,Harmonic 20 (-2.708) 0.92]