; OM File Header - Saved 2019/04/22 10:15:51 ; (6.120001 :patc (om-make-point 127 149) (om-make-point 50 50) (om-make-point 516 439) "" 183 0 nil "2019/04/22 10:15:51") ; End File Header ; External resources ; (list (list (quote :sound) "#P\"C:../../workspace2019/in-files/bird.wav\"")) (in-package :om)(load-lib-for (quote nil))(setf *om-current-persistent* (om-load-patch1 "crash isolate" (quote ((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 705 41) (om-make-point 130 90) (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/2 (((5 8) ((5 (-1 1 -1 -1 2 1)))) ((7 8) ((7 (1 1 -1 -1 -1 2 -1 1))))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (4300)) :ldur (quote (306)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (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 (612)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (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 (306)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (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 (4200)) :ldur (quote (333)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (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 (333)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (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 (7500)) :ldur (quote (667)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (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 (7000)) :ldur (quote (333)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (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 70) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (3/2 (((5 8) ((5 (-1 2 2 -1 -1 1)))) ((7 8) ((7 (1 1 1 -1 -1 2 1))))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (7300)) :ldur (quote (536)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (536)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4500)) :ldur (quote (268)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (375)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (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 (4200)) :ldur (quote (375)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (375)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (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 (750)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (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 (375)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (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 70) 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 (3/2 (((5 8) ((5 (2 -1 2 1)))) ((7 8) ((7 (-1 1 -1 1 2 1))))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (714)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (5))))) (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 (6100)) :ldur (quote (714)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (5))))) (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 (4300)) :ldur (quote (357)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (5))))) (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 (429)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (5))))) (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 (429)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (5))))) (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 (6300)) :ldur (quote (857)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (5))))) (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 (7300)) :ldur (quote (429)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (5))))) (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 70) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) :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)) "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) 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 1 1 1 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-boxcall (quote lispfun) "SLEEP" (quote sleep) (quote ((om-load-inputfun (quote input-funbox) "TIME" "TIME" 1))) (om-make-point 649 338) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "bird.wav" (quote sound) (quote ((om-load-inputfun (quote input-funbox) "object" "self" (om-make-pathname :directory (quote (:absolute "Users" "lt" "Desktop" "sto-mo auio")) :device nil :host "C" :name "pno4" :type "aif")) (om-load-inputfun (quote input-funbox) "a track index for multichannel mixing (0 = no specific track)" "tracknum" 0) (om-load-inputfun (quote input-funbox) "a list of markers (s)" "markers" (list 1500 1900)))) (om-make-point 40505271/71896 7769677/197714) (om-make-point 80 50) (let ((newobj (let ((thesound (load-sound (om-make-pathname :directory (quote (:absolute "Users" "lt" "Documents" "Ircam Open Music" "workspace2019" "in-files")) :device nil :host nil :name "bird" :type "wav") 0 1.0 0))) (when thesound (setf (markers thesound) (quote (1500 1900)))) thesound))) (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 "bird.wav") (set-tonalite newobj nil) newobj) "x" nil (pairlis (quote (outport inport player zoom grillestep mode winsize winpos show-spectrum deltapict obj-mode cmnpref notechancolor? show-stems scale)) (list nil nil (quote :om-audio) 1 nil 0 (om-make-point 1280 637) (om-make-point -8 -8) nil (om-make-point 0 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) nil (quote t) nil)) t nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LIST 5" (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 26624349/71896 81588917/197714) (om-make-point 450 48.0) nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote maqabs) "mymaquette" (om-load-maq-abs1 "mymaquette" (quote ((let ((box (om-load-tempobj1 "tempobj3" (quote nil) (list (quote yourobj) (let ((ominst (make-instance (quote ominstance) :name "tempobj3" :icon 224))) (setf (instance ominst) (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/2 (((5 8) ((5 (-1 1 -1 -1 2 1)))) ((7 8) ((7 (1 1 -1 -1 -1 2 -1 1))))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (4300)) :ldur (quote (306)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (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 (612)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (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 (306)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (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 (4200)) :ldur (quote (333)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (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 (333)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (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 (7500)) :ldur (quote (667)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (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 (7000)) :ldur (quote (333)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (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 70) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (3/2 (((5 8) ((5 (-1 2 2 -1 -1 1)))) ((7 8) ((7 (1 1 1 -1 -1 2 1))))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (7300)) :ldur (quote (536)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (536)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4500)) :ldur (quote (268)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (375)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (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 (4200)) :ldur (quote (375)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (375)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (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 (750)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (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 (375)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (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 70) 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 (3/2 (((5 8) ((5 (2 -1 2 1)))) ((7 8) ((7 (-1 1 -1 1 2 1))))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (714)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (5))))) (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 (6100)) :ldur (quote (714)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (5))))) (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 (4300)) :ldur (quote (357)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (5))))) (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 (429)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (5))))) (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 (429)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (5))))) (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 (6300)) :ldur (quote (857)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (5))))) (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 (7300)) :ldur (quote (429)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (5))))) (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 70) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) :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))) (setf (doc ominst) (str-with-nl "")) (setf (edition-params ominst) (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 g) 24 2))) (setf (create-info ominst) (quote ("2019/04/22 10:14:59" "2019/04/22 10:15:51"))) ominst)) 1 2500 5143 (om-make-color 0.5 0.6 0.5) nil t 33 99 1 0 (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 g) 24 2)) nil nil nil nil nil nil "no documentation"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-tempobj1 "tempobj2" (quote nil) (list (quote yourobj) (let ((ominst (make-instance (quote ominstance) :name "tempobj2" :icon 287))) (setf (instance ominst) (let ((newobj (let ((thesound (load-sound (om-make-pathname :directory (quote (:absolute "Users" "lt" "Documents" "Ircam Open Music" "workspace2019" "in-files")) :device nil :host nil :name "bird" :type "wav") 0 1.0 0))) (when thesound (setf (markers thesound) (quote (1500 1900)))) thesound))) (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 "bird.wav") (set-tonalite newobj nil) newobj)) (setf (doc ominst) (str-with-nl "")) (setf (edition-params ominst) (pairlis (quote (scale show-stems notechancolor? cmnpref obj-mode deltapict show-spectrum winpos winsize mode grillestep zoom player inport outport)) (list nil (quote t) nil (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) 0 (om-make-point 0 0) nil (om-make-point 400 20) (om-make-point 370 280) 0 nil 1 (quote :om-audio) nil nil))) (setf (create-info ominst) (quote ("2019/04/22 10:14:59" "2019/04/22 10:15:51"))) ominst)) 1 2 1730 (om-make-color 0.5 0.6 0.5) nil t 33 66 1 0 (pairlis (quote (scale show-stems notechancolor? cmnpref obj-mode deltapict show-spectrum winpos winsize mode grillestep zoom player inport outport)) (list nil (quote t) nil (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) 0 (om-make-point 0 0) nil (om-make-point 400 20) (om-make-point 370 280) 0 nil 1 (quote :om-audio) nil nil)) nil nil nil nil nil nil "no documentation"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-tempobj1 "tempobj1" (quote nil) (list (quote yourobj) (let ((ominst (make-instance (quote ominstance) :name "tempobj1" :icon 918))) (setf (instance ominst) (let ((rep (make-instance (quote midi-mix-console) :midiport nil :nbtracks 10))) (setf (channels-ctrl rep) (list (if (find-class (quote channel-ctrl) nil) (make-instance (quote channel-ctrl) :midiport nil :midichannel 1 :program 32 :pan-ctrl 64 :control1-num 1 :control2-num 2 :control1-val 0 :control2-val 0 :vol-ctrl 100 :pitch-ctrl 8192 :from-file t)) (if (find-class (quote channel-ctrl) nil) (make-instance (quote channel-ctrl) :midiport nil :midichannel 2 :program 1 :pan-ctrl 64 :control1-num 1 :control2-num 2 :control1-val 0 :control2-val 0 :vol-ctrl 102 :pitch-ctrl 8192 :from-file t)) (if (find-class (quote channel-ctrl) nil) (make-instance (quote channel-ctrl) :midiport nil :midichannel 3 :program 59 :pan-ctrl 64 :control1-num 1 :control2-num 2 :control1-val 0 :control2-val 0 :vol-ctrl 0 :pitch-ctrl 8192 :from-file t)) (if (find-class (quote channel-ctrl) nil) (make-instance (quote channel-ctrl) :midiport nil :midichannel 4 :program 11 :pan-ctrl 64 :control1-num 1 :control2-num 2 :control1-val 0 :control2-val 0 :vol-ctrl 20 :pitch-ctrl 8192 :from-file t)) (if (find-class (quote channel-ctrl) nil) (make-instance (quote channel-ctrl) :midiport nil :midichannel 5 :program 40 :pan-ctrl 64 :control1-num 1 :control2-num 2 :control1-val 0 :control2-val 0 :vol-ctrl 66 :pitch-ctrl 8192 :from-file t)) (if (find-class (quote channel-ctrl) nil) (make-instance (quote channel-ctrl) :midiport nil :midichannel 6 :program 57 :pan-ctrl 64 :control1-num 1 :control2-num 2 :control1-val 0 :control2-val 0 :vol-ctrl 97 :pitch-ctrl 8192 :from-file t)) (if (find-class (quote channel-ctrl) nil) (make-instance (quote channel-ctrl) :midiport nil :midichannel 7 :program 66 :pan-ctrl 64 :control1-num 1 :control2-num 2 :control1-val 0 :control2-val 0 :vol-ctrl 100 :pitch-ctrl 8192 :from-file t)) (if (find-class (quote channel-ctrl) nil) (make-instance (quote channel-ctrl) :midiport nil :midichannel 8 :program 0 :pan-ctrl 64 :control1-num 1 :control2-num 2 :control1-val 0 :control2-val 0 :vol-ctrl 50 :pitch-ctrl 8192 :from-file t)) (if (find-class (quote channel-ctrl) nil) (make-instance (quote channel-ctrl) :midiport nil :midichannel 9 :program 4 :pan-ctrl 64 :control1-num 1 :control2-num 2 :control1-val 0 :control2-val 0 :vol-ctrl 72 :pitch-ctrl 8192 :from-file t)) (if (find-class (quote channel-ctrl) nil) (make-instance (quote channel-ctrl) :midiport nil :midichannel 10 :program 118 :pan-ctrl 64 :control1-num 1 :control2-num 2 :control1-val 0 :control2-val 0 :vol-ctrl 127 :pitch-ctrl 8192 :from-file t)))) (setf (miditrack rep) (quote 0)) rep)) (setf (doc ominst) (str-with-nl "")) (setf (edition-params ominst) (pairlis (quote (scale show-stems winpos winsize mode grillestep notechancolor? cmnpref obj-mode zoom deltapict player)) (list nil (quote t) (om-make-point 10 40) (om-make-point 370 280) 0 1000 nil (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) 0 1 (om-make-point 0 0) (quote :midi-player)))) (setf (create-info ominst) (quote ("2019/04/22 10:14:59" "2019/04/22 10:15:51"))) ominst)) 1 1 0 (om-make-color 0.5 0.6 0.5) nil t 33 33 1 0 (pairlis (quote (scale show-stems winpos winsize mode grillestep notechancolor? cmnpref obj-mode zoom deltapict player)) (list nil (quote t) (om-make-point 10 40) (om-make-point 370 280) 0 1000 nil (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) 0 1 (om-make-point 0 0) (quote :midi-player))) nil nil nil nil nil nil "no documentation"))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote nil) (quote (0 11287 0 100)) (quote nil) (om-make-color 0.85 0.85 0.83) (quote ((4 60) ((4 4)) 16 t)) t 6.120001 nil "" "off" (quote (1)) (quote (1)) nil (om-make-point 200 200) (om-make-point 500 380)) (quote ((om-load-inputfun (quote input-funbox) "time rate (number) or offset list" "time" 1000) (om-load-inputfun (quote input-funbox) "objects to put in maquette" "objs" nil))) (om-make-point 36119615/71896 42567341/197714) nil (list (if (find-class (quote maquette-obj) nil) (let ((newobj (make-instance (quote maquette-obj) :from-file t))) (load-port-info newobj (quote ((nil 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))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LIST 2" (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-make-point 42949735/71896 28331933/197714) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 3" (quote list) (quote nil) (om-make-point 26988823/71896 30704501/197714) (om-make-point 85 44) (list 1 2 2500) "(1 2 2500)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "PLAY" (quote play) (quote ((om-load-inputfun (quote input-funbox) "object" "SELF" nil))) (om-make-point 38132703/71896 57791319/197714) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "MIDI-MIX-CONSOLE" (quote midi-mix-console) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "output port number" "midiport" 1) (om-load-inputfun (quote input-funbox) "number of tracks" "nbtracks" 10))) (om-make-point 429 46) (om-make-point 65 70) (let ((rep (make-instance (quote midi-mix-console) :midiport nil :nbtracks 10))) (setf (channels-ctrl rep) (list (if (find-class (quote channel-ctrl) nil) (make-instance (quote channel-ctrl) :midiport nil :midichannel 1 :program 32 :pan-ctrl 64 :control1-num 1 :control2-num 2 :control1-val 0 :control2-val 0 :vol-ctrl 100 :pitch-ctrl 8192 :from-file t)) (if (find-class (quote channel-ctrl) nil) (make-instance (quote channel-ctrl) :midiport nil :midichannel 2 :program 1 :pan-ctrl 64 :control1-num 1 :control2-num 2 :control1-val 0 :control2-val 0 :vol-ctrl 102 :pitch-ctrl 8192 :from-file t)) (if (find-class (quote channel-ctrl) nil) (make-instance (quote channel-ctrl) :midiport nil :midichannel 3 :program 59 :pan-ctrl 64 :control1-num 1 :control2-num 2 :control1-val 0 :control2-val 0 :vol-ctrl 0 :pitch-ctrl 8192 :from-file t)) (if (find-class (quote channel-ctrl) nil) (make-instance (quote channel-ctrl) :midiport nil :midichannel 4 :program 11 :pan-ctrl 64 :control1-num 1 :control2-num 2 :control1-val 0 :control2-val 0 :vol-ctrl 20 :pitch-ctrl 8192 :from-file t)) (if (find-class (quote channel-ctrl) nil) (make-instance (quote channel-ctrl) :midiport nil :midichannel 5 :program 40 :pan-ctrl 64 :control1-num 1 :control2-num 2 :control1-val 0 :control2-val 0 :vol-ctrl 66 :pitch-ctrl 8192 :from-file t)) (if (find-class (quote channel-ctrl) nil) (make-instance (quote channel-ctrl) :midiport nil :midichannel 6 :program 57 :pan-ctrl 64 :control1-num 1 :control2-num 2 :control1-val 0 :control2-val 0 :vol-ctrl 97 :pitch-ctrl 8192 :from-file t)) (if (find-class (quote channel-ctrl) nil) (make-instance (quote channel-ctrl) :midiport nil :midichannel 7 :program 66 :pan-ctrl 64 :control1-num 1 :control2-num 2 :control1-val 0 :control2-val 0 :vol-ctrl 100 :pitch-ctrl 8192 :from-file t)) (if (find-class (quote channel-ctrl) nil) (make-instance (quote channel-ctrl) :midiport nil :midichannel 8 :program 0 :pan-ctrl 64 :control1-num 1 :control2-num 2 :control1-val 0 :control2-val 0 :vol-ctrl 50 :pitch-ctrl 8192 :from-file t)) (if (find-class (quote channel-ctrl) nil) (make-instance (quote channel-ctrl) :midiport nil :midichannel 9 :program 4 :pan-ctrl 64 :control1-num 1 :control2-num 2 :control1-val 0 :control2-val 0 :vol-ctrl 72 :pitch-ctrl 8192 :from-file t)) (if (find-class (quote channel-ctrl) nil) (make-instance (quote channel-ctrl) :midiport nil :midichannel 10 :program 118 :pan-ctrl 64 :control1-num 1 :control2-num 2 :control1-val 0 :control2-val 0 :vol-ctrl 127 :pitch-ctrl 8192 :from-file t)))) (setf (miditrack rep) (quote 0)) rep) "x" nil (pairlis (quote (player winpos winsize deltapict zoom obj-mode cmnpref notechancolor? grillestep mode show-stems scale)) (list (quote :midi-player) (om-make-point 164 23) (om-make-point 800 560) (om-make-point 0 0) 1 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) nil 1000 0 (quote t) nil)) t nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "REPEAT-N" (quote repeat-n) (quote ((om-load-inputfun (quote input-funbox) "something" "SELF" nil) (om-load-inputfun (quote input-funbox) "times" "N" 23))) (om-make-point 568 540) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((7 0 3 0 nil 0) (1 0 3 1 nil 0) (6 0 4 0 nil 0) (5 0 4 1 nil 0) (8 0 5 0 nil 0) (2 0 5 1 nil 0) (0 0 5 2 nil 0) (4 0 7 0 nil 0) (3 0 9 0 nil 0))) nil 6.120001))