Skip to content

ATSbufread

Reads data from and ATS data file and stores it in an internal data table of frequency, amplitude pairs.

Syntax

ATSbufread(ktimepnt, kfmod, iatsfile, ipartials [, ipartialoffset, \
           ipartialincr])

ATSbufread ktimepnt, kfmod, iatsfile, ipartials [, ipartialoffset, \
           ipartialincr]

Initialization

iatsfile – the ATS number (n in ats.n) or the name in quotes of the analysis file made using ATSA.

ipartials – number of partials that will be used in the resynthesis (the noise has a maximum of 25 bands)

ipartialoffset (optional) – is the first partial used (defaults to 0).

ipartialincr (optional) – sets an increment by which these synthesis opcodes counts up from ipartialoffset for ibins components in the re-synthesis (defaults to 1).

Performance

ktimepnt – The time pointer in seconds used to index the ATS file. Used for ATSbufread exactly the same as for pvoc.

kfmod – an input for performing pitch transposition or frequency modulation on all of the synthesized partials, if no fm or pitch change is desired then use a 1 for this value.

ATSbufread is based on pvbufread by Richard Karpen. ATScross, ATSinterpread and ATSpartialtap are all dependent on ATSbufread just as pvcross and pvinterp are on pvbufread. ATSbufread reads data from and ATS data file and stores it in an internal data table of frequency, amplitude pairs. The data stored by an ATSbufread can only be accessed by other unit generators, and therefore, due to the architecture of Csound, an ATSbufread must come before (but not necessarily directly) any dependent unit generator. Besides the fact that ATSbufread does not output any data directly, it works almost exactly as ATSadd. The ugen uses a time pointer (ktimepnt) to index the data in time, ipartials, ipartialoffset and ipartialincr to select which partials to store in the table and kfmod to scale partials in frequency.

Examples

Here is an example of the ATSbufread opcode. It uses the file ATSbufread-modern.csd.

Example of the ATSbufread opcode.
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
<CsoundSynthesizer>
<CsOptions>
; Select audio/midi flags here according to platform
-odac   --limiter=.95  ;;;RT audio out
;-iadc    ;;;uncomment -iadc for RT audio input is needed too
; For Non-realtime ouput leave only the line below:
; -o ATSbufread.wav -W ;;; for file output any platform
</CsOptions>
<CsInstruments>

sr = 44100
ksmps = 32
nchnls = 2
0dbfs  = 1

; by Menno Knevel - 2023

;ATSA wants a mono file!
;it takes a while to analyze these files...
ires1 = system_i(1, {{ atsa finneganswake1.flac finneganswake.ats }})
prints("\n***1st analyzed file is ready***\n\n")
ires2 = system_i(1, {{ atsa drumsMlp.wav drumsMlp.ats }})
prints("\n***2nd analyzed file is ready***\n\n")

instr 1
  res1:i = ATSinfo("finneganswake.ats", 3)  ; get number of partials
  res2:i = ATSinfo("drumsMlp.ats", 3)       ; get number of partials
  prints("\n***number of partials of finneganswake.ats = %d***\n\n", res1)
  prints("\n***number of partials of drumsMlp.ats = %d***\n\n", res2)

  time1:k = line(0, p3, 12.67)
  time2:k = line(0, p3, 2)
  Line:k = line(0, p3, 1)            ; cross from voice to the beats
  ATSbufread(time1, 1, "finneganswake.ats", res1)
  aout = ATScross(time2, 1, "drumsMlp.ats", 1, Line, 1, res2)
  outs(aout*2.5, aout*2.5)
endin

</CsInstruments>
<CsScore>
; sinoid wave.
f 1 0 16384 10 1 .3 .1 .5

i 1 0 12.7
e
</CsScore>
</CsoundSynthesizer>

Here is an example of the ATSbufread opcode. It uses the file ATSbufread.csd.

Example of the ATSbufread opcode.
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
<CsoundSynthesizer>
<CsOptions>
; Select audio/midi flags here according to platform
-odac   --limiter=.95  ;;;RT audio out
;-iadc    ;;;uncomment -iadc for RT audio input is needed too
; For Non-realtime ouput leave only the line below:
; -o ATSbufread.wav -W ;;; for file output any platform
</CsOptions>
<CsInstruments>

sr = 44100
ksmps = 32
nchnls = 2
0dbfs  = 1

; by Menno Knevel - 2023

;ATSA wants a mono file!
;it takes a while to analyze these files...
ires1 system_i 1,{{ atsa finneganswake1.flac finneganswake.ats }} 
prints "\n***1st analyzed file is ready***\n\n"
ires2 system_i 1,{{ atsa drumsMlp.wav drumsMlp.ats }} 
prints "\n***2nd analyzed file is ready***\n\n"

instr 1
ires1 ATSinfo "finneganswake.ats", 3                  ; get number of partials
ires2 ATSinfo "drumsMlp.ats", 3                  ; get number of partials
prints "\n***number of partials of finneganswake.ats = %d***\n\n", ires1
prints "\n***number of partials of drumsMlp.ats = %d***\n\n", ires2

ktime1  line    0, p3, 12.67
ktime2  line    0, p3, 2
kline   line    0, p3, 1                            ; cross from voice to the beats
        ATSbufread ktime1, 1, "finneganswake.ats", ires1
aout    ATScross   ktime2, 1, "drumsMlp.ats", 1, kline, 1, ires2
        outs aout*2.5, aout*2.5

endin

</CsInstruments>
<CsScore>
; sinoid wave.
f 1 0 16384 10 1 .3 .1 .5

i 1 0 12.7
e
</CsScore>
</CsoundSynthesizer>

See also the examples for ATScross, ATSinterpread and ATSpartialtap

See also

ATS Spectral Processing

Credits

Author: Alex Norman
Seattle,Washington
2004