(in-package :om)(load-lib-for 'nil)(setf *om-current-persistent* (om-load-patch "Hiroya's Assignment2" '((om-load-boxcall 'bastype "list1" 'list 'nil 14614653 1310760 (list 1 4) "(1 4)" nil) (om-load-boxcall 'genfun "FLAT" 'flat '((om-load-inputfun 'input-funbox "one list" "LST" nil)) 12648521 nil nil nil nil 1) (om-load-boxcall 'bastype "integer" 'integer 'nil 4980967 1310760 5 "5" nil) (om-load-boxcall 'genfun "REPEAT-N" 'repeat-n '((om-load-inputfun 'input-funbox "patch" "SELF" nil) (om-load-inputfun 'input-funbox "times" "NUM" 0)) 6488226 nil nil nil nil 1) (om-load-boxcall 'genfun "NTH-RANDOM" 'nth-random '((om-load-inputfun 'input-funbox "the list" "LIST" nil)) 3801173 nil nil nil nil 1) (om-load-boxcall 'bastype "list" 'list 'nil 1704010 1310796 (list 8 12 16 32) "(8 12 16 32)
" nil) (om-load-boxwithed 'box-with-win "OMLOOP1" 'omloop '((om-load-inputfun 'input-funbox "aditional input" "OPLIST" nil)) 8781896 nil nil nil (list (om-load-boxcall 'genfun "inlist" 'listloop '((om-load-inputfun 'input-funbox "list to iterate" "LIST" nil)) 6225955 nil nil nil nil 1) (om-load-boxcall 'bastype "integer3" 'integer 'nil 9634058 1310760 5 "5" nil) (om-load-boxcall 'genfun "REPEAT-N" 'repeat-n '((om-load-inputfun 'input-funbox "patch" "SELF" nil) (om-load-inputfun 'input-funbox "times" "NUM" 0)) 12452049 nil nil nil nil 1) (om-load-boxcall 'genfun "OM/" 'om/ '((om-load-inputfun 'input-funbox "number or tree" "SELF" 1) (om-load-inputfun 'input-funbox "number or tree" "NUM" 1)) 15794376 nil nil nil nil 1) (om-load-boxcall 'bastype "integer1" 'integer 'nil 13959313 1310760 1 "1" nil) (om-load-boxcall 'genfun "collect" 'listing '((om-load-inputfun 'input-funbox "no documentation" "WHAT?" nil)) 24969355 nil nil nil nil 3) (om-load-boxin "input0" 0 1638425 "no documentation" nil nil nil) (om-load-seqbox "finally" 'finaldo '((om-load-inputfun 'input-funbox "patch" "PATCH" nil)) 33226889 nil nil nil 0) (om-load-seqbox "eachTime" 'loopdo '((om-load-inputfun 'input-funbox "patch" "PATCH" nil)) 33226820 nil nil nil 0)) '((6 0 0 0 nil 0) (0 0 2 0 nil 0) (1 0 2 1 nil 0) (4 0 3 0 nil 0) (2 0 3 1 nil 0) (3 0 5 0 nil 0) (5 1 7 0 nil 0) (5 0 8 0 nil 0)) 1 nil) (om-load-editor-box "CHORD-SEQ" 'chord-seq '((om-load-inputfun 'input-funbox "objs" "SELF" nil) (om-load-inputfun 'input-funbox "no documentation" "LMIDIC" (list 6000)) (om-load-inputfun 'input-funbox "no documentation" "LONSET" (list 0 1000)) (om-load-inputfun 'input-funbox "no documentation" "LDUR" (list 1000)) (om-load-inputfun 'input-funbox "no documentation" "LVEL" (list 100)) (om-load-inputfun 'input-funbox "no documentation" "LOFFSET" (list 0)) (om-load-inputfun 'input-funbox "no documentation" "LCHAN" (list 1)) (om-load-inputfun 'input-funbox "no documentation" "LEGATO" 0)) 23068872 3276880 (let ((newobj (when (find-class 'chord-seq nil) (make-instance 'chord-seq :lmidic '((7600 6600) (8300 6800) (7200 8100) (7500 6500) (6100 8000) (7800 7100) (8100 7300) (6200 8800) (6400 8400) (5900 7600) (4600 7000) (5300 7400) (5000 6400) (2300 7800) (6900 6300 5600 4200) (7100 8200 9800 5200) (7600 7100 6700 5800) (7100 8200 9500 6000 3000) (7000 6800 6100 4800 8800) (5200 3900 9200 7100 8900) (4800 6900 7800 5800 5100) (4900 600 5900 7100 8200 9400) (600 4400 2800 6400 8300 9600 7400 5300) (9700 7700 7300 6100 4700 3600 1500 2800 8100 6800) (9800 8500 8100 7600 6500 5700 4700 3900 2400 1300)) :lonset '(28 736 1250 2056 3069 3736 4639 4639 5417 6264 7139 8111 9139 10167 11000 12361 13472 14153 15083 16181 17444 18486 19208 20028 20639 21639) :ldur '((1000 1000) (1000 1000) (1000 1000) (1000 1000) (1000 1000) (1000 1000) (1000 1000) (1000 1000) (1000 1000) (1000 1000) (1000 1000) (1000 1000) (1000 1000) (1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000 1000) (1000 1000 1000 1000 1000) (1000 1000 1000 1000 1000) (1000 1000 1000 1000 1000) (1000 1000 1000 1000 1000 1000) (1000 1000 1000 1000 1000 1000 1000 1000) (1000 1000 1000 1000 1000 1000 1000 1000 1000 1000) (1000 1000 1000 1000 1000 1000 1000 1000 1000 1000)) :lvel '((100 100) (100 100) (100 100) (100 100) (100 100) (100 100) (100 100) (100 100) (100 100) (100 100) (100 100) (100 100) (100 100) (100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100 100) (100 100 100 100 100) (100 100 100 100 100) (100 100 100 100 100) (100 100 100 100 100 100) (100 100 100 100 100 100 100 100) (100 100 100 100 100 100 100 100 100 100) (100 100 100 100 100 100 100 100 100 100)) :loffset '((0 0) (0 0) (0 0) (0 0) (0 0) (0 0) (0 0) (0 0) (0 0) (0 0) (0 0) (0 0) (0 0) (0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0 0) (0 0 0 0 0) (0 0 0 0 0) (0 0 0 0 0) (0 0 0 0 0 0) (0 0 0 0 0 0 0 0) (0 0 0 0 0 0 0 0 0 0) (0 0 0 0 0 0 0 0 0 0)) :lchan '((1 1) (1 1) (1 1) (1 1) (1 1) (1 1) (1 1) (1 1) (1 1) (1 1) (1 1) (1 1) (1 1) (1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1 1) (1 1 1 1 1) (1 1 1 1 1) (1 1 1 1 1) (1 1 1 1 1 1) (1 1 1 1 1 1 1 1) (1 1 1 1 1 1 1 1 1 1) (1 1 1 1 1 1 1 1 1 1)) :legato 0)))) newobj) "x" nil (corrige (pairlis '(approx fontsize staff cmnpref deltapict outport inport) '(2 24 ggff (1 15 2 2 0) 0 0 0))) nil nil) (om-load-editor-box "VOICE" 'voice '((om-load-inputfun 'input-funbox "objs" "SELF" nil) (om-load-inputfun 'input-funbox "a list representing a rhythm tree" "TREE" (list '? (list (list '4//4 (list 1 (list 1 (list 1 -2 1 1)) 1 1)) (list '4//4 (list 1 (list 1 (list 1 2 1 1)) -1 1))))) (om-load-inputfun 'input-funbox "a chord object , a list of chord objects, a list of midics, a list of lists of midics." "CHORDS" (list (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 6000) :lvel (list 100) :loffset (list 0) :ldur (list 1000) :lchan (list 1) :from-file t)))) (om-load-inputfun 'input-funbox "a number indicating the frequency of the quarter-note (default 60/mn)" "TEMPO" 60) (om-load-inputfun 'input-funbox "no documentation" "LEGATO" 100) (om-load-inputfun 'input-funbox "no documentation" "TIES" nil)) 29556832 3276880 (if (find-class 'voice nil) (make-instance 'voice :tree (list 7/4 (list (list (list 1 4) (list (list 1 (list 1 1 1 1 1 2 1)))) (list (list 1 4) (list (list 1 (list 1.0 2 2 2 1)))) (list (list 1 4) (list (list 1 (list 3.0 4 1)))) (list (list 1 4) (list (list 1 (list 3.0 4 1)))) (list (list 1 4) (list (list 1 (list 3.0 1 1 1 1 1)))) (list (list 1 4) (list (list 1 (list 1 1 1)))) (list (list 1 4) (list (list 1 (list 1 1 -1)))))) :chords (list (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 7600 6600) :lvel (list 100 100) :loffset (list 0 0) :ldur (list 125 125) :lchan (list 1 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 8300 6800) :lvel (list 100 100) :loffset (list 0 0) :ldur (list 125 125) :lchan (list 1 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 7200 8100) :lvel (list 100 100) :loffset (list 0 0) :ldur (list 125 125) :lchan (list 1 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 7500 6500) :lvel (list 100 100) :loffset (list 0 0) :ldur (list 125 125) :lchan (list 1 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 6100 8000) :lvel (list 100 100) :loffset (list 0 0) :ldur (list 125 125) :lchan (list 1 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 7800 7100) :lvel (list 100 100) :loffset (list 0 0) :ldur (list 250 250) :lchan (list 1 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 8100 7300) :lvel (list 100 100) :loffset (list 0 0) :ldur (list 125 125) :lchan (list 1 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 6200 8800) :lvel (list 100 100) :loffset (list 0 0) :ldur (list 250 250) :lchan (list 1 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 6400 8400) :lvel (list 100 100) :loffset (list 0 0) :ldur (list 250 250) :lchan (list 1 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 5900 7600) :lvel (list 100 100) :loffset (list 0 0) :ldur (list 250 250) :lchan (list 1 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 4600 7000) :lvel (list 100 100) :loffset (list 0 0) :ldur (list 125 125) :lchan (list 1 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 5300 7400) :lvel (list 100 100) :loffset (list 0 0) :ldur (list 500 500) :lchan (list 1 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 5000 6400) :lvel (list 100 100) :loffset (list 0 0) :ldur (list 125 125) :lchan (list 1 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 2300 7800) :lvel (list 100 100) :loffset (list 0 0) :ldur (list 500 500) :lchan (list 1 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 6900 6300 5600 4200) :lvel (list 100 100 100 100) :loffset (list 0 0 0 0) :ldur (list 125 125 125 125) :lchan (list 1 1 1 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 7100 8200 9800 5200) :lvel (list 100 100 100 100) :loffset (list 0 0 0 0) :ldur (list 125 125 125 125) :lchan (list 1 1 1 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 7600 7100 6700 5800) :lvel (list 100 100 100 100) :loffset (list 0 0 0 0) :ldur (list 125 125 125 125) :lchan (list 1 1 1 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 7100 8200 9500 6000 3000) :lvel (list 100 100 100 100 100) :loffset (list 0 0 0 0 0) :ldur (list 125 125 125 125 125) :lchan (list 1 1 1 1 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 7000 6800 6100 4800 8800) :lvel (list 100 100 100 100 100) :loffset (list 0 0 0 0 0) :ldur (list 125 125 125 125 125) :lchan (list 1 1 1 1 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 5200 3900 9200 7100 8900) :lvel (list 100 100 100 100 100) :loffset (list 0 0 0 0 0) :ldur (list 125 125 125 125 125) :lchan (list 1 1 1 1 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 4800 6900 7800 5800 5100) :lvel (list 100 100 100 100 100) :loffset (list 0 0 0 0 0) :ldur (list 333 333 333 333 333) :lchan (list 1 1 1 1 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 4900 600 5900 7100 8200 9400) :lvel (list 100 100 100 100 100 100) :loffset (list 0 0 0 0 0 0) :ldur (list 333 333 333 333 333 333) :lchan (list 1 1 1 1 1 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 600 4400 2800 6400 8300 9600 7400 5300) :lvel (list 100 100 100 100 100 100 100 100) :loffset (list 0 0 0 0 0 0 0 0) :ldur (list 333 333 333 333 333 333 333 333) :lchan (list 1 1 1 1 1 1 1 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 9700 7700 7300 6100 4700 3600 1500 2800 8100 6800) :lvel (list 100 100 100 100 100 100 100 100 100 100) :loffset (list 0 0 0 0 0 0 0 0 0 0) :ldur (list 333 333 333 333 333 333 333 333 333 333) :lchan (list 1 1 1 1 1 1 1 1 1 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 9800 8500 8100 7600 6500 5700 4700 3900 2400 1300) :lvel (list 100 100 100 100 100 100 100 100 100 100) :loffset (list 0 0 0 0 0 0 0 0 0 0) :ldur (list 333 333 333 333 333 333 333 333 333 333) :lchan (list 1 1 1 1 1 1 1 1 1 1) :from-file t))) :tempo 60 :legato 100 :ties (list 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) :from-file t)) nil nil (corrige (pairlis '(approx fontsize staff cmnpref deltapict outport inport) '(2 24 g (1 15 2 2 0) 0 0 0))) nil nil) (om-load-boxcall 'genfun "MKTREE" 'mktree '((om-load-inputfun 'input-funbox "list of integer ratio" "RHYTHM" (list 1/4 1/4 1/4 1/4)) (om-load-inputfun 'input-funbox "list of time signatures" "TIMESIGNS" (list 4 4))) 17432653 nil nil nil nil 1) (om-load-boxcall 'bastype "aux4" 't 'nil 786772 1310731 1 "1" nil) (om-load-boxcall 'bastype "aux3" 't 'nil 786745 1310735 56 "56" nil) (om-load-boxcall 'genfun "PGMOUT" 'pgmout '((om-load-inputfun 'input-funbox "program number" "PROG" 56) (om-load-inputfun 'input-funbox "channel" "CHANS" 1)) 2752823 nil nil nil nil 1)) '((6 0 1 0 nil 0) (4 0 3 0 nil 0) (2 0 3 1 nil 0) (5 0 4 0 nil 0) (3 0 6 0 nil 0) (9 0 8 1 nil 0) (7 1 8 2 nil 0) (1 0 9 0 nil 0) (0 0 9 1 nil 0) (11 0 12 0 nil 0) (10 0 12 1 nil 0)) 'nil 3.7 '(nil nil nil nil nil nil nil nil nil nil nil nil nil)))