;  
; 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")

(setf *random-state* (make-random-state t)) ; scramble

(evolve-1 (make-gen-pars :defn-name #'leaf-merge:name-defn
                         :defn-classes '((synch 2) (combine 2))
                         :base-classes '((synch 2) (combine 2))
                         :base-n-defns 4
                         :ran-n-defns 1
                         :base-defn-n-conxns 4
                         :ran-defn-n-conxns 1
                         :base-n-conxns 6
                         :ran-n-conxns 1
                         :base-n-args 2
                         :ran-n-args 1
                         :base-n-output 6
                         :ran-n-output 1)
          100 100 10000 "circuits-filters")