-
Notifications
You must be signed in to change notification settings - Fork 0
/
Combine.lisp
executable file
·32 lines (23 loc) · 1.14 KB
/
Combine.lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
;;
;; Combine
;;
;; by Mikhail Malt (c) IRCAM 1996
(in-package :om)
(compile&load (om-relative-path '("sources") "ferneyhough"))
; ("sub-pack-name" subpacke-lists class-list function-list class-alias-list)
(om::fill-library '(("Basic" nil nil (ser-op rot90 serie-space) nil)
("Permut" nil nil (combinations messiaen prolifer saw rand-saw
circ-saw oscil-permutn rev-saw spiral kreus kreus-1
permut-dyn permut-dyn1 single-to-1 single-to-x
permut->to-1 permut->to-x) nil)
("Analyse" nil nil (l-analyse) nil)
("Conv" nil nil (mc->m m->mc octave-c3) nil)
("Tools" nil nil (geomt ratio-list ratio-freq g-subs gl-subs segment l-segment) nil)
))
(om::set-lib-release 1.2)
(om::add-lib-alias "OMCombine" "Combine")
(print "
;; Combine
;;
;; by Mikhail Malt (c) IRCAM 1996
")