replace2.pl.txt
sub replaceRhythmName
{
local($name) = @_;
$_ = $name;
# Something Special
s/RamaCymL/Thai Gong/;
s/RamaCymH/Rama Cymbal/;
s/LowConga/Open Low Conga/;
s/(\d)HC/\1 Mute High C/; # 808 Mute High Conga
s/(\d)MC/\1 Open High C/;
s/(\d)LC/\1 Open Low C/;
s/M\.Bt1/Low Beat/;
s/M\.Bt2/High Beat/;
s/909 CmpK/TR-909 Kick 1/;
s/JangGu C/Jang-Gu Che/;
s/JangGu K/Jang-Gu Kun/;
s/Tan Gu M/Tan Gu Mute/;
s/Jing M/Jing Mute/;
s/TablaGeH/Tabla Ge Hi/;
# s/Talk Drm/Talking Drum/;
s/Timp\.G/Timpani G /;
s/Timp\.B/Timpani B /;
s/E\.M\.Tri/E.Mute Triangle/;
s/Mt\.Pnder/Mute Pandiero/; # Mt. : Mute / Metronome
s/Mt.Surdo/Mute Surdo/;
s/Mt.Trigl/Mute Triangle/;
s/Mt.Cuica/Mute Cuica/;
# Kick
s/Kick /Kick Drum /;
s/Kik/Kick/;
s/K(\d)/Kick $1/;
s/K$/Kick/;
s/ConBD/Concert Bass Kick/;
s/Cnct\./Concert /;
s/Cncrt/Concert /;
s/Con\./Concert /;
s/BD/Kick/;
s/Pwr/Power/;
s/Pow([^e])/Power \1/;
s/Elec[^\s]/Electric /;
s/Elec /Electric/;
s/E\./Electric /;
# s/Elec\./Electric /;
s/Jgl/Jungle /;
s/Jungl /Jungle /;
s/Tch /Techno /;
s/Tek\./Techno /;
s/Tkno/Techno/;
s/Pily/Philly/;
s/Impct/Impact /;
s/Hse/House/;
s/Std\./Standard /;
s/Std(\d)/Standard \1 /;
s/^909/TR-909/;
s/^808/TR-808/;
s/^707/TR-707/;
s/^606/TR-606/;
s/^626/TR-626/;
s/([^-R])78/\1 CR-78/;
s/^78/CR-78/;
s/CR /CR-78 /;
s/MC /MC-500 /;
s/HipHop/Hip-Hop/;
# Snare
s/S$/Snare/;
s/S(\d)/Snare $1/;
s/Snr$/SD/;
# s/Snr/Snare/;
s/Snre/Snare/;
s/Snr\.?/Snare /;
s/SD/Snare/;
s/Scr\./Scratch /;
s/Scrtch/Scratch /;
s/Fing/Finger /;
s/Snp/Snap /;
s/Sq\./Square /;
s/Sd\./Side /;
# Tom
s/L\.?T(om)?/Low Tom/;
s/M\.?T(om)?/Mid Tom/;
s/H\.?T(om)?/High Tom/;
s/Tommbl/Timbale/;
s/Low?(\d)/Low Tom \1/;
s/Mi?d(\d)/Mid Tom \1/;
s/Hi\s?(\d)/High Tom \1/;
s/Swl$/Swirl/;
# Hi-Hat
s/^C[\.-]/Closed /;
s/Cls\./Closed /;
s/Closd/Closed/;
s/O\./Open /;
s/Op\./Open /;
s/Op([A-Z])/Open \1/;
s/Opn/Open/;
s/P\./Pedal /;
s/Pd([A-Z])/Pedal \1/;
s/Hi\./High /;
s/CHH/Closed Hi-Hat /;
s/CH/Closed Hi-Hat/;
s/OHH/Open Hi-Hat/;
s/OH(\d)/Open Hi-Hat \1/;
s/OH$/Open Hi-Hat/;
s/OH\./Open High /;
s/HH/Hi-Hat/;
# Cymbal
s/^B\./Brush /;
# s/B\.Crash/Brush Crash/;
s/M\.Crash/Mute Crash/;
s/Crsh/Crash /;
s/Cr$/Crash Cymbal/;
s/CraCym/Crash Cymbal/;
s/Cymbl/Cymbal /;
s/Cym$/Cymbal /;
s/Cym(\d)/Cymbal \1/;
s/Cy$/Cymbal/;
s/C$/Cymbal/;
s/^r\./Reverse /;
s/Rev\./Reverse /;
s/^R\./Room /;
s/RND/\[RND\]/;
s/Ride/Ride /;
s/Rid([A-Z])/Ride \1/;
s/Rde/Ride /;
s/RDB/ Ride Bell /;
s/Chin\./Chinese /;
s/Chin([A-Z])/Chinese \1/;
s/Gam([A-Z])/Gamelan \1/;
s/Gng/Gong/;
s/G$/Gong/;
s/Gender 1/Gender C#/;
s/Gender 2/Gender D#/;
s/Gender 3/Gender G/;
s/Gender 4/Gender A#/;
s/Gender 5/Gender C/;
s/Bonang 1/Bonang C#/;
s/Bonang 2/Bonang D#/;
s/Bonang 3/Bonang G/;
s/Bonang 4/Bonang A#/;
s/Bonang 5/Bonang C/;
s/Mt\./Metronome /; # or Mute
s/HAggo/High Agogo/;
s/H2$/High Mute/;
s/Hi([A-Z])/Hi \1/;
s/M$/Mid/;
s/M2$/Mid Mute/;
s/ML$/Mute Low/;
s/ML\./Mute Low /;
s/L$/Low/;
s/LAggo/Low Agogo/;
s/Low(\w)/Low $1/;
s/Lo([A-EG-Z])/Low \1/;
s/OL\./Open Low /;
s/R$/ Rim/;
s/Ri?mst/Rim Shot/;
s/S\./Short /;
s/Shrt/Short/;
s/LL\./Long Low /;
s/L\./Long /;
s/Lng/Long /;
s/Vib-/Vibra-/;
s/Vbslp/Vibrato Slap/;
s/Splsh/Splash /;
s/MH[\. ]?/Mute High /;
s/SH\./Short High /;
s/OH[\. ]+/Open High /;
s/H$/High/;
# Percussions
s/Timbles/Timbales /;
s/Timbl/Timbale/;
s/T\./Timbales /;
s/Tamb[\.\s$ ]/Tambourine /;
s/Tambourn/Tambourine/;
s/Tmbrn/Tambourine/;
s/Tmb./Tambourine/;
s/Tmb$/Tambourine/;
s/S\.Tamb/Shake Tambourine/;
s/Timp\./Timpani /;
s/Blk/Block/;
s/Blok/Block/;
s/Cng\./Conga /;
s/Cng$/Conga /;
s/Cow$/Cowbell/;
s/Co?wbl/Cowbell/;
s/W\./Wood /;
s/Cla?vs/Clavas/;
s/Windchim/Wind Chimes/;
s/Shk[er]/Shaker/;
s/Bngo?/Bongo/;
s/Bong([^o ])/Bongo \1/;
s/Marcs?$/Maracas/;
s/Mra?cs/Maracas/;
s/IN/Inner/;
s/Inner (\w*)/\1 Inner/;
s/(\w*) Sagat/Sagat \1/;
s/Trigl/Triangle/;
s/Tri$/Triangle/;
s/Bltree/Bell Tree/;
s/B$/Bell/;
s/Perc/Percussion /;
s/Drm/Drum/;
s/Dr$/Drum/;
s/SimeTaik/Shimedaiko/;
s/Atarigan/Atarigane/;
s/Hyousigi/Hyoushigi/;
s/Tsuzumi(\w*)/\1 Kotsuzumi/;
s/Pnder/Pandiero/;
# Guitar
s/Gt\./Guitar /;
s/Stroke D/Chord Stroke Down/;
s/Stroke U/Chord Stroke Up/;
s/Dn$/Down/;
s/D$/Down/;
s/U$/Up/;
s/Phono/Phonograph/;
s/Nz/Noise/;
s/Rew/Rewind/;
s/Slid$/Slide/;
s/Sc\./Scratch /;
s/CutN(\d)*\./Cutting Noise \1 /;
s/D\./Distortion /;
s/Dst/Distortion /;
s/Dist\./Distortion /;
s/Distortion Cutting/Distortion Guitar Cutting/;
s/Bs\./Bass /;
s/Pk\./Pick /;
s/FretNoiz/Guitar Fret Noise/;
s/CutNoiz/Guitar Cutting Noise /;
s/Ft\.step/Footsteps /;
# Misc
s/Helcpter/Helicopter/;
s/Telphon/Telephone /;
s/Sml/Small /;
s/Appl([0-9A-Z])/Applause \1/;
s/Applaus2/Applause 2/;
s/H\./Hand /;
s/Hndcl/Hand Clap/;
s/Hnd/Hand /;
s/Whisl$/Whisle/;
s/SWisl/Short Whistle/;
s/LWisl/Long Whistle/;
s/Bt\./ Beat/;
s/Jng[\.l]?/Jingle /;
# s/Jng/Jingle /;
s/Calculat/Caluculating\.\.\./;
s/Spc/Space /;
s/Emrgency/Emergency/;
s/^MY/HY/; # Miss speling
s/HY /Hu Yin /;
s/Vpoc$/ Vpoce/;
s/Yyooh$/Yyoo Dude/;
s/SbMarine/Sub Marine/;
s/Digi([A-Z])/Digital \1/;
s/Mod\./Modulated /;
s/Mtl\./Metalic /;
s/VeloNoiz/Velocity Noise FX/;
s/NoizClap/Stereo Noise Clap/;
s/St([\d])/Stop \1/;
s/Bd$/Birds/;
s/FlyMonst/Flying Moster/;
s/Biwa FX/Biwa/;
s/Scrap$/Scrape/;
s/KeyClick/Flute Key Click Noise/;
s/Str\.Slap/String Slap of Double Bass/;
s/Engin$/Engine/;
s/Machn/Machine /;
s/Explsion/Explosion/;
s/Gengr/Gengari/;
s/Bnd/Bend /;
s/Tlk/Talking /;
# Last Fix
s/HiHat/Hi-Hat/;
s/([A-Za-z\d])Kick/\1 Kick/;
s/(\w)Tom/\1 Tom/;
s/Hi Hat/Hi-Hat/;
s/Hat(\d)/Hat \1/;
s/78(\w)/78 \1/;
s/808(\w)/808 \1/;
s/Tom(\d)/Tom \1/;
# s/Rim ?$/Rim Shot/;
s/Ride ?$/Ride Cymbal/;
s/Ride (\d)$/Ride Cymbal \1/;
s/Ride\s*Inner/Ride Cymbal Inner/;
s/Brush(\w)/Brush \1/;
s/Hip-Hop(\w)/Hip-Hop \1/;
s/BellTree/Bell Tree/;
s/Techno(\w)/Techno \1/;
s/Push(\d)/Push \1/;
s/Pull(\d)/Pull \1/;
s/Kick(\d)/Kick \1/;
s/Snare(\d)/Snare \1/;
s/Beep(\d)/Beep \1/;
s/Clap(\d)/Clap \1/;
s/Swirl(\d)/Swirl \1/;
s/HandClap/Hand Clap/;
s/LoFi/Lo-Fi /;
s/RapSnare/Rap Snare/;
s/JungleSnare/Jungle Snare/;
s/goHigh/go High/;
s/goLow/go Low/;
s/VoiceTah/Voice Tah/;
s/BarChime/Bar Chimes/;
s/Edge([LMH])/Edge \1/;
$_;
}
1;