Note25.hs

module Sharc.Instruments.FrenchHornMuted.Note25 (note25) where

import Sharc.Types

note25 :: Note
note25 = Note
    (Pitch 311.127 51 "d#4")
    26
    (Range
        (NoteRange
            (NoteRangeAmplitude 9333.81 30 1.25)
            (NoteRangeHarmonicFreq 1 311.12))
        (NoteRange
            (NoteRangeAmplitude 1244.5 4 5617.0)
            (NoteRangeHarmonicFreq 32 9956.06)))
    [Harmonic 1 (-1.848) 2892.25
    ,Harmonic 2 (-1.127) 3580.52
    ,Harmonic 3 1.522 4016.74
    ,Harmonic 4 0.893 5617.0
    ,Harmonic 5 1.013 4041.09
    ,Harmonic 6 1.968 2101.05
    ,Harmonic 7 2.38 1441.1
    ,Harmonic 8 2.784 693.95
    ,Harmonic 9 (-2.668) 155.92
    ,Harmonic 10 (-1.175) 236.13
    ,Harmonic 11 (-0.41) 109.03
    ,Harmonic 12 1.354 72.36
    ,Harmonic 13 1.681 84.69
    ,Harmonic 14 2.635 50.16
    ,Harmonic 15 (-2.384) 35.96
    ,Harmonic 16 (-1.817) 24.74
    ,Harmonic 17 (-0.958) 37.82
    ,Harmonic 18 0.624 17.59
    ,Harmonic 19 0.879 15.92
    ,Harmonic 20 2.097 6.54
    ,Harmonic 21 2.619 8.28
    ,Harmonic 22 (-2.637) 6.98
    ,Harmonic 23 (-2.018) 4.76
    ,Harmonic 24 2.734 1.39
    ,Harmonic 25 2.557 2.7
    ,Harmonic 26 2.621 4.8
    ,Harmonic 27 2.745 6.03
    ,Harmonic 28 (-2.958) 6.18
    ,Harmonic 29 (-2.421) 4.59
    ,Harmonic 30 2.903 1.25
    ,Harmonic 31 2.744 2.57
    ,Harmonic 32 2.703 3.99]