samer@34: function [y,phi]=block_sr(o,phi,f)
samer@34: % block_ar - Generate periodic signal with sample-rate control parameters
samer@34: %
samer@34: % block_sr :: periodic, real, [[N]] -> [[N]].
samer@34: 
samer@34: PH=cumsum([phi,f],2);
samer@34: y=o.fn(PH(:,1:end-1));
samer@34: phi=mod(PH(:,end),1);
samer@34: