; Select audio/midi flags here according to platform
-odac4 ;;;realtime audio out
;-iadc ;;;uncomment -iadc if realtime audio input is needed too
; For Non-realtime ouput leave only the line below:
; -o locsig_quad.wav -W ;;; for file output any platform
sr = 44100
ksmps = 32
nchnls = 4
0dbfs = 1
ga1 init 0
ga2 init 0
ga3 init 0
ga4 init 0
instr 1
ifrq = 1
chnset 1, "Dist"
kDeg chnget "Degree"
kDist chnget "Dist"
kRev chnget "Rev"
;krevsend = p4
;aout diskin2 "beats.wav", 1, 0, 1
;idegree init 180
ktime metro ifrq
if ktime = 1 then
reinit reset
reset:
;idegree = idegree + 90
;if idegree >= 360 then
;idegree = 0
;endif
endif
aout linseg .8,1/sr,0,1/ifrq-1/sr,0
;kdegree line 0, p3, 360 ;full circle
kdistance line 1, p3 , 1
a1, a2, a3, a4 locsig aout, kDeg, kDist, kRev
ar1, ar2, ar3, ar4 locsend
ga1 = ga1+ar1
ga2 = ga2+ar2
ga3 = ga3+ar3
ga4 = ga4+ar4
outq a1, a2, a3, a4
endin
instr 99 ; reverb instrument
gkbt chnget "buttonch"
kOnTrig trigger gkbt,0.5,0
kOffTrig trigger gkbt,0.5,1
if kOnTrig==1 then ;IF BUTTON IS TURNED ON...
event "i",1,0,3600 ;, gkRev
elseif kOffTrig==1 then ;IF BUTTON IS TURNED ON...
turnoff2,1,0,0
endif
a1 reverb2 ga1, 3.5, .5
a2 reverb2 ga2, 3.5, .5
a3 reverb2 ga3, 3.5, .5
a4 reverb2 ga4, 3.5, .5
outq a1, a2, a3, a4
ga1 = 0
ga2 = 0
ga3 = 0
ga4 = 0
endin
; sine wave.
f 1 0 16384 10 1
;i 1 0 8 0 ;with reverb
;i 1 10 8 0 ;no reverb
i99 0 7200
100
100
320
240
true
255
255
255
buttonch
32
39
20
20
{d29394d7-7d89-4d7d-a635-a72d00d0ca6b}
true
0
-3
true
1
false
22
68
62
27
{b9271162-1bb1-46a2-b5b9-e50dbb9b9da6}
true
0
-3
left
Arial
10
3
0
0
0
255
255
255
noborder
1
1
Degree
148
38
20
100
{3d892e17-f714-41b8-9be4-7472e138f8c7}
true
0
0
0.00000000
270.00000000
0.00000000
lin
continuous
-1.00000000
false
Dist
210
40
20
100
{04dbebb5-997a-4122-9abb-77f06b3ef83c}
true
0
0
1.00000000
50.00000000
0.00000000
lin
continuous
-1.00000000
false
Rev
274
40
20
100
{d06b4a8c-98ca-42e8-a452-17e2b1ec002c}
true
0
0
0.00000000
1.00000000
0.00000000
lin
continuous
-1.00000000
false
135
157
55
24
{11c2fd68-20a9-46e1-bb4e-8a49579ade19}
true
0
-3
left
Arial
10
3
0
0
0
255
255
255
noborder
1
1
197
156
55
24
{2140e88c-b8bc-4c17-aa5b-c11b5b837cd7}
true
0
-3
left
Arial
10
3
0
0
0
255
255
255
noborder
1
1
262
154
55
24
{133d9970-9655-4f36-93a0-c84c7aca5f4f}
true
0
-3
left
Arial
10
3
0
0
0
255
255
255
noborder
1
1