SnipLooper v1.1 true 2 2 ;setksmps 1 kwait init 0 kwaitfor init 0 khavewaited init 0 ; setup from tempo kbpm miditempo kbeatlen = 60/ kbpm ; delay setup kdel = kbeatlen * <beatFraction> imaxdel = 4 ;kon = (<beatFraction> < .1) ? 0 : 1 kon = 1 cggoto (<beatFraction> > 0), kondone kon = 0 kondone: khavewaited = (kon == 0) ? 0 : khavewaited ; what time is it? know timek printk .1, kon ; handle waits cggoto (kwait == 1 && know > kwaitfor), stopwait goto endstopwait stopwait: kwait = 0 khavewaited = 1 endstopwait: cggoto (kon == 1 && kwait == 0 && khavewaited == 0), startwait goto endstartwait startwait: kwait = 1 kwaitfor timek kwaitfor = kwaitfor + (kdel*kr) endstartwait: ; should we drop reading/writing delay? cggoto (kon == 0), enddelay adump delayr imaxdel adelay1 deltapi kdel delayw ((1-kwait) * adelay1) + ((kwait) * ain1) adelay2 = ain2 adump delayr imaxdel adelay2 deltapi kdel delayw ((1-kwait) * adelay2) + ((kwait) * ain2) enddelay: ; should we play the dry or the delayed audio? cggoto(kon == 1 && kwait==0), delout dryout: aout1 = ain1 aout2 = ain2 goto done delout: aout1 = adelay1 aout2 = adelay2 goto done done: Author: Atte André Jensen (atte.dk), 2008 Loops part of audio stream on demand. Should be used with automation. If the value of "Beat Fraction" is 0, nothing is looped. If set to anything else, that fraction is repeated. Example. Assuming the following automation graph for "Beat Fraction" | | | |----| <- Beat Fraction = .25 Beat Fraction = 0 ->|----|----|----| | This will play the stream unmodified for 3 beats. Then on beat 4 the first 1/16 (since a 1/16 is 25% the length of a beat (1/4)) of that beat is repeated four times untill beat 5 Changelog: 1.1 * Runs at krate 1.0 * Initial release beatFraction 39 52 true 0.0 1.0 0.0 60 true 33 128 Beat Fraction 0 0 <html><font size="6"><b>SnipLooper</b></font></html> 54 31 v 1.1