[foo-cvs] foo/elkfoo/examples/scripts Makefile.am,NONE,1.1 sine.foo,NONE,1.1 sndcat.foo,NONE,1.1

[Martin R. <ru...@us...>]

Update of /cvsroot/foo/foo/elkfoo/examples/scripts
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28193/examples/scripts

Added Files:
	Makefile.am sine.foo sndcat.foo 
Log Message:
added examples from fhg repository

--- NEW FILE: sine.foo ---
#!/usr/local/bin/foo

;; foo scripting example
;; (c) 2004 rumori

(if (< (length (command-line-args)) 3)
    (begin
      (format #t "usage: ~a <duration> <frequency>\n"
	      (car (command-line-args)))
      (quit)))

(define duration (string->number (list-ref (command-line-args) 1)))
(define freq (string->number (list-ref (command-line-args) 2)))

(syn 1 duration (output~ 1 (sine~ (~ freq))))
(play)

--- NEW FILE: sndcat.foo ---
#!/usr/local/bin/foo

;; sndcat: concatenate soundfiles
;; (c) 2004 rumori

(if (< (length (command-line-args)) 3)
    (begin
      (format #t "usage: ~a <dest-file> <src-file> [<src-file> ...]\n" (car (command-line-args)))
      (quit)))

(define dest-file (list-ref (command-line-args) 1))
(define source-files (cddr (command-line-args)))

(define src-snds '())
(define (dest-dur source-file)
  (if (null? source-file)
      0
      (+ (soundfile-length (car source-file))
	 (dest-dur (cdr source-file)))))

(define dest-channels (soundfile-channels (car source-files)))

(define (cat-snd-channel snd channel offset)
  (output~ channel (time offset (read-snd~ (snd-extract snd channel))))
  (if (> channel 1)
      (cat-snd-channel snd (1- channel) offset)))

(define (cat-snd-file file offset)
  (cat-snd-channel (open-snd (car file)) dest-channels offset)
  (if (not (null? (cdr file)))
      (cat-snd-file (cdr file) (+ offset (soundfile-length (car file))))))

(define (sndcat)
  (cat-snd-file source-files 0))

(define cat-context
  (context dest-channels (sndcat)))

(create-soundfile dest-file 'short dest-channels (foo-default-srate) 'aiff)

(define cat-task (make-task 0 0 dest-file cat-context))

(run-task cat-task (dest-dur source-files))

--- NEW FILE: Makefile.am ---
# foo/elkfoo/examples/scripts/Makefile.am
# 2004 rumori

# $Id: Makefile.am,v 1.1 2004/08/12 23:15:38 rumori Exp $

NULL = 

noinst_DATA = \
	sine.foo \
	sndcat.foo \
	$(NULL)