Note6.hs

module Sharc.Instruments.EnglishHorn.Note6 (note6) where

import Sharc.Types

note6 :: Note
note6 = Note
    (Pitch 233.082 46 "a#3")
    7
    (Range
        (NoteRange
            (NoteRangeAmplitude 9090.19 39 0.32)
            (NoteRangeHarmonicFreq 1 233.08))
        (NoteRange
            (NoteRangeAmplitude 932.32 4 4343.0)
            (NoteRangeHarmonicFreq 42 9789.44)))
    [Harmonic 1 0.328 1270.86
    ,Harmonic 2 1.728 3086.51
    ,Harmonic 3 (-2.798) 1920.61
    ,Harmonic 4 1.375 4343.0
    ,Harmonic 5 (-2.911) 292.59
    ,Harmonic 6 (-1.439) 542.03
    ,Harmonic 7 (-0.206) 155.96
    ,Harmonic 8 0.838 778.53
    ,Harmonic 9 (-2.18) 294.42
    ,Harmonic 10 (-1.233) 295.78
    ,Harmonic 11 (-0.291) 339.34
    ,Harmonic 12 1.51 154.52
    ,Harmonic 13 (-1.349) 130.92
    ,Harmonic 14 (-0.292) 116.36
    ,Harmonic 15 (-2.3e-2) 206.93
    ,Harmonic 16 1.041 90.4
    ,Harmonic 17 1.501 110.23
    ,Harmonic 18 2.911 144.09
    ,Harmonic 19 (-2.957) 46.5
    ,Harmonic 20 (-1.585) 54.69
    ,Harmonic 21 1.005 8.38
    ,Harmonic 22 0.844 34.2
    ,Harmonic 23 1.459 9.17
    ,Harmonic 24 (-2.52) 13.02
    ,Harmonic 25 2.384 25.67
    ,Harmonic 26 0.689 21.5
    ,Harmonic 27 (-2.64) 18.45
    ,Harmonic 28 0.548 10.7
    ,Harmonic 29 (-1.759) 8.61
    ,Harmonic 30 0.491 5.22
    ,Harmonic 31 3.096 2.21
    ,Harmonic 32 5.1e-2 5.38
    ,Harmonic 33 (-1.982) 2.18
    ,Harmonic 34 0.836 3.66
    ,Harmonic 35 (-0.841) 2.51
    ,Harmonic 36 3.116 11.93
    ,Harmonic 37 (-0.108) 2.27
    ,Harmonic 38 (-2.742) 3.8
    ,Harmonic 39 1.729 0.32
    ,Harmonic 40 (-1.982) 5.86
    ,Harmonic 41 1.47 3.68
    ,Harmonic 42 (-2.376) 6.69]