mirror of
https://github.com/cookiengineer/audacity
synced 2025-06-19 01:20:04 +02:00
ff60f598f3
(setf idur 5000) (setf impulse (extract-abs 0 (/ idur *sound-srate*) (cue *track*))) (mult 0.01 (convolve *track* impulse))
21 lines
706 B
C
21 lines
706 B
C
/* samples.h -- convert sound (prefix) to lisp array */
|
|
|
|
/* these are used by snd_fromobject and snd_fromarraystream: */
|
|
extern LVAL s_next;
|
|
extern LVAL s_send;
|
|
|
|
void samples_symbols(void);
|
|
|
|
sound_type snd_from_array(double t0, double sr, LVAL array);
|
|
/* LISP: (SND-FROM-ARRAY ANYNUM ANYNUM ANY) */
|
|
|
|
LVAL snd_samples(sound_type s, int64_t len); /* LISP: (SND-SAMPLES SOUND FIXNUM) */
|
|
int64_t snd_length(sound_type s, int64_t len); /* LISP: (SND-LENGTH SOUND FIXNUM) */
|
|
|
|
double snd_maxsamp(sound_type s); /* LISP: (SND-MAXSAMP SOUND) */
|
|
|
|
LVAL snd_fetch(sound_type s); /* LISP: (SND-FETCH SOUND) */
|
|
|
|
LVAL snd_fetch_array(sound_type s, long len, long step);
|
|
/* LISP: (SND-FETCH-ARRAY SOUND LONG LONG) */
|