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)