(in-package :om)(load-lib-for '("Esquisse"))(setf *om-current-persistent* (om-load-patch "rozpatchabs1" '((om-load-boxcall 'abstraction "mypatch1" (om-load-patch-abs "subtract common elements" '((om-load-boxcall 'bastype "aux1" 't 'nil 8716395 1310753 1 "1" nil) (om-load-boxcall 'genfun "FIRST-N" 'first-n '((om-load-inputfun 'input-funbox "one list" "LIST" nil) (om-load-inputfun 'input-funbox "number of elements" "N" 1)) 11534414 nil nil nil nil 1) (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)) 15663209 nil nil nil nil 1) (om-load-boxcall 'bastype "aux" 't 'nil 2097405 1376287 1 "1" nil) (om-load-boxcall 'genfun "ROTATE" 'rotate '((om-load-inputfun 'input-funbox "the list" "LIST" nil) (om-load-inputfun 'input-funbox "nth" "NTH" 1)) 4587742 nil nil nil nil 1) (om-load-boxwithed 'box-with-win "OMLOOP" 'omloop '((om-load-inputfun 'input-funbox "aditional input" "OPLIST" nil) (om-load-inputfun 'input-funbox "aditional input" "OPLIST" nil)) 10748067 nil nil nil (list (om-load-boxcall 'lispfun "LENGTH1" 'length '((om-load-inputfun 'input-funbox "SEQUENCE" "SEQUENCE" nil)) 8781936 nil nil nil nil 1) (om-load-boxcall 'genfun "OM-1" 'om- '((om-load-inputfun 'input-funbox "first input" "SELF" 0) (om-load-inputfun 'input-funbox "second input" "NUM" 1)) 13107313 nil nil nil nil 1) (om-load-boxcall 'bastype "aux4" 't 'nil 11534479 1310744 2 "2
" nil) (om-load-boxcall 'bastype "aux" 't 'nil 14352422 1310747 0 "0" nil) (om-load-boxcall 'genfun "for" 'forloop '((om-load-inputfun 'input-funbox "low val" "FROM" 0) (om-load-inputfun 'input-funbox "high val" "TO" 10)) 16515127 nil nil nil nil 1) (om-load-boxcall 'genfun "collect" 'listing '((om-load-inputfun 'input-funbox "no documentation" "WHAT?" nil)) 16318719 nil nil nil nil 3) (om-load-boxcall 'genfun "X-DIFF1" 'x-diff '((om-load-inputfun 'input-funbox "first list" "L1?" nil) (om-load-inputfun 'input-funbox "second list" "L2?" nil)) 12648707 nil nil nil nil 1) (om-load-boxcall 'genfun "inlist1" 'listloop '((om-load-inputfun 'input-funbox "list to iterate" "LIST" nil)) 7799001 nil nil nil nil 1) (om-load-boxcall 'genfun "inlist" 'listloop '((om-load-inputfun 'input-funbox "list to iterate" "LIST" nil)) 7406006 nil nil nil nil 1) (om-load-boxin "input1" 1 2752923 "no documentation" "rotated chord-seq" nil nil) (om-load-boxin "input0" 0 2818214 "no documentation" "original chord-seq" nil nil) (om-load-seqbox "finally" 'finaldo '((om-load-inputfun 'input-funbox "patch" "PATCH" nil)) 22413657 nil nil nil 0) (om-load-seqbox "eachTime" 'loopdo '((om-load-inputfun 'input-funbox "patch" "PATCH" nil)) 21889217 nil nil nil 0)) '((10 0 0 0 nil 0) (0 0 1 0 nil 0) (2 0 1 1 nil 0) (3 0 4 0 nil 0) (1 0 4 1 nil 0) (6 0 5 0 nil 0) (8 0 6 0 nil 0) (7 0 6 1 nil 0) (10 0 7 0 nil 0) (9 0 8 0 nil 0) (5 1 11 0 nil 0) (5 0 12 0 nil 0)) 1 nil) (om-load-boxout "output" 0 20316281 '((om-load-inputfun 'input-funbox "out" "out" nil)) nil nil) (om-load-boxin "input" 0 110 "no documentation" "list of midicents" nil nil)) '((7 0 1 0 nil 0) (0 0 1 1 nil 0) (1 0 2 0 nil 0) (5 0 2 1 nil 0) (7 0 4 0 nil 0) (3 0 4 1 nil 0) (7 0 5 0 nil 0) (4 0 5 1 nil 0) (2 0 6 0 nil 0)) 3.7) '((om-load-inputfun 'input-funbox "no documentation" "input" nil)) 16121938 nil nil nil "subtract common elements") (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)) 11075679 3276880 (let ((newobj (when (find-class 'chord-seq nil) (make-instance 'chord-seq :lmidic '((3600 4000 5000 1275) (5000 1275 3600 5775 4325 4000 5650 3075 4800 5200 6200 2475) (5000 1275 5775 4325 3600 6300 5375 5650 3075 6200 2475 4800 6650 4600 4000 6100 4550 5200 6550 2325 5500 5900 6925 3175) (5000 1275 5775 4325 6300 5375 3600 6725 6025 5650 3075 6200 2475 6650 4600 4800 6975 5525 6100 4550 6550 2325 6925 3175 5500 7200 4825 4000 6475 5350 5200 6850 4275 5900 7150 975 6000 6400 7400 3675) (5000 1275 5775 4325 6300 5375 6725 6025 3600 7050 5650 3075 6200 2475 6650 4600 6975 5525 4800 7275 6125 6100 4550 6550 2325 6925 3175 7200 4825 5500 7450 5675 6475 5350 6850 4275 7150 975 7400 3675 6000 7650 5050 4000 5875 5200 7100 5175 5900 7350 3950 6400 7600 6375 6775 7800 4050) (5000 1275 5775 4325 5375 6725 6025 7050 3600 7325 5650 3075 6200 2475 6650 4600 6975 5525 7275 6125 4800 7500 6575 6100 4550 6550 2325 6925 3175 7200 4825 7450 5675 5500 7675 6225 6475 5350 6850 4275 7150 975 7400 3675 7650 5050 6000 7850 5800 5875 5175 7350 3950 7600 7800 4050 6375 7975 5225 4000 7025 6300 5200 7300 5750 5900 7550 4975 6400 7750 3525 6775 7950 1500 6700 7100 8125 4375) (5000 1275 5775 4325 5375 6725 6025 7050 7325 3600 5650 3075 2475 4600 5525 7275 6125 6575 4800 6100 4550 6550 2325 6925 3175 7200 4825 7450 5675 7675 6225 5500 7875 6650 6475 5350 6850 4275 7150 975 7400 3675 7650 5050 7850 5800 6000 8025 6325 5875 5175 7350 3950 7600 7800 4050 7975 5225 6375 8150 5925 7025 6300 7300 5750 7550 4975 7750 3525 7950 1500 8125 4375 6700 8275 5400 4000 7250 6625 5200 7500 6200 5900 7725 5625 6400 7900 4750 6775 8075 2975 7100 8225 2600 6975 7375 8375 4625) (5000 1275 5775 4325 5375 7050 7325 3600 7775 7425 5650 3075 2475 4600 5525 7275 6125 6575 4800 7925 7225 4550 2325 6925 3175 4825 5675 6225 6650 5500 7000 6475 5350 6850 4275 7150 975 7400 3675 7650 5050 7850 5800 8025 6325 6000 8175 6725 5875 5175 7350 3950 7800 4050 7975 5225 8150 5925 6375 8300 6425 7025 6300 7300 5750 7550 4975 7750 3525 7950 1500 8125 4375 8275 5400 6700 8400 6025 7250 6625 7500 6200 7725 5625 7900 4750 8075 2975 8225 2600 8375 4625 6975 8500 5550 4000 7450 6900 5200 7675 6550 5900 7875 6100 6400 8050 5475 6775 8200 4525 7100 8350 2175 7375 8475 3250 7200 7600 8600 4875) (5000 1275 5775 4325 5375 7325 7775 7425 3600 5650 3075 2475 4600 5525 6125 6575 7925 7225 4800 7475 4550 2325 6925 3175 4825 5675 6225 6650 7000 5500 7275 6475 5350 6850 4275 975 3675 7650 5050 7850 5800 8025 6325 6725 6000 7050 5875 5175 7350 3950 4050 7975 5225 8150 5925 8300 6425 6375 8425 6800 7025 6300 7300 5750 7550 4975 7750 3525 7950 1500 8125 4375 8275 5400 8400 6025 6700 8550 6500 7250 6625 7500 6200 7725 5625 7900 4750 8075 2975 8225 2600 8375 4625 8500 5550 6975 8625 6150 7450 6900 7675 6550 7875 6100 8050 5475 8200 4525 8350 2175 8475 3250 8600 4875 7200 8725 5700 4000 7625 7150 5200 7825 6825 5900 8000 6450 6400 8175 5975 6775 8325 5325 7100 8450 4225 7375 8575 675 7600 8700 3725 7400 7800 8825 5075) (5000 1275 5775 4325 5375 7775 7425 3600 5650 3075 2475 4600 5525 6125 7925 7225 7475 4800 8250 4550 2325 6925 3175 4825 5675 6225 6650 7000 7275 5500 7525 6475 5350 6850 4275 975 3675 7650 5050 7850 5800 8025 6325 6725 7050 6000 7325 5175 3950 4050 5225 5925 6425 6800 7025 6300 7300 5750 7550 4975 7750 3525 7950 1500 8125 4375 8275 5400 8400 6025 6500 6700 8650 6875 7250 6625 7500 6200 7725 5625 7900 4750 8075 2975 8225 2600 8375 4625 8500 5550 8625 6150 6975 8750 6575 7450 6900 7675 6550 7875 6100 8050 5475 8200 4525 8350 2175 8475 3250 8600 4875 8725 5700 7200 8850 6250 7625 7150 7825 6825 8000 6450 8175 5975 8325 5325 8450 4225 8575 675 8700 3725 8825 5075 7400 8925 5825 4000 7350 5200 7075 5900 8150 6400 8300 6375 6775 8425 5875 7100 8550 5150 7375 8675 3900 7600 8800 7800 8900 4100 7575 7975 9000 5250) (5000 1275 5775 4325 5375 7775 7425 3600 5650 3075 2475 4600 5525 6125 7925 7225 7475 8250 4800 4550 2325 3175 4825 5675 6225 7000 7275 7525 5500 6475 5350 6850 4275 975 3675 7650 5050 7850 5800 8025 6325 6725 7050 7325 6000 5175 3950 4050 5225 5925 6425 6800 6300 4975 3525 1500 8125 4375 5400 6025 6500 6875 7175 7250 6625 7500 6200 7725 5625 7900 4750 8075 2975 8225 2600 8375 4625 8500 5550 8625 6150 8750 6575 6975 6925 7450 6900 7675 6550 7875 6100 8050 5475 8200 4525 8350 2175 8475 3250 8600 4875 8725 5700 8850 6250 7200 8950 6650 7625 7150 7825 6825 8000 6450 8175 5975 8325 5325 8450 4225 8575 675 8700 3725 8825 5075 8925 5825 7400 9025 6350 7350 7075 8300 6375 8425 5875 8550 5150 8675 3900 8800 8900 4100 9000 5250 7575 9100 5950 4000 7950 7550 5200 8100 7300 5900 8275 7025 6400 8400 6700 6775 8525 6275 7100 8650 5750 7375 8775 4950 7600 8875 3475 7800 8975 1700 7975 9075 4400 7750 8150 9175 5425) (5000 1275 5775 4325 5375 3600 5650 3075 2475 4600 5525 6125 7475 8250 4800 4550 2325 3175 4825 5675 6225 7275 7525 5500 7925 6475 5350 6850 4275 975 3675 7650 5050 7850 5800 8025 6325 7050 7325 6000 7775 5175 3950 4050 5225 5925 6800 6300 4975 3525 1500 8125 4375 5400 6025 6500 6875 7175 7425 6200 7725 5625 4750 2975 2600 4625 5550 6150 6575 6925 6975 7225 7450 6900 7675 6550 7875 6100 8050 5475 8200 4525 8350 2175 8475 3250 8600 4875 8725 5700 6250 6650 7200 7000 7625 7150 7825 6825 8000 6450 8175 5975 8325 5325 8450 4225 8575 675 8700 3725 8825 5075 8925 5825 9025 6350 7400 6725 7350 7075 6375 8425 5875 8550 5150 8675 3900 8800 8900 4100 9000 5250 9100 5950 7575 6425 7950 7550 8100 7300 8275 7025 8400 6700 8525 6275 8650 5750 8775 4950 8875 3475 8975 1700 9075 4400 9175 5425 7750 9250 6050 4000 8075 7700 5200 8225 7500 5900 8375 7250 6400 8500 6950 6775 8625 6625 7100 8750 6175 7375 8850 5600 7600 8950 4725 7800 9050 2875 7975 9150 2700 8150 9225 4675 7900 8300 9325 5575)) :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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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) nil nil (corrige (pairlis '(inport outport deltapict cmnpref staff fontsize approx) '(0 1 0 (1 15 2 2 0) ggff 24 8))) nil nil) (om-load-boxwithed 'box-with-win "OMLOOP" 'omloop '((om-load-inputfun 'input-funbox "aditional input" "OPLIST" nil) (om-load-inputfun 'input-funbox "aditional input" "OPLIST" nil) (om-load-inputfun 'input-funbox "aditional input" "OPLIST" nil)) 7143547 nil nil nil (list (om-load-boxcall 'genfun "REMOVE-DUP" 'remove-dup '((om-load-inputfun 'input-funbox " a list" "LIST" (list 1 2 3 4)) (om-load-inputfun 'input-funbox "a function" "TEST" 'eq) (om-load-inputfun 'input-funbox "an integer" "DEPTH" 1)) 27852883 nil nil nil nil 1) (om-load-boxcall 'bastype "aux7" 't 'nil 15270183 1310731 1 "1" nil) (om-load-boxcall 'bastype "aux4" 't 'nil 15138991 1310731 1 "1" nil) (om-load-boxcall 'genfun "OM*" 'om* '((om-load-inputfun 'input-funbox "first input" "SELF" 0) (om-load-inputfun 'input-funbox "second input" "NUM" 0)) 30277795 nil nil nil nil 1) (om-load-boxcall 'genfun "OM-ROUND" 'om-round '((om-load-inputfun 'input-funbox "number or tree" "SELF" 1)) 24051794 nil nil nil nil 1) (om-load-boxcall 'bastype "aux3" 't 'nil 23265456 1310743 25 "25" nil) (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)) 24772763 nil nil nil nil 1) (om-load-boxcall 'genfun "inlist" 'listloop '((om-load-inputfun 'input-funbox "list to iterate" "LIST" nil)) 12320982 nil nil nil nil 1) (om-load-boxcall 'genfun "HARM-SERIES1" 'harm-series '((om-load-inputfun 'input-funbox "Fundamental" "FUND" 3600) (om-load-inputfun 'input-funbox "Numerator" "NUMER" 1) (om-load-inputfun 'input-funbox "Denominator" "DENOM" 1) (om-load-inputfun 'input-funbox "Begin" "BEGIN" 2) (om-load-inputfun 'input-funbox "End" "END" 7) (om-load-inputfunmenu 'input-funmenu "Unit" "UNIT" 1 '(("Midics" 1) ("Freqs" 2))) (om-load-inputfunmenu 'input-funmenu "Type" "TYPE" 1 '(("Chord" 1) ("ChordSeq" 2)))) 17236231 nil nil nil nil 1) (om-load-boxcall 'genfun "HARM-SERIES" 'harm-series '((om-load-inputfun 'input-funbox "Fundamental" "FUND" 3600) (om-load-inputfun 'input-funbox "Numerator" "NUMER" 1) (om-load-inputfun 'input-funbox "Denominator" "DENOM" 1) (om-load-inputfun 'input-funbox "Begin" "BEGIN" 2) (om-load-inputfun 'input-funbox "End" "END" 7) (om-load-inputfunmenu 'input-funmenu "Unit" "UNIT" 1 '(("Midics" 1) ("Freqs" 2))) (om-load-inputfunmenu 'input-funmenu "Type" "TYPE" 1 '(("Chord" 1) ("ChordSeq" 2)))) 17105039 nil nil nil nil 1) (om-load-boxcall 'bastype "aux6" 't 'nil 6553891 1310731 1 "1" nil) (om-load-boxcall 'bastype "aux5" 't 'nil 5963994 1310731 1 "1" nil) (om-load-boxcall 'genfun "collect" 'listing '((om-load-inputfun 'input-funbox "no documentation" "WHAT?" nil)) 32637114 nil nil nil nil 3) (om-load-boxcall 'genfun "RING-MOD" 'ring-mod '((om-load-inputfun 'input-funbox "Chord" "CH1" 6000) (om-load-inputfun 'input-funbox "Chord" "CH2" 6200) (om-load-inputfunmenu 'input-funmenu "Unit" "UNIT" 'midic '(("Midics" 'midic) ("Freqs" 'freq))) (om-load-inputfunmenu 'input-funmenu "Mode" "TYPE" 'chord '(("Chord" 'chord) ("ChordSeq" 'chordseq)))) 21692636 nil nil nil nil 1) (om-load-boxin "input2" 2 1704163 "no documentation" "# of partials" nil nil) (om-load-boxcall 'genfun "ARITHM-SER" 'arithm-ser '((om-load-inputfun 'input-funbox "begin" "BEGIN" 1) (om-load-inputfun 'input-funbox "end " "END" 10) (om-load-inputfun 'input-funbox "step" "STEP" 1)) 7733467 nil nil nil nil 1) (om-load-boxin "input1" 1 1900695 "no documentation" "x" nil nil) (om-load-boxin "input0" 0 1769545 "no documentation" "w" nil nil) (om-load-seqbox "finally" 'finaldo '((om-load-inputfun 'input-funbox "patch" "PATCH" nil)) 35062004 nil nil nil 0) (om-load-seqbox "eachTime" 'loopdo '((om-load-inputfun 'input-funbox "patch" "PATCH" nil)) 35061859 nil nil nil 0)) '((4 0 0 0 nil 0) (0 0 3 0 nil 0) (5 0 3 1 nil 0) (6 0 4 0 nil 0) (13 0 6 0 nil 0) (5 0 6 1 nil 0) (15 0 7 0 nil 0) (16 0 8 0 nil 0) (1 0 8 3 nil 0) (7 0 8 4 nil 0) (17 0 9 0 nil 0) (2 0 9 3 nil 0) (7 0 9 4 nil 0) (3 0 12 0 nil 0) (9 0 13 0 nil 0) (8 0 13 1 nil 0) (11 0 15 0 nil 0) (14 0 15 1 nil 0) (10 0 15 2 nil 0) (12 1 18 0 nil 0) (12 0 19 0 nil 0)) 1 nil) (om-load-boxcall 'bastype "aux" 't 'nil 2490596 1310763 12 "12" nil) (om-load-editor-box "CHORD1" 'chord '((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" "LVEL" (list 100)) (om-load-inputfun 'input-funbox "no documentation" "LOFFSET" (list 0)) (om-load-inputfun 'input-funbox "no documentation" "LDUR" (list 1000)) (om-load-inputfun 'input-funbox "no documentation" "LCHAN" (list 1))) 2424975 3276880 (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 4000) :lvel (list 100) :loffset (list 0) :ldur (list 1000) :lchan (list 1) :from-file t)) "x" nil (corrige (pairlis '(approx fontsize staff cmnpref deltapict outport inport) '(2 24 gf (1 15 2 2 0) 0 0 0))) t nil) (om-load-editor-box "CHORD" 'chord '((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" "LVEL" (list 100)) (om-load-inputfun 'input-funbox "no documentation" "LOFFSET" (list 0)) (om-load-inputfun 'input-funbox "no documentation" "LDUR" (list 1000)) (om-load-inputfun 'input-funbox "no documentation" "LCHAN" (list 1))) 2293808 3276880 (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 3600) :lvel (list 100) :loffset (list 0) :ldur (list 1000) :lchan (list 1) :from-file t)) "x" nil (corrige (pairlis '(approx fontsize staff cmnpref deltapict outport inport) '(2 24 gf (1 15 2 2 0) 0 0 0))) t 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)) 22151277 3276880 (let ((newobj (when (find-class 'chord-seq nil) (make-instance 'chord-seq :lmidic '((3600 4000 5000 1275) (5775 4325 5650 3075 4800 5200 6200 2475) (6300 5375 6650 4600 6100 4550 6550 2325 5500 5900 6925 3175) (6725 6025 6975 5525 7200 4825 6475 5350 6850 4275 7150 975 6000 6400 7400 3675) (7050 7275 6125 7450 5675 7650 5050 5875 7100 5175 7350 3950 7600 6375 6775 7800 4050) (7325 7500 6575 7675 6225 7850 5800 7975 5225 7025 7300 5750 7550 4975 7750 3525 7950 1500 6700 8125 4375) (7875 8025 6325 8150 5925 8275 5400 7250 6625 7725 5625 7900 4750 8075 2975 8225 2600 7375 8375 4625) (7775 7425 7925 7225 7000 8175 8300 6425 8400 8500 5550 6900 8050 5475 8200 4525 8350 2175 8475 3250 8600 4875) (7475 8425 6800 8550 6500 8625 6150 8725 5700 7625 7825 6825 8000 6450 5975 8325 5325 8450 4225 8575 675 8700 3725 8825 5075) (8250 7525 8650 6875 8750 8850 6250 8925 5825 7075 5150 8675 3900 8800 8900 4100 7575 9000 5250) (7175 8950 9025 6350 9100 5950 8100 8525 6275 8775 4950 8875 3475 8975 1700 9075 4400 9175 5425) (9250 6050 7700 6950 6175 5600 4725 9050 2875 9150 2700 9225 4675 9325 5575)) :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 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 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 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 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 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 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 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 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 1 0 (1 15 2 2 0) ggff 24 8))) nil nil)) '((1 1 0 0 nil 0) (2 0 1 1 nil 0) (5 1 2 0 nil 0) (4 1 2 1 nil 0) (3 0 2 2 nil 0) (0 0 6 1 nil 0)) 'nil 3.7 '(nil nil nil nil nil nil nil)))