From d780c2a220922d75a55569bfd619e8651700aabe Mon Sep 17 00:00:00 2001
From: Lorenz Lehmann <lorenz.lehmann@students.muho-mannheim.de>
Date: Sat, 09 Dec 2023 16:24:02 +0100
Subject: [PATCH] chore(examples): sort patches into folders
---
examples/tutorials/.finderinfo | 0
examples/tutorials/02_vertical-composition/harmon-database_microtonal-structures.omp | 0
examples/tutorials/04_utilities/get-score_1.omp | 0
examples/tutorials/02_vertical-composition/harmon-database_skala.omp | 0
examples/tutorials/03_horizontal-composition/harmon-progress_interval-progression.omp | 0
examples/tutorials/03_horizontal-composition/harmon-progress_voice-tie.omp | 0
examples/tutorials/03_horizontal-composition/harmon-progress_rules-combined.omp | 0
examples/tutorials/03_horizontal-composition/harmon-progress_seiten.omp | 0
examples/tutorials/02_vertical-composition/harmon-database_with-voice-permutation.omp | 0
examples/tutorials/03_horizontal-composition/harmon-progress_voice-tie2.omp | 0
examples/tutorials/02_vertical-composition/harmon-database_no-voice-permutation.omp | 0
examples/tutorials/03_horizontal-composition/harmon-progress_avoid-repetitions.omp | 0
examples/tutorials/03_horizontal-composition/harmon-progress_parallel.omp | 0
/dev/null | 4 ----
examples/tutorials/04_utilities/get-score_2.omp | 0
examples/tutorials/02_vertical-composition/harmon-database_voice-ranges-and-registration.omp | 0
examples/tutorials/01_overview/Tutorial-Patch1 -Overview-.omp | 0
examples/tutorials/03_horizontal-composition/harmon-progress_voice-tie3.omp | 0
18 files changed, 0 insertions(+), 4 deletions(-)
diff --git a/examples/musical-examples/.finderinfo b/examples/tutorials/.finderinfo
similarity index 100%
rename from examples/musical-examples/.finderinfo
rename to examples/tutorials/.finderinfo
diff --git a/examples/tutorials/Tutorial-Patch1 -Overview-.omp b/examples/tutorials/01_overview/Tutorial-Patch1 -Overview-.omp
similarity index 100%
rename from examples/tutorials/Tutorial-Patch1 -Overview-.omp
rename to examples/tutorials/01_overview/Tutorial-Patch1 -Overview-.omp
diff --git a/examples/musical-examples/harmon-database_microtonal-structures.omp b/examples/tutorials/02_vertical-composition/harmon-database_microtonal-structures.omp
similarity index 100%
rename from examples/musical-examples/harmon-database_microtonal-structures.omp
rename to examples/tutorials/02_vertical-composition/harmon-database_microtonal-structures.omp
diff --git a/examples/musical-examples/harmon-database_no-voice-permutation.omp b/examples/tutorials/02_vertical-composition/harmon-database_no-voice-permutation.omp
similarity index 100%
rename from examples/musical-examples/harmon-database_no-voice-permutation.omp
rename to examples/tutorials/02_vertical-composition/harmon-database_no-voice-permutation.omp
diff --git a/examples/musical-examples/harmon-database_skala.omp b/examples/tutorials/02_vertical-composition/harmon-database_skala.omp
similarity index 100%
rename from examples/musical-examples/harmon-database_skala.omp
rename to examples/tutorials/02_vertical-composition/harmon-database_skala.omp
diff --git a/examples/musical-examples/harmon-database_voice-ranges-and-registration.omp b/examples/tutorials/02_vertical-composition/harmon-database_voice-ranges-and-registration.omp
similarity index 100%
rename from examples/musical-examples/harmon-database_voice-ranges-and-registration.omp
rename to examples/tutorials/02_vertical-composition/harmon-database_voice-ranges-and-registration.omp
diff --git a/examples/musical-examples/harmon-database_with-voice-permutation.omp b/examples/tutorials/02_vertical-composition/harmon-database_with-voice-permutation.omp
similarity index 100%
rename from examples/musical-examples/harmon-database_with-voice-permutation.omp
rename to examples/tutorials/02_vertical-composition/harmon-database_with-voice-permutation.omp
diff --git a/examples/musical-examples/harmon-progress_avoid-repetitions.omp b/examples/tutorials/03_horizontal-composition/harmon-progress_avoid-repetitions.omp
similarity index 100%
rename from examples/musical-examples/harmon-progress_avoid-repetitions.omp
rename to examples/tutorials/03_horizontal-composition/harmon-progress_avoid-repetitions.omp
diff --git a/examples/musical-examples/harmon-progress_interval-progression.omp b/examples/tutorials/03_horizontal-composition/harmon-progress_interval-progression.omp
similarity index 100%
rename from examples/musical-examples/harmon-progress_interval-progression.omp
rename to examples/tutorials/03_horizontal-composition/harmon-progress_interval-progression.omp
diff --git a/examples/musical-examples/harmon-progress_parallel.omp b/examples/tutorials/03_horizontal-composition/harmon-progress_parallel.omp
similarity index 100%
rename from examples/musical-examples/harmon-progress_parallel.omp
rename to examples/tutorials/03_horizontal-composition/harmon-progress_parallel.omp
diff --git a/examples/musical-examples/harmon-progress_rules-combined.omp b/examples/tutorials/03_horizontal-composition/harmon-progress_rules-combined.omp
similarity index 100%
rename from examples/musical-examples/harmon-progress_rules-combined.omp
rename to examples/tutorials/03_horizontal-composition/harmon-progress_rules-combined.omp
diff --git a/examples/musical-examples/harmon-progress_seiten.omp b/examples/tutorials/03_horizontal-composition/harmon-progress_seiten.omp
similarity index 100%
rename from examples/musical-examples/harmon-progress_seiten.omp
rename to examples/tutorials/03_horizontal-composition/harmon-progress_seiten.omp
diff --git a/examples/musical-examples/harmon-progress_voice-tie.omp b/examples/tutorials/03_horizontal-composition/harmon-progress_voice-tie.omp
similarity index 100%
rename from examples/musical-examples/harmon-progress_voice-tie.omp
rename to examples/tutorials/03_horizontal-composition/harmon-progress_voice-tie.omp
diff --git a/examples/musical-examples/harmon-progress_voice-tie2.omp b/examples/tutorials/03_horizontal-composition/harmon-progress_voice-tie2.omp
similarity index 100%
rename from examples/musical-examples/harmon-progress_voice-tie2.omp
rename to examples/tutorials/03_horizontal-composition/harmon-progress_voice-tie2.omp
diff --git a/examples/musical-examples/harmon-progress_voice-tie3.omp b/examples/tutorials/03_horizontal-composition/harmon-progress_voice-tie3.omp
similarity index 100%
rename from examples/musical-examples/harmon-progress_voice-tie3.omp
rename to examples/tutorials/03_horizontal-composition/harmon-progress_voice-tie3.omp
diff --git a/examples/musical-examples/get-score_1.omp b/examples/tutorials/04_utilities/get-score_1.omp
similarity index 100%
rename from examples/musical-examples/get-score_1.omp
rename to examples/tutorials/04_utilities/get-score_1.omp
diff --git a/examples/musical-examples/get-score_2.omp b/examples/tutorials/04_utilities/get-score_2.omp
similarity index 100%
rename from examples/musical-examples/get-score_2.omp
rename to examples/tutorials/04_utilities/get-score_2.omp
diff --git a/examples/tutorials/Tutorial-Patch4 -get-score-.omp b/examples/tutorials/Tutorial-Patch4 -get-score-.omp
deleted file mode 100644
index 0903038..0000000
--- a/examples/tutorials/Tutorial-Patch4 -get-score-.omp
+++ /dev/null
@@ -1,4 +0,0 @@
-; OM File Header - Saved 2022/03/09 23:41:43
-; (6.15 :patc (om-make-point 10 110) (om-make-point 71 0) (om-make-point 1128 732) "" 183 0 "2022/03/09 22:46:53" "2022/03/09 23:41:43")
-; End File Header
-(in-package :om)(load-lib-for (quote ("OM-Lead")))(setf *om-current-persistent* (om-load-patch1 "tutorial-patch3 -get-score-" (quote ((let ((box (om-load-boxcomment "comment" (om-make-point 112 30) (quote "Sopran = instr3") nil (om-make-point 740 470) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 85 30) (quote "Alt = instr2") nil (om-make-point 520 470) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 97 30) (quote "Tenor = instr1") nil (om-make-point 740 600) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 97 30) (quote "Bass = instr0") nil (om-make-point 520 600) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 112 30) (quote "Sopran = instr3") nil (om-make-point 20 400) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 85 30) (quote "Alt = instr2") nil (om-make-point 20 460) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 97 30) (quote "Tenor = instr1") nil (om-make-point 20 520) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 97 30) (quote "Bass = instr0") nil (om-make-point 20 580) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "VOICE" (quote voice) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "a list representing a rhythm tree" "tree" (list (quote ?) (list (list (list 4 4) (list 1 1 1 1))))) (om-load-inputfun (quote input-funbox) "a chord object, a list of chords, a list of midics, a list of lists of midics..." "chords" (list (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))) (om-load-inputfun (quote input-funbox) "frequency of the quarter-note (default 60/mn)" "tempo" 60) (om-load-inputfun (quote input-funbox) "overlapping percentage between every successive chords, calculated from the second chord's duration" "legato" 100) (om-load-inputfun (quote input-funbox) "sub lists (one sub list per chord) indicating notes to be tied to notes of the same value, in a next chord" "ties" nil))) (om-make-point 676 386) (om-make-point 258 83) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (? (((3 4) (1)) ((3 4) (1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7700)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 110) nil)) :legato 100 :ties (quote (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 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 513 294) 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 (1))) (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) (quote g) 24 2)) t nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "VOICE" (quote voice) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "a list representing a rhythm tree" "tree" (list (quote ?) (list (list (list 4 4) (list 1 1 1 1))))) (om-load-inputfun (quote input-funbox) "a chord object, a list of chords, a list of midics, a list of lists of midics..." "chords" (list (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))) (om-load-inputfun (quote input-funbox) "frequency of the quarter-note (default 60/mn)" "tempo" 60) (om-load-inputfun (quote input-funbox) "overlapping percentage between every successive chords, calculated from the second chord's duration" "legato" 100) (om-load-inputfun (quote input-funbox) "sub lists (one sub list per chord) indicating notes to be tied to notes of the same value, in a next chord" "ties" nil))) (om-make-point 414 386) (om-make-point 258 83) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (? (((3 4) (1)) ((3 4) (1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (7300)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 110) nil)) :legato 100 :ties (quote (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 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 502 308) 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 (1))) (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) (quote g) 24 2)) t nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "VOICE" (quote voice) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "a list representing a rhythm tree" "tree" (list (quote ?) (list (list (list 4 4) (list 1 1 1 1))))) (om-load-inputfun (quote input-funbox) "a chord object, a list of chords, a list of midics, a list of lists of midics..." "chords" (list (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))) (om-load-inputfun (quote input-funbox) "frequency of the quarter-note (default 60/mn)" "tempo" 60) (om-load-inputfun (quote input-funbox) "overlapping percentage between every successive chords, calculated from the second chord's duration" "legato" 100) (om-load-inputfun (quote input-funbox) "sub lists (one sub list per chord) indicating notes to be tied to notes of the same value, in a next chord" "ties" nil))) (om-make-point 675 519) (om-make-point 258 83) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (? (((3 4) (1)) ((3 4) (1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 110) nil)) :legato 100 :ties (quote (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 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 370 280) 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 (1))) (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) (quote f) 24 2)) t nil 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 627 256) (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 4" (quote t) (quote nil) (om-make-point 581 256) (om-make-point 41 30) 100 "100" 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 539 256) (om-make-point 41 30) 110 "110" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "VOICE" (quote voice) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "a list representing a rhythm tree" "tree" (list (quote ?) (list (list (list 4 4) (list 1 1 1 1))))) (om-load-inputfun (quote input-funbox) "a chord object, a list of chords, a list of midics, a list of lists of midics..." "chords" (list (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))) (om-load-inputfun (quote input-funbox) "frequency of the quarter-note (default 60/mn)" "tempo" 60) (om-load-inputfun (quote input-funbox) "overlapping percentage between every successive chords, calculated from the second chord's duration" "legato" 100) (om-load-inputfun (quote input-funbox) "sub lists (one sub list per chord) indicating notes to be tied to notes of the same value, in a next chord" "ties" nil))) (om-make-point 413 519) (om-make-point 258 83) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (? (((3 4) (1)) ((3 4) (1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 110) nil)) :legato 100 :ties (quote (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 (om-load-patch-abs1 "patch" (quote nil) (quote nil) 6.15 nil "" (om-make-point 200 200) (om-make-point 400 500)))))) (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 569 281) 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 (1))) (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) (quote f) 24 2)) t nil nil 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 490 256) (om-make-point 48 30) (list 3 4) "(3 4)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GET-SCORE" (quote get-score) (quote ((om-load-inputfun (quote input-funbox) "the list of harmon-progress" "HARMON-PROGRESS" nil) (om-load-inputkeyword (quote input-keyword) "measure" "measure" (quote :measure) nil nil) (om-load-inputkeyword (quote input-keyword) "tempo" "tempo" (quote :tempo) nil nil) (om-load-inputkeyword (quote input-keyword) "legato" "legato" (quote :legato) nil nil) (om-load-inputkeyword (quote input-keyword) "if true: it will only gives one chord/measure per evaluation (makes sense if you want to merge more than on results in one voice)" "first-chord" (quote :first-chord) nil nil))) (om-make-point 440 297) (om-make-point 217 67) nil nil nil 5))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "POLY" (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 130 370) (om-make-point 260 309) (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 (? (((4 4) (1)) ((4 4) (1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (4000)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7700)) :ldur (quote (4000)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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)))))) (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 (? (((4 4) (1)) ((4 4) (1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (7300)) :ldur (quote (4000)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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)))))) (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 (? (((4 4) (1)) ((4 4) (1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (4000)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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)))))) (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 (? (((4 4) (1)) ((4 4) (1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (4000)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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)))))) (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 653 325) 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))) (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 g) (quote g)) 24 2)) t nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "harmonies" (om-load-patch-abs1 "harmonies" (quote ((let ((box (om-load-boxout "output" 0 (om-make-point 499 456) (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 5" 4 (om-make-point 712 50) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input 4" 3 (om-make-point 592 50) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input 3" 2 (om-make-point 472 50) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input 2" 1 (om-make-point 352 50) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input" 0 (om-make-point 50 78) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-PROGRESS" (quote harmon-progress) (quote ((om-load-inputfun (quote input-funbox) "" "HARMON-DATABASE" nil) (om-load-inputfun (quote input-funbox) "" "FIRST-CHORD" nil))) (om-make-point 479 369) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "FIRST" (quote first) (quote ((om-load-inputfun (quote input-funbox) "LIST" "LIST" nil))) (om-make-point 534 309) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LENGTH" (quote length) (quote ((om-load-inputfun (quote input-funbox) "SEQUENCE" "SEQUENCE" nil))) (om-make-point 634 303) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-DATABASE" (quote 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" "INSTR0" nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr1" (quote :instr1) nil 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-make-point 213 233) (om-make-point 604 67) (list (list (list 3600 6400 6700 7200) (list 3700 6500 6800 7300) (list 3800 5400 5700 6200) (list 3800 6600 6900 7400) (list 3900 5500 5800 6300) (list 3900 6700 7000 7500) (list 4000 5600 5900 6400) (list 4100 5700 6000 6500) (list 4200 5800 6100 6600) (list 4300 5900 6200 6700) (list 4400 4800 6300 6800) (list 5600 4800 6300 6800) (list 4400 6000 6300 6800) (list 4400 4800 7500 8000) (list 4500 4900 6400 6900) (list 5700 4900 6400 6900) (list 4500 6100 6400 6900) (list 4500 4900 7600 8100) (list 4600 5000 6500 7000) (list 5800 5000 6500 7000) (list 4600 6200 6500 7000) (list 4700 5100 6600 7100) (list 5900 5100 6600 7100) (list 4700 6300 6600 7100) (list 4800 5200 6700 6000) (list 4800 5200 6700 7200) (list 6000 5200 6700 7200) (list 4800 6400 6700 7200) (list 4900 5300 6800 6100) (list 4900 5300 6800 7300) (list 4900 6500 6800 7300) (list 5000 5400 5700 6200) (list 5000 6600 5700 6200) (list 5000 5400 6900 6200) (list 5000 5400 5700 7400) (list 5000 6600 5700 7400) (list 5000 5400 6900 7400) (list 5000 6600 6900 7400) (list 5100 5500 5800 6300) (list 5100 6700 5800 6300) (list 5100 5500 7000 6300) (list 5100 5500 5800 7500) (list 5100 6700 5800 7500) (list 5100 5500 7000 7500) (list 5100 6700 7000 7500) (list 5200 5600 5900 6400) (list 5200 5600 7100 6400) (list 5200 5600 5900 7600) (list 5200 5600 7100 7600) (list 5300 5700 6000 6500) (list 5300 5700 7200 6500) (list 5300 5700 6000 7700) (list 5300 5700 7200 7700) (list 5400 5800 6100 6600) (list 5400 5800 7300 6600) (list 5400 5800 6100 7800) (list 5400 5800 7300 7800) (list 5500 5900 6200 6700) (list 5500 5900 7400 6700) (list 5500 5900 6200 7900) (list 5500 5900 7400 7900) (list 5600 6000 6300 6800) (list 5600 6000 7500 6800) (list 5600 6000 6300 8000) (list 5600 6000 7500 8000) (list 5700 6100 6400 6900) (list 5700 6100 7600 6900) (list 5700 6100 6400 8100) (list 5700 6100 7600 8100) (list 5800 6200 6500 7000) (list 5800 6200 6500 8200) (list 5900 6300 6600 7100) (list 5900 6300 6600 8300) (list 6000 6400 6700 7200) (list 6000 6400 6700 8400) (list 3600 6400 7200 6700) (list 3700 6500 7300 6800) (list 3800 6600 7400 6900) (list 3900 6700 7500 7000) (list 4100 5700 6500 6000) (list 4200 5800 6600 6100) (list 4300 5900 6700 6200) (list 4400 4800 6800 6300) (list 5600 4800 6800 6300) (list 4400 6000 6800 6300) (list 4500 4900 5700 6400) (list 4500 6100 5700 6400) (list 4500 4900 6900 6400) (list 5700 4900 6900 6400) (list 4500 6100 6900 6400) (list 4500 4900 5700 7600) (list 4600 5000 5800 6500) (list 4600 6200 5800 6500) (list 4600 5000 7000 6500) (list 5800 5000 7000 6500) (list 4600 6200 7000 6500) (list 4600 5000 5800 7700) (list 4700 5100 5900 6600) (list 4700 6300 5900 6600) (list 4700 5100 7100 6600) (list 5900 5100 7100 6600) (list 4700 6300 7100 6600) (list 4700 5100 5900 7800) (list 4800 5200 6000 6700) (list 4800 5200 7200 6700) (list 6000 5200 7200 6700) (list 4800 6400 7200 6700) (list 4800 5200 6000 7900) (list 4900 5300 6100 6800) (list 4900 5300 7300 6800) (list 4900 6500 7300 6800) (list 4900 5300 6100 8000) (list 5000 5400 6200 6900) (list 5000 5400 7400 6900) (list 5000 6600 7400 6900) (list 5000 5400 6200 8100) (list 5100 5500 6300 7000) (list 5100 5500 7500 7000) (list 5100 6700 7500 7000) (list 5100 5500 6300 8200) (list 5200 5600 6400 7100) (list 5200 5600 7600 7100) (list 5200 5600 6400 8300) (list 5300 5700 6500 6000) (list 5300 5700 6500 7200) (list 5300 5700 6500 8400) (list 5400 5800 6600 6100) (list 5400 5800 6600 7300) (list 5500 5900 6700 6200) (list 5500 5900 6700 7400) (list 5600 6000 6800 6300) (list 5600 6000 6800 7500) (list 5700 6100 6900 6400) (list 5700 6100 6900 7600) (list 5800 6200 7000 6500) (list 5800 6200 7000 7700) (list 5900 6300 7100 6600) (list 5900 6300 7100 7800) (list 6000 6400 7200 6700) (list 6000 6400 7200 7900) (list 3600 6700 6400 7200) (list 4100 4800 5700 6500) (list 5300 4800 5700 6500) (list 4100 6000 5700 6500) (list 4100 4800 6900 7700) (list 4200 4900 5800 6600) (list 5400 4900 5800 6600) (list 4200 6100 5800 6600) (list 4200 4900 7000 7800) (list 4300 5000 5900 6700) (list 5500 5000 5900 6700) (list 4300 6200 5900 6700) (list 4300 5000 7100 7900) (list 4400 5100 6000 6800) (list 5600 5100 6000 6800) (list 4400 6300 6000 6800) (list 4400 5100 7200 8000) (list 4500 5200 6100 6900) (list 5700 5200 6100 6900) (list 4500 6400 6100 6900) (list 4500 5200 7300 8100) (list 4600 5300 6200 7000) (list 5800 5300 6200 7000) (list 4600 6500 6200 7000) (list 4600 5300 7400 8200) (list 4700 5400 6300 7100) (list 5900 5400 6300 7100) (list 4700 6600 6300 7100) (list 4700 5400 7500 8300) (list 4800 5500 6400 6000) (list 4800 5500 6400 7200) (list 6000 5500 6400 7200) (list 4800 6700 6400 7200) (list 4800 5500 7600 6000) (list 4800 5500 7600 8400) (list 4900 5600 6500 6100) (list 4900 5600 6500 7300) (list 5000 5700 6600 6200) (list 5000 5700 6600 7400) (list 5100 5800 6700 6300) (list 5100 5800 6700 7500) (list 5200 5900 6800 6400) (list 5200 5900 6800 7600) (list 5300 6000 5700 6500) (list 5300 6000 6900 6500) (list 5300 6000 5700 7700) (list 5300 6000 6900 7700) (list 5400 6100 5800 6600) (list 5400 6100 7000 6600) (list 5400 6100 5800 7800) (list 5400 6100 7000 7800) (list 5500 6200 5900 6700) (list 5500 6200 7100 6700) (list 5500 6200 5900 7900) (list 5500 6200 7100 7900) (list 5600 6300 6000 6800) (list 5600 6300 7200 6800) (list 5600 6300 6000 8000) (list 5600 6300 7200 8000) (list 5700 6400 6100 6900) (list 5700 6400 7300 6900) (list 5700 6400 6100 8100) (list 5700 6400 7300 8100) (list 5800 6500 6200 7000) (list 5800 6500 7400 7000) (list 5800 6500 6200 8200) (list 5800 6500 7400 8200) (list 5900 6600 6300 7100) (list 5900 6600 7500 7100) (list 5900 6600 6300 8300) (list 5900 6600 7500 8300) (list 6000 6700 6400 7200) (list 6000 6700 7600 7200) (list 6000 6700 6400 8400) (list 6000 6700 7600 8400) (list 3600 6700 7200 6400) (list 4400 5100 6800 6000) (list 5600 5100 6800 6000) (list 4400 6300 6800 6000) (list 4500 5200 5700 6100) (list 4500 6400 5700 6100) (list 4500 5200 6900 6100) (list 5700 5200 6900 6100) (list 4500 6400 6900 6100) (list 4500 5200 5700 7300) (list 4600 5300 5800 6200) (list 4600 6500 5800 6200) (list 4600 5300 7000 6200) (list 5800 5300 7000 6200) (list 4600 6500 7000 6200) (list 4600 5300 5800 7400) (list 4700 5400 5900 6300) (list 4700 6600 5900 6300) (list 4700 5400 7100 6300) (list 5900 5400 7100 6300) (list 4700 6600 7100 6300) (list 4700 5400 5900 7500) (list 4800 5500 6000 6400) (list 4800 5500 7200 6400) (list 6000 5500 7200 6400) (list 4800 6700 7200 6400) (list 4800 5500 6000 7600) (list 4900 5600 6100 6500) (list 4900 5600 7300 6500) (list 4900 5600 6100 7700) (list 5000 5700 6200 6600) (list 5000 5700 7400 6600) (list 5000 5700 6200 7800) (list 5100 5800 6300 6700) (list 5100 5800 7500 6700) (list 5100 5800 6300 7900) (list 5200 5900 6400 6800) (list 5200 5900 7600 6800) (list 5200 5900 6400 8000) (list 5300 6000 6500 6900) (list 5300 6000 6500 8100) (list 5400 6100 6600 7000) (list 5400 6100 6600 8200) (list 5500 6200 6700 7100) (list 5500 6200 6700 8300) (list 5600 6300 6800 6000) (list 5600 6300 6800 7200) (list 5600 6300 6800 8400) (list 5700 6400 6900 6100) (list 5700 6400 6900 7300) (list 5800 6500 7000 6200) (list 5800 6500 7000 7400) (list 5900 6600 7100 6300) (list 5900 6600 7100 7500) (list 6000 6700 7200 6400) (list 6000 6700 7200 7600) (list 3600 4800 6400 6700) (list 3700 4900 6500 6800) (list 3800 5000 6600 6900) (list 3900 5100 6700 7000) (list 4000 5200 6800 7100) (list 4100 5300 5700 6000) (list 4100 6500 5700 6000) (list 4100 5300 6900 7200) (list 4200 5400 5800 6100) (list 4200 6600 5800 6100) (list 4200 5400 7000 7300) (list 4300 5500 5900 6200) (list 4300 6700 5900 6200) (list 4300 5500 7100 7400) (list 4400 5600 6000 6300) (list 4400 5600 7200 7500) (list 4500 5700 6100 6400) (list 4500 5700 7300 7600) (list 4600 5800 6200 6500) (list 4600 5800 7400 7700) (list 4700 5900 6300 6600) (list 4700 5900 7500 7800) (list 4800 6000 7600 7900) (list 5300 6500 5700 6000) (list 5300 6500 6900 6000) (list 5300 6500 5700 7200) (list 5300 6500 5700 8400) (list 5400 6600 5800 6100) (list 5400 6600 7000 6100) (list 5400 6600 5800 7300) (list 5500 6700 5900 6200) (list 5500 6700 7100 6200) (list 5500 6700 5900 7400) (list 3600 4800 6700 6400) (list 3700 4900 6800 6500) (list 3800 5000 6900 6600) (list 3900 5100 7000 6700) (list 4000 5200 7100 6800) (list 4100 5300 7200 6900) (list 4200 5400 7300 7000) (list 4300 5500 7400 7100) (list 4400 5600 6300 6000) (list 4400 5600 7500 7200) (list 4500 5700 6400 6100) (list 4500 5700 7600 7300) (list 4600 5800 6500 6200) (list 4700 5900 6600 6300) (list 5000 6200 5700 6600) (list 5000 6200 5700 7800) (list 5100 6300 5800 6700) (list 5100 6300 5800 7900) (list 5200 6400 5900 6800) (list 5200 6400 5900 8000) (list 5300 6500 6000 6900) (list 5300 6500 6000 8100) (list 5400 6600 6100 7000) (list 5400 6600 6100 8200) (list 5500 6700 6200 7100) (list 5500 6700 6200 8300) (list 4000 6000 6700 7200) (list 4100 6100 6800 7300) (list 4200 5000 5700 6200) (list 4200 6200 6900 7400) (list 4300 5100 5800 6300) (list 4300 6300 7000 7500) (list 4400 5200 5900 6400) (list 4400 6400 7100 7600) (list 4500 5300 6000 6500) (list 4500 6500 7200 7700) (list 4600 5400 6100 6600) (list 4600 6600 7300 7800) (list 4700 5500 6200 6700) (list 4700 6700 7400 7900) (list 4800 5600 6300 6800) (list 4900 5700 6400 6900) (list 5000 5800 6500 7000) (list 5100 5900 6600 7100) (list 5200 4800 6700 6000) (list 5200 4800 6700 7200) (list 5200 6000 6700 7200) (list 5300 4900 6800 6100) (list 5300 4900 6800 7300) (list 5300 6100 6800 7300) (list 5400 5000 5700 6200) (list 5400 5000 6900 6200) (list 5400 5000 5700 7400) (list 5400 5000 6900 7400) (list 5400 6200 6900 7400) (list 5500 5100 5800 6300) (list 5500 5100 7000 6300) (list 5500 5100 5800 7500) (list 5500 5100 7000 7500) (list 5500 6300 7000 7500) (list 5600 5200 5900 6400) (list 5600 5200 7100 6400) (list 5600 5200 5900 7600) (list 5600 5200 7100 7600) (list 5600 6400 7100 7600) (list 5700 5300 6000 6500) (list 5700 5300 7200 6500) (list 5700 5300 6000 7700) (list 5700 5300 7200 7700) (list 5700 6500 7200 7700) (list 5800 5400 6100 6600) (list 5800 5400 7300 6600) (list 5800 5400 6100 7800) (list 5800 5400 7300 7800) (list 5800 6600 7300 7800) (list 5900 5500 6200 6700) (list 5900 5500 7400 6700) (list 5900 5500 6200 7900) (list 5900 5500 7400 7900) (list 5900 6700 7400 7900) (list 6000 5600 6300 6800) (list 6000 5600 7500 6800) (list 6000 5600 6300 8000) (list 6000 5600 7500 8000) (list 4000 6000 7200 6700) (list 4100 6100 7300 6800) (list 4200 6200 7400 6900) (list 4300 6300 7500 7000) (list 4400 6400 7600 7100) (list 4500 5300 6500 6000) (list 4600 5400 6600 6100) (list 4700 5500 6700 6200) (list 4800 5600 6800 6300) (list 4900 5700 6900 6400) (list 5000 5800 7000 6500) (list 5100 5900 7100 6600) (list 5200 4800 6000 6700) (list 5200 4800 7200 6700) (list 5200 6000 7200 6700) (list 5200 4800 6000 7900) (list 5300 4900 6100 6800) (list 5300 4900 7300 6800) (list 5300 6100 7300 6800) (list 5300 4900 6100 8000) (list 5400 5000 6200 6900) (list 5400 5000 7400 6900) (list 5400 6200 7400 6900) (list 5400 5000 6200 8100) (list 5500 5100 6300 7000) (list 5500 5100 7500 7000) (list 5500 6300 7500 7000) (list 5500 5100 6300 8200) (list 5600 5200 6400 7100) (list 5600 5200 7600 7100) (list 5600 6400 7600 7100) (list 5600 5200 6400 8300) (list 5700 5300 6500 6000) (list 5700 5300 6500 7200) (list 5700 5300 6500 8400) (list 5800 5400 6600 6100) (list 5800 5400 6600 7300) (list 5900 5500 6700 6200) (list 5900 5500 6700 7400) (list 6000 5600 6800 6300) (list 6000 5600 6800 7500) (list 4000 6700 6000 7200) (list 4500 4800 6500 7700) (list 4600 4900 6600 7800) (list 4700 5000 6700 7900) (list 4800 5100 6800 8000) (list 4900 6400 5700 6900) (list 4900 5200 6900 8100) (list 5000 6500 5800 7000) (list 5000 5300 7000 8200) (list 5100 6600 5900 7100) (list 5100 5400 7100 8300) (list 5200 6700 6000 7200) (list 5200 5500 7200 8400) (list 4000 6700 7200 6000) (list 4900 5200 5700 6900) (list 5000 5300 5800 7000) (list 5100 5400 5900 7100) (list 5200 5500 6000 6000) (list 5200 6700 6000 6000) (list 5200 5500 7200 6000) (list 5200 6700 7200 6000) (list 5200 5500 6000 7200) (list 5300 5600 6100 6100) (list 5300 5600 7300 6100) (list 5300 5600 6100 7300) (list 5400 5700 6200 6200) (list 5400 5700 7400 6200) (list 5400 5700 6200 7400) (list 5500 5800 6300 6300) (list 5500 5800 7500 6300) (list 5500 5800 6300 7500) (list 5600 5900 6400 6400) (list 5600 5900 7600 6400) (list 5600 5900 6400 7600) (list 5700 6000 6500 6500) (list 5700 6000 6500 7700) (list 5800 6100 6600 6600) (list 5800 6100 6600 7800) (list 5900 6200 6700 6700) (list 5900 6200 6700 7900) (list 6000 6300 6800 6800) (list 6000 6300 6800 8000) (list 4000 4800 6000 6700) (list 4100 4900 6100 6800) (list 4200 5000 6200 6900) (list 4300 5100 6300 7000) (list 4400 5200 6400 7100) (list 4500 5300 6500 7200) (list 4600 5400 6600 7300) (list 4700 5500 6700 7400) (list 4800 5600 6800 7500) (list 4900 5700 5700 6400) (list 4900 5700 6900 7600) (list 5000 5800 5800 6500) (list 5000 5800 7000 7700) (list 5100 5900 5900 6600) (list 5100 5900 7100 7800) (list 5200 6000 6000 6700) (list 5200 6000 7200 7900) (list 5300 6100 6100 6800) (list 5300 6100 7300 8000) (list 5400 6200 6200 6900) (list 5400 6200 7400 8100) (list 5500 6300 6300 7000) (list 5500 6300 7500 8200) (list 5600 6400 6400 7100) (list 5600 6400 7600 8300) (list 5700 6500 6500 6000) (list 5700 6500 6500 7200) (list 5800 6600 6600 6100) (list 5800 6600 6600 7300) (list 5900 6700 6700 6200) (list 5900 6700 6700 7400) (list 4000 4800 6700 6000) (list 4100 4900 6800 6100) (list 4200 5000 6900 6200) (list 4300 5100 7000 6300) (list 4400 5200 7100 6400) (list 4500 5300 7200 6500) (list 4600 5400 7300 6600) (list 4700 5500 7400 6700) (list 4800 5600 7500 6800) (list 4900 5700 7600 6900) (list 5200 6000 6700 6000) (list 5300 6100 6800 6100) (list 5400 6200 5700 6200) (list 5400 6200 6900 6200) (list 5400 6200 5700 7400) (list 5500 6300 5800 6300) (list 5500 6300 7000 6300) (list 5500 6300 5800 7500) (list 5600 6400 5900 6400) (list 5600 6400 7100 6400) (list 5600 6400 5900 7600) (list 5700 6500 6000 6500) (list 5700 6500 7200 6500) (list 5700 6500 6000 7700) (list 5800 6600 6100 6600) (list 5800 6600 7300 6600) (list 5800 6600 6100 7800) (list 5900 6700 6200 6700) (list 5900 6700 7400 6700) (list 5900 6700 6200 7900) (list 4300 6000 6400 7200) (list 4400 6100 6500 7300) (list 4500 6200 6600 7400) (list 4600 6300 6700 7500) (list 4700 6400 6800 7600) (list 4800 5300 5700 6500) (list 4800 6500 6900 7700) (list 4900 5400 5800 6600) (list 4900 6600 7000 7800) (list 5000 5500 5900 6700) (list 5000 6700 7100 7900) (list 5100 5600 6000 6800) (list 5200 5700 6100 6900) (list 5300 5800 6200 7000) (list 5400 5900 6300 7100) (list 5500 4800 6400 6000) (list 5500 4800 6400 7200) (list 5500 6000 6400 7200) (list 5500 4800 7600 6000) (list 5500 4800 7600 8400) (list 5600 4900 6500 6100) (list 5600 4900 6500 7300) (list 5600 6100 6500 7300) (list 5700 5000 6600 6200) (list 5700 5000 6600 7400) (list 5700 6200 6600 7400) (list 5800 5100 6700 6300) (list 5800 5100 6700 7500) (list 5800 6300 6700 7500) (list 5900 5200 6800 6400) (list 5900 5200 6800 7600) (list 5900 6400 6800 7600) (list 6000 5300 5700 6500) (list 6000 5300 6900 6500) (list 6000 5300 5700 7700) (list 6000 5300 6900 7700) (list 6000 6500 6900 7700) (list 4300 6000 7200 6400) (list 4400 6100 7300 6500) (list 4500 6200 7400 6600) (list 4600 6300 7500 6700) (list 4700 6400 7600 6800) (list 5100 5600 6800 6000) (list 5200 5700 6900 6100) (list 5300 5800 7000 6200) (list 5400 5900 7100 6300) (list 5500 4800 6000 6400) (list 5500 4800 7200 6400) (list 5500 6000 7200 6400) (list 5500 4800 6000 7600) (list 5600 4900 6100 6500) (list 5600 4900 7300 6500) (list 5600 6100 7300 6500) (list 5600 4900 6100 7700) (list 5700 5000 6200 6600) (list 5700 5000 7400 6600) (list 5700 6200 7400 6600) (list 5700 5000 6200 7800) (list 5800 5100 6300 6700) (list 5800 5100 7500 6700) (list 5800 6300 7500 6700) (list 5800 5100 6300 7900) (list 5900 5200 6400 6800) (list 5900 5200 7600 6800) (list 5900 6400 7600 6800) (list 5900 5200 6400 8000) (list 6000 5300 6500 6900) (list 6000 5300 6500 8100) (list 4300 6400 6000 7200) (list 4400 6500 6100 7300) (list 4500 6600 6200 7400) (list 4600 6700 6300 7500) (list 5100 4800 6800 8000) (list 5200 6100 5700 6900) (list 5200 4900 6900 8100) (list 5300 6200 5800 7000) (list 5300 5000 7000 8200) (list 5400 6300 5900 7100) (list 5400 5100 7100 8300) (list 5500 6400 6000 7200) (list 5500 5200 7200 8400) (list 5600 6500 6100 7300) (list 5700 6600 6200 7400) (list 5800 6700 6300 7500) (list 4300 6400 7200 6000) (list 4400 6500 7300 6100) (list 4500 6600 7400 6200) (list 4600 6700 7500 6300) (list 5200 4900 5700 6900) (list 5300 5000 5800 7000) (list 5400 5100 5900 7100) (list 5500 5200 6000 6000) (list 5500 6400 6000 6000) (list 5500 5200 7200 6000) (list 5500 6400 7200 6000) (list 5500 5200 6000 7200) (list 5600 5300 6100 6100) (list 5600 6500 6100 6100) (list 5600 5300 7300 6100) (list 5600 6500 7300 6100) (list 5600 5300 6100 7300) (list 5700 5400 6200 6200) (list 5700 6600 6200 6200) (list 5700 5400 7400 6200) (list 5700 6600 7400 6200) (list 5700 5400 6200 7400) (list 5800 5500 6300 6300) (list 5800 6700 6300 6300) (list 5800 5500 7500 6300) (list 5800 6700 7500 6300) (list 5800 5500 6300 7500) (list 5900 5600 6400 6400) (list 5900 5600 7600 6400) (list 5900 5600 6400 7600) (list 6000 5700 6500 6500) (list 6000 5700 6500 7700) (list 4300 4800 6000 6400) (list 4400 4900 6100 6500) (list 4500 5000 6200 6600) (list 4600 5100 6300 6700) (list 4700 5200 6400 6800) (list 4800 5300 6500 6900) (list 4900 5400 6600 7000) (list 5000 5500 6700 7100) (list 5100 5600 6800 7200) (list 5200 5700 5700 6100) (list 5200 5700 6900 7300) (list 5300 5800 5800 6200) (list 5300 5800 7000 7400) (list 5400 5900 5900 6300) (list 5400 5900 7100 7500) (list 5500 6000 6000 6400) (list 5500 6000 7200 7600) (list 5600 6100 6100 6500) (list 5600 6100 7300 7700) (list 5700 6200 6200 6600) (list 5700 6200 7400 7800) (list 5800 6300 6300 6700) (list 5800 6300 7500 7900) (list 5900 6400 6400 6800) (list 5900 6400 7600 8000) (list 6000 6500 6500 6900) (list 4300 4800 6400 6000) (list 4400 4900 6500 6100) (list 4500 5000 6600 6200) (list 4600 5100 6700 6300) (list 4700 5200 6800 6400) (list 4800 5300 6900 6500) (list 4900 5400 7000 6600) (list 5000 5500 7100 6700) (list 5100 5600 7200 6800) (list 5200 5700 7300 6900) (list 5300 5800 7400 7000) (list 5400 5900 7500 7100) (list 5500 6000 6400 6000) (list 5500 6000 7600 7200) (list 5600 6100 6500 6100) (list 5700 6200 6600 6200) (list 5800 6300 6700 6300) (list 5900 6400 6800 6400) (list 6000 6500 5700 6500) (list 6000 6500 6900 6500) (list 6000 6500 5700 7700) (list 4800 6000 6400 6700) (list 4900 6100 6500 6800) (list 5000 6200 6600 6900) (list 5100 6300 6700 7000) (list 5200 6400 6800 7100) (list 5300 5300 5700 6000) (list 5300 6500 6900 7200) (list 5400 5400 5800 6100) (list 5400 6600 7000 7300) (list 5500 5500 5900 6200) (list 5500 6700 7100 7400) (list 5600 5600 6000 6300) (list 5700 5700 6100 6400) (list 5800 5800 6200 6500) (list 5900 5900 6300 6600) (list 6000 4800 6400 6700) (list 6000 6000 6400 6700) (list 6000 4800 7600 7900) (list 4800 6000 6700 6400) (list 4900 6100 6800 6500) (list 5000 6200 6900 6600) (list 5100 6300 7000 6700) (list 5200 6400 7100 6800) (list 5300 6500 7200 6900) (list 5400 6600 7300 7000) (list 5500 6700 7400 7100) (list 5600 5600 6300 6000) (list 5700 5700 6400 6100) (list 5800 5800 6500 6200) (list 5900 5900 6600 6300) (list 6000 4800 6700 6400) (list 6000 6000 6700 6400) (list 4800 6400 6000 6700) (list 4900 6500 6100 6800) (list 5000 6600 6200 6900) (list 5100 6700 6300 7000) (list 5600 4800 6800 7500) (list 5700 4900 5700 6400) (list 5700 6100 5700 6400) (list 5700 4900 6900 7600) (list 5800 5000 5800 6500) (list 5800 6200 5800 6500) (list 5800 5000 7000 7700) (list 5900 5100 5900 6600) (list 5900 6300 5900 6600) (list 5900 5100 7100 7800) (list 6000 5200 6000 6700) (list 6000 6400 6000 6700) (list 6000 5200 7200 7900) (list 4800 6400 6700 6000) (list 4900 6500 6800 6100) (list 5000 6600 6900 6200) (list 5100 6700 7000 6300) (list 5600 4800 7500 6800) (list 5700 4900 7600 6900) (list 6000 5200 6700 6000) (list 6000 6400 6700 6000) (list 4800 6700 6000 6400) (list 5300 4800 6500 6900) (list 5400 4900 6600 7000) (list 5500 5000 6700 7100) (list 5600 5100 6800 7200) (list 5700 5200 5700 6100) (list 5700 6400 5700 6100) (list 5700 5200 6900 7300) (list 5800 5300 5800 6200) (list 5800 6500 5800 6200) (list 5800 5300 7000 7400) (list 5900 5400 5900 6300) (list 5900 6600 5900 6300) (list 5900 5400 7100 7500) (list 6000 5500 6000 6400) (list 6000 6700 6000 6400) (list 6000 5500 7200 7600) (list 4800 6700 6400 6000) (list 5300 4800 6900 6500) (list 5400 4900 7000 6600) (list 5500 5000 7100 6700) (list 5600 5100 7200 6800) (list 5700 5200 7300 6900) (list 5800 5300 7400 7000) (list 5900 5400 7500 7100) (list 6000 5500 6400 6000) (list 6000 6700 6400 6000) (list 6000 5500 7600 7200) (list 3600 6300 6700 7200) (list 3700 6400 6800 7300) (list 3800 5300 5700 6200) (list 3800 6500 6900 7400) (list 3900 5400 5800 6300) (list 3900 6600 7000 7500) (list 4000 5500 5900 6400) (list 4000 6700 7100 7600) (list 4100 5600 6000 6500) (list 4200 5700 6100 6600) (list 4300 5800 6200 6700) (list 4400 5900 6300 6800) (list 4500 4800 6400 6900) (list 5700 4800 6400 6900) (list 4500 6000 6400 6900) (list 4500 4800 7600 8100) (list 4600 4900 6500 7000) (list 5800 4900 6500 7000) (list 4600 6100 6500 7000) (list 4700 5000 6600 7100) (list 5900 5000 6600 7100) (list 4700 6200 6600 7100) (list 4800 5100 6700 6000) (list 4800 5100 6700 7200) (list 6000 5100 6700 7200) (list 4800 6300 6700 7200) (list 4900 5200 6800 6100) (list 4900 5200 6800 7300) (list 4900 6400 6800 7300) (list 5000 5300 5700 6200) (list 5000 6500 5700 6200) (list 5000 5300 6900 6200) (list 5000 5300 5700 7400) (list 5000 6500 5700 7400) (list 5000 5300 6900 7400) (list 5000 6500 6900 7400) (list 5100 5400 5800 6300) (list 5100 6600 5800 6300) (list 5100 5400 7000 6300) (list 5100 5400 5800 7500) (list 5100 6600 5800 7500) (list 5100 5400 7000 7500) (list 5100 6600 7000 7500) (list 5200 5500 5900 6400) (list 5200 6700 5900 6400) (list 5200 5500 7100 6400) (list 5200 5500 5900 7600) (list 5200 6700 5900 7600) (list 5200 5500 7100 7600) (list 5200 6700 7100 7600) (list 5300 5600 6000 6500) (list 5300 5600 7200 6500) (list 5300 5600 6000 7700) (list 5300 5600 7200 7700) (list 5400 5700 6100 6600) (list 5400 5700 7300 6600) (list 5400 5700 6100 7800) (list 5400 5700 7300 7800) (list 5500 5800 6200 6700) (list 5500 5800 7400 6700) (list 5500 5800 6200 7900) (list 5500 5800 7400 7900) (list 5600 5900 6300 6800) (list 5600 5900 7500 6800) (list 5600 5900 6300 8000) (list 5600 5900 7500 8000) (list 5700 6000 6400 6900) (list 5700 6000 7600 6900) (list 5700 6000 6400 8100) (list 5700 6000 7600 8100) (list 5800 6100 6500 7000) (list 5800 6100 6500 8200) (list 5900 6200 6600 7100) (list 5900 6200 6600 8300) (list 6000 6300 6700 7200) (list 6000 6300 6700 8400) (list 3600 6300 7200 6700) (list 3700 6400 7300 6800) (list 3800 6500 7400 6900) (list 3900 6600 7500 7000) (list 4000 6700 7600 7100) (list 4100 5600 6500 6000) (list 4200 5700 6600 6100) (list 4300 5800 6700 6200) (list 4400 5900 6800 6300) (list 4500 4800 5700 6400) (list 4500 6000 5700 6400) (list 4500 4800 6900 6400) (list 5700 4800 6900 6400) (list 4500 6000 6900 6400) (list 4500 4800 5700 7600) (list 4600 4900 5800 6500) (list 4600 6100 5800 6500) (list 4600 4900 7000 6500) (list 5800 4900 7000 6500) (list 4600 6100 7000 6500) (list 4600 4900 5800 7700) (list 4700 5000 5900 6600) (list 4700 6200 5900 6600) (list 4700 5000 7100 6600) (list 5900 5000 7100 6600) (list 4700 6200 7100 6600) (list 4700 5000 5900 7800) (list 4800 5100 6000 6700) (list 4800 5100 7200 6700) (list 6000 5100 7200 6700) (list 4800 6300 7200 6700) (list 4800 5100 6000 7900) (list 4900 5200 6100 6800) (list 4900 5200 7300 6800) (list 4900 6400 7300 6800) (list 4900 5200 6100 8000) (list 5000 5300 6200 6900) (list 5000 5300 7400 6900) (list 5000 6500 7400 6900) (list 5000 5300 6200 8100) (list 5100 5400 6300 7000) (list 5100 5400 7500 7000) (list 5100 6600 7500 7000) (list 5100 5400 6300 8200) (list 5200 5500 6400 7100) (list 5200 5500 7600 7100) (list 5200 6700 7600 7100) (list 5200 5500 6400 8300) (list 5300 5600 6500 6000) (list 5300 5600 6500 7200) (list 5300 5600 6500 8400) (list 5400 5700 6600 6100) (list 5400 5700 6600 7300) (list 5500 5800 6700 6200) (list 5500 5800 6700 7400) (list 5600 5900 6800 6300) (list 5600 5900 6800 7500) (list 5700 6000 6900 6400) (list 5700 6000 6900 7600) (list 5800 6100 7000 6500) (list 5800 6100 7000 7700) (list 5900 6200 7100 6600) (list 5900 6200 7100 7800) (list 6000 6300 7200 6700) (list 6000 6300 7200 7900) (list 3600 6700 6300 7200) (list 4100 4800 6800 7700) (list 4200 4900 5700 6600) (list 5400 4900 5700 6600) (list 4200 6100 5700 6600) (list 4200 4900 6900 7800) (list 4300 5000 5800 6700) (list 5500 5000 5800 6700) (list 4300 6200 5800 6700) (list 4300 5000 7000 7900) (list 4400 5100 5900 6800) (list 5600 5100 5900 6800) (list 4400 6300 5900 6800) (list 4400 5100 7100 8000) (list 4500 5200 6000 6900) (list 5700 5200 6000 6900) (list 4500 6400 6000 6900) (list 4500 5200 7200 8100) (list 4600 5300 6100 7000) (list 5800 5300 6100 7000) (list 4600 6500 6100 7000) (list 4600 5300 7300 8200) (list 4700 5400 6200 7100) (list 5900 5400 6200 7100) (list 4700 6600 6200 7100) (list 4700 5400 7400 8300) (list 4800 5500 6300 6000) (list 4800 5500 6300 7200) (list 6000 5500 6300 7200) (list 4800 6700 6300 7200) (list 4800 5500 7500 6000) (list 4800 5500 7500 8400) (list 4900 5600 6400 6100) (list 4900 5600 6400 7300) (list 4900 5600 7600 6100) (list 5000 5700 6500 6200) (list 5000 5700 6500 7400) (list 5100 5800 6600 6300) (list 5100 5800 6600 7500) (list 5200 5900 6700 6400) (list 5200 5900 6700 7600) (list 5300 6000 6800 6500) (list 5300 6000 6800 7700) (list 5400 6100 5700 6600) (list 5400 6100 6900 6600) (list 5400 6100 5700 7800) (list 5400 6100 6900 7800) (list 5500 6200 5800 6700) (list 5500 6200 7000 6700) (list 5500 6200 5800 7900) (list 5500 6200 7000 7900) (list 5600 6300 5900 6800) (list 5600 6300 7100 6800) (list 5600 6300 5900 8000) (list 5600 6300 7100 8000) (list 5700 6400 6000 6900) (list 5700 6400 7200 6900) (list 5700 6400 6000 8100) (list 5700 6400 7200 8100) (list 5800 6500 6100 7000) (list 5800 6500 7300 7000) (list 5800 6500 6100 8200) (list 5800 6500 7300 8200) (list 5900 6600 6200 7100) (list 5900 6600 7400 7100) (list 5900 6600 6200 8300) (list 5900 6600 7400 8300) (list 6000 6700 6300 7200) (list 6000 6700 7500 7200) (list 6000 6700 6300 8400) (list 6000 6700 7500 8400) (list 3600 6700 7200 6300) (list 4500 5200 5700 6000) (list 4500 6400 5700 6000) (list 4500 5200 6900 6000) (list 5700 5200 6900 6000) (list 4500 6400 6900 6000) (list 4500 5200 5700 7200) (list 4600 5300 5800 6100) (list 4600 6500 5800 6100) (list 4600 5300 7000 6100) (list 5800 5300 7000 6100) (list 4600 6500 7000 6100) (list 4600 5300 5800 7300) (list 4700 5400 5900 6200) (list 4700 6600 5900 6200) (list 4700 5400 7100 6200) (list 5900 5400 7100 6200) (list 4700 6600 7100 6200) (list 4700 5400 5900 7400) (list 4800 5500 6000 6300) (list 4800 5500 7200 6300) (list 6000 5500 7200 6300) (list 4800 6700 7200 6300) (list 4800 5500 6000 7500) (list 4900 5600 6100 6400) (list 4900 5600 7300 6400) (list 4900 5600 6100 7600) (list 5000 5700 6200 6500) (list 5000 5700 7400 6500) (list 5000 5700 6200 7700) (list 5100 5800 6300 6600) (list 5100 5800 7500 6600) (list 5100 5800 6300 7800) (list 5200 5900 6400 6700) (list 5200 5900 7600 6700) (list 5200 5900 6400 7900) (list 5300 6000 6500 6800) (list 5300 6000 6500 8000) (list 5400 6100 6600 6900) (list 5400 6100 6600 8100) (list 5500 6200 6700 7000) (list 5500 6200 6700 8200) (list 5600 6300 6800 7100) (list 5600 6300 6800 8300) (list 5700 6400 6900 6000) (list 5700 6400 6900 7200) (list 5700 6400 6900 8400) (list 5800 6500 7000 6100) (list 5800 6500 7000 7300) (list 5900 6600 7100 6200) (list 5900 6600 7100 7400) (list 6000 6700 7200 6300) (list 6000 6700 7200 7500) (list 3600 4800 6300 6700) (list 3700 4900 6400 6800) (list 3800 5000 6500 6900) (list 3900 5100 6600 7000) (list 4000 5200 6700 7100) (list 4100 5300 6800 7200) (list 4200 5400 5700 6100) (list 4200 6600 5700 6100) (list 4200 5400 6900 7300) (list 4300 5500 5800 6200) (list 4300 6700 5800 6200) (list 4300 5500 7000 7400) (list 4400 5600 5900 6300) (list 4400 5600 7100 7500) (list 4500 5700 6000 6400) (list 4500 5700 7200 7600) (list 4600 5800 6100 6500) (list 4600 5800 7300 7700) (list 4700 5900 6200 6600) (list 4700 5900 7400 7800) (list 4800 6000 7500 7900) (list 4900 6100 7600 8000) (list 5300 6500 6800 6000) (list 5400 6600 5700 6100) (list 5400 6600 6900 6100) (list 5400 6600 5700 7300) (list 5500 6700 5800 6200) (list 5500 6700 7000 6200) (list 5500 6700 5800 7400) (list 3600 4800 6700 6300) (list 3700 4900 6800 6400) (list 3800 5000 6900 6500) (list 3900 5100 7000 6600) (list 4000 5200 7100 6700) (list 4100 5300 7200 6800) (list 4200 5400 7300 6900) (list 4300 5500 7400 7000) (list 4400 5600 7500 7100) (list 4500 5700 6400 6000) (list 4500 5700 7600 7200) (list 4600 5800 6500 6100) (list 4700 5900 6600 6200) (list 5000 6200 5700 6500) (list 5000 6200 5700 7700) (list 5100 6300 5800 6600) (list 5100 6300 5800 7800) (list 5200 6400 5900 6700) (list 5200 6400 5900 7900) (list 5300 6500 6000 6800) (list 5300 6500 6000 8000) (list 5400 6600 6100 6900) (list 5400 6600 6100 8100) (list 5500 6700 6200 7000) (list 5500 6700 6200 8200) (list 3900 6000 6700 7200) (list 4000 6100 6800 7300) (list 4100 5000 5700 6200) (list 4100 6200 6900 7400) (list 4200 5100 5800 6300) (list 4200 6300 7000 7500) (list 4300 5200 5900 6400) (list 4300 6400 7100 7600) (list 4400 5300 6000 6500) (list 4400 6500 7200 7700) (list 4500 5400 6100 6600) (list 4500 6600 7300 7800) (list 4600 5500 6200 6700) (list 4600 6700 7400 7900) (list 4700 5600 6300 6800) (list 4800 5700 6400 6900) (list 4900 5800 6500 7000) (list 5000 5900 6600 7100) (list 5100 4800 6700 6000) (list 5100 4800 6700 7200) (list 5100 6000 6700 7200) (list 5200 4900 6800 6100) (list 5200 4900 6800 7300) (list 5200 6100 6800 7300) (list 5300 5000 5700 6200) (list 5300 5000 6900 6200) (list 5300 5000 5700 7400) (list 5300 5000 6900 7400) (list 5300 6200 6900 7400) (list 5400 5100 5800 6300) (list 5400 5100 7000 6300) (list 5400 5100 5800 7500) (list 5400 5100 7000 7500) (list 5400 6300 7000 7500) (list 5500 5200 5900 6400) (list 5500 5200 7100 6400) (list 5500 5200 5900 7600) (list 5500 5200 7100 7600) (list 5500 6400 7100 7600) (list 5600 5300 6000 6500) (list 5600 5300 7200 6500) (list 5600 5300 6000 7700) (list 5600 5300 7200 7700) (list 5600 6500 7200 7700) (list 5700 5400 6100 6600) (list 5700 5400 7300 6600) (list 5700 5400 6100 7800) (list 5700 5400 7300 7800) (list 5700 6600 7300 7800) (list 5800 5500 6200 6700) (list 5800 5500 7400 6700) (list 5800 5500 6200 7900) (list 5800 5500 7400 7900) (list 5800 6700 7400 7900) (list 5900 5600 6300 6800) (list 5900 5600 7500 6800) (list 5900 5600 6300 8000) (list 5900 5600 7500 8000) (list 6000 5700 6400 6900) (list 6000 5700 7600 6900) (list 6000 5700 6400 8100) (list 6000 5700 7600 8100) (list 3900 6000 7200 6700) (list 4000 6100 7300 6800) (list 4100 6200 7400 6900) (list 4200 6300 7500 7000) (list 4300 6400 7600 7100) (list 4400 5300 6500 6000) (list 4500 5400 6600 6100) (list 4600 5500 6700 6200) (list 4700 5600 6800 6300) (list 4800 5700 6900 6400) (list 4900 5800 7000 6500) (list 5000 5900 7100 6600) (list 5100 4800 6000 6700) (list 5100 4800 7200 6700) (list 5100 6000 7200 6700) (list 5100 4800 6000 7900) (list 5200 4900 6100 6800) (list 5200 4900 7300 6800) (list 5200 6100 7300 6800) (list 5200 4900 6100 8000) (list 5300 5000 6200 6900) (list 5300 5000 7400 6900) (list 5300 6200 7400 6900) (list 5300 5000 6200 8100) (list 5400 5100 6300 7000) (list 5400 5100 7500 7000) (list 5400 6300 7500 7000) (list 5400 5100 6300 8200) (list 5500 5200 6400 7100) (list 5500 5200 7600 7100) (list 5500 6400 7600 7100) (list 5500 5200 6400 8300) (list 5600 5300 6500 6000) (list 5600 5300 6500 7200) (list 5600 5300 6500 8400) (list 5700 5400 6600 6100) (list 5700 5400 6600 7300) (list 5800 5500 6700 6200) (list 5800 5500 6700 7400) (list 5900 5600 6800 6300) (list 5900 5600 6800 7500) (list 6000 5700 6900 6400) (list 6000 5700 6900 7600) (list 3900 6700 6000 7200) (list 4400 4800 6500 7700) (list 4500 4900 6600 7800) (list 4600 5000 6700 7900) (list 4700 5100 6800 8000) (list 6000 5200 5700 6900) (list 4800 6400 5700 6900) (list 4800 5200 6900 8100) (list 4900 6500 5800 7000) (list 4900 5300 7000 8200) (list 5000 6600 5900 7100) (list 5000 5400 7100 8300) (list 5100 6700 6000 7200) (list 5100 5500 7200 8400) (list 6000 6400 5700 6900) (list 6000 6400 5700 8100) (list 3900 6700 7200 6000) (list 4800 5200 5700 6900) (list 4900 5300 5800 7000) (list 5000 5400 5900 7100) (list 5100 5500 6000 6000) (list 5100 6700 6000 6000) (list 5100 5500 7200 6000) (list 5100 6700 7200 6000) (list 5100 5500 6000 7200) (list 5200 5600 6100 6100) (list 5200 5600 7300 6100) (list 5200 5600 6100 7300) (list 5300 5700 6200 6200) (list 5300 5700 7400 6200) (list 5300 5700 6200 7400) (list 5400 5800 6300 6300) (list 5400 5800 7500 6300) (list 5400 5800 6300 7500) (list 5500 5900 6400 6400) (list 5500 5900 7600 6400) (list 5500 5900 6400 7600) (list 5600 6000 6500 6500) (list 5600 6000 6500 7700) (list 5700 6100 6600 6600) (list 5700 6100 6600 7800) (list 5800 6200 6700 6700) (list 5800 6200 6700 7900) (list 5900 6300 6800 6800) (list 5900 6300 6800 8000) (list 6000 6400 6900 6900) (list 6000 6400 6900 8100) (list 3900 4800 6000 6700) (list 4000 4900 6100 6800) (list 4100 5000 6200 6900) (list 4200 5100 6300 7000) (list 4300 5200 6400 7100) (list 4400 5300 6500 7200) (list 4500 5400 6600 7300) (list 4600 5500 6700 7400) (list 4700 5600 6800 7500) (list 4800 5700 5700 6400) (list 6000 5700 5700 6400) (list 4800 5700 6900 7600) (list 4900 5800 5800 6500) (list 4900 5800 7000 7700) (list 5000 5900 5900 6600) (list 5000 5900 7100 7800) (list 5100 6000 6000 6700) (list 5100 6000 7200 7900) (list 5200 6100 6100 6800) (list 5200 6100 7300 8000) (list 5300 6200 6200 6900) (list 5300 6200 7400 8100) (list 5400 6300 6300 7000) (list 5400 6300 7500 8200) (list 5500 6400 6400 7100) (list 5500 6400 7600 8300) (list 5600 6500 6500 6000) (list 5600 6500 6500 7200) (list 5700 6600 6600 6100) (list 5700 6600 6600 7300) (list 5800 6700 6700 6200) (list 5800 6700 6700 7400) (list 3900 4800 6700 6000) (list 4000 4900 6800 6100) (list 4100 5000 6900 6200) (list 4200 5100 7000 6300) (list 4300 5200 7100 6400) (list 4400 5300 7200 6500) (list 4500 5400 7300 6600) (list 4600 5500 7400 6700) (list 4700 5600 7500 6800) (list 4800 5700 7600 6900) (list 5100 6000 6700 6000) (list 5200 6100 6800 6100) (list 5300 6200 5700 6200) (list 5300 6200 6900 6200) (list 5300 6200 5700 7400) (list 5400 6300 5800 6300) (list 5400 6300 7000 6300) (list 5400 6300 5800 7500) (list 5500 6400 5900 6400) (list 5500 6400 7100 6400) (list 5500 6400 5900 7600) (list 5600 6500 6000 6500) (list 5600 6500 7200 6500) (list 5600 6500 6000 7700) (list 5700 6600 6100 6600) (list 5700 6600 7300 6600) (list 5700 6600 6100 7800) (list 5800 6700 6200 6700) (list 5800 6700 7400 6700) (list 5800 6700 6200 7900) (list 4300 6000 6300 7200) (list 4400 6100 6400 7300) (list 4500 6200 6500 7400) (list 4600 6300 6600 7500) (list 4700 6400 6700 7600) (list 4800 6500 6800 7700) (list 4900 5400 5700 6600) (list 4900 6600 6900 7800) (list 5000 5500 5800 6700) (list 5000 6700 7000 7900) (list 5100 5600 5900 6800) (list 5200 5700 6000 6900) (list 5300 5800 6100 7000) (list 5400 5900 6200 7100) (list 5500 4800 6300 6000) (list 5500 4800 6300 7200) (list 5500 6000 6300 7200) (list 5500 4800 7500 6000) (list 5500 4800 7500 8400) (list 5600 4900 6400 6100) (list 5600 4900 6400 7300) (list 5600 6100 6400 7300) (list 5600 4900 7600 6100) (list 5700 5000 6500 6200) (list 5700 5000 6500 7400) (list 5700 6200 6500 7400) (list 5800 5100 6600 6300) (list 5800 5100 6600 7500) (list 5800 6300 6600 7500) (list 5900 5200 6700 6400) (list 5900 5200 6700 7600) (list 5900 6400 6700 7600) (list 6000 5300 6800 6500) (list 6000 5300 6800 7700) (list 6000 6500 6800 7700) (list 4300 6000 7200 6300) (list 4400 6100 7300 6400) (list 4500 6200 7400 6500) (list 4600 6300 7500 6600) (list 4700 6400 7600 6700) (list 5200 5700 6900 6000) (list 5300 5800 7000 6100) (list 5400 5900 7100 6200) (list 5500 4800 6000 6300) (list 5500 4800 7200 6300) (list 5500 6000 7200 6300) (list 5500 4800 6000 7500) (list 5600 4900 6100 6400) (list 5600 4900 7300 6400) (list 5600 6100 7300 6400) (list 5600 4900 6100 7600) (list 5700 5000 6200 6500) (list 5700 5000 7400 6500) (list 5700 6200 7400 6500) (list 5700 5000 6200 7700) (list 5800 5100 6300 6600) (list 5800 5100 7500 6600) (list 5800 6300 7500 6600) (list 5800 5100 6300 7800) (list 5900 5200 6400 6700) (list 5900 5200 7600 6700) (list 5900 6400 7600 6700) (list 5900 5200 6400 7900) (list 6000 5300 6500 6800) (list 6000 5300 6500 8000) (list 4300 6300 6000 7200) (list 4400 6400 6100 7300) (list 4500 6500 6200 7400) (list 4600 6600 6300 7500) (list 4700 6700 6400 7600) (list 5200 6000 5700 6900) (list 5200 4800 6900 8100) (list 5300 6100 5800 7000) (list 5300 4900 7000 8200) (list 5400 6200 5900 7100) (list 5400 5000 7100 8300) (list 5500 6300 6000 7200) (list 5500 5100 7200 8400) (list 5600 6400 6100 7300) (list 5700 6500 6200 7400) (list 5800 6600 6300 7500) (list 5900 6700 6400 7600) (list 4300 6300 7200 6000) (list 4400 6400 7300 6100) (list 4500 6500 7400 6200) (list 4600 6600 7500 6300) (list 4700 6700 7600 6400) (list 5200 4800 5700 6900) (list 5300 4900 5800 7000) (list 5400 5000 5900 7100) (list 5500 5100 6000 6000) (list 5500 6300 6000 6000) (list 5500 5100 7200 6000) (list 5500 6300 7200 6000) (list 5500 5100 6000 7200) (list 5600 5200 6100 6100) (list 5600 6400 6100 6100) (list 5600 5200 7300 6100) (list 5600 6400 7300 6100) (list 5600 5200 6100 7300) (list 5700 5300 6200 6200) (list 5700 6500 6200 6200) (list 5700 5300 7400 6200) (list 5700 6500 7400 6200) (list 5700 5300 6200 7400) (list 5800 5400 6300 6300) (list 5800 6600 6300 6300) (list 5800 5400 7500 6300) (list 5800 6600 7500 6300) (list 5800 5400 6300 7500) (list 5900 5500 6400 6400) (list 5900 6700 6400 6400) (list 5900 5500 7600 6400) (list 5900 6700 7600 6400) (list 5900 5500 6400 7600) (list 6000 5600 6500 6500) (list 6000 5600 6500 7700) (list 4300 4800 6000 6300) (list 4400 4900 6100 6400) (list 4500 5000 6200 6500) (list 4600 5100 6300 6600) (list 4700 5200 6400 6700) (list 4800 5300 6500 6800) (list 4900 5400 6600 6900) (list 5000 5500 6700 7000) (list 5100 5600 6800 7100) (list 5200 5700 5700 6000) (list 5200 5700 6900 7200) (list 5300 5800 5800 6100) (list 5300 5800 7000 7300) (list 5400 5900 5900 6200) (list 5400 5900 7100 7400) (list 5500 6000 6000 6300) (list 5500 6000 7200 7500) (list 5600 6100 6100 6400) (list 5600 6100 7300 7600) (list 5700 6200 6200 6500) (list 5700 6200 7400 7700) (list 5800 6300 6300 6600) (list 5800 6300 7500 7800) (list 5900 6400 6400 6700) (list 5900 6400 7600 7900) (list 6000 6500 6500 6800) (list 4300 4800 6300 6000) (list 4400 4900 6400 6100) (list 4500 5000 6500 6200) (list 4600 5100 6600 6300) (list 4700 5200 6700 6400) (list 4800 5300 6800 6500) (list 4900 5400 6900 6600) (list 5000 5500 7000 6700) (list 5100 5600 7100 6800) (list 5200 5700 7200 6900) (list 5300 5800 7300 7000) (list 5400 5900 7400 7100) (list 5500 6000 6300 6000) (list 5500 6000 7500 7200) (list 5600 6100 6400 6100) (list 5600 6100 7600 7300) (list 5700 6200 6500 6200) (list 5800 6300 6600 6300) (list 5900 6400 6700 6400) (list 6000 6500 6800 6500) (list 4800 6000 6300 6700) (list 4900 6100 6400 6800) (list 5000 6200 6500 6900) (list 5100 6300 6600 7000) (list 5200 6400 6700 7100) (list 5300 6500 6800 7200) (list 5400 5400 5700 6100) (list 5400 6600 6900 7300) (list 5500 5500 5800 6200) (list 5500 6700 7000 7400) (list 5600 5600 5900 6300) (list 5700 5700 6000 6400) (list 5800 5800 6100 6500) (list 5900 5900 6200 6600) (list 6000 4800 6300 6700) (list 6000 6000 6300 6700) (list 6000 4800 7500 7900) (list 4800 6000 6700 6300) (list 4900 6100 6800 6400) (list 5000 6200 6900 6500) (list 5100 6300 7000 6600) (list 5200 6400 7100 6700) (list 5300 6500 7200 6800) (list 5400 6600 7300 6900) (list 5500 6700 7400 7000) (list 5700 5700 6400 6000) (list 5800 5800 6500 6100) (list 5900 5900 6600 6200) (list 6000 4800 6700 6300) (list 6000 6000 6700 6300) (list 4800 6300 6000 6700) (list 4900 6400 6100 6800) (list 5000 6500 6200 6900) (list 5100 6600 6300 7000) (list 5200 6700 6400 7100) (list 5700 4800 5700 6400) (list 5700 6000 5700 6400) (list 5700 4800 6900 7600) (list 5800 4900 5800 6500) (list 5800 6100 5800 6500) (list 5800 4900 7000 7700) (list 5900 5000 5900 6600) (list 5900 6200 5900 6600) (list 5900 5000 7100 7800) (list 6000 5100 6000 6700) (list 6000 6300 6000 6700) (list 6000 5100 7200 7900) (list 4800 6300 6700 6000) (list 4900 6400 6800 6100) (list 5000 6500 6900 6200) (list 5100 6600 7000 6300) (list 5200 6700 7100 6400) (list 5700 4800 7600 6900) (list 6000 5100 6700 6000) (list 6000 6300 6700 6000) (list 4800 6700 6000 6300) (list 5300 4800 6500 6800) (list 5400 4900 6600 6900) (list 5500 5000 6700 7000) (list 5600 5100 6800 7100) (list 5700 5200 5700 6000) (list 5700 6400 5700 6000) (list 5700 5200 6900 7200) (list 5800 5300 5800 6100) (list 5800 6500 5800 6100) (list 5800 5300 7000 7300) (list 5900 5400 5900 6200) (list 5900 6600 5900 6200) (list 5900 5400 7100 7400) (list 6000 5500 6000 6300) (list 6000 6700 6000 6300) (list 6000 5500 7200 7500) (list 4800 6700 6300 6000) (list 5300 4800 6800 6500) (list 5400 4900 6900 6600) (list 5500 5000 7000 6700) (list 5600 5100 7100 6800) (list 5700 5200 7200 6900) (list 5800 5300 7300 7000) (list 5900 5400 7400 7100) (list 6000 5500 6300 6000) (list 6000 6700 6300 6000) (list 6000 5500 7500 7200))) "x" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((6 0 0 0 nil 0) (9 0 6 0 nil 0) (7 0 6 1 nil 0) (9 0 7 0 nil 0) (9 0 8 0 nil 0) (5 0 9 0 nil 0) (4 0 9 1 nil 0) (3 0 9 2 nil 0) (2 0 9 3 nil 0) (1 0 9 4 nil 0))) 6.15 nil "" (om-make-point 200 152) (om-make-point 837 581)) (quote ((om-load-inputfun (quote input-funbox) "" "input" nil) (om-load-inputfun (quote input-funbox) "" "input 2" nil) (om-load-inputfun (quote input-funbox) "" "input 3" nil) (om-load-inputfun (quote input-funbox) "" "input 4" nil) (om-load-inputfun (quote input-funbox) "" "input 5" nil))) (om-make-point 198 311/2) (om-make-point 509 67) nil "&" "harmonies"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "VALUES" (quote values) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (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 456 662) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GET-SCORE" (quote get-score) (quote ((om-load-inputfun (quote input-funbox) "the list of harmon-progress" "HARMON-PROGRESS" nil))) (om-make-point 296 295) nil nil nil nil 5))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 112 30) (quote "Sopran = instr3") nil (om-make-point 556 20) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 85 30) (quote "Alt = instr2") nil (om-make-point 476 20) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 97 30) (quote "Tenor = instr1") nil (om-make-point 376 20) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD" (quote chord) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (list of midicents)" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "velocities (list of values 0-127)" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (list of values in ms)" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "durations (list of values in ms)" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "MIDI channels (list of values 0-16)" "lchan" (list 1)))) (om-make-point 567 50) (om-make-point 79 102) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000 8400)) :ldur (quote (1000 1000)) :lvel (quote (100 100)) :loffset (quote (0 0)) :lchan (quote (1 1))))) (load-port-info thechord (quote (0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) "x" 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) 0 0 (om-make-point 400 20) (om-make-point 500 402) 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 (1))) (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) (quote g) 24 2)) t nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD" (quote chord) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (list of midicents)" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "velocities (list of values 0-127)" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (list of values in ms)" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "durations (list of values in ms)" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "MIDI channels (list of values 0-16)" "lchan" (list 1)))) (om-make-point 477 50) (om-make-point 79 102) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700 7600)) :ldur (quote (1000 1000)) :lvel (quote (100 100)) :loffset (quote (0 0)) :lchan (quote (1 1))))) (load-port-info thechord (quote (0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) "x" 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) 0 0 (om-make-point 400 20) (om-make-point 500 402) 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 (1))) (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) (quote g) 24 2)) t nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD" (quote chord) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (list of midicents)" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "velocities (list of values 0-127)" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (list of values in ms)" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "durations (list of values in ms)" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "MIDI channels (list of values 0-16)" "lchan" (list 1)))) (om-make-point 387 50) (om-make-point 79 102) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800 6700)) :ldur (quote (1000 1000)) :lvel (quote (100 100)) :loffset (quote (0 0)) :lchan (quote (1 1))))) (load-port-info thechord (quote (0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) "x" 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) 0 0 (om-make-point 400 20) (om-make-point 500 402) 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 (1))) (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) (quote f) 24 2)) t nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 97 30) (quote "Bass = instr0") nil (om-make-point 276 20) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD" (quote chord) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (list of midicents)" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "velocities (list of values 0-127)" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (list of values in ms)" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "durations (list of values in ms)" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "MIDI channels (list of values 0-16)" "lchan" (list 1)))) (om-make-point 297 50) (om-make-point 79 102) (let ((thechord (make-instance (quote chord) :lmidic (quote (3600 6000)) :ldur (quote (1000 1000)) :lvel (quote (100 100)) :loffset (quote (0 0)) :lchan (quote (1 1))))) (load-port-info thechord (quote (0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) "x" 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) 0 0 (om-make-point 400 20) (om-make-point 500 402) 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 (1))) (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) (quote f) 24 2)) t nil nil nil))) (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 60 123) (om-make-point 231 30) (list (list 0 400 700 1200) (list 0 300 700 1200)) "((0 400 700 1200) (0 300 700 1200))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((16 4 8 0 nil 0) (16 3 9 0 nil 0) (16 2 10 0 nil 0) (16 1 14 0 nil 0) (18 0 16 0 nil 0) (15 0 16 1 nil 0) (13 0 16 2 nil 0) (12 0 16 3 nil 0) (11 0 16 4 nil 0) (20 0 17 1 nil 0) (29 0 18 0 nil 0) (28 1 18 1 nil 0) (26 1 18 2 nil 0) (25 1 18 3 nil 0) (24 1 18 4 nil 0) (17 1 19 0 nil 0) (14 0 19 1 nil 0) (10 0 19 2 nil 0) (9 0 19 3 nil 0) (8 0 19 4 nil 0) (18 0 20 0 nil 0))) nil 6.15))
\ No newline at end of file
diff --git a/examples/tutorials/Tutorial-Patch5 -get-score-.omp b/examples/tutorials/Tutorial-Patch5 -get-score-.omp
deleted file mode 100644
index 4455599..0000000
--- a/examples/tutorials/Tutorial-Patch5 -get-score-.omp
+++ /dev/null
@@ -1,4 +0,0 @@
-; OM File Header - Saved 2022/03/10 0:36:20
-; (6.15 :patc (om-make-point 10 110) (om-make-point 65 0) (om-make-point 1128 732) "" 183 0 "2022/03/09 22:46:53" "2022/03/10 0:36:08")
-; End File Header
-(in-package :om)(load-lib-for (quote ("OM-Lead")))(setf *om-current-persistent* (om-load-patch1 "Tutorial-Patch5 -get-score-" (quote ((let ((box (om-load-boxcall (quote abstraction) "concat" (om-load-patch-abs1 "concat" (quote ((let ((box (om-load-boxout "output" 0 (om-make-point 137 223) (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-boxwithed1 (quote box-with-win) "bass" (quote omloop) (quote ((om-load-inputfun (quote input-funbox) "" "input0" nil))) (om-make-point 887/5 110) nil nil nil (list (let ((box (om-load-boxcall (quote lispfun) "FOURTH" (quote fourth) (quote ((om-load-inputfun (quote input-funbox) "LIST" "LIST" nil))) (om-make-point 224 122) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "MAT-TRANS" (quote mat-trans) (quote ((om-load-inputfun (quote input-funbox) "a list of lists" "MATRIX" nil))) (om-make-point 40 132) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "CAR" (quote car) (quote ((om-load-inputfun (quote input-funbox) "X" "X" nil))) (om-make-point 246 218) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "CDR" (quote cdr) (quote ((om-load-inputfun (quote input-funbox) "X" "X" nil))) (om-make-point 191 168) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "CONCAT" (quote concat) (quote ((om-load-inputfun (quote input-funbox) "a musical sequence" "S1" nil) (om-load-inputfun (quote input-funbox) "a musical sequence" "S2" nil))) (om-make-point 283 209) nil nil "l" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input0" 0 (om-make-point 5 40) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "inlist" (quote listloop) (quote ((om-load-inputfun (quote input-funbox) "list to iterate" "LIST" nil))) (om-make-point 178 209) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "accum" (quote accumulator) (quote ((om-load-inputfun (quote input-funbox) "items to collect" "DATA" nil) (om-load-inputfun (quote input-funbox) "initial value" "INIT" nil) (om-load-inputfun (quote input-funbox) "accumulation function" "FUN" nil))) (om-make-point 235 302) nil nil nil nil 3))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-seqbox "finally" (quote finaldo) (quote ((om-load-inputfun (quote input-funbox) "value to return" "VAL" nil))) (om-make-point 295 440) nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-seqbox "eachTime" (quote loopdo) (quote ((om-load-inputfun (quote input-funbox) "operations to do" "OP" nil))) (om-make-point 195 440) nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box)) (quote ((1 0 0 0 nil 0) (5 0 1 0 nil 0) (0 0 2 0 nil 0) (0 0 3 0 nil 0) (3 0 6 0 nil 0) (6 0 7 0 nil 0) (2 0 7 1 nil 0) (4 0 7 2 nil 0) (7 1 8 0 nil 0) (7 0 9 0 nil 0))) 1 "bass" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxwithed1 (quote box-with-win) "sopran" (quote omloop) (quote ((om-load-inputfun (quote input-funbox) "" "input0" nil))) (om-make-point 1437/5 110) nil nil nil (list (let ((box (om-load-boxcall (quote lispfun) "FIRST" (quote first) (quote ((om-load-inputfun (quote input-funbox) "LIST" "LIST" nil))) (om-make-point 230 127) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "MAT-TRANS" (quote mat-trans) (quote ((om-load-inputfun (quote input-funbox) "a list of lists" "MATRIX" nil))) (om-make-point 40 132) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "CAR" (quote car) (quote ((om-load-inputfun (quote input-funbox) "X" "X" nil))) (om-make-point 246 218) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "CDR" (quote cdr) (quote ((om-load-inputfun (quote input-funbox) "X" "X" nil))) (om-make-point 191 168) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "CONCAT" (quote concat) (quote ((om-load-inputfun (quote input-funbox) "a musical sequence" "S1" nil) (om-load-inputfun (quote input-funbox) "a musical sequence" "S2" nil))) (om-make-point 283 209) nil nil "l" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input0" 0 (om-make-point 5 40) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "inlist" (quote listloop) (quote ((om-load-inputfun (quote input-funbox) "list to iterate" "LIST" nil))) (om-make-point 178 209) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "accum" (quote accumulator) (quote ((om-load-inputfun (quote input-funbox) "items to collect" "DATA" nil) (om-load-inputfun (quote input-funbox) "initial value" "INIT" nil) (om-load-inputfun (quote input-funbox) "accumulation function" "FUN" nil))) (om-make-point 235 302) nil nil nil nil 3))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-seqbox "finally" (quote finaldo) (quote ((om-load-inputfun (quote input-funbox) "value to return" "VAL" nil))) (om-make-point 295 440) nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-seqbox "eachTime" (quote loopdo) (quote ((om-load-inputfun (quote input-funbox) "operations to do" "OP" nil))) (om-make-point 195 440) nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box)) (quote ((1 0 0 0 nil 0) (5 0 1 0 nil 0) (0 0 2 0 nil 0) (0 0 3 0 nil 0) (3 0 6 0 nil 0) (6 0 7 0 nil 0) (2 0 7 1 nil 0) (4 0 7 2 nil 0) (7 1 8 0 nil 0) (7 0 9 0 nil 0))) 1 "sopran" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxwithed1 (quote box-with-win) "alt" (quote omloop) (quote ((om-load-inputfun (quote input-funbox) "" "input0" nil))) (om-make-point 1287/5 110) nil nil nil (list (let ((box (om-load-boxcall (quote lispfun) "SECOND" (quote second) (quote ((om-load-inputfun (quote input-funbox) "LIST" "LIST" nil))) (om-make-point 224 126) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "MAT-TRANS" (quote mat-trans) (quote ((om-load-inputfun (quote input-funbox) "a list of lists" "MATRIX" nil))) (om-make-point 40 132) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "CAR" (quote car) (quote ((om-load-inputfun (quote input-funbox) "X" "X" nil))) (om-make-point 246 218) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "CDR" (quote cdr) (quote ((om-load-inputfun (quote input-funbox) "X" "X" nil))) (om-make-point 191 168) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "CONCAT" (quote concat) (quote ((om-load-inputfun (quote input-funbox) "a musical sequence" "S1" nil) (om-load-inputfun (quote input-funbox) "a musical sequence" "S2" nil))) (om-make-point 283 209) nil nil "l" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input0" 0 (om-make-point 5 40) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "inlist" (quote listloop) (quote ((om-load-inputfun (quote input-funbox) "list to iterate" "LIST" nil))) (om-make-point 178 209) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "accum" (quote accumulator) (quote ((om-load-inputfun (quote input-funbox) "items to collect" "DATA" nil) (om-load-inputfun (quote input-funbox) "initial value" "INIT" nil) (om-load-inputfun (quote input-funbox) "accumulation function" "FUN" nil))) (om-make-point 235 302) nil nil nil nil 3))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-seqbox "finally" (quote finaldo) (quote ((om-load-inputfun (quote input-funbox) "value to return" "VAL" nil))) (om-make-point 295 440) nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-seqbox "eachTime" (quote loopdo) (quote ((om-load-inputfun (quote input-funbox) "operations to do" "OP" nil))) (om-make-point 195 440) nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box)) (quote ((1 0 0 0 nil 0) (5 0 1 0 nil 0) (0 0 2 0 nil 0) (0 0 3 0 nil 0) (3 0 6 0 nil 0) (6 0 7 0 nil 0) (2 0 7 1 nil 0) (4 0 7 2 nil 0) (7 1 8 0 nil 0) (7 0 9 0 nil 0))) 1 "alt" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxwithed1 (quote box-with-win) "tenor" (quote omloop) (quote ((om-load-inputfun (quote input-funbox) "" "input0" nil))) (om-make-point 1087/5 110) nil nil nil (list (let ((box (om-load-boxcall (quote lispfun) "THIRD" (quote third) (quote ((om-load-inputfun (quote input-funbox) "LIST" "LIST" nil))) (om-make-point 228 116) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "MAT-TRANS" (quote mat-trans) (quote ((om-load-inputfun (quote input-funbox) "a list of lists" "MATRIX" nil))) (om-make-point 40 132) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "CAR" (quote car) (quote ((om-load-inputfun (quote input-funbox) "X" "X" nil))) (om-make-point 246 218) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "CDR" (quote cdr) (quote ((om-load-inputfun (quote input-funbox) "X" "X" nil))) (om-make-point 191 168) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "CONCAT" (quote concat) (quote ((om-load-inputfun (quote input-funbox) "a musical sequence" "S1" nil) (om-load-inputfun (quote input-funbox) "a musical sequence" "S2" nil))) (om-make-point 283 209) nil nil "l" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input0" 0 (om-make-point 5 40) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "inlist" (quote listloop) (quote ((om-load-inputfun (quote input-funbox) "list to iterate" "LIST" nil))) (om-make-point 178 209) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "accum" (quote accumulator) (quote ((om-load-inputfun (quote input-funbox) "items to collect" "DATA" nil) (om-load-inputfun (quote input-funbox) "initial value" "INIT" nil) (om-load-inputfun (quote input-funbox) "accumulation function" "FUN" nil))) (om-make-point 235 302) nil nil nil nil 3))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-seqbox "finally" (quote finaldo) (quote ((om-load-inputfun (quote input-funbox) "value to return" "VAL" nil))) (om-make-point 295 440) nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-seqbox "eachTime" (quote loopdo) (quote ((om-load-inputfun (quote input-funbox) "operations to do" "OP" nil))) (om-make-point 195 440) nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box)) (quote ((1 0 0 0 nil 0) (5 0 1 0 nil 0) (0 0 2 0 nil 0) (0 0 3 0 nil 0) (3 0 6 0 nil 0) (6 0 7 0 nil 0) (2 0 7 1 nil 0) (4 0 7 2 nil 0) (7 1 8 0 nil 0) (7 0 9 0 nil 0))) 1 "tenor" nil))) (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-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 1047/5 179) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((6 0 0 0 nil 0) (1 0 2 0 nil 0) (1 0 3 0 nil 0) (1 0 4 0 nil 0) (1 0 5 0 nil 0) (3 0 6 0 nil 0) (4 0 6 1 nil 0) (5 0 6 2 nil 0) (2 0 6 3 nil 0))) 6.15 nil "" (om-make-point 200 200) (om-make-point 2062/5 348)) (quote ((om-load-inputfun (quote input-funbox) "" "input" nil))) (om-make-point 419/5 1319/5) nil (list (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (? (((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (7700)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7600)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7500)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7400)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7500)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7400)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7300)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7400)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7300)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7400)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7300)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7200)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 110) 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 (? (((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7100)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7000)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7000)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 110) 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 (? (((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (5600)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (5600)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6200)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6600)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6600)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6200)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (5600)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 110) 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 (? (((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 110) 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))) nil "concat"))) (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 80 195) nil nil "&" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "POLY" (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 132 368) (om-make-point 767 302) (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 (? (((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (7700)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7600)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7500)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7400)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7500)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7400)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7300)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7400)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7300)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7400)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7300)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7200)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 110) 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 (? (((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7100)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7000)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7000)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 110) 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 (? (((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (5600)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (5600)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6200)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6600)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6600)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6200)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (5600)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 110) 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 (? (((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1)) ((3 4) (1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 110) 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)) :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 370 280) 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 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) (quote g) 24 2)) t nil nil 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 101 160) (om-make-point 34 30) 12 "12" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 112 30) (quote "Sopran = instr3") "" (om-make-point 20 400) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 85 30) (quote "Alt = instr2") "" (om-make-point 20 460) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 97 30) (quote "Tenor = instr1") "" (om-make-point 20 520) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 97 30) (quote "Bass = instr0") "" (om-make-point 20 580) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote 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 627 216) (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 4" (quote t) (quote nil) (om-make-point 581 216) (om-make-point 41 30) 100 "100" 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 539 216) (om-make-point 41 30) 110 "110" 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 490 216) (om-make-point 48 30) (list 3 4) "(3 4)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GET-SCORE" (quote get-score) (quote ((om-load-inputfun (quote input-funbox) "the list of harmon-progress" "HARMON-PROGRESS" nil) (om-load-inputkeyword (quote input-keyword) "measure" "measure" (quote :measure) nil nil) (om-load-inputkeyword (quote input-keyword) "tempo" "tempo" (quote :tempo) nil nil) (om-load-inputkeyword (quote input-keyword) "legato" "legato" (quote :legato) nil nil) (om-load-inputkeyword (quote input-keyword) "if true: it will only gives one chord/measure per evaluation (makes sense if you want to merge more than on results in one voice)" "first-chord" (quote :first-chord) nil nil))) (om-make-point 440 257) (om-make-point 217 67) nil nil nil 5))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "harmonies" (om-load-patch-abs1 "harmonies" (quote ((let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 553 339) (om-make-point 102 30) (list 3 (list 100 -100)) "(3 (100 -100))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxout "output" 0 (om-make-point 499 456) (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 5" 4 (om-make-point 712 50) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input 4" 3 (om-make-point 592 50) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input 3" 2 (om-make-point 472 50) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input 2" 1 (om-make-point 352 50) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input" 0 (om-make-point 50 78) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-PROGRESS" (quote harmon-progress) (quote ((om-load-inputfun (quote input-funbox) "" "HARMON-DATABASE" nil) (om-load-inputfun (quote input-funbox) "" "FIRST-CHORD" nil) (om-load-inputkeyword (quote input-keyword) "" "voice-interval0" (quote :voice-interval0) nil nil))) (om-make-point 479 369) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "FIRST" (quote first) (quote ((om-load-inputfun (quote input-funbox) "LIST" "LIST" nil))) (om-make-point 534 309) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LENGTH" (quote length) (quote ((om-load-inputfun (quote input-funbox) "SEQUENCE" "SEQUENCE" nil))) (om-make-point 634 303) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-DATABASE" (quote 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" "INSTR0" nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr1" (quote :instr1) nil 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-make-point 213 233) (om-make-point 604 67) (list (list (list 3600 6400 6700 7200) (list 3700 6500 6800 7300) (list 3800 5400 5700 6200) (list 3800 6600 6900 7400) (list 3900 5500 5800 6300) (list 3900 6700 7000 7500) (list 4000 5600 5900 6400) (list 4100 5700 6000 6500) (list 4200 5800 6100 6600) (list 4300 5900 6200 6700) (list 4400 4800 6300 6800) (list 5600 4800 6300 6800) (list 4400 6000 6300 6800) (list 4400 4800 7500 8000) (list 4500 4900 6400 6900) (list 5700 4900 6400 6900) (list 4500 6100 6400 6900) (list 4500 4900 7600 8100) (list 4600 5000 6500 7000) (list 5800 5000 6500 7000) (list 4600 6200 6500 7000) (list 4700 5100 6600 7100) (list 5900 5100 6600 7100) (list 4700 6300 6600 7100) (list 4800 5200 6700 6000) (list 4800 5200 6700 7200) (list 6000 5200 6700 7200) (list 4800 6400 6700 7200) (list 4900 5300 6800 6100) (list 4900 5300 6800 7300) (list 4900 6500 6800 7300) (list 5000 5400 5700 6200) (list 5000 6600 5700 6200) (list 5000 5400 6900 6200) (list 5000 5400 5700 7400) (list 5000 6600 5700 7400) (list 5000 5400 6900 7400) (list 5000 6600 6900 7400) (list 5100 5500 5800 6300) (list 5100 6700 5800 6300) (list 5100 5500 7000 6300) (list 5100 5500 5800 7500) (list 5100 6700 5800 7500) (list 5100 5500 7000 7500) (list 5100 6700 7000 7500) (list 5200 5600 5900 6400) (list 5200 5600 7100 6400) (list 5200 5600 5900 7600) (list 5200 5600 7100 7600) (list 5300 5700 6000 6500) (list 5300 5700 7200 6500) (list 5300 5700 6000 7700) (list 5300 5700 7200 7700) (list 5400 5800 6100 6600) (list 5400 5800 7300 6600) (list 5400 5800 6100 7800) (list 5400 5800 7300 7800) (list 5500 5900 6200 6700) (list 5500 5900 7400 6700) (list 5500 5900 6200 7900) (list 5500 5900 7400 7900) (list 5600 6000 6300 6800) (list 5600 6000 7500 6800) (list 5600 6000 6300 8000) (list 5600 6000 7500 8000) (list 5700 6100 6400 6900) (list 5700 6100 7600 6900) (list 5700 6100 6400 8100) (list 5700 6100 7600 8100) (list 5800 6200 6500 7000) (list 5800 6200 6500 8200) (list 5900 6300 6600 7100) (list 5900 6300 6600 8300) (list 6000 6400 6700 7200) (list 6000 6400 6700 8400) (list 3600 6400 7200 6700) (list 3700 6500 7300 6800) (list 3800 6600 7400 6900) (list 3900 6700 7500 7000) (list 4100 5700 6500 6000) (list 4200 5800 6600 6100) (list 4300 5900 6700 6200) (list 4400 4800 6800 6300) (list 5600 4800 6800 6300) (list 4400 6000 6800 6300) (list 4500 4900 5700 6400) (list 4500 6100 5700 6400) (list 4500 4900 6900 6400) (list 5700 4900 6900 6400) (list 4500 6100 6900 6400) (list 4500 4900 5700 7600) (list 4600 5000 5800 6500) (list 4600 6200 5800 6500) (list 4600 5000 7000 6500) (list 5800 5000 7000 6500) (list 4600 6200 7000 6500) (list 4600 5000 5800 7700) (list 4700 5100 5900 6600) (list 4700 6300 5900 6600) (list 4700 5100 7100 6600) (list 5900 5100 7100 6600) (list 4700 6300 7100 6600) (list 4700 5100 5900 7800) (list 4800 5200 6000 6700) (list 4800 5200 7200 6700) (list 6000 5200 7200 6700) (list 4800 6400 7200 6700) (list 4800 5200 6000 7900) (list 4900 5300 6100 6800) (list 4900 5300 7300 6800) (list 4900 6500 7300 6800) (list 4900 5300 6100 8000) (list 5000 5400 6200 6900) (list 5000 5400 7400 6900) (list 5000 6600 7400 6900) (list 5000 5400 6200 8100) (list 5100 5500 6300 7000) (list 5100 5500 7500 7000) (list 5100 6700 7500 7000) (list 5100 5500 6300 8200) (list 5200 5600 6400 7100) (list 5200 5600 7600 7100) (list 5200 5600 6400 8300) (list 5300 5700 6500 6000) (list 5300 5700 6500 7200) (list 5300 5700 6500 8400) (list 5400 5800 6600 6100) (list 5400 5800 6600 7300) (list 5500 5900 6700 6200) (list 5500 5900 6700 7400) (list 5600 6000 6800 6300) (list 5600 6000 6800 7500) (list 5700 6100 6900 6400) (list 5700 6100 6900 7600) (list 5800 6200 7000 6500) (list 5800 6200 7000 7700) (list 5900 6300 7100 6600) (list 5900 6300 7100 7800) (list 6000 6400 7200 6700) (list 6000 6400 7200 7900) (list 3600 6700 6400 7200) (list 4100 4800 5700 6500) (list 5300 4800 5700 6500) (list 4100 6000 5700 6500) (list 4100 4800 6900 7700) (list 4200 4900 5800 6600) (list 5400 4900 5800 6600) (list 4200 6100 5800 6600) (list 4200 4900 7000 7800) (list 4300 5000 5900 6700) (list 5500 5000 5900 6700) (list 4300 6200 5900 6700) (list 4300 5000 7100 7900) (list 4400 5100 6000 6800) (list 5600 5100 6000 6800) (list 4400 6300 6000 6800) (list 4400 5100 7200 8000) (list 4500 5200 6100 6900) (list 5700 5200 6100 6900) (list 4500 6400 6100 6900) (list 4500 5200 7300 8100) (list 4600 5300 6200 7000) (list 5800 5300 6200 7000) (list 4600 6500 6200 7000) (list 4600 5300 7400 8200) (list 4700 5400 6300 7100) (list 5900 5400 6300 7100) (list 4700 6600 6300 7100) (list 4700 5400 7500 8300) (list 4800 5500 6400 6000) (list 4800 5500 6400 7200) (list 6000 5500 6400 7200) (list 4800 6700 6400 7200) (list 4800 5500 7600 6000) (list 4800 5500 7600 8400) (list 4900 5600 6500 6100) (list 4900 5600 6500 7300) (list 5000 5700 6600 6200) (list 5000 5700 6600 7400) (list 5100 5800 6700 6300) (list 5100 5800 6700 7500) (list 5200 5900 6800 6400) (list 5200 5900 6800 7600) (list 5300 6000 5700 6500) (list 5300 6000 6900 6500) (list 5300 6000 5700 7700) (list 5300 6000 6900 7700) (list 5400 6100 5800 6600) (list 5400 6100 7000 6600) (list 5400 6100 5800 7800) (list 5400 6100 7000 7800) (list 5500 6200 5900 6700) (list 5500 6200 7100 6700) (list 5500 6200 5900 7900) (list 5500 6200 7100 7900) (list 5600 6300 6000 6800) (list 5600 6300 7200 6800) (list 5600 6300 6000 8000) (list 5600 6300 7200 8000) (list 5700 6400 6100 6900) (list 5700 6400 7300 6900) (list 5700 6400 6100 8100) (list 5700 6400 7300 8100) (list 5800 6500 6200 7000) (list 5800 6500 7400 7000) (list 5800 6500 6200 8200) (list 5800 6500 7400 8200) (list 5900 6600 6300 7100) (list 5900 6600 7500 7100) (list 5900 6600 6300 8300) (list 5900 6600 7500 8300) (list 6000 6700 6400 7200) (list 6000 6700 7600 7200) (list 6000 6700 6400 8400) (list 6000 6700 7600 8400) (list 3600 6700 7200 6400) (list 4400 5100 6800 6000) (list 5600 5100 6800 6000) (list 4400 6300 6800 6000) (list 4500 5200 5700 6100) (list 4500 6400 5700 6100) (list 4500 5200 6900 6100) (list 5700 5200 6900 6100) (list 4500 6400 6900 6100) (list 4500 5200 5700 7300) (list 4600 5300 5800 6200) (list 4600 6500 5800 6200) (list 4600 5300 7000 6200) (list 5800 5300 7000 6200) (list 4600 6500 7000 6200) (list 4600 5300 5800 7400) (list 4700 5400 5900 6300) (list 4700 6600 5900 6300) (list 4700 5400 7100 6300) (list 5900 5400 7100 6300) (list 4700 6600 7100 6300) (list 4700 5400 5900 7500) (list 4800 5500 6000 6400) (list 4800 5500 7200 6400) (list 6000 5500 7200 6400) (list 4800 6700 7200 6400) (list 4800 5500 6000 7600) (list 4900 5600 6100 6500) (list 4900 5600 7300 6500) (list 4900 5600 6100 7700) (list 5000 5700 6200 6600) (list 5000 5700 7400 6600) (list 5000 5700 6200 7800) (list 5100 5800 6300 6700) (list 5100 5800 7500 6700) (list 5100 5800 6300 7900) (list 5200 5900 6400 6800) (list 5200 5900 7600 6800) (list 5200 5900 6400 8000) (list 5300 6000 6500 6900) (list 5300 6000 6500 8100) (list 5400 6100 6600 7000) (list 5400 6100 6600 8200) (list 5500 6200 6700 7100) (list 5500 6200 6700 8300) (list 5600 6300 6800 6000) (list 5600 6300 6800 7200) (list 5600 6300 6800 8400) (list 5700 6400 6900 6100) (list 5700 6400 6900 7300) (list 5800 6500 7000 6200) (list 5800 6500 7000 7400) (list 5900 6600 7100 6300) (list 5900 6600 7100 7500) (list 6000 6700 7200 6400) (list 6000 6700 7200 7600) (list 3600 4800 6400 6700) (list 3700 4900 6500 6800) (list 3800 5000 6600 6900) (list 3900 5100 6700 7000) (list 4000 5200 6800 7100) (list 4100 5300 5700 6000) (list 4100 6500 5700 6000) (list 4100 5300 6900 7200) (list 4200 5400 5800 6100) (list 4200 6600 5800 6100) (list 4200 5400 7000 7300) (list 4300 5500 5900 6200) (list 4300 6700 5900 6200) (list 4300 5500 7100 7400) (list 4400 5600 6000 6300) (list 4400 5600 7200 7500) (list 4500 5700 6100 6400) (list 4500 5700 7300 7600) (list 4600 5800 6200 6500) (list 4600 5800 7400 7700) (list 4700 5900 6300 6600) (list 4700 5900 7500 7800) (list 4800 6000 7600 7900) (list 5300 6500 5700 6000) (list 5300 6500 6900 6000) (list 5300 6500 5700 7200) (list 5300 6500 5700 8400) (list 5400 6600 5800 6100) (list 5400 6600 7000 6100) (list 5400 6600 5800 7300) (list 5500 6700 5900 6200) (list 5500 6700 7100 6200) (list 5500 6700 5900 7400) (list 3600 4800 6700 6400) (list 3700 4900 6800 6500) (list 3800 5000 6900 6600) (list 3900 5100 7000 6700) (list 4000 5200 7100 6800) (list 4100 5300 7200 6900) (list 4200 5400 7300 7000) (list 4300 5500 7400 7100) (list 4400 5600 6300 6000) (list 4400 5600 7500 7200) (list 4500 5700 6400 6100) (list 4500 5700 7600 7300) (list 4600 5800 6500 6200) (list 4700 5900 6600 6300) (list 5000 6200 5700 6600) (list 5000 6200 5700 7800) (list 5100 6300 5800 6700) (list 5100 6300 5800 7900) (list 5200 6400 5900 6800) (list 5200 6400 5900 8000) (list 5300 6500 6000 6900) (list 5300 6500 6000 8100) (list 5400 6600 6100 7000) (list 5400 6600 6100 8200) (list 5500 6700 6200 7100) (list 5500 6700 6200 8300) (list 4000 6000 6700 7200) (list 4100 6100 6800 7300) (list 4200 5000 5700 6200) (list 4200 6200 6900 7400) (list 4300 5100 5800 6300) (list 4300 6300 7000 7500) (list 4400 5200 5900 6400) (list 4400 6400 7100 7600) (list 4500 5300 6000 6500) (list 4500 6500 7200 7700) (list 4600 5400 6100 6600) (list 4600 6600 7300 7800) (list 4700 5500 6200 6700) (list 4700 6700 7400 7900) (list 4800 5600 6300 6800) (list 4900 5700 6400 6900) (list 5000 5800 6500 7000) (list 5100 5900 6600 7100) (list 5200 4800 6700 6000) (list 5200 4800 6700 7200) (list 5200 6000 6700 7200) (list 5300 4900 6800 6100) (list 5300 4900 6800 7300) (list 5300 6100 6800 7300) (list 5400 5000 5700 6200) (list 5400 5000 6900 6200) (list 5400 5000 5700 7400) (list 5400 5000 6900 7400) (list 5400 6200 6900 7400) (list 5500 5100 5800 6300) (list 5500 5100 7000 6300) (list 5500 5100 5800 7500) (list 5500 5100 7000 7500) (list 5500 6300 7000 7500) (list 5600 5200 5900 6400) (list 5600 5200 7100 6400) (list 5600 5200 5900 7600) (list 5600 5200 7100 7600) (list 5600 6400 7100 7600) (list 5700 5300 6000 6500) (list 5700 5300 7200 6500) (list 5700 5300 6000 7700) (list 5700 5300 7200 7700) (list 5700 6500 7200 7700) (list 5800 5400 6100 6600) (list 5800 5400 7300 6600) (list 5800 5400 6100 7800) (list 5800 5400 7300 7800) (list 5800 6600 7300 7800) (list 5900 5500 6200 6700) (list 5900 5500 7400 6700) (list 5900 5500 6200 7900) (list 5900 5500 7400 7900) (list 5900 6700 7400 7900) (list 6000 5600 6300 6800) (list 6000 5600 7500 6800) (list 6000 5600 6300 8000) (list 6000 5600 7500 8000) (list 4000 6000 7200 6700) (list 4100 6100 7300 6800) (list 4200 6200 7400 6900) (list 4300 6300 7500 7000) (list 4400 6400 7600 7100) (list 4500 5300 6500 6000) (list 4600 5400 6600 6100) (list 4700 5500 6700 6200) (list 4800 5600 6800 6300) (list 4900 5700 6900 6400) (list 5000 5800 7000 6500) (list 5100 5900 7100 6600) (list 5200 4800 6000 6700) (list 5200 4800 7200 6700) (list 5200 6000 7200 6700) (list 5200 4800 6000 7900) (list 5300 4900 6100 6800) (list 5300 4900 7300 6800) (list 5300 6100 7300 6800) (list 5300 4900 6100 8000) (list 5400 5000 6200 6900) (list 5400 5000 7400 6900) (list 5400 6200 7400 6900) (list 5400 5000 6200 8100) (list 5500 5100 6300 7000) (list 5500 5100 7500 7000) (list 5500 6300 7500 7000) (list 5500 5100 6300 8200) (list 5600 5200 6400 7100) (list 5600 5200 7600 7100) (list 5600 6400 7600 7100) (list 5600 5200 6400 8300) (list 5700 5300 6500 6000) (list 5700 5300 6500 7200) (list 5700 5300 6500 8400) (list 5800 5400 6600 6100) (list 5800 5400 6600 7300) (list 5900 5500 6700 6200) (list 5900 5500 6700 7400) (list 6000 5600 6800 6300) (list 6000 5600 6800 7500) (list 4000 6700 6000 7200) (list 4500 4800 6500 7700) (list 4600 4900 6600 7800) (list 4700 5000 6700 7900) (list 4800 5100 6800 8000) (list 4900 6400 5700 6900) (list 4900 5200 6900 8100) (list 5000 6500 5800 7000) (list 5000 5300 7000 8200) (list 5100 6600 5900 7100) (list 5100 5400 7100 8300) (list 5200 6700 6000 7200) (list 5200 5500 7200 8400) (list 4000 6700 7200 6000) (list 4900 5200 5700 6900) (list 5000 5300 5800 7000) (list 5100 5400 5900 7100) (list 5200 5500 6000 6000) (list 5200 6700 6000 6000) (list 5200 5500 7200 6000) (list 5200 6700 7200 6000) (list 5200 5500 6000 7200) (list 5300 5600 6100 6100) (list 5300 5600 7300 6100) (list 5300 5600 6100 7300) (list 5400 5700 6200 6200) (list 5400 5700 7400 6200) (list 5400 5700 6200 7400) (list 5500 5800 6300 6300) (list 5500 5800 7500 6300) (list 5500 5800 6300 7500) (list 5600 5900 6400 6400) (list 5600 5900 7600 6400) (list 5600 5900 6400 7600) (list 5700 6000 6500 6500) (list 5700 6000 6500 7700) (list 5800 6100 6600 6600) (list 5800 6100 6600 7800) (list 5900 6200 6700 6700) (list 5900 6200 6700 7900) (list 6000 6300 6800 6800) (list 6000 6300 6800 8000) (list 4000 4800 6000 6700) (list 4100 4900 6100 6800) (list 4200 5000 6200 6900) (list 4300 5100 6300 7000) (list 4400 5200 6400 7100) (list 4500 5300 6500 7200) (list 4600 5400 6600 7300) (list 4700 5500 6700 7400) (list 4800 5600 6800 7500) (list 4900 5700 5700 6400) (list 4900 5700 6900 7600) (list 5000 5800 5800 6500) (list 5000 5800 7000 7700) (list 5100 5900 5900 6600) (list 5100 5900 7100 7800) (list 5200 6000 6000 6700) (list 5200 6000 7200 7900) (list 5300 6100 6100 6800) (list 5300 6100 7300 8000) (list 5400 6200 6200 6900) (list 5400 6200 7400 8100) (list 5500 6300 6300 7000) (list 5500 6300 7500 8200) (list 5600 6400 6400 7100) (list 5600 6400 7600 8300) (list 5700 6500 6500 6000) (list 5700 6500 6500 7200) (list 5800 6600 6600 6100) (list 5800 6600 6600 7300) (list 5900 6700 6700 6200) (list 5900 6700 6700 7400) (list 4000 4800 6700 6000) (list 4100 4900 6800 6100) (list 4200 5000 6900 6200) (list 4300 5100 7000 6300) (list 4400 5200 7100 6400) (list 4500 5300 7200 6500) (list 4600 5400 7300 6600) (list 4700 5500 7400 6700) (list 4800 5600 7500 6800) (list 4900 5700 7600 6900) (list 5200 6000 6700 6000) (list 5300 6100 6800 6100) (list 5400 6200 5700 6200) (list 5400 6200 6900 6200) (list 5400 6200 5700 7400) (list 5500 6300 5800 6300) (list 5500 6300 7000 6300) (list 5500 6300 5800 7500) (list 5600 6400 5900 6400) (list 5600 6400 7100 6400) (list 5600 6400 5900 7600) (list 5700 6500 6000 6500) (list 5700 6500 7200 6500) (list 5700 6500 6000 7700) (list 5800 6600 6100 6600) (list 5800 6600 7300 6600) (list 5800 6600 6100 7800) (list 5900 6700 6200 6700) (list 5900 6700 7400 6700) (list 5900 6700 6200 7900) (list 4300 6000 6400 7200) (list 4400 6100 6500 7300) (list 4500 6200 6600 7400) (list 4600 6300 6700 7500) (list 4700 6400 6800 7600) (list 4800 5300 5700 6500) (list 4800 6500 6900 7700) (list 4900 5400 5800 6600) (list 4900 6600 7000 7800) (list 5000 5500 5900 6700) (list 5000 6700 7100 7900) (list 5100 5600 6000 6800) (list 5200 5700 6100 6900) (list 5300 5800 6200 7000) (list 5400 5900 6300 7100) (list 5500 4800 6400 6000) (list 5500 4800 6400 7200) (list 5500 6000 6400 7200) (list 5500 4800 7600 6000) (list 5500 4800 7600 8400) (list 5600 4900 6500 6100) (list 5600 4900 6500 7300) (list 5600 6100 6500 7300) (list 5700 5000 6600 6200) (list 5700 5000 6600 7400) (list 5700 6200 6600 7400) (list 5800 5100 6700 6300) (list 5800 5100 6700 7500) (list 5800 6300 6700 7500) (list 5900 5200 6800 6400) (list 5900 5200 6800 7600) (list 5900 6400 6800 7600) (list 6000 5300 5700 6500) (list 6000 5300 6900 6500) (list 6000 5300 5700 7700) (list 6000 5300 6900 7700) (list 6000 6500 6900 7700) (list 4300 6000 7200 6400) (list 4400 6100 7300 6500) (list 4500 6200 7400 6600) (list 4600 6300 7500 6700) (list 4700 6400 7600 6800) (list 5100 5600 6800 6000) (list 5200 5700 6900 6100) (list 5300 5800 7000 6200) (list 5400 5900 7100 6300) (list 5500 4800 6000 6400) (list 5500 4800 7200 6400) (list 5500 6000 7200 6400) (list 5500 4800 6000 7600) (list 5600 4900 6100 6500) (list 5600 4900 7300 6500) (list 5600 6100 7300 6500) (list 5600 4900 6100 7700) (list 5700 5000 6200 6600) (list 5700 5000 7400 6600) (list 5700 6200 7400 6600) (list 5700 5000 6200 7800) (list 5800 5100 6300 6700) (list 5800 5100 7500 6700) (list 5800 6300 7500 6700) (list 5800 5100 6300 7900) (list 5900 5200 6400 6800) (list 5900 5200 7600 6800) (list 5900 6400 7600 6800) (list 5900 5200 6400 8000) (list 6000 5300 6500 6900) (list 6000 5300 6500 8100) (list 4300 6400 6000 7200) (list 4400 6500 6100 7300) (list 4500 6600 6200 7400) (list 4600 6700 6300 7500) (list 5100 4800 6800 8000) (list 5200 6100 5700 6900) (list 5200 4900 6900 8100) (list 5300 6200 5800 7000) (list 5300 5000 7000 8200) (list 5400 6300 5900 7100) (list 5400 5100 7100 8300) (list 5500 6400 6000 7200) (list 5500 5200 7200 8400) (list 5600 6500 6100 7300) (list 5700 6600 6200 7400) (list 5800 6700 6300 7500) (list 4300 6400 7200 6000) (list 4400 6500 7300 6100) (list 4500 6600 7400 6200) (list 4600 6700 7500 6300) (list 5200 4900 5700 6900) (list 5300 5000 5800 7000) (list 5400 5100 5900 7100) (list 5500 5200 6000 6000) (list 5500 6400 6000 6000) (list 5500 5200 7200 6000) (list 5500 6400 7200 6000) (list 5500 5200 6000 7200) (list 5600 5300 6100 6100) (list 5600 6500 6100 6100) (list 5600 5300 7300 6100) (list 5600 6500 7300 6100) (list 5600 5300 6100 7300) (list 5700 5400 6200 6200) (list 5700 6600 6200 6200) (list 5700 5400 7400 6200) (list 5700 6600 7400 6200) (list 5700 5400 6200 7400) (list 5800 5500 6300 6300) (list 5800 6700 6300 6300) (list 5800 5500 7500 6300) (list 5800 6700 7500 6300) (list 5800 5500 6300 7500) (list 5900 5600 6400 6400) (list 5900 5600 7600 6400) (list 5900 5600 6400 7600) (list 6000 5700 6500 6500) (list 6000 5700 6500 7700) (list 4300 4800 6000 6400) (list 4400 4900 6100 6500) (list 4500 5000 6200 6600) (list 4600 5100 6300 6700) (list 4700 5200 6400 6800) (list 4800 5300 6500 6900) (list 4900 5400 6600 7000) (list 5000 5500 6700 7100) (list 5100 5600 6800 7200) (list 5200 5700 5700 6100) (list 5200 5700 6900 7300) (list 5300 5800 5800 6200) (list 5300 5800 7000 7400) (list 5400 5900 5900 6300) (list 5400 5900 7100 7500) (list 5500 6000 6000 6400) (list 5500 6000 7200 7600) (list 5600 6100 6100 6500) (list 5600 6100 7300 7700) (list 5700 6200 6200 6600) (list 5700 6200 7400 7800) (list 5800 6300 6300 6700) (list 5800 6300 7500 7900) (list 5900 6400 6400 6800) (list 5900 6400 7600 8000) (list 6000 6500 6500 6900) (list 4300 4800 6400 6000) (list 4400 4900 6500 6100) (list 4500 5000 6600 6200) (list 4600 5100 6700 6300) (list 4700 5200 6800 6400) (list 4800 5300 6900 6500) (list 4900 5400 7000 6600) (list 5000 5500 7100 6700) (list 5100 5600 7200 6800) (list 5200 5700 7300 6900) (list 5300 5800 7400 7000) (list 5400 5900 7500 7100) (list 5500 6000 6400 6000) (list 5500 6000 7600 7200) (list 5600 6100 6500 6100) (list 5700 6200 6600 6200) (list 5800 6300 6700 6300) (list 5900 6400 6800 6400) (list 6000 6500 5700 6500) (list 6000 6500 6900 6500) (list 6000 6500 5700 7700) (list 4800 6000 6400 6700) (list 4900 6100 6500 6800) (list 5000 6200 6600 6900) (list 5100 6300 6700 7000) (list 5200 6400 6800 7100) (list 5300 5300 5700 6000) (list 5300 6500 6900 7200) (list 5400 5400 5800 6100) (list 5400 6600 7000 7300) (list 5500 5500 5900 6200) (list 5500 6700 7100 7400) (list 5600 5600 6000 6300) (list 5700 5700 6100 6400) (list 5800 5800 6200 6500) (list 5900 5900 6300 6600) (list 6000 4800 6400 6700) (list 6000 6000 6400 6700) (list 6000 4800 7600 7900) (list 4800 6000 6700 6400) (list 4900 6100 6800 6500) (list 5000 6200 6900 6600) (list 5100 6300 7000 6700) (list 5200 6400 7100 6800) (list 5300 6500 7200 6900) (list 5400 6600 7300 7000) (list 5500 6700 7400 7100) (list 5600 5600 6300 6000) (list 5700 5700 6400 6100) (list 5800 5800 6500 6200) (list 5900 5900 6600 6300) (list 6000 4800 6700 6400) (list 6000 6000 6700 6400) (list 4800 6400 6000 6700) (list 4900 6500 6100 6800) (list 5000 6600 6200 6900) (list 5100 6700 6300 7000) (list 5600 4800 6800 7500) (list 5700 4900 5700 6400) (list 5700 6100 5700 6400) (list 5700 4900 6900 7600) (list 5800 5000 5800 6500) (list 5800 6200 5800 6500) (list 5800 5000 7000 7700) (list 5900 5100 5900 6600) (list 5900 6300 5900 6600) (list 5900 5100 7100 7800) (list 6000 5200 6000 6700) (list 6000 6400 6000 6700) (list 6000 5200 7200 7900) (list 4800 6400 6700 6000) (list 4900 6500 6800 6100) (list 5000 6600 6900 6200) (list 5100 6700 7000 6300) (list 5600 4800 7500 6800) (list 5700 4900 7600 6900) (list 6000 5200 6700 6000) (list 6000 6400 6700 6000) (list 4800 6700 6000 6400) (list 5300 4800 6500 6900) (list 5400 4900 6600 7000) (list 5500 5000 6700 7100) (list 5600 5100 6800 7200) (list 5700 5200 5700 6100) (list 5700 6400 5700 6100) (list 5700 5200 6900 7300) (list 5800 5300 5800 6200) (list 5800 6500 5800 6200) (list 5800 5300 7000 7400) (list 5900 5400 5900 6300) (list 5900 6600 5900 6300) (list 5900 5400 7100 7500) (list 6000 5500 6000 6400) (list 6000 6700 6000 6400) (list 6000 5500 7200 7600) (list 4800 6700 6400 6000) (list 5300 4800 6900 6500) (list 5400 4900 7000 6600) (list 5500 5000 7100 6700) (list 5600 5100 7200 6800) (list 5700 5200 7300 6900) (list 5800 5300 7400 7000) (list 5900 5400 7500 7100) (list 6000 5500 6400 6000) (list 6000 6700 6400 6000) (list 6000 5500 7600 7200) (list 3600 6300 6700 7200) (list 3700 6400 6800 7300) (list 3800 5300 5700 6200) (list 3800 6500 6900 7400) (list 3900 5400 5800 6300) (list 3900 6600 7000 7500) (list 4000 5500 5900 6400) (list 4000 6700 7100 7600) (list 4100 5600 6000 6500) (list 4200 5700 6100 6600) (list 4300 5800 6200 6700) (list 4400 5900 6300 6800) (list 4500 4800 6400 6900) (list 5700 4800 6400 6900) (list 4500 6000 6400 6900) (list 4500 4800 7600 8100) (list 4600 4900 6500 7000) (list 5800 4900 6500 7000) (list 4600 6100 6500 7000) (list 4700 5000 6600 7100) (list 5900 5000 6600 7100) (list 4700 6200 6600 7100) (list 4800 5100 6700 6000) (list 4800 5100 6700 7200) (list 6000 5100 6700 7200) (list 4800 6300 6700 7200) (list 4900 5200 6800 6100) (list 4900 5200 6800 7300) (list 4900 6400 6800 7300) (list 5000 5300 5700 6200) (list 5000 6500 5700 6200) (list 5000 5300 6900 6200) (list 5000 5300 5700 7400) (list 5000 6500 5700 7400) (list 5000 5300 6900 7400) (list 5000 6500 6900 7400) (list 5100 5400 5800 6300) (list 5100 6600 5800 6300) (list 5100 5400 7000 6300) (list 5100 5400 5800 7500) (list 5100 6600 5800 7500) (list 5100 5400 7000 7500) (list 5100 6600 7000 7500) (list 5200 5500 5900 6400) (list 5200 6700 5900 6400) (list 5200 5500 7100 6400) (list 5200 5500 5900 7600) (list 5200 6700 5900 7600) (list 5200 5500 7100 7600) (list 5200 6700 7100 7600) (list 5300 5600 6000 6500) (list 5300 5600 7200 6500) (list 5300 5600 6000 7700) (list 5300 5600 7200 7700) (list 5400 5700 6100 6600) (list 5400 5700 7300 6600) (list 5400 5700 6100 7800) (list 5400 5700 7300 7800) (list 5500 5800 6200 6700) (list 5500 5800 7400 6700) (list 5500 5800 6200 7900) (list 5500 5800 7400 7900) (list 5600 5900 6300 6800) (list 5600 5900 7500 6800) (list 5600 5900 6300 8000) (list 5600 5900 7500 8000) (list 5700 6000 6400 6900) (list 5700 6000 7600 6900) (list 5700 6000 6400 8100) (list 5700 6000 7600 8100) (list 5800 6100 6500 7000) (list 5800 6100 6500 8200) (list 5900 6200 6600 7100) (list 5900 6200 6600 8300) (list 6000 6300 6700 7200) (list 6000 6300 6700 8400) (list 3600 6300 7200 6700) (list 3700 6400 7300 6800) (list 3800 6500 7400 6900) (list 3900 6600 7500 7000) (list 4000 6700 7600 7100) (list 4100 5600 6500 6000) (list 4200 5700 6600 6100) (list 4300 5800 6700 6200) (list 4400 5900 6800 6300) (list 4500 4800 5700 6400) (list 4500 6000 5700 6400) (list 4500 4800 6900 6400) (list 5700 4800 6900 6400) (list 4500 6000 6900 6400) (list 4500 4800 5700 7600) (list 4600 4900 5800 6500) (list 4600 6100 5800 6500) (list 4600 4900 7000 6500) (list 5800 4900 7000 6500) (list 4600 6100 7000 6500) (list 4600 4900 5800 7700) (list 4700 5000 5900 6600) (list 4700 6200 5900 6600) (list 4700 5000 7100 6600) (list 5900 5000 7100 6600) (list 4700 6200 7100 6600) (list 4700 5000 5900 7800) (list 4800 5100 6000 6700) (list 4800 5100 7200 6700) (list 6000 5100 7200 6700) (list 4800 6300 7200 6700) (list 4800 5100 6000 7900) (list 4900 5200 6100 6800) (list 4900 5200 7300 6800) (list 4900 6400 7300 6800) (list 4900 5200 6100 8000) (list 5000 5300 6200 6900) (list 5000 5300 7400 6900) (list 5000 6500 7400 6900) (list 5000 5300 6200 8100) (list 5100 5400 6300 7000) (list 5100 5400 7500 7000) (list 5100 6600 7500 7000) (list 5100 5400 6300 8200) (list 5200 5500 6400 7100) (list 5200 5500 7600 7100) (list 5200 6700 7600 7100) (list 5200 5500 6400 8300) (list 5300 5600 6500 6000) (list 5300 5600 6500 7200) (list 5300 5600 6500 8400) (list 5400 5700 6600 6100) (list 5400 5700 6600 7300) (list 5500 5800 6700 6200) (list 5500 5800 6700 7400) (list 5600 5900 6800 6300) (list 5600 5900 6800 7500) (list 5700 6000 6900 6400) (list 5700 6000 6900 7600) (list 5800 6100 7000 6500) (list 5800 6100 7000 7700) (list 5900 6200 7100 6600) (list 5900 6200 7100 7800) (list 6000 6300 7200 6700) (list 6000 6300 7200 7900) (list 3600 6700 6300 7200) (list 4100 4800 6800 7700) (list 4200 4900 5700 6600) (list 5400 4900 5700 6600) (list 4200 6100 5700 6600) (list 4200 4900 6900 7800) (list 4300 5000 5800 6700) (list 5500 5000 5800 6700) (list 4300 6200 5800 6700) (list 4300 5000 7000 7900) (list 4400 5100 5900 6800) (list 5600 5100 5900 6800) (list 4400 6300 5900 6800) (list 4400 5100 7100 8000) (list 4500 5200 6000 6900) (list 5700 5200 6000 6900) (list 4500 6400 6000 6900) (list 4500 5200 7200 8100) (list 4600 5300 6100 7000) (list 5800 5300 6100 7000) (list 4600 6500 6100 7000) (list 4600 5300 7300 8200) (list 4700 5400 6200 7100) (list 5900 5400 6200 7100) (list 4700 6600 6200 7100) (list 4700 5400 7400 8300) (list 4800 5500 6300 6000) (list 4800 5500 6300 7200) (list 6000 5500 6300 7200) (list 4800 6700 6300 7200) (list 4800 5500 7500 6000) (list 4800 5500 7500 8400) (list 4900 5600 6400 6100) (list 4900 5600 6400 7300) (list 4900 5600 7600 6100) (list 5000 5700 6500 6200) (list 5000 5700 6500 7400) (list 5100 5800 6600 6300) (list 5100 5800 6600 7500) (list 5200 5900 6700 6400) (list 5200 5900 6700 7600) (list 5300 6000 6800 6500) (list 5300 6000 6800 7700) (list 5400 6100 5700 6600) (list 5400 6100 6900 6600) (list 5400 6100 5700 7800) (list 5400 6100 6900 7800) (list 5500 6200 5800 6700) (list 5500 6200 7000 6700) (list 5500 6200 5800 7900) (list 5500 6200 7000 7900) (list 5600 6300 5900 6800) (list 5600 6300 7100 6800) (list 5600 6300 5900 8000) (list 5600 6300 7100 8000) (list 5700 6400 6000 6900) (list 5700 6400 7200 6900) (list 5700 6400 6000 8100) (list 5700 6400 7200 8100) (list 5800 6500 6100 7000) (list 5800 6500 7300 7000) (list 5800 6500 6100 8200) (list 5800 6500 7300 8200) (list 5900 6600 6200 7100) (list 5900 6600 7400 7100) (list 5900 6600 6200 8300) (list 5900 6600 7400 8300) (list 6000 6700 6300 7200) (list 6000 6700 7500 7200) (list 6000 6700 6300 8400) (list 6000 6700 7500 8400) (list 3600 6700 7200 6300) (list 4500 5200 5700 6000) (list 4500 6400 5700 6000) (list 4500 5200 6900 6000) (list 5700 5200 6900 6000) (list 4500 6400 6900 6000) (list 4500 5200 5700 7200) (list 4600 5300 5800 6100) (list 4600 6500 5800 6100) (list 4600 5300 7000 6100) (list 5800 5300 7000 6100) (list 4600 6500 7000 6100) (list 4600 5300 5800 7300) (list 4700 5400 5900 6200) (list 4700 6600 5900 6200) (list 4700 5400 7100 6200) (list 5900 5400 7100 6200) (list 4700 6600 7100 6200) (list 4700 5400 5900 7400) (list 4800 5500 6000 6300) (list 4800 5500 7200 6300) (list 6000 5500 7200 6300) (list 4800 6700 7200 6300) (list 4800 5500 6000 7500) (list 4900 5600 6100 6400) (list 4900 5600 7300 6400) (list 4900 5600 6100 7600) (list 5000 5700 6200 6500) (list 5000 5700 7400 6500) (list 5000 5700 6200 7700) (list 5100 5800 6300 6600) (list 5100 5800 7500 6600) (list 5100 5800 6300 7800) (list 5200 5900 6400 6700) (list 5200 5900 7600 6700) (list 5200 5900 6400 7900) (list 5300 6000 6500 6800) (list 5300 6000 6500 8000) (list 5400 6100 6600 6900) (list 5400 6100 6600 8100) (list 5500 6200 6700 7000) (list 5500 6200 6700 8200) (list 5600 6300 6800 7100) (list 5600 6300 6800 8300) (list 5700 6400 6900 6000) (list 5700 6400 6900 7200) (list 5700 6400 6900 8400) (list 5800 6500 7000 6100) (list 5800 6500 7000 7300) (list 5900 6600 7100 6200) (list 5900 6600 7100 7400) (list 6000 6700 7200 6300) (list 6000 6700 7200 7500) (list 3600 4800 6300 6700) (list 3700 4900 6400 6800) (list 3800 5000 6500 6900) (list 3900 5100 6600 7000) (list 4000 5200 6700 7100) (list 4100 5300 6800 7200) (list 4200 5400 5700 6100) (list 4200 6600 5700 6100) (list 4200 5400 6900 7300) (list 4300 5500 5800 6200) (list 4300 6700 5800 6200) (list 4300 5500 7000 7400) (list 4400 5600 5900 6300) (list 4400 5600 7100 7500) (list 4500 5700 6000 6400) (list 4500 5700 7200 7600) (list 4600 5800 6100 6500) (list 4600 5800 7300 7700) (list 4700 5900 6200 6600) (list 4700 5900 7400 7800) (list 4800 6000 7500 7900) (list 4900 6100 7600 8000) (list 5300 6500 6800 6000) (list 5400 6600 5700 6100) (list 5400 6600 6900 6100) (list 5400 6600 5700 7300) (list 5500 6700 5800 6200) (list 5500 6700 7000 6200) (list 5500 6700 5800 7400) (list 3600 4800 6700 6300) (list 3700 4900 6800 6400) (list 3800 5000 6900 6500) (list 3900 5100 7000 6600) (list 4000 5200 7100 6700) (list 4100 5300 7200 6800) (list 4200 5400 7300 6900) (list 4300 5500 7400 7000) (list 4400 5600 7500 7100) (list 4500 5700 6400 6000) (list 4500 5700 7600 7200) (list 4600 5800 6500 6100) (list 4700 5900 6600 6200) (list 5000 6200 5700 6500) (list 5000 6200 5700 7700) (list 5100 6300 5800 6600) (list 5100 6300 5800 7800) (list 5200 6400 5900 6700) (list 5200 6400 5900 7900) (list 5300 6500 6000 6800) (list 5300 6500 6000 8000) (list 5400 6600 6100 6900) (list 5400 6600 6100 8100) (list 5500 6700 6200 7000) (list 5500 6700 6200 8200) (list 3900 6000 6700 7200) (list 4000 6100 6800 7300) (list 4100 5000 5700 6200) (list 4100 6200 6900 7400) (list 4200 5100 5800 6300) (list 4200 6300 7000 7500) (list 4300 5200 5900 6400) (list 4300 6400 7100 7600) (list 4400 5300 6000 6500) (list 4400 6500 7200 7700) (list 4500 5400 6100 6600) (list 4500 6600 7300 7800) (list 4600 5500 6200 6700) (list 4600 6700 7400 7900) (list 4700 5600 6300 6800) (list 4800 5700 6400 6900) (list 4900 5800 6500 7000) (list 5000 5900 6600 7100) (list 5100 4800 6700 6000) (list 5100 4800 6700 7200) (list 5100 6000 6700 7200) (list 5200 4900 6800 6100) (list 5200 4900 6800 7300) (list 5200 6100 6800 7300) (list 5300 5000 5700 6200) (list 5300 5000 6900 6200) (list 5300 5000 5700 7400) (list 5300 5000 6900 7400) (list 5300 6200 6900 7400) (list 5400 5100 5800 6300) (list 5400 5100 7000 6300) (list 5400 5100 5800 7500) (list 5400 5100 7000 7500) (list 5400 6300 7000 7500) (list 5500 5200 5900 6400) (list 5500 5200 7100 6400) (list 5500 5200 5900 7600) (list 5500 5200 7100 7600) (list 5500 6400 7100 7600) (list 5600 5300 6000 6500) (list 5600 5300 7200 6500) (list 5600 5300 6000 7700) (list 5600 5300 7200 7700) (list 5600 6500 7200 7700) (list 5700 5400 6100 6600) (list 5700 5400 7300 6600) (list 5700 5400 6100 7800) (list 5700 5400 7300 7800) (list 5700 6600 7300 7800) (list 5800 5500 6200 6700) (list 5800 5500 7400 6700) (list 5800 5500 6200 7900) (list 5800 5500 7400 7900) (list 5800 6700 7400 7900) (list 5900 5600 6300 6800) (list 5900 5600 7500 6800) (list 5900 5600 6300 8000) (list 5900 5600 7500 8000) (list 6000 5700 6400 6900) (list 6000 5700 7600 6900) (list 6000 5700 6400 8100) (list 6000 5700 7600 8100) (list 3900 6000 7200 6700) (list 4000 6100 7300 6800) (list 4100 6200 7400 6900) (list 4200 6300 7500 7000) (list 4300 6400 7600 7100) (list 4400 5300 6500 6000) (list 4500 5400 6600 6100) (list 4600 5500 6700 6200) (list 4700 5600 6800 6300) (list 4800 5700 6900 6400) (list 4900 5800 7000 6500) (list 5000 5900 7100 6600) (list 5100 4800 6000 6700) (list 5100 4800 7200 6700) (list 5100 6000 7200 6700) (list 5100 4800 6000 7900) (list 5200 4900 6100 6800) (list 5200 4900 7300 6800) (list 5200 6100 7300 6800) (list 5200 4900 6100 8000) (list 5300 5000 6200 6900) (list 5300 5000 7400 6900) (list 5300 6200 7400 6900) (list 5300 5000 6200 8100) (list 5400 5100 6300 7000) (list 5400 5100 7500 7000) (list 5400 6300 7500 7000) (list 5400 5100 6300 8200) (list 5500 5200 6400 7100) (list 5500 5200 7600 7100) (list 5500 6400 7600 7100) (list 5500 5200 6400 8300) (list 5600 5300 6500 6000) (list 5600 5300 6500 7200) (list 5600 5300 6500 8400) (list 5700 5400 6600 6100) (list 5700 5400 6600 7300) (list 5800 5500 6700 6200) (list 5800 5500 6700 7400) (list 5900 5600 6800 6300) (list 5900 5600 6800 7500) (list 6000 5700 6900 6400) (list 6000 5700 6900 7600) (list 3900 6700 6000 7200) (list 4400 4800 6500 7700) (list 4500 4900 6600 7800) (list 4600 5000 6700 7900) (list 4700 5100 6800 8000) (list 6000 5200 5700 6900) (list 4800 6400 5700 6900) (list 4800 5200 6900 8100) (list 4900 6500 5800 7000) (list 4900 5300 7000 8200) (list 5000 6600 5900 7100) (list 5000 5400 7100 8300) (list 5100 6700 6000 7200) (list 5100 5500 7200 8400) (list 6000 6400 5700 6900) (list 6000 6400 5700 8100) (list 3900 6700 7200 6000) (list 4800 5200 5700 6900) (list 4900 5300 5800 7000) (list 5000 5400 5900 7100) (list 5100 5500 6000 6000) (list 5100 6700 6000 6000) (list 5100 5500 7200 6000) (list 5100 6700 7200 6000) (list 5100 5500 6000 7200) (list 5200 5600 6100 6100) (list 5200 5600 7300 6100) (list 5200 5600 6100 7300) (list 5300 5700 6200 6200) (list 5300 5700 7400 6200) (list 5300 5700 6200 7400) (list 5400 5800 6300 6300) (list 5400 5800 7500 6300) (list 5400 5800 6300 7500) (list 5500 5900 6400 6400) (list 5500 5900 7600 6400) (list 5500 5900 6400 7600) (list 5600 6000 6500 6500) (list 5600 6000 6500 7700) (list 5700 6100 6600 6600) (list 5700 6100 6600 7800) (list 5800 6200 6700 6700) (list 5800 6200 6700 7900) (list 5900 6300 6800 6800) (list 5900 6300 6800 8000) (list 6000 6400 6900 6900) (list 6000 6400 6900 8100) (list 3900 4800 6000 6700) (list 4000 4900 6100 6800) (list 4100 5000 6200 6900) (list 4200 5100 6300 7000) (list 4300 5200 6400 7100) (list 4400 5300 6500 7200) (list 4500 5400 6600 7300) (list 4600 5500 6700 7400) (list 4700 5600 6800 7500) (list 4800 5700 5700 6400) (list 6000 5700 5700 6400) (list 4800 5700 6900 7600) (list 4900 5800 5800 6500) (list 4900 5800 7000 7700) (list 5000 5900 5900 6600) (list 5000 5900 7100 7800) (list 5100 6000 6000 6700) (list 5100 6000 7200 7900) (list 5200 6100 6100 6800) (list 5200 6100 7300 8000) (list 5300 6200 6200 6900) (list 5300 6200 7400 8100) (list 5400 6300 6300 7000) (list 5400 6300 7500 8200) (list 5500 6400 6400 7100) (list 5500 6400 7600 8300) (list 5600 6500 6500 6000) (list 5600 6500 6500 7200) (list 5700 6600 6600 6100) (list 5700 6600 6600 7300) (list 5800 6700 6700 6200) (list 5800 6700 6700 7400) (list 3900 4800 6700 6000) (list 4000 4900 6800 6100) (list 4100 5000 6900 6200) (list 4200 5100 7000 6300) (list 4300 5200 7100 6400) (list 4400 5300 7200 6500) (list 4500 5400 7300 6600) (list 4600 5500 7400 6700) (list 4700 5600 7500 6800) (list 4800 5700 7600 6900) (list 5100 6000 6700 6000) (list 5200 6100 6800 6100) (list 5300 6200 5700 6200) (list 5300 6200 6900 6200) (list 5300 6200 5700 7400) (list 5400 6300 5800 6300) (list 5400 6300 7000 6300) (list 5400 6300 5800 7500) (list 5500 6400 5900 6400) (list 5500 6400 7100 6400) (list 5500 6400 5900 7600) (list 5600 6500 6000 6500) (list 5600 6500 7200 6500) (list 5600 6500 6000 7700) (list 5700 6600 6100 6600) (list 5700 6600 7300 6600) (list 5700 6600 6100 7800) (list 5800 6700 6200 6700) (list 5800 6700 7400 6700) (list 5800 6700 6200 7900) (list 4300 6000 6300 7200) (list 4400 6100 6400 7300) (list 4500 6200 6500 7400) (list 4600 6300 6600 7500) (list 4700 6400 6700 7600) (list 4800 6500 6800 7700) (list 4900 5400 5700 6600) (list 4900 6600 6900 7800) (list 5000 5500 5800 6700) (list 5000 6700 7000 7900) (list 5100 5600 5900 6800) (list 5200 5700 6000 6900) (list 5300 5800 6100 7000) (list 5400 5900 6200 7100) (list 5500 4800 6300 6000) (list 5500 4800 6300 7200) (list 5500 6000 6300 7200) (list 5500 4800 7500 6000) (list 5500 4800 7500 8400) (list 5600 4900 6400 6100) (list 5600 4900 6400 7300) (list 5600 6100 6400 7300) (list 5600 4900 7600 6100) (list 5700 5000 6500 6200) (list 5700 5000 6500 7400) (list 5700 6200 6500 7400) (list 5800 5100 6600 6300) (list 5800 5100 6600 7500) (list 5800 6300 6600 7500) (list 5900 5200 6700 6400) (list 5900 5200 6700 7600) (list 5900 6400 6700 7600) (list 6000 5300 6800 6500) (list 6000 5300 6800 7700) (list 6000 6500 6800 7700) (list 4300 6000 7200 6300) (list 4400 6100 7300 6400) (list 4500 6200 7400 6500) (list 4600 6300 7500 6600) (list 4700 6400 7600 6700) (list 5200 5700 6900 6000) (list 5300 5800 7000 6100) (list 5400 5900 7100 6200) (list 5500 4800 6000 6300) (list 5500 4800 7200 6300) (list 5500 6000 7200 6300) (list 5500 4800 6000 7500) (list 5600 4900 6100 6400) (list 5600 4900 7300 6400) (list 5600 6100 7300 6400) (list 5600 4900 6100 7600) (list 5700 5000 6200 6500) (list 5700 5000 7400 6500) (list 5700 6200 7400 6500) (list 5700 5000 6200 7700) (list 5800 5100 6300 6600) (list 5800 5100 7500 6600) (list 5800 6300 7500 6600) (list 5800 5100 6300 7800) (list 5900 5200 6400 6700) (list 5900 5200 7600 6700) (list 5900 6400 7600 6700) (list 5900 5200 6400 7900) (list 6000 5300 6500 6800) (list 6000 5300 6500 8000) (list 4300 6300 6000 7200) (list 4400 6400 6100 7300) (list 4500 6500 6200 7400) (list 4600 6600 6300 7500) (list 4700 6700 6400 7600) (list 5200 6000 5700 6900) (list 5200 4800 6900 8100) (list 5300 6100 5800 7000) (list 5300 4900 7000 8200) (list 5400 6200 5900 7100) (list 5400 5000 7100 8300) (list 5500 6300 6000 7200) (list 5500 5100 7200 8400) (list 5600 6400 6100 7300) (list 5700 6500 6200 7400) (list 5800 6600 6300 7500) (list 5900 6700 6400 7600) (list 4300 6300 7200 6000) (list 4400 6400 7300 6100) (list 4500 6500 7400 6200) (list 4600 6600 7500 6300) (list 4700 6700 7600 6400) (list 5200 4800 5700 6900) (list 5300 4900 5800 7000) (list 5400 5000 5900 7100) (list 5500 5100 6000 6000) (list 5500 6300 6000 6000) (list 5500 5100 7200 6000) (list 5500 6300 7200 6000) (list 5500 5100 6000 7200) (list 5600 5200 6100 6100) (list 5600 6400 6100 6100) (list 5600 5200 7300 6100) (list 5600 6400 7300 6100) (list 5600 5200 6100 7300) (list 5700 5300 6200 6200) (list 5700 6500 6200 6200) (list 5700 5300 7400 6200) (list 5700 6500 7400 6200) (list 5700 5300 6200 7400) (list 5800 5400 6300 6300) (list 5800 6600 6300 6300) (list 5800 5400 7500 6300) (list 5800 6600 7500 6300) (list 5800 5400 6300 7500) (list 5900 5500 6400 6400) (list 5900 6700 6400 6400) (list 5900 5500 7600 6400) (list 5900 6700 7600 6400) (list 5900 5500 6400 7600) (list 6000 5600 6500 6500) (list 6000 5600 6500 7700) (list 4300 4800 6000 6300) (list 4400 4900 6100 6400) (list 4500 5000 6200 6500) (list 4600 5100 6300 6600) (list 4700 5200 6400 6700) (list 4800 5300 6500 6800) (list 4900 5400 6600 6900) (list 5000 5500 6700 7000) (list 5100 5600 6800 7100) (list 5200 5700 5700 6000) (list 5200 5700 6900 7200) (list 5300 5800 5800 6100) (list 5300 5800 7000 7300) (list 5400 5900 5900 6200) (list 5400 5900 7100 7400) (list 5500 6000 6000 6300) (list 5500 6000 7200 7500) (list 5600 6100 6100 6400) (list 5600 6100 7300 7600) (list 5700 6200 6200 6500) (list 5700 6200 7400 7700) (list 5800 6300 6300 6600) (list 5800 6300 7500 7800) (list 5900 6400 6400 6700) (list 5900 6400 7600 7900) (list 6000 6500 6500 6800) (list 4300 4800 6300 6000) (list 4400 4900 6400 6100) (list 4500 5000 6500 6200) (list 4600 5100 6600 6300) (list 4700 5200 6700 6400) (list 4800 5300 6800 6500) (list 4900 5400 6900 6600) (list 5000 5500 7000 6700) (list 5100 5600 7100 6800) (list 5200 5700 7200 6900) (list 5300 5800 7300 7000) (list 5400 5900 7400 7100) (list 5500 6000 6300 6000) (list 5500 6000 7500 7200) (list 5600 6100 6400 6100) (list 5600 6100 7600 7300) (list 5700 6200 6500 6200) (list 5800 6300 6600 6300) (list 5900 6400 6700 6400) (list 6000 6500 6800 6500) (list 4800 6000 6300 6700) (list 4900 6100 6400 6800) (list 5000 6200 6500 6900) (list 5100 6300 6600 7000) (list 5200 6400 6700 7100) (list 5300 6500 6800 7200) (list 5400 5400 5700 6100) (list 5400 6600 6900 7300) (list 5500 5500 5800 6200) (list 5500 6700 7000 7400) (list 5600 5600 5900 6300) (list 5700 5700 6000 6400) (list 5800 5800 6100 6500) (list 5900 5900 6200 6600) (list 6000 4800 6300 6700) (list 6000 6000 6300 6700) (list 6000 4800 7500 7900) (list 4800 6000 6700 6300) (list 4900 6100 6800 6400) (list 5000 6200 6900 6500) (list 5100 6300 7000 6600) (list 5200 6400 7100 6700) (list 5300 6500 7200 6800) (list 5400 6600 7300 6900) (list 5500 6700 7400 7000) (list 5700 5700 6400 6000) (list 5800 5800 6500 6100) (list 5900 5900 6600 6200) (list 6000 4800 6700 6300) (list 6000 6000 6700 6300) (list 4800 6300 6000 6700) (list 4900 6400 6100 6800) (list 5000 6500 6200 6900) (list 5100 6600 6300 7000) (list 5200 6700 6400 7100) (list 5700 4800 5700 6400) (list 5700 6000 5700 6400) (list 5700 4800 6900 7600) (list 5800 4900 5800 6500) (list 5800 6100 5800 6500) (list 5800 4900 7000 7700) (list 5900 5000 5900 6600) (list 5900 6200 5900 6600) (list 5900 5000 7100 7800) (list 6000 5100 6000 6700) (list 6000 6300 6000 6700) (list 6000 5100 7200 7900) (list 4800 6300 6700 6000) (list 4900 6400 6800 6100) (list 5000 6500 6900 6200) (list 5100 6600 7000 6300) (list 5200 6700 7100 6400) (list 5700 4800 7600 6900) (list 6000 5100 6700 6000) (list 6000 6300 6700 6000) (list 4800 6700 6000 6300) (list 5300 4800 6500 6800) (list 5400 4900 6600 6900) (list 5500 5000 6700 7000) (list 5600 5100 6800 7100) (list 5700 5200 5700 6000) (list 5700 6400 5700 6000) (list 5700 5200 6900 7200) (list 5800 5300 5800 6100) (list 5800 6500 5800 6100) (list 5800 5300 7000 7300) (list 5900 5400 5900 6200) (list 5900 6600 5900 6200) (list 5900 5400 7100 7400) (list 6000 5500 6000 6300) (list 6000 6700 6000 6300) (list 6000 5500 7200 7500) (list 4800 6700 6300 6000) (list 5300 4800 6800 6500) (list 5400 4900 6900 6600) (list 5500 5000 7000 6700) (list 5600 5100 7100 6800) (list 5700 5200 7200 6900) (list 5800 5300 7300 7000) (list 5900 5400 7400 7100) (list 6000 5500 6300 6000) (list 6000 6700 6300 6000) (list 6000 5500 7500 7200))) "x" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((7 0 1 0 nil 0) (10 0 7 0 nil 0) (8 0 7 1 nil 0) (0 0 7 2 nil 0) (10 0 8 0 nil 0) (10 0 9 0 nil 0) (6 0 10 0 nil 0) (5 0 10 1 nil 0) (4 0 10 2 nil 0) (3 0 10 3 nil 0) (2 0 10 4 nil 0))) 6.15 nil "" (om-make-point 200 162) (om-make-point 837 571)) (quote ((om-load-inputfun (quote input-funbox) "" "input" nil) (om-load-inputfun (quote input-funbox) "" "input 2" nil) (om-load-inputfun (quote input-funbox) "" "input 3" nil) (om-load-inputfun (quote input-funbox) "" "input 4" nil) (om-load-inputfun (quote input-funbox) "" "input 5" nil))) (om-make-point 198 311/2) (om-make-point 509 67) (list (list (list 5700 5200 6900 7200) (list 5300 5600 6100 7300))) nil "harmonies"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 112 30) (quote "Sopran = instr3") "" (om-make-point 556 20) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 85 30) (quote "Alt = instr2") "" (om-make-point 476 20) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 97 30) (quote "Tenor = instr1") "" (om-make-point 376 20) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD" (quote chord) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (list of midicents)" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "velocities (list of values 0-127)" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (list of values in ms)" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "durations (list of values in ms)" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "MIDI channels (list of values 0-16)" "lchan" (list 1)))) (om-make-point 567 50) (om-make-point 79 102) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000 8400)) :ldur (quote (1000 1000)) :lvel (quote (100 100)) :loffset (quote (0 0)) :lchan (quote (1 1))))) (load-port-info thechord (quote (0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) "x" nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode cursor-mode show-stems scale)) (list 2 24 (quote g) (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 (1))) (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) (om-make-point 0 0) nil nil (quote :midi-player) 1 nil 1000 0 (om-make-point 500 402) (om-make-point 400 20) 0 0 (quote :normal) (quote t) nil)) t nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD" (quote chord) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (list of midicents)" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "velocities (list of values 0-127)" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (list of values in ms)" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "durations (list of values in ms)" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "MIDI channels (list of values 0-16)" "lchan" (list 1)))) (om-make-point 477 50) (om-make-point 79 102) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700 7600)) :ldur (quote (1000 1000)) :lvel (quote (100 100)) :loffset (quote (0 0)) :lchan (quote (1 1))))) (load-port-info thechord (quote (0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) "x" nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode cursor-mode show-stems scale)) (list 2 24 (quote g) (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 (1))) (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) (om-make-point 0 0) nil nil (quote :midi-player) 1 nil 1000 0 (om-make-point 500 402) (om-make-point 400 20) 0 0 (quote :normal) (quote t) nil)) t nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD" (quote chord) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (list of midicents)" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "velocities (list of values 0-127)" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (list of values in ms)" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "durations (list of values in ms)" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "MIDI channels (list of values 0-16)" "lchan" (list 1)))) (om-make-point 387 50) (om-make-point 79 102) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800 6700)) :ldur (quote (1000 1000)) :lvel (quote (100 100)) :loffset (quote (0 0)) :lchan (quote (1 1))))) (load-port-info thechord (quote (0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) "x" nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode cursor-mode show-stems scale)) (list 2 24 (quote f) (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 (1))) (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) (om-make-point 0 0) nil nil (quote :midi-player) 1 nil 1000 0 (om-make-point 500 402) (om-make-point 400 20) 0 0 (quote :normal) (quote t) nil)) t nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 97 30) (quote "Bass = instr0") "" (om-make-point 276 20) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD" (quote chord) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (list of midicents)" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "velocities (list of values 0-127)" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (list of values in ms)" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "durations (list of values in ms)" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "MIDI channels (list of values 0-16)" "lchan" (list 1)))) (om-make-point 297 50) (om-make-point 79 102) (let ((thechord (make-instance (quote chord) :lmidic (quote (3600 6000)) :ldur (quote (1000 1000)) :lvel (quote (100 100)) :loffset (quote (0 0)) :lchan (quote (1 1))))) (load-port-info thechord (quote (0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) "x" nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode cursor-mode show-stems scale)) (list 2 24 (quote f) (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 (1))) (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) (om-make-point 0 0) nil nil (quote :midi-player) 1 nil 1000 0 (om-make-point 500 402) (om-make-point 400 20) 0 0 (quote :normal) (quote t) nil)) t nil nil nil))) (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 60 123) (om-make-point 231 30) (list (list 0 400 700 1200) (list 0 300 700 1200)) "((0 400 700 1200) (0 300 700 1200))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((1 0 0 0 nil 0) (12 0 1 0 nil 0) (3 0 1 1 nil 0) (0 0 2 1 nil 0) (13 0 12 0 nil 0) (11 0 12 1 nil 0) (10 0 12 2 nil 0) (9 0 12 3 nil 0) (8 0 12 4 nil 0) (22 0 13 0 nil 0) (21 1 13 1 nil 0) (19 1 13 2 nil 0) (18 1 13 3 nil 0) (17 1 13 4 nil 0))) nil 6.15))
diff --git a/examples/tutorials/Tutorial-Patch6 -rhythmic-progress-.omp b/examples/tutorials/Tutorial-Patch6 -rhythmic-progress-.omp
deleted file mode 100644
index 6446f92..0000000
--- a/examples/tutorials/Tutorial-Patch6 -rhythmic-progress-.omp
+++ /dev/null
@@ -1,4 +0,0 @@
-; OM File Header - Saved 2022/03/10 0:51:13
-; (6.15 :patc (om-make-point 10 110) (om-make-point 50 2) (om-make-point 1211 731) "" 183 0 "2022/03/10 0:40:15" "2022/03/10 0:51:08")
-; End File Header
-(in-package :om)(load-lib-for (quote ("OM-Lead")))(setf *om-current-persistent* (om-load-patch1 "Tutorial-Patch6 -rhythmic-progress-" (quote ((let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 800 220) (om-make-point 95 30) (list 1 (list 100 1/4)) "(1 (100 1/4))" 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 900 220) (om-make-point 102 30) (list 2 (list 300 1/16)) "(2 (300 1/16))" 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 1010 220) (om-make-point 102 30) (list 3 (list 300 1/16)) "(3 (300 1/16))" 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 695 220) (om-make-point 95 30) (list 0 (list 100 1/2)) "(0 (100 1/2))" 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 507 239) (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 4" (quote t) (quote nil) (om-make-point 548 239) (om-make-point 48 30) (list 4 4) "(4 4)" 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 599 239) (om-make-point 41 30) 110 "110" 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 640 239) (om-make-point 41 30) 100 "100" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "RHYTHMIC-PROGRESS" (quote rhythmic-progress) (quote ((om-load-inputfun (quote input-funbox) "chord-list from harmon-progress" "HARMON-PROGRESS" nil) (om-load-inputfun (quote input-funbox) "t: permutates randomly the rhythmic-order " "RANDOMIZE" nil) (om-load-inputfun (quote input-funbox) "measure" "MEASURE" nil) (om-load-inputfun (quote input-funbox) "tempo" "TEMPO" nil) (om-load-inputfun (quote input-funbox) "legato" "LEGATO" nil) (om-load-inputkeyword (quote input-keyword) "(voice-number (smallest rhythmic value, should be a fraction & stepsize, an intervall in midicents))" "raster0" (quote :raster0) nil nil) (om-load-inputkeyword (quote input-keyword) "(voice-number (smallest rhythmic value, should be a fraction & stepsize, an intervall in midicents))" "raster1" (quote :raster1) nil nil) (om-load-inputkeyword (quote input-keyword) "(voice-number (smallest rhythmic value, should be a fraction & stepsize, an intervall in midicents))" "raster2" (quote :raster2) nil nil) (om-load-inputkeyword (quote input-keyword) "(voice-number (smallest rhythmic value, should be a fraction & stepsize, an intervall in midicents))" "raster3" (quote :raster3) nil nil))) (om-make-point 439 269) (om-make-point 552 67) nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "concat" (om-load-patch-abs1 "concat" (quote ((let ((box (om-load-boxout "output" 0 (om-make-point 137 223) (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-boxwithed1 (quote box-with-win) "bass" (quote omloop) (quote ((om-load-inputfun (quote input-funbox) "" "input0" nil))) (om-make-point 887/5 110) nil nil nil (list (let ((box (om-load-boxcall (quote lispfun) "FOURTH" (quote fourth) (quote ((om-load-inputfun (quote input-funbox) "LIST" "LIST" nil))) (om-make-point 224 122) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "MAT-TRANS" (quote mat-trans) (quote ((om-load-inputfun (quote input-funbox) "a list of lists" "MATRIX" nil))) (om-make-point 40 132) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "CAR" (quote car) (quote ((om-load-inputfun (quote input-funbox) "X" "X" nil))) (om-make-point 246 218) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "CDR" (quote cdr) (quote ((om-load-inputfun (quote input-funbox) "X" "X" nil))) (om-make-point 191 168) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "CONCAT" (quote concat) (quote ((om-load-inputfun (quote input-funbox) "a musical sequence" "S1" nil) (om-load-inputfun (quote input-funbox) "a musical sequence" "S2" nil))) (om-make-point 283 209) nil nil "l" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input0" 0 (om-make-point 5 40) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "inlist" (quote listloop) (quote ((om-load-inputfun (quote input-funbox) "list to iterate" "LIST" nil))) (om-make-point 178 209) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "accum" (quote accumulator) (quote ((om-load-inputfun (quote input-funbox) "items to collect" "DATA" nil) (om-load-inputfun (quote input-funbox) "initial value" "INIT" nil) (om-load-inputfun (quote input-funbox) "accumulation function" "FUN" nil))) (om-make-point 235 302) nil nil nil nil 3))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-seqbox "finally" (quote finaldo) (quote ((om-load-inputfun (quote input-funbox) "value to return" "VAL" nil))) (om-make-point 295 440) nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-seqbox "eachTime" (quote loopdo) (quote ((om-load-inputfun (quote input-funbox) "operations to do" "OP" nil))) (om-make-point 195 440) nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box)) (quote ((1 0 0 0 nil 0) (5 0 1 0 nil 0) (0 0 2 0 nil 0) (0 0 3 0 nil 0) (3 0 6 0 nil 0) (6 0 7 0 nil 0) (2 0 7 1 nil 0) (4 0 7 2 nil 0) (7 1 8 0 nil 0) (7 0 9 0 nil 0))) 1 "bass" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxwithed1 (quote box-with-win) "sopran" (quote omloop) (quote ((om-load-inputfun (quote input-funbox) "" "input0" nil))) (om-make-point 1437/5 110) nil nil nil (list (let ((box (om-load-boxcall (quote lispfun) "FIRST" (quote first) (quote ((om-load-inputfun (quote input-funbox) "LIST" "LIST" nil))) (om-make-point 230 127) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "MAT-TRANS" (quote mat-trans) (quote ((om-load-inputfun (quote input-funbox) "a list of lists" "MATRIX" nil))) (om-make-point 40 132) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "CAR" (quote car) (quote ((om-load-inputfun (quote input-funbox) "X" "X" nil))) (om-make-point 246 218) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "CDR" (quote cdr) (quote ((om-load-inputfun (quote input-funbox) "X" "X" nil))) (om-make-point 191 168) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "CONCAT" (quote concat) (quote ((om-load-inputfun (quote input-funbox) "a musical sequence" "S1" nil) (om-load-inputfun (quote input-funbox) "a musical sequence" "S2" nil))) (om-make-point 283 209) nil nil "l" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input0" 0 (om-make-point 5 40) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "inlist" (quote listloop) (quote ((om-load-inputfun (quote input-funbox) "list to iterate" "LIST" nil))) (om-make-point 178 209) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "accum" (quote accumulator) (quote ((om-load-inputfun (quote input-funbox) "items to collect" "DATA" nil) (om-load-inputfun (quote input-funbox) "initial value" "INIT" nil) (om-load-inputfun (quote input-funbox) "accumulation function" "FUN" nil))) (om-make-point 235 302) nil nil nil nil 3))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-seqbox "finally" (quote finaldo) (quote ((om-load-inputfun (quote input-funbox) "value to return" "VAL" nil))) (om-make-point 295 440) nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-seqbox "eachTime" (quote loopdo) (quote ((om-load-inputfun (quote input-funbox) "operations to do" "OP" nil))) (om-make-point 195 440) nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box)) (quote ((1 0 0 0 nil 0) (5 0 1 0 nil 0) (0 0 2 0 nil 0) (0 0 3 0 nil 0) (3 0 6 0 nil 0) (6 0 7 0 nil 0) (2 0 7 1 nil 0) (4 0 7 2 nil 0) (7 1 8 0 nil 0) (7 0 9 0 nil 0))) 1 "sopran" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxwithed1 (quote box-with-win) "alt" (quote omloop) (quote ((om-load-inputfun (quote input-funbox) "" "input0" nil))) (om-make-point 1287/5 110) nil nil nil (list (let ((box (om-load-boxcall (quote lispfun) "SECOND" (quote second) (quote ((om-load-inputfun (quote input-funbox) "LIST" "LIST" nil))) (om-make-point 224 126) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "MAT-TRANS" (quote mat-trans) (quote ((om-load-inputfun (quote input-funbox) "a list of lists" "MATRIX" nil))) (om-make-point 40 132) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "CAR" (quote car) (quote ((om-load-inputfun (quote input-funbox) "X" "X" nil))) (om-make-point 246 218) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "CDR" (quote cdr) (quote ((om-load-inputfun (quote input-funbox) "X" "X" nil))) (om-make-point 191 168) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "CONCAT" (quote concat) (quote ((om-load-inputfun (quote input-funbox) "a musical sequence" "S1" nil) (om-load-inputfun (quote input-funbox) "a musical sequence" "S2" nil))) (om-make-point 283 209) nil nil "l" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input0" 0 (om-make-point 5 40) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "inlist" (quote listloop) (quote ((om-load-inputfun (quote input-funbox) "list to iterate" "LIST" nil))) (om-make-point 178 209) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "accum" (quote accumulator) (quote ((om-load-inputfun (quote input-funbox) "items to collect" "DATA" nil) (om-load-inputfun (quote input-funbox) "initial value" "INIT" nil) (om-load-inputfun (quote input-funbox) "accumulation function" "FUN" nil))) (om-make-point 235 302) nil nil nil nil 3))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-seqbox "finally" (quote finaldo) (quote ((om-load-inputfun (quote input-funbox) "value to return" "VAL" nil))) (om-make-point 295 440) nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-seqbox "eachTime" (quote loopdo) (quote ((om-load-inputfun (quote input-funbox) "operations to do" "OP" nil))) (om-make-point 195 440) nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box)) (quote ((1 0 0 0 nil 0) (5 0 1 0 nil 0) (0 0 2 0 nil 0) (0 0 3 0 nil 0) (3 0 6 0 nil 0) (6 0 7 0 nil 0) (2 0 7 1 nil 0) (4 0 7 2 nil 0) (7 1 8 0 nil 0) (7 0 9 0 nil 0))) 1 "alt" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxwithed1 (quote box-with-win) "tenor" (quote omloop) (quote ((om-load-inputfun (quote input-funbox) "" "input0" nil))) (om-make-point 1087/5 110) nil nil nil (list (let ((box (om-load-boxcall (quote lispfun) "THIRD" (quote third) (quote ((om-load-inputfun (quote input-funbox) "LIST" "LIST" nil))) (om-make-point 228 116) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "MAT-TRANS" (quote mat-trans) (quote ((om-load-inputfun (quote input-funbox) "a list of lists" "MATRIX" nil))) (om-make-point 40 132) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "CAR" (quote car) (quote ((om-load-inputfun (quote input-funbox) "X" "X" nil))) (om-make-point 246 218) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "CDR" (quote cdr) (quote ((om-load-inputfun (quote input-funbox) "X" "X" nil))) (om-make-point 191 168) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "CONCAT" (quote concat) (quote ((om-load-inputfun (quote input-funbox) "a musical sequence" "S1" nil) (om-load-inputfun (quote input-funbox) "a musical sequence" "S2" nil))) (om-make-point 283 209) nil nil "l" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input0" 0 (om-make-point 5 40) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "inlist" (quote listloop) (quote ((om-load-inputfun (quote input-funbox) "list to iterate" "LIST" nil))) (om-make-point 178 209) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "accum" (quote accumulator) (quote ((om-load-inputfun (quote input-funbox) "items to collect" "DATA" nil) (om-load-inputfun (quote input-funbox) "initial value" "INIT" nil) (om-load-inputfun (quote input-funbox) "accumulation function" "FUN" nil))) (om-make-point 235 302) nil nil nil nil 3))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-seqbox "finally" (quote finaldo) (quote ((om-load-inputfun (quote input-funbox) "value to return" "VAL" nil))) (om-make-point 295 440) nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-seqbox "eachTime" (quote loopdo) (quote ((om-load-inputfun (quote input-funbox) "operations to do" "OP" nil))) (om-make-point 195 440) nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box)) (quote ((1 0 0 0 nil 0) (5 0 1 0 nil 0) (0 0 2 0 nil 0) (0 0 3 0 nil 0) (3 0 6 0 nil 0) (6 0 7 0 nil 0) (2 0 7 1 nil 0) (4 0 7 2 nil 0) (7 1 8 0 nil 0) (7 0 9 0 nil 0))) 1 "tenor" nil))) (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-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 1047/5 179) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((6 0 0 0 nil 0) (1 0 2 0 nil 0) (1 0 3 0 nil 0) (1 0 4 0 nil 0) (1 0 5 0 nil 0) (3 0 6 0 nil 0) (4 0 6 1 nil 0) (5 0 6 2 nil 0) (2 0 6 3 nil 0))) 6.15 nil "" (om-make-point 200 200) (om-make-point 500 400)) (quote ((om-load-inputfun (quote input-funbox) "" "input" nil))) (om-make-point 419/5 1319/5) nil (list (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (? (((4 4) (2 (1 (1.0 1 1 1)) (1 (1 1 1 1)))) ((4 4) (3 (1 (1 1 1 1)))) ((4 4) (1)) ((4 4) (3 (1 (3.0 1)))) ((4 4) (2 (1 (3.0 1)) (1 (1 1 1 1)))) ((4 4) (3 (1 (3.0 1)))) ((4 4) (2 (1 (2.0 1 1)) (1 (1 1 1 1)))) ((4 4) (3 (1 (1.0 1 1 1)))) ((4 4) (3 (1 (2.0 1 1)))) ((4 4) (2 (1 (2.0 1 1)) (1 (1 1 1 1)))) ((4 4) (3 (1 (1 1 1 1)))) ((4 4) (3 (1 (1.0 1 1 1))))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1091)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6300)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6600)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7200)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7500)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7800)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (8100)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (8400)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (8100)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7800)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7500)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7200)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7100)) :ldur (quote (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7100)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7400)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7600)) :ldur (quote (1091)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7300)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7000)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6100)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6300)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1091)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7000)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7300)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7600)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7900)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (8200)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (8300)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (8000)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7700)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7400)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7200)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6600)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1091)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7000)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7300)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7600)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7900)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (8200)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (8400)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (8100)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7800)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7500)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7200)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7100)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6200)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 110) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil 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) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (? (((4 4) (3 (1 (1.0 1 1 1)))) ((4 4) (3 (1 (2.0 1 1)))) ((4 4) (3 (1 (1.0 1 1 1)))) ((4 4) (3 (1 (3.0 1)))) ((4 4) (1)) ((4 4) (1)) ((4 4) (3 (1 (2.0 1 1)))) ((4 4) (3 (1 (3.0 1)))) ((4 4) (3 (1 (1.0 1 1 1)))) ((4 4) (1)) ((4 4) (3 (1 (2.0 1 1)))) ((4 4) (3 (1 (2.0 1 1))))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6300)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6600)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7200)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6600)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7000)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7300)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7600)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7300)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7100)) :ldur (quote (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7200)) :ldur (quote (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7100)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6100)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6300)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6600)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7100)) :ldur (quote (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7200)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6600)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7000)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 110) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil 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) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (? (((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 110) 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 (? (((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 110) 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))) nil "concat"))) (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 80 195) nil nil "&" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "POLY" (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 132 368) (om-make-point 1008 313) (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 (? (((4 4) (2 (1 (1.0 1 1 1)) (1 (1 1 1 1)))) ((4 4) (3 (1 (1 1 1 1)))) ((4 4) (1)) ((4 4) (3 (1 (3.0 1)))) ((4 4) (2 (1 (3.0 1)) (1 (1 1 1 1)))) ((4 4) (3 (1 (3.0 1)))) ((4 4) (2 (1 (2.0 1 1)) (1 (1 1 1 1)))) ((4 4) (3 (1 (1.0 1 1 1)))) ((4 4) (3 (1 (2.0 1 1)))) ((4 4) (2 (1 (2.0 1 1)) (1 (1 1 1 1)))) ((4 4) (3 (1 (1 1 1 1)))) ((4 4) (3 (1 (1.0 1 1 1))))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1091)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6300)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6600)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7200)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7500)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7800)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (8100)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (8400)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (8100)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7800)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7500)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7200)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7100)) :ldur (quote (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7100)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7400)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7600)) :ldur (quote (1091)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7300)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7000)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6100)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6300)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1091)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7000)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7300)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7600)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7900)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (8200)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (8300)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (8000)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7700)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7400)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7200)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6600)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1091)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7000)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7300)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7600)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7900)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (8200)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (8400)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (8100)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7800)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7500)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7200)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7100)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6200)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 110) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil 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) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (? (((4 4) (3 (1 (1.0 1 1 1)))) ((4 4) (3 (1 (2.0 1 1)))) ((4 4) (3 (1 (1.0 1 1 1)))) ((4 4) (3 (1 (3.0 1)))) ((4 4) (1)) ((4 4) (1)) ((4 4) (3 (1 (2.0 1 1)))) ((4 4) (3 (1 (3.0 1)))) ((4 4) (3 (1 (1.0 1 1 1)))) ((4 4) (1)) ((4 4) (3 (1 (2.0 1 1)))) ((4 4) (3 (1 (2.0 1 1))))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6300)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6600)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7200)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6600)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7000)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7300)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7600)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7300)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7100)) :ldur (quote (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7200)) :ldur (quote (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7100)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6100)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6300)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6600)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7100)) :ldur (quote (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7200)) :ldur (quote (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (6600)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (1636)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (7000)) :ldur (quote (136)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 110) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil 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) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (? (((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 110) 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 (? (((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1)) ((4 4) (1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (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 (2182)) :lvel (quote (80)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (nil))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 110) 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)) :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 370 280) 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 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) (quote g) 24 2)) t nil nil 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 101 160) (om-make-point 34 30) 12 "12" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 112 30) (quote "Sopran = instr3") "" (om-make-point 20 400) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 85 30) (quote "Alt = instr2") "" (om-make-point 20 460) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 97 30) (quote "Tenor = instr1") "" (om-make-point 20 520) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 97 30) (quote "Bass = instr0") "" (om-make-point 20 580) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "harmonies" (om-load-patch-abs1 "harmonies" (quote ((let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 559 339) (om-make-point 27 30) 1 "1" 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 570 313) (om-make-point 27 30) 0 "0" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxout "output" 0 (om-make-point 499 456) (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 5" 4 (om-make-point 712 50) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input 4" 3 (om-make-point 592 50) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input 3" 2 (om-make-point 472 50) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input 2" 1 (om-make-point 352 50) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input" 0 (om-make-point 50 78) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-PROGRESS" (quote harmon-progress) (quote ((om-load-inputfun (quote input-funbox) "" "HARMON-DATABASE" nil) (om-load-inputfun (quote input-funbox) "" "FIRST-CHORD" nil) (om-load-inputkeyword (quote input-keyword) "" "voice-tie0" (quote :voice-tie0) nil nil) (om-load-inputkeyword (quote input-keyword) "" "voice-tie1" (quote :voice-tie1) nil nil))) (om-make-point 479 369) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "FIRST" (quote first) (quote ((om-load-inputfun (quote input-funbox) "LIST" "LIST" nil))) (om-make-point 534 309) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LENGTH" (quote length) (quote ((om-load-inputfun (quote input-funbox) "SEQUENCE" "SEQUENCE" nil))) (om-make-point 634 303) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-DATABASE" (quote 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" "INSTR0" nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr1" (quote :instr1) nil 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-make-point 213 233) (om-make-point 604 67) (list (list (list 3600 6400 6700 7200) (list 3700 6500 6800 7300) (list 3800 5400 5700 6200) (list 3800 6600 6900 7400) (list 3900 5500 5800 6300) (list 3900 6700 7000 7500) (list 4000 5600 5900 6400) (list 4100 5700 6000 6500) (list 4200 5800 6100 6600) (list 4300 5900 6200 6700) (list 4400 4800 6300 6800) (list 5600 4800 6300 6800) (list 4400 6000 6300 6800) (list 4400 4800 7500 8000) (list 4500 4900 6400 6900) (list 5700 4900 6400 6900) (list 4500 6100 6400 6900) (list 4500 4900 7600 8100) (list 4600 5000 6500 7000) (list 5800 5000 6500 7000) (list 4600 6200 6500 7000) (list 4700 5100 6600 7100) (list 5900 5100 6600 7100) (list 4700 6300 6600 7100) (list 4800 5200 6700 6000) (list 4800 5200 6700 7200) (list 6000 5200 6700 7200) (list 4800 6400 6700 7200) (list 4900 5300 6800 6100) (list 4900 5300 6800 7300) (list 4900 6500 6800 7300) (list 5000 5400 5700 6200) (list 5000 6600 5700 6200) (list 5000 5400 6900 6200) (list 5000 5400 5700 7400) (list 5000 6600 5700 7400) (list 5000 5400 6900 7400) (list 5000 6600 6900 7400) (list 5100 5500 5800 6300) (list 5100 6700 5800 6300) (list 5100 5500 7000 6300) (list 5100 5500 5800 7500) (list 5100 6700 5800 7500) (list 5100 5500 7000 7500) (list 5100 6700 7000 7500) (list 5200 5600 5900 6400) (list 5200 5600 7100 6400) (list 5200 5600 5900 7600) (list 5200 5600 7100 7600) (list 5300 5700 6000 6500) (list 5300 5700 7200 6500) (list 5300 5700 6000 7700) (list 5300 5700 7200 7700) (list 5400 5800 6100 6600) (list 5400 5800 7300 6600) (list 5400 5800 6100 7800) (list 5400 5800 7300 7800) (list 5500 5900 6200 6700) (list 5500 5900 7400 6700) (list 5500 5900 6200 7900) (list 5500 5900 7400 7900) (list 5600 6000 6300 6800) (list 5600 6000 7500 6800) (list 5600 6000 6300 8000) (list 5600 6000 7500 8000) (list 5700 6100 6400 6900) (list 5700 6100 7600 6900) (list 5700 6100 6400 8100) (list 5700 6100 7600 8100) (list 5800 6200 6500 7000) (list 5800 6200 6500 8200) (list 5900 6300 6600 7100) (list 5900 6300 6600 8300) (list 6000 6400 6700 7200) (list 6000 6400 6700 8400) (list 3600 6400 7200 6700) (list 3700 6500 7300 6800) (list 3800 6600 7400 6900) (list 3900 6700 7500 7000) (list 4100 5700 6500 6000) (list 4200 5800 6600 6100) (list 4300 5900 6700 6200) (list 4400 4800 6800 6300) (list 5600 4800 6800 6300) (list 4400 6000 6800 6300) (list 4500 4900 5700 6400) (list 4500 6100 5700 6400) (list 4500 4900 6900 6400) (list 5700 4900 6900 6400) (list 4500 6100 6900 6400) (list 4500 4900 5700 7600) (list 4600 5000 5800 6500) (list 4600 6200 5800 6500) (list 4600 5000 7000 6500) (list 5800 5000 7000 6500) (list 4600 6200 7000 6500) (list 4600 5000 5800 7700) (list 4700 5100 5900 6600) (list 4700 6300 5900 6600) (list 4700 5100 7100 6600) (list 5900 5100 7100 6600) (list 4700 6300 7100 6600) (list 4700 5100 5900 7800) (list 4800 5200 6000 6700) (list 4800 5200 7200 6700) (list 6000 5200 7200 6700) (list 4800 6400 7200 6700) (list 4800 5200 6000 7900) (list 4900 5300 6100 6800) (list 4900 5300 7300 6800) (list 4900 6500 7300 6800) (list 4900 5300 6100 8000) (list 5000 5400 6200 6900) (list 5000 5400 7400 6900) (list 5000 6600 7400 6900) (list 5000 5400 6200 8100) (list 5100 5500 6300 7000) (list 5100 5500 7500 7000) (list 5100 6700 7500 7000) (list 5100 5500 6300 8200) (list 5200 5600 6400 7100) (list 5200 5600 7600 7100) (list 5200 5600 6400 8300) (list 5300 5700 6500 6000) (list 5300 5700 6500 7200) (list 5300 5700 6500 8400) (list 5400 5800 6600 6100) (list 5400 5800 6600 7300) (list 5500 5900 6700 6200) (list 5500 5900 6700 7400) (list 5600 6000 6800 6300) (list 5600 6000 6800 7500) (list 5700 6100 6900 6400) (list 5700 6100 6900 7600) (list 5800 6200 7000 6500) (list 5800 6200 7000 7700) (list 5900 6300 7100 6600) (list 5900 6300 7100 7800) (list 6000 6400 7200 6700) (list 6000 6400 7200 7900) (list 3600 6700 6400 7200) (list 4100 4800 5700 6500) (list 5300 4800 5700 6500) (list 4100 6000 5700 6500) (list 4100 4800 6900 7700) (list 4200 4900 5800 6600) (list 5400 4900 5800 6600) (list 4200 6100 5800 6600) (list 4200 4900 7000 7800) (list 4300 5000 5900 6700) (list 5500 5000 5900 6700) (list 4300 6200 5900 6700) (list 4300 5000 7100 7900) (list 4400 5100 6000 6800) (list 5600 5100 6000 6800) (list 4400 6300 6000 6800) (list 4400 5100 7200 8000) (list 4500 5200 6100 6900) (list 5700 5200 6100 6900) (list 4500 6400 6100 6900) (list 4500 5200 7300 8100) (list 4600 5300 6200 7000) (list 5800 5300 6200 7000) (list 4600 6500 6200 7000) (list 4600 5300 7400 8200) (list 4700 5400 6300 7100) (list 5900 5400 6300 7100) (list 4700 6600 6300 7100) (list 4700 5400 7500 8300) (list 4800 5500 6400 6000) (list 4800 5500 6400 7200) (list 6000 5500 6400 7200) (list 4800 6700 6400 7200) (list 4800 5500 7600 6000) (list 4800 5500 7600 8400) (list 4900 5600 6500 6100) (list 4900 5600 6500 7300) (list 5000 5700 6600 6200) (list 5000 5700 6600 7400) (list 5100 5800 6700 6300) (list 5100 5800 6700 7500) (list 5200 5900 6800 6400) (list 5200 5900 6800 7600) (list 5300 6000 5700 6500) (list 5300 6000 6900 6500) (list 5300 6000 5700 7700) (list 5300 6000 6900 7700) (list 5400 6100 5800 6600) (list 5400 6100 7000 6600) (list 5400 6100 5800 7800) (list 5400 6100 7000 7800) (list 5500 6200 5900 6700) (list 5500 6200 7100 6700) (list 5500 6200 5900 7900) (list 5500 6200 7100 7900) (list 5600 6300 6000 6800) (list 5600 6300 7200 6800) (list 5600 6300 6000 8000) (list 5600 6300 7200 8000) (list 5700 6400 6100 6900) (list 5700 6400 7300 6900) (list 5700 6400 6100 8100) (list 5700 6400 7300 8100) (list 5800 6500 6200 7000) (list 5800 6500 7400 7000) (list 5800 6500 6200 8200) (list 5800 6500 7400 8200) (list 5900 6600 6300 7100) (list 5900 6600 7500 7100) (list 5900 6600 6300 8300) (list 5900 6600 7500 8300) (list 6000 6700 6400 7200) (list 6000 6700 7600 7200) (list 6000 6700 6400 8400) (list 6000 6700 7600 8400) (list 3600 6700 7200 6400) (list 4400 5100 6800 6000) (list 5600 5100 6800 6000) (list 4400 6300 6800 6000) (list 4500 5200 5700 6100) (list 4500 6400 5700 6100) (list 4500 5200 6900 6100) (list 5700 5200 6900 6100) (list 4500 6400 6900 6100) (list 4500 5200 5700 7300) (list 4600 5300 5800 6200) (list 4600 6500 5800 6200) (list 4600 5300 7000 6200) (list 5800 5300 7000 6200) (list 4600 6500 7000 6200) (list 4600 5300 5800 7400) (list 4700 5400 5900 6300) (list 4700 6600 5900 6300) (list 4700 5400 7100 6300) (list 5900 5400 7100 6300) (list 4700 6600 7100 6300) (list 4700 5400 5900 7500) (list 4800 5500 6000 6400) (list 4800 5500 7200 6400) (list 6000 5500 7200 6400) (list 4800 6700 7200 6400) (list 4800 5500 6000 7600) (list 4900 5600 6100 6500) (list 4900 5600 7300 6500) (list 4900 5600 6100 7700) (list 5000 5700 6200 6600) (list 5000 5700 7400 6600) (list 5000 5700 6200 7800) (list 5100 5800 6300 6700) (list 5100 5800 7500 6700) (list 5100 5800 6300 7900) (list 5200 5900 6400 6800) (list 5200 5900 7600 6800) (list 5200 5900 6400 8000) (list 5300 6000 6500 6900) (list 5300 6000 6500 8100) (list 5400 6100 6600 7000) (list 5400 6100 6600 8200) (list 5500 6200 6700 7100) (list 5500 6200 6700 8300) (list 5600 6300 6800 6000) (list 5600 6300 6800 7200) (list 5600 6300 6800 8400) (list 5700 6400 6900 6100) (list 5700 6400 6900 7300) (list 5800 6500 7000 6200) (list 5800 6500 7000 7400) (list 5900 6600 7100 6300) (list 5900 6600 7100 7500) (list 6000 6700 7200 6400) (list 6000 6700 7200 7600) (list 3600 4800 6400 6700) (list 3700 4900 6500 6800) (list 3800 5000 6600 6900) (list 3900 5100 6700 7000) (list 4000 5200 6800 7100) (list 4100 5300 5700 6000) (list 4100 6500 5700 6000) (list 4100 5300 6900 7200) (list 4200 5400 5800 6100) (list 4200 6600 5800 6100) (list 4200 5400 7000 7300) (list 4300 5500 5900 6200) (list 4300 6700 5900 6200) (list 4300 5500 7100 7400) (list 4400 5600 6000 6300) (list 4400 5600 7200 7500) (list 4500 5700 6100 6400) (list 4500 5700 7300 7600) (list 4600 5800 6200 6500) (list 4600 5800 7400 7700) (list 4700 5900 6300 6600) (list 4700 5900 7500 7800) (list 4800 6000 7600 7900) (list 5300 6500 5700 6000) (list 5300 6500 6900 6000) (list 5300 6500 5700 7200) (list 5300 6500 5700 8400) (list 5400 6600 5800 6100) (list 5400 6600 7000 6100) (list 5400 6600 5800 7300) (list 5500 6700 5900 6200) (list 5500 6700 7100 6200) (list 5500 6700 5900 7400) (list 3600 4800 6700 6400) (list 3700 4900 6800 6500) (list 3800 5000 6900 6600) (list 3900 5100 7000 6700) (list 4000 5200 7100 6800) (list 4100 5300 7200 6900) (list 4200 5400 7300 7000) (list 4300 5500 7400 7100) (list 4400 5600 6300 6000) (list 4400 5600 7500 7200) (list 4500 5700 6400 6100) (list 4500 5700 7600 7300) (list 4600 5800 6500 6200) (list 4700 5900 6600 6300) (list 5000 6200 5700 6600) (list 5000 6200 5700 7800) (list 5100 6300 5800 6700) (list 5100 6300 5800 7900) (list 5200 6400 5900 6800) (list 5200 6400 5900 8000) (list 5300 6500 6000 6900) (list 5300 6500 6000 8100) (list 5400 6600 6100 7000) (list 5400 6600 6100 8200) (list 5500 6700 6200 7100) (list 5500 6700 6200 8300) (list 4000 6000 6700 7200) (list 4100 6100 6800 7300) (list 4200 5000 5700 6200) (list 4200 6200 6900 7400) (list 4300 5100 5800 6300) (list 4300 6300 7000 7500) (list 4400 5200 5900 6400) (list 4400 6400 7100 7600) (list 4500 5300 6000 6500) (list 4500 6500 7200 7700) (list 4600 5400 6100 6600) (list 4600 6600 7300 7800) (list 4700 5500 6200 6700) (list 4700 6700 7400 7900) (list 4800 5600 6300 6800) (list 4900 5700 6400 6900) (list 5000 5800 6500 7000) (list 5100 5900 6600 7100) (list 5200 4800 6700 6000) (list 5200 4800 6700 7200) (list 5200 6000 6700 7200) (list 5300 4900 6800 6100) (list 5300 4900 6800 7300) (list 5300 6100 6800 7300) (list 5400 5000 5700 6200) (list 5400 5000 6900 6200) (list 5400 5000 5700 7400) (list 5400 5000 6900 7400) (list 5400 6200 6900 7400) (list 5500 5100 5800 6300) (list 5500 5100 7000 6300) (list 5500 5100 5800 7500) (list 5500 5100 7000 7500) (list 5500 6300 7000 7500) (list 5600 5200 5900 6400) (list 5600 5200 7100 6400) (list 5600 5200 5900 7600) (list 5600 5200 7100 7600) (list 5600 6400 7100 7600) (list 5700 5300 6000 6500) (list 5700 5300 7200 6500) (list 5700 5300 6000 7700) (list 5700 5300 7200 7700) (list 5700 6500 7200 7700) (list 5800 5400 6100 6600) (list 5800 5400 7300 6600) (list 5800 5400 6100 7800) (list 5800 5400 7300 7800) (list 5800 6600 7300 7800) (list 5900 5500 6200 6700) (list 5900 5500 7400 6700) (list 5900 5500 6200 7900) (list 5900 5500 7400 7900) (list 5900 6700 7400 7900) (list 6000 5600 6300 6800) (list 6000 5600 7500 6800) (list 6000 5600 6300 8000) (list 6000 5600 7500 8000) (list 4000 6000 7200 6700) (list 4100 6100 7300 6800) (list 4200 6200 7400 6900) (list 4300 6300 7500 7000) (list 4400 6400 7600 7100) (list 4500 5300 6500 6000) (list 4600 5400 6600 6100) (list 4700 5500 6700 6200) (list 4800 5600 6800 6300) (list 4900 5700 6900 6400) (list 5000 5800 7000 6500) (list 5100 5900 7100 6600) (list 5200 4800 6000 6700) (list 5200 4800 7200 6700) (list 5200 6000 7200 6700) (list 5200 4800 6000 7900) (list 5300 4900 6100 6800) (list 5300 4900 7300 6800) (list 5300 6100 7300 6800) (list 5300 4900 6100 8000) (list 5400 5000 6200 6900) (list 5400 5000 7400 6900) (list 5400 6200 7400 6900) (list 5400 5000 6200 8100) (list 5500 5100 6300 7000) (list 5500 5100 7500 7000) (list 5500 6300 7500 7000) (list 5500 5100 6300 8200) (list 5600 5200 6400 7100) (list 5600 5200 7600 7100) (list 5600 6400 7600 7100) (list 5600 5200 6400 8300) (list 5700 5300 6500 6000) (list 5700 5300 6500 7200) (list 5700 5300 6500 8400) (list 5800 5400 6600 6100) (list 5800 5400 6600 7300) (list 5900 5500 6700 6200) (list 5900 5500 6700 7400) (list 6000 5600 6800 6300) (list 6000 5600 6800 7500) (list 4000 6700 6000 7200) (list 4500 4800 6500 7700) (list 4600 4900 6600 7800) (list 4700 5000 6700 7900) (list 4800 5100 6800 8000) (list 4900 6400 5700 6900) (list 4900 5200 6900 8100) (list 5000 6500 5800 7000) (list 5000 5300 7000 8200) (list 5100 6600 5900 7100) (list 5100 5400 7100 8300) (list 5200 6700 6000 7200) (list 5200 5500 7200 8400) (list 4000 6700 7200 6000) (list 4900 5200 5700 6900) (list 5000 5300 5800 7000) (list 5100 5400 5900 7100) (list 5200 5500 6000 6000) (list 5200 6700 6000 6000) (list 5200 5500 7200 6000) (list 5200 6700 7200 6000) (list 5200 5500 6000 7200) (list 5300 5600 6100 6100) (list 5300 5600 7300 6100) (list 5300 5600 6100 7300) (list 5400 5700 6200 6200) (list 5400 5700 7400 6200) (list 5400 5700 6200 7400) (list 5500 5800 6300 6300) (list 5500 5800 7500 6300) (list 5500 5800 6300 7500) (list 5600 5900 6400 6400) (list 5600 5900 7600 6400) (list 5600 5900 6400 7600) (list 5700 6000 6500 6500) (list 5700 6000 6500 7700) (list 5800 6100 6600 6600) (list 5800 6100 6600 7800) (list 5900 6200 6700 6700) (list 5900 6200 6700 7900) (list 6000 6300 6800 6800) (list 6000 6300 6800 8000) (list 4000 4800 6000 6700) (list 4100 4900 6100 6800) (list 4200 5000 6200 6900) (list 4300 5100 6300 7000) (list 4400 5200 6400 7100) (list 4500 5300 6500 7200) (list 4600 5400 6600 7300) (list 4700 5500 6700 7400) (list 4800 5600 6800 7500) (list 4900 5700 5700 6400) (list 4900 5700 6900 7600) (list 5000 5800 5800 6500) (list 5000 5800 7000 7700) (list 5100 5900 5900 6600) (list 5100 5900 7100 7800) (list 5200 6000 6000 6700) (list 5200 6000 7200 7900) (list 5300 6100 6100 6800) (list 5300 6100 7300 8000) (list 5400 6200 6200 6900) (list 5400 6200 7400 8100) (list 5500 6300 6300 7000) (list 5500 6300 7500 8200) (list 5600 6400 6400 7100) (list 5600 6400 7600 8300) (list 5700 6500 6500 6000) (list 5700 6500 6500 7200) (list 5800 6600 6600 6100) (list 5800 6600 6600 7300) (list 5900 6700 6700 6200) (list 5900 6700 6700 7400) (list 4000 4800 6700 6000) (list 4100 4900 6800 6100) (list 4200 5000 6900 6200) (list 4300 5100 7000 6300) (list 4400 5200 7100 6400) (list 4500 5300 7200 6500) (list 4600 5400 7300 6600) (list 4700 5500 7400 6700) (list 4800 5600 7500 6800) (list 4900 5700 7600 6900) (list 5200 6000 6700 6000) (list 5300 6100 6800 6100) (list 5400 6200 5700 6200) (list 5400 6200 6900 6200) (list 5400 6200 5700 7400) (list 5500 6300 5800 6300) (list 5500 6300 7000 6300) (list 5500 6300 5800 7500) (list 5600 6400 5900 6400) (list 5600 6400 7100 6400) (list 5600 6400 5900 7600) (list 5700 6500 6000 6500) (list 5700 6500 7200 6500) (list 5700 6500 6000 7700) (list 5800 6600 6100 6600) (list 5800 6600 7300 6600) (list 5800 6600 6100 7800) (list 5900 6700 6200 6700) (list 5900 6700 7400 6700) (list 5900 6700 6200 7900) (list 4300 6000 6400 7200) (list 4400 6100 6500 7300) (list 4500 6200 6600 7400) (list 4600 6300 6700 7500) (list 4700 6400 6800 7600) (list 4800 5300 5700 6500) (list 4800 6500 6900 7700) (list 4900 5400 5800 6600) (list 4900 6600 7000 7800) (list 5000 5500 5900 6700) (list 5000 6700 7100 7900) (list 5100 5600 6000 6800) (list 5200 5700 6100 6900) (list 5300 5800 6200 7000) (list 5400 5900 6300 7100) (list 5500 4800 6400 6000) (list 5500 4800 6400 7200) (list 5500 6000 6400 7200) (list 5500 4800 7600 6000) (list 5500 4800 7600 8400) (list 5600 4900 6500 6100) (list 5600 4900 6500 7300) (list 5600 6100 6500 7300) (list 5700 5000 6600 6200) (list 5700 5000 6600 7400) (list 5700 6200 6600 7400) (list 5800 5100 6700 6300) (list 5800 5100 6700 7500) (list 5800 6300 6700 7500) (list 5900 5200 6800 6400) (list 5900 5200 6800 7600) (list 5900 6400 6800 7600) (list 6000 5300 5700 6500) (list 6000 5300 6900 6500) (list 6000 5300 5700 7700) (list 6000 5300 6900 7700) (list 6000 6500 6900 7700) (list 4300 6000 7200 6400) (list 4400 6100 7300 6500) (list 4500 6200 7400 6600) (list 4600 6300 7500 6700) (list 4700 6400 7600 6800) (list 5100 5600 6800 6000) (list 5200 5700 6900 6100) (list 5300 5800 7000 6200) (list 5400 5900 7100 6300) (list 5500 4800 6000 6400) (list 5500 4800 7200 6400) (list 5500 6000 7200 6400) (list 5500 4800 6000 7600) (list 5600 4900 6100 6500) (list 5600 4900 7300 6500) (list 5600 6100 7300 6500) (list 5600 4900 6100 7700) (list 5700 5000 6200 6600) (list 5700 5000 7400 6600) (list 5700 6200 7400 6600) (list 5700 5000 6200 7800) (list 5800 5100 6300 6700) (list 5800 5100 7500 6700) (list 5800 6300 7500 6700) (list 5800 5100 6300 7900) (list 5900 5200 6400 6800) (list 5900 5200 7600 6800) (list 5900 6400 7600 6800) (list 5900 5200 6400 8000) (list 6000 5300 6500 6900) (list 6000 5300 6500 8100) (list 4300 6400 6000 7200) (list 4400 6500 6100 7300) (list 4500 6600 6200 7400) (list 4600 6700 6300 7500) (list 5100 4800 6800 8000) (list 5200 6100 5700 6900) (list 5200 4900 6900 8100) (list 5300 6200 5800 7000) (list 5300 5000 7000 8200) (list 5400 6300 5900 7100) (list 5400 5100 7100 8300) (list 5500 6400 6000 7200) (list 5500 5200 7200 8400) (list 5600 6500 6100 7300) (list 5700 6600 6200 7400) (list 5800 6700 6300 7500) (list 4300 6400 7200 6000) (list 4400 6500 7300 6100) (list 4500 6600 7400 6200) (list 4600 6700 7500 6300) (list 5200 4900 5700 6900) (list 5300 5000 5800 7000) (list 5400 5100 5900 7100) (list 5500 5200 6000 6000) (list 5500 6400 6000 6000) (list 5500 5200 7200 6000) (list 5500 6400 7200 6000) (list 5500 5200 6000 7200) (list 5600 5300 6100 6100) (list 5600 6500 6100 6100) (list 5600 5300 7300 6100) (list 5600 6500 7300 6100) (list 5600 5300 6100 7300) (list 5700 5400 6200 6200) (list 5700 6600 6200 6200) (list 5700 5400 7400 6200) (list 5700 6600 7400 6200) (list 5700 5400 6200 7400) (list 5800 5500 6300 6300) (list 5800 6700 6300 6300) (list 5800 5500 7500 6300) (list 5800 6700 7500 6300) (list 5800 5500 6300 7500) (list 5900 5600 6400 6400) (list 5900 5600 7600 6400) (list 5900 5600 6400 7600) (list 6000 5700 6500 6500) (list 6000 5700 6500 7700) (list 4300 4800 6000 6400) (list 4400 4900 6100 6500) (list 4500 5000 6200 6600) (list 4600 5100 6300 6700) (list 4700 5200 6400 6800) (list 4800 5300 6500 6900) (list 4900 5400 6600 7000) (list 5000 5500 6700 7100) (list 5100 5600 6800 7200) (list 5200 5700 5700 6100) (list 5200 5700 6900 7300) (list 5300 5800 5800 6200) (list 5300 5800 7000 7400) (list 5400 5900 5900 6300) (list 5400 5900 7100 7500) (list 5500 6000 6000 6400) (list 5500 6000 7200 7600) (list 5600 6100 6100 6500) (list 5600 6100 7300 7700) (list 5700 6200 6200 6600) (list 5700 6200 7400 7800) (list 5800 6300 6300 6700) (list 5800 6300 7500 7900) (list 5900 6400 6400 6800) (list 5900 6400 7600 8000) (list 6000 6500 6500 6900) (list 4300 4800 6400 6000) (list 4400 4900 6500 6100) (list 4500 5000 6600 6200) (list 4600 5100 6700 6300) (list 4700 5200 6800 6400) (list 4800 5300 6900 6500) (list 4900 5400 7000 6600) (list 5000 5500 7100 6700) (list 5100 5600 7200 6800) (list 5200 5700 7300 6900) (list 5300 5800 7400 7000) (list 5400 5900 7500 7100) (list 5500 6000 6400 6000) (list 5500 6000 7600 7200) (list 5600 6100 6500 6100) (list 5700 6200 6600 6200) (list 5800 6300 6700 6300) (list 5900 6400 6800 6400) (list 6000 6500 5700 6500) (list 6000 6500 6900 6500) (list 6000 6500 5700 7700) (list 4800 6000 6400 6700) (list 4900 6100 6500 6800) (list 5000 6200 6600 6900) (list 5100 6300 6700 7000) (list 5200 6400 6800 7100) (list 5300 5300 5700 6000) (list 5300 6500 6900 7200) (list 5400 5400 5800 6100) (list 5400 6600 7000 7300) (list 5500 5500 5900 6200) (list 5500 6700 7100 7400) (list 5600 5600 6000 6300) (list 5700 5700 6100 6400) (list 5800 5800 6200 6500) (list 5900 5900 6300 6600) (list 6000 4800 6400 6700) (list 6000 6000 6400 6700) (list 6000 4800 7600 7900) (list 4800 6000 6700 6400) (list 4900 6100 6800 6500) (list 5000 6200 6900 6600) (list 5100 6300 7000 6700) (list 5200 6400 7100 6800) (list 5300 6500 7200 6900) (list 5400 6600 7300 7000) (list 5500 6700 7400 7100) (list 5600 5600 6300 6000) (list 5700 5700 6400 6100) (list 5800 5800 6500 6200) (list 5900 5900 6600 6300) (list 6000 4800 6700 6400) (list 6000 6000 6700 6400) (list 4800 6400 6000 6700) (list 4900 6500 6100 6800) (list 5000 6600 6200 6900) (list 5100 6700 6300 7000) (list 5600 4800 6800 7500) (list 5700 4900 5700 6400) (list 5700 6100 5700 6400) (list 5700 4900 6900 7600) (list 5800 5000 5800 6500) (list 5800 6200 5800 6500) (list 5800 5000 7000 7700) (list 5900 5100 5900 6600) (list 5900 6300 5900 6600) (list 5900 5100 7100 7800) (list 6000 5200 6000 6700) (list 6000 6400 6000 6700) (list 6000 5200 7200 7900) (list 4800 6400 6700 6000) (list 4900 6500 6800 6100) (list 5000 6600 6900 6200) (list 5100 6700 7000 6300) (list 5600 4800 7500 6800) (list 5700 4900 7600 6900) (list 6000 5200 6700 6000) (list 6000 6400 6700 6000) (list 4800 6700 6000 6400) (list 5300 4800 6500 6900) (list 5400 4900 6600 7000) (list 5500 5000 6700 7100) (list 5600 5100 6800 7200) (list 5700 5200 5700 6100) (list 5700 6400 5700 6100) (list 5700 5200 6900 7300) (list 5800 5300 5800 6200) (list 5800 6500 5800 6200) (list 5800 5300 7000 7400) (list 5900 5400 5900 6300) (list 5900 6600 5900 6300) (list 5900 5400 7100 7500) (list 6000 5500 6000 6400) (list 6000 6700 6000 6400) (list 6000 5500 7200 7600) (list 4800 6700 6400 6000) (list 5300 4800 6900 6500) (list 5400 4900 7000 6600) (list 5500 5000 7100 6700) (list 5600 5100 7200 6800) (list 5700 5200 7300 6900) (list 5800 5300 7400 7000) (list 5900 5400 7500 7100) (list 6000 5500 6400 6000) (list 6000 6700 6400 6000) (list 6000 5500 7600 7200) (list 3600 6300 6700 7200) (list 3700 6400 6800 7300) (list 3800 5300 5700 6200) (list 3800 6500 6900 7400) (list 3900 5400 5800 6300) (list 3900 6600 7000 7500) (list 4000 5500 5900 6400) (list 4000 6700 7100 7600) (list 4100 5600 6000 6500) (list 4200 5700 6100 6600) (list 4300 5800 6200 6700) (list 4400 5900 6300 6800) (list 4500 4800 6400 6900) (list 5700 4800 6400 6900) (list 4500 6000 6400 6900) (list 4500 4800 7600 8100) (list 4600 4900 6500 7000) (list 5800 4900 6500 7000) (list 4600 6100 6500 7000) (list 4700 5000 6600 7100) (list 5900 5000 6600 7100) (list 4700 6200 6600 7100) (list 4800 5100 6700 6000) (list 4800 5100 6700 7200) (list 6000 5100 6700 7200) (list 4800 6300 6700 7200) (list 4900 5200 6800 6100) (list 4900 5200 6800 7300) (list 4900 6400 6800 7300) (list 5000 5300 5700 6200) (list 5000 6500 5700 6200) (list 5000 5300 6900 6200) (list 5000 5300 5700 7400) (list 5000 6500 5700 7400) (list 5000 5300 6900 7400) (list 5000 6500 6900 7400) (list 5100 5400 5800 6300) (list 5100 6600 5800 6300) (list 5100 5400 7000 6300) (list 5100 5400 5800 7500) (list 5100 6600 5800 7500) (list 5100 5400 7000 7500) (list 5100 6600 7000 7500) (list 5200 5500 5900 6400) (list 5200 6700 5900 6400) (list 5200 5500 7100 6400) (list 5200 5500 5900 7600) (list 5200 6700 5900 7600) (list 5200 5500 7100 7600) (list 5200 6700 7100 7600) (list 5300 5600 6000 6500) (list 5300 5600 7200 6500) (list 5300 5600 6000 7700) (list 5300 5600 7200 7700) (list 5400 5700 6100 6600) (list 5400 5700 7300 6600) (list 5400 5700 6100 7800) (list 5400 5700 7300 7800) (list 5500 5800 6200 6700) (list 5500 5800 7400 6700) (list 5500 5800 6200 7900) (list 5500 5800 7400 7900) (list 5600 5900 6300 6800) (list 5600 5900 7500 6800) (list 5600 5900 6300 8000) (list 5600 5900 7500 8000) (list 5700 6000 6400 6900) (list 5700 6000 7600 6900) (list 5700 6000 6400 8100) (list 5700 6000 7600 8100) (list 5800 6100 6500 7000) (list 5800 6100 6500 8200) (list 5900 6200 6600 7100) (list 5900 6200 6600 8300) (list 6000 6300 6700 7200) (list 6000 6300 6700 8400) (list 3600 6300 7200 6700) (list 3700 6400 7300 6800) (list 3800 6500 7400 6900) (list 3900 6600 7500 7000) (list 4000 6700 7600 7100) (list 4100 5600 6500 6000) (list 4200 5700 6600 6100) (list 4300 5800 6700 6200) (list 4400 5900 6800 6300) (list 4500 4800 5700 6400) (list 4500 6000 5700 6400) (list 4500 4800 6900 6400) (list 5700 4800 6900 6400) (list 4500 6000 6900 6400) (list 4500 4800 5700 7600) (list 4600 4900 5800 6500) (list 4600 6100 5800 6500) (list 4600 4900 7000 6500) (list 5800 4900 7000 6500) (list 4600 6100 7000 6500) (list 4600 4900 5800 7700) (list 4700 5000 5900 6600) (list 4700 6200 5900 6600) (list 4700 5000 7100 6600) (list 5900 5000 7100 6600) (list 4700 6200 7100 6600) (list 4700 5000 5900 7800) (list 4800 5100 6000 6700) (list 4800 5100 7200 6700) (list 6000 5100 7200 6700) (list 4800 6300 7200 6700) (list 4800 5100 6000 7900) (list 4900 5200 6100 6800) (list 4900 5200 7300 6800) (list 4900 6400 7300 6800) (list 4900 5200 6100 8000) (list 5000 5300 6200 6900) (list 5000 5300 7400 6900) (list 5000 6500 7400 6900) (list 5000 5300 6200 8100) (list 5100 5400 6300 7000) (list 5100 5400 7500 7000) (list 5100 6600 7500 7000) (list 5100 5400 6300 8200) (list 5200 5500 6400 7100) (list 5200 5500 7600 7100) (list 5200 6700 7600 7100) (list 5200 5500 6400 8300) (list 5300 5600 6500 6000) (list 5300 5600 6500 7200) (list 5300 5600 6500 8400) (list 5400 5700 6600 6100) (list 5400 5700 6600 7300) (list 5500 5800 6700 6200) (list 5500 5800 6700 7400) (list 5600 5900 6800 6300) (list 5600 5900 6800 7500) (list 5700 6000 6900 6400) (list 5700 6000 6900 7600) (list 5800 6100 7000 6500) (list 5800 6100 7000 7700) (list 5900 6200 7100 6600) (list 5900 6200 7100 7800) (list 6000 6300 7200 6700) (list 6000 6300 7200 7900) (list 3600 6700 6300 7200) (list 4100 4800 6800 7700) (list 4200 4900 5700 6600) (list 5400 4900 5700 6600) (list 4200 6100 5700 6600) (list 4200 4900 6900 7800) (list 4300 5000 5800 6700) (list 5500 5000 5800 6700) (list 4300 6200 5800 6700) (list 4300 5000 7000 7900) (list 4400 5100 5900 6800) (list 5600 5100 5900 6800) (list 4400 6300 5900 6800) (list 4400 5100 7100 8000) (list 4500 5200 6000 6900) (list 5700 5200 6000 6900) (list 4500 6400 6000 6900) (list 4500 5200 7200 8100) (list 4600 5300 6100 7000) (list 5800 5300 6100 7000) (list 4600 6500 6100 7000) (list 4600 5300 7300 8200) (list 4700 5400 6200 7100) (list 5900 5400 6200 7100) (list 4700 6600 6200 7100) (list 4700 5400 7400 8300) (list 4800 5500 6300 6000) (list 4800 5500 6300 7200) (list 6000 5500 6300 7200) (list 4800 6700 6300 7200) (list 4800 5500 7500 6000) (list 4800 5500 7500 8400) (list 4900 5600 6400 6100) (list 4900 5600 6400 7300) (list 4900 5600 7600 6100) (list 5000 5700 6500 6200) (list 5000 5700 6500 7400) (list 5100 5800 6600 6300) (list 5100 5800 6600 7500) (list 5200 5900 6700 6400) (list 5200 5900 6700 7600) (list 5300 6000 6800 6500) (list 5300 6000 6800 7700) (list 5400 6100 5700 6600) (list 5400 6100 6900 6600) (list 5400 6100 5700 7800) (list 5400 6100 6900 7800) (list 5500 6200 5800 6700) (list 5500 6200 7000 6700) (list 5500 6200 5800 7900) (list 5500 6200 7000 7900) (list 5600 6300 5900 6800) (list 5600 6300 7100 6800) (list 5600 6300 5900 8000) (list 5600 6300 7100 8000) (list 5700 6400 6000 6900) (list 5700 6400 7200 6900) (list 5700 6400 6000 8100) (list 5700 6400 7200 8100) (list 5800 6500 6100 7000) (list 5800 6500 7300 7000) (list 5800 6500 6100 8200) (list 5800 6500 7300 8200) (list 5900 6600 6200 7100) (list 5900 6600 7400 7100) (list 5900 6600 6200 8300) (list 5900 6600 7400 8300) (list 6000 6700 6300 7200) (list 6000 6700 7500 7200) (list 6000 6700 6300 8400) (list 6000 6700 7500 8400) (list 3600 6700 7200 6300) (list 4500 5200 5700 6000) (list 4500 6400 5700 6000) (list 4500 5200 6900 6000) (list 5700 5200 6900 6000) (list 4500 6400 6900 6000) (list 4500 5200 5700 7200) (list 4600 5300 5800 6100) (list 4600 6500 5800 6100) (list 4600 5300 7000 6100) (list 5800 5300 7000 6100) (list 4600 6500 7000 6100) (list 4600 5300 5800 7300) (list 4700 5400 5900 6200) (list 4700 6600 5900 6200) (list 4700 5400 7100 6200) (list 5900 5400 7100 6200) (list 4700 6600 7100 6200) (list 4700 5400 5900 7400) (list 4800 5500 6000 6300) (list 4800 5500 7200 6300) (list 6000 5500 7200 6300) (list 4800 6700 7200 6300) (list 4800 5500 6000 7500) (list 4900 5600 6100 6400) (list 4900 5600 7300 6400) (list 4900 5600 6100 7600) (list 5000 5700 6200 6500) (list 5000 5700 7400 6500) (list 5000 5700 6200 7700) (list 5100 5800 6300 6600) (list 5100 5800 7500 6600) (list 5100 5800 6300 7800) (list 5200 5900 6400 6700) (list 5200 5900 7600 6700) (list 5200 5900 6400 7900) (list 5300 6000 6500 6800) (list 5300 6000 6500 8000) (list 5400 6100 6600 6900) (list 5400 6100 6600 8100) (list 5500 6200 6700 7000) (list 5500 6200 6700 8200) (list 5600 6300 6800 7100) (list 5600 6300 6800 8300) (list 5700 6400 6900 6000) (list 5700 6400 6900 7200) (list 5700 6400 6900 8400) (list 5800 6500 7000 6100) (list 5800 6500 7000 7300) (list 5900 6600 7100 6200) (list 5900 6600 7100 7400) (list 6000 6700 7200 6300) (list 6000 6700 7200 7500) (list 3600 4800 6300 6700) (list 3700 4900 6400 6800) (list 3800 5000 6500 6900) (list 3900 5100 6600 7000) (list 4000 5200 6700 7100) (list 4100 5300 6800 7200) (list 4200 5400 5700 6100) (list 4200 6600 5700 6100) (list 4200 5400 6900 7300) (list 4300 5500 5800 6200) (list 4300 6700 5800 6200) (list 4300 5500 7000 7400) (list 4400 5600 5900 6300) (list 4400 5600 7100 7500) (list 4500 5700 6000 6400) (list 4500 5700 7200 7600) (list 4600 5800 6100 6500) (list 4600 5800 7300 7700) (list 4700 5900 6200 6600) (list 4700 5900 7400 7800) (list 4800 6000 7500 7900) (list 4900 6100 7600 8000) (list 5300 6500 6800 6000) (list 5400 6600 5700 6100) (list 5400 6600 6900 6100) (list 5400 6600 5700 7300) (list 5500 6700 5800 6200) (list 5500 6700 7000 6200) (list 5500 6700 5800 7400) (list 3600 4800 6700 6300) (list 3700 4900 6800 6400) (list 3800 5000 6900 6500) (list 3900 5100 7000 6600) (list 4000 5200 7100 6700) (list 4100 5300 7200 6800) (list 4200 5400 7300 6900) (list 4300 5500 7400 7000) (list 4400 5600 7500 7100) (list 4500 5700 6400 6000) (list 4500 5700 7600 7200) (list 4600 5800 6500 6100) (list 4700 5900 6600 6200) (list 5000 6200 5700 6500) (list 5000 6200 5700 7700) (list 5100 6300 5800 6600) (list 5100 6300 5800 7800) (list 5200 6400 5900 6700) (list 5200 6400 5900 7900) (list 5300 6500 6000 6800) (list 5300 6500 6000 8000) (list 5400 6600 6100 6900) (list 5400 6600 6100 8100) (list 5500 6700 6200 7000) (list 5500 6700 6200 8200) (list 3900 6000 6700 7200) (list 4000 6100 6800 7300) (list 4100 5000 5700 6200) (list 4100 6200 6900 7400) (list 4200 5100 5800 6300) (list 4200 6300 7000 7500) (list 4300 5200 5900 6400) (list 4300 6400 7100 7600) (list 4400 5300 6000 6500) (list 4400 6500 7200 7700) (list 4500 5400 6100 6600) (list 4500 6600 7300 7800) (list 4600 5500 6200 6700) (list 4600 6700 7400 7900) (list 4700 5600 6300 6800) (list 4800 5700 6400 6900) (list 4900 5800 6500 7000) (list 5000 5900 6600 7100) (list 5100 4800 6700 6000) (list 5100 4800 6700 7200) (list 5100 6000 6700 7200) (list 5200 4900 6800 6100) (list 5200 4900 6800 7300) (list 5200 6100 6800 7300) (list 5300 5000 5700 6200) (list 5300 5000 6900 6200) (list 5300 5000 5700 7400) (list 5300 5000 6900 7400) (list 5300 6200 6900 7400) (list 5400 5100 5800 6300) (list 5400 5100 7000 6300) (list 5400 5100 5800 7500) (list 5400 5100 7000 7500) (list 5400 6300 7000 7500) (list 5500 5200 5900 6400) (list 5500 5200 7100 6400) (list 5500 5200 5900 7600) (list 5500 5200 7100 7600) (list 5500 6400 7100 7600) (list 5600 5300 6000 6500) (list 5600 5300 7200 6500) (list 5600 5300 6000 7700) (list 5600 5300 7200 7700) (list 5600 6500 7200 7700) (list 5700 5400 6100 6600) (list 5700 5400 7300 6600) (list 5700 5400 6100 7800) (list 5700 5400 7300 7800) (list 5700 6600 7300 7800) (list 5800 5500 6200 6700) (list 5800 5500 7400 6700) (list 5800 5500 6200 7900) (list 5800 5500 7400 7900) (list 5800 6700 7400 7900) (list 5900 5600 6300 6800) (list 5900 5600 7500 6800) (list 5900 5600 6300 8000) (list 5900 5600 7500 8000) (list 6000 5700 6400 6900) (list 6000 5700 7600 6900) (list 6000 5700 6400 8100) (list 6000 5700 7600 8100) (list 3900 6000 7200 6700) (list 4000 6100 7300 6800) (list 4100 6200 7400 6900) (list 4200 6300 7500 7000) (list 4300 6400 7600 7100) (list 4400 5300 6500 6000) (list 4500 5400 6600 6100) (list 4600 5500 6700 6200) (list 4700 5600 6800 6300) (list 4800 5700 6900 6400) (list 4900 5800 7000 6500) (list 5000 5900 7100 6600) (list 5100 4800 6000 6700) (list 5100 4800 7200 6700) (list 5100 6000 7200 6700) (list 5100 4800 6000 7900) (list 5200 4900 6100 6800) (list 5200 4900 7300 6800) (list 5200 6100 7300 6800) (list 5200 4900 6100 8000) (list 5300 5000 6200 6900) (list 5300 5000 7400 6900) (list 5300 6200 7400 6900) (list 5300 5000 6200 8100) (list 5400 5100 6300 7000) (list 5400 5100 7500 7000) (list 5400 6300 7500 7000) (list 5400 5100 6300 8200) (list 5500 5200 6400 7100) (list 5500 5200 7600 7100) (list 5500 6400 7600 7100) (list 5500 5200 6400 8300) (list 5600 5300 6500 6000) (list 5600 5300 6500 7200) (list 5600 5300 6500 8400) (list 5700 5400 6600 6100) (list 5700 5400 6600 7300) (list 5800 5500 6700 6200) (list 5800 5500 6700 7400) (list 5900 5600 6800 6300) (list 5900 5600 6800 7500) (list 6000 5700 6900 6400) (list 6000 5700 6900 7600) (list 3900 6700 6000 7200) (list 4400 4800 6500 7700) (list 4500 4900 6600 7800) (list 4600 5000 6700 7900) (list 4700 5100 6800 8000) (list 6000 5200 5700 6900) (list 4800 6400 5700 6900) (list 4800 5200 6900 8100) (list 4900 6500 5800 7000) (list 4900 5300 7000 8200) (list 5000 6600 5900 7100) (list 5000 5400 7100 8300) (list 5100 6700 6000 7200) (list 5100 5500 7200 8400) (list 6000 6400 5700 6900) (list 6000 6400 5700 8100) (list 3900 6700 7200 6000) (list 4800 5200 5700 6900) (list 4900 5300 5800 7000) (list 5000 5400 5900 7100) (list 5100 5500 6000 6000) (list 5100 6700 6000 6000) (list 5100 5500 7200 6000) (list 5100 6700 7200 6000) (list 5100 5500 6000 7200) (list 5200 5600 6100 6100) (list 5200 5600 7300 6100) (list 5200 5600 6100 7300) (list 5300 5700 6200 6200) (list 5300 5700 7400 6200) (list 5300 5700 6200 7400) (list 5400 5800 6300 6300) (list 5400 5800 7500 6300) (list 5400 5800 6300 7500) (list 5500 5900 6400 6400) (list 5500 5900 7600 6400) (list 5500 5900 6400 7600) (list 5600 6000 6500 6500) (list 5600 6000 6500 7700) (list 5700 6100 6600 6600) (list 5700 6100 6600 7800) (list 5800 6200 6700 6700) (list 5800 6200 6700 7900) (list 5900 6300 6800 6800) (list 5900 6300 6800 8000) (list 6000 6400 6900 6900) (list 6000 6400 6900 8100) (list 3900 4800 6000 6700) (list 4000 4900 6100 6800) (list 4100 5000 6200 6900) (list 4200 5100 6300 7000) (list 4300 5200 6400 7100) (list 4400 5300 6500 7200) (list 4500 5400 6600 7300) (list 4600 5500 6700 7400) (list 4700 5600 6800 7500) (list 4800 5700 5700 6400) (list 6000 5700 5700 6400) (list 4800 5700 6900 7600) (list 4900 5800 5800 6500) (list 4900 5800 7000 7700) (list 5000 5900 5900 6600) (list 5000 5900 7100 7800) (list 5100 6000 6000 6700) (list 5100 6000 7200 7900) (list 5200 6100 6100 6800) (list 5200 6100 7300 8000) (list 5300 6200 6200 6900) (list 5300 6200 7400 8100) (list 5400 6300 6300 7000) (list 5400 6300 7500 8200) (list 5500 6400 6400 7100) (list 5500 6400 7600 8300) (list 5600 6500 6500 6000) (list 5600 6500 6500 7200) (list 5700 6600 6600 6100) (list 5700 6600 6600 7300) (list 5800 6700 6700 6200) (list 5800 6700 6700 7400) (list 3900 4800 6700 6000) (list 4000 4900 6800 6100) (list 4100 5000 6900 6200) (list 4200 5100 7000 6300) (list 4300 5200 7100 6400) (list 4400 5300 7200 6500) (list 4500 5400 7300 6600) (list 4600 5500 7400 6700) (list 4700 5600 7500 6800) (list 4800 5700 7600 6900) (list 5100 6000 6700 6000) (list 5200 6100 6800 6100) (list 5300 6200 5700 6200) (list 5300 6200 6900 6200) (list 5300 6200 5700 7400) (list 5400 6300 5800 6300) (list 5400 6300 7000 6300) (list 5400 6300 5800 7500) (list 5500 6400 5900 6400) (list 5500 6400 7100 6400) (list 5500 6400 5900 7600) (list 5600 6500 6000 6500) (list 5600 6500 7200 6500) (list 5600 6500 6000 7700) (list 5700 6600 6100 6600) (list 5700 6600 7300 6600) (list 5700 6600 6100 7800) (list 5800 6700 6200 6700) (list 5800 6700 7400 6700) (list 5800 6700 6200 7900) (list 4300 6000 6300 7200) (list 4400 6100 6400 7300) (list 4500 6200 6500 7400) (list 4600 6300 6600 7500) (list 4700 6400 6700 7600) (list 4800 6500 6800 7700) (list 4900 5400 5700 6600) (list 4900 6600 6900 7800) (list 5000 5500 5800 6700) (list 5000 6700 7000 7900) (list 5100 5600 5900 6800) (list 5200 5700 6000 6900) (list 5300 5800 6100 7000) (list 5400 5900 6200 7100) (list 5500 4800 6300 6000) (list 5500 4800 6300 7200) (list 5500 6000 6300 7200) (list 5500 4800 7500 6000) (list 5500 4800 7500 8400) (list 5600 4900 6400 6100) (list 5600 4900 6400 7300) (list 5600 6100 6400 7300) (list 5600 4900 7600 6100) (list 5700 5000 6500 6200) (list 5700 5000 6500 7400) (list 5700 6200 6500 7400) (list 5800 5100 6600 6300) (list 5800 5100 6600 7500) (list 5800 6300 6600 7500) (list 5900 5200 6700 6400) (list 5900 5200 6700 7600) (list 5900 6400 6700 7600) (list 6000 5300 6800 6500) (list 6000 5300 6800 7700) (list 6000 6500 6800 7700) (list 4300 6000 7200 6300) (list 4400 6100 7300 6400) (list 4500 6200 7400 6500) (list 4600 6300 7500 6600) (list 4700 6400 7600 6700) (list 5200 5700 6900 6000) (list 5300 5800 7000 6100) (list 5400 5900 7100 6200) (list 5500 4800 6000 6300) (list 5500 4800 7200 6300) (list 5500 6000 7200 6300) (list 5500 4800 6000 7500) (list 5600 4900 6100 6400) (list 5600 4900 7300 6400) (list 5600 6100 7300 6400) (list 5600 4900 6100 7600) (list 5700 5000 6200 6500) (list 5700 5000 7400 6500) (list 5700 6200 7400 6500) (list 5700 5000 6200 7700) (list 5800 5100 6300 6600) (list 5800 5100 7500 6600) (list 5800 6300 7500 6600) (list 5800 5100 6300 7800) (list 5900 5200 6400 6700) (list 5900 5200 7600 6700) (list 5900 6400 7600 6700) (list 5900 5200 6400 7900) (list 6000 5300 6500 6800) (list 6000 5300 6500 8000) (list 4300 6300 6000 7200) (list 4400 6400 6100 7300) (list 4500 6500 6200 7400) (list 4600 6600 6300 7500) (list 4700 6700 6400 7600) (list 5200 6000 5700 6900) (list 5200 4800 6900 8100) (list 5300 6100 5800 7000) (list 5300 4900 7000 8200) (list 5400 6200 5900 7100) (list 5400 5000 7100 8300) (list 5500 6300 6000 7200) (list 5500 5100 7200 8400) (list 5600 6400 6100 7300) (list 5700 6500 6200 7400) (list 5800 6600 6300 7500) (list 5900 6700 6400 7600) (list 4300 6300 7200 6000) (list 4400 6400 7300 6100) (list 4500 6500 7400 6200) (list 4600 6600 7500 6300) (list 4700 6700 7600 6400) (list 5200 4800 5700 6900) (list 5300 4900 5800 7000) (list 5400 5000 5900 7100) (list 5500 5100 6000 6000) (list 5500 6300 6000 6000) (list 5500 5100 7200 6000) (list 5500 6300 7200 6000) (list 5500 5100 6000 7200) (list 5600 5200 6100 6100) (list 5600 6400 6100 6100) (list 5600 5200 7300 6100) (list 5600 6400 7300 6100) (list 5600 5200 6100 7300) (list 5700 5300 6200 6200) (list 5700 6500 6200 6200) (list 5700 5300 7400 6200) (list 5700 6500 7400 6200) (list 5700 5300 6200 7400) (list 5800 5400 6300 6300) (list 5800 6600 6300 6300) (list 5800 5400 7500 6300) (list 5800 6600 7500 6300) (list 5800 5400 6300 7500) (list 5900 5500 6400 6400) (list 5900 6700 6400 6400) (list 5900 5500 7600 6400) (list 5900 6700 7600 6400) (list 5900 5500 6400 7600) (list 6000 5600 6500 6500) (list 6000 5600 6500 7700) (list 4300 4800 6000 6300) (list 4400 4900 6100 6400) (list 4500 5000 6200 6500) (list 4600 5100 6300 6600) (list 4700 5200 6400 6700) (list 4800 5300 6500 6800) (list 4900 5400 6600 6900) (list 5000 5500 6700 7000) (list 5100 5600 6800 7100) (list 5200 5700 5700 6000) (list 5200 5700 6900 7200) (list 5300 5800 5800 6100) (list 5300 5800 7000 7300) (list 5400 5900 5900 6200) (list 5400 5900 7100 7400) (list 5500 6000 6000 6300) (list 5500 6000 7200 7500) (list 5600 6100 6100 6400) (list 5600 6100 7300 7600) (list 5700 6200 6200 6500) (list 5700 6200 7400 7700) (list 5800 6300 6300 6600) (list 5800 6300 7500 7800) (list 5900 6400 6400 6700) (list 5900 6400 7600 7900) (list 6000 6500 6500 6800) (list 4300 4800 6300 6000) (list 4400 4900 6400 6100) (list 4500 5000 6500 6200) (list 4600 5100 6600 6300) (list 4700 5200 6700 6400) (list 4800 5300 6800 6500) (list 4900 5400 6900 6600) (list 5000 5500 7000 6700) (list 5100 5600 7100 6800) (list 5200 5700 7200 6900) (list 5300 5800 7300 7000) (list 5400 5900 7400 7100) (list 5500 6000 6300 6000) (list 5500 6000 7500 7200) (list 5600 6100 6400 6100) (list 5600 6100 7600 7300) (list 5700 6200 6500 6200) (list 5800 6300 6600 6300) (list 5900 6400 6700 6400) (list 6000 6500 6800 6500) (list 4800 6000 6300 6700) (list 4900 6100 6400 6800) (list 5000 6200 6500 6900) (list 5100 6300 6600 7000) (list 5200 6400 6700 7100) (list 5300 6500 6800 7200) (list 5400 5400 5700 6100) (list 5400 6600 6900 7300) (list 5500 5500 5800 6200) (list 5500 6700 7000 7400) (list 5600 5600 5900 6300) (list 5700 5700 6000 6400) (list 5800 5800 6100 6500) (list 5900 5900 6200 6600) (list 6000 4800 6300 6700) (list 6000 6000 6300 6700) (list 6000 4800 7500 7900) (list 4800 6000 6700 6300) (list 4900 6100 6800 6400) (list 5000 6200 6900 6500) (list 5100 6300 7000 6600) (list 5200 6400 7100 6700) (list 5300 6500 7200 6800) (list 5400 6600 7300 6900) (list 5500 6700 7400 7000) (list 5700 5700 6400 6000) (list 5800 5800 6500 6100) (list 5900 5900 6600 6200) (list 6000 4800 6700 6300) (list 6000 6000 6700 6300) (list 4800 6300 6000 6700) (list 4900 6400 6100 6800) (list 5000 6500 6200 6900) (list 5100 6600 6300 7000) (list 5200 6700 6400 7100) (list 5700 4800 5700 6400) (list 5700 6000 5700 6400) (list 5700 4800 6900 7600) (list 5800 4900 5800 6500) (list 5800 6100 5800 6500) (list 5800 4900 7000 7700) (list 5900 5000 5900 6600) (list 5900 6200 5900 6600) (list 5900 5000 7100 7800) (list 6000 5100 6000 6700) (list 6000 6300 6000 6700) (list 6000 5100 7200 7900) (list 4800 6300 6700 6000) (list 4900 6400 6800 6100) (list 5000 6500 6900 6200) (list 5100 6600 7000 6300) (list 5200 6700 7100 6400) (list 5700 4800 7600 6900) (list 6000 5100 6700 6000) (list 6000 6300 6700 6000) (list 4800 6700 6000 6300) (list 5300 4800 6500 6800) (list 5400 4900 6600 6900) (list 5500 5000 6700 7000) (list 5600 5100 6800 7100) (list 5700 5200 5700 6000) (list 5700 6400 5700 6000) (list 5700 5200 6900 7200) (list 5800 5300 5800 6100) (list 5800 6500 5800 6100) (list 5800 5300 7000 7300) (list 5900 5400 5900 6200) (list 5900 6600 5900 6200) (list 5900 5400 7100 7400) (list 6000 5500 6000 6300) (list 6000 6700 6000 6300) (list 6000 5500 7200 7500) (list 4800 6700 6300 6000) (list 5300 4800 6800 6500) (list 5400 4900 6900 6600) (list 5500 5000 7000 6700) (list 5600 5100 7100 6800) (list 5700 5200 7200 6900) (list 5800 5300 7300 7000) (list 5900 5400 7400 7100) (list 6000 5500 6300 6000) (list 6000 6700 6300 6000) (list 6000 5500 7500 7200))) "x" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((8 0 2 0 nil 0) (11 0 8 0 nil 0) (9 0 8 1 nil 0) (1 0 8 2 nil 0) (0 0 8 3 nil 0) (11 0 9 0 nil 0) (11 0 10 0 nil 0) (7 0 11 0 nil 0) (6 0 11 1 nil 0) (5 0 11 2 nil 0) (4 0 11 3 nil 0) (3 0 11 4 nil 0))) 6.15 nil "" (om-make-point 200 200) (om-make-point 500 400)) (quote ((om-load-inputfun (quote input-funbox) "" "input" nil) (om-load-inputfun (quote input-funbox) "" "input 2" nil) (om-load-inputfun (quote input-funbox) "" "input 3" nil) (om-load-inputfun (quote input-funbox) "" "input 4" nil) (om-load-inputfun (quote input-funbox) "" "input 5" nil))) (om-make-point 198 311/2) (om-make-point 509 67) (list (list (list 5200 5500 6400 7100) (list 5200 5500 7200 6000))) nil "harmonies"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 112 30) (quote "Sopran = instr3") "" (om-make-point 556 20) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 85 30) (quote "Alt = instr2") "" (om-make-point 476 20) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 97 30) (quote "Tenor = instr1") "" (om-make-point 376 20) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD" (quote chord) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (list of midicents)" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "velocities (list of values 0-127)" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (list of values in ms)" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "durations (list of values in ms)" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "MIDI channels (list of values 0-16)" "lchan" (list 1)))) (om-make-point 567 50) (om-make-point 79 102) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000 8400)) :ldur (quote (1000 1000)) :lvel (quote (100 100)) :loffset (quote (0 0)) :lchan (quote (1 1))))) (load-port-info thechord (quote (0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) "x" nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode cursor-mode show-stems scale)) (list 2 24 (quote g) (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 (1))) (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) (om-make-point 0 0) nil nil (quote :midi-player) 1 nil 1000 0 (om-make-point 500 402) (om-make-point 400 20) 0 0 (quote :normal) (quote t) nil)) t nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD" (quote chord) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (list of midicents)" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "velocities (list of values 0-127)" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (list of values in ms)" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "durations (list of values in ms)" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "MIDI channels (list of values 0-16)" "lchan" (list 1)))) (om-make-point 477 50) (om-make-point 79 102) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700 7600)) :ldur (quote (1000 1000)) :lvel (quote (100 100)) :loffset (quote (0 0)) :lchan (quote (1 1))))) (load-port-info thechord (quote (0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) "x" nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode cursor-mode show-stems scale)) (list 2 24 (quote g) (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 (1))) (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) (om-make-point 0 0) nil nil (quote :midi-player) 1 nil 1000 0 (om-make-point 500 402) (om-make-point 400 20) 0 0 (quote :normal) (quote t) nil)) t nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD" (quote chord) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (list of midicents)" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "velocities (list of values 0-127)" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (list of values in ms)" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "durations (list of values in ms)" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "MIDI channels (list of values 0-16)" "lchan" (list 1)))) (om-make-point 387 50) (om-make-point 79 102) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800 6700)) :ldur (quote (1000 1000)) :lvel (quote (100 100)) :loffset (quote (0 0)) :lchan (quote (1 1))))) (load-port-info thechord (quote (0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) "x" nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode cursor-mode show-stems scale)) (list 2 24 (quote f) (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 (1))) (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) (om-make-point 0 0) nil nil (quote :midi-player) 1 nil 1000 0 (om-make-point 500 402) (om-make-point 400 20) 0 0 (quote :normal) (quote t) nil)) t nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 97 30) (quote "Bass = instr0") "" (om-make-point 276 20) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD" (quote chord) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (list of midicents)" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "velocities (list of values 0-127)" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (list of values in ms)" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "durations (list of values in ms)" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "MIDI channels (list of values 0-16)" "lchan" (list 1)))) (om-make-point 297 50) (om-make-point 79 102) (let ((thechord (make-instance (quote chord) :lmidic (quote (3600 6000)) :ldur (quote (1000 1000)) :lvel (quote (100 100)) :loffset (quote (0 0)) :lchan (quote (1 1))))) (load-port-info thechord (quote (0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) "x" nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode cursor-mode show-stems scale)) (list 2 24 (quote f) (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 (1))) (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) (om-make-point 0 0) nil nil (quote :midi-player) 1 nil 1000 0 (om-make-point 500 402) (om-make-point 400 20) 0 0 (quote :normal) (quote t) nil)) t nil nil nil))) (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 60 123) (om-make-point 231 30) (list (list 0 400 700 1200) (list 0 300 700 1200)) "((0 400 700 1200) (0 300 700 1200))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((17 0 8 0 nil 0) (4 0 8 1 nil 0) (5 0 8 2 nil 0) (6 0 8 3 nil 0) (7 0 8 4 nil 0) (3 0 8 5 nil 0) (0 0 8 6 nil 0) (1 0 8 7 nil 0) (2 0 8 8 nil 0) (10 0 9 0 nil 0) (8 0 10 0 nil 0) (12 0 10 1 nil 0) (9 0 11 1 nil 0) (26 0 17 0 nil 0) (25 1 17 1 nil 0) (23 1 17 2 nil 0) (22 1 17 3 nil 0) (21 1 17 4 nil 0))) nil 6.15))
--
Gitblit v1.9.1