(in-package :om)(load-lib-for (quote ("OM-Lead")))(setf *om-current-persistent* (om-load-patch1 "harmon-progress_parallel" (quote ((let ((box (om-load-boxcall (quote abstraction) "make-voices" (om-load-patch-abs1 "make-voices" (quote ((let ((box (om-load-boxout "output" 0 (om-make-point 70 215) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input" 0 (om-make-point 50 50) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 132 113) (om-make-point 24 30) (quote t) "t" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GET-SCORE" (quote omlead::get-score) (quote ((om-load-inputfun (quote input-funbox) "the list of chords you may have generated in harmon-progress" "HARMON-PROGRESS" nil) (om-load-inputkeyword (quote input-keyword) "" "tie-repetitions" (quote :tie-repetitions) nil nil))) (om-make-point 96 143) nil nil nil nil 5))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((3 0 0 0 nil 0) (1 0 3 0 nil 0) (2 0 3 1 nil 0))) 7.02 nil "" (om-make-point 200 200) (om-make-point 500 400)) (quote ((om-load-inputfun (quote input-funbox) "" "input" nil))) (om-make-point 187 316) nil (list (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (10 (((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7600)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (10 (((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (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 (10 (((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj))) nil "make-voices"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "mypatch" (om-load-patch-abs1 "mypatch" (quote ((let ((box (om-load-boxout "output" 0 (om-make-point 50 188) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 2" (quote list) (quote nil) (om-make-point 117 50) (om-make-point 324 30) (list 0 200 -200 100 -100 700 -700 500 -500 1200 -1200) "(0 200 -200 100 -100 700 -700 500 -500 1200 -1200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((1 0 0 0 nil 0))) 7.02 nil "" (om-make-point 200 200) (om-make-point 242 313)) (quote nil) (om-make-point 405 65) nil (list (list 0 200 -200 100 -100 700 -700 500 -500 1200 -1200)) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "all progression-intervals for instr 2" (om-load-patch-abs1 "all progression-intervals for instr 2" (quote ((let ((box (om-load-boxout "output" 0 (om-make-point 50 196) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "SORT-LIST" (quote sort-list) (quote ((om-load-inputfun (quote input-funbox) "a list" "LST" nil))) (om-make-point 285 286) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "APPEND" (quote append) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 257 234) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 8" (quote t) (quote nil) (om-make-point 297 169) (om-make-point 32 30) -1 "-1" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM*" (quote om*) (quote ((om-load-inputfun (quote input-funbox) "number or list" "ARG1" -1) (om-load-inputfun (quote input-funbox) "number or list" "ARG2" 0))) (om-make-point 294 199) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 7" (quote t) (quote nil) (om-make-point 299 51) (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 5" (quote t) (quote nil) (om-make-point 204 50) (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 6" (quote t) (quote nil) (om-make-point 248 50) (om-make-point 41 30) 900 "900" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "ARITHM-SER" (quote arithm-ser) (quote ((om-load-inputfun (quote input-funbox) "begin" "BEGIN" 0) (om-load-inputfun (quote input-funbox) "end " "END" 10) (om-load-inputfun (quote input-funbox) "step" "STEP" 1))) (om-make-point 244 116) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((2 0 0 0 nil 0) (2 0 1 0 nil 0) (8 0 2 0 nil 2) (4 0 2 1 nil 0) (3 0 4 0 nil 0) (8 0 4 1 nil 2) (6 0 8 0 nil 2) (7 0 8 1 nil 2) (5 0 8 2 nil 2))) 7.02 nil "" (om-make-point 200 200) (om-make-point 500 400)) (quote nil) (om-make-point 253 1243/8) nil (list (list 100 200 300 400 500 600 700 800 900 -100 -200 -300 -400 -500 -600 -700 -800 -900)) "x" "all progression-intervals for instr 2"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LIST" (quote list) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 90 168) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 270 115) (om-make-point 48 30) (list 1 2) "(1 2)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "database2" (om-load-patch-abs1 "database2" (quote ((let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 197 130) (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 3" (quote t) (quote nil) (om-make-point 273 57) (om-make-point 101 30) (list 0 1200 2400) "(0 1200 2400)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 155 82) (om-make-point 90 30) (list 6000 7600) "(6000 7600)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxout "output" 0 (om-make-point 206 244) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-DATABASE" (quote omlead::harmon-database) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr2" (quote :instr2) nil nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr3" (quote :instr3) nil nil) (om-load-inputkeyword (quote input-keyword) "" "skala" (quote :skala) nil nil) (om-load-inputkeyword (quote input-keyword) "" "register-list" (quote :register-list) nil nil) (om-load-inputkeyword (quote input-keyword) "" "permutations" (quote :permutations) nil nil))) (om-make-point 124 164) nil (list (list (list 4500 6400 6900) (list 4500 5700 6400) (list 4500 5700 7600) (list 4500 6900 6400) (list 4500 6900 7600) (list 5200 5700 6900) (list 5200 6900 6900) (list 5700 5700 6400) (list 5700 5700 7600) (list 4500 6600 6900) (list 4500 5700 6600) (list 4500 6900 6600) (list 5400 5700 6900) (list 5400 6900 6900) (list 5700 5700 6600) (list 4500 6100 6400) (list 4500 6100 7600) (list 4500 6400 6100) (list 4500 6400 7300) (list 4900 5700 6400) (list 4900 5700 7600) (list 4900 6900 6400) (list 4900 6900 7600) (list 4900 6400 6900) (list 5200 5700 6100) (list 5200 5700 7300) (list 5200 6900 6100) (list 5200 6900 7300) (list 5200 6100 6900) (list 4500 6100 6900) (list 4500 5700 6100) (list 4500 5700 7300) (list 4500 6900 6100) (list 4500 6900 7300) (list 4900 5700 6900) (list 4900 6900 6900) (list 5700 5700 6100) (list 5700 5700 7300) (list 4500 6200 6900) (list 4500 5700 6200) (list 4500 5700 7400) (list 4500 6900 6200) (list 4500 6900 7400) (list 5000 5700 6900) (list 5000 6900 6900) (list 5700 5700 6200) (list 5700 5700 7400) (list 4700 6600 7100) (list 4700 5900 6600) (list 4700 7100 6600) (list 5400 5900 7100) (list 5400 7100 7100) (list 5900 5900 6600) (list 4700 5600 7100) (list 4700 6800 7100) (list 4700 5900 6800) (list 4700 7100 6800) (list 5600 5900 7100) (list 5600 7100 7100) (list 5900 5900 6800) (list 5900 5600 7100) (list 4700 6300 6600) (list 4700 6600 6300) (list 4700 6600 7500) (list 5100 5900 6600) (list 5100 7100 6600) (list 5100 6600 7100) (list 5400 5900 6300) (list 5400 5900 7500) (list 5400 7100 6300) (list 5400 7100 7500) (list 5400 6300 7100) (list 4700 6300 7100) (list 4700 5900 6300) (list 4700 5900 7500) (list 4700 7100 6300) (list 4700 7100 7500) (list 5100 5900 7100) (list 5100 7100 7100) (list 5900 5900 6300) (list 5900 5900 7500) (list 4700 6400 7100) (list 4700 5900 6400) (list 4700 5900 7600) (list 4700 7100 6400) (list 4700 7100 7600) (list 5200 5900 7100) (list 5200 7100 7100) (list 5900 5900 6400) (list 5900 5900 7600) (list 4800 5500 6000) (list 4800 5500 7200) (list 4800 6700 6000) (list 4800 6700 7200) (list 4800 6000 6700) (list 4800 7200 6700) (list 5500 6000 6000) (list 5500 6000 7200) (list 5500 7200 6000) (list 5500 7200 7200) (list 6000 6000 6700) (list 6000 5500 6000) (list 6000 5500 7200) (list 6000 6700 6000) (list 4800 5700 6000) (list 4800 5700 7200) (list 4800 6900 6000) (list 4800 6900 7200) (list 4800 6000 6900) (list 4800 7200 6900) (list 5700 6000 6000) (list 5700 6000 7200) (list 5700 7200 6000) (list 5700 7200 7200) (list 6000 6000 6900) (list 6000 5700 6000) (list 6000 5700 7200) (list 6000 6900 6000) (list 4800 6400 6700) (list 4800 5500 6400) (list 4800 5500 7600) (list 4800 6700 6400) (list 4800 6700 7600) (list 6000 5500 6400) (list 6000 5500 7600) (list 5200 6000 6700) (list 5200 7200 6700) (list 5200 5500 6000) (list 5200 5500 7200) (list 5200 6700 6000) (list 5200 6700 7200) (list 5500 6000 6400) (list 5500 6000 7600) (list 5500 7200 6400) (list 5500 7200 7600) (list 5500 6400 6000) (list 5500 6400 7200) (list 4800 6400 6000) (list 4800 6400 7200) (list 4800 6000 6400) (list 4800 6000 7600) (list 4800 7200 6400) (list 4800 7200 7600) (list 5200 6000 6000) (list 5200 6000 7200) (list 5200 7200 6000) (list 5200 7200 7200) (list 6000 6000 6400) (list 6000 6000 7600) (list 6000 6400 6000) (list 4800 6500 6000) (list 4800 6500 7200) (list 4800 6000 6500) (list 4800 7200 6500) (list 5300 6000 6000) (list 5300 6000 7200) (list 5300 7200 6000) (list 5300 7200 7200) (list 6000 6000 6500) (list 6000 6500 6000) (list 5000 5700 6200) (list 5000 5700 7400) (list 5000 6900 6200) (list 5000 6900 7400) (list 5000 6200 6900) (list 5700 6200 6200) (list 5700 6200 7400) (list 5000 5900 6200) (list 5000 5900 7400) (list 5000 7100 6200) (list 5000 7100 7400) (list 5000 6200 7100) (list 5900 6200 6200) (list 5900 6200 7400) (list 5000 6600 6900) (list 5000 5700 6600) (list 5000 6900 6600) (list 5400 6200 6900) (list 5400 5700 6200) (list 5400 5700 7400) (list 5400 6900 6200) (list 5400 6900 7400) (list 5700 6200 6600) (list 5700 6600 6200) (list 5700 6600 7400) (list 5000 6600 6200) (list 5000 6600 7400) (list 5000 6200 6600) (list 5400 6200 6200) (list 5400 6200 7400) (list 5000 5500 6200) (list 5000 5500 7400) (list 5000 6700 6200) (list 5000 6700 7400) (list 5000 6200 6700) (list 5500 6200 6200) (list 5500 6200 7400) (list 5200 5900 6400) (list 5200 5900 7600) (list 5200 7100 6400) (list 5200 7100 7600) (list 5200 6400 7100) (list 5900 6400 6400) (list 5900 6400 7600) (list 5200 6100 6400) (list 5200 6100 7600) (list 5200 6400 6100) (list 5200 6400 7300) (list 5200 5600 7100) (list 5200 6800 7100) (list 5200 5900 6800) (list 5200 7100 6800) (list 5600 6400 7100) (list 5600 5900 6400) (list 5600 5900 7600) (list 5600 7100 6400) (list 5600 7100 7600) (list 5900 6400 6800) (list 5900 5600 6400) (list 5900 5600 7600) (list 5900 6800 6400) (list 5900 6800 7600) (list 5200 5600 6400) (list 5200 5600 7600) (list 5200 6800 6400) (list 5200 6800 7600) (list 5200 6400 6800) (list 5600 6400 6400) (list 5600 6400 7600) (list 5200 5700 6400) (list 5200 5700 7600) (list 5200 6900 6400) (list 5200 6900 7600) (list 5200 6400 6900) (list 5700 6400 6400) (list 5700 6400 7600) (list 5300 6000 6500) (list 5300 7200 6500) (list 5300 6500 6000) (list 5300 6500 7200) (list 6000 6500 6500) (list 5300 6200 6500) (list 5300 6500 6200) (list 5300 6500 7400) (list 5300 5700 6000) (list 5300 5700 7200) (list 5300 6900 6000) (list 5300 6900 7200) (list 5300 6000 6900) (list 5300 7200 6900) (list 5700 6500 6000) (list 5700 6500 7200) (list 5700 6000 6500) (list 5700 7200 6500) (list 6000 6500 6900) (list 6000 5700 6500) (list 6000 6900 6500) (list 5300 5700 6500) (list 5300 6900 6500) (list 5300 6500 6900) (list 5700 6500 6500) (list 5300 5800 6500) (list 5300 7000 6500) (list 5300 6500 7000) (list 5800 6500 6500) (list 5500 6200 6700) (list 5500 6700 6200) (list 5500 6700 7400) (list 5500 6400 6700) (list 5500 6700 6400) (list 5500 6700 7600) (list 5500 5900 6200) (list 5500 5900 7400) (list 5500 7100 6200) (list 5500 7100 7400) (list 5500 6200 7100) (list 5900 5500 6200) (list 5900 5500 7400) (list 5900 6700 6200) (list 5900 6700 7400) (list 5900 6200 6700) (list 5500 5900 6700) (list 5500 7100 6700) (list 5500 6700 7100) (list 5900 5500 6700) (list 5900 6700 6700) (list 5500 6000 6700) (list 5500 7200 6700) (list 5500 6700 6000) (list 5500 6700 7200) (list 6000 5500 6700) (list 6000 6700 6700) (list 5700 6400 6900) (list 5700 6900 6400) (list 5700 6900 7600) (list 5700 6600 6900) (list 5700 6900 6600) (list 5700 6100 6400) (list 5700 6100 7600) (list 5700 6400 6100) (list 5700 6400 7300) (list 5700 6100 6900) (list 5700 6900 6100) (list 5700 6900 7300) (list 5700 6200 6900) (list 5700 6900 6200) (list 5700 6900 7400) (list 5900 6600 7100) (list 5900 7100 6600) (list 5900 6800 7100) (list 5900 7100 6800) (list 5900 6300 6600) (list 5900 6600 6300) (list 5900 6600 7500) (list 5900 6300 7100) (list 5900 7100 6300) (list 5900 7100 7500) (list 5900 6400 7100) (list 5900 7100 6400) (list 5900 7100 7600) (list 6000 6700 7200) (list 6000 7200 6700) (list 6000 6900 7200) (list 6000 7200 6900) (list 6000 6400 6700) (list 6000 6700 6400) (list 6000 6700 7600) (list 6000 6400 7200) (list 6000 7200 6400) (list 6000 7200 7600) (list 6000 6500 7200) (list 6000 7200 6500))) "x" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list" (quote list) (quote nil) (om-make-point 121 50) (om-make-point 90 30) (list 4500 6000) "(4500 6000)" 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 0 59) (om-make-point 407 30) (list (list 0 700 1200) (list 0 900 1200) (list 0 400 700) (list 0 400 1200) (list 0 500 1200)) "((0 700 1200) (0 900 1200) (0 400 700) (0 400 1200) (0 500 1200))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 294 101) (om-make-point 200 30) (list 200 200 100 200 200 200 100) "(200 200 100 200 200 200 100)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 3" (quote list) (quote nil) (om-make-point 198 24) (om-make-point 90 30) (list 5500 7200) "(5500 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((4 0 3 0 nil 0) (6 0 4 0 nil 0) (5 0 4 1 nil 0) (8 0 4 2 nil 0) (2 0 4 3 nil 0) (7 0 4 4 nil 0) (1 0 4 5 nil 0) (0 0 4 6 nil 0))) 7.02 nil "" (om-make-point 137 147) (om-make-point 929 400)) (quote nil) (om-make-point 726/5 39) nil (list (list (list 4500 6400 6900) (list 4500 5700 6400) (list 4500 5700 7600) (list 4500 6900 6400) (list 4500 6900 7600) (list 5200 5700 6900) (list 5200 6900 6900) (list 5700 5700 6400) (list 5700 5700 7600) (list 4500 6600 6900) (list 4500 5700 6600) (list 4500 6900 6600) (list 5400 5700 6900) (list 5400 6900 6900) (list 5700 5700 6600) (list 4500 6100 6400) (list 4500 6100 7600) (list 4500 6400 6100) (list 4500 6400 7300) (list 4900 5700 6400) (list 4900 5700 7600) (list 4900 6900 6400) (list 4900 6900 7600) (list 4900 6400 6900) (list 5200 5700 6100) (list 5200 5700 7300) (list 5200 6900 6100) (list 5200 6900 7300) (list 5200 6100 6900) (list 4500 6100 6900) (list 4500 5700 6100) (list 4500 5700 7300) (list 4500 6900 6100) (list 4500 6900 7300) (list 4900 5700 6900) (list 4900 6900 6900) (list 5700 5700 6100) (list 5700 5700 7300) (list 4500 6200 6900) (list 4500 5700 6200) (list 4500 5700 7400) (list 4500 6900 6200) (list 4500 6900 7400) (list 5000 5700 6900) (list 5000 6900 6900) (list 5700 5700 6200) (list 5700 5700 7400) (list 4700 6600 7100) (list 4700 5900 6600) (list 4700 7100 6600) (list 5400 5900 7100) (list 5400 7100 7100) (list 5900 5900 6600) (list 4700 5600 7100) (list 4700 6800 7100) (list 4700 5900 6800) (list 4700 7100 6800) (list 5600 5900 7100) (list 5600 7100 7100) (list 5900 5900 6800) (list 5900 5600 7100) (list 4700 6300 6600) (list 4700 6600 6300) (list 4700 6600 7500) (list 5100 5900 6600) (list 5100 7100 6600) (list 5100 6600 7100) (list 5400 5900 6300) (list 5400 5900 7500) (list 5400 7100 6300) (list 5400 7100 7500) (list 5400 6300 7100) (list 4700 6300 7100) (list 4700 5900 6300) (list 4700 5900 7500) (list 4700 7100 6300) (list 4700 7100 7500) (list 5100 5900 7100) (list 5100 7100 7100) (list 5900 5900 6300) (list 5900 5900 7500) (list 4700 6400 7100) (list 4700 5900 6400) (list 4700 5900 7600) (list 4700 7100 6400) (list 4700 7100 7600) (list 5200 5900 7100) (list 5200 7100 7100) (list 5900 5900 6400) (list 5900 5900 7600) (list 4800 5500 6000) (list 4800 5500 7200) (list 4800 6700 6000) (list 4800 6700 7200) (list 4800 6000 6700) (list 4800 7200 6700) (list 5500 6000 6000) (list 5500 6000 7200) (list 5500 7200 6000) (list 5500 7200 7200) (list 6000 6000 6700) (list 6000 5500 6000) (list 6000 5500 7200) (list 6000 6700 6000) (list 4800 5700 6000) (list 4800 5700 7200) (list 4800 6900 6000) (list 4800 6900 7200) (list 4800 6000 6900) (list 4800 7200 6900) (list 5700 6000 6000) (list 5700 6000 7200) (list 5700 7200 6000) (list 5700 7200 7200) (list 6000 6000 6900) (list 6000 5700 6000) (list 6000 5700 7200) (list 6000 6900 6000) (list 4800 6400 6700) (list 4800 5500 6400) (list 4800 5500 7600) (list 4800 6700 6400) (list 4800 6700 7600) (list 6000 5500 6400) (list 6000 5500 7600) (list 5200 6000 6700) (list 5200 7200 6700) (list 5200 5500 6000) (list 5200 5500 7200) (list 5200 6700 6000) (list 5200 6700 7200) (list 5500 6000 6400) (list 5500 6000 7600) (list 5500 7200 6400) (list 5500 7200 7600) (list 5500 6400 6000) (list 5500 6400 7200) (list 4800 6400 6000) (list 4800 6400 7200) (list 4800 6000 6400) (list 4800 6000 7600) (list 4800 7200 6400) (list 4800 7200 7600) (list 5200 6000 6000) (list 5200 6000 7200) (list 5200 7200 6000) (list 5200 7200 7200) (list 6000 6000 6400) (list 6000 6000 7600) (list 6000 6400 6000) (list 4800 6500 6000) (list 4800 6500 7200) (list 4800 6000 6500) (list 4800 7200 6500) (list 5300 6000 6000) (list 5300 6000 7200) (list 5300 7200 6000) (list 5300 7200 7200) (list 6000 6000 6500) (list 6000 6500 6000) (list 5000 5700 6200) (list 5000 5700 7400) (list 5000 6900 6200) (list 5000 6900 7400) (list 5000 6200 6900) (list 5700 6200 6200) (list 5700 6200 7400) (list 5000 5900 6200) (list 5000 5900 7400) (list 5000 7100 6200) (list 5000 7100 7400) (list 5000 6200 7100) (list 5900 6200 6200) (list 5900 6200 7400) (list 5000 6600 6900) (list 5000 5700 6600) (list 5000 6900 6600) (list 5400 6200 6900) (list 5400 5700 6200) (list 5400 5700 7400) (list 5400 6900 6200) (list 5400 6900 7400) (list 5700 6200 6600) (list 5700 6600 6200) (list 5700 6600 7400) (list 5000 6600 6200) (list 5000 6600 7400) (list 5000 6200 6600) (list 5400 6200 6200) (list 5400 6200 7400) (list 5000 5500 6200) (list 5000 5500 7400) (list 5000 6700 6200) (list 5000 6700 7400) (list 5000 6200 6700) (list 5500 6200 6200) (list 5500 6200 7400) (list 5200 5900 6400) (list 5200 5900 7600) (list 5200 7100 6400) (list 5200 7100 7600) (list 5200 6400 7100) (list 5900 6400 6400) (list 5900 6400 7600) (list 5200 6100 6400) (list 5200 6100 7600) (list 5200 6400 6100) (list 5200 6400 7300) (list 5200 5600 7100) (list 5200 6800 7100) (list 5200 5900 6800) (list 5200 7100 6800) (list 5600 6400 7100) (list 5600 5900 6400) (list 5600 5900 7600) (list 5600 7100 6400) (list 5600 7100 7600) (list 5900 6400 6800) (list 5900 5600 6400) (list 5900 5600 7600) (list 5900 6800 6400) (list 5900 6800 7600) (list 5200 5600 6400) (list 5200 5600 7600) (list 5200 6800 6400) (list 5200 6800 7600) (list 5200 6400 6800) (list 5600 6400 6400) (list 5600 6400 7600) (list 5200 5700 6400) (list 5200 5700 7600) (list 5200 6900 6400) (list 5200 6900 7600) (list 5200 6400 6900) (list 5700 6400 6400) (list 5700 6400 7600) (list 5300 6000 6500) (list 5300 7200 6500) (list 5300 6500 6000) (list 5300 6500 7200) (list 6000 6500 6500) (list 5300 6200 6500) (list 5300 6500 6200) (list 5300 6500 7400) (list 5300 5700 6000) (list 5300 5700 7200) (list 5300 6900 6000) (list 5300 6900 7200) (list 5300 6000 6900) (list 5300 7200 6900) (list 5700 6500 6000) (list 5700 6500 7200) (list 5700 6000 6500) (list 5700 7200 6500) (list 6000 6500 6900) (list 6000 5700 6500) (list 6000 6900 6500) (list 5300 5700 6500) (list 5300 6900 6500) (list 5300 6500 6900) (list 5700 6500 6500) (list 5300 5800 6500) (list 5300 7000 6500) (list 5300 6500 7000) (list 5800 6500 6500) (list 5500 6200 6700) (list 5500 6700 6200) (list 5500 6700 7400) (list 5500 6400 6700) (list 5500 6700 6400) (list 5500 6700 7600) (list 5500 5900 6200) (list 5500 5900 7400) (list 5500 7100 6200) (list 5500 7100 7400) (list 5500 6200 7100) (list 5900 5500 6200) (list 5900 5500 7400) (list 5900 6700 6200) (list 5900 6700 7400) (list 5900 6200 6700) (list 5500 5900 6700) (list 5500 7100 6700) (list 5500 6700 7100) (list 5900 5500 6700) (list 5900 6700 6700) (list 5500 6000 6700) (list 5500 7200 6700) (list 5500 6700 6000) (list 5500 6700 7200) (list 6000 5500 6700) (list 6000 6700 6700) (list 5700 6400 6900) (list 5700 6900 6400) (list 5700 6900 7600) (list 5700 6600 6900) (list 5700 6900 6600) (list 5700 6100 6400) (list 5700 6100 7600) (list 5700 6400 6100) (list 5700 6400 7300) (list 5700 6100 6900) (list 5700 6900 6100) (list 5700 6900 7300) (list 5700 6200 6900) (list 5700 6900 6200) (list 5700 6900 7400) (list 5900 6600 7100) (list 5900 7100 6600) (list 5900 6800 7100) (list 5900 7100 6800) (list 5900 6300 6600) (list 5900 6600 6300) (list 5900 6600 7500) (list 5900 6300 7100) (list 5900 7100 6300) (list 5900 7100 7500) (list 5900 6400 7100) (list 5900 7100 6400) (list 5900 7100 7600) (list 6000 6700 7200) (list 6000 7200 6700) (list 6000 6900 7200) (list 6000 7200 6900) (list 6000 6400 6700) (list 6000 6700 6400) (list 6000 6700 7600) (list 6000 6400 7200) (list 6000 7200 6400) (list 6000 7200 7600) (list 6000 6500 7200) (list 6000 7200 6500))) nil "database2"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "database1" (om-load-patch-abs1 "database1" (quote ((let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 197 130) (om-make-point 33 30) nil "nil" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 273 57) (om-make-point 101 30) (list 0 1200 2400) "(0 1200 2400)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 155 82) (om-make-point 90 30) (list 6000 7600) "(6000 7600)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxout "output" 0 (om-make-point 206 244) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-DATABASE" (quote omlead::harmon-database) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr2" (quote :instr2) nil nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr3" (quote :instr3) nil nil) (om-load-inputkeyword (quote input-keyword) "" "skala" (quote :skala) nil nil) (om-load-inputkeyword (quote input-keyword) "" "register-list" (quote :register-list) nil nil) (om-load-inputkeyword (quote input-keyword) "" "permutations" (quote :permutations) nil nil))) (om-make-point 110 160) nil (list (list (list 4500 6400 6900) (list 4700 6600 7100) (list 4800 5500 6000) (list 4800 5500 7200) (list 4800 6700 6000) (list 4800 6700 7200) (list 6000 5500 6000) (list 6000 5500 7200) (list 6000 6700 6000) (list 5000 5700 6200) (list 5000 5700 7400) (list 5000 6900 6200) (list 5000 6900 7400) (list 5200 5900 6400) (list 5200 5900 7600) (list 5200 7100 6400) (list 5200 7100 7600) (list 5300 6000 6500) (list 5300 7200 6500) (list 5500 6200 6700) (list 5700 6400 6900) (list 5900 6600 7100) (list 6000 6700 7200))) "x" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list" (quote list) (quote nil) (om-make-point 121 50) (om-make-point 90 30) (list 4500 6000) "(4500 6000)" 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 26 85) (om-make-point 104 30) (list (list 0 700 1200)) "((0 700 1200))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 294 101) (om-make-point 200 30) (list 200 200 100 200 200 200 100) "(200 200 100 200 200 200 100)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 3" (quote list) (quote nil) (om-make-point 198 24) (om-make-point 90 30) (list 5500 7200) "(5500 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((4 0 3 0 nil 0) (6 0 4 0 nil 0) (5 0 4 1 nil 0) (8 0 4 2 nil 0) (2 0 4 3 nil 0) (7 0 4 4 nil 0) (1 0 4 5 nil 0) (0 0 4 6 nil 0))) 7.02 nil "" (om-make-point 131 205) (om-make-point 547 453)) (quote nil) (om-make-point 316/5 45) nil (list (list (list 4500 6400 6900) (list 4700 6600 7100) (list 4800 5500 6000) (list 4800 5500 7200) (list 4800 6700 6000) (list 4800 6700 7200) (list 6000 5500 6000) (list 6000 5500 7200) (list 6000 6700 6000) (list 5000 5700 6200) (list 5000 5700 7400) (list 5000 6900 6200) (list 5000 6900 7400) (list 5200 5900 6400) (list 5200 5900 7600) (list 5200 7100 6400) (list 5200 7100 7600) (list 5300 6000 6500) (list 5300 7200 6500) (list 5500 6200 6700) (list 5700 6400 6900) (list 5900 6600 7100) (list 6000 6700 7200))) nil "database1"))) (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 438 129) (om-make-point 162 30) (list (list 2 1) (list (quote omlead::parallel))) "((2 1) (omlead::parallel))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "POLY 2" (quote poly) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "list of VOICE objects" "voices" (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (1 (((4 4) (1 1 1 1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj))))) (om-make-point 64 398) (om-make-point 613 247) (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 (10 (((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7600)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (10 (((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (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 (10 (((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (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))) (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 (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 (list (quote g) (quote g) (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 (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) (om-make-point 0 0) nil nil (quote :midi-player) 1 nil 1000 0 (om-make-point 476 433) (om-make-point 400 20) 0 1 (quote :normal) (quote t) nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 231 91) (om-make-point 44 27) 10 "10" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 130 125) (om-make-point 122 30) (list 4800 6000 6700) "(4800 6000 6700)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-PROGRESS" (quote omlead::harmon-progress) (quote ((om-load-inputfun (quote input-funbox) "" "HARMON-DATABASE" nil) (om-load-inputfun (quote input-funbox) "" "FIRST-CHORD" nil) (om-load-inputfun (quote input-funbox) "" "CHORDNUMBER" nil) (om-load-inputkeyword (quote input-keyword) "" "base-list" (quote :base-list) nil nil) (om-load-inputkeyword (quote input-keyword) "" "voice-interval1" (quote :voice-interval1) nil nil) (om-load-inputkeyword (quote input-keyword) "" "voice-counter1" (quote :voice-counter1) nil nil) (om-load-inputkeyword (quote input-keyword) "" "voice-interval3" (quote :voice-interval3) nil nil))) (om-make-point 174 219) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((11 0 0 0 nil 0) (6 0 3 0 nil 0) (5 0 3 1 nil 0) (0 0 8 1 nil 0) (3 0 11 0 nil 0) (10 0 11 1 nil 0) (9 0 11 2 nil 0) (4 0 11 3 nil 0) (1 0 11 4 nil 0) (7 0 11 5 nil 0) (2 0 11 6 nil 0))) nil 7.02))
| 
