; 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 lorenz.wav -W ;;; for file output any platform
; Initialize the global variables.
sr = 44100
kr = 44100
ksmps = 1
nchnls = 2
; Instrument #1 - a lorenz system in 3D space.
instr 1
; Create a basic tone.
kamp init 25000
kcps init 1000
ifn = 1
asnd oscil kamp, kcps, ifn
; Figure out its X, Y, Z coordinates.
ksv init 10
krv init 28
kbv init 2.667
kh init 0.0003
ix = 0.6
iy = 0.6
iz = 0.6
iskip = 1
ax1, ay1, az1 lorenz ksv, krv, kbv, kh, ix, iy, iz, iskip
; Place the basic tone within 3D space.
kx downsamp ax1
ky downsamp ay1
kz downsamp az1
idist = 1
ift = 0
imode = 1
imdel = 1.018853416
iovr = 2
aw2, ax2, ay2, az2 spat3d asnd, kx, ky, kz, idist, \
ift, imode, imdel, iovr
; Convert the 3D sound to stereo.
aleft = aw2 + ay2
aright = aw2 - ay2
outs aleft, aright
endin
; Table #1 a sine wave.
f 1 0 16384 10 1
; Play Instrument #1 for 5 seconds.
i 1 0 5
e