BeatPlayer v1.9 Author: Atte André Jensen (atte.dk), 2008 Sample player, targeted at playing breakbeats. Automode will guess the tempo of the loop, if: a) The tempo of the beat is between "Maximum BPM" and "Maximum BPM" / 2 b) The beat is in 4/4 and either 1/4, 1/2, 1, 2, 4 (etc) bars long Changelog: 1.9 * Minor code cleanup 1.8 * Stretching works in stereo * UI cleanup * Tuning in stretch-mode (doesn't affect tempo) 1.7 * Stretching is done with syncgrain only * Code cleanup 1.6.1 * Experimented with syncgrain in three bands 1.6 * Experimenting with both sndarp, granule and syncgrain 1.5 * Added iwarpgain to reduce output of sndwarp 1.4 * Added "time stretching" (using sndwarp), however the sound quality is quite poor :-( 1.3 * More efficient code in automode 1.2 * Fixed bug in automode 1.1 * Added auto mode, will try to guess number of bars 1.0 * Initial release git_beat_player_<INSTR_NAME> ftgen 0, 0, 0, 1, "<file>", <skipa>+<skipb>+<skipc>, 0, 0 git_beat_player_l_<INSTR_NAME> ftgen 0, 0, 0, 1, "<file>", <skipa>+<skipb>+<skipc>, 0, 1 git_beat_player_r_<INSTR_NAME> ftgen 0, 0, 0, 1, "<file>", <skipa>+<skipb>+<skipc>, 0, ftchnls(git_beat_player_<INSTR_NAME>) git_beat_player_wind_<INSTR_NAME> ftgen 0, 0, 16384, 9, .5, 1, 0 ivol = p4; 0-1 ; defaults ivol = (ivol == 0) ? 1 : ivol kcps = 1 icps = 1 ; setup iamp = 20000 ifn = git_beat_player_<INSTR_NAME> ifnl = git_beat_player_l_<INSTR_NAME> ifnr = git_beat_player_r_<INSTR_NAME> imaxbpm = <maxBPM>; default = 160 iguess_meter = 4 iminbars = .25 imax_tune_octaves = 2 itune_ref = 6 ;itune1 = cpspch(itune_ref + (<tuneSemitones> + <tuneCents> * .01) * .01) itune1 = <tuneSemitones> + <tuneCents> * .01 itune1 = itune1 + (imax_tune_octaves* 12) itune1 = itune_ref + (itune1 * .01) itune1 = cpspch(itune1) itune2 = cpspch(itune_ref + imax_tune_octaves) itune = itune1 / itune2 ; calculate kamp = iamp * ivol * <vol> ichn filenchnls "<file>" ;gichn filenchnls "<file>" ilen filelen "<file>" kbpm miditempo ;ibpm = i(kbpm) iminbars2 = iminbars * 2 israte filesr "<file>" iratefactor = sr / israte ; guess nb bars iguess_bars = ilen * imaxbpm / 60 / iguess_meter icount = 0 ; print iguess_bars guess: icount = icount + 1 iguess_bars = iguess_bars * .5 cggoto(iguess_bars > iminbars2), guess iguess_bars pow 2, icount iguess_bars = iguess_bars * iminbars ; print iguess_bars ; maybe drop altering pitch cggoto(<speed>==0), play ; alter pitch cggoto(<auto>==1), auto ; from beat/tempo settings manual: kcps = kbpm/60 * ilen/(<meter>*<nbBars> + <addBeats> + <addBeatPart>) goto tempo_set auto: kcps = kbpm/60 * ilen/(iguess_meter*iguess_bars) tempo_set: ; from tuning ;kcps = kcps * (1 + <tunea> + <tuneb>) ; setup for syncgrain iolaps = 1.6 / itune kfreq = 40 ;kpitch = 2 / iratefactor kpitch = 1 / iratefactor * itune kgrsize = 1 / kfreq * iolaps ;kprate = 2 * kcps / iratefactor / iolaps kprate = kcps / iratefactor / iolaps ifun2 = git_beat_player_wind_<INSTR_NAME> icmp = .5 play: ; correct pitch both in stereo and mono cggoto(ichn==2), stereo mono: cggoto(<speed>=2), str_mono aout loscil3 kamp, kcps, ifn, 1, 1 ;aout syncgrain kamp, kfreq/icmp, kpitch, kgrsize * icmp, kprate, ifn, ifun2, iolaps goto end_mono str_mono: ;aout syncgrain kamp, kfreq/icmp, kpitch/2, kgrsize * icmp, kprate/2, ifn, ifun2, iolaps aout syncgrain kamp, kfreq/icmp, kpitch, kgrsize * icmp, kprate, ifn, ifun2, iolaps end_mono: aoutl = aout aoutr = aout goto done stereo: cggoto(<speed>==2), str_stereo aoutl, aoutr loscil3 kamp, kcps, ifn, 1, 1 goto end_stereo str_stereo: aoutl syncgrain kamp, kfreq, kpitch, kgrsize, kprate, ifnl, ifun2, iolaps aoutr syncgrain kamp, kfreq, kpitch, kgrsize, kprate, ifnr, ifun2, iolaps ;aoutl = aout ;aoutr = aout end_stereo: done: ; output blueMixerOut aoutl, aoutr file 27 54 300 skipa 22 266 true 0.0 0.1 1.0E-4 0.0 400 true skipb 22 295 true 0.0 1.0 0.1 0.0 400 true nbBars 411 126 true 0.0 4.0 1.0 1.0 150 true meter 358 137 4/4 4 3/4 3 0 true 366 163 Meter 418 145 Nb Bars 28 85 Sound File skipc 22 324 true 0.0 10.0 1.0 0.0 400 true vol 556 12 true 0.0 1.0 1.0 60 false 565 88 Volume auto 27 151 Auto 1 Manual 0 0 true addBeats 411 155 true 0.0 4.0 1.0 0.0 150 true 420 174 Additional Beats 26 105 -------------------------------------------------------------------------- 33 175 <html><center>Detection<br>Method</center></html> 252 1 <html><font size="6"><b>BeatPlayer</b></font></html> 298 27 v 1.9 25 118 <html><font size="4">Loop Length Detection</font></html> maxBPM 125 137 true 100.0 300.0 1.0 168.0 150 true 133 162 Maximum BPM 339 138 <html>M<br>A<br>N<br>U<br>A<br>L</html> 26 225 -------------------------------------------------------------------------- speed 376 38 Original 0 Pitch 1 Stretch 2 1 true 114 144 <html>A<br>U<br>T<br>O</html> 377 62 <html><center>Speed<br>Adjustment</center></html> addBeatPart 411 184 true 0.0 1.0 0.0010 0.0 150 true 419 202 Additional Beat Fraction 26 31 <html><font size="4">Global</font></html> 27 370 <html><font size="4">Tuning</font></html> 26 239 <html><font size="4">Playback Offset</font></html> 27 357 -------------------------------------------------------------------------- tuneSemitones 22 404 true -24.0 24.0 1.0 0.0 400 true tuneCents 22 433 true -100.0 100.0 1.0 0.0 400 true 483 410 Semi Tones 482 439 Cents 481 331 Seconds 480 302 1/10 Seconds 481 273 Micro Time 28 388 <html><font size="2">Set "Speed Adjustment" to "Stretch" to enable...</font><html>