Note12.hs

module Sharc.Instruments.Clarinet.Note12 (note12) where

import Sharc.Types

note12 :: Note
note12 = Note
    (Pitch 293.665 50 "d4")
    13
    (Range
        (NoteRange
            (NoteRangeAmplitude 9690.94 33 2.79)
            (NoteRangeHarmonicFreq 1 293.66))
        (NoteRange
            (NoteRangeAmplitude 1468.32 5 2468.0)
            (NoteRangeHarmonicFreq 34 9984.61)))
    [Harmonic 1 (-0.565) 2030.0
    ,Harmonic 2 2.509 102.06
    ,Harmonic 3 1.181 1663.17
    ,Harmonic 4 (-2.108) 252.99
    ,Harmonic 5 1.094 2468.0
    ,Harmonic 6 1.953 1214.14
    ,Harmonic 7 1.226 627.63
    ,Harmonic 8 2.251 522.9
    ,Harmonic 9 2.417 377.95
    ,Harmonic 10 (-3.114) 241.77
    ,Harmonic 11 2.406 351.01
    ,Harmonic 12 2.479 367.55
    ,Harmonic 13 (-3.107) 281.24
    ,Harmonic 14 2.931 98.84
    ,Harmonic 15 1.382 216.07
    ,Harmonic 16 (-2.775) 170.59
    ,Harmonic 17 2.424 98.82
    ,Harmonic 18 (-2.069) 91.56
    ,Harmonic 19 (-2.576) 104.22
    ,Harmonic 20 (-2.902) 65.8
    ,Harmonic 21 (-3.018) 90.34
    ,Harmonic 22 (-0.397) 2.92
    ,Harmonic 23 (-1.985) 25.48
    ,Harmonic 24 (-2.223) 18.74
    ,Harmonic 25 (-1.807) 11.73
    ,Harmonic 26 (-2.084) 12.81
    ,Harmonic 27 (-2.642) 6.46
    ,Harmonic 28 (-3.081) 10.69
    ,Harmonic 29 3.086 8.44
    ,Harmonic 30 1.951 11.92
    ,Harmonic 31 1.053 6.16
    ,Harmonic 32 0.117 4.66
    ,Harmonic 33 (-0.16) 2.79
    ,Harmonic 34 (-0.851) 5.82]