|
|
@@ -0,0 +1,58 @@ |
|
|
|
<CsoundSynthesizer> |
|
|
|
<CsOptions> |
|
|
|
-o dac |
|
|
|
</CsOptions> |
|
|
|
<CsInstruments> |
|
|
|
sr = 48000 |
|
|
|
ksmps = 32 |
|
|
|
nchnls = 2 |
|
|
|
0dbfs = 1 |
|
|
|
|
|
|
|
; localhost means communication on the same machine, otherwise you need |
|
|
|
; an IP adress |
|
|
|
#define IPADDRESS # "localhost" # |
|
|
|
#define S_PORT # 47120 # |
|
|
|
#define R_PORT # 47120 # |
|
|
|
|
|
|
|
turnon 1000 ; starts instrument 1000 immediately |
|
|
|
turnon 1001 ; starts instrument 1001 immediately |
|
|
|
|
|
|
|
|
|
|
|
instr 1000 ; this instrument sends OSC-values |
|
|
|
kValue1 randomh 0, 0.8, 4 |
|
|
|
kNum randomh 0, 8, 8 |
|
|
|
kMidiKey tab (int(kNum)), 2 |
|
|
|
kOctave randomh 0, 7, 4 |
|
|
|
kValue2 = cpsmidinn (kMidiKey*kOctave+33) |
|
|
|
kValue3 randomh 0.4, 1, 4 |
|
|
|
;Stext sprintf "%i", $S_PORT |
|
|
|
OSCsend kValue1+kValue2, $IPADDRESS, $S_PORT, "/QuteCsound", |
|
|
|
"fff", kValue1, kValue2, kValue3 |
|
|
|
endin |
|
|
|
|
|
|
|
|
|
|
|
instr 1001 ; this instrument receives OSC-values |
|
|
|
kValue1Received init 0.0 |
|
|
|
kValue2Received init 0.0 |
|
|
|
kValue3Received init 0.0 |
|
|
|
;Stext sprintf "%i", $R_PORT |
|
|
|
ihandle OSCinit $R_PORT |
|
|
|
kAction OSClisten ihandle, "/QuteCsound", "fff", |
|
|
|
kValue1Received, kValue2Received, kValue3Received |
|
|
|
if (kAction == 1) then |
|
|
|
;printk2 kValue2Received |
|
|
|
;printk2 kValue1Received |
|
|
|
|
|
|
|
endif |
|
|
|
aSine poscil3 kValue1Received, kValue2Received, 1 |
|
|
|
outs aSine, aSine |
|
|
|
endin |
|
|
|
|
|
|
|
</CsInstruments> |
|
|
|
<CsScore> |
|
|
|
f 1 0 1024 10 1 |
|
|
|
f 2 0 8 -2 0 2 4 7 9 11 0 2 |
|
|
|
e 3600 |
|
|
|
</CsScore> |
|
|
|
</CsoundSynthesizer> |
|
|
|
; example by Alex Hofmann (Mar. 2011) |