-odac -b1024 -B2048 ; realtime audio out
;-oMyFile.wav ; output to audio file
sr = 44100
ksmps = 10
nchnls = 2
0dbfs = 1234
;***************************************************
;ftables
;***************************************************
giSine ftgen 0, 0, 65536, 10, 1 ; sine
giDkk ftgen 0, 0, 4096, 8, \
0, 32, 102, \
32, 234, \
32, 366, \
32, 502, \
32, 620, \
32, 708, \
32, 748, \
32, 664, \
32, 540, \
32, 358, \
32, 200, \
32, 54, \
32, 0, \
32, -6, \
32, 0, \
32, 100, \
32, 206, \
32, 302, \
32, 382, \
32, 442, \
32, 480, \
32, 446, \
32, 392, \
32, 320, \
32, 238, \
32, 156, \
32, 86, \
32, 40, \
32, 64, \
32, 84, \
32, 62, \
32, 38, \
32, 10, \
32, -24, \
32, -60, \
32, -116, \
32, -158, \
32, -198, \
32, -238, \
32, -300, \
32, -350, \
32, -382, \
32, -412, \
32, -440, \
32, -420, \
32, -364, \
32, -306, \
32, -226, \
32, -140, \
32, -190, \
32, -232, \
32, -268, \
32, -220, \
32, -334, \
32, -360, \
32, -380, \
32, -460, \
32, -398, \
32, -366, \
32, -334, \
32, -280, \
32, -232, \
32, -162, \
32, -72, \
32, 34, \
32, 160, \
32, 140, \
32, 160, \
32, 180, \
32, 150, \
32, 110, \
32, 90, \
32, 40, \
32, 0, \
32, -20, \
32, -10, \
32, 10, \
32, 20, \
32, 0, \
32, -50, \
32, -94, \
32, -146, \
32, -184, \
32, -240, \
32, -268, \
32, -330, \
32, -370, \
32, -386, \
32, -400, \
32, -382, \
32, -340, \
32, -284, \
32, -250, \
32, -240, \
32, -230, \
32, -220, \
32, -230, \
32, -240, \
32, -250, \
32, -260, \
32, -250, \
32, -240, \
32, -264, \
32, -300, \
32, -340, \
32, -370, \
32, -380, \
32, -364, \
32, -290, \
32, -210, \
32, -150, \
32, -120, \
32, -100, \
32, -64, \
32, -50, \
32, -20, \
32, 20, \
32, 130, \
32, 380, \
32, 574, \
32, 850, \
32, 920, \
32, 850, \
32, 574, \
32, 380, \
32, 130, \
32, 20, \
32, 0, \
32, 0, \
32, 0, \
32, 0
;***************************************************
; sine wave instrument
;***************************************************
instr 1
iamp = ampdbfs(p4)
icps = 440*semitone(p5-69)
; audio generator
a1 oscil iamp, icps, giSine
; audio out
outs a1, a1
endin
;***************************************************
;a-c-d-e-g-a'-c-d-'g-a-c-d
;{} statement
; start dur amp note
i1 0 1 -5 69
i1 + . . 71
i1 + . . 72
i1 + . . 74
i1 + . . 76
e