Note12.hs

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

import Sharc.Types

note12 :: Note
note12 = Note
    (Pitch 329.628 52 "e4")
    13
    (Range
        (NoteRange
            (NoteRangeAmplitude 7251.81 22 5.25)
            (NoteRangeHarmonicFreq 1 329.62))
        (NoteRange
            (NoteRangeAmplitude 988.88 3 4383.0)
            (NoteRangeHarmonicFreq 30 9888.84)))
    [Harmonic 1 0.611 2671.26
    ,Harmonic 2 (-2.399) 1907.48
    ,Harmonic 3 0.193 4383.0
    ,Harmonic 4 3.051 3670.62
    ,Harmonic 5 1.802 1492.95
    ,Harmonic 6 (-1.312) 350.27
    ,Harmonic 7 (-2.094) 594.49
    ,Harmonic 8 0.46 224.69
    ,Harmonic 9 2.38 641.02
    ,Harmonic 10 (-0.977) 387.64
    ,Harmonic 11 3.131 1228.1
    ,Harmonic 12 1.956 105.02
    ,Harmonic 13 (-2.885) 60.49
    ,Harmonic 14 (-2.065) 73.77
    ,Harmonic 15 1.382 26.05
    ,Harmonic 16 1.07 73.1
    ,Harmonic 17 1.909 32.86
    ,Harmonic 18 (-0.205) 38.71
    ,Harmonic 19 (-3.009) 50.53
    ,Harmonic 20 1.299 32.37
    ,Harmonic 21 1.843 7.7
    ,Harmonic 22 1.802 5.25
    ,Harmonic 23 (-3.07) 24.23
    ,Harmonic 24 0.683 11.62
    ,Harmonic 25 (-2.31) 13.01
    ,Harmonic 26 2.271 9.3
    ,Harmonic 27 (-0.752) 11.52
    ,Harmonic 28 2.523 6.87
    ,Harmonic 29 (-0.791) 8.95
    ,Harmonic 30 (-1.306) 6.89]