sr = 44100 kr = 4410 ksmps = 10 nchnls = 1 0dbfs = 1.0 instr 1 isource_fn = p4 idestination_fn = p5 iscale = p6 if isource_fn == idestination_fn then prints "WARNING!! Source and destination must use different function\n" prints "table numbers. Skipping GEN scale.\n" turnoff endif isize = ftlen(isource_fn) itemp ftgen idestination_fn, 0, isize, 10, 0 iwrite_value = 0 i_index = 0 loop_start: iread_value tab_i i_index, isource_fn iwrite_value = iread_value * iscale tabw_i iwrite_value, i_index, idestination_fn loop_lt i_index, 1, isize, loop_start turnoff endin instr 2 ifn = p4 isize = ftlen(ifn) prints "Index\tValue\n" i_index = 0 loop_start: ivalue tab_i i_index, ifn prints "%d:\t%f\n", i_index, ivalue loop_lt i_index, 1, isize, loop_start turnoff endin f 1 0 8 10 1 i 1 0 1 1 2 3.333 i 2 0 1 1 i 2 0 1 2