-
Notifications
You must be signed in to change notification settings - Fork 0
/
RQ.lisp
96 lines (79 loc) · 2.87 KB
/
RQ.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
(in-package :om)
(defpackage "RQ"
(:use "COMMON-LISP" "CL-USER" "OM-API" "LISPWORKS" "OM-LISP" "OPENMUSIC")
(:import-from "CL-USER")
)
;----------------------
; Loading files
;----------------------
(mapc
#'(lambda (file) (om::compile&load (om-relative-path (car file) (cadr file))))
'((("src" "algorithm" "structure") "complexity")
(("src" "algorithm" "structure") "distance")
(("src" "algorithm" "structure") "heap")
(("src" "algorithm" "structure") "input")
(("src" "algorithm" "structure") "path")
(("src" "algorithm" "structure") "weight")
(("src" "algorithm" "structure") "k-list")
(("src" "algorithm" "structure") "k-best")
(("src" "algorithm") "subdivision")
(("src" "algorithm") "ratio")
(("src" "algorithm") "rq")
(("src" "algorithm") "interface")
(("src" "algorithm") "k-best-segment-quantification")
(("src" "algorithm") "k-best-segment-quantification-automaton-with-tempo")
(("src" "algorithm") "k-best-segment-quantification-automaton")
(("src" "algorithm") "k-best-segment-quantification-automatons")
(("src" "algorithm") "tatum-seg-algorithm")
(("src" "algorithm") "tempo-smoothing")
(("src" "gui" "panel") "multi-poly-panel")
(("src" "gui" "panel") "quant-voice-panel")
(("src" "gui" "panel") "quant-chord-seq-panel")
(("src" "gui" "panel") "tree-view")
(("src" "gui") "quant-multi-poly")
(("src" "gui" "editor") "quant-voice-editor")
(("src" "gui" "editor") "multi-poly-editor")
(("src" "gui" "editor") "quant-chord-seq-editor")
(("src" "gui") "choice-table")
(("src" "gui") "quant-voice")
(("src" "gui") "quant-chord-seq")
(("src" "gui" "analysis") "k-best-data")
(("src" "gui" "analysis") "k-best-analysis")
(("src" ) "rq-class")
(("src" "gui" "window") "k-best-data-window")
(("src" "gui" "box") "quant-box")
(("src" "gui" "editor") "quant-editor")))
;--------------------------------------------------
; Setting the menu and sub-menu structure, and filling packages
; The sub-list syntax:
; ("sub-pack-name" subpackage-lists class-list function-list class-alias-list)
;--------------------------------------------------
(om::fill-library
'(("RQ" nil (rq::rq) (rq::get-rq-voice rq::get-k-best-list) nil)
)
(find-library "RQ"))
(unless (fboundp 'om::set-lib-release) (defmethod om::set-lib-release (version &optional lib) nil))
(set-lib-release 1.3)
(print "
;;;===================================================
;;;
;;; RQ - Rhythm Quantification for OM
;;;
;;;===================================================
")
;----------------------
; Export functions
;----------------------
(in-package :rq)
(export '(
rq
get-rq-voice
get-k-best-list
))
;To make these symbols usable in the OM package
(import '(
rq
get-rq-voice
get-k-best-list
)
:om)