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;