(in-package :om)(load-lib-for 'nil)(setf *om-current-persistent* (om-load-patch "Ring Mod.2" '((om-load-boxcall 'bastype "aux1" 't 'nil 16974075 1310773 (list 0 250) "(0 250)" nil) (om-load-boxcall 'genfun "FLAT" 'flat '((om-load-inputfun 'input-funbox "one list" "LST" nil)) 6947037 nil nil nil nil 1) (om-load-boxcall 'genfun "OM-ABS" 'om-abs '((om-load-inputfun 'input-funbox "number or tree" "SELF" 1)) 11534549 nil nil nil nil 1) (om-load-boxcall 'genfun "F->MC" 'f->mc '((om-load-inputfun 'input-funbox "freq" "FREQ" 440)) 15335637 nil nil nil nil 1) (om-load-editor-box "CHORD-SEQ" '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)) 19071187 3276880 (let ((newobj (when (find-class 'chord-seq nil) (make-instance 'chord-seq :lmidic '((7190) (8250) (6552) (7934) (7438) (8390) (6116) (7752) (7654) (8518) (5534) (7548) (7846) (8638) (4648) (7316) (8020) (8750) (2736) (7050) (8178) (8854) (2764) (6734) (8322) (8954) (4656) (6346) (8456) (9046) (5540) (5848) (8580) (9136) (6120) (5142) (8694) (9220) (6556) (3936) (8802) (9300) (6902) (-4330) (8904) (9378) (7192) (3964) (9000) (9452) (7440) (5158) (9092) (9522) (7656) (5856) (9178) (9590) (7848) (6354) (9262) (9656) (8022) (6740)) :lonset '(0 250 500 750 1000 1250 1500 1750 2000 2250 2500 2750 3000 3250 3500 3750 4000 4250 4500 4750 5000 5250 5500 5750 6000 6250 6500 6750 7000 7250 7500 7750 8000 8250 8500 8750 9000 9250 9500 9750 10000 10250 10500 10750 11000 11250 11500 11750 12000 12250 12500 12750 13000 13250 13500 13750 14000 14250 14500 14750 15000 15250 15500 15750 16000) :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)) :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)) :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)) :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)) :legato 0)))) newobj) nil nil (corrige (pairlis '(inport outport deltapict cmnpref staff fontsize approx) '(1 1 0 (1 15 2 2 0) ggff 24 4))) t nil) (om-load-boxcall 'bastype "aux6" 't 'nil 1245412 1573000 (list 0 2048 4095 6142) "(0 2048 4095 6142)" nil) (om-load-boxcall 'genfun "PITCHWHEEL1" 'pitchwheel '((om-load-inputfun 'input-funbox "wheel value" "VALUES" 0) (om-load-inputfun 'input-funbox "channel" "CHANS" 1)) 3146061 nil nil nil "pitchwheel" 1) (om-load-boxcall 'bastype "aux5" 't 'nil 1376625 1310805 (list 1 2 3 4) "(1 2 3 4)" nil) (om-load-boxwithed 'box-with-win "OMLOOP1" 'omloop '((om-load-inputfun 'input-funbox "aditional input" "OPLIST" nil)) 19202065 nil nil nil (list (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)) 21168314 nil 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)) 15663193 nil 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)) 16056613 nil nil nil nil 1) (om-load-boxcall 'genfun "collect" 'listing '((om-load-inputfun 'input-funbox "no documentation" "WHAT?" nil)) 20251158 nil nil nil nil 3) (om-load-boxcall 'genfun "OM*1" 'om* '((om-load-inputfun 'input-funbox "first input" "SELF" 0) (om-load-inputfun 'input-funbox "second input" "NUM" 0)) 12386626 nil nil nil nil 1) (om-load-boxcall 'bastype "aux91" 't 'nil 3801463 1310731 1 "1" nil) (om-load-boxcall 'bastype "aux81" 't 'nil 3801447 1310737 2 "2" nil) (om-load-boxcall 'bastype "aux71" 't 'nil 3801431 1310731 1 "1" nil) (om-load-boxcall 'genfun "ARITHM-SER1" '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)) 5767499 nil nil nil nil 1) (om-load-editor-box "NOTE21" '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)) 4063474 3276870 (if (find-class 'note nil) (make-instance 'note :midic 6900 :vel 80 :dur 1000 :chan 1 :from-file t)) "x" nil (corrige (pairlis '(approx fontsize staff cmnpref deltapict outport inport) '(4 24 ggff (1 15 2 2 0) 0 1 1))) t nil) (om-load-boxcall 'genfun "MC->F11" 'mc->f '((om-load-inputfun 'input-funbox "midic" "MIDICS?" 6000)) 8847606 nil nil nil nil 1) (om-load-boxin "input0" 0 1376268 "no documentation" nil nil nil) (om-load-boxcall 'genfun "inlist" 'listloop '((om-load-inputfun 'input-funbox "list to iterate" "LIST" nil)) 6750215 nil nil nil nil 1) (om-load-seqbox "finally" 'finaldo '((om-load-inputfun 'input-funbox "patch" "PATCH" nil)) 24904251 nil nil nil 0) (om-load-seqbox "eachTime" 'loopdo '((om-load-inputfun 'input-funbox "patch" "PATCH" nil)) 25428333 nil nil nil 0)) '((1 0 0 0 nil 0) (2 0 0 1 nil 0) (12 0 1 0 nil 0) (4 0 1 1 nil 0) (12 0 2 0 nil 0) (4 0 2 1 nil 0) (0 0 3 0 nil 0) (10 0 4 0 nil 0) (8 0 4 1 nil 0) (7 0 8 0 nil 0) (6 0 8 1 nil 0) (5 0 8 2 nil 0) (9 1 10 0 nil 0) (11 0 12 0 nil 0) (3 1 13 0 nil 0) (3 0 14 0 nil 0)) 1 "omloop") (om-load-boxcall 'genfun "MC->F1" 'mc->f '((om-load-inputfun 'input-funbox "midic" "MIDICS?" 6000)) 13172756 nil nil nil nil 1) (om-load-editor-box "NOTE2" '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)) 4784152 3276870 (if (find-class 'note nil) (make-instance 'note :midic 3950 :vel 80 :dur 1000 :chan 1 :from-file t)) "x" nil (corrige (pairlis '(approx fontsize staff cmnpref deltapict outport inport) '(4 24 ggff (1 15 2 2 0) 0 1 1))) t 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)) 16318493 nil nil nil nil 1) (om-load-boxcall 'bastype "aux9" 't 'nil 8978541 1310731 1 "1" nil) (om-load-boxcall 'bastype "aux8" 't 'nil 8978523 1310737 16 "16" nil) (om-load-boxcall 'bastype "aux7" 't 'nil 9044045 1310731 1 "1" 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)) 11206721 nil nil nil nil 1) (om-load-boxcall 'bastype "aux4" 't 'nil 8520156 1310784 (list 1 2 3 4) "(1 2 3 4)" nil) (om-load-boxcall 'bastype "aux" 't 'nil 8913219 1310816 (list 1 1 1 1) "(1 1 1 1)" nil) (om-load-boxcall 'genfun "PGMOUT" 'pgmout '((om-load-inputfun 'input-funbox "program number" "PROG" 2) (om-load-inputfun 'input-funbox "channel" "CHANS" 1)) 10551674 nil nil nil "pgout" 1)) '((8 0 1 0 nil 0) (1 0 2 0 nil 0) (2 0 3 0 nil 0) (3 0 4 1 nil 0) (0 0 4 2 nil 0) (5 0 6 0 nil 0) (7 0 6 1 nil 0) (11 0 8 0 nil 0) (10 1 9 0 nil 0) (9 0 11 0 nil 0) (15 0 11 1 nil 0) (14 0 15 0 nil 0) (13 0 15 1 nil 0) (12 0 15 2 nil 0) (17 0 18 0 nil 0) (16 0 18 1 nil 0)) 'nil 3.5))