Note8.hs

module Sharc.Instruments.ViolinsEnsemble.Note8 (note8) where

import Sharc.Types

note8 :: Note
note8 = Note
    (Pitch 311.127 51 "d#4")
    9
    (Range
        (NoteRange
            (NoteRangeAmplitude 9333.81 30 2.71)
            (NoteRangeHarmonicFreq 1 311.12))
        (NoteRange
            (NoteRangeAmplitude 311.12 1 14766.0)
            (NoteRangeHarmonicFreq 32 9956.06)))
    [Harmonic 1 0.294 14766.0
    ,Harmonic 2 2.972 5993.44
    ,Harmonic 3 2.531 1253.13
    ,Harmonic 4 (-2.67) 983.67
    ,Harmonic 5 1.719 2416.75
    ,Harmonic 6 2.018 1887.15
    ,Harmonic 7 (-2.836) 3770.36
    ,Harmonic 8 (-1.443) 818.8
    ,Harmonic 9 0.912 428.5
    ,Harmonic 10 2.854 204.98
    ,Harmonic 11 (-2.892) 888.17
    ,Harmonic 12 1.333 928.03
    ,Harmonic 13 (-3.046) 1656.46
    ,Harmonic 14 (-0.125) 204.74
    ,Harmonic 15 1.529 201.43
    ,Harmonic 16 (-2.235) 252.4
    ,Harmonic 17 (-3.052) 135.21
    ,Harmonic 18 (-1.016) 99.83
    ,Harmonic 19 (-1.455) 194.15
    ,Harmonic 20 1.812 4.25
    ,Harmonic 21 0.688 17.33
    ,Harmonic 22 1.322 39.66
    ,Harmonic 23 0.158 29.56
    ,Harmonic 24 0.631 79.91
    ,Harmonic 25 2.311 7.59
    ,Harmonic 26 (-2.559) 14.23
    ,Harmonic 27 (-0.18) 12.59
    ,Harmonic 28 (-1.694) 6.4
    ,Harmonic 29 2.135 6.53
    ,Harmonic 30 (-2.536) 2.71
    ,Harmonic 31 (-1.677) 6.56
    ,Harmonic 32 (-0.185) 7.36]