Note27.hs

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

import Sharc.Types

note27 :: Note
note27 = Note
    (Pitch 329.628 52 "e4")
    28
    (Range
        (NoteRange
            (NoteRangeAmplitude 9559.21 29 8.0e-2)
            (NoteRangeHarmonicFreq 1 329.62))
        (NoteRange
            (NoteRangeAmplitude 329.62 1 3111.0)
            (NoteRangeHarmonicFreq 30 9888.84)))
    [Harmonic 1 (-1.563) 3111.0
    ,Harmonic 2 (-2.359) 201.43
    ,Harmonic 3 (-0.553) 108.5
    ,Harmonic 4 (-1.462) 5.96
    ,Harmonic 5 1.32 4.86
    ,Harmonic 6 (-1.577) 1.33
    ,Harmonic 7 (-2.422) 2.39
    ,Harmonic 8 2.884 1.27
    ,Harmonic 9 (-0.78) 0.82
    ,Harmonic 10 (-0.908) 0.58
    ,Harmonic 11 0.79 0.2
    ,Harmonic 12 (-2.084) 0.14
    ,Harmonic 13 (-1.056) 0.15
    ,Harmonic 14 (-1.115) 0.15
    ,Harmonic 15 (-0.123) 9.0e-2
    ,Harmonic 16 (-1.34) 0.28
    ,Harmonic 17 (-0.535) 0.13
    ,Harmonic 18 (-0.87) 0.17
    ,Harmonic 19 (-0.266) 0.12
    ,Harmonic 20 0.344 0.11
    ,Harmonic 21 (-0.62) 0.31
    ,Harmonic 22 (-0.632) 0.14
    ,Harmonic 23 (-0.738) 0.12
    ,Harmonic 24 0.827 9.0e-2
    ,Harmonic 25 (-1.266) 0.16
    ,Harmonic 26 (-0.375) 0.12
    ,Harmonic 27 (-1.14) 0.27
    ,Harmonic 28 (-0.528) 0.1
    ,Harmonic 29 0.989 8.0e-2
    ,Harmonic 30 (-0.654) 0.18]