Note5.hs

module Sharc.Instruments.ClarinetEflat.Note5 (note5) where

import Sharc.Types

note5 :: Note
note5 = Note
    (Pitch 261.626 48 "c4")
    6
    (Range
        (NoteRange
            (NoteRangeAmplitude 9156.91 35 2.71)
            (NoteRangeHarmonicFreq 1 261.62))
        (NoteRange
            (NoteRangeAmplitude 261.62 1 5886.0)
            (NoteRangeHarmonicFreq 38 9941.78)))
    [Harmonic 1 2.834 5886.0
    ,Harmonic 2 2.782 66.3
    ,Harmonic 3 0.798 2399.7
    ,Harmonic 4 1.153 174.07
    ,Harmonic 5 (-0.944) 1843.27
    ,Harmonic 6 (-2.087) 857.81
    ,Harmonic 7 (-0.791) 2396.06
    ,Harmonic 8 (-2.465) 241.87
    ,Harmonic 9 (-0.721) 1064.87
    ,Harmonic 10 (-1.846) 219.92
    ,Harmonic 11 0.804 205.56
    ,Harmonic 12 (-1.719) 121.65
    ,Harmonic 13 0.401 134.77
    ,Harmonic 14 0.214 202.92
    ,Harmonic 15 (-1.551) 25.46
    ,Harmonic 16 (-0.335) 26.1
    ,Harmonic 17 (-1.05) 49.75
    ,Harmonic 18 2.421 72.63
    ,Harmonic 19 0.557 32.65
    ,Harmonic 20 (-2.197) 8.36
    ,Harmonic 21 1.045 16.63
    ,Harmonic 22 (-2.127) 66.88
    ,Harmonic 23 2.693 11.87
    ,Harmonic 24 (-0.745) 20.15
    ,Harmonic 25 2.913 26.27
    ,Harmonic 26 (-0.69) 23.38
    ,Harmonic 27 (-2.943) 51.23
    ,Harmonic 28 0.884 17.15
    ,Harmonic 29 (-2.823) 25.54
    ,Harmonic 30 1.924 12.21
    ,Harmonic 31 (-1.059) 3.83
    ,Harmonic 32 2.004 5.24
    ,Harmonic 33 (-1.366) 5.77
    ,Harmonic 34 1.751 3.67
    ,Harmonic 35 (-0.156) 2.71
    ,Harmonic 36 2.005 4.18
    ,Harmonic 37 (-1.302) 3.14
    ,Harmonic 38 2.055 2.92]