(in-package :om)(load-lib-for 'nil)(setf *om-current-persistent* (om-load-patch "patch roz1" '((om-load-editor-box "CHORD111" 'chord '((om-load-inputfun 'input-funbox "objs" "SELF" nil) (om-load-inputfun 'input-funbox "LMIDIC" "LMIDIC" (list 7500 7400 6900 6800 6700 6600 6400 7300 7200 7000 6500 5900)) (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))) 32047342 8781890 (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 6600 5400 4698 3814 3232 2448 2160 1696) :lvel (list 100 100 100 100 100 100 100 100) :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)) nil nil (corrige (pairlis '(approx fontsize staff cmnpref deltapict outport inport) '(2 24 g (1 15 2 2 0) 0 0 0))) t nil) (om-load-boxcall 'genfun "X->DX" 'x->dx '((om-load-inputfun 'input-funbox "a list of numbers" "SELF" 0)) 19333444 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" -1)) 24445215 2293830 nil nil nil 1) (om-load-boxcall 'bastype "aux11" 't 'nil 22544758 1310744 -1 "-1" nil) (om-load-boxcall 'genfun "DX->X" 'dx->x '((om-load-inputfun 'input-funbox "a number" "START" 0) (om-load-inputfun 'input-funbox "a list of numbers" "LIST" (list 1 1))) 27459858 nil nil nil nil 1) (om-load-boxcall 'lispfun "FIRST" 'first '((om-load-inputfun 'input-funbox "LIST" "LIST" nil)) 23462079 nil nil nil nil 1) (om-load-boxcomment "comment2" 1245201 '"I" nil 28311772 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcall 'genfun "MC->F1" 'mc->f '((om-load-inputfun 'input-funbox "midic" "MIDICS?" 6000)) 2687811 nil nil nil nil 1) (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))) 8585511 8519733 (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 6600 7800 8502 9386 9968 10752 11040 11504) :lvel (list 100 100 100 100 100 100 100 100) :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)) 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 6488220 1310751 17 "17" nil) (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)) 4390942 3735613 (if (find-class 'note nil) (make-instance 'note :midic 6600 :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 2424870 1310749 3600 "3600" nil) (om-load-boxcall 'abstraction "mypatch" (om-load-patch-abs "harmonic prime series" '((om-load-boxcall 'genfun "PRIME-SER" 'prime-ser '((om-load-inputfun 'input-funbox "max prime" "MAX" 100)) 11731154 nil nil nil nil 1) (om-load-boxin "input1" 1 6291678 "no documentation" nil nil nil) (om-load-boxin "input" 0 6422612 "no documentation" nil nil nil) (om-load-boxout "output" 0 29098128 '((om-load-inputfun 'input-funbox "out" "out" nil)) nil 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)) 21102748 2293784 nil nil nil 1) (om-load-boxcall 'genfun "MC->F" 'mc->f '((om-load-inputfun 'input-funbox "midic" "MIDICS?" 6000)) 12320850 2555939 nil nil nil 1) (om-load-boxcall 'genfun "F->MC" 'f->mc '((om-load-inputfun 'input-funbox "freq" "FREQ" 440)) 25493652 2555939 nil nil nil 1)) '((1 0 0 0 nil 0) (6 0 3 0 nil 0) (5 0 4 0 nil 0) (0 0 4 1 (15073518 18022638 18022572 21102764) 0) (2 0 5 0 nil 0) (4 0 6 0 nil 0)) 3.7) '((om-load-inputfun 'input-funbox "no documentation" "input" nil) (om-load-inputfun 'input-funbox "no documentation" "input1" nil)) 9961535 nil nil nil "harmonic prime series")) '((4 0 0 1 nil 0) (8 1 1 0 nil 0) (1 0 2 0 nil 0) (3 0 2 1 nil 0) (5 0 4 0 nil 0) (2 0 4 1 nil 0) (8 1 5 0 nil 0) (12 0 8 1 nil 0) (11 0 10 1 nil 0) (10 1 12 0 nil 0) (9 0 12 1 nil 0)) 'nil 3.7 '(nil nil nil nil nil nil nil nil nil nil nil nil nil)))