<CsoundSynthesizer><CsOptions>; Select audio/midi flags here according to platform-n
</CsOptions><CsInstruments>sr=44100ksmps=32nchnls=20dbfs=1;an 'empty' function table with 10 pointsTable@global:i=ftgen(0,0,-10,2,0)instr1;print inital values of Tableputs("\nInitial table content:",1)indx=0untilindx==ftlen(Table)doiVal=table(indx,Table)printf_i("Table index %d = %f\n",1,indx,iVal)indx+=1od;create arrayArr:k[]=init(10);fill in valuesArr=genarray(1,10);print array valuesprintf("%s",1,"\nArray content:\n")ndx:k=0untilndx==lenarray(Arr)doprintf("Arr[%d] = %f\n",ndx+1,ndx,Arr[ndx])ndx+=1od;copy array values to tablecopya2ftab(Arr,Table);print modified values of Tableprintf("%s",1,"\nModified table content after copya2ftab:\n")ndx=0untilndx==ftlen(Table)doVal:k=table(ndx,Table)printf("Table index %d = %f\n",ndx+1,ndx,Val)ndx+=1od;turn instrument offturnoff()endin</CsInstruments><CsScore>i100.1</CsScore></CsoundSynthesizer>
Here is an example of the copya2ftab opcode. It uses the file copya2ftab.csd.
<CsoundSynthesizer><CsOptions>; Select audio/midi flags here according to platform-n
</CsOptions><CsInstruments>sr=44100ksmps=32nchnls=20dbfs=1;an 'empty' function table with 10 pointsgiTableftgen0,0,-10,2,0instr1;print inital values of giTableputs"\nInitial table content:",1indx=0untilindx==ftlen(giTable)doiValtableindx,giTableprintf_i"Table index %d = %f\n",1,indx,iValindx+=1od;create arraykArr[]init10;fill in valueskArrgenarray1,10;print array valuesprintf"%s",1,"\nArray content:\n"kndx=0untilkndx==lenarray(kArr)doprintf"kArr[%d] = %f\n",kndx+1,kndx,kArr[kndx]kndx+=1od;copy array values to tablecopya2ftabkArr,giTable;print modified values of giTableprintf"%s",1,"\nModified table content after copya2ftab:\n"kndx=0untilkndx==ftlen(giTable)dokValtablekndx,giTableprintf"Table index %d = %f\n",kndx+1,kndx,kValkndx+=1od;turn instrument offturnoffendin</CsInstruments><CsScore>i100.1</CsScore></CsoundSynthesizer>