1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
;; Brief example indicating a minimal use of the Csound API from CLisp.
;; This file must be run from the interfaces directory,
;; e.g. "cd interfaces; clisp test.lisp"
;; You may need to edit directories specified below.
(print "Run from Csound root directory.")
(load "d:/utah/opt/cm/src/cm.lisp")
(use-system :cffi)
(load "interfaces/csound.lisp")
(load "interfaces/filebuilding.lisp")
(cffi:load-foreign-library "csnd.dll")
(setq cs (csound::csoundCreate nil))
(cffi:with-foreign-string (csd "examples/trapped.csd")
(filebuilding::csoundCompileCsd cs csd))
(setq *keep-playing* t result 0)
(loop while (and *keep-playing* (eq result 0)) do
(setq result (csound::csoundPerformKsmps cs)))
|
