Note0.hs

module Sharc.Instruments.AltoTrombone.Note0 (note0) where

import Sharc.Types

note0 :: Note
note0 = Note
    (Pitch 349.228 53 "f4")
    1
    (Range
        (NoteRange
            (NoteRangeAmplitude 9778.38 28 2.01)
            (NoteRangeHarmonicFreq 1 349.22))
        (NoteRange
            (NoteRangeAmplitude 1047.68 3 5865.0)
            (NoteRangeHarmonicFreq 28 9778.38)))
    [Harmonic 1 0.252 2377.6
    ,Harmonic 2 (-2.552) 5577.94
    ,Harmonic 3 0.333 5865.0
    ,Harmonic 4 3.123 4642.15
    ,Harmonic 5 (-0.961) 3378.14
    ,Harmonic 6 2.281 1486.2
    ,Harmonic 7 (-0.918) 1185.95
    ,Harmonic 8 2.214 822.56
    ,Harmonic 9 (-1.078) 508.83
    ,Harmonic 10 1.875 301.39
    ,Harmonic 11 (-0.94) 221.92
    ,Harmonic 12 2.017 168.34
    ,Harmonic 13 (-1.345) 116.82
    ,Harmonic 14 1.793 88.49
    ,Harmonic 15 (-1.377) 58.7
    ,Harmonic 16 1.558 42.21
    ,Harmonic 17 (-1.737) 32.39
    ,Harmonic 18 1.749 23.92
    ,Harmonic 19 (-1.66) 14.16
    ,Harmonic 20 1.639 11.73
    ,Harmonic 21 (-1.246) 8.18
    ,Harmonic 22 1.662 11.82
    ,Harmonic 23 (-0.339) 10.01
    ,Harmonic 24 2.042 14.18
    ,Harmonic 25 (-1.274) 7.98
    ,Harmonic 26 2.003 2.15
    ,Harmonic 27 0.486 2.94
    ,Harmonic 28 (-2.909) 2.01]