Extend the README.
[software/sndxfer.git] / test.scm
1 (use-modules (sndxfer send))
2
3 (define signal
4 (make-signal (list #xff #x00)))
5
6 (define (main . args)
7 (let ((first-arg (cadar args)))
8 (cond
9 ((equal? first-arg "forever")
10 (generate-output signal))
11 ((equal? first-arg "print")
12 (format #t "~a\n" signal))
13 (else
14 (display "Arguments:
15 forever --- generate a test signal stream
16 print --- show the interleaved values sent to the audio interface.\n\n")))))