Hold Pedal Down, Clear Each Bar

desc:jda midi pedal per bar

@init
pedal_down = 0;
i = 0;

@block
seconds_per_beat = 60 / tempo;
samples_per_beat = srate * seconds_per_beat;
samples_per_bar = samples_per_beat * 4;
j = 0;
while(midirecv(offset,m1,m2,m3)) (
  midisend(offset,m1,m2,m3);
);

@sample
( pedal_down > 0 ) ? (
  (i > samples_per_bar) ? (
  i -= samples_per_bar;
  pedal_down =  0;
  midisend(j,0xB0,64,0);
  );
) : (
  (i > samples_per_beat / 4) ? (
    pedal_down = 1;
    midisend(j,0xB0,64,127);
  );

);

j += 1;
i += 1;