Note27.hs

module Sharc.Instruments.CelloPizzicato.Note27 (note27) where

import Sharc.Types

note27 :: Note
note27 = Note
    (Pitch 311.127 51 "d#4")
    28
    (Range
        (NoteRange
            (NoteRangeAmplitude 9644.93 31 4.0e-2)
            (NoteRangeHarmonicFreq 1 311.12))
        (NoteRange
            (NoteRangeAmplitude 311.12 1 3358.0)
            (NoteRangeHarmonicFreq 32 9956.06)))
    [Harmonic 1 (-1.482) 3358.0
    ,Harmonic 2 2.543 142.88
    ,Harmonic 3 (-0.283) 92.92
    ,Harmonic 4 (-2.78) 27.44
    ,Harmonic 5 2.711 6.43
    ,Harmonic 6 (-1.543) 13.95
    ,Harmonic 7 1.684 7.96
    ,Harmonic 8 (-1.644) 0.85
    ,Harmonic 9 (-0.711) 3.05
    ,Harmonic 10 (-1.855) 0.38
    ,Harmonic 11 (-2.108) 1.09
    ,Harmonic 12 (-0.687) 0.16
    ,Harmonic 13 (-1.608) 0.38
    ,Harmonic 14 (-1.487) 0.31
    ,Harmonic 15 (-2.092) 0.24
    ,Harmonic 16 (-2.255) 0.22
    ,Harmonic 17 0.584 0.17
    ,Harmonic 18 (-1.517) 0.22
    ,Harmonic 19 (-2.467) 8.0e-2
    ,Harmonic 20 (-2.863) 0.28
    ,Harmonic 21 (-0.573) 0.78
    ,Harmonic 22 (-2.71) 0.21
    ,Harmonic 23 (-2.506) 0.16
    ,Harmonic 24 (-0.929) 0.38
    ,Harmonic 25 (-1.892) 0.44
    ,Harmonic 26 (-0.921) 0.28
    ,Harmonic 27 1.431 0.13
    ,Harmonic 28 (-1.679) 0.23
    ,Harmonic 29 (-0.853) 7.0e-2
    ,Harmonic 30 (-1.337) 0.25
    ,Harmonic 31 (-0.697) 4.0e-2
    ,Harmonic 32 (-0.257) 0.17]