tests fot copying arrays to ftables

tests fot copying arrays to ftables

<CsoundSynthesizer>
<CsInstruments>
instr 1 ;; lentab
  kS[] init 2
  printk2 lentab(kS)
endin
instr 2 ;; tabgen
  kS[] init 10
  kS   tabgen 0,10,2
  printk2 kS[0]
  printk2 kS[4]
  printk2 kS[9]
endin
instr 3 ;; tabmap
  kS[] init 10
  kT[] init 10
  kS   tabgen 0,10,0.01
  kT   tabmap kS,"sin"
  printk2 kS[0]
  printk2 kS[4]
  printk2 kS[9]
  printk2 kT[0]
  printk2 kT[4]
  printk2 kT[9]
endin
instr 4 ;; tabslice
  kS[]    init 10
  kT[]    init 5
  kS      tabgen 0,10,0.01
  kT[]    tabslice kS,3,7
  printk2 kT[0]
  printk2 kT[1]
  printk2 kT[2]
  printk2 kT[3]
  printk2 kT[4]
endin
instr 5 ;; scalet
  kT[]    tabgen 0,10
          scalet kT,0,1
  printk2 kT[0]
  printk2 kT[1]
  printk2 kT[2]
  printk2 kT[3]
  printk2 kT[4]
  printk2 kT[5]
  printk2 kT[6]
  printk2 kT[7]
  printk2 kT[8]
  printk2 kT[9]
endin
instr 6 ;; copy
kS[] init 1024
kS   tabgen 0,1024
     scalet kS,0,1
     copy2ftab kS, 1
aa   oscil 10000, 440, 1
     out aa
endin
instr 7 ;; copy
  kS[] init 1024
  printk2 kS[123]
  copy2ttab kS, 1
  printk2 kS[123]
endin
</CsInstruments>
<CsScore>
f1 0 1024 10 1
i1 0 0.1
i2 0.1 0.1
i3 0.2 0.1
i4 0.3 0.1
i5 0.4 0.1
i6 0.5 0.1
i7 0.6 0.1
</CsScore>
</CsoundSynthesizer>

<CsoundSynthesizer>
<CsInstruments>
instr 1 ;; lentab
  kS[] init 2
  printk2 lentab(kS)
endin
instr 2 ;; tabgen
  kS[] init 10
  kS   tabgen 0,10,2
  printk2 kS[0]
  printk2 kS[4]
  printk2 kS[9]
endin
instr 3 ;; tabmap
  kS[] init 10
  kT[] init 10
  kS   tabgen 0,10,0.01
  kT   tabmap kS,"sin"
  printk2 kS[0]
  printk2 kS[4]
  printk2 kS[9]
  printk2 kT[0]
  printk2 kT[4]
  printk2 kT[9]
endin
instr 4 ;; tabslice
  kS[] init 10
  kT[] init 5
  kS   tabgen 0,10,0.01
  kT[]   tabslice kS,3,7
  printk2 kT[0]
  printk2 kT[1]
  printk2 kT[2]
  printk2 kT[3]
  printk2 kT[4]
endin
instr 5 ;; scalet
  kT[]   tabgen 0,10
  printk2 kT[0]
  printk2 kT[1]
  printk2 kT[2]
  printk2 kT[3]
  printk2 kT[4]
  printk2 kT[5]
  printk2 kT[6]
  printk2 kT[7]
  printk2 kT[8]
  printk2 kT[9]
        scalet kT,0,1
  printk2 kT[0]
  printk2 kT[1]
  printk2 kT[2]
  printk2 kT[3]
  printk2 kT[4]
  printk2 kT[5]
  printk2 kT[6]
  printk2 kT[7]
  printk2 kT[8]
  printk2 kT[9]
endin
</CsInstruments>
<CsScore>
i1 0 0.1
i2 0.1 0.1
i3 0.2 0.1
i4 0.3 0.1
i5 0.4 0.1
</CsScore>
</CsoundSynthesizer>