5.031134259259257 29.635532407407407 ATS Player Xtended -3355648 untitled f 1 0 16384 10 1 inp ATSinfo <ats_file>, 3 id ATSinfo <ats_file>, 7 inoise ATSinfo <ats_file>, 8 ;formula = offset + npartials*incr ipartialoffset = int(inp * i(<partial offset>)) ipartialincr = i(<partial increment>) inoisebands = i(<noisebands>) inoisebandoffset = i(<noiseband offset>) inoisebandincr = i(<noiseband increment>) if int(inp * i(<partials>) - inp * i(<partial offset>)) / i(<partial increment>) < 1 then prints "\n\nbalance between partials, offset and increment is not correct!!\n" prints "ATS file contains %d partials.\n", inp aoutSIN = 0 else aoutSIN ATSadd <time pointer> * id, <frequency transposition>, <ats_file>, 1, \ int((inp * i(<partials>) - ipartialoffset) / ipartialincr), ipartialoffset, ipartialincr endif if inoise == 3 || inoise == 4 then ; lets make some noise! aoutNZ ATSaddnz <time pointer> * id, <ats_file>, (inoisebands - inoisebandoffset) / inoisebandincr , inoisebandoffset, inoisebandincr else prints "\nno noise is present in this ATS file.\n\n" aoutNZ = 0 endif aout ntrpol aoutSIN, aoutNZ, <mix> aL, aR pan2 aout, <pan> aL *= <volume> aR *= <volume> blueMixerOut "SubChannel1", aL ,aR 5 5 DOT true 0 0 Group 0x00000033 0x000000ff 0xffffffff true 20 20 10 10 Group 0x999900ff 0x000000ff 0xffffffff false 20 20 630 10 residual components 0x999900ff 0x000000ff 0xffffffff true 20 20 noisebands 10 10 true 1.0 25.0 1 25.0 50 true true 125 90 incr. System Regular 12.0 noiseband increment 110 10 true 1.0 10.0 1 1.0 50 true true 15 90 part % System Regular 12.0 noiseband offset 60 10 true 0.0 24.0 1 0.0 50 true true 65 90 offset % System Regular 12.0 200 100 noise System Regular 12.0 time pointer 10 70 true 0.0 1.0 1.0 40 true true time pointer true System Regular 12.0 390 10 determenistic components 0x999900ff 0x000000ff 0xffffffff true 20 20 partial increment 110 10 true 1.0 10.0 1 1.0 50 true true partial offset 60 10 true 0.0 1.0 0.01 0.0 50 true true frequency transposition 170 20 true 0.0 5.0 1.0 40 true true transpose true System Regular 12.0 20 90 part % System Regular 12.0 70 90 offset % System Regular 12.0 125 90 incr. System Regular 12.0 partials 10 10 true 0.0 1.0 0.05 1.0 50 true true 260 85 pan System Regular 12.0 volume 345 90 true 0.0 5.0 0.1 2.8 50 true false 335 75 volume System Regular 12.0 mix 130 90 true 0.0 1.0 0.1 0.1 70 true false 10 10 ATS file 0x00000033 0x000000ff 0xffffffff true 20 20 ats_file 0 0 /home/menno/csound/Analyses/flute-A5.ats 340 true 100 100 sines System Regular 12.0 pan 250 90 true 0.0 1.0 0.1 0.5 50 true false declick a a ain xin aenv linseg 0, 0.01, 1, p3 - 0.03, 1, 0.02, 0, 0.01, 0 xout ain * aenv ; apply envelope and write output declick - removes clicks from signal start and end DESCRIPTION Given a signal, it will DeClick will apply an envelope to it to ensure there is no clicking at the start or end of the sound (Taken from the Csound Reference Manual) SYNTAX aout declick ain INITIALIZATION null PERFORMANCE ain - signal to declick aout - declicked signal CREDITS Author: Istvan Varga ;formula = offset + npartials*incr The ATS Player Xtended uses the 2 opcodes ATSadd and ATSnz. version 1.0, April 2019