Note24.hs

module Sharc.Instruments.CelloPizzicato.Note24 (note24) where

import Sharc.Types

note24 :: Note
note24 = Note
    (Pitch 261.626 48 "c4")
    25
    (Range
        (NoteRange
            (NoteRangeAmplitude 6279.02 24 7.0e-2)
            (NoteRangeHarmonicFreq 1 261.62))
        (NoteRange
            (NoteRangeAmplitude 261.62 1 2411.0)
            (NoteRangeHarmonicFreq 37 9680.16)))
    [Harmonic 1 (-0.783) 2411.0
    ,Harmonic 2 (-1.184) 279.83
    ,Harmonic 3 (-0.48) 217.09
    ,Harmonic 4 1.989 183.96
    ,Harmonic 5 (-1.729) 202.67
    ,Harmonic 6 2.447 108.81
    ,Harmonic 7 (-1.335) 96.95
    ,Harmonic 8 (-3.5e-2) 65.99
    ,Harmonic 9 3.137 12.63
    ,Harmonic 10 (-1.961) 29.59
    ,Harmonic 11 (-1.814) 26.38
    ,Harmonic 12 (-2.832) 11.19
    ,Harmonic 13 2.576 6.27
    ,Harmonic 14 (-2.671) 28.86
    ,Harmonic 15 (-1.693) 4.49
    ,Harmonic 16 1.795 1.49
    ,Harmonic 17 0.414 12.47
    ,Harmonic 18 (-1.946) 3.75
    ,Harmonic 19 1.138 9.0e-2
    ,Harmonic 20 (-2.694) 0.86
    ,Harmonic 21 (-2.582) 0.9
    ,Harmonic 22 1.8e-2 0.96
    ,Harmonic 23 1.118 0.4
    ,Harmonic 24 1.526 7.0e-2
    ,Harmonic 25 (-0.415) 0.72
    ,Harmonic 26 0.632 0.45
    ,Harmonic 27 (-1.005) 0.41
    ,Harmonic 28 (-0.532) 0.17
    ,Harmonic 29 0.268 1.11
    ,Harmonic 30 2.624 1.36
    ,Harmonic 31 (-0.686) 0.34
    ,Harmonic 32 (-1.079) 0.66
    ,Harmonic 33 1.294 0.43
    ,Harmonic 34 0.927 0.29
    ,Harmonic 35 (-0.819) 0.28
    ,Harmonic 36 (-2.53) 0.6
    ,Harmonic 37 (-1.406) 0.27]