Note1.hs

module Sharc.Instruments.ClarinetEflat.Note1 (note1) where

import Sharc.Types

note1 :: Note
note1 = Note
    (Pitch 207.652 44 "g#3")
    2
    (Range
        (NoteRange
            (NoteRangeAmplitude 8513.73 41 0.91)
            (NoteRangeHarmonicFreq 1 207.65))
        (NoteRange
            (NoteRangeAmplitude 1038.26 5 5745.0)
            (NoteRangeHarmonicFreq 48 9967.29)))
    [Harmonic 1 1.9e-2 4383.22
    ,Harmonic 2 1.469 135.74
    ,Harmonic 3 (-2.018) 1473.53
    ,Harmonic 4 (-1.528) 195.09
    ,Harmonic 5 3.123 5745.0
    ,Harmonic 6 (-1.347) 571.6
    ,Harmonic 7 (-1.443) 3593.44
    ,Harmonic 8 0.823 232.09
    ,Harmonic 9 (-0.847) 1205.13
    ,Harmonic 10 1.414 560.27
    ,Harmonic 11 0.896 1005.4
    ,Harmonic 12 3.017 558.5
    ,Harmonic 13 2.499 431.71
    ,Harmonic 14 (-1.047) 305.59
    ,Harmonic 15 (-2.384) 85.8
    ,Harmonic 16 1.394 158.48
    ,Harmonic 17 (-0.921) 99.9
    ,Harmonic 18 1.273 109.14
    ,Harmonic 19 (-2.75) 22.8
    ,Harmonic 20 2.97 27.8
    ,Harmonic 21 (-0.225) 27.37
    ,Harmonic 22 (-4.3e-2) 40.64
    ,Harmonic 23 2.267 26.42
    ,Harmonic 24 2.174 41.45
    ,Harmonic 25 (-1.952) 13.05
    ,Harmonic 26 2.552 17.37
    ,Harmonic 27 (-2.293) 28.48
    ,Harmonic 28 (-2.821) 2.75
    ,Harmonic 29 1.186 10.77
    ,Harmonic 30 (-0.757) 12.87
    ,Harmonic 31 2.459 23.24
    ,Harmonic 32 (-1.654) 5.35
    ,Harmonic 33 2.649 20.73
    ,Harmonic 34 (-1.525) 17.75
    ,Harmonic 35 (-1.414) 5.15
    ,Harmonic 36 1.489 8.59
    ,Harmonic 37 2.393 2.6
    ,Harmonic 38 1.78 3.15
    ,Harmonic 39 3.12 2.89
    ,Harmonic 40 (-2.838) 2.38
    ,Harmonic 41 (-7.5e-2) 0.91
    ,Harmonic 42 (-1.206) 1.83
    ,Harmonic 43 (-1.042) 1.95
    ,Harmonic 44 (-1.128) 3.03
    ,Harmonic 45 (-1.236) 4.28
    ,Harmonic 46 (-1.409) 2.44
    ,Harmonic 47 (-1.125) 3.03
    ,Harmonic 48 (-1.932) 1.42]