41 lines
867 B
Scheme
41 lines
867 B
Scheme
|
; (disk-out bufnum channels)
|
||
|
|
|
||
|
|
(let ((bus-size 1024)
|
||
|
|
(bufferexpt 15))
|
||
|
|
(= 0 (fxand (expt 2 bufferexpt)
|
||
|
|
(- (fxarithmetic-shift bus-size 1) 1))))
|
||
|
|
|
||
|
|
(let ((g (letc ((bufnum 0))
|
||
|
|
(let ((z (clip2
|
||
|
|
(rlpf
|
||
|
|
(lf-pulse
|
||
|
|
(mul-add (sin-osc 0.2 0) 10 21)
|
||
|
|
(mce2 0 0.1)
|
||
|
|
0.1)
|
||
|
|
100
|
||
|
|
0.1)
|
||
|
|
0.4)))
|
||
|
|
(mrg2 (disk-out bufnum z)
|
||
|
|
(out 0 z))))))
|
||
|
|
(with-sc3
|
||
|
|
(lambda (fd)
|
||
|
|
(send-synth fd "disk-out-help" g)
|
||
|
|
(async fd (b-alloc 10 32768 2))
|
||
|
|
(async fd (b-write 10
|
||
|
|
"/tmp/test.aiff"
|
||
|
|
"aiff"
|
||
|
|
"float"
|
||
|
|
32768
|
||
|
|
0
|
||
|
|
1))
|
||
|
|
(send fd (s-new1 "disk-out-help" 1001 1 1 "bufnum" 10)))))
|
||
|
|
|
||
|
|
(with-sc3
|
||
|
|
(lambda (fd)
|
||
|
|
(send fd (n-free1 1001))
|
||
|
|
(async fd (b-close 10))
|
||
|
|
(async fd (b-free 10))))
|
||
|
|
|
||
|
|
(system "sndfile-info /tmp/test.aiff")
|
||
|
|
(system "jack-play /tmp/test.aiff")
|