lrec multi
records audio to a table. the table can be divided into 1,2,4 or 8 slots. when 'sync' is enabled,recording will be synced to phase of the signal connected to 'pos', and after 'rec' is zero,recording will continue until the starting point is reached. after recording is done,the length if the recording in samples is sent out, as well as the length of the recording (in fraction of the table's size).
Inlets
bool32.risingfalling record,set tempo
int32 select slot to record to
bool32 sync on/off
frac32buffer audio in
frac32buffer.positive pos
Outlets
bool32 record state
frac32.positive offset
frac32.positive length of recording in fraction of the slot
frac32 recording offset when recording in sync
int32 length of recording in samples
Attributes
objref table to record to
combo number of slots in the table
bool rec;
int recpos;
int offset;
int rec_offset;
int rec_max;
int shift;
int spos;
int csample;
int start;
int mode;recpos = 0;
rec = 0;
start = 0;
rec_max = attr_table.LENGTH >> attr_slots;
// set 'shift factor' for storing the recording length/the sync output
if (attr_table.LENGTH == 2048) {
shift = 16;
}
if (attr_table.LENGTH == 4096) {
shift = 15;
}
if (attr_table.LENGTH == 8192) {
shift = 14;
}
if (attr_table.LENGTH == 16384) {
shift = 13;
}
if (attr_table.LENGTH == 32768) {
shift = 12;
}
if (attr_table.LENGTH == 65536) {
shift = 11;
}
if (attr_table.LENGTH == 131072) {
shift = 10;
}
if (attr_table.LENGTH == 262144) {
shift = 9;
}
if (attr_table.LENGTH == 524288) {
shift = 8;
}
if (attr_table.LENGTH == 1048576) {
shift = 7;
}
if (attr_table.LENGTH == 2097152) {
shift = 6;
}
if (attr_table.LENGTH == 4194304) {
shift = 5;
}csample = (inlet_pos >> 7);
if ((inlet_rec) && !rec) {
rec = 1;
recpos = 0;
spos = csample;
start = inlet_pos;
outlet_range = 0;
outlet_smps = 0;
outlet_startpoint = 0;
mode = inlet_sync;
offset = (((inlet_slot) << 21) >> attr_slots) << 6;
rec_offset = (__USAT(offset, 27) >> (27 - attr_table.LENGTHPOW));
}
// rec stopped-wait for rollover
else if (!(inlet_rec)) {
if (mode) {
if ((csample > (spos - 12)) && (csample < (spos + 12))) {
rec = 0;
}
} else
rec = 0;
}
// record
if (rec) {
recpos++;
if (recpos >= rec_max)
recpos = 0;
attr_table.array[(recpos + rec_offset)] =
__SSAT(inlet_wave, 28) >> attr_table.GAIN;
}
// rec done
if (!rec) {
outlet_range = (recpos << shift);
outlet_smps = recpos;
if (mode)
outlet_startpoint = start;
else
outlet_startpoint = 0;
}
outlet_rec = rec;
outlet_offset = offset;