matrixscaler
matrix scaler
Inlets
int32.positive select
int32.bipolar seq
int32.bipolar octave
int32.bipolar keyafter
int32.bipolar transafter
Outlets
int32.bipolar o
Parameters
int32 transpose
bool32.tgl on
int32.hradio C
int32.hradio Cis
int32.hradio D
int32.hradio Dis
int32.hradio E
int32.hradio F
int32.hradio Fis
int32.hradio G
int32.hradio Gis
int32.hradio A
int32.hradio Ais
int32.hradio B
int32_t val;
int rem;
int oct;
int scl;val = (int32_t)(GenerateRandomNumber()) >> 4;
rem = 1;
oct = 0;
scl = 0;int r;
if (inlet_s >= 0)
r = ((unsigned int)inlet_s) / 12;
else
r = -(((unsigned int)(12 - inlet_s)) / 12);
rem = (inlet_s + ((inlet_seq + 64) * 0.094) + inlet_octave) - (r * 12);
;
oct = ((r * 12) - 4);
switch (rem > 0 ? rem : 0) {
case 0:
scl = (param_C) + oct;
break;
case 1:
scl = (param_Cis) + oct;
break;
case 2:
scl = (param_D) + oct;
break;
case 3:
scl = (param_Dis) + oct;
break;
case 4:
scl = (param_E) + oct;
break;
case 5:
scl = (param_F) + oct;
break;
case 6:
scl = (param_Fis) + oct;
break;
case 7:
scl = (param_G) + oct;
break;
case 8:
scl = (param_Gis) + oct;
break;
case 9:
scl = (param_A) + oct;
break;
case 10:
scl = (param_Ais) + oct;
break;
case 11:
scl = (param_B) + oct;
break;
default:
scl = (param_C) + oct;
break;
}
outlet_o = (param_on)
? scl + param_transpose + inlet_keyafter + inlet_transafter +
inlet_octave
: inlet_s + param_transpose + inlet_keyafter + inlet_transafter +
((inlet_seq + 64) * 0.094) + inlet_octave;