; 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 abs.wav -W ;;; for file output any platform
; test instrument for pdhalfy opcode
instr 5
idur = p3
iamp = p4
ifreq = p5
iamtinit = p6 ; initial amount of phase distortion
iatt = p7 ; attack time
isuslvl = p8 ; sustain amplitude
idistdec = p9 ; time for distortion amount to reach zero
itable = p10
idec = idistdec - iatt
irel = .05
isus = idur - (idistdec + irel)
aenv linseg 0, iatt, 1.0, idec, isuslvl, isus, isuslvl, irel, 0, 0, 0
kamount linseg -iamtinit, idistdec, 0.0, idur-idistdec, 0.0
aosc phasor ifreq
apd pdhalfy aosc, kamount
aout tablei apd, itable, 1
out aenv*aout*iamp
endin
f1 0 16385 10 1 ; sine
f3 0 16385 9 1 1 270 ; inverted cosine
; descending "just blues" scale
; pdhalfy with cosine table
t 0 100
i5 0 .333 10000 512 1.0 .02 0.5 .12 3
i. + . . 448 <
i. + . . 384 <
i. + . . 358.4 <
i. + . . 341.33 <
i. + . . 298.67 <
i. + 2 . 256 0.5
s
; pdhalfy with sine table
t 0 100
i5 0 .333 10000 512 1.0 .001 0.1 .07 1
i. + . . 448 <
i. + . . 384 <
i. + . . 358.4 <
i. + . . 341.33 <
i. + . . 298.67 <
i. + 2 . 256 0.5
e