1(define (DrumGM2Custom)
2
3;This is not very usefull currently.
4
5;GM Midi Drumtable
6(define gmAcousticBasedrum "b,,") ;35
7(define gmBassDrum "c,") ;36 low c c,
8(define gmSideStick "cis,")	;37
9(define gmAcousticSnare "d,") ;38
10(define gmHandClap "dis,") ;39
11(define gmElectricSnare "e,");40
12(define gmLowFloorTom "f,") ;41
13(define gmClosedHighHat "fis,") ;42
14(define gmHighFloorTom "g,") ;43
15(define gmPedalHighHat "gis,") ;44
16(define gmLowTom "a,") ;45
17(define gmOpenHighHat "ais,") ;46
18(define gmLowMidTom "b,") ;47
19(define gmHighMidTom "c") ;48  "small c" c
20(define gmCrashCymbal1 "cis") ;49
21(define gmHighTom "d") ;50
22(define gmRideCymbal1 "dis") ;51
23(define gmChineseCymbal1 "e") ;52
24(define gmRideBell "f") ;53
25(define gmTambourine "fis") ;54
26(define gmSplashCymbal "g") ;55
27(define gmCowbell "gis") ;56
28(define gmCrashCymbal2 "a") ;57
29(define gmVibraslap "ais") ;58
30(define gmRideCymbal2 "b") ;59
31(define gmHighBongo "c'") ;60  Middle C c'
32(define gmLowBongo "cis'") ;61
33(define gmMuteHighConga "d'") ;62
34(define gmOpenHighConga "dis'") ;63
35(define gmLowConga "e'") ;64
36(define gmHighTimbale "f'") ;65
37(define gmLowTimbale "fis'") ;66
38(define gmHighAgogo "g'") ;67
39(define gmLowAgogo "gis'") ;68
40(define gmCabasa "a'") ;69
41(define gmMaracas "ais'") ;70
42(define gmShortWhistle "b'") ;71
43(define gmLongWhistle "c") ;72 "high c" c
44(define gmShortGuiro "cis''") ;73
45(define gmLongGuiro "d''") ;74
46(define gmClaves "dis''") ;75
47(define gmHighWoodBlock "e''") ;76
48(define gmLowWoodBlock "f''") ;77
49(define gmMuteCuica "g''") ;78
50(define gmOpenCuica "gis''") ;79
51(define gmMuteTriangle "a''") ;80
52(define gmOpenTriangle "ais''") ;81 a'
53
54;Custom DrumTable
55(define AcousticBasedrum "b,,") ;35
56(define BassDrum "c,") ;36 low c c,
57(define SideStick "cis,")	;37
58(define AcousticSnare "d,") ;38
59(define HandClap "dis,") ;39
60(define ElectricSnare "e,");40
61(define LowFloorTom "f,") ;41
62(define ClosedHighHat "fis,") ;42
63(define HighFloorTom "g,") ;43
64(define PedalHighHat "gis,") ;44
65(define LowTom "a,") ;45
66(define OpenHighHat "ais,") ;46
67(define LowMidTom "b,") ;47
68(define HighMidTom "c") ;48  "small c" c
69(define CrashCymbal1 "cis") ;49
70(define HighTom "d") ;50
71(define RideCymbal1 "dis") ;51
72(define ChineseCymbal1 "e") ;52
73(define RideBell "f") ;53
74(define Tambourine "fis") ;54
75(define SplashCymbal "g") ;55
76(define Cowbell "gis") ;56
77(define CrashCymbal2 "a") ;57
78(define Vibraslap "ais") ;58
79(define RideCymbal2 "b") ;59
80(define HighBongo "c'") ;60  Middle C c'
81(define LowBongo "cis'") ;61
82(define MuteHighConga "d'") ;62
83(define OpenHighConga "dis'") ;63
84(define LowConga "e'") ;64
85(define HighTimbale "f'") ;65
86(define LowTimbale "fis'") ;66
87(define HighAgogo "g'") ;67
88(define LowAgogo "gis'") ;68
89(define Cabasa "a'") ;69
90(define Maracas "ais'") ;70
91(define ShortWhistle "b'") ;71
92(define LongWhistle "c") ;72 "high c" c
93(define ShortGuiro "cis''") ;73
94(define LongGuiro "d''") ;74
95(define Claves "dis''") ;75
96(define HighWoodBlock "e''") ;76
97(define LowWoodBlock "f''") ;77
98(define MuteCuica "g''") ;78
99(define OpenCuica "gis''") ;79
100(define MuteTriangle "a''") ;80
101(define OpenTriangle "ais''") ;81 a'
102
103(cond
104      ((string-ci=? (d-GetNotes) gmAcousticBasedrum) (d-PutNoteName AcousticBasedrum))
105      ((string-ci=? (d-GetNotes) gmBassDrum) (d-PutNoteName BassDrum))
106      ((string-ci=? (d-GetNotes) gmSideStick) (d-PutNoteName SideStick))
107      ((string-ci=? (d-GetNotes) gmAcousticSnare) (d-PutNoteName AcousticSnare))
108      ((string-ci=? (d-GetNotes) gmHandClap) (d-PutNoteName HandClap))
109      ((string-ci=? (d-GetNotes) gmElectricSnare) (d-PutNoteName ElectricSnare))
110      ((string-ci=? (d-GetNotes) gmLowFloorTom) (d-PutNoteName LowFloorTom))
111      ((string-ci=? (d-GetNotes) gmClosedHighHat) (d-PutNoteName ClosedHighHat))
112      ((string-ci=? (d-GetNotes) gmHighFloorTom) (d-PutNoteName HighFloorTom))
113      ((string-ci=? (d-GetNotes) gmPedalHighHat) (d-PutNoteName PedalHighHat))
114      ((string-ci=? (d-GetNotes) gmLowTom) (d-PutNoteName LowTom))
115      ((string-ci=? (d-GetNotes) gmOpenHighHat) (d-PutNoteName OpenHighHat))
116      ((string-ci=? (d-GetNotes) gmLowMidTom) (d-PutNoteName LowMidTom))
117
118      ((string-ci=? (d-GetNotes) gmHighMidTom) (d-PutNoteName HighMidTom))
119      ((string-ci=? (d-GetNotes) gmCrashCymbal1) (d-PutNoteName CrashCymbal1))
120      ((string-ci=? (d-GetNotes) gmHighTom) (d-PutNoteName HighTom))
121      ((string-ci=? (d-GetNotes) gmRideCymbal1) (d-PutNoteName RideCymbal1))
122      ((string-ci=? (d-GetNotes) gmChineseCymbal1) (d-PutNoteName ChineseCymbal1))
123      ((string-ci=? (d-GetNotes) gmRideBell) (d-PutNote NameRideBell))
124      ((string-ci=? (d-GetNotes) gmTambourine) (d-PutNoteName Tambourine))
125      ((string-ci=? (d-GetNotes) gmSplashCymbal) (d-PutNoteName SplashCymbal))
126      ((string-ci=? (d-GetNotes) gmCowbell) (d-PutNoteName Cowbell))
127      ((string-ci=? (d-GetNotes) gmCrashCymbal2) (d-PutNoteName CrashCymbal2))
128      ((string-ci=? (d-GetNotes) gmVibraslap) (d-PutNoteName Vibraslap))
129      ((string-ci=? (d-GetNotes) gmRideCymbal2) (d-PutNoteName RideCymbal2))
130      ((string-ci=? (d-GetNotes) gmHighBongo) (d-PutNoteName HighBongo))
131
132      ((string-ci=? (d-GetNotes) gmLowBongo) (d-PutNoteName LowBongo))
133      ((string-ci=? (d-GetNotes) gmMuteHighConga) (d-PutNoteName MuteHighConga))
134      ((string-ci=? (d-GetNotes) gmOpenHighConga) (d-PutNoteName OpenHighConga))
135      ((string-ci=? (d-GetNotes) gmLowConga) (d-PutNoteName LowConga))
136      ((string-ci=? (d-GetNotes) gmHighTimbale) (d-PutNoteName HighTimbale))
137      ((string-ci=? (d-GetNotes) gmLowTimbale) (d-PutNoteName LowTimbale))
138      ((string-ci=? (d-GetNotes) gmHighAgogo) (d-PutNoteName HighAgogo))
139      ((string-ci=? (d-GetNotes) gmLowAgogo) (d-PutNoteName LowAgogo))
140      ((string-ci=? (d-GetNotes) gmCabasa) (d-PutNoteName Cabasa))
141      ((string-ci=? (d-GetNotes) gmMaracas) (d-PutNoteName Maracas))
142      ((string-ci=? (d-GetNotes) gmShortWhistle) (d-PutNoteName ShortWhistle))
143      ((string-ci=? (d-GetNotes) gmLongWhistle) (d-PutNoteName LongWhistle))
144
145      ((string-ci=? (d-GetNotes) gmShortGuiro) (d-PutNoteName ShortGuiro))
146      ((string-ci=? (d-GetNotes) gmLongGuiro) (d-PutNoteName LongGuiro))
147      ((string-ci=? (d-GetNotes) gmClaves) (d-PutNoteName Claves))
148      ((string-ci=? (d-GetNotes) gmHighWoodBlock) (d-PutNoteName HighWoodBlock))
149      ((string-ci=? (d-GetNotes) gmLowWoodBlock) (d-PutNoteName LowWoodBlock))
150      ((string-ci=? (d-GetNotes) gmMuteCuica) (d-PutNoteName MuteCuica))
151      ((string-ci=? (d-GetNotes) gmOpenCuica) (d-PutNoteName OpenCuica ))
152      ((string-ci=? (d-GetNotes) gmMuteTriangle) (d-PutNoteName MuteTriangle))
153      ((string-ci=? (d-GetNotes) gmOpenTriangle) (d-PutNoteName OpenTriangle))
154
155      (else (newline))
156)
157
158
159); End of DrumGM2Custom
160
161(DrumGM2Custom)
162(d-NextNote)
163(d-RefreshDisplay)