;======================================
|
;OM-Lead, 2022-2023
|
;
|
;Library for Rule-based Voice-Leading
|
;Author: Lorenz Lehmann
|
;Supervision: Marlon Schumacher
|
;======================================
|
|
|
(defpackage :omlead)
|
(in-package :omlead)
|
|
;--------------------------------------------------
|
;Variable definiton with files to load
|
;--------------------------------------------------
|
|
|
(defvar *initfile* *load-pathname*)
|
|
(defun lib-src-file (name)
|
(make-pathname :directory (append (pathname-directory *initfile*) (list "sources"))
|
:name name))
|
|
(defvar *OMLead-files* nil)
|
(setf *OMLead-files* '("gen-harmonies"
|
"gen-sequence"
|
"get-score"
|
"harmon-rhythm"
|
))
|
|
;--------------------------------------------------
|
;Loading files
|
;--------------------------------------------------
|
|
(mapc #'(lambda (filename)
|
(om::compile&load (namestring (lib-src-file filename))))
|
*OMLead-files*)
|
|
;--------------------------------------------------
|
; OM subpackages initialization
|
; ("sub-pack-name" subpacke-lists class-list function-list class-alias-list)
|
;--------------------------------------------------
|
(defvar *svppackages-list* nil)
|
(setf *subpackages-list*
|
'((Nil Nil Nil (omlead::gen-harmonies omlead::gen-sequence omlead::get-score omlead::harmon-rhythm) Nil)))
|
|
;--------------------------------------------------
|
;filling packages
|
;--------------------------------------------------
|
(om::fill-library *subpackages-list*)
|
