(in-package :om)(load-lib-for 'nil)(setf *om-current-persistent* (om-load-patch "michel1" '((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)) 38273274 3276880 (let ((newobj (when (find-class 'chord-seq nil) (make-instance 'chord-seq :lmidic '((5200) (4700) (5800) (4700) (5090.909090909091) (4336.363636363636) (4336.363636363636) (5500.0) (5418.181818181818) (5954.545454545455) (5418.181818181818) (5418.181818181818) (6100.0) (6509.090909090909) (6181.818181818182) (5827.272727272727) (6263.636363636364) (6745.454545454546) (6263.636363636364) (6236.363636363636) (5681.818181818182) (6645.454545454546) (6645.454545454546) (6700.0) (6863.636363636364) (7045.454545454546) (7218.181818181818) (6018.181818181818) (7436.363636363636) (7300.0) (7454.545454545454) (7436.363636363636) (7827.272727272728) (7872.727272727273) (7690.909090909091) (7690.909090909091) (7545.454545454546) (7927.272727272728) (7927.272727272728) (7545.454545454546) (7363.636363636364) (7363.636363636364) (7772.727272727272) (7363.636363636364) (7700.0) (8500.0) (8400.0) (8400.0)) :lonset '(0 75 150 225 300 375 450 525 600 675 750 825 900 975 1050 1125 1200 1275 1350 1425 1500 1575 1650 1725 1800 1875 1950 2025 2100 2175 2250 2325 2400 2475 2550 2625 2700 2775 2850 2925 3000 3075 3150 3225 3300 3375 3450 3525 3600) :ldur '((75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75) (75)) :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)) :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)) :lchan '((2) (2) (2) (2) (2) (2) (2) (2) (2) (2) (2) (1) (2) (2) (2) (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 100)))) newobj) nil nil (corrige (pairlis '(inport outport deltapict cmnpref staff fontsize approx) '(0 0 0 (1 15 2 2 0) g 24 2))) t nil) (om-load-boxwithed 'box-with-win "OMLOOP2" 'omloop '((om-load-inputfun 'input-funbox "aditional input" "OPLIST" nil)) 29688122 nil nil nil (list (om-load-boxcall 'genfun "collect" 'listing '((om-load-inputfun 'input-funbox "no documentation" "WHAT?" nil)) 24969355 nil nil nil nil 3) (om-load-boxcall 'bastype "aux2" 't 'nil 16711876 1310737 1 "1" nil) (om-load-boxcall 'bastype "aux1" 't 'nil 16711838 1310739 2 "2" nil) (om-load-boxcall 'bastype "aux" 't 'nil 12517520 1310757 6000 "6000" nil) (om-load-boxcall 'genfun "OM<" 'om< '((om-load-inputfun 'input-funbox "a number" "SELF" 0) (om-load-inputfun 'input-funbox "a number" "NUM" 1)) 14483542 2293853 nil nil nil 1) (om-load-boxcall 'genfun "OMIF" 'omif '((om-load-inputfun 'input-funbox "if" "TEST" nil) (om-load-inputfun 'input-funbox "then" "ACTION" nil) (om-load-inputfun 'input-funbox "else" "ELSE" nil)) 18612318 3473550 nil nil nil 1) (om-load-boxcall 'genfun "inlist" 'listloop '((om-load-inputfun 'input-funbox "list to iterate" "LIST" nil)) 7012407 nil nil nil nil 1) (om-load-boxin "input0" 0 1638463 "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)) '((5 0 0 0 nil 0) (6 0 4 0 nil 0) (3 0 4 1 nil 0) (4 0 5 0 nil 0) (2 0 5 1 nil 0) (1 0 5 2 nil 0) (7 0 6 0 nil 0) (0 1 8 0 nil 0) (0 0 9 0 nil 0)) 1 nil) (om-load-boxcomment "comment11111" 1376272 '"F" nil 25952502 nil 0 '("Geneva" 10 :srcor)) (om-load-editor-box "CHORD-SEQ2" 'chord-seq '((om-load-inputfun 'input-funbox "objs" "SELF" nil) (om-load-inputfun 'input-funbox "LMIDIC" "LMIDIC" (list 6000)) (om-load-inputfun 'input-funbox "LONSET" "LONSET" (list 0 1000)) (om-load-inputfun 'input-funbox "LDUR" "LDUR" (list 1000)) (om-load-inputfun 'input-funbox "LVEL" "LVEL" (list 100)) (om-load-inputfun 'input-funbox "LOFFSET" "LOFFSET" (list 0)) (om-load-inputfun 'input-funbox "LCHAN" "LCHAN" (list 1)) (om-load-inputfun 'input-funbox "LEGATO" "LEGATO" 0)) 22085764 4390981 (let ((newobj (when (find-class 'chord-seq nil) (make-instance 'chord-seq :lmidic '((2300 2900 3300 2800 4500 4100) (2690.909090909091 3500.0 3800.0 3281.818181818182 4781.818181818182 4509.090909090909) (3081.818181818182 4100.0 4300.0 3763.6363636363635 5063.636363636364 4918.181818181818) (3472.727272727273 4700.0 4800.0 4245.454545454545 5345.454545454545 5327.272727272727) (3863.636363636364 5300.0 5300.0 4727.272727272727 5627.272727272727 5736.363636363636) (4254.545454545454 5900.0 5800.0 5209.090909090909 5909.090909090909 6145.454545454546) (4645.454545454546 6500.0 6300.0 5690.90909090909 6190.909090909091 6554.545454545454) (5036.363636363636 7100.0 6800.0 6172.727272727272 6472.727272727273 6963.636363636364) (5427.272727272728 7700.0 7300.0 6654.545454545454 6754.545454545454 7372.727272727273) (5818.181818181818 8300.0 7800.0 7136.363636363637 7036.363636363636 7781.818181818182) (6209.090909090909 8900.0 8300.0 7618.181818181818 7318.181818181818 8190.909090909091) (6600.0 9500.0 8800.0 8100.0 7600.0 8600.0)) :lonset '(0 1000 2000 3000 4000 5000 6000 7000 8000 9000 10000 11000 12000) :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)) :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)) :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)) :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)) :legato 0)))) newobj) nil nil (corrige (pairlis '(inport outport deltapict cmnpref staff fontsize approx) '(0 0 -1900544 (1 15 2 2 0) ggff 24 2))) nil nil) (om-load-boxcall 'bastype "aux41" 't 'nil 32702860 1441814 100 "100" nil) (om-load-boxcall 'bastype "aux21" 't 'nil 13762864 1310743 1.0 "1.0" nil) (om-load-boxcomment "comment1111" 1376272 '"E" nil 22216946 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcomment "comment112" 1376272 '"D" nil 20512889 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcomment "comment12" 1376272 '"C" nil 16580774 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcomment "comment3" 1376272 '"B" nil 9634106 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcomment "comment2" 1376272 '"A" nil 9437336 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcall 'bastype "aux31" 't 'nil 13762834 1310743 12 "12" nil) (om-load-editor-box "CHORD" 'chord '((om-load-inputfun 'input-funbox "object or object list" "object" nil) (om-load-inputfun 'input-funbox "LMIDIC" "LMIDIC" (list 6000)) (om-load-inputfun 'input-funbox "LVEL" "LVEL" (list 100)) (om-load-inputfun 'input-funbox "LOFFSET" "LOFFSET" (list 0)) (om-load-inputfun 'input-funbox "LDUR" "LDUR" (list 1000)) (om-load-inputfun 'input-funbox "LCHAN" "LCHAN" (list 1))) 3342587 9830456 (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 7700 9100 9000 8500 8000 8400) :lvel (list 100 100 100 100 100 100) :loffset (list 0 0 0 0 0 0) :ldur (list 1000 1000 1000 1000 1000 1000) :lchan (list 1 1 1 1 1 1) :from-file t)) "x" nil (corrige (pairlis '(inport outport deltapict cmnpref staff fontsize approx) '(0 0 -196608 nil ggff 24 2))) t nil) (om-load-editor-box "CHORD1" 'chord '((om-load-inputfun 'input-funbox "object or object list" "object" nil) (om-load-inputfun 'input-funbox "LMIDIC" "LMIDIC" (list 6000)) (om-load-inputfun 'input-funbox "LVEL" "LVEL" (list 100)) (om-load-inputfun 'input-funbox "LOFFSET" "LOFFSET" (list 0)) (om-load-inputfun 'input-funbox "LDUR" "LDUR" (list 1000)) (om-load-inputfun 'input-funbox "LCHAN" "LCHAN" (list 1))) 3342518 9699386 (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 4000 4600 4700 5200 5500 5800 6300 6300) :lvel (list 80 80 80 80 80 80 80 80) :loffset (list 0 0 0 0 0 0 0 0) :ldur (list 1000 1000 1000 1000 1000 1000 1000 1000) :lchan (list 1 1 1 1 1 1 1 1) :from-file t)) "x" nil (corrige (pairlis '(inport outport deltapict cmnpref staff fontsize approx) '(0 0 -196608 nil ggff 24 2))) t nil) (om-load-boxcall 'bastype "aux7" 't 'nil 19726637 1310743 4 "4" nil) (om-load-boxcall 'genfun "INTERPOLATION" 'interpolation '((om-load-inputfun 'input-funbox "a number" "BEGIN" 0) (om-load-inputfun 'input-funbox "a number" "END" 1) (om-load-inputfun 'input-funbox "an integer" "SAMPLES" 5) (om-load-inputfun 'input-funbox "a number in [0.0 2.0]" "CURVE" 1.0)) 15859906 3473560 nil nil nil 1) (om-load-boxwithed 'box-with-win "OMLOOP1" 'omloop '((om-load-inputfun 'input-funbox "aditional input" "OPLIST" nil) (om-load-inputfun 'input-funbox "aditional input" "OPLIST" nil)) 21299468 3473449 nil nil (list (om-load-seqbox "eachTime" 'loopdo '((om-load-inputfun 'input-funbox "patch" "PATCH" nil)) 24445073 3473461 nil nil 0) (om-load-seqbox "finally" 'finaldo '((om-load-inputfun 'input-funbox "patch" "PATCH" nil)) 24445135 3473455 nil nil 0) (om-load-boxcall 'genfun "collect" 'listing '((om-load-inputfun 'input-funbox "no documentation" "WHAT?" nil)) 18415777 3473455 nil nil nil 3) (om-load-boxcall 'genfun "REPEAT-N" 'repeat-n '((om-load-inputfun 'input-funbox "patch" "SELF" nil) (om-load-inputfun 'input-funbox "times" "NUM" 5)) 14352513 3473524 nil nil nil 1) (om-load-boxcall 'genfun "NTH-RANDOM" 'nth-random '((om-load-inputfun 'input-funbox "the list" "LIST" nil)) 9764963 3473473 nil nil nil 1) (om-load-boxcall 'genfun "inlist" 'listloop '((om-load-inputfun 'input-funbox "list to iterate" "LIST" nil)) 5898347 3473461 nil nil nil 1) (om-load-boxin "input0" 0 1900659 "no documentation" nil nil nil) (om-load-boxin "input1" 1 2031795 "no documentation" "n-samples" nil nil)) '((2 0 0 0 nil 0) (2 1 1 0 nil 0) (3 0 2 0 nil 0) (4 0 3 0 nil 0) (7 0 3 1 nil 0) (5 0 4 0 nil 0) (6 0 5 0 nil 0)) 1 nil) (om-load-boxcall 'genfun "FLAT" 'flat '((om-load-inputfun 'input-funbox "one list" "LST" nil)) 24969488 3473437 nil nil nil 1) (om-load-boxcall 'bastype "aux11" 't 'nil 34799892 1310761 (list 0 75) "(0 75)" nil) (om-load-boxcomment "comment" 1310740 '"A" nil 17433049 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcall 'bastype "aux6" 't 'nil 14811718 1310731 2 "2" nil) (om-load-boxcall 'bastype "aux5" 't 'nil 14811691 1310731 1 "1" nil) (om-load-boxcall 'bastype "aux4" 't 'nil 14811665 1310731 1 "1" nil) (om-load-boxcall 'bastype "aux3" 't 'nil 14811638 1310735 56 "56" nil) (om-load-boxcall 'genfun "X-APPEND" 'x-append '((om-load-inputfun 'input-funbox "first list" "L1?" nil) (om-load-inputfun 'input-funbox "second list" "L2?" nil)) 20840969 nil nil nil nil 1) (om-load-boxcall 'genfun "PGMOUT1" 'pgmout '((om-load-inputfun 'input-funbox "program number" "PROG" 1) (om-load-inputfun 'input-funbox "channel" "CHANS" 2)) 16515624 nil nil nil nil 1) (om-load-boxcall 'genfun "PGMOUT" 'pgmout '((om-load-inputfun 'input-funbox "program number" "PROG" 56) (om-load-inputfun 'input-funbox "channel" "CHANS" 1)) 16515573 nil nil nil nil 1) (om-load-boxcomment "comment11" 1376272 '"D" nil 19857408 nil 0 '("Geneva" 10 :srcor))) '((17 0 0 1 nil 0) (18 0 0 2 nil 0) (1 0 0 6 nil 0) (4 0 0 7 nil 0) (17 0 1 0 nil 0) (15 0 3 1 nil 0) (13 1 15 0 nil 0) (12 1 15 1 nil 0) (11 0 15 2 nil 0) (5 0 15 3 nil 0) (15 0 16 0 nil 0) (14 0 16 1 nil 0) (16 0 17 0 nil 0) (26 0 24 0 nil 0) (25 0 24 1 nil 0) (21 0 25 0 nil 0) (20 0 25 1 nil 0) (23 0 26 0 nil 0) (22 0 26 1 nil 0)) 'nil 3.7 '(nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)))