-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathOMLindberg.lisp
executable file
·104 lines (82 loc) · 4.2 KB
/
OMLindberg.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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; OMLindberg Library for OpenMusic
;;; version 1.0 - april 2023
;;; BY PAULO HENRIQUE RAPOSO - 2023
(in-package :om)
;--------------------------------------------------
;Variable definiton with files to load
;--------------------------------------------------
(defvar *omlindberg-files* nil)
(setf *omlindberg-files* (list
(make-pathname :directory (append (pathname-directory *load-pathname*) (list "sources")) :name "package" :type "lisp")
(make-pathname :directory (append (pathname-directory *load-pathname*) (list "sources")) :name "utils" :type "lisp")
(make-pathname :directory (append (pathname-directory *load-pathname*) (list "sources")) :name "interpolation" :type "lisp")
(make-pathname :directory (append (pathname-directory *load-pathname*) (list "sources")) :name "set-theory" :type "lisp")
(make-pathname :directory (append (pathname-directory *load-pathname*) (list "sources")) :name "reconstruction" :type "lisp")
(make-pathname :directory (append (pathname-directory *load-pathname*) (list "sources")) :name "symmetrical" :type "lisp")
(make-pathname :directory (append (pathname-directory *load-pathname*) (list "sources")) :name "chord-progressions" :type "lisp")
(make-pathname :directory (append (pathname-directory *load-pathname*) (list "sources")) :name "virtual-fundamental-screamer" :type "lisp")
(make-pathname :directory (append (pathname-directory *load-pathname*) (list "sources")) :name "harmonic-series" :type "lisp")
))
;--------------------------------------------------
;Loading files
;--------------------------------------------------
(mapc #'compile&load *omlindberg-files*)
;--------------------------------------------------
;Fill library
;--------------------------------------------------
(fill-library '(
("INTERPOLATION" Nil Nil (omlindberg::ML-interpolation
) Nil)
("SET-THEORY" Nil Nil (omlindberg::normal-order
omlindberg::prime
omlindberg::prime1
omlindberg::pc
omlindberg::pc?
) Nil)
("RECONSTRUCTION-OF-A-CHORD" Nil Nil (omlindberg::par
omlindberg::flatten
omlindberg::approx-oct
omlindberg::dist-classes
omlindberg::get-new
omlindberg::chain-get-new
omlindberg::get-new-twelve-tone
) Nil)
("SYMMETRICAL-CHORDS" Nil Nil (omlindberg::symmetrical-chord
omlindberg::new-sttch
omlindberg::new-sttch-alt
omlindberg::random-sttch
omlindberg::all-sttchords
omlindberg::all-sttchords-alt
omlindberg::search-sttch
omlindberg::search-sttch-alt
omlindberg::ml-hexachords
) Nil)
("HARMONIC-REGION" Nil Nil (omlindberg::wide-scale
omlindberg::synthetic-scale
) Nil)
("CHORD-PROGRESSIONS" Nil Nil (omlindberg::superimpose
omlindberg::freeze
omlindberg::auto-transp
) Nil)
("HARMONIC-SERIES" Nil Nil (omlindberg::harmonic-series
screamer::ML-virtual-fundamental
omlindberg::harmonic-ttch
omlindberg::WTVF
) Nil)
("UTILS" Nil Nil (omlindberg::chord-seq->bpf-lib
omlindberg::pc->mc
omlindberg::mc->pc
omlindberg::mod12
omlindberg::chord->intervals
omlindberg::intervals->chord
omlindberg::pc->chord
omlindberg::first-last-6
) Nil)
))
(print
"
OMLindberg Library for OpenMusic
by Paulo Henrique Raposo - 2023
")