OM-Geste.lisp

;*********************************************************************
;                             OM-Geste                               *
;     (c) 2011-2015 Marlon Schumacher (CIRMMT/McGill University)     *
;               https://github.com/marleynoe/OM-Geste                *
;                                                                    *
;      Representation and Processing of Gesture Data in OpenMusic    *
;*********************************************************************
;
;This program is free software; you can redistribute it and/or
;modify it under the terms of the GNU General Public License
;as published by the Free Software Foundation; either version 2
;of the License, or (at your option) any later version.
;
;See file LICENSE for further informations on licensing terms.
;
;This program is distributed in the hope that it will be useful,
;but WITHOUT ANY WARRANTY; without even the implied warranty of
;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;GNU General Public License for more details.
;
;You should have received a copy of the GNU General Public License
;along with this program; if not, write to the Free Software
;Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307,10 USA.
;
;Authors: M. Schumacher

(in-package :om)

; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


(defparameter *om-geste-lib-path* (make-pathname :directory (pathname-directory *load-pathname*)))
(defparameter *om-geste-version* "0.5.0")
;(clean-sources *om-geste-lib-path*)
                      
(defun recursive-load-classes (dir &optional pack)
  (loop for item in (om-directory dir) do
        (if (directoryp item) 
            (let ((thepackage 
                   (or (find (car (last (pathname-directory item)))
                             (subpackages pack) :key 'name :test 'string-equal)
                       pack)))
               (recursive-load-classes item thepackage))    
        (when (string-equal (pathname-type item) "lisp")
          (load item)
          (addclass2pack (intern (string-upcase (pathname-name item))) pack)))))
   
(recursive-load-classes (om-relative-path '("sources" "classes") nil) *current-lib*)

(mapcar #'(lambda (file) (compile&load (om-relative-path '("sources") file )))
        '(
          "segmentation"
          "editors"
          "array-tools"
          "filters"
          "statistics"
          "mapping"
          "utilities"
          ))


; MENUs
;(sub-pack-name subpack-lists class-list function-list class-alias-list)

(om::fill-library '(
                    ("Filters" nil nil (slide-filter sma wma ema smm) nil)
                    ("Statistics" nil nil (rms magnitude variance stdev arith-mean covariance correlation centroid) nil)
                    ("Utilities" nil nil (integrate differentiate find-peaks) nil)
                    ("Mapping" nil nil (map-gesture get-stream) nil)
                    ("Gesture-Model" nil nil (segment-gesture process-row process-column add-row remove-row get-row get-column get-field) nil)
                    ()
                    )
)



(format *om-stream* (string+ 
"
 =====================================================
 |                    OM-Geste "*om-geste-version*
"                 |
 |                   ----------------                |
 |                                                   |
 |       Gesture Representation and Processing       |
 |                  for Open Music                   |
 |       https://github.com/marleynoe/OM-Geste       |
 |                                                   |
 |   (c) Marlon Schumacher, CIRMMT/McGill 2011-2015  |
 |       www.idmil.org/people/marlon_schumacher      |
 |                ALL RIGHTS RESERVED                |
 |                                                   |
 |     with contr. by Jean Bresson (Repmus, IRCAM)   |
 ===================================================== 
"))

; %%%%%%%% SPLASH SCREEN %%%%%%%%%
#|
(om-message-dialog (string+
"=========================== 
                     OM-Geste " *om-geste-version*"

https://github.com/marleynoe/OM-Geste
  (c) Marlon Schumacher, 2011-2015        
") 
:window-title *om-geste-version* 

:size (om-make-point 335 200) 
:position (om-make-point 200 140)
)
|#