24 lines
548 B
Plaintext
24 lines
548 B
Plaintext
|
//ugens
|
||
|
SndBuf buf;
|
||
|
LiSa lisa => dac;
|
||
|
|
||
|
//change this path to your own sample
|
||
|
"/Users/dan/Files/Chuck/LiSa_examples/TomVega.wav" => buf.read;
|
||
|
|
||
|
//set lisa buffer size to sample size
|
||
|
buf.samples()::samp => lisa.duration;
|
||
|
|
||
|
//transfer values from SndBuf to LiSa
|
||
|
//works properly for mono; need to skip samples for multichannel
|
||
|
for ( 0 => int i; i < buf.samples(); i++ ) {
|
||
|
|
||
|
(buf.valueAt(i), i::samp) => lisa.valueAt;
|
||
|
|
||
|
}
|
||
|
|
||
|
//party on...
|
||
|
1 => lisa.play;
|
||
|
2. => lisa.rate;
|
||
|
|
||
|
//hang on until it's done...
|
||
|
lisa.duration() * 0.5 => now;
|