Note2.hs

module Sharc.Instruments.ClarinetEflat.Note2 (note2) where

import Sharc.Types

note2 :: Note
note2 = Note
    (Pitch 220.0 45 "a3")
    3
    (Range
        (NoteRange
            (NoteRangeAmplitude 7260.0 33 0.77)
            (NoteRangeHarmonicFreq 1 220.0))
        (NoteRange
            (NoteRangeAmplitude 220.0 1 4081.0)
            (NoteRangeHarmonicFreq 45 9900.0)))
    [Harmonic 1 1.395 4081.0
    ,Harmonic 2 (-2.428) 44.92
    ,Harmonic 3 0.465 1128.07
    ,Harmonic 4 2.655 48.84
    ,Harmonic 5 2.752 962.08
    ,Harmonic 6 0.92 134.47
    ,Harmonic 7 1.002 1285.24
    ,Harmonic 8 (-2.917) 364.12
    ,Harmonic 9 (-2.866) 1167.06
    ,Harmonic 10 1.246 357.35
    ,Harmonic 11 1.041 413.63
    ,Harmonic 12 (-2.067) 185.43
    ,Harmonic 13 (-1.205) 162.63
    ,Harmonic 14 1.54 153.89
    ,Harmonic 15 1.035 169.61
    ,Harmonic 16 (-1.251) 430.68
    ,Harmonic 17 (-2.398) 97.92
    ,Harmonic 18 (-2.778) 174.84
    ,Harmonic 19 0.223 38.87
    ,Harmonic 20 0.598 55.11
    ,Harmonic 21 2.795 29.93
    ,Harmonic 22 (-1.657) 78.69
    ,Harmonic 23 0.75 35.76
    ,Harmonic 24 2.554 49.38
    ,Harmonic 25 2.6e-2 19.45
    ,Harmonic 26 2.851 3.62
    ,Harmonic 27 (-2.739) 12.42
    ,Harmonic 28 2.69 14.18
    ,Harmonic 29 (-8.0e-3) 49.42
    ,Harmonic 30 2.21 2.75
    ,Harmonic 31 3.066 4.1
    ,Harmonic 32 (-1.243) 7.94
    ,Harmonic 33 1.608 0.77
    ,Harmonic 34 1.233 2.31
    ,Harmonic 35 1.691 2.37
    ,Harmonic 36 1.081 4.36
    ,Harmonic 37 (-2.359) 1.1
    ,Harmonic 38 (-0.305) 3.24
    ,Harmonic 39 1.867 3.22
    ,Harmonic 40 2.715 5.03
    ,Harmonic 41 (-1.458) 5.7
    ,Harmonic 42 (-0.706) 2.12
    ,Harmonic 43 0.971 3.75
    ,Harmonic 44 2.07 2.04
    ,Harmonic 45 (-2.672) 4.0]