.gitignore
New file @@ -0,0 +1,16 @@ .DS_Store # LispWorks files *.*fasl *.*~ *.lisp~ *.lisp# *.*~ # OM Reference files /reference-pages/ # misc dev-related stash stuff: *_bkup* **/test *.zip OM-Lead.lisp
New file @@ -0,0 +1,50 @@ ;====================================== ;OM-Lead, 2022-2023 ; ;Library for Rule-based Voice-Leading ;Author: Lorenz Lehmann ;Supervision: Marlon Schumacher ;====================================== (defpackage :omlead) (in-package :omlead) ;-------------------------------------------------- ;Variable definiton with files to load ;-------------------------------------------------- (defvar *initfile* *load-pathname*) (defun lib-src-file (name) (make-pathname :directory (append (pathname-directory *initfile*) (list "sources")) :name name)) (defvar *OMLead-files* nil) (setf *OMLead-files* '("harmon-database" "harmon-progress" "get-score" "harmon-rhythm" )) ;-------------------------------------------------- ;Loading files ;-------------------------------------------------- (mapc #'(lambda (filename) (om::compile&load (namestring (lib-src-file filename)))) *OMLead-files*) ;-------------------------------------------------- ; OM subpackages initialization ; ("sub-pack-name" subpacke-lists class-list function-list class-alias-list) ;-------------------------------------------------- (defvar *svppackages-list* nil) (setf *subpackages-list* '((Nil Nil Nil (omlead::harmon-database omlead::harmon-progress omlead::get-score omlead::harmon-rhythm) Nil))) ;-------------------------------------------------- ;filling packages ;-------------------------------------------------- (om::fill-library *subpackages-list*) README.md
New file @@ -0,0 +1,7 @@ ## OM-Lead (Version 1) 2022-2023 OpenMusic-Library zur regelbasierten Harmonie und Stimmführung. Entwicklung Lorenz Lehmann Betreuung Prof. Dr. Marlon Schumacher Mit freundlicher Unterstützung Joseph Branciforte examples/Tutorial-Patch1 -Overview-.omp
New file @@ -0,0 +1,6 @@ ; OM File Header - Saved 2022/03/09 22:42:44 ; (6.15 :patc (om-make-point 10 10) (om-make-point 146 41) (om-make-point 1127 635) "" 183 0 "2022/03/09 22:05:29" "2022/03/09 22:42:44") ; End File Header ; External resources ; (list (list (quote :picture) "#P\"../resources/pict/Logo_Library-Lead\"")) (in-package :om)(load-lib-for (quote ("OM-Lead")))(setf *om-current-persistent* (om-load-patch1 "Tutorial-Patch1 -Overview-" (quote ((let ((box (om-load-boxcomment "comment" (om-make-point 247 75) (quote "RHYTHMIC-PROGRESS$Generates a list of voice, and adds $rhythmic and melodic movement to$the chords") nil (om-make-point 640 500) 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 247 75) (quote "HARMON-PROGRESS$Gives out to chords, which are chosen$randomly out of the harmon-database$and respects all given rules.") nil (om-make-point 640 300) 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 281 75) (quote "GET-SCORE$Generates a list of voices, to connect with a$poly-Object on its first outlet. On the other $it generates a voice-Object for each voice.") nil (om-make-point 220 500) 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 285 90) (quote "HARMON-DATABASE$Generates a collection of all possible chords $according to rules for the number of voices, $the range of the voices, interval-structure,$and the register-width") nil (om-make-point 220 300) 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 128 30) (quote "HARMONY") nil (om-make-point 100 240) nil (om-make-color 0 0 0) (om-make-font "Verdana" 18.0D0 :family "Verdana" :style (quote (:bold)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 128 30) (quote "RHYTHM") nil (om-make-point 100 410) nil (om-make-color 0 0 0) (om-make-font "Verdana" 18.0D0 :family "Verdana" :style (quote (:bold)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 165 58) (quote "OVERVIEW") nil (om-make-point 176 12) nil (om-make-color 0 0 0) (om-make-font "Verdana" 24.0D0 :family "Verdana" :style (quote (:bold)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "PICTURE" (quote picture) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "main background: external picture pathname or RGB array" "background" nil) (om-load-inputfun (quote input-funbox) "list of vectorial graphics" "graphics" nil))) (om-make-point 105 52) (om-make-point 299 171) (make-instance (quote picture) :name "Logo_Library-Lead" :source (quote user) :pict-pathname (restore-pict-path (restore-path nil)) :thepict (om-get-picture "Logo_Library-Lead" (quote user)) :storemode :external :draw-params (quote (p 0 0 100 100)) :extraobjs nil) "x" nil (pairlis (quote (winsize winpos)) (list (om-make-point 817 397) (om-make-point 10 40))) t 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 520 320) 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-make-point 100 320) nil nil nil nil 1))) (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-make-point 520 510) 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 120 510) nil nil nil nil 5))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote nil) nil 6.15)) examples/Tutorial-Patch4 -get-score-.omp
New file @@ -0,0 +1,4 @@ ; 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)) examples/Tutorial-Patch5 -get-score-.omp
New file @@ -0,0 +1,4 @@ ; 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)) examples/Tutorial-Patch6 -rhythmic-progress-.omp
New file @@ -0,0 +1,4 @@ ; 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)) resources/icons/030719971.bmp
New file @@ -0,0 +1,126 @@ ;====================================== ;OM-Lead, 2022-2023 ; ;Library for Rule-based Voice-Leading ;Author: Lorenz Lehmann ;Supervision: Marlon Schumacher ;====================================== (in-package :omlead) (om::defmethod! get-score (harmon-progress &key (measure_numerator 4) (measure_denominator 4) (tempo 60) (legato 100) (chan-i1 1) (chan-i2 1) (chan-i3 1) (chan-i4 1) (vel-i1 100) (vel-i2 100) (vel-i3 100) (vel-i4 100) tie-repetitions) :icon 030719971 :indoc '("the list of chords you may have generated in harmon-progress" "number of beats (could be a list or an integer number)" "beat (could be a list or an integer number)" "tempo" "legato" "midi-channel for instr1 (could be a list or an integer number)" "midi-channel for instr2 (could be a list or an integer number)" "midi-channel for instr3 (could be a list or an integer number)" "midi-channel for instr4 (could be a list or an integer number)") :numouts 5 :doc "A simple version of rhythmic-progress. Outlet1: Gives out a voice for each of the four instruments in a list to put in the second inlet of a poly-object. Outlet2-5: Gives out a voice for each of the four instruments to put in the first inlet of a voice-object" ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun mat-trans_oml (list) (loop for y in (let (count-list) (dotimes (i (length (car list))) (setq count-list (cons i count-list))) (nreverse count-list)) collect (loop for x in list collect (nth y x)) )) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (let* ((chordnumber (length harmon-progress)) (numerator (cond ((atom measure_numerator) (loop repeat chordnumber collect measure_numerator)) ((< (length measure_numerator) chordnumber) (append measure_numerator (loop repeat (- chordnumber (length measure_numerator)) collect (car (reverse measure_numerator))))) (t measure_numerator))) (denominator (cond ((atom measure_denominator) (loop repeat chordnumber collect measure_denominator)) ((< (length measure_denominator) chordnumber) (append measure_denominator (loop repeat (- chordnumber (length measure_denominator)) collect (car (reverse measure_denominator))))) (t measure_denominator))) (voice-list (mat-trans_oml harmon-progress)) (channel-list (list (cond ((atom chan-i1) (loop repeat chordnumber collect chan-i1)) ((< (length chan-i1) chordnumber) (append chan-i1 (loop repeat (- chordnumber (length chan-i1)) collect (car (reverse chan-i1))))) (t chan-i1)) (cond ((atom chan-i2) (loop repeat chordnumber collect chan-i2)) ((< (length chan-i2) chordnumber) (append chan-i2 (loop repeat (- chordnumber (length chan-i2)) collect (car (reverse chan-i2))))) (t chan-i2)) (cond ((atom chan-i3) (loop repeat chordnumber collect chan-i3)) ((< (length chan-i3) chordnumber) (append chan-i3 (loop repeat (- chordnumber (length chan-i3)) collect (car (reverse chan-i3))))) (t chan-i3)) (cond ((atom chan-i4) (loop repeat chordnumber collect chan-i4)) ((< (length chan-i4) chordnumber) (append chan-i4 (loop repeat (- chordnumber (length chan-i4)) collect (car (reverse chan-i4))))) (t chan-i4)))) (velocity-list (list (cond ((atom vel-i1) (loop repeat chordnumber collect vel-i1)) ((< (length vel-i1) chordnumber) (append vel-i1 (loop repeat (- chordnumber (length vel-i1)) collect (car (reverse vel-i1))))) (t vel-i1)) (cond ((atom vel-i2) (loop repeat chordnumber collect vel-i2)) ((< (length vel-i2) chordnumber) (append vel-i2 (loop repeat (- chordnumber (length vel-i2)) collect (car (reverse vel-i2))))) (t vel-i2)) (cond ((atom vel-i3) (loop repeat chordnumber collect vel-i3)) ((< (length vel-i3) chordnumber) (append vel-i3 (loop repeat (- chordnumber (length vel-i3)) collect (car (reverse vel-i3))))) (t vel-i3)) (cond ((atom vel-i4) (loop repeat chordnumber collect vel-i4)) ((< (length vel-i4) chordnumber) (append vel-i4 (loop repeat (- chordnumber (length vel-i4)) collect (car (reverse vel-i4))))) (t vel-i4)))) (tree-list (loop for voice in voice-list collect (list 'om::? (loop for n in numerator for d in denominator for v in voice collect (if (eq v -1) (list (append (list n d)) '(-1)) (list (append (list n d)) '(1))))))) (tree-list (cond (tie-repetitions (loop for voice in voice-list for tree in tree-list collect (list (car tree) (loop for x in (cadr tree) for v on (append '(x) voice) until (< (length v) 2) collect (list (first x) (mapcar (lambda (a b) (* a b)) (second x) (if (eq (first v) (second v)) (append '(1.0) (make-list (1- (length (second x))) :initial-element 1)) (make-list (length (second x)) :initial-element 1)))))))) (t tree-list))) (voice-list (cond (tie-repetitions (loop for voice in voice-list collect (remove nil (loop for i on (append '(x) voice) until (< (length i) 2) collect (if (eq (first i) (second i)) nil (second i)))))) (t voice-list))) (chord-list (loop for voice in voice-list for channel in channel-list for velocity in velocity-list collect (remove nil (loop for v in voice for c in channel for vel in velocity collect (if (eq v -1) nil (om::make-instance 'om::chord :lmidic (list v) :lchan (list c) :lvel (list vel))))))) (voices (loop for tree in tree-list for chords in chord-list collect (om::make-instance 'om::voice :tree tree :chords chords :tempo tempo :legato legato)))) (values-list (list (reverse voices) (nth 0 voices) (nth 1 voices) (nth 2 voices) (nth 3 voices))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;END;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
New file @@ -0,0 +1,181 @@ ;====================================== ;OM-Lead, 2022-2023 ; ;Library for Rule-based Voice-Leading ;Author: Lorenz Lehmann ;Supervision: Marlon Schumacher ;====================================== (in-package :omlead) ;;;harmon-database ;keine globalen Variablen mehr (om::defmethod! harmon-database (pitch-set-list instr1 &key instr2 instr3 instr4 (fundamental 6000) (skala (list 100)) (permutations t) (register-list '(0))) :icon 030719972 :indoc '("a list of lists of intervals respective to a base not in midi-cents" "range-list with the lowest and highest note of the instrument in midi-cents" "range-list with the lowest and highest note of the instrument in midi-cents" "range-list with the lowest and highest note of the instrument in midi-cents" "range-list with the lowest and highest note of the instrument in midi-cents" "list of intervals based on the virtual fundamental which defines the <octave> for register-transposition") :numouts 1 :doc "creates a list of chords, that contains all possible transpositions & permutations of the given pitch-sets" ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun circular_oml (items) (setf (cdr (last items)) items) items) (defun flat_oml (liste) (cond ((null (cdr liste)) (if (atom (car liste)) liste (flat_oml (car liste)))) ((and (listp (car liste)) (not (listp (cadr liste)))) (append (car liste) (flat_oml (cdr liste)))) ((and (not (listp (car liste))) (not (listp (cadr liste)))) (append (list (car liste)) (flat_oml (cdr liste)))) ((and (listp (car liste)) (listp (cadr liste))) (append (car liste) (flat_oml (cdr liste)))) ((and (not (listp (car liste))) (listp (cadr liste))) (append (list (car liste)) (flat_oml (cdr liste)))))) (defun get-pos_oml (positions seq) (let ((positions (if (atom positions) (list positions) positions))) (mapcar #'(lambda (it) (nth it seq)) seq))) (defun permutations_oml (bag) (if (null bag) '(()) (mapcan #'(lambda (e) (mapcar #' (lambda (p) (cons e p)) (permutations_oml (remove e bag :count 1 :test #'eq)))) bag))) (defun mat-trans_oml (list) (loop for y in (let (count-list) (dotimes (i (length (car list))) (setq count-list (cons i count-list))) (nreverse count-list)) collect (loop for x in list collect (nth y x)) )) (defun modulo_oml (pos liste) (append (nthcdr pos liste) (butlast liste (- (length liste) pos)))) (defun register-permut_oml (register-list) (remove-duplicates (om::flat (loop for r in register-list collect (mapcar #'(lambda (l) (permutations_oml (append (make-list l :initial-element r) (make-list (- (length register-list) l) :initial-element 0)))) (loop for x from 1 to (length register-list) collect x))) 2) :test 'equal)) (defun find-pos_oml (item seq) (remove nil (loop for s in seq for x collect (if (equal item s) x)))) (defun sum_oml (liste) (if (null (cdr liste)) (car liste) (+ (car liste) (sum_oml (cdr liste))))) (defun variations_oml (liste pcl) (let* ((liste (remove-duplicates liste)) (liste (make-list pcl :initial-element liste))) (apply #'alexandria:map-product #'list liste))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (let* ( (instr-list (sort (flat_oml (remove nil (list instr1 instr2 instr3 instr4))) '<)) (total-range (cons (car instr-list) (last instr-list))) (trans-skala (let* ((grundton fundamental) (tief (car total-range)) (hoch (cadr total-range)) (skala-up skala) (skala-down (reverse skala-up)) (endless-up (circular_oml skala-up)) (endless-down (circular_oml skala-down)) (skala-up (loop for i in endless-up sum i into delta until (> (+ delta grundton) hoch) collect i)) (skala-down (loop for i in endless-down sum i into delta until (< (- grundton delta) tief) collect i)) (transpositionsliste-up (list grundton)) (transpositionsliste-down (list grundton))) (loop for i in skala-up do (push (+ (car transpositionsliste-up) i) transpositionsliste-up)) (loop for i in skala-down do (push (- (car transpositionsliste-down) i) transpositionsliste-down)) (append (butlast transpositionsliste-down) (reverse transpositionsliste-up)) )) (harmon-database (om::flat (loop for pitch in trans-skala collect (loop for set in pitch-set-list collect (mapcar #'(lambda (l) (+ pitch l)) set))) 1)) (harmon-database (cond (permutations (om::flat (loop for l in harmon-database collect (permutations_oml l)) 1)) (t harmon-database))) (harmon-database (remove-duplicates (om::flat (loop for a in harmon-database collect (loop for reg in (variations_oml register-list (length a)) collect (mapcar #'(lambda (r p) (+ r p)) reg a))) 1) :test 'equal)) (instr-list2 (remove nil (list instr1 instr2 instr3 instr4))) (harmon-database (loop for a in harmon-database collect (loop for p in a for count to (1- (length instr-list2)) collect (if (or (< p (car (nth count instr-list2))) (> p (cadr (nth count instr-list2)))) nil p)))) (harmon-database (remove nil (loop for a in harmon-database collect (if (> (count nil a) 0) nil a))))) harmon-database))
New file @@ -0,0 +1,628 @@ ;====================================== ;OM-Lead, 2022-2023 ; ;Library for Rule-based Voice-Leading ;Author: Lorenz Lehmann ;Supervision: Marlon Schumacher ;====================================== (in-package :omlead) (om::defmethod! harmon-progress (harmon-database first-chord chordnumber &key avoid-repetitions voice-tie1 voice-tie2 voice-tie3 voice-tie4 voice-interval1 voice-interval2 voice-interval3 voice-interval4 voice-counter1 counter-interval1 voice-counter2 counter-interval2 voice-counter3 counter-interval3 voice-counter4 counter-interval4 voice-counter5 counter-interval5 voice-counter6 counter-interval6 base-list) :icon 030719972 :numouts 1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun mat-trans_oml (list) (loop for y in (let (count-list) (dotimes (i (length (car list))) (setq count-list (cons i count-list))) (nreverse count-list)) collect (loop for x in list collect (nth y x)) )) (defun posn-match_oml (list positions) (cond ((null positions) '()) ((atom positions) (nth positions list)) (t (append (list (posn-match_oml list (car positions))) (if (posn-match_oml list (cdr positions)) (posn-match_oml list (cdr positions)) '()))))) (defun subs-posn_oml (list position item) (loop for a from 0 for b in list collect (if (= a position) item b))) (defun oml- (list atom) (mapcar (lambda (it) (- it atom)) list)) (defun find-dups_oml (liste) (car (remove nil (mapcar #'(lambda (l c) (eq l c)) liste (cdr liste))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (let* ((harmon-database harmon-database) (database (cond (base-list (loop repeat (1- chordnumber) for x in (circular_oml base-list) collect (nth (1- x) harmon-database))) (t (loop repeat (1- chordnumber) collect harmon-database)))) (external-list '())) (append (list first-chord) (loop repeat (- chordnumber 1) for database in database for voice-tie1 in (cond ((atom voice-tie1) (loop repeat chordnumber collect voice-tie1)) ((< (length voice-tie1) chordnumber) (append voice-tie1 (loop repeat (- chordnumber (length voice-tie1)) collect (car (reverse voice-tie1))))) (t voice-tie1)) for voice-tie2 in (cond ((atom voice-tie2) (loop repeat chordnumber collect voice-tie2)) ((< (length voice-tie2) chordnumber) (append voice-tie2 (loop repeat (- chordnumber (length voice-tie2)) collect (car (reverse voice-tie2))))) (t voice-tie2)) for voice-tie3 in (cond ((atom voice-tie3) (loop repeat chordnumber collect voice-tie3)) ((< (length voice-tie3) chordnumber) (append voice-tie3 (loop repeat (- chordnumber (length voice-tie3)) collect (car (reverse voice-tie3))))) (t voice-tie3)) for voice-tie4 in (cond ((atom voice-tie4) (loop repeat chordnumber collect voice-tie4)) ((< (length voice-tie4) chordnumber) (append voice-tie4 (loop repeat (- chordnumber (length voice-tie4)) collect (car (reverse voice-tie4))))) (t voice-tie4)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; for voice-interval1 in (cond ((atom (car voice-interval1)) (loop repeat chordnumber collect voice-interval1)) ((< (length voice-interval1) chordnumber) (append voice-interval1 (loop repeat (- chordnumber (length voice-interval1)) collect (car (reverse voice-interval1))))) (t voice-interval1)) for voice-interval2 in (cond ((atom (car voice-interval2)) (loop repeat chordnumber collect voice-interval2)) ((< (length voice-interval2) chordnumber) (append voice-interval2 (loop repeat (- chordnumber (length voice-interval2)) collect (car (reverse voice-interval2))))) (t voice-interval2)) for voice-interval3 in (cond ((atom (car voice-interval3)) (loop repeat chordnumber collect voice-interval3)) ((< (length voice-interval3) chordnumber) (append voice-interval3 (loop repeat (- chordnumber (length voice-interval3)) collect (car (reverse voice-interval3))))) (t voice-interval3)) for voice-interval4 in (cond ((atom (car voice-interval4)) (loop repeat chordnumber collect voice-interval4)) ((< (length voice-interval4) chordnumber) (append voice-interval4 (loop repeat (- chordnumber (length voice-interval4)) collect (car (reverse voice-interval4))))) (t voice-interval4)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; for voice-counter1 in (if (eq nil voice-counter1) (loop repeat chordnumber collect nil) (mat-trans_oml (list (cond ((not (listp (caar voice-counter1))) (loop repeat chordnumber collect (car voice-counter1))) ((< (length (car voice-counter1)) chordnumber) (append (car voice-counter1) (loop repeat (- chordnumber (length (car voice-counter1))) collect (car (reverse (car voice-counter1)))))) (t (car voice-counter1))) (cond ((< (length (cadr voice-counter1)) chordnumber) (append (cadr voice-counter1) (loop repeat (- chordnumber (length (cadr voice-counter1))) collect (car (reverse (cadr voice-counter1)))))) (t (cadr voice-counter1)))))) for voice-counter2 in (if (eq nil voice-counter2) (loop repeat chordnumber collect nil) (mat-trans_oml (list (cond ((not (listp (caar voice-counter2))) (loop repeat chordnumber collect (car voice-counter2))) ((< (length (car voice-counter2)) chordnumber) (append (car voice-counter2) (loop repeat (- chordnumber (length (car voice-counter2))) collect (car (reverse (car voice-counter2)))))) (t (car voice-counter2))) (cond ((< (length (cadr voice-counter2)) chordnumber) (append (cadr voice-counter2) (loop repeat (- chordnumber (length (cadr voice-counter2))) collect (car (reverse (cadr voice-counter2)))))) (t (cadr voice-counter2)))))) for voice-counter3 in (if (eq nil voice-counter3) (loop repeat chordnumber collect nil) (mat-trans_oml (list (cond ((not (listp (caar voice-counter3))) (loop repeat chordnumber collect (car voice-counter3))) ((< (length (car voice-counter3)) chordnumber) (append (car voice-counter3) (loop repeat (- chordnumber (length (car voice-counter3))) collect (car (reverse (car voice-counter3)))))) (t (car voice-counter3))) (cond ((< (length (cadr voice-counter3)) chordnumber) (append (cadr voice-counter3) (loop repeat (- chordnumber (length (cadr voice-counter3))) collect (car (reverse (cadr voice-counter3)))))) (t (cadr voice-counter3)))))) for voice-counter4 in (if (eq nil voice-counter4) (loop repeat chordnumber collect nil) (mat-trans_oml (list (cond ((not (listp (caar voice-counter4))) (loop repeat chordnumber collect (car voice-counter4))) ((< (length (car voice-counter4)) chordnumber) (append (car voice-counter4) (loop repeat (- chordnumber (length (car voice-counter4))) collect (car (reverse (car voice-counter4)))))) (t (car voice-counter4))) (cond ((< (length (cadr voice-counter4)) chordnumber) (append (cadr voice-counter4) (loop repeat (- chordnumber (length (cadr voice-counter4))) collect (car (reverse (cadr voice-counter4)))))) (t (cadr voice-counter4)))))) for voice-counter5 in (if (eq nil voice-counter5) (loop repeat chordnumber collect nil) (mat-trans_oml (list (cond ((not (listp (caar voice-counter5))) (loop repeat chordnumber collect (car voice-counter5))) ((< (length (car voice-counter5)) chordnumber) (append (car voice-counter5) (loop repeat (- chordnumber (length (car voice-counter5))) collect (car (reverse (car voice-counter5)))))) (t (car voice-counter5))) (cond ((< (length (cadr voice-counter5)) chordnumber) (append (cadr voice-counter5) (loop repeat (- chordnumber (length (cadr voice-counter5))) collect (car (reverse (cadr voice-counter5)))))) (t (cadr voice-counter5)))))) for voice-counter6 in (if (eq nil voice-counter6) (loop repeat chordnumber collect nil) (mat-trans_oml (list (cond ((not (listp (caar voice-counter6))) (loop repeat chordnumber collect (car voice-counter6))) ((< (length (car voice-counter6)) chordnumber) (append (car voice-counter6) (loop repeat (- chordnumber (length (car voice-counter6))) collect (car (reverse (car voice-counter6)))))) (t (car voice-counter6))) (cond ((< (length (cadr voice-counter6)) chordnumber) (append (cadr voice-counter6) (loop repeat (- chordnumber (length (cadr voice-counter6))) collect (car (reverse (cadr voice-counter6)))))) (t (cadr voice-counter6)))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; for counter-interval1 in (cond ((atom (car counter-interval1)) (loop repeat chordnumber collect counter-interval1)) ((< (length counter-interval1) chordnumber) (append counter-interval1 (loop repeat (- chordnumber (length counter-interval1)) collect (car (reverse counter-interval1))))) (t counter-interval1)) for counter-interval2 in (cond ((atom (car counter-interval2)) (loop repeat chordnumber collect counter-interval2)) ((< (length counter-interval2) chordnumber) (append counter-interval2 (loop repeat (- chordnumber (length counter-interval2)) collect (car (reverse counter-interval2))))) (t counter-interval2)) for counter-interval3 in (cond ((atom (car counter-interval3)) (loop repeat chordnumber collect counter-interval3)) ((< (length counter-interval3) chordnumber) (append counter-interval3 (loop repeat (- chordnumber (length counter-interval3)) collect (car (reverse counter-interval3))))) (t counter-interval3)) for counter-interval4 in (cond ((atom (car counter-interval4)) (loop repeat chordnumber collect counter-interval4)) ((< (length counter-interval4) chordnumber) (append counter-interval4 (loop repeat (- chordnumber (length counter-interval4)) collect (car (reverse counter-interval4))))) (t counter-interval4)) for counter-interval5 in (cond ((atom (car counter-interval5)) (loop repeat chordnumber collect counter-interval5)) ((< (length counter-interval5) chordnumber) (append counter-interval5 (loop repeat (- chordnumber (length counter-interval5)) collect (car (reverse counter-interval5))))) (t counter-interval5)) for counter-interval6 in (cond ((atom (car counter-interval6)) (loop repeat chordnumber collect counter-interval6)) ((< (length counter-interval6) chordnumber) (append counter-interval6 (loop repeat (- chordnumber (length counter-interval6)) collect (car (reverse counter-interval6))))) (t counter-interval6)) collect (let* ((second (nconc (list first-chord) external-list)) (first (car (last second)));6000 6700 (second (let* ((temp-base database) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (temp-base (cond (avoid-repetitions (setq looplist (remove nil (loop for a in temp-base collect (if (car (remove nil (mapcar #'(lambda (l) (eq (car l) (cadr l))) (mat-trans_oml (list first a))))) nil a)))) (if (null looplist) (list (loop repeat (length (first temp-base)) collect -1)) looplist)) (t temp-base))) (temp-base (cond (voice-tie1 (let ((voice-tie1 (- voice-tie1 1))) (setq looplist (remove nil (loop for a in temp-base collect (cond ((eq (nth voice-tie1 a) (nth voice-tie1 first)) a) ((eq (nth voice-tie1 a) -1) a) (t nil))))) (if (null looplist) (loop for a in temp-base collect (subs-posn_oml a voice-tie1 -1)) looplist))) (t temp-base))) (temp-base (cond (voice-tie2 (let ((voice-tie2 (- voice-tie2 1))) (setq looplist (remove nil (loop for a in temp-base collect (cond ((eq (nth voice-tie2 a) (nth voice-tie2 first)) a) ((eq (nth voice-tie2 a) -1) a) (t nil))))) (if (null looplist) (loop for a in temp-base collect (subs-posn_oml a voice-tie2 -1)) looplist))) (t temp-base))) (temp-base (cond (voice-tie3 (let ((voice-tie3 (- voice-tie3 1))) (setq looplist (remove nil (loop for a in temp-base collect (cond ((eq (nth voice-tie3 a) (nth voice-tie3 first)) a) ((eq (nth voice-tie3 a) -1) a) (t nil))))) (if (null looplist) (loop for a in temp-base collect (subs-posn_oml a voice-tie3 -1)) looplist))) (t temp-base))) (temp-base (cond (voice-tie4 (let ((voice-tie4 (- voice-tie4 1))) (setq looplist (remove nil (loop for a in temp-base collect (cond ((eq (nth voice-tie4 a) (nth voice-tie4 first)) a) ((eq (nth voice-tie4 a) -1) a) (t nil))))) (if (null looplist) (loop for a in temp-base collect (subs-posn_oml a voice-tie4 -1)) looplist))) (t temp-base))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (temp-base (cond (voice-interval1 (setq looplist (remove nil (loop for a in temp-base collect (if (or (find (- (nth 0 a) (nth 0 first)) voice-interval1) (eq (nth 0 first) -1)) a)))) (if (null looplist) (loop for a in temp-base collect (subs-posn_oml a 0 -1)) looplist)) (t temp-base))) (temp-base (cond (voice-interval2 (setq looplist (remove nil (loop for a in temp-base collect (if (or (find (- (nth 1 a) (nth 1 first)) voice-interval2) (eq (nth 1 first) -1)) a)))) (if (null looplist) (loop for a in temp-base collect (subs-posn_oml a 1 -1)) looplist)) (t temp-base))) (temp-base (cond (voice-interval3 (setq looplist (remove nil (loop for a in temp-base collect (if (or (find (- (nth 2 a) (nth 2 first)) voice-interval3) (eq (nth 2 first) -1)) a)))) (if (null looplist) (loop for a in temp-base collect (subs-posn_oml a 2 -1)) looplist)) (t temp-base))) (temp-base (cond (voice-interval4 (setq looplist (remove nil (loop for a in temp-base collect (if (or (find (- (nth 3 a) (nth 3 first)) voice-interval4) (eq (nth 3 first) -1)) a)))) (if (null looplist) (loop for a in temp-base collect (subs-posn_oml a 3 -1)) looplist)) (t temp-base))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (temp-base (cond (voice-counter1 (setq looplist (remove nil (loop for a in temp-base collect (let* ((instr-a (1- (first (car voice-counter1)))) ;0 (instr-b (1- (second (car voice-counter1)))) ;1 (delta-a (- (nth instr-a a) (nth instr-a first))) (delta-b (- (nth instr-b a) (nth instr-b first))) (rule (second voice-counter1))) (cond (counter-interval1 (if (eq rule (cond ((and (or (and (< 0 delta-a) (< 0 delta-b)) (and (> 0 delta-a) (> 0 delta-b)) (and (= 0 delta-a) (= 0 delta-b))) (find (- (nth instr-b a) (nth instr-a a)) counter-interval1)) 'parallel) ((and (or (and (< 0 delta-a) (> 0 delta-b)) (and (> 0 delta-a) (< 0 delta-b))) (find (- (nth instr-b a) (nth instr-a a)) counter-interval1)) 'contrary) ((and (or (and (or (< 0 delta-a) (> 0 delta-a)) (= 0 delta-b)) (and (= 0 delta-a) (or (< 0 delta-b) (> 0 delta-b)))) (find (- (nth instr-b a) (nth instr-a a)) counter-interval1)) 'seiten))) a)) (t (if (equal rule (cond ((or (and (< 0 delta-a) (< 0 delta-b)) (and (> 0 delta-a) (> 0 delta-b)) (and (= 0 delta-a) (= 0 delta-b))) 'parallel) ((or (and (< 0 delta-a) (> 0 delta-b)) (and (> 0 delta-a) (< 0 delta-b))) 'contrary) ((or (and (or (< 0 delta-a) (> 0 delta-a)) (= 0 delta-b)) (and (= 0 delta-a) (or (< 0 delta-b) (> 0 delta-b)))) 'seiten))) a))))))) (if (null looplist) (loop for a in temp-base collect (subs-posn_oml a (1- (first (car voice-counter1))) -1)) looplist)) (t temp-base))) (temp-base (cond (voice-counter2 (setq looplist (remove nil (loop for a in temp-base collect (let* ((instr-a (1- (first (car voice-counter2)))) ;0 (instr-b (1- (second (car voice-counter2)))) ;1 (delta-a (- (nth instr-a a) (nth instr-a first))) (delta-b (- (nth instr-b a) (nth instr-b first))) (rule (second voice-counter2))) (cond (counter-interval2 (if (eq rule (cond ((and (or (and (< 0 delta-a) (< 0 delta-b)) (and (> 0 delta-a) (> 0 delta-b)) (and (= 0 delta-a) (= 0 delta-b))) (find (- (nth instr-b a) (nth instr-a a)) counter-interval2)) 'parallel) ((and (or (and (< 0 delta-a) (> 0 delta-b)) (and (> 0 delta-a) (< 0 delta-b))) (find (- (nth instr-b a) (nth instr-a a)) counter-interval2)) 'contrary) ((and (or (and (or (< 0 delta-a) (> 0 delta-a)) (= 0 delta-b)) (and (= 0 delta-a) (or (< 0 delta-b) (> 0 delta-b)))) (find (- (nth instr-b a) (nth instr-a a)) counter-interval2)) 'seiten))) a)) (t (if (equal rule (cond ((or (and (< 0 delta-a) (< 0 delta-b)) (and (> 0 delta-a) (> 0 delta-b)) (and (= 0 delta-a) (= 0 delta-b))) 'parallel) ((or (and (< 0 delta-a) (> 0 delta-b)) (and (> 0 delta-a) (< 0 delta-b))) 'contrary) ((or (and (or (< 0 delta-a) (> 0 delta-a)) (= 0 delta-b)) (and (= 0 delta-a) (or (< 0 delta-b) (> 0 delta-b)))) 'seiten))) a))))))) (if (null looplist) (loop for a in temp-base collect (subs-posn_oml a (1- (first (car voice-counter2))) -1)) looplist)) (t temp-base))) (temp-base (cond (voice-counter3 (setq looplist (remove nil (loop for a in temp-base collect (let* ((instr-a (1- (first (car voice-counter3)))) ;0 (instr-b (1- (second (car voice-counter3)))) ;1 (delta-a (- (nth instr-a a) (nth instr-a first))) (delta-b (- (nth instr-b a) (nth instr-b first))) (rule (second voice-counter3))) (cond (counter-interval3 (if (eq rule (cond ((and (or (and (< 0 delta-a) (< 0 delta-b)) (and (> 0 delta-a) (> 0 delta-b)) (and (= 0 delta-a) (= 0 delta-b))) (find (- (nth instr-b a) (nth instr-a a)) counter-interval3)) 'parallel) ((and (or (and (< 0 delta-a) (> 0 delta-b)) (and (> 0 delta-a) (< 0 delta-b))) (find (- (nth instr-b a) (nth instr-a a)) counter-interval3)) 'contrary) ((and (or (and (or (< 0 delta-a) (> 0 delta-a)) (= 0 delta-b)) (and (= 0 delta-a) (or (< 0 delta-b) (> 0 delta-b)))) (find (- (nth instr-b a) (nth instr-a a)) counter-interval3)) 'seiten))) a)) (t (if (equal rule (cond ((or (and (< 0 delta-a) (< 0 delta-b)) (and (> 0 delta-a) (> 0 delta-b)) (and (= 0 delta-a) (= 0 delta-b))) 'parallel) ((or (and (< 0 delta-a) (> 0 delta-b)) (and (> 0 delta-a) (< 0 delta-b))) 'contrary) ((or (and (or (< 0 delta-a) (> 0 delta-a)) (= 0 delta-b)) (and (= 0 delta-a) (or (< 0 delta-b) (> 0 delta-b)))) 'seiten))) a))))))) (if (null looplist) (loop for a in temp-base collect (subs-posn_oml a (1- (first (car voice-counter3))) -1)) looplist)) (t temp-base))) (temp-base (cond (voice-counter4 (setq looplist (remove nil (loop for a in temp-base collect (let* ((instr-a (1- (first (car voice-counter4)))) ;0 (instr-b (1- (second (car voice-counter4)))) ;1 (delta-a (- (nth instr-a a) (nth instr-a first))) (delta-b (- (nth instr-b a) (nth instr-b first))) (rule (second voice-counter4))) (cond (counter-interval4 (if (eq rule (cond ((and (or (and (< 0 delta-a) (< 0 delta-b)) (and (> 0 delta-a) (> 0 delta-b)) (and (= 0 delta-a) (= 0 delta-b))) (find (- (nth instr-b a) (nth instr-a a)) counter-interval4)) 'parallel) ((and (or (and (< 0 delta-a) (> 0 delta-b)) (and (> 0 delta-a) (< 0 delta-b))) (find (- (nth instr-b a) (nth instr-a a)) counter-interval4)) 'contrary) ((and (or (and (or (< 0 delta-a) (> 0 delta-a)) (= 0 delta-b)) (and (= 0 delta-a) (or (< 0 delta-b) (> 0 delta-b)))) (find (- (nth instr-b a) (nth instr-a a)) counter-interval4)) 'seiten))) a)) (t (if (equal rule (cond ((or (and (< 0 delta-a) (< 0 delta-b)) (and (> 0 delta-a) (> 0 delta-b)) (and (= 0 delta-a) (= 0 delta-b))) 'parallel) ((or (and (< 0 delta-a) (> 0 delta-b)) (and (> 0 delta-a) (< 0 delta-b))) 'contrary) ((or (and (or (< 0 delta-a) (> 0 delta-a)) (= 0 delta-b)) (and (= 0 delta-a) (or (< 0 delta-b) (> 0 delta-b)))) 'seiten))) a))))))) (if (null looplist) (loop for a in temp-base collect (subs-posn_oml a (1- (first (car voice-counter4))) -1)) looplist)) (t temp-base))) (temp-base (cond (voice-counter5 (setq looplist (remove nil (loop for a in temp-base collect (let* ((instr-a (1- (first (car voice-counter5)))) ;0 (instr-b (1- (second (car voice-counter5)))) ;1 (delta-a (- (nth instr-a a) (nth instr-a first))) (delta-b (- (nth instr-b a) (nth instr-b first))) (rule (second voice-counter5))) (cond (counter-interval5 (if (eq rule (cond ((and (or (and (< 0 delta-a) (< 0 delta-b)) (and (> 0 delta-a) (> 0 delta-b)) (and (= 0 delta-a) (= 0 delta-b))) (find (- (nth instr-b a) (nth instr-a a)) counter-interval5)) 'parallel) ((and (or (and (< 0 delta-a) (> 0 delta-b)) (and (> 0 delta-a) (< 0 delta-b))) (find (- (nth instr-b a) (nth instr-a a)) counter-interval5)) 'contrary) ((and (or (and (or (< 0 delta-a) (> 0 delta-a)) (= 0 delta-b)) (and (= 0 delta-a) (or (< 0 delta-b) (> 0 delta-b)))) (find (- (nth instr-b a) (nth instr-a a)) counter-interval5)) 'seiten))) a)) (t (if (equal rule (cond ((or (and (< 0 delta-a) (< 0 delta-b)) (and (> 0 delta-a) (> 0 delta-b)) (and (= 0 delta-a) (= 0 delta-b))) 'parallel) ((or (and (< 0 delta-a) (> 0 delta-b)) (and (> 0 delta-a) (< 0 delta-b))) 'contrary) ((or (and (or (< 0 delta-a) (> 0 delta-a)) (= 0 delta-b)) (and (= 0 delta-a) (or (< 0 delta-b) (> 0 delta-b)))) 'seiten))) a))))))) (if (null looplist) (loop for a in temp-base collect (subs-posn_oml a (1- (first (car voice-counter5))) -1)) looplist)) (t temp-base))) (temp-base (cond (voice-counter6 (setq looplist (remove nil (loop for a in temp-base collect (let* ((instr-a (1- (first (car voice-counter6)))) ;0 (instr-b (1- (second (car voice-counter6)))) ;1 (delta-a (- (nth instr-a a) (nth instr-a first))) (delta-b (- (nth instr-b a) (nth instr-b first))) (rule (second voice-counter6))) (cond (counter-interval6 (if (eq rule (cond ((and (or (and (< 0 delta-a) (< 0 delta-b)) (and (> 0 delta-a) (> 0 delta-b)) (and (= 0 delta-a) (= 0 delta-b))) (find (- (nth instr-b a) (nth instr-a a)) counter-interval6)) 'parallel) ((and (or (and (< 0 delta-a) (> 0 delta-b)) (and (> 0 delta-a) (< 0 delta-b))) (find (- (nth instr-b a) (nth instr-a a)) counter-interval6)) 'contrary) ((and (or (and (or (< 0 delta-a) (> 0 delta-a)) (= 0 delta-b)) (and (= 0 delta-a) (or (< 0 delta-b) (> 0 delta-b)))) (find (- (nth instr-b a) (nth instr-a a)) counter-interval6)) 'seiten))) a)) (t (if (equal rule (cond ((or (and (< 0 delta-a) (< 0 delta-b)) (and (> 0 delta-a) (> 0 delta-b)) (and (= 0 delta-a) (= 0 delta-b))) 'parallel) ((or (and (< 0 delta-a) (> 0 delta-b)) (and (> 0 delta-a) (< 0 delta-b))) 'contrary) ((or (and (or (< 0 delta-a) (> 0 delta-a)) (= 0 delta-b)) (and (= 0 delta-a) (or (< 0 delta-b) (> 0 delta-b)))) 'seiten))) a))))))) (if (null looplist) (loop for a in temp-base collect (subs-posn_oml a (1- (first (car voice-counter6))) -1)) looplist)) (t temp-base))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (nth (random (length temp-base)) temp-base) ))) (nreverse (push second external-list)) (values second)))))) ;;;;;;;;;;;;;;;end ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
New file @@ -0,0 +1,266 @@ ;====================================== ;OM-Lead, 2022-2023 ; ;Library for Rule-based Voice-Leading ;Author: Lorenz Lehmann ;Supervision: Marlon Schumacher ;====================================== (in-package :omlead) (om::defmethod! harmon-rhythm (harmon_progress measure_numerator measure_denominator n-bars n-harmonies tree-base1 &key tree-base2 tree-base3 tree-base4 (tempo 60) (legato 100) (chan-i1 1) (chan-i2 1) (chan-i3 1) (chan-i4 1) (vel-i1 100) (vel-i2 100) (vel-i3 100) (vel-i4 100) off-sets proportions pulses pause-tie avoid-pause-repetitions) :icon 030719971 :numouts 5 ;:indoc '("tree: a list of trees or a list of lists with trees (((tree) (tree) (tree)))/ (((tree1) (tree2)) ((tree1)))" "chords -> harmon-progress") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun mat-trans_oml (list) (loop for y in (let (count-list) (dotimes (i (length (car list))) (setq count-list (cons i count-list))) (nreverse count-list)) collect (loop for x in list collect (nth y x)))) (defun n-pulses_oml (l) (labels ((pulses (liste) (if (null (car liste)) liste (cond ((atom (car liste)) (cons 1 (pulses (cdr liste)))) (t (pulses (car liste))))))) (length (pulses l)))) (defun nth-rand_oml (liste) (nth (random (length liste)) liste)) (defun list_oml (seq list) (if (null seq) seq (cons (butlast seq (- (length seq) (car list))) (list_oml (nthcdr (car list) seq) (cdr list))))) (defun flat_oml (liste) (cond ((null (cdr liste)) (if (atom (car liste)) liste (flat_oml (car liste)))) ((and (listp (car liste)) (not (listp (cadr liste)))) (append (car liste) (flat_oml (cdr liste)))) ((and (not (listp (car liste))) (not (listp (cadr liste)))) (append (list (car liste)) (flat_oml (cdr liste)))) ((and (listp (car liste)) (listp (cadr liste))) (append (car liste) (flat_oml (cdr liste)))) ((and (not (listp (car liste))) (listp (cadr liste))) (append (list (car liste)) (flat_oml (cdr liste)))))) (defun find-pos_oml (item seq) (remove nil (loop for s in seq for x collect (if (equal item s) x)))) (defun replace_oml (positions item liste) (let ((positions (if (atom positions) (list positions) positions))) (loop for i in liste for p collect (if (find p positions) item i)))) (defun sum_oml (liste) (if (null (cdr liste)) (car liste) (+ (car liste) (sum_oml (cdr liste))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (let* ((n-harms (cond ((atom n-harmonies) (loop repeat n-bars collect n-harmonies)) ((< (length n-harmonies) n-bars) (append n-harmonies (loop repeat (- n-bars (length n-harmonies)) collect (car (last n-harmonies))))) (t n-harmonies))) (voice-list (loop repeat n-bars for trees1 in (cond ((< (length tree-base1) n-bars) (append tree-base1 (loop repeat (- n-bars (length tree-base1)) collect (car (last tree-base1))))) (t tree-base1)) for trees2 in (cond ((< (length tree-base2) n-bars) (append tree-base2 (loop repeat (- n-bars (length tree-base2)) collect (car (last tree-base2))))) (t tree-base2)) for trees3 in (cond ((< (length tree-base3) n-bars) (append tree-base3 (loop repeat (- n-bars (length tree-base3)) collect (car (last tree-base3))))) (t tree-base3)) for trees4 in (cond ((< (length tree-base4) n-bars) (append tree-base4 (loop repeat (- n-bars (length tree-base4)) collect (car (last tree-base4))))) (t tree-base4)) for chords in (list_oml (cond ((atom (car harmon_progress)) (loop repeat (* n-bars n-harmonies) collect harmon_progress)) ((< (length harmon_progress) (* n-bars n-harmonies)) (append harmon_progress (loop repeat (- (* n-bars n-harmonies) (length harmon_progress)) collect (car (last harmon_progress))))) (t harmon_progress)) n-harms) for n-harmony in n-harms for numerator in (cond ((atom measure_numerator) (loop repeat n-bars collect measure_numerator)) ((< (length measure_numerator) n-bars) (append measure_numerator (loop repeat (- n-bars (length measure_numerator)) collect (car (last measure_numerator))))) (t measure_numerator)) for denominator in (cond ((atom measure_denominator) (loop repeat n-bars collect measure_denominator)) ((< (length measure_denominator) n-bars) (append measure_denominator (loop repeat (- n-bars (length measure_denominator)) collect (car (last measure_denominator))))) (t measure_denominator)) for tempo in (cond ((atom tempo) (loop repeat n-bars collect tempo)) ((< (length tempo) n-bars) (append tempo (loop repeat (- n-bars (length tempo)) collect (car (last tempo))))) (t tempo)) for legato in (cond ((atom legato) (loop repeat n-bars collect legato)) ((< (length legato) n-bars) (append legato (loop repeat (- n-bars (length legato)) collect (car (last legato))))) (t legato)) for offs in (print (cond ((< (length off-sets) n-bars) (append off-sets (loop repeat (- n-bars (length off-sets)) collect (car (last off-sets))))) (t off-sets))) for props in (cond ((< (length proportions) n-bars) (append proportions (loop repeat (- n-bars (length proportions)) collect (car (last proportions))))) (t proportions)) for puls in (cond ((< (length pulses) n-bars) (append pulses (loop repeat (- n-bars (length pulses)) collect (car (last pulses))))) (t pulses)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; collect (let* ((voice-num (length (car chords))) (midi-list (loop for instr to (1- voice-num) collect (mapcar #'(lambda (l) (list (nth instr l))) chords))) (trees (list trees1 trees2 trees3 trees4)) (tree-list (loop for l in trees for m in midi-list while l collect ;Tree BARS (list 1 (list (list (list numerator denominator) ;Proportions (if (find -1 (flat_oml m)) (replace_oml (find-pos_oml '(-1) m) -1 (nth-rand_oml (loop for r in l collect (if (= n-harmony (n-pulses_oml r)) r)))) (nth-rand_oml (loop for r in l collect (if (= n-harmony (n-pulses_oml r)) r))))))))) (tree-list (cond (off-sets (setf beats (nth-rand_oml puls)) (setf item (nth-rand_oml props)) (loop for tree in tree-list for x for pattern in (print (make-list (length beats) :initial-element (mapcar #'(lambda (pr pa) (* pr pa)) item (nth x (loop for i in (nth-rand_oml offs) collect (cond ((= 1 i) 1) ((= -1 i) -1) (t -1)) into instr1 collect (cond ((= 2 i) 1) ((= -2 i) -1) (t -1)) into instr2 collect (cond ((= 3 i) 1) ((= -3 i) -1) (t -1)) into instr3 collect (cond ((= 4 i) 1) ((= -4 i) -1) (t -1)) into instr4 finally (return (mapcar #'(lambda (l) (if (= (count -1 l) (length l)) 'nil l)) (list instr1 instr2 instr3 instr4)))))))) do (setf beats (nth-rand_oml puls)) do (setf item (nth-rand_oml props)) collect (om::subst-rhythm tree beats pattern))) (t tree-list))) (midi-list (mapcar #'(lambda (l) (remove '(-1) l :test 'equal)) midi-list)) (chord-lists (loop for instr to (1- voice-num) collect (loop for m in (nth instr midi-list) collect (om::make-instance 'om::chord :lmidic m :lchan '(1) :lvel '(100)))))) ;ergebnis: list of chord-lists ;:::::....... (loop for instr to (1- voice-num) collect (om::make-instance 'om::voice :tree (nth instr tree-list) :chords (nth instr chord-lists) :tempo tempo :legato legato ))))) (voices (loop for x in (mat-trans_oml voice-list) collect (reduce #'om::concat x)))) (values-list (list (reverse voices) (nth 0 voices) (nth 1 voices) (nth 2 voices) (nth 3 voices))) ;;;;;;;;;;;;;end:::::::::::::::::::::::::::::::::::::::::::::::: ))
New file @@ -0,0 +1,480 @@ ;====================================== ;OM-Lead, 2022-2023 ; ;Library for Rule-based Voice-Leading ;Author: Lorenz Lehmann ;Supervision: Marlon Schumacher ;====================================== (in-package :om) (defmethod! rhythmic-progress (harmon-progress randomize measure tempo legato &key raster0 raster1 raster2 raster3) :doc "Gives the possibility of rhythmic and melodic movement between the chords" :indoc '("chord-list from harmon-progress" "t: permutates randomly the rhythmic-order " "measure" "tempo" "legato" "(voice-number (smallest rhythmic value, should be a fraction & stepsize, an intervall in midicents))" "(voice-number (smallest rhythmic value, should be a fraction & stepsize, an intervall in midicents))" "(voice-number (smallest rhythmic value, should be a fraction & stepsize, an intervall in midicents))" "(voice-number (smallest rhythmic value, should be a fraction & stepsize, an intervall in midicents))") :icon 030719971 :numouts 1 ;xxxxxxxxxxxxxxxxxxxxxxxx ;xxxxxxxxxxxxxxxxxxxxxxxx (reverse (remove nil (list (cond ((and (not (eq raster0 'nil)) (or (eq (car (nth (car raster0) (mat-trans harmon-progress))) 'nil) (eq (cadr (nth (car raster0) (mat-trans harmon-progress))) 'nil) (eq (car (nth (car raster0) (mat-trans harmon-progress))) (cadr (nth (car raster0) (mat-trans harmon-progress)))))) (let ((pitch-list (nth (car raster0) (mat-trans harmon-progress)))) (let ((note (car pitch-list))) (make-instance 'voice :tree (list '? (if (eq note nil) (list (list (append measure) '(-1))) (list (list (append measure) '(1))))) :tempo tempo :legato legato :chords (list note))) )) ((and (not (eq raster0 'nil)) (let ((pulsation (cadr (cadr raster0))) (pitch-list (nth (car raster0) (mat-trans harmon-progress)))) (let ((interval (- (cadr pitch-list) (car pitch-list)))) (let ((delta (if (> 0 interval) (* -1 interval) interval)) (stepsize (caadr raster0))) (> (* (car (multiple-value-list (floor delta stepsize))) pulsation) (/ (car measure) (cadr measure))))))) (let ((pulsation (cadr (cadr raster0))) (pitch-list (nth (car raster0) (mat-trans harmon-progress)))) (let ((interval (- (cadr pitch-list) (car pitch-list)))) (let ((delta (if (> 0 interval) (* -1 interval) interval)) (stepsize (caadr raster0))) (let ((step (if (> 0 interval) (* -1 stepsize) stepsize))) (let ((chord-list (dx->x (car pitch-list) (make-list (car (multiple-value-list (floor delta stepsize))) :initial-element step)))) (let ((final-chords (append (list (car pitch-list)) (nthcdr (/ (- (* (length chord-list) pulsation) (/ (car measure) (cadr measure))) pulsation) (butlast chord-list))))) (make-instance 'voice :tree (list '? (list (list (append measure) (make-list (car measure) :initial-element 1)))) :tempo tempo :legato legato :chords final-chords )))))))) (raster0 (let ( (pitch-list (nth (car raster0) (mat-trans harmon-progress))) (pulsation (cadr (cadr raster0))) (stepsize (caadr raster0)) ) (let ((interval (- (cadr pitch-list) (car pitch-list)))) (let ((delta (if (> 0 interval) (* -1 interval) interval))) (let ((chord-list (let ((step (if (< (car pitch-list) (cadr pitch-list)) stepsize (* -1 stepsize)))) (butlast (dx->x (car pitch-list) (remove nil (append (make-list (car (multiple-value-list (floor delta stepsize))) :initial-element step) (if (= 0 (cadr (multiple-value-list (floor delta stepsize)))) (list nil) (if (< step 0) (list (* -1 (cadr (multiple-value-list (floor delta stepsize))))) (list (cadr (multiple-value-list (floor delta stepsize))))) )))))))) (let ((rhythm-list (if (values randomize) (permut-random (append (list (- 1 (* (- (length chord-list) 1) pulsation))) (make-list (- (length chord-list) 1) :initial-element pulsation))) (append (list (- 1 (* (- (length chord-list) 1) pulsation))) (make-list (- (length chord-list) 1) :initial-element pulsation)) )) ) (make-instance 'voice :tree (mktree rhythm-list measure) :tempo tempo :legato legato :chords chord-list) )))))) (t nil)) ;;;raster1;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (cond ((and (not (eq raster1 'nil)) (or (eq (car (nth (car raster1) (mat-trans harmon-progress))) 'nil) (eq (cadr (nth (car raster1) (mat-trans harmon-progress))) 'nil) (eq (car (nth (car raster1) (mat-trans harmon-progress))) (cadr (nth (car raster1) (mat-trans harmon-progress)))))) (let ((pitch-list (nth (car raster1) (mat-trans harmon-progress)))) (let ((note (car pitch-list))) (make-instance 'voice :tree (list '? (if (eq note nil) (list (list (append measure) '(-1))) (list (list (append measure) '(1))))) :tempo tempo :legato legato :chords (list note))) )) ((and (not (eq raster1 'nil)) (let ((pulsation (cadr (cadr raster1))) (pitch-list (nth (car raster1) (mat-trans harmon-progress)))) (let ((interval (- (cadr pitch-list) (car pitch-list)))) (let ((delta (if (> 0 interval) (* -1 interval) interval)) (stepsize (caadr raster1))) (> (* (car (multiple-value-list (floor delta stepsize))) pulsation) (/ (car measure) (cadr measure))))))) (let ((pulsation (cadr (cadr raster1))) (pitch-list (nth (car raster1) (mat-trans harmon-progress)))) (let ((interval (- (cadr pitch-list) (car pitch-list)))) (let ((delta (if (> 0 interval) (* -1 interval) interval)) (stepsize (caadr raster1))) (let ((step (if (> 0 interval) (* -1 stepsize) stepsize))) (let ((chord-list (dx->x (car pitch-list) (make-list (car (multiple-value-list (floor delta stepsize))) :initial-element step)))) (let ((final-chords (append (list (car pitch-list)) (nthcdr (/ (- (* (length chord-list) pulsation) (/ (car measure) (cadr measure))) pulsation) (butlast chord-list))))) (make-instance 'voice :tree (list '? (list (list (append measure) (make-list (car measure) :initial-element 1)))) :tempo tempo :legato legato :chords final-chords )))))))) (raster1 (let ( (pitch-list (nth (car raster1) (mat-trans harmon-progress))) (pulsation (cadr (cadr raster1))) (stepsize (caadr raster1)) ) (let ((interval (- (cadr pitch-list) (car pitch-list)))) (let ((delta (if (> 0 interval) (* -1 interval) interval))) (let ((chord-list (let ((step (if (< (car pitch-list) (cadr pitch-list)) stepsize (* -1 stepsize)))) (butlast (dx->x (car pitch-list) (remove nil (append (make-list (car (multiple-value-list (floor delta stepsize))) :initial-element step) (if (= 0 (cadr (multiple-value-list (floor delta stepsize)))) (list nil) (if (< step 0) (list (* -1 (cadr (multiple-value-list (floor delta stepsize))))) (list (cadr (multiple-value-list (floor delta stepsize))))) )))))))) (let ((rhythm-list (if (values randomize) (permut-random (append (list (- 1 (* (- (length chord-list) 1) pulsation))) (make-list (- (length chord-list) 1) :initial-element pulsation))) (append (list (- 1 (* (- (length chord-list) 1) pulsation))) (make-list (- (length chord-list) 1) :initial-element pulsation)) )) ) (make-instance 'voice :tree (mktree rhythm-list measure) :tempo tempo :legato legato :chords chord-list) )))))) (t nil)) ;;;raster2;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (cond ((and (not (eq raster2 'nil)) (or (eq (car (nth (car raster2) (mat-trans harmon-progress))) 'nil) (eq (cadr (nth (car raster2) (mat-trans harmon-progress))) 'nil) (eq (car (nth (car raster2) (mat-trans harmon-progress))) (cadr (nth (car raster2) (mat-trans harmon-progress)))))) (let ((pitch-list (nth (car raster2) (mat-trans harmon-progress)))) (let ((note (car pitch-list))) (make-instance 'voice :tree (list '? (if (eq note nil) (list (list (append measure) '(-1))) (list (list (append measure) '(1))))) :tempo tempo :legato legato :chords (list note))) )) ((and (not (eq raster2 'nil)) (let ((pulsation (cadr (cadr raster2))) (pitch-list (nth (car raster2) (mat-trans harmon-progress)))) (let ((interval (- (cadr pitch-list) (car pitch-list)))) (let ((delta (if (> 0 interval) (* -1 interval) interval)) (stepsize (caadr raster2))) (> (* (car (multiple-value-list (floor delta stepsize))) pulsation) (/ (car measure) (cadr measure))))))) (let ((pulsation (cadr (cadr raster2))) (pitch-list (nth (car raster2) (mat-trans harmon-progress)))) (let ((interval (- (cadr pitch-list) (car pitch-list)))) (let ((delta (if (> 0 interval) (* -1 interval) interval)) (stepsize (caadr raster2))) (let ((step (if (> 0 interval) (* -1 stepsize) stepsize))) (let ((chord-list (dx->x (car pitch-list) (make-list (car (multiple-value-list (floor delta stepsize))) :initial-element step)))) (let ((final-chords (append (list (car pitch-list)) (nthcdr (/ (- (* (length chord-list) pulsation) (/ (car measure) (cadr measure))) pulsation) (butlast chord-list))))) (make-instance 'voice :tree (list '? (list (list (append measure) (make-list (car measure) :initial-element 1)))) :tempo tempo :legato legato :chords final-chords )))))))) (raster2 (let ( (pitch-list (nth (car raster2) (mat-trans harmon-progress))) (pulsation (cadr (cadr raster2))) (stepsize (caadr raster2)) ) (let ((interval (- (cadr pitch-list) (car pitch-list)))) (let ((delta (if (> 0 interval) (* -1 interval) interval))) (let ((chord-list (let ((step (if (< (car pitch-list) (cadr pitch-list)) stepsize (* -1 stepsize)))) (butlast (dx->x (car pitch-list) (remove nil (append (make-list (car (multiple-value-list (floor delta stepsize))) :initial-element step) (if (= 0 (cadr (multiple-value-list (floor delta stepsize)))) (list nil) (if (< step 0) (list (* -1 (cadr (multiple-value-list (floor delta stepsize))))) (list (cadr (multiple-value-list (floor delta stepsize))))) )))))))) (let ((rhythm-list (if (values randomize) (permut-random (append (list (- 1 (* (- (length chord-list) 1) pulsation))) (make-list (- (length chord-list) 1) :initial-element pulsation))) (append (list (- 1 (* (- (length chord-list) 1) pulsation))) (make-list (- (length chord-list) 1) :initial-element pulsation)) )) ) (make-instance 'voice :tree (mktree rhythm-list measure) :tempo tempo :legato legato :chords chord-list) )))))) (t nil)) ;;;raster3;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (cond ((and (not (eq raster3 'nil)) (or (eq (car (nth (car raster3) (mat-trans harmon-progress))) 'nil) (eq (cadr (nth (car raster3) (mat-trans harmon-progress))) 'nil) (eq (car (nth (car raster3) (mat-trans harmon-progress))) (cadr (nth (car raster3) (mat-trans harmon-progress)))))) (let ((pitch-list (nth (car raster3) (mat-trans harmon-progress)))) (let ((note (car pitch-list))) (make-instance 'voice :tree (list '? (if (eq note nil) (list (list (append measure) '(-1))) (list (list (append measure) '(1))))) :tempo tempo :legato legato :chords (list note))) )) ((and (not (eq raster3 'nil)) (let ((pulsation (cadr (cadr raster3))) (pitch-list (nth (car raster3) (mat-trans harmon-progress)))) (let ((interval (- (cadr pitch-list) (car pitch-list)))) (let ((delta (if (> 0 interval) (* -1 interval) interval)) (stepsize (caadr raster3))) (> (* (car (multiple-value-list (floor delta stepsize))) pulsation) (/ (car measure) (cadr measure))))))) (let ((pulsation (cadr (cadr raster3))) (pitch-list (nth (car raster3) (mat-trans harmon-progress)))) (let ((interval (- (cadr pitch-list) (car pitch-list)))) (let ((delta (if (> 0 interval) (* -1 interval) interval)) (stepsize (caadr raster3))) (let ((step (if (> 0 interval) (* -1 stepsize) stepsize))) (let ((chord-list (dx->x (car pitch-list) (make-list (car (multiple-value-list (floor delta stepsize))) :initial-element step)))) (let ((final-chords (append (list (car pitch-list)) (nthcdr (/ (- (* (length chord-list) pulsation) (/ (car measure) (cadr measure))) pulsation) (butlast chord-list))))) (make-instance 'voice :tree (list '? (list (list (append measure) (make-list (car measure) :initial-element 1)))) :tempo tempo :legato legato :chords final-chords )))))))) (raster3 (let ( (pitch-list (nth (car raster3) (mat-trans harmon-progress))) (pulsation (cadr (cadr raster3))) (stepsize (caadr raster3)) ) (let ((interval (- (cadr pitch-list) (car pitch-list)))) (let ((delta (if (> 0 interval) (* -1 interval) interval))) (let ((chord-list (let ((step (if (< (car pitch-list) (cadr pitch-list)) stepsize (* -1 stepsize)))) (butlast (dx->x (car pitch-list) (remove nil (append (make-list (car (multiple-value-list (floor delta stepsize))) :initial-element step) (if (= 0 (cadr (multiple-value-list (floor delta stepsize)))) (list nil) (if (< step 0) (list (* -1 (cadr (multiple-value-list (floor delta stepsize))))) (list (cadr (multiple-value-list (floor delta stepsize))))) )))))))) (let ((rhythm-list (if (values randomize) (permut-random (append (list (- 1 (* (- (length chord-list) 1) pulsation))) (make-list (- (length chord-list) 1) :initial-element pulsation))) (append (list (- 1 (* (- (length chord-list) 1) pulsation))) (make-list (- (length chord-list) 1) :initial-element pulsation)) )) ) (make-instance 'voice :tree (mktree rhythm-list measure) :tempo tempo :legato legato :chords chord-list) )))))) (t nil)) ;;;end;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; )))) ;;;end;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
