;  
; Rytmo - Automatic rhythm generation (v1.0, 26 February 2000). 
;  
; Copyright (C) 2000 Andrew Cooke  (Jara Software) 
;  
; Comments to jara@andrewcooke.free-online.co.uk 
;  
; This program is free software; you can redistribute it and/or modify 
; it under the terms of the GNU General Public License as published by 
; the Free Software Foundation; either version 2 of the License, or (at 
; your option) any later version. 
;  
; This program is distributed in the hope that it will be useful, but 
; WITHOUT ANY WARRANTY; without even the implied warranty of 
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU 
; General Public License for more details. 
;  
; You should have received a copy of the GNU General Public License 
; along with this program; if not, write to the Free Software 
; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 
; USA 
;  
; These conditions also apply to any other files distributed with this 
; program. 
;  
;  

(load "../utils/utils.lsp")
(make-system :name :utils :action :load)
(load "../rytmo/rytmo.lsp")
(make-system :name :rytmo :action :load)

(in-package "RYTMO")

; need to set this value to the index of the required circuit
(setf index 244)

(print-beats (setf beats (get-sorted "circuits-filters" index 100)))

(csound-sco "filters.sco" beats '(1 4 2 7) :map '((0 3) (1) (4 2) (5)) 
            :delta 0.08)

; now use either
; csound -odevaudio basic.orc simple.sco
; or
; csound -W -osimple.wav basic.orc simple.sco
; play simple.wav