Note26.hs

module Sharc.Instruments.CelloMuted.Note26 (note26) where

import Sharc.Types

note26 :: Note
note26 = Note
    (Pitch 293.665 50 "d4")
    27
    (Range
        (NoteRange
            (NoteRangeAmplitude 8516.28 29 1.34)
            (NoteRangeHarmonicFreq 1 293.66))
        (NoteRange
            (NoteRangeAmplitude 293.66 1 1521.0)
            (NoteRangeHarmonicFreq 34 9984.61)))
    [Harmonic 1 (-1.107) 1521.0
    ,Harmonic 2 (-2.246) 522.3
    ,Harmonic 3 (-2.926) 130.64
    ,Harmonic 4 2.848 251.93
    ,Harmonic 5 0.19 158.25
    ,Harmonic 6 (-1.275) 64.53
    ,Harmonic 7 (-2.26) 115.93
    ,Harmonic 8 (-2.469) 16.9
    ,Harmonic 9 (-1.143) 16.69
    ,Harmonic 10 1.891 31.72
    ,Harmonic 11 (-1.484) 40.44
    ,Harmonic 12 (-1.166) 10.88
    ,Harmonic 13 (-4.6e-2) 27.51
    ,Harmonic 14 2.617 11.47
    ,Harmonic 15 (-1.66) 21.56
    ,Harmonic 16 (-1.128) 13.56
    ,Harmonic 17 2.307 3.56
    ,Harmonic 18 1.649 9.69
    ,Harmonic 19 1.943 12.01
    ,Harmonic 20 0.574 7.65
    ,Harmonic 21 1.443 15.8
    ,Harmonic 22 (-2.798) 6.95
    ,Harmonic 23 (-2.2) 4.76
    ,Harmonic 24 1.739 8.95
    ,Harmonic 25 2.3e-2 3.98
    ,Harmonic 26 3.113 6.16
    ,Harmonic 27 0.922 2.71
    ,Harmonic 28 1.339 7.56
    ,Harmonic 29 2.721 1.34
    ,Harmonic 30 0.576 4.54
    ,Harmonic 31 0.644 4.25
    ,Harmonic 32 (-0.19) 6.84
    ,Harmonic 33 9.3e-2 4.96
    ,Harmonic 34 0.64 3.26]