(in-package :om)(load-lib-for 'nil)(setf *om-current-persistent* (om-load-patch "second assignment" '((om-load-editor-box "NOTE1" 'note '((om-load-inputfun 'input-funbox "objs" "SELF" nil) (om-load-inputfun 'input-funbox "no documentation" "MIDIC" 6000) (om-load-inputfun 'input-funbox "no documentation" "VEL" 80) (om-load-inputfun 'input-funbox "no documentation" "DUR" 1000) (om-load-inputfun 'input-funbox "no documentation" "CHAN" 1)) 15466560 3276870 (if (find-class 'note nil) (make-instance 'note :midic 4800 :vel 80 :dur 1000 :chan 1 :from-file t)) 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-boxcall 'bastype "integer" 'integer 'nil 8913018 1310760 1200 "1200" 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)) 10551383 nil nil nil nil 1) (om-load-boxcall 'genfun "PGMOUT2" 'pgmout '((om-load-inputfun 'input-funbox "program number" "PROG" 56) (om-load-inputfun 'input-funbox "channel" "CHANS" 1)) 5374403 nil nil nil "pgmout" 1) (om-load-boxcall 'bastype "aux311" 't 'nil 1573311 1310735 1 "1" nil) (om-load-boxcall 'bastype "aux411" 't 'nil 1573338 1310731 1 "1" nil) (om-load-boxcomment "comment11" 1441810 '"B" nil 3998254 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcall 'genfun "PITCHWHEEL" 'pitchwheel '((om-load-inputfun 'input-funbox "wheel value" "VALUES" 0) (om-load-inputfun 'input-funbox "channel" "CHANS" 1)) 3342936 nil nil nil nil 1) (om-load-boxcall 'bastype "aux31" 't 'nil 918041 1310829 (list 0 1024 2048 3072) "(0 1024 2048 3072)" nil) (om-load-boxcall 'bastype "aux41" 't 'nil 852619 1310777 (list 1 2 3 4) "(1 2 3 4)" nil) (om-load-boxcomment "comment1111111" 1376272 '"F" nil 34144393 nil 0 '("Geneva" 10 :srcor)) (om-load-editor-box "CHORD-SEQ12" '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)) 30277655 4390981 (let ((newobj (when (find-class 'chord-seq nil) (make-instance 'chord-seq :lmidic '((4800 4800 4800 4800 4800 4800 4800 4800 4800 4800 4800 4800 4800 4800 4800 4800) (4690.909090909091 4800.0 4863.818181818182 4909.090909090909 4944.181818181818 4972.909090909091 4997.090909090909 5018.181818181818 5036.727272727273 5053.272727272727 5068.363636363636 5082.0 5094.545454545455 5106.181818181818 5117.090909090909 5127.272727272727) (4581.818181818182 4800.0 4927.636363636364 5018.181818181818 5088.363636363636 5145.818181818182 5194.181818181818 5236.363636363636 5273.454545454546 5306.545454545455 5336.727272727273 5364.0 5389.090909090909 5412.363636363636 5434.181818181818 5454.545454545455) (4472.727272727273 4800.0 4991.454545454545 5127.272727272727 5232.545454545454 5318.727272727273 5391.272727272727 5454.545454545454 5510.181818181818 5559.818181818182 5605.090909090909 5646.0 5683.636363636364 5718.545454545454 5751.272727272727 5781.818181818182) (4363.636363636364 4800.0 5055.272727272727 5236.363636363636 5376.727272727273 5491.636363636364 5588.363636363636 5672.727272727273 5746.909090909091 5813.090909090909 5873.454545454546 5928.0 5978.181818181818 6024.727272727273 6068.363636363636 6109.090909090909) (4254.545454545455 4800.0 5119.090909090909 5345.454545454545 5520.909090909091 5664.545454545454 5785.454545454545 5890.909090909091 5983.636363636364 6066.363636363636 6141.818181818182 6210.0 6272.727272727273 6330.909090909091 6385.454545454546 6436.363636363636) (4145.454545454546 4800.0 5182.909090909091 5454.545454545454 5665.090909090909 5837.454545454545 5982.545454545454 6109.090909090909 6220.363636363636 6319.636363636364 6410.181818181818 6492.0 6567.272727272727 6637.090909090909 6702.545454545454 6763.636363636364) (4036.3636363636365 4800.0 5246.727272727273 5563.636363636364 5809.272727272727 6010.363636363636 6179.636363636364 6327.272727272727 6457.090909090909 6572.909090909091 6678.545454545454 6774.0 6861.818181818182 6943.272727272727 7019.636363636364 7090.909090909091) (3927.272727272727 4800.0 5310.545454545455 5672.727272727273 5953.454545454546 6183.272727272727 6376.727272727273 6545.454545454546 6693.818181818182 6826.181818181818 6946.909090909091 7056.0 7156.363636363636 7249.454545454546 7336.727272727273 7418.181818181818) (3818.181818181818 4800.0 5374.363636363636 5781.818181818182 6097.636363636364 6356.181818181818 6573.818181818182 6763.636363636364 6930.545454545454 7079.454545454546 7215.272727272728 7338.0 7450.909090909091 7555.636363636364 7653.818181818182 7745.454545454546) (3709.090909090909 4800.0 5438.181818181818 5890.909090909091 6241.818181818182 6529.090909090909 6770.909090909091 6981.818181818182 7167.272727272727 7332.727272727272 7483.636363636364 7620.0 7745.454545454546 7861.818181818182 7970.909090909091 8072.727272727272) (3600.0 4800.0 5502.0 6000.0 6386.0 6702.0 6968.0 7200.0 7404.0 7586.0 7752.0 7902.0 8040.0 8168.0 8288.0 8400.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 1000 1000 1000 1000 1000 1000 1000 1000) (1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000) (1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000) (1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000) (1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000) (1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000) (1000 1000 1000 1000 1000 1000 1000 1000 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)) :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)) :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)) :legato 0)))) newobj) nil nil (corrige (pairlis '(inport outport deltapict cmnpref staff fontsize approx) '(0 0 -1900544 (1 15 2 2 0) ggff 24 8))) nil nil) (om-load-boxcall 'bastype "aux4111" 't 'nil 34472225 1441814 100 "100" nil) (om-load-boxcall 'bastype "aux2111" 't 'nil 21954755 1310743 1.0 "1.0" nil) (om-load-boxcomment "comment111121" 1376272 '"E" nil 30408837 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcomment "comment11121" 1376272 '"D" nil 29425876 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcomment "comment1121" 1376272 '"C" nil 25493761 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcall 'bastype "aux3111" 't 'nil 21954725 1310743 12 "12" nil) (om-load-boxcall 'bastype "aux51" 't 'nil 27984063 1310743 16 "16" nil) (om-load-boxcall 'genfun "INTERPOLATION11" '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)) 24051797 3473560 nil nil nil 1) (om-load-boxwithed 'box-with-win "OMLOOP11" 'omloop '((om-load-inputfun 'input-funbox "aditional input" "OPLIST" nil) (om-load-inputfun 'input-funbox "aditional input" "OPLIST" nil)) 29491359 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 "FLAT11" 'flat '((om-load-inputfun 'input-funbox "one list" "LST" nil)) 33161379 3473437 nil nil nil 1) (om-load-boxcall 'bastype "aux1111" 't 'nil 35193031 1310761 (list 0 75) "(0 75)" nil) (om-load-editor-box "CHORD-SEQ111" 'chord-seq '((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 "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" 100)) 36438169 8913073 (let ((newobj (when (find-class 'chord-seq nil) (make-instance 'chord-seq :lmidic '((4800) (4800) (4800) (4800) (4800) (4800) (4800) (4800) (4800) (4800) (4800) (4800) (4800) (4800) (4800) (4800) (5127.272727272727) (4690.909090909091) (4972.909090909091) (5106.181818181818) (5117.090909090909) (5127.272727272727) (5117.090909090909) (5127.272727272727) (5053.272727272727) (5127.272727272727) (5082.0) (4690.909090909091) (4800.0) (5094.545454545455) (5094.545454545455) (5094.545454545455) (5306.545454545455) (5145.818181818182) (5412.363636363636) (4581.818181818182) (5145.818181818182) (5454.545454545455) (5336.727272727273) (5236.363636363636) (5336.727272727273) (5145.818181818182) (5236.363636363636) (5336.727272727273) (5336.727272727273) (5434.181818181818) (4927.636363636364) (5145.818181818182) (5718.545454545454) (5232.545454545454) (5683.636363636364) (5646.0) (5646.0) (5127.272727272727) (5232.545454545454) (5646.0) (5781.818181818182) (5232.545454545454) (5391.272727272727) (5232.545454545454) (5232.545454545454) (5232.545454545454) (5510.181818181818) (5781.818181818182) (5236.363636363636) (5376.727272727273) (5055.272727272727) (5928.0) (6068.363636363636) (5928.0) (6109.090909090909) (5978.181818181818) (5491.636363636364) (5236.363636363636) (4363.636363636364) (5873.454545454546) (6109.090909090909) (6068.363636363636) (5928.0) (6068.363636363636) (5983.636363636364) (6385.454545454546) (5983.636363636364) (5345.454545454545) (6436.363636363636) (5890.909090909091) (6066.363636363636) (6066.363636363636) (5664.545454545454) (5983.636363636364) (6210.0) (5890.909090909091) (5345.454545454545) (6385.454545454546) (5890.909090909091) (5890.909090909091) (6637.090909090909) (5665.090909090909) (5665.090909090909) (4800.0) (5182.909090909091) (4145.454545454546) (5982.545454545454) (6637.090909090909) (6763.636363636364) (6567.272727272727) (6319.636363636364) (6702.545454545454) (5982.545454545454) (5665.090909090909) (4145.454545454546) (5182.909090909091) (6457.090909090909) (6457.090909090909) (6327.272727272727) (6774.0) (6572.909090909091) (6774.0) (6572.909090909091) (6861.818181818182) (5563.636363636364) (6010.363636363636) (6774.0) (5563.636363636364) (6457.090909090909) (6774.0) (6774.0) (7090.909090909091) (5953.454545454546) (6376.727272727273) (5953.454545454546) (7336.727272727273) (3927.272727272727) (3927.272727272727) (7336.727272727273) (6693.818181818182) (6545.454545454546) (4800.0) (6545.454545454546) (6183.272727272727) (5953.454545454546) (3927.272727272727) (4800.0) (7336.727272727273) (4800.0) (6356.181818181818) (3818.181818181818) (6097.636363636364) (6097.636363636364) (7555.636363636364) (6097.636363636364) (6356.181818181818) (5374.363636363636) (6763.636363636364) (6356.181818181818) (3818.181818181818) (5374.363636363636) (3818.181818181818) (4800.0) (6930.545454545454) (6981.818181818182) (8072.727272727272) (4800.0) (7970.909090909091) (7483.636363636364) (7332.727272727272) (7970.909090909091) (8072.727272727272) (3709.090909090909) (3709.090909090909) (6241.818181818182) (7861.818181818182) (4800.0) (6981.818181818182) (7861.818181818182) (7332.727272727272) (7902.0) (7902.0) (6000.0) (6000.0) (7586.0) (7752.0) (6702.0) (7200.0) (7752.0) (6968.0) (7752.0) (7586.0) (5502.0) (6968.0) (3600.0) (7902.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 3675 3750 3825 3900 3975 4050 4125 4200 4275 4350 4425 4500 4575 4650 4725 4800 4875 4950 5025 5100 5175 5250 5325 5400 5475 5550 5625 5700 5775 5850 5925 6000 6075 6150 6225 6300 6375 6450 6525 6600 6675 6750 6825 6900 6975 7050 7125 7200 7275 7350 7425 7500 7575 7650 7725 7800 7875 7950 8025 8100 8175 8250 8325 8400 8475 8550 8625 8700 8775 8850 8925 9000 9075 9150 9225 9300 9375 9450 9525 9600 9675 9750 9825 9900 9975 10050 10125 10200 10275 10350 10425 10500 10575 10650 10725 10800 10875 10950 11025 11100 11175 11250 11325 11400 11475 11550 11625 11700 11775 11850 11925 12000 12075 12150 12225 12300 12375 12450 12525 12600 12675 12750 12825 12900 12975 13050 13125 13200 13275 13350 13425 13500 13575 13650 13725 13800 13875 13950 14025 14100 14175 14250 14325 14400) :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) (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) (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) (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) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (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)) :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)) :legato 100)))) newobj) nil nil (corrige (pairlis '(inport outport deltapict cmnpref staff fontsize approx) '(0 0 0 nil ggff 24 8))) t nil) (om-load-boxcall 'abstraction "harmonic series" (om-load-patch-abs "harmonic series" '((om-load-boxcomment "comment" 1376277 '"F" nil 24510634 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcomment "comment" 1376277 '"E" nil 10879243 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcomment "comment" 1376277 '"D" nil 11337765 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcomment "comment" 1441813 '"C" nil 2293778 nil 0 '("Geneva" 10 :srcor)) (om-load-boxout "output" 0 29491324 '((om-load-inputfun 'input-funbox "out" "out" nil)) nil nil) (om-load-boxin "input3" 3 2556171 "Step" "Step" 1 nil) (om-load-boxin "input2" 2 2556118 "Last desired harmonic" "End" 16 nil) (om-load-boxin "input1" 1 2556059 "Start" "Begin" 1 nil) (om-load-boxin "input" 0 2555950 "this is the 
fondamental" "fondamental" 3600 nil) (om-load-boxcall 'genfun "ARITHM-SER" 'arithm-ser '((om-load-inputfun 'input-funbox "begin" "BEGIN" 0) (om-load-inputfun 'input-funbox "end " "END" 10) (om-load-inputfun 'input-funbox "step" "STEP" 1)) 10092736 3473473 nil nil nil 1) (om-load-boxcall 'genfun "F->MC" 'f->mc '((om-load-inputfun 'input-funbox "freq" "FREQ" 440)) 24182912 2555939 nil nil nil 1) (om-load-boxcall 'genfun "MC->F" 'mc->f '((om-load-inputfun 'input-funbox "midic" "MIDICS?" 6000)) 11010110 2555939 nil nil nil 1) (om-load-boxcall 'genfun "OM*" 'om* '((om-load-inputfun 'input-funbox "first input" "SELF" 0) (om-load-inputfun 'input-funbox "second input" "NUM" 0)) 19792008 2293784 nil nil nil 1)) '((10 0 4 0 nil 0) (7 0 9 0 nil 0) (6 0 9 1 nil 0) (5 0 9 2 nil 0) (12 0 10 0 nil 0) (8 0 11 0 nil 0) (11 0 12 0 nil 0) (9 0 12 1 nil 0)) 3.7) '((om-load-inputfun 'input-funbox "this is the 
fondamental" "fondamental" nil) (om-load-inputfun 'input-funbox "Start" "Begin" 1) (om-load-inputfun 'input-funbox "Last desired harmonic" "End" 16) (om-load-inputfun 'input-funbox "Step" "Step" 1)) 7930043 3473503 nil nil "harmonic series") (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))) 12648633 8519733 (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 3600 4800 5502 6000 6386 6702 6968 7200 7404 7586 7752 7902 8040 8168 8288 8400) :lvel (list 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100) :loffset (list 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0) :ldur (list 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000) :lchan (list 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) :from-file t)) nil nil (corrige (pairlis '(inport outport cmnpref staff fontsize approx deltapict) '(0 0 nil ggff 24 8 0))) t nil) (om-load-boxcall 'bastype "aux1" 't 'nil 3997907 1310751 1 "1" nil) (om-load-boxcall 'bastype "aux2" 't 'nil 3997946 1310737 16 "16" nil) (om-load-boxcall 'bastype "aux3" 't 'nil 4063514 1310731 1 "1" nil) (om-load-boxcomment "comment2" 1572890 '"A" nil 3473522 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcomment "comment1" 1441818 '"B" nil 8913053 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcomment "comment" 1703959 '"G" nil 16711957 nil 0 '("Geneva" 10 :srcor)) (om-load-editor-box "NOTE" 'note '((om-load-inputfun 'input-funbox "objs" "SELF" nil) (om-load-inputfun 'input-funbox "MIDIC" "MIDIC" 6000) (om-load-inputfun 'input-funbox "VEL" "VEL" 80) (om-load-inputfun 'input-funbox "DUR" "DUR" 1000) (om-load-inputfun 'input-funbox "CHAN" "CHAN" 1)) 2359436 3735613 (if (find-class 'note nil) (make-instance 'note :midic 3600 :vel 80 :dur 1000 :chan 1 :from-file t)) "x" nil (corrige (pairlis '(approx fontsize staff cmnpref deltapict outport inport) '(2 24 ff (1 15 2 2 0) 0 0 0))) t nil) (om-load-boxcall 'bastype "aux4" 't 'nil 393364 1310749 3600 "3600" nil)) '((2 0 0 1 nil 0) (32 1 2 0 nil 0) (1 0 2 1 nil 0) (4 0 3 0 nil 0) (5 0 3 1 nil 0) (8 0 7 0 nil 0) (9 0 7 1 nil 0) (19 0 11 1 nil 0) (0 1 19 0 nil 0) (25 1 19 1 nil 0) (17 0 19 2 nil 0) (13 0 19 3 nil 0) (19 0 20 0 nil 0) (18 0 20 1 nil 0) (20 0 21 0 nil 0) (21 0 23 1 nil 0) (22 0 23 2 nil 0) (12 0 23 7 nil 0) (32 1 24 0 nil 0) (26 0 24 1 nil 0) (27 0 24 2 nil 0) (28 0 24 3 nil 0) (24 0 25 1 nil 0) (33 0 32 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 nil nil nil nil nil nil)))