12c12
< ;;; Last-Mod:     08-May-02 by hkt
---
> ;;; Last-Mod:     11-Nov-02 at 23:16:12 by Tobias Kunze Briseņo
58c58
<          :on (new range :initially step :by 1))))
---
>          :by (new range :initially step :by 1))))
63c63
<     (list 3 5 3 5 5 3 7			; cycle 1
---
>     `(3 5 3 5 5 3 7			; cycle 1
93c93
<           (new cycle
---
>           ,(new cycle
97c97
<               (list 3 5 3 5 5 3 8       ; cycle 11-14
---
>               '(3 5 3 5 5 3 8       ; cycle 11-14
132,133c132,133
<   (new cycle
<        3 5 3 5 5 3 8			; cycle 1
---
>   (new cycle :of
>        '(3 5 3 5 5 3 8			; cycle 1
165c165
<        ))
---
>        )))
167c167
< (defprocess fg-mono (mode keynums rhythms)
---
> (defun fg-mono (mode keynums rhythms)
204c204
< |#
---
> ;;;|#
209c209
< (defprocess desordre-w/octaves (mode ntes rhys)
---
> (defun desordre-w/octaves (mode ntes rhys)
236c236
<                               from (new pval mode-degree)
---
>                               from (new pval :of mode-degree)
241c241
<                               for (new pval fg-eighths))
---
>                               for (new pval :of fg-eighths))
267c267
< (defprocess desordre-voices (mode ntes rhys chord voimap)
---
> (defun desordre-voices (mode ntes rhys chord voimap)
269c269
<         fg-time fg-8ths mode-degree)
---
>         fg-time fg-8ths (mode-degree 0))
276,277c276,277
<                                         for (new pval voi))
<                                 on (new pval mode-degree))
---
>                                         for (new pval :of voi))
>                                 by (new pval :of mode-degree))
311,312c311,312
<                                 from (new pval (- mode-degree 
<                                                   mode-octave))
---
>                                 from (new pval :of (- mode-degree 
> 						      mode-octave))
318c318
<                                 for (new pval fg-8ths))
---
>                                 for (new pval :of fg-8ths))
341c341
<         "midi.port")
---
>         "/tmp/foo.midi")