Note5.hs

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

import Sharc.Types

note5 :: Note
note5 = Note
    (Pitch 195.998 43 "g3")
    6
    (Range
        (NoteRange
            (NoteRangeAmplitude 7643.92 39 7.0e-2)
            (NoteRangeHarmonicFreq 1 195.99))
        (NoteRange
            (NoteRangeAmplitude 195.99 1 2083.0)
            (NoteRangeHarmonicFreq 51 9995.89)))
    [Harmonic 1 (-1.352) 2083.0
    ,Harmonic 2 (-0.339) 20.2
    ,Harmonic 3 (-2.058) 709.77
    ,Harmonic 4 (-1.379) 51.12
    ,Harmonic 5 1.608 280.09
    ,Harmonic 6 2.868 382.44
    ,Harmonic 7 (-1.381) 454.59
    ,Harmonic 8 2.965 136.38
    ,Harmonic 9 (-0.835) 196.34
    ,Harmonic 10 (-1.957) 209.31
    ,Harmonic 11 0.66 66.14
    ,Harmonic 12 (-0.495) 56.79
    ,Harmonic 13 0.976 27.94
    ,Harmonic 14 0.695 53.36
    ,Harmonic 15 1.914 19.74
    ,Harmonic 16 1.83 82.69
    ,Harmonic 17 2.426 42.92
    ,Harmonic 18 1.954 50.33
    ,Harmonic 19 0.525 14.89
    ,Harmonic 20 (-1.02) 5.03
    ,Harmonic 21 0.224 7.32
    ,Harmonic 22 (-0.877) 8.1
    ,Harmonic 23 1.384 0.94
    ,Harmonic 24 (-1.617) 4.51
    ,Harmonic 25 (-1.87) 3.28
    ,Harmonic 26 2.2e-2 2.41
    ,Harmonic 27 0.202 0.82
    ,Harmonic 28 2.038 0.84
    ,Harmonic 29 (-2.735) 0.17
    ,Harmonic 30 (-2.172) 1.59
    ,Harmonic 31 (-1.944) 0.56
    ,Harmonic 32 0.953 0.46
    ,Harmonic 33 (-1.538) 0.26
    ,Harmonic 34 1.773 0.1
    ,Harmonic 35 0.192 0.52
    ,Harmonic 36 (-2.478) 0.66
    ,Harmonic 37 0.303 0.59
    ,Harmonic 38 (-2.891) 0.35
    ,Harmonic 39 4.5e-2 7.0e-2
    ,Harmonic 40 0.527 0.59
    ,Harmonic 41 1.361 0.7
    ,Harmonic 42 0.343 0.27
    ,Harmonic 43 (-0.37) 0.42
    ,Harmonic 44 2.455 0.47
    ,Harmonic 45 1.079 0.6
    ,Harmonic 46 1.039 0.27
    ,Harmonic 47 (-0.778) 0.9
    ,Harmonic 48 0.194 0.46
    ,Harmonic 49 (-1.102) 0.34
    ,Harmonic 50 0.272 0.3
    ,Harmonic 51 9.6e-2 0.24]