Untitled
unknown
plain_text
5 months ago
237 B
3
Indexable
Never
(setf cf 17500) ;modulation carrier frequency (defun bandpass8 (sig lo hi) (lowpass8 (highpass8 sig lo) hi)) (setf *track* (bandpass8 *track* 100 3000)) (setf *track* (mult *track* (hzosc cf))) (bandpass8 *track* 19000 19000)