module Sharc.Instruments.Clarinet.Note1 (note1) where
import Sharc.Types
note1 :: Note
note1 = Note
(Pitch 155.563 39 "d#3")
2
(Range
(NoteRange
(NoteRangeAmplitude 9644.9 62 0.25)
(NoteRangeHarmonicFreq 1 155.56))
(NoteRange
(NoteRangeAmplitude 155.56 1 1755.0)
(NoteRangeHarmonicFreq 64 9956.03)))
[Harmonic 1 (2.137) 1755.0
,Harmonic 2 2.415 21.33
,Harmonic 3 (0.618) 685.98
,Harmonic 4 (1.473) 52.93
,Harmonic 5 (0.601) 369.9
,Harmonic 6 (1.84) 48.2
,Harmonic 7 (0.897) 713.86
,Harmonic 8 (2.887) 197.53
,Harmonic 9 (1.814) 866.59
,Harmonic 10 (2.476) 149.66
,Harmonic 11 (2.041) 143.3
,Harmonic 12 (1.832) 52.78
,Harmonic 13 (2.353) 56.87
,Harmonic 14 (2.916) 46.4
,Harmonic 15 (2.688) 139.32
,Harmonic 16 3.022 65.39
,Harmonic 17 (2.656) 93.46
,Harmonic 18 2.606 79.08
,Harmonic 19 2.916 40.4
,Harmonic 20 1.368 48.31
,Harmonic 21 2.223 47.72
,Harmonic 22 1.435 89.18
,Harmonic 23 1.259 39.02
,Harmonic 24 1.172 62.28
,Harmonic 25 1.164 22.61
,Harmonic 26 0.475 45.2
,Harmonic 27 (0.426) 26.94
,Harmonic 28 0.298 9.04
,Harmonic 29 (0.353) 30.52
,Harmonic 30 2.714 3.31
,Harmonic 31 (3.9e-2) 18.81
,Harmonic 32 (1.592) 5.47
,Harmonic 33 1.0e-2 8.44
,Harmonic 34 (1.352) 9.77
,Harmonic 35 (0.611) 4.05
,Harmonic 36 (1.795) 10.5
,Harmonic 37 (2.69) 1.69
,Harmonic 38 (1.958) 1.79
,Harmonic 39 (2.135) 0.98
,Harmonic 40 (0.993) 0.77
,Harmonic 41 (2.974) 1.37
,Harmonic 42 0.334 1.63
,Harmonic 43 (2.792) 0.93
,Harmonic 44 (1.7e-2) 1.17
,Harmonic 45 0.387 0.3
,Harmonic 46 (0.926) 0.81
,Harmonic 47 1.117 0.38
,Harmonic 48 (2.604) 0.57
,Harmonic 49 0.659 1.02
,Harmonic 50 (2.171) 0.97
,Harmonic 51 (0.332) 1.23
,Harmonic 52 (1.619) 0.81
,Harmonic 53 1.358 0.46
,Harmonic 54 (1.983) 0.58
,Harmonic 55 (1.462) 0.59
,Harmonic 56 1.214 0.65
,Harmonic 57 (1.752) 1.14
,Harmonic 58 1.809 0.67
,Harmonic 59 (0.598) 1.4
,Harmonic 60 2.881 0.46
,Harmonic 61 1.047 1.24
,Harmonic 62 (0.21) 0.25
,Harmonic 63 0.47 0.74
,Harmonic 64 0.213 0.87]