diff options
author | Jeremiah Benham <jjbenham@chicagoguitar.com> | 2011-02-12 07:43:50 -0600 |
---|---|---|
committer | Jeremiah Benham <jjbenham@chicagoguitar.com> | 2011-02-12 07:43:50 -0600 |
commit | c9a68440df113cfa14036b84f57c91d752c168da (patch) | |
tree | 4b1e473ab3e107b57bba2d1b1567f8779302de72 | |
parent | 5a596c5e00e79b0ea2519897036d095b37d0d023 (diff) | |
parent | 9f8f88c1a36f107020543cd886e99cf13cdc0d21 (diff) |
Merge branch 'master' of git.sv.gnu.org:/srv/git/denemo
-rw-r--r-- | actions/denemo.scm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/actions/denemo.scm b/actions/denemo.scm index 19e41fc5..381a92ec 100644 --- a/actions/denemo.scm +++ b/actions/denemo.scm @@ -4,10 +4,13 @@ (use-modules (ice-9 regex)) (use-modules (ice-9 optargs)) ;Denemo subsystems and extra functions in additional files. -(load "ans.scm") ; Abstract Note System for pitch calculations -(load "notationmagick.scm") ; Insert and modify, mostly randomized, music. Depends on ans.scm -(load "abstractionmovement.scm") ; Create an abstract form of the music in Scheme for further analysing. Depends on ans.scm -(load "commandlist.scm") ; Provide scrolling up and down through a list of commands. An extended toggle through multiple states. +(define (LoadDenemo file) + (load (string-append DENEMO_ACTIONS_DIR file))) + +(LoadDenemo "ans.scm") ; Abstract Note System for pitch calculations +(LoadDenemo "notationmagick.scm") ; Insert and modify, mostly randomized, music. Depends on ans.scm +(LoadDenemo "abstractionmovement.scm") ; Create an abstract form of the music in Scheme for further analysing. Depends on ans.scm +(LoadDenemo "commandlist.scm") ; Provide scrolling up and down through a list of commands. An extended toggle through multiple states. ;Needed to see if lyimport / mxml import is called from inside or outside Denemo (define Denemo #t) |