Note3.hs

module Sharc.Instruments.EnglishHorn.Note3 (note3) where

import Sharc.Types

note3 :: Note
note3 = Note
    (Pitch 195.998 43 "g3")
    4
    (Range
        (NoteRange
            (NoteRangeAmplitude 7251.92 37 1.48)
            (NoteRangeHarmonicFreq 1 195.99))
        (NoteRange
            (NoteRangeAmplitude 783.99 4 4794.0)
            (NoteRangeHarmonicFreq 50 9799.9)))
    [Harmonic 1 (-0.441) 1042.38
    ,Harmonic 2 0.63 2326.34
    ,Harmonic 3 1.473 2311.91
    ,Harmonic 4 2.677 4794.0
    ,Harmonic 5 1.186 3580.06
    ,Harmonic 6 0.754 333.27
    ,Harmonic 7 (-2.768) 85.02
    ,Harmonic 8 0.402 119.53
    ,Harmonic 9 1.035 203.94
    ,Harmonic 10 1.247 160.79
    ,Harmonic 11 (-1.558) 76.41
    ,Harmonic 12 (-0.249) 100.05
    ,Harmonic 13 1.142 150.02
    ,Harmonic 14 2.821 38.7
    ,Harmonic 15 (-0.521) 15.72
    ,Harmonic 16 1.271 63.88
    ,Harmonic 17 1.041 35.06
    ,Harmonic 18 2.444 41.24
    ,Harmonic 19 (-1.687) 42.66
    ,Harmonic 20 (-0.959) 83.34
    ,Harmonic 21 (-0.51) 56.84
    ,Harmonic 22 0.164 29.34
    ,Harmonic 23 0.649 13.84
    ,Harmonic 24 (-2.872) 23.12
    ,Harmonic 25 (-2.304) 16.29
    ,Harmonic 26 (-1.679) 10.13
    ,Harmonic 27 0.891 4.28
    ,Harmonic 28 1.983 5.06
    ,Harmonic 29 0.382 11.57
    ,Harmonic 30 2.247 8.44
    ,Harmonic 31 (-1.57) 6.8
    ,Harmonic 32 2.035 9.9
    ,Harmonic 33 (-2.014) 7.96
    ,Harmonic 34 1.926 7.75
    ,Harmonic 35 (-1.752) 5.64
    ,Harmonic 36 1.039 5.58
    ,Harmonic 37 (-1.136) 1.48
    ,Harmonic 38 1.04 4.0
    ,Harmonic 39 (-2.68) 4.6
    ,Harmonic 40 2.039 1.53
    ,Harmonic 41 (-2.1) 4.06
    ,Harmonic 42 1.237 2.75
    ,Harmonic 43 (-1.983) 5.15
    ,Harmonic 44 0.71 3.4
    ,Harmonic 45 (-2.728) 2.75
    ,Harmonic 46 0.642 4.35
    ,Harmonic 47 (-2.394) 4.36
    ,Harmonic 48 0.139 7.27
    ,Harmonic 49 3.108 2.88
    ,Harmonic 50 0.426 3.48]