Note13.hs

module Sharc.Instruments.Clarinet.Note13 (note13) where

import Sharc.Types

note13 :: Note
note13 = Note
    (Pitch 311.127 51 "d#4")
    14
    (Range
        (NoteRange
            (NoteRangeAmplitude 9956.06 32 0.64)
            (NoteRangeHarmonicFreq 1 311.12))
        (NoteRange
            (NoteRangeAmplitude 1555.63 5 1477.0)
            (NoteRangeHarmonicFreq 32 9956.06)))
    [Harmonic 1 0.693 1260.06
    ,Harmonic 2 (-1.416) 72.5
    ,Harmonic 3 (-1.136) 762.25
    ,Harmonic 4 2.809 272.77
    ,Harmonic 5 1.488 1477.0
    ,Harmonic 6 (-2.88) 238.59
    ,Harmonic 7 2.723 443.13
    ,Harmonic 8 (-2.857) 210.17
    ,Harmonic 9 (-0.489) 103.95
    ,Harmonic 10 (-0.883) 296.26
    ,Harmonic 11 (-1.027) 164.18
    ,Harmonic 12 1.418 420.65
    ,Harmonic 13 1.931 89.51
    ,Harmonic 14 2.177 159.16
    ,Harmonic 15 (-2.144) 149.33
    ,Harmonic 16 (-1.929) 28.43
    ,Harmonic 17 7.8e-2 86.96
    ,Harmonic 18 0.935 28.24
    ,Harmonic 19 1.762 66.56
    ,Harmonic 20 2.871 36.75
    ,Harmonic 21 1.576 4.53
    ,Harmonic 22 (-1.046) 12.51
    ,Harmonic 23 (-0.965) 5.13
    ,Harmonic 24 2.452 1.15
    ,Harmonic 25 (-0.476) 4.09
    ,Harmonic 26 0.512 4.04
    ,Harmonic 27 3.111 4.77
    ,Harmonic 28 1.683 1.78
    ,Harmonic 29 (-3.067) 3.32
    ,Harmonic 30 (-0.887) 4.52
    ,Harmonic 31 (-3.012) 1.52
    ,Harmonic 32 (-2.956) 0.64]