import

.gitignore

@@ -0,0 +1,14 @@
+*.lisp~
+*.*~
+*.xfasl
+*.64xfasl
+*.ofasl
+*.*ufasl
+#*#
+
+.DS_Store
+
+# don't track auto-generated html's:
+/**/reference/*.*
+*.lisp#
+*.zip

RQ.lisp

@@ -0,0 +1,94 @@
+(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-voice rq::get-k-best-list) nil)
+   )
+ (find-library "RQ"))
+
+(set-lib-release 1.0) 
+
+
+(print "
+;;;===================================================
+;;;
+;;; RQ - Rhythm Quantification for OM
+;;;
+;;;===================================================
+")
+
+
+;----------------------
+; Export functions
+;----------------------
+
+(in-package :rq)
+
+(export '(
+          rq
+          get-voice
+          get-k-best-list
+          ))
+
+;To make these symbols usable in the OM package
+(import '(
+          rq
+          get-voice
+          get-k-best-list
+          )
+        :om)

TODO.txt

@@ -0,0 +1,26 @@
+
+;;;;; TODO LIST ;;;;;
+
+=============
+Short Term :
+=============
+
+- COMMENT AND CLEAN THE CODE ! make sure every function has a description
+
+=============
+Long Term :
+=============
+
+
+Implementation :
+
+- Use threads in order to run the algorithm in background, and not block the interface during the computations
+- "Expert" interface in order to be able to specify each complexity coefficient (maybe not, cf Florent's work)
+- Limit recursions in order to be able to process longer units without "stack overflow"
+- Use gn-chords to display gracenotes correctly, and treat them differently than a regular chord with offset (in particular, adapt get-cons-list function so that we differenciate grace notes and chords. Current implementation has to do that in order to get the same results when a grace note is selected in "chord" mode or in "group" mode)
+
+
+Research :
+
+- Adapt the algorithm to polyphony
+- Tempo curves