Note13.hs

module Sharc.Instruments.FrenchHorn.Note13 (note13) where

import Sharc.Types

note13 :: Note
note13 = Note
    (Pitch 155.563 39 "d#3")
    14
    (Range
        (NoteRange
            (NoteRangeAmplitude 4355.76 28 2.0e-2)
            (NoteRangeHarmonicFreq 1 155.56))
        (NoteRange
            (NoteRangeAmplitude 466.68 3 2271.0)
            (NoteRangeHarmonicFreq 64 9956.03)))
    [Harmonic 1 (-0.968) 694.7
    ,Harmonic 2 0.506 1445.36
    ,Harmonic 3 1.538 2271.0
    ,Harmonic 4 2.611 1319.88
    ,Harmonic 5 (-2.667) 811.32
    ,Harmonic 6 (-1.388) 571.47
    ,Harmonic 7 (-9.0e-2) 373.58
    ,Harmonic 8 1.03 190.72
    ,Harmonic 9 2.502 130.23
    ,Harmonic 10 (-2.599) 78.45
    ,Harmonic 11 (-1.54) 38.43
    ,Harmonic 12 (-0.426) 19.63
    ,Harmonic 13 0.679 7.39
    ,Harmonic 14 3.049 4.1
    ,Harmonic 15 (-1.893) 3.75
    ,Harmonic 16 5.8e-2 2.38
    ,Harmonic 17 1.329 1.19
    ,Harmonic 18 2.809 1.07
    ,Harmonic 19 (-1.349) 1.33
    ,Harmonic 20 (-2.841) 0.18
    ,Harmonic 21 (-1.165) 0.53
    ,Harmonic 22 0.501 0.61
    ,Harmonic 23 (-3.023) 0.65
    ,Harmonic 24 (-0.67) 1.06
    ,Harmonic 25 1.164 0.5
    ,Harmonic 26 3.08 0.8
    ,Harmonic 27 (-1.78) 0.46
    ,Harmonic 28 0.943 2.0e-2
    ,Harmonic 29 2.636 0.22
    ,Harmonic 30 (-3.005) 0.35
    ,Harmonic 31 (-1.496) 0.39
    ,Harmonic 32 (-3.084) 0.76
    ,Harmonic 33 (-2.428) 0.17
    ,Harmonic 34 (-1.797) 0.4
    ,Harmonic 35 0.19 0.54
    ,Harmonic 36 (-2.805) 0.11
    ,Harmonic 37 (-1.183) 0.34
    ,Harmonic 38 3.047 0.58
    ,Harmonic 39 (-1.757) 0.51
    ,Harmonic 40 0.965 0.25
    ,Harmonic 41 2.823 0.61
    ,Harmonic 42 (-1.882) 0.68
    ,Harmonic 43 (-0.211) 0.13
    ,Harmonic 44 3.139 0.75
    ,Harmonic 45 (-1.179) 0.39
    ,Harmonic 46 2.205 0.19
    ,Harmonic 47 2.544 0.75
    ,Harmonic 48 (-2.611) 0.73
    ,Harmonic 49 (-1.899) 9.0e-2
    ,Harmonic 50 1.208 0.83
    ,Harmonic 51 (-2.676) 0.44
    ,Harmonic 52 (-1.998) 0.65
    ,Harmonic 53 (-8.2e-2) 0.49
    ,Harmonic 54 1.589 0.15
    ,Harmonic 55 2.723 0.28
    ,Harmonic 56 2.016 0.17
    ,Harmonic 57 (-2.311) 0.17
    ,Harmonic 58 (-9.7e-2) 0.24
    ,Harmonic 59 2.343 0.12
    ,Harmonic 60 2.954 0.24
    ,Harmonic 61 (-1.713) 0.15
    ,Harmonic 62 (-0.302) 0.19
    ,Harmonic 63 2.278 7.0e-2
    ,Harmonic 64 (-2.798) 0.33]