From a53ccfa7cc59f72f88c55df3a9b1e5583dd2f8b6 Mon Sep 17 00:00:00 2001
From: Lorenz Lehmann <lorenz.lehmann@students.muho-mannheim.de>
Date: Sat, 30 Dec 2023 09:05:59 +0100
Subject: [PATCH] chore(sources): seperate utilities from defmethods

---
 examples/03_horizontal-composition/harmon-progress_rules-combined.omp |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/examples/03_horizontal-composition/harmon-progress_rules-combined.omp b/examples/03_horizontal-composition/harmon-progress_rules-combined.omp
index e75dd51..7f6a7c1 100644
--- a/examples/03_horizontal-composition/harmon-progress_rules-combined.omp
+++ b/examples/03_horizontal-composition/harmon-progress_rules-combined.omp
@@ -1,4 +1,4 @@
-; OM File Header - Saved 2023/11/20 18:35:56
-; (7.02 :patc (om-make-point 152 320) (om-make-point 50 50) (om-make-point 1310 789) "" 183 0 nil nil)
+; OM File Header - Saved 2023/12/09 18:23:12
+; (7.02 :patc (om-make-point 152 320) (om-make-point 50 50) (om-make-point 1310 789) "" 183 0 nil "2023/12/09 18:23:10")
 ; End File Header
 (in-package :om)(load-lib-for (quote ("OM-Lead")))(setf *om-current-persistent* (om-load-patch1 "harmon-progress_rules-combined" (quote ((let ((box (om-load-boxcall (quote abstraction) "make-voices" (om-load-patch-abs1 "make-voices" (quote ((let ((box (om-load-boxout "output" 0 (om-make-point 70 215) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input" 0 (om-make-point 50 50) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 132 113) (om-make-point 24 30) (quote t) "t" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GET-SCORE" (quote omlead::get-score) (quote ((om-load-inputfun (quote input-funbox) "the list of chords you may have generated in harmon-progress" "HARMON-PROGRESS" nil) (om-load-inputkeyword (quote input-keyword) "" "tie-repetitions" (quote :tie-repetitions) nil nil))) (om-make-point 96 143) nil nil nil nil 5))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((3 0 0 0 nil 0) (1 0 3 0 nil 0) (2 0 3 1 nil 0))) 7.02 nil "" (om-make-point 200 200) (om-make-point 500 400)) (quote ((om-load-inputfun (quote input-funbox) "" "input" nil))) (om-make-point 208 291) nil (list (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (16 (((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (16 (((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (-4))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (16 (((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5100)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (16 (((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj))) nil "make-voices"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 2" (quote list) (quote nil) (om-make-point 560 166) (om-make-point 264 30) (list 300 400 500 600 700 800 900 1000 1200) "(300 400 500 600 700 800 900 1000 1200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 211 152) (om-make-point 126 30) (list 400 300 500 900) "(400 300 500 900)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "mypatch 2" (om-load-patch-abs1 "mypatch 2" (quote ((let ((box (om-load-boxout "output" 0 (om-make-point 109 81) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 50 51) (om-make-point 146 30) (list 0 100 -100 200 -200) "(0 100 -100 200 -200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "REPEAT-N" (quote repeat-n) (quote ((om-load-inputfun (quote input-funbox) "something" "SELF" nil) (om-load-inputfun (quote input-funbox) "times" "N" 0))) (om-make-point 137 95) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 3" (quote list) (quote nil) (om-make-point 243 89) (om-make-point 61 30) (list (list 100)) "((100))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 202 50) (om-make-point 34 30) 14 "14" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "APPEND" (quote append) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 173 167) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((5 0 0 0 nil 0) (1 0 2 0 nil 0) (4 0 2 1 nil 0) (2 0 5 0 nil 0) (3 0 5 1 nil 0))) 7.02 nil "" (om-make-point 437 81) (om-make-point 368 292)) (quote nil) (om-make-point 366 1142/5) nil (list (list (list 0 100 -100 200 -200) (list 0 100 -100 200 -200) (list 0 100 -100 200 -200) (list 0 100 -100 200 -200) (list 0 100 -100 200 -200) (list 0 100 -100 200 -200) (list 0 100 -100 200 -200) (list 0 100 -100 200 -200) (list 0 100 -100 200 -200) (list 0 100 -100 200 -200) (list 0 100 -100 200 -200) (list 0 100 -100 200 -200) (list 0 100 -100 200 -200) (list 0 100 -100 200 -200) (list 100))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 352 139) (om-make-point 155 30) (list (list 3 4) (list (quote omlead::seiten))) "((3 4) (omlead::seiten))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "database1" (om-load-patch-abs1 "database1" (quote ((let ((box (om-load-boxcall (quote bastype) "aux 7" (quote t) (quote nil) (om-make-point 500 256) (om-make-point 24 30) (quote t) "t" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 300 220) (om-make-point 90 30) (list 5800 7200) "(5800 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 197 130) (om-make-point 33 30) nil "nil" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 626 164) (om-make-point 101 30) (list 0 1200 2400) "(0 1200 2400)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 390 220) (om-make-point 90 30) (list 6000 7600) "(6000 7600)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxout "output" 0 (om-make-point 305 382) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-DATABASE" (quote omlead::harmon-database) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr2" (quote :instr2) nil nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr3" (quote :instr3) nil nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr4" (quote :instr4) nil nil) (om-load-inputkeyword (quote input-keyword) "" "skala" (quote :skala) nil nil) (om-load-inputkeyword (quote input-keyword) "" "permutations" (quote :permutations) nil nil) (om-load-inputkeyword (quote input-keyword) "" "register-list" (quote :register-list) nil nil))) (om-make-point 20 292) (om-make-point 644 67) (list (list (list 4300 5900 6200 6700) (list 4300 5900 6700 6200) (list 4300 5900 6700 7400) (list 4300 5000 5900 6700) (list 4300 5000 7100 6700) (list 4300 5000 6700 7100) (list 4300 5500 5900 6200) (list 4300 5500 5900 7400) (list 4300 5500 7100 6200) (list 4300 5500 7100 7400) (list 4300 5500 6200 7100) (list 4700 5000 6700 6700) (list 4700 5500 6700 6200) (list 4700 5500 6700 7400) (list 4700 5500 6200 6700) (list 5000 5900 6700 6700) (list 5000 5500 6700 7100) (list 5000 5500 5900 6700) (list 5000 5500 7100 6700) (list 4300 5800 6200 6700) (list 4300 5800 6700 6200) (list 4300 5800 6700 7400) (list 4300 5000 5800 6700) (list 4300 5000 7000 6700) (list 4300 5000 6700 7000) (list 4300 5500 5800 6200) (list 4300 5500 5800 7400) (list 4300 5500 7000 6200) (list 4300 5500 7000 7400) (list 4300 5500 6200 7000) (list 4600 5000 6700 6700) (list 4600 5500 6700 6200) (list 4600 5500 6700 7400) (list 4600 5500 6200 6700) (list 5000 5800 6700 6700) (list 5000 5500 6700 7000) (list 5000 5500 5800 6700) (list 5000 5500 7000 6700) (list 4300 5800 6100 6400) (list 4300 5800 6100 7600) (list 4300 5800 6400 6100) (list 4300 5800 6400 7300) (list 4300 5200 5800 6100) (list 4300 5200 5800 7300) (list 4300 5200 7000 6100) (list 4300 5200 7000 7300) (list 4300 5200 6100 7000) (list 4600 5500 6100 6400) (list 4600 5500 6100 7600) (list 4600 5500 6400 6100) (list 4600 5500 6400 7300) (list 4600 5200 6700 6100) (list 4600 5200 6700 7300) (list 4600 5200 6100 6700) (list 4900 5500 5800 6400) (list 4900 5500 5800 7600) (list 4900 5500 7000 6400) (list 4900 5500 7000 7600) (list 4900 5500 6400 7000) (list 4900 5800 6700 6400) (list 4900 5800 6700 7600) (list 4900 5800 6400 6700) (list 4900 5200 6700 7000) (list 4900 5200 5800 6700) (list 4900 5200 7000 6700) (list 4300 5900 6200 6500) (list 4300 5900 6500 6200) (list 4300 5900 6500 7400) (list 4300 5000 5900 6500) (list 4300 5000 7100 6500) (list 4300 5000 6500 7100) (list 4300 5300 5900 6200) (list 4300 5300 5900 7400) (list 4300 5300 7100 6200) (list 4300 5300 7100 7400) (list 4300 5300 6200 7100) (list 4700 5500 6200 6500) (list 4700 5500 6500 6200) (list 4700 5500 6500 7400) (list 4700 5000 6700 6500) (list 4700 5000 6500 6700) (list 4700 5300 6700 6200) (list 4700 5300 6700 7400) (list 4700 5300 6200 6700) (list 5000 5500 5900 6500) (list 5000 5500 7100 6500) (list 5000 5500 6500 7100) (list 5000 5900 6700 6500) (list 5000 5900 6500 6700) (list 5000 5300 6700 7100) (list 5000 5300 5900 6700) (list 5000 5300 7100 6700) (list 5300 5500 5900 6200) (list 5300 5500 5900 7400) (list 5300 5500 7100 6200) (list 5300 5500 7100 7400) (list 5300 5500 6200 7100) (list 5300 5900 6700 6200) (list 5300 5900 6700 7400) (list 5300 5900 6200 6700) (list 5300 5000 6700 7100) (list 5300 5000 5900 6700) (list 5300 5000 7100 6700) (list 4500 5200 6100 6900) (list 4500 5200 6900 6100) (list 4500 5200 6900 7300) (list 4500 5700 6100 6400) (list 4500 5700 6100 7600) (list 4500 5700 6400 6100) (list 4500 5700 6400 7300) (list 4900 5200 6900 6900) (list 4900 5700 6900 6400) (list 4900 5700 6900 7600) (list 4900 5700 6400 6900) (list 5200 5700 6900 6100) (list 5200 5700 6900 7300) (list 5200 5700 6100 6900) (list 4500 6000 6400 6900) (list 4500 6000 6900 6400) (list 4500 6000 6900 7600) (list 4500 5200 6000 6900) (list 4500 5200 7200 6900) (list 4500 5200 6900 6000) (list 4500 5200 6900 7200) (list 4500 5700 6000 6400) (list 4500 5700 6000 7600) (list 4500 5700 7200 6400) (list 4500 5700 7200 7600) (list 4500 5700 6400 6000) (list 4500 5700 6400 7200) (list 4800 5200 6900 6900) (list 4800 5700 6900 6400) (list 4800 5700 6900 7600) (list 4800 5700 6400 6900) (list 5200 6000 6900 6900) (list 5200 5700 6900 6000) (list 5200 5700 6900 7200) (list 5200 5700 6000 6900) (list 5200 5700 7200 6900) (list 4500 6000 6300 6600) (list 4500 6000 6600 6300) (list 4500 6000 6600 7500) (list 4500 5100 6000 6600) (list 4500 5100 7200 6600) (list 4500 5100 6600 6000) (list 4500 5100 6600 7200) (list 4500 5400 6000 6300) (list 4500 5400 6000 7500) (list 4500 5400 7200 6300) (list 4500 5400 7200 7500) (list 4500 5400 6300 6000) (list 4500 5400 6300 7200) (list 4500 5200 6100 6700) (list 4500 5200 6700 6100) (list 4500 5200 6700 7300) (list 4500 5500 6100 6400) (list 4500 5500 6100 7600) (list 4500 5500 6400 6100) (list 4500 5500 6400 7300) (list 4900 5700 6400 6700) (list 4900 5700 6700 6400) (list 4900 5700 6700 7600) (list 4900 5200 6900 6700) (list 4900 5200 6700 6900) (list 4900 5500 6900 6400) (list 4900 5500 6900 7600) (list 4900 5500 6400 6900) (list 5200 5700 6100 6700) (list 5200 5700 6700 6100) (list 5200 5700 6700 7300) (list 5200 5500 6900 6100) (list 5200 5500 6900 7300) (list 5200 5500 6100 6900) (list 4700 5100 6600 7100) (list 4700 5100 5900 6600) (list 4700 5100 7100 6600) (list 4700 5400 6300 7100) (list 4700 5400 5900 6300) (list 4700 5400 5900 7500) (list 4700 5400 7100 6300) (list 4700 5400 7100 7500) (list 4700 5900 6300 6600) (list 4700 5900 6600 6300) (list 4700 5900 6600 7500) (list 5100 5400 5900 7100) (list 5100 5400 7100 7100) (list 5100 5900 5900 6600) (list 5100 5900 7100 6600) (list 5100 5900 6600 7100) (list 5400 5100 5900 7100) (list 5400 5100 7100 7100) (list 5400 5900 5900 6300) (list 5400 5900 5900 7500) (list 5400 5900 7100 6300) (list 5400 5900 7100 7500) (list 5400 5900 6300 7100) (list 4700 5000 6600 7100) (list 4700 5000 5900 6600) (list 4700 5000 7100 6600) (list 4700 5400 6200 7100) (list 4700 5400 5900 6200) (list 4700 5400 5900 7400) (list 4700 5400 7100 6200) (list 4700 5400 7100 7400) (list 4700 5900 6200 6600) (list 4700 5900 6600 6200) (list 4700 5900 6600 7400) (list 5000 5400 5900 7100) (list 5000 5400 7100 7100) (list 5000 5900 5900 6600) (list 5000 5900 7100 6600) (list 5000 5900 6600 7100) (list 5400 5000 5900 7100) (list 5400 5000 7100 7100) (list 5400 5900 5900 6200) (list 5400 5900 5900 7400) (list 5400 5900 7100 6200) (list 5400 5900 7100 7400) (list 5400 5900 6200 7100) (list 4700 5000 6500 6800) (list 4700 5000 6800 6500) (list 4700 5300 6200 6800) (list 4700 5300 6800 6200) (list 4700 5300 6800 7400) (list 4700 5600 6200 6500) (list 4700 5600 6500 6200) (list 4700 5600 6500 7400) (list 4700 5100 6600 6900) (list 4700 5100 6900 6600) (list 4700 5400 6300 6900) (list 4700 5400 6900 6300) (list 4700 5400 6900 7500) (list 4700 5700 6300 6600) (list 4700 5700 6600 6300) (list 4700 5700 6600 7500) (list 5100 5900 6600 6900) (list 5100 5900 6900 6600) (list 5100 5400 5900 6900) (list 5100 5400 7100 6900) (list 5100 5400 6900 7100) (list 5100 5700 5900 6600) (list 5100 5700 7100 6600) (list 5100 5700 6600 7100) (list 5400 5900 6300 6900) (list 5400 5900 6900 6300) (list 5400 5900 6900 7500) (list 5400 5100 5900 6900) (list 5400 5100 7100 6900) (list 5400 5100 6900 7100) (list 5400 5700 5900 6300) (list 5400 5700 5900 7500) (list 5400 5700 7100 6300) (list 5400 5700 7100 7500) (list 5400 5700 6300 7100) (list 4800 5200 6700 6000) (list 4800 5200 6700 7200) (list 4800 5200 6000 6700) (list 4800 5200 7200 6700) (list 4800 5500 6400 6000) (list 4800 5500 6400 7200) (list 4800 5500 6000 6400) (list 4800 5500 6000 7600) (list 4800 5500 7200 6400) (list 4800 5500 7200 7600) (list 4800 6000 6400 6700) (list 4800 6000 6700 6400) (list 4800 6000 6700 7600) (list 5200 5500 6000 6000) (list 5200 5500 6000 7200) (list 5200 5500 7200 6000) (list 5200 5500 7200 7200) (list 5200 6000 6000 6700) (list 5200 6000 7200 6700) (list 5200 6000 6700 6000) (list 5200 6000 6700 7200) (list 4800 5100 6700 6000) (list 4800 5100 6700 7200) (list 4800 5100 6000 6700) (list 4800 5100 7200 6700) (list 4800 5500 6300 6000) (list 4800 5500 6300 7200) (list 4800 5500 6000 6300) (list 4800 5500 6000 7500) (list 4800 5500 7200 6300) (list 4800 5500 7200 7500) (list 4800 6000 6300 6700) (list 4800 6000 6700 6300) (list 4800 6000 6700 7500) (list 5100 5500 6000 6000) (list 5100 5500 6000 7200) (list 5100 5500 7200 6000) (list 5100 5500 7200 7200) (list 5100 6000 6000 6700) (list 5100 6000 7200 6700) (list 5100 6000 6700 6000) (list 5100 6000 6700 7200) (list 4800 5100 6600 6900) (list 4800 5100 6900 6600) (list 4800 5400 6300 6900) (list 4800 5400 6900 6300) (list 4800 5400 6900 7500) (list 4800 5700 6300 6600) (list 4800 5700 6600 6300) (list 4800 5700 6600 7500) (list 5100 6000 6600 6900) (list 5100 6000 6900 6600) (list 5100 5400 6000 6900) (list 5100 5400 7200 6900) (list 5100 5400 6900 6000) (list 5100 5400 6900 7200) (list 5100 5700 6000 6600) (list 5100 5700 7200 6600) (list 5100 5700 6600 6000) (list 5100 5700 6600 7200) (list 5400 6000 6300 6900) (list 5400 6000 6900 6300) (list 5400 6000 6900 7500) (list 5400 5100 6000 6900) (list 5400 5100 7200 6900) (list 5400 5100 6900 6000) (list 5400 5100 6900 7200) (list 5400 5700 6000 6300) (list 5400 5700 6000 7500) (list 5400 5700 7200 6300) (list 5400 5700 7200 7500) (list 5400 5700 6300 6000) (list 5400 5700 6300 7200) (list 4800 5200 6700 7000) (list 4800 5200 5800 6700) (list 4800 5200 7000 6700) (list 4800 5500 6400 7000) (list 4800 5500 5800 6400) (list 4800 5500 5800 7600) (list 4800 5500 7000 6400) (list 4800 5500 7000 7600) (list 4800 5800 6400 6700) (list 4800 5800 6700 6400) (list 4800 5800 6700 7600) (list 5200 6000 6700 7000) (list 5200 6000 5800 6700) (list 5200 6000 7000 6700) (list 5200 5500 6000 7000) (list 5200 5500 7200 7000) (list 5200 5500 5800 6000) (list 5200 5500 5800 7200) (list 5200 5500 7000 6000) (list 5200 5500 7000 7200) (list 5200 5800 6000 6700) (list 5200 5800 7200 6700) (list 5200 5800 6700 6000) (list 5200 5800 6700 7200) (list 5000 5400 6900 6200) (list 5000 5400 6900 7400) (list 5000 5400 6200 6900) (list 5000 5700 6600 6200) (list 5000 5700 6600 7400) (list 5000 5700 6200 6600) (list 5400 5000 6900 6200) (list 5400 5000 6900 7400) (list 5400 5000 6200 6900) (list 5400 5700 6200 6200) (list 5400 5700 6200 7400) (list 5000 5300 6900 6200) (list 5000 5300 6900 7400) (list 5000 5300 6200 6900) (list 5000 5700 6500 6200) (list 5000 5700 6500 7400) (list 5000 5700 6200 6500) (list 5300 5000 6900 6200) (list 5300 5000 6900 7400) (list 5300 5000 6200 6900) (list 5300 5700 6200 6200) (list 5300 5700 6200 7400) (list 5000 5300 6800 7100) (list 5000 5300 5900 6800) (list 5000 5300 7100 6800) (list 5000 5600 6500 7100) (list 5000 5600 5900 6500) (list 5000 5600 7100 6500) (list 5000 5900 6500 6800) (list 5000 5900 6800 6500) (list 5300 5000 6800 7100) (list 5300 5000 5900 6800) (list 5300 5000 7100 6800) (list 5000 5400 6900 6000) (list 5000 5400 6900 7200) (list 5000 5400 6000 6900) (list 5000 5400 7200 6900) (list 5000 5700 6600 6000) (list 5000 5700 6600 7200) (list 5000 5700 6000 6600) (list 5000 5700 7200 6600) (list 5000 6000 6600 6900) (list 5000 6000 6900 6600) (list 5400 5000 6900 6000) (list 5400 5000 6900 7200) (list 5400 5000 6000 6900) (list 5400 5000 7200 6900) (list 5400 5700 6200 6000) (list 5400 5700 6200 7200) (list 5400 5700 6000 6200) (list 5400 5700 6000 7400) (list 5400 5700 7200 6200) (list 5400 5700 7200 7400) (list 5400 6000 6200 6900) (list 5400 6000 6900 6200) (list 5400 6000 6900 7400) (list 5200 5600 5900 6400) (list 5200 5600 5900 7600) (list 5200 5600 7100 6400) (list 5200 5600 7100 7600) (list 5200 5600 6400 7100) (list 5200 5900 6800 6400) (list 5200 5900 6800 7600) (list 5200 5900 6400 6800) (list 5200 5500 5900 6400) (list 5200 5500 5900 7600) (list 5200 5500 7100 6400) (list 5200 5500 7100 7600) (list 5200 5500 6400 7100) (list 5200 5900 6700 6400) (list 5200 5900 6700 7600) (list 5200 5900 6400 6700) (list 5200 5500 5800 6100) (list 5200 5500 5800 7300) (list 5200 5500 7000 6100) (list 5200 5500 7000 7300) (list 5200 5500 6100 7000) (list 5200 5800 6700 6100) (list 5200 5800 6700 7300) (list 5200 5800 6100 6700) (list 5200 5600 5900 6200) (list 5200 5600 5900 7400) (list 5200 5600 7100 6200) (list 5200 5600 7100 7400) (list 5200 5600 6200 7100) (list 5200 5900 6800 6200) (list 5200 5900 6800 7400) (list 5200 5900 6200 6800) (list 5300 5700 6000 6500) (list 5300 5700 7200 6500) (list 5300 5700 6500 6000) (list 5300 5700 6500 7200) (list 5300 6000 6900 6500) (list 5300 6000 6500 6900) (list 5300 5600 6000 6500) (list 5300 5600 7200 6500) (list 5300 5600 6500 6000) (list 5300 5600 6500 7200) (list 5300 6000 6800 6500) (list 5300 6000 6500 6800) (list 5300 5600 5900 6200) (list 5300 5600 5900 7400) (list 5300 5600 7100 6200) (list 5300 5600 7100 7400) (list 5300 5600 6200 7100) (list 5300 5900 6800 6200) (list 5300 5900 6800 7400) (list 5300 5900 6200 6800) (list 5300 5700 6000 6300) (list 5300 5700 6000 7500) (list 5300 5700 7200 6300) (list 5300 5700 7200 7500) (list 5300 5700 6300 6000) (list 5300 5700 6300 7200) (list 5300 6000 6900 6300) (list 5300 6000 6900 7500) (list 5300 6000 6300 6900))) "x" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list" (quote list) (quote nil) (om-make-point 120 220) (om-make-point 90 30) (list 4300 5400) "(4300 5400)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 10 78) (om-make-point 429 30) (list (list 0 400 700 1200) (list 0 300 700 1200) (list 0 300 600 900) (list 0 400 700 1000)) "((0 400 700 1200) (0 300 700 1200) (0 300 600 900) (0 400 700 1000))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 354 120) (om-make-point 200 30) (list 200 200 100 200 200 200 100) "(200 200 100 200 200 200 100)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 3" (quote list) (quote nil) (om-make-point 210 220) (om-make-point 90 30) (list 5000 6000) "(5000 6000)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((6 0 5 0 nil 0) (8 0 6 0 nil 0) (7 0 6 1 nil 0) (10 0 6 2 nil 0) (1 0 6 3 nil 0) (4 0 6 4 nil 0) (9 0 6 5 nil 0) (0 0 6 6 nil 0) (3 0 6 7 nil 0))) 7.02 nil "" (om-make-point 85 86) (om-make-point 1048 617)) (quote nil) (om-make-point 756/5 45) nil (list (list (list 4300 5900 6200 6700) (list 4300 5900 6700 6200) (list 4300 5900 6700 7400) (list 4300 5000 5900 6700) (list 4300 5000 7100 6700) (list 4300 5000 6700 7100) (list 4300 5500 5900 6200) (list 4300 5500 5900 7400) (list 4300 5500 7100 6200) (list 4300 5500 7100 7400) (list 4300 5500 6200 7100) (list 4700 5000 6700 6700) (list 4700 5500 6700 6200) (list 4700 5500 6700 7400) (list 4700 5500 6200 6700) (list 5000 5900 6700 6700) (list 5000 5500 6700 7100) (list 5000 5500 5900 6700) (list 5000 5500 7100 6700) (list 4300 5800 6200 6700) (list 4300 5800 6700 6200) (list 4300 5800 6700 7400) (list 4300 5000 5800 6700) (list 4300 5000 7000 6700) (list 4300 5000 6700 7000) (list 4300 5500 5800 6200) (list 4300 5500 5800 7400) (list 4300 5500 7000 6200) (list 4300 5500 7000 7400) (list 4300 5500 6200 7000) (list 4600 5000 6700 6700) (list 4600 5500 6700 6200) (list 4600 5500 6700 7400) (list 4600 5500 6200 6700) (list 5000 5800 6700 6700) (list 5000 5500 6700 7000) (list 5000 5500 5800 6700) (list 5000 5500 7000 6700) (list 4300 5800 6100 6400) (list 4300 5800 6100 7600) (list 4300 5800 6400 6100) (list 4300 5800 6400 7300) (list 4300 5200 5800 6100) (list 4300 5200 5800 7300) (list 4300 5200 7000 6100) (list 4300 5200 7000 7300) (list 4300 5200 6100 7000) (list 4600 5500 6100 6400) (list 4600 5500 6100 7600) (list 4600 5500 6400 6100) (list 4600 5500 6400 7300) (list 4600 5200 6700 6100) (list 4600 5200 6700 7300) (list 4600 5200 6100 6700) (list 4900 5500 5800 6400) (list 4900 5500 5800 7600) (list 4900 5500 7000 6400) (list 4900 5500 7000 7600) (list 4900 5500 6400 7000) (list 4900 5800 6700 6400) (list 4900 5800 6700 7600) (list 4900 5800 6400 6700) (list 4900 5200 6700 7000) (list 4900 5200 5800 6700) (list 4900 5200 7000 6700) (list 4300 5900 6200 6500) (list 4300 5900 6500 6200) (list 4300 5900 6500 7400) (list 4300 5000 5900 6500) (list 4300 5000 7100 6500) (list 4300 5000 6500 7100) (list 4300 5300 5900 6200) (list 4300 5300 5900 7400) (list 4300 5300 7100 6200) (list 4300 5300 7100 7400) (list 4300 5300 6200 7100) (list 4700 5500 6200 6500) (list 4700 5500 6500 6200) (list 4700 5500 6500 7400) (list 4700 5000 6700 6500) (list 4700 5000 6500 6700) (list 4700 5300 6700 6200) (list 4700 5300 6700 7400) (list 4700 5300 6200 6700) (list 5000 5500 5900 6500) (list 5000 5500 7100 6500) (list 5000 5500 6500 7100) (list 5000 5900 6700 6500) (list 5000 5900 6500 6700) (list 5000 5300 6700 7100) (list 5000 5300 5900 6700) (list 5000 5300 7100 6700) (list 5300 5500 5900 6200) (list 5300 5500 5900 7400) (list 5300 5500 7100 6200) (list 5300 5500 7100 7400) (list 5300 5500 6200 7100) (list 5300 5900 6700 6200) (list 5300 5900 6700 7400) (list 5300 5900 6200 6700) (list 5300 5000 6700 7100) (list 5300 5000 5900 6700) (list 5300 5000 7100 6700) (list 4500 5200 6100 6900) (list 4500 5200 6900 6100) (list 4500 5200 6900 7300) (list 4500 5700 6100 6400) (list 4500 5700 6100 7600) (list 4500 5700 6400 6100) (list 4500 5700 6400 7300) (list 4900 5200 6900 6900) (list 4900 5700 6900 6400) (list 4900 5700 6900 7600) (list 4900 5700 6400 6900) (list 5200 5700 6900 6100) (list 5200 5700 6900 7300) (list 5200 5700 6100 6900) (list 4500 6000 6400 6900) (list 4500 6000 6900 6400) (list 4500 6000 6900 7600) (list 4500 5200 6000 6900) (list 4500 5200 7200 6900) (list 4500 5200 6900 6000) (list 4500 5200 6900 7200) (list 4500 5700 6000 6400) (list 4500 5700 6000 7600) (list 4500 5700 7200 6400) (list 4500 5700 7200 7600) (list 4500 5700 6400 6000) (list 4500 5700 6400 7200) (list 4800 5200 6900 6900) (list 4800 5700 6900 6400) (list 4800 5700 6900 7600) (list 4800 5700 6400 6900) (list 5200 6000 6900 6900) (list 5200 5700 6900 6000) (list 5200 5700 6900 7200) (list 5200 5700 6000 6900) (list 5200 5700 7200 6900) (list 4500 6000 6300 6600) (list 4500 6000 6600 6300) (list 4500 6000 6600 7500) (list 4500 5100 6000 6600) (list 4500 5100 7200 6600) (list 4500 5100 6600 6000) (list 4500 5100 6600 7200) (list 4500 5400 6000 6300) (list 4500 5400 6000 7500) (list 4500 5400 7200 6300) (list 4500 5400 7200 7500) (list 4500 5400 6300 6000) (list 4500 5400 6300 7200) (list 4500 5200 6100 6700) (list 4500 5200 6700 6100) (list 4500 5200 6700 7300) (list 4500 5500 6100 6400) (list 4500 5500 6100 7600) (list 4500 5500 6400 6100) (list 4500 5500 6400 7300) (list 4900 5700 6400 6700) (list 4900 5700 6700 6400) (list 4900 5700 6700 7600) (list 4900 5200 6900 6700) (list 4900 5200 6700 6900) (list 4900 5500 6900 6400) (list 4900 5500 6900 7600) (list 4900 5500 6400 6900) (list 5200 5700 6100 6700) (list 5200 5700 6700 6100) (list 5200 5700 6700 7300) (list 5200 5500 6900 6100) (list 5200 5500 6900 7300) (list 5200 5500 6100 6900) (list 4700 5100 6600 7100) (list 4700 5100 5900 6600) (list 4700 5100 7100 6600) (list 4700 5400 6300 7100) (list 4700 5400 5900 6300) (list 4700 5400 5900 7500) (list 4700 5400 7100 6300) (list 4700 5400 7100 7500) (list 4700 5900 6300 6600) (list 4700 5900 6600 6300) (list 4700 5900 6600 7500) (list 5100 5400 5900 7100) (list 5100 5400 7100 7100) (list 5100 5900 5900 6600) (list 5100 5900 7100 6600) (list 5100 5900 6600 7100) (list 5400 5100 5900 7100) (list 5400 5100 7100 7100) (list 5400 5900 5900 6300) (list 5400 5900 5900 7500) (list 5400 5900 7100 6300) (list 5400 5900 7100 7500) (list 5400 5900 6300 7100) (list 4700 5000 6600 7100) (list 4700 5000 5900 6600) (list 4700 5000 7100 6600) (list 4700 5400 6200 7100) (list 4700 5400 5900 6200) (list 4700 5400 5900 7400) (list 4700 5400 7100 6200) (list 4700 5400 7100 7400) (list 4700 5900 6200 6600) (list 4700 5900 6600 6200) (list 4700 5900 6600 7400) (list 5000 5400 5900 7100) (list 5000 5400 7100 7100) (list 5000 5900 5900 6600) (list 5000 5900 7100 6600) (list 5000 5900 6600 7100) (list 5400 5000 5900 7100) (list 5400 5000 7100 7100) (list 5400 5900 5900 6200) (list 5400 5900 5900 7400) (list 5400 5900 7100 6200) (list 5400 5900 7100 7400) (list 5400 5900 6200 7100) (list 4700 5000 6500 6800) (list 4700 5000 6800 6500) (list 4700 5300 6200 6800) (list 4700 5300 6800 6200) (list 4700 5300 6800 7400) (list 4700 5600 6200 6500) (list 4700 5600 6500 6200) (list 4700 5600 6500 7400) (list 4700 5100 6600 6900) (list 4700 5100 6900 6600) (list 4700 5400 6300 6900) (list 4700 5400 6900 6300) (list 4700 5400 6900 7500) (list 4700 5700 6300 6600) (list 4700 5700 6600 6300) (list 4700 5700 6600 7500) (list 5100 5900 6600 6900) (list 5100 5900 6900 6600) (list 5100 5400 5900 6900) (list 5100 5400 7100 6900) (list 5100 5400 6900 7100) (list 5100 5700 5900 6600) (list 5100 5700 7100 6600) (list 5100 5700 6600 7100) (list 5400 5900 6300 6900) (list 5400 5900 6900 6300) (list 5400 5900 6900 7500) (list 5400 5100 5900 6900) (list 5400 5100 7100 6900) (list 5400 5100 6900 7100) (list 5400 5700 5900 6300) (list 5400 5700 5900 7500) (list 5400 5700 7100 6300) (list 5400 5700 7100 7500) (list 5400 5700 6300 7100) (list 4800 5200 6700 6000) (list 4800 5200 6700 7200) (list 4800 5200 6000 6700) (list 4800 5200 7200 6700) (list 4800 5500 6400 6000) (list 4800 5500 6400 7200) (list 4800 5500 6000 6400) (list 4800 5500 6000 7600) (list 4800 5500 7200 6400) (list 4800 5500 7200 7600) (list 4800 6000 6400 6700) (list 4800 6000 6700 6400) (list 4800 6000 6700 7600) (list 5200 5500 6000 6000) (list 5200 5500 6000 7200) (list 5200 5500 7200 6000) (list 5200 5500 7200 7200) (list 5200 6000 6000 6700) (list 5200 6000 7200 6700) (list 5200 6000 6700 6000) (list 5200 6000 6700 7200) (list 4800 5100 6700 6000) (list 4800 5100 6700 7200) (list 4800 5100 6000 6700) (list 4800 5100 7200 6700) (list 4800 5500 6300 6000) (list 4800 5500 6300 7200) (list 4800 5500 6000 6300) (list 4800 5500 6000 7500) (list 4800 5500 7200 6300) (list 4800 5500 7200 7500) (list 4800 6000 6300 6700) (list 4800 6000 6700 6300) (list 4800 6000 6700 7500) (list 5100 5500 6000 6000) (list 5100 5500 6000 7200) (list 5100 5500 7200 6000) (list 5100 5500 7200 7200) (list 5100 6000 6000 6700) (list 5100 6000 7200 6700) (list 5100 6000 6700 6000) (list 5100 6000 6700 7200) (list 4800 5100 6600 6900) (list 4800 5100 6900 6600) (list 4800 5400 6300 6900) (list 4800 5400 6900 6300) (list 4800 5400 6900 7500) (list 4800 5700 6300 6600) (list 4800 5700 6600 6300) (list 4800 5700 6600 7500) (list 5100 6000 6600 6900) (list 5100 6000 6900 6600) (list 5100 5400 6000 6900) (list 5100 5400 7200 6900) (list 5100 5400 6900 6000) (list 5100 5400 6900 7200) (list 5100 5700 6000 6600) (list 5100 5700 7200 6600) (list 5100 5700 6600 6000) (list 5100 5700 6600 7200) (list 5400 6000 6300 6900) (list 5400 6000 6900 6300) (list 5400 6000 6900 7500) (list 5400 5100 6000 6900) (list 5400 5100 7200 6900) (list 5400 5100 6900 6000) (list 5400 5100 6900 7200) (list 5400 5700 6000 6300) (list 5400 5700 6000 7500) (list 5400 5700 7200 6300) (list 5400 5700 7200 7500) (list 5400 5700 6300 6000) (list 5400 5700 6300 7200) (list 4800 5200 6700 7000) (list 4800 5200 5800 6700) (list 4800 5200 7000 6700) (list 4800 5500 6400 7000) (list 4800 5500 5800 6400) (list 4800 5500 5800 7600) (list 4800 5500 7000 6400) (list 4800 5500 7000 7600) (list 4800 5800 6400 6700) (list 4800 5800 6700 6400) (list 4800 5800 6700 7600) (list 5200 6000 6700 7000) (list 5200 6000 5800 6700) (list 5200 6000 7000 6700) (list 5200 5500 6000 7000) (list 5200 5500 7200 7000) (list 5200 5500 5800 6000) (list 5200 5500 5800 7200) (list 5200 5500 7000 6000) (list 5200 5500 7000 7200) (list 5200 5800 6000 6700) (list 5200 5800 7200 6700) (list 5200 5800 6700 6000) (list 5200 5800 6700 7200) (list 5000 5400 6900 6200) (list 5000 5400 6900 7400) (list 5000 5400 6200 6900) (list 5000 5700 6600 6200) (list 5000 5700 6600 7400) (list 5000 5700 6200 6600) (list 5400 5000 6900 6200) (list 5400 5000 6900 7400) (list 5400 5000 6200 6900) (list 5400 5700 6200 6200) (list 5400 5700 6200 7400) (list 5000 5300 6900 6200) (list 5000 5300 6900 7400) (list 5000 5300 6200 6900) (list 5000 5700 6500 6200) (list 5000 5700 6500 7400) (list 5000 5700 6200 6500) (list 5300 5000 6900 6200) (list 5300 5000 6900 7400) (list 5300 5000 6200 6900) (list 5300 5700 6200 6200) (list 5300 5700 6200 7400) (list 5000 5300 6800 7100) (list 5000 5300 5900 6800) (list 5000 5300 7100 6800) (list 5000 5600 6500 7100) (list 5000 5600 5900 6500) (list 5000 5600 7100 6500) (list 5000 5900 6500 6800) (list 5000 5900 6800 6500) (list 5300 5000 6800 7100) (list 5300 5000 5900 6800) (list 5300 5000 7100 6800) (list 5000 5400 6900 6000) (list 5000 5400 6900 7200) (list 5000 5400 6000 6900) (list 5000 5400 7200 6900) (list 5000 5700 6600 6000) (list 5000 5700 6600 7200) (list 5000 5700 6000 6600) (list 5000 5700 7200 6600) (list 5000 6000 6600 6900) (list 5000 6000 6900 6600) (list 5400 5000 6900 6000) (list 5400 5000 6900 7200) (list 5400 5000 6000 6900) (list 5400 5000 7200 6900) (list 5400 5700 6200 6000) (list 5400 5700 6200 7200) (list 5400 5700 6000 6200) (list 5400 5700 6000 7400) (list 5400 5700 7200 6200) (list 5400 5700 7200 7400) (list 5400 6000 6200 6900) (list 5400 6000 6900 6200) (list 5400 6000 6900 7400) (list 5200 5600 5900 6400) (list 5200 5600 5900 7600) (list 5200 5600 7100 6400) (list 5200 5600 7100 7600) (list 5200 5600 6400 7100) (list 5200 5900 6800 6400) (list 5200 5900 6800 7600) (list 5200 5900 6400 6800) (list 5200 5500 5900 6400) (list 5200 5500 5900 7600) (list 5200 5500 7100 6400) (list 5200 5500 7100 7600) (list 5200 5500 6400 7100) (list 5200 5900 6700 6400) (list 5200 5900 6700 7600) (list 5200 5900 6400 6700) (list 5200 5500 5800 6100) (list 5200 5500 5800 7300) (list 5200 5500 7000 6100) (list 5200 5500 7000 7300) (list 5200 5500 6100 7000) (list 5200 5800 6700 6100) (list 5200 5800 6700 7300) (list 5200 5800 6100 6700) (list 5200 5600 5900 6200) (list 5200 5600 5900 7400) (list 5200 5600 7100 6200) (list 5200 5600 7100 7400) (list 5200 5600 6200 7100) (list 5200 5900 6800 6200) (list 5200 5900 6800 7400) (list 5200 5900 6200 6800) (list 5300 5700 6000 6500) (list 5300 5700 7200 6500) (list 5300 5700 6500 6000) (list 5300 5700 6500 7200) (list 5300 6000 6900 6500) (list 5300 6000 6500 6900) (list 5300 5600 6000 6500) (list 5300 5600 7200 6500) (list 5300 5600 6500 6000) (list 5300 5600 6500 7200) (list 5300 6000 6800 6500) (list 5300 6000 6500 6800) (list 5300 5600 5900 6200) (list 5300 5600 5900 7400) (list 5300 5600 7100 6200) (list 5300 5600 7100 7400) (list 5300 5600 6200 7100) (list 5300 5900 6800 6200) (list 5300 5900 6800 7400) (list 5300 5900 6200 6800) (list 5300 5700 6000 6300) (list 5300 5700 6000 7500) (list 5300 5700 7200 6300) (list 5300 5700 7200 7500) (list 5300 5700 6300 6000) (list 5300 5700 6300 7200) (list 5300 6000 6900 6300) (list 5300 6000 6900 7500) (list 5300 6000 6300 6900))) nil "database1"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "all progression-intervals vor voice1" (om-load-patch-abs1 "all progression-intervals vor voice1" (quote ((let ((box (om-load-boxout "output" 0 (om-make-point 50 188) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 2" (quote list) (quote nil) (om-make-point 117 50) (om-make-point 434 30) (list 0 200 -200 100 -100 300 -300 400 -400 700 -700 500 -500 1200 -1200) "(0 200 -200 100 -100 300 -300 400 -400 700 -700 500 -500 1200 -1200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((1 0 0 0 nil 0))) 7.02 nil "" (om-make-point 200 200) (om-make-point 500 400)) (quote nil) (om-make-point 537 69) nil (list (list 0 200 -200 100 -100 300 -300 400 -400 700 -700 500 -500 1200 -1200)) nil "all progression-intervals vor voice1"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LIST" (quote list) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 90 168) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 298 112) (om-make-point 48 30) (list 1 2) "(1 2)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "database1" (om-load-patch-abs1 "database1" (quote ((let ((box (om-load-boxcall (quote bastype) "aux 7" (quote t) (quote nil) (om-make-point 500 256) (om-make-point 24 30) (quote t) "t" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 300 220) (om-make-point 90 30) (list 5500 7200) "(5500 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 197 130) (om-make-point 33 30) nil "nil" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 626 164) (om-make-point 101 30) (list 0 1200 2400) "(0 1200 2400)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 390 220) (om-make-point 90 30) (list 6000 7600) "(6000 7600)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxout "output" 0 (om-make-point 305 382) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-DATABASE" (quote omlead::harmon-database) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr2" (quote :instr2) nil nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr3" (quote :instr3) nil nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr4" (quote :instr4) nil nil) (om-load-inputkeyword (quote input-keyword) "" "skala" (quote :skala) nil nil) (om-load-inputkeyword (quote input-keyword) "" "permutations" (quote :permutations) nil nil) (om-load-inputkeyword (quote input-keyword) "" "register-list" (quote :register-list) nil nil))) (om-make-point 20 292) (om-make-point 644 67) (list (list (list 4300 5900 6200 6700) (list 4300 5900 5500 6200) (list 4300 5900 5500 7400) (list 4300 5900 6700 6200) (list 4300 5900 6700 7400) (list 4300 5000 5900 6700) (list 4300 5000 7100 6700) (list 4300 5000 5500 7100) (list 4300 5000 6700 7100) (list 4300 5500 5900 6200) (list 4300 5500 5900 7400) (list 4300 5500 7100 6200) (list 4300 5500 7100 7400) (list 4300 5500 6200 7100) (list 4700 5000 5500 6700) (list 4700 5000 6700 6700) (list 4700 5500 5500 6200) (list 4700 5500 5500 7400) (list 4700 5500 6700 6200) (list 4700 5500 6700 7400) (list 4700 5500 6200 6700) (list 5000 5900 5500 6700) (list 5000 5900 6700 6700) (list 5000 5500 5500 7100) (list 5000 5500 6700 7100) (list 5000 5500 5900 6700) (list 5000 5500 7100 6700) (list 4500 5200 6100 6900) (list 4500 5200 5700 6100) (list 4500 5200 5700 7300) (list 4500 5200 6900 6100) (list 4500 5200 6900 7300) (list 4500 5700 6100 6400) (list 4500 5700 6100 7600) (list 4500 5700 6400 6100) (list 4500 5700 6400 7300) (list 4900 5200 5700 6900) (list 4900 5200 6900 6900) (list 4900 5700 5700 6400) (list 4900 5700 5700 7600) (list 4900 5700 6900 6400) (list 4900 5700 6900 7600) (list 4900 5700 6400 6900) (list 5200 5700 5700 6100) (list 5200 5700 5700 7300) (list 5200 5700 6900 6100) (list 5200 5700 6900 7300) (list 5200 5700 6100 6900) (list 4700 5100 6600 7100) (list 4700 5100 5900 6600) (list 4700 5100 7100 6600) (list 4700 5400 6300 7100) (list 4700 5400 5900 6300) (list 4700 5400 5900 7500) (list 4700 5400 7100 6300) (list 4700 5400 7100 7500) (list 4700 5900 6300 6600) (list 4700 5900 6600 6300) (list 4700 5900 6600 7500) (list 5100 5400 5900 7100) (list 5100 5400 7100 7100) (list 5100 5900 5900 6600) (list 5100 5900 7100 6600) (list 5100 5900 6600 7100) (list 5400 5100 5900 7100) (list 5400 5100 7100 7100) (list 5400 5900 5900 6300) (list 5400 5900 5900 7500) (list 5400 5900 7100 6300) (list 5400 5900 7100 7500) (list 5400 5900 6300 7100) (list 4800 5200 5500 6000) (list 4800 5200 5500 7200) (list 4800 5200 6700 6000) (list 4800 5200 6700 7200) (list 4800 5200 6000 6700) (list 4800 5200 7200 6700) (list 4800 5500 6400 6000) (list 4800 5500 6400 7200) (list 4800 5500 6000 6400) (list 4800 5500 6000 7600) (list 4800 5500 7200 6400) (list 4800 5500 7200 7600) (list 4800 6000 6400 6700) (list 4800 6000 5500 6400) (list 4800 6000 5500 7600) (list 4800 6000 6700 6400) (list 4800 6000 6700 7600) (list 5200 5500 6000 6000) (list 5200 5500 6000 7200) (list 5200 5500 7200 6000) (list 5200 5500 7200 7200) (list 5200 6000 6000 6700) (list 5200 6000 7200 6700) (list 5200 6000 5500 6000) (list 5200 6000 5500 7200) (list 5200 6000 6700 6000) (list 5200 6000 6700 7200) (list 5000 5400 5700 6200) (list 5000 5400 5700 7400) (list 5000 5400 6900 6200) (list 5000 5400 6900 7400) (list 5000 5400 6200 6900) (list 5000 5700 6600 6200) (list 5000 5700 6600 7400) (list 5000 5700 6200 6600) (list 5400 5000 5700 6200) (list 5400 5000 5700 7400) (list 5400 5000 6900 6200) (list 5400 5000 6900 7400) (list 5400 5000 6200 6900) (list 5400 5700 6200 6200) (list 5400 5700 6200 7400) (list 5200 5600 5900 6400) (list 5200 5600 5900 7600) (list 5200 5600 7100 6400) (list 5200 5600 7100 7600) (list 5200 5600 6400 7100) (list 5200 5900 5600 6400) (list 5200 5900 5600 7600) (list 5200 5900 6800 6400) (list 5200 5900 6800 7600) (list 5200 5900 6400 6800) (list 5300 5700 6000 6500) (list 5300 5700 7200 6500) (list 5300 5700 6500 6000) (list 5300 5700 6500 7200) (list 5300 6000 5700 6500) (list 5300 6000 6900 6500) (list 5300 6000 6500 6900))) "x" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list" (quote list) (quote nil) (om-make-point 120 220) (om-make-point 90 30) (list 4300 5400) "(4300 5400)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 10 78) (om-make-point 129 30) (list (list 0 400 700 1200)) "((0 400 700 1200))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 354 120) (om-make-point 200 30) (list 200 200 100 200 200 200 100) "(200 200 100 200 200 200 100)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 3" (quote list) (quote nil) (om-make-point 210 220) (om-make-point 90 30) (list 5000 6000) "(5000 6000)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((6 0 5 0 nil 0) (8 0 6 0 nil 0) (7 0 6 1 nil 0) (10 0 6 2 nil 0) (1 0 6 3 nil 0) (4 0 6 4 nil 0) (9 0 6 5 nil 0) (0 0 6 6 nil 0) (3 0 6 7 nil 0))) 7.02 nil "" (om-make-point 151 199) (om-make-point 898 515)) (quote nil) (om-make-point 316/5 45) nil (list (list (list 4300 5900 6200 6700) (list 4300 5900 5500 6200) (list 4300 5900 5500 7400) (list 4300 5900 6700 6200) (list 4300 5900 6700 7400) (list 4300 5000 5900 6700) (list 4300 5000 7100 6700) (list 4300 5000 5500 7100) (list 4300 5000 6700 7100) (list 4300 5500 5900 6200) (list 4300 5500 5900 7400) (list 4300 5500 7100 6200) (list 4300 5500 7100 7400) (list 4300 5500 6200 7100) (list 4700 5000 5500 6700) (list 4700 5000 6700 6700) (list 4700 5500 5500 6200) (list 4700 5500 5500 7400) (list 4700 5500 6700 6200) (list 4700 5500 6700 7400) (list 4700 5500 6200 6700) (list 5000 5900 5500 6700) (list 5000 5900 6700 6700) (list 5000 5500 5500 7100) (list 5000 5500 6700 7100) (list 5000 5500 5900 6700) (list 5000 5500 7100 6700) (list 4500 5200 6100 6900) (list 4500 5200 5700 6100) (list 4500 5200 5700 7300) (list 4500 5200 6900 6100) (list 4500 5200 6900 7300) (list 4500 5700 6100 6400) (list 4500 5700 6100 7600) (list 4500 5700 6400 6100) (list 4500 5700 6400 7300) (list 4900 5200 5700 6900) (list 4900 5200 6900 6900) (list 4900 5700 5700 6400) (list 4900 5700 5700 7600) (list 4900 5700 6900 6400) (list 4900 5700 6900 7600) (list 4900 5700 6400 6900) (list 5200 5700 5700 6100) (list 5200 5700 5700 7300) (list 5200 5700 6900 6100) (list 5200 5700 6900 7300) (list 5200 5700 6100 6900) (list 4700 5100 6600 7100) (list 4700 5100 5900 6600) (list 4700 5100 7100 6600) (list 4700 5400 6300 7100) (list 4700 5400 5900 6300) (list 4700 5400 5900 7500) (list 4700 5400 7100 6300) (list 4700 5400 7100 7500) (list 4700 5900 6300 6600) (list 4700 5900 6600 6300) (list 4700 5900 6600 7500) (list 5100 5400 5900 7100) (list 5100 5400 7100 7100) (list 5100 5900 5900 6600) (list 5100 5900 7100 6600) (list 5100 5900 6600 7100) (list 5400 5100 5900 7100) (list 5400 5100 7100 7100) (list 5400 5900 5900 6300) (list 5400 5900 5900 7500) (list 5400 5900 7100 6300) (list 5400 5900 7100 7500) (list 5400 5900 6300 7100) (list 4800 5200 5500 6000) (list 4800 5200 5500 7200) (list 4800 5200 6700 6000) (list 4800 5200 6700 7200) (list 4800 5200 6000 6700) (list 4800 5200 7200 6700) (list 4800 5500 6400 6000) (list 4800 5500 6400 7200) (list 4800 5500 6000 6400) (list 4800 5500 6000 7600) (list 4800 5500 7200 6400) (list 4800 5500 7200 7600) (list 4800 6000 6400 6700) (list 4800 6000 5500 6400) (list 4800 6000 5500 7600) (list 4800 6000 6700 6400) (list 4800 6000 6700 7600) (list 5200 5500 6000 6000) (list 5200 5500 6000 7200) (list 5200 5500 7200 6000) (list 5200 5500 7200 7200) (list 5200 6000 6000 6700) (list 5200 6000 7200 6700) (list 5200 6000 5500 6000) (list 5200 6000 5500 7200) (list 5200 6000 6700 6000) (list 5200 6000 6700 7200) (list 5000 5400 5700 6200) (list 5000 5400 5700 7400) (list 5000 5400 6900 6200) (list 5000 5400 6900 7400) (list 5000 5400 6200 6900) (list 5000 5700 6600 6200) (list 5000 5700 6600 7400) (list 5000 5700 6200 6600) (list 5400 5000 5700 6200) (list 5400 5000 5700 7400) (list 5400 5000 6900 6200) (list 5400 5000 6900 7400) (list 5400 5000 6200 6900) (list 5400 5700 6200 6200) (list 5400 5700 6200 7400) (list 5200 5600 5900 6400) (list 5200 5600 5900 7600) (list 5200 5600 7100 6400) (list 5200 5600 7100 7600) (list 5200 5600 6400 7100) (list 5200 5900 5600 6400) (list 5200 5900 5600 7600) (list 5200 5900 6800 6400) (list 5200 5900 6800 7600) (list 5200 5900 6400 6800) (list 5300 5700 6000 6500) (list 5300 5700 7200 6500) (list 5300 5700 6500 6000) (list 5300 5700 6500 7200) (list 5300 6000 5700 6500) (list 5300 6000 6900 6500) (list 5300 6000 6500 6900))) nil "database1"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "POLY 2" (quote poly) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "list of VOICE objects" "voices" (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (1 (((4 4) (1 1 1 1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj))))) (om-make-point 53 397) (om-make-point 1143 297) (if (find-class (quote poly) nil) (let ((newobj (make-instance (quote poly) :voices (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (16 (((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (16 (((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (-4))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (16 (((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5100)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (16 (((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) :from-file t))) (load-port-info newobj (quote (nil nil nil nil))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 1 0 (om-make-point 400 20) (om-make-point 476 433) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (2 2 2 2 2))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (list (quote g) (quote g) (quote f)) 24 2)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 231 91) (om-make-point 34 30) 16 "16" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 130 125) (om-make-point 153 30) (list 4800 6000 6400 6700) "(4800 6000 6400 6700)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-PROGRESS" (quote omlead::harmon-progress) (quote ((om-load-inputfun (quote input-funbox) "" "HARMON-DATABASE" nil) (om-load-inputfun (quote input-funbox) "" "FIRST-CHORD" nil) (om-load-inputfun (quote input-funbox) "" "CHORDNUMBER" nil) (om-load-inputkeyword (quote input-keyword) "" "base-list" (quote :base-list) nil nil) (om-load-inputkeyword (quote input-keyword) "" "voice-interval4" (quote :voice-interval4) nil nil) (om-load-inputkeyword (quote input-keyword) "" "voice-counter1" (quote :voice-counter1) nil nil) (om-load-inputkeyword (quote input-keyword) "" "counter-interval1" (quote :counter-interval1) nil nil) (om-load-inputkeyword (quote input-keyword) "" "voice-counter2" (quote :voice-counter2) nil nil) (om-load-inputkeyword (quote input-keyword) "" "counter-interval2" (quote :counter-interval2) nil nil) (om-load-inputkeyword (quote input-keyword) "" "voice-interval1" (quote :voice-interval1) nil nil))) (om-make-point 174 219) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((13 0 0 0 nil 0) (9 0 7 0 nil 0) (5 0 7 1 nil 0) (0 0 10 1 nil 0) (7 0 13 0 nil 0) (12 0 13 1 nil 0) (11 0 13 2 nil 0) (8 0 13 3 nil 1) (3 0 13 4 nil 0) (4 0 13 5 nil 0) (2 0 13 6 nil 0) (1 0 13 8 nil 0) (6 0 13 9 nil 0))) nil 7.02))

--
Gitblit v1.9.1