; Select audio/midi flags here according to platform
; Audio out Audio in
-odac -iadc ;;;RT audio I/O
; For Non-realtime ouput leave only the line below:
; -o ifthen.wav -W ;;; for file output any platform
sr = 44100
kr = 4410
ksmps = 10
nchnls = 1
; Instrument #1.
instr 1
; Get the note value from the fourth p-field.
knote = p4
; Does the user want a low note?
if (knote == 0) then
kcps = 220
; Does the user want a middle note?
elseif (knote == 1) then
kcps = 440
; Does the user want a high note?
elseif (knote == 2) then
kcps = 880
endif
; Create the note.
kamp init 25000
ifn = 1
a1 oscili kamp, kcps, ifn
out a1
endin
; Table #1, a sine wave.
f 1 0 16384 10 1
; p4: 0=low note, 1=middle note, 2=high note.
; Play Instrument #1 for one second, low note.
i 1 0 1 0
; Play Instrument #1 for one second, middle note.
i 1 1 1 1
; Play Instrument #1 for one second, high note.
i 1 2 1 2
e