(in-package :om)(load-lib-for '("Esquisse"))(setf *om-current-persistent* (om-load-patch "spectral melodic sampling" '((om-load-boxcomment "comment3" 2949298 '"Pitch sequence from filter (nth-
random is center).  Melodic shape
determines rhythm." nil 28246603 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcomment "comment11" 1245309 '"evaluate" nil 37487061 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcall 'genfun "PERMUT-RANDOM" 'permut-random '((om-load-inputfun 'input-funbox "the list" "LIST" nil)) 15794518 nil nil nil nil 1) (om-load-boxcall 'bastype "aux4" 't 'nil 33423610 1310743 41 "41" nil) (om-load-boxcall 'bastype "aux2" 't 'nil 33423597 1310731 0 "0" nil) (om-load-boxcall 'bastype "aux3" 't 'nil 37617931 1441867 5000 "5000" 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))) 17170494 12255320 (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 7828 7752 8652 7586 8604 7404 7304 7498 8556 8698 7828 7670) :lvel (list 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) :ldur (list 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) :from-file t)) "&" nil (corrige (pairlis '(inport outport deltapict cmnpref staff fontsize approx) '(0 0 0 (1 15 2 2 0) ggff 24 4))) t nil) (om-load-editor-box "BPF" 'bpf '((om-load-inputfun 'input-funbox "objs" "SELF" nil) (om-load-inputfun 'input-funbox "no documentation" "X-POINTS" (list 0 10)) (om-load-inputfun 'input-funbox "no documentation" "Y-POINTS" (list 0 100)) (om-load-inputfun 'input-funbox "no documentation" "DECIMALS" 0)) 36634673 3997831 (let ((newobj (when (find-class 'bpf nil) (let ((newbpf (simple-bpf-from-list '(0 10 20 30 40 50 60 70 80 90 100 110) '(7828 7752 8652 7586 8604 7404 7304 7498 8556 8698 7828 7670) 'bpf 0))) (setf (bpfcolor newbpf) 0) newbpf)))) newobj) nil nil (corrige (pairlis 'nil 'nil)) t nil) (om-load-editor-box "VOICE" 'voice '((om-load-inputfun 'input-funbox "objs" "SELF" nil) (om-load-inputfun 'input-funbox "a list representing a rhythm tree" "TREE" (list '? (list (list '4//4 (list 1 (list 1 (list 1 -2 1 1)) 1 1)) (list '4//4 (list 1 (list 1 (list 1 2 1 1)) -1 1))))) (om-load-inputfun 'input-funbox "a chord object , a list of chord objects, a list of midics, a list of lists of midics." "CHORDS" (list (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 6000) :lvel (list 100) :loffset (list 0) :ldur (list 1000) :lchan (list 1) :from-file t)))) (om-load-inputfun 'input-funbox "a number indicating the frequency of the quarter-note (default 60/mn)" "TEMPO" 60) (om-load-inputfun 'input-funbox "no documentation" "LEGATO" 100) (om-load-inputfun 'input-funbox "no documentation" "TIES" nil)) 36700544 3276880 (if (find-class 'voice nil) (make-instance 'voice :tree (list 7/4 (list (list (list 4 4) (list (list 1 (list 2 2 1)) (list 1 (list 1.0 2 2)) (list 1 (list 1 1)) (list 1 (list 2 3 2)))) (list (list 3 4) (list (list 1 (list 1.0 3 3)) -1 -1)))) :chords (list (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 7828) :lvel (list 80) :loffset (list 0) :ldur (list 400) :lchan (list 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 7752) :lvel (list 80) :loffset (list 0) :ldur (list 400) :lchan (list 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 8652) :lvel (list 80) :loffset (list 0) :ldur (list 200) :lchan (list 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 7586) :lvel (list 80) :loffset (list 0) :ldur (list 400) :lchan (list 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 8604) :lvel (list 80) :loffset (list 0) :ldur (list 400) :lchan (list 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 7404) :lvel (list 80) :loffset (list 0) :ldur (list 500) :lchan (list 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 7304) :lvel (list 80) :loffset (list 0) :ldur (list 500) :lchan (list 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 7498) :lvel (list 80) :loffset (list 0) :ldur (list 286) :lchan (list 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 8556) :lvel (list 80) :loffset (list 0) :ldur (list 429) :lchan (list 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 8698) :lvel (list 80) :loffset (list 0) :ldur (list 286) :lchan (list 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 7828) :lvel (list 80) :loffset (list 0) :ldur (list 429) :lchan (list 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 7670) :lvel (list 80) :loffset (list 0) :ldur (list 429) :lchan (list 1) :from-file t))) :tempo 60 :legato 100 :ties (list nil nil nil nil nil nil nil nil nil nil nil nil) :from-file t)) nil nil (corrige (pairlis '(inport outport deltapict cmnpref staff fontsize approx) '(0 0 0 (1 15 2 2 0) g 24 4))) t nil) (om-load-boxcall 'genfun "OMQUANTIFY" 'omquantify '((om-load-inputfun 'input-funbox "durations" "DURS" (list 100)) (om-load-inputfun 'input-funbox "Tempo" "TEMPI" 60) (om-load-inputfun 'input-funbox "measures" "MEASURES" (list 4 4)) (om-load-inputfun 'input-funbox "maximum division" "MAX/" 8)) 30212428 nil nil nil nil 1) (om-load-boxcall 'genfun "OM-SCALE/SUM" 'om-scale/sum '((om-load-inputfun 'input-funbox "Number or tree" "SELF" (list 1 2 3)) (om-load-inputfun 'input-funbox "a number" "SUM" 10)) 39583963 nil nil nil nil 1) (om-load-boxcall 'genfun "BPF-SAMPLE" 'bpf-sample '((om-load-inputfun 'input-funbox "a BPF" "SELF" (let ((newobj (when (find-class 'bpf nil) (let ((newbpf (simple-bpf-from-list '(0 100) '(0 100) 'bpf 0))) (setf (bpfcolor newbpf) 0) newbpf)))) newobj)) (om-load-inputfun 'input-funbox "a number" "XMIN" 0) (om-load-inputfun 'input-funbox "a number" "XMAX" 100) (om-load-inputfun 'input-funbox "an integer" "NBSAMPLES" 10)) 35389655 nil nil nil nil 1) (om-load-boxcall 'lispfun "LENGTH" 'length '((om-load-inputfun 'input-funbox "SEQUENCE" "SEQUENCE" nil)) 29753590 nil nil nil nil 1) (om-load-boxcomment "comment6" 1310737 '"B" nil 11272797 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcomment "comment2" 1245257 '"Fundamental" nil 6357024 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcall 'genfun "X-APPEND1" 'x-append '((om-load-inputfun 'input-funbox "first list" "L1?" nil) (om-load-inputfun 'input-funbox "second list" "L2?" nil)) 13435385 nil nil nil nil 1) (om-load-boxcall 'abstraction "mypatch2" (om-load-patch-abs "mypatch" '((om-load-boxcall 'genfun "PERMUT-RANDOM" 'permut-random '((om-load-inputfun 'input-funbox "the list" "LIST" nil)) 31588470 nil nil nil nil 1) (om-load-boxcall 'lispfun "REVERSE" 'reverse '((om-load-inputfun 'input-funbox "SEQUENCE" "SEQUENCE" nil)) 13828154 nil nil nil nil 1) (om-load-boxin "input2" 2 1704101 "no documentation" "points up/down" nil nil) (om-load-boxcall 'bastype "aux31" 't 'nil 23855185 1310767 'numberp "numberp" nil) (om-load-boxcall 'genfun "LIST-FILTER1" 'list-filter '((om-load-inputfun 'input-funbox "test" "TEST" 'numberp) (om-load-inputfun 'input-funbox "list" "LIST" (list 1 2 3)) (om-load-inputfunmenu 'input-funmenu "mode" "MODE" 'pass '(("Reject" 'reject) ("Pass" 'pass)))) 25100412 nil 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)) 20119681 nil nil nil (list (om-load-boxcall 'genfun "OM<=" 'om<= '((om-load-inputfun 'input-funbox "a number" "SELF" 0) (om-load-inputfun 'input-funbox "a number" "NUM" 1)) 12582956 nil nil nil nil 1) (om-load-boxcall 'bastype "aux" 't 'nil 10289293 1310792 'quack! "quack!" nil) (om-load-boxcall 'genfun "collect1" 'listing '((om-load-inputfun 'input-funbox "no documentation" "WHAT?" nil)) 17498461 nil nil nil "collect" 3) (om-load-boxin "input1" 1 2424942 "no documentation" nil nil nil) (om-load-boxcall 'genfun "inlist" 'listloop '((om-load-inputfun 'input-funbox "list to iterate" "LIST" nil)) 7471113 nil 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)) 12255353 nil nil nil nil 1) (om-load-boxin "input0" 0 2621445 "no documentation" nil nil nil) (om-load-seqbox "finally" 'finaldo '((om-load-inputfun 'input-funbox "patch" "PATCH" nil)) 21561655 nil nil nil 0) (om-load-seqbox "eachTime" 'loopdo '((om-load-inputfun 'input-funbox "patch" "PATCH" nil)) 22151204 nil nil nil 0)) '((4 0 0 0 nil 0) (3 0 0 1 nil 0) (5 0 2 0 nil 0) (6 0 4 0 nil 0) (0 0 5 0 nil 0) (4 0 5 1 nil 0) (1 0 5 2 nil 0) (2 1 7 0 nil 0) (2 0 8 0 nil 0)) 1 nil) (om-load-boxin "input1" 1 1572961 "no documentation" "nth-random" nil nil) (om-load-boxin "input" 0 1638423 "no documentation" "partials" nil 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" 0)) 28770505 nil nil nil nil 1) (om-load-boxout "output" 0 34472153 '((om-load-inputfun 'input-funbox "out" "out" nil)) nil nil)) '((8 0 0 0 nil 0) (7 0 1 0 nil 0) (3 0 4 0 nil 0) (5 0 4 1 nil 0) (1 0 5 0 nil 0) (6 0 5 1 nil 0) (4 0 8 0 nil 0) (2 0 8 1 nil 0) (0 0 9 0 nil 0)) 3.7) '((om-load-inputfun 'input-funbox "no documentation" "partials" nil) (om-load-inputfun 'input-funbox "no documentation" "points up" nil) (om-load-inputfun 'input-funbox "no documentation" "input2" nil)) 9044527 nil nil nil nil) (om-load-boxcall 'genfun "NTH-RANDOM1" 'nth-random '((om-load-inputfun 'input-funbox "the list" "LIST" nil)) 4718891 nil (list 23) "&" nil 1) (om-load-boxcomment "comment1" 1245309 '"Points Up/Down" nil 5374062 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcomment "comment" 1245309 '"Partial Numbers" nil 1900659 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcall 'bastype "aux1" 't 'nil 6553740 1310748 7 "7" nil) (om-load-boxcall 'abstraction "mypatch" (om-load-patch-abs "mypatch" '((om-load-boxcall 'genfun "PERMUT-RANDOM" 'permut-random '((om-load-inputfun 'input-funbox "the list" "LIST" nil)) 31391855 nil nil nil nil 1) (om-load-boxin "input2" 2 1704101 "no documentation" "points up/down" nil nil) (om-load-boxcall 'bastype "aux31" 't 'nil 23855185 1310767 'numberp "numberp" nil) (om-load-boxcall 'genfun "LIST-FILTER1" 'list-filter '((om-load-inputfun 'input-funbox "test" "TEST" 'numberp) (om-load-inputfun 'input-funbox "list" "LIST" (list 1 2 3)) (om-load-inputfunmenu 'input-funmenu "mode" "MODE" 'pass '(("Reject" 'reject) ("Pass" 'pass)))) 25165954 nil 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)) 20119681 nil nil nil (list (om-load-boxcall 'bastype "aux" 't 'nil 10289293 1310792 'quack! "quack!" 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)) 13565986 nil nil nil nil 1) (om-load-boxcall 'genfun "collect1" 'listing '((om-load-inputfun 'input-funbox "no documentation" "WHAT?" nil)) 17367213 nil nil nil "collect" 3) (om-load-boxin "input1" 1 2424942 "no documentation" nil nil nil) (om-load-boxcall 'genfun "inlist" 'listloop '((om-load-inputfun 'input-funbox "list to iterate" "LIST" nil)) 7471113 nil 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)) 12255353 nil nil nil nil 1) (om-load-boxin "input0" 0 2621445 "no documentation" nil nil nil) (om-load-seqbox "finally" 'finaldo '((om-load-inputfun 'input-funbox "patch" "PATCH" nil)) 21561655 nil nil nil 0) (om-load-seqbox "eachTime" 'loopdo '((om-load-inputfun 'input-funbox "patch" "PATCH" nil)) 22151204 nil nil nil 0)) '((4 0 1 0 nil 0) (3 0 1 1 nil 0) (5 0 2 0 nil 0) (6 0 4 0 nil 0) (1 0 5 0 nil 0) (4 0 5 1 nil 0) (0 0 5 2 nil 0) (2 1 7 0 nil 0) (2 0 8 0 nil 0)) 1 nil) (om-load-boxin "input1" 1 1572961 "no documentation" "nth-random" nil nil) (om-load-boxin "input" 0 1638423 "no documentation" "partials" nil 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" 0)) 28770505 nil nil nil nil 1) (om-load-boxout "output" 0 34472153 '((om-load-inputfun 'input-funbox "out" "out" nil)) nil nil)) '((7 0 0 0 nil 0) (2 0 3 0 nil 0) (4 0 3 1 nil 0) (6 0 4 0 nil 0) (5 0 4 1 nil 0) (3 0 7 0 nil 0) (1 0 7 1 nil 0) (0 0 8 0 nil 0)) 3.7) '((om-load-inputfun 'input-funbox "no documentation" "partials" nil) (om-load-inputfun 'input-funbox "no documentation" "points up" nil) (om-load-inputfun 'input-funbox "no documentation" "input2" nil)) 9109949 nil nil nil nil) (om-load-boxcall 'bastype "aux" 't 'nil 3276919 1376907 (list 2 3 4 5 6 7 9 10 11 12 13 15 17 18 19 20 21 22 23 35 36 37 38) "(2 3 4 5 6 7 9 10 11 12 13 15 17 18 19 20 21 22 23 35 36 37 38)" nil) (om-load-editor-box "NOTE" '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)) 7536678 3276870 (if (find-class 'note nil) (make-instance 'note :midic 2400 :vel 80 :dur 1000 :chan 1 :from-file t)) "x" nil (corrige (pairlis '(inport outport deltapict cmnpref staff fontsize approx) '(0 0 0 (1 15 2 2 0) ggff 24 2))) t nil) (om-load-boxcall 'genfun "NTH-HARM" 'nth-harm '((om-load-inputfun 'input-funbox "Fundamental" "FUND" 3600) (om-load-inputfun 'input-funbox "Partial-numbers" "NTH" (list 1 2 3 4 5)) (om-load-inputfunmenu 'input-funmenu "Unit" "UNIT" 1 '(("Midics" 1) ("Freqs" 2))) (om-load-inputfunmenu 'input-funmenu "Type" "TYPE" 1 '(("Chord" 2) ("ChordSeq" 1)))) 12845120 nil nil nil nil 1)) '((15 0 2 0 nil 0) (24 0 6 1 nil 0) (6 1 7 2 nil 0) (9 0 8 1 nil 0) (6 1 8 2 nil 0) (10 0 9 0 nil 0) (11 0 10 0 nil 0) (5 0 10 1 nil 0) (7 0 11 0 nil 0) (4 0 11 1 nil 0) (3 0 11 2 nil 0) (12 0 11 3 nil 0) (6 1 12 0 nil 0) (21 0 15 0 nil 0) (16 0 15 1 nil 0) (22 0 16 0 nil 0) (17 0 16 1 nil 0) (20 0 16 2 nil 0) (22 0 17 0 nil 0) (22 0 21 0 nil 0) (17 0 21 1 nil 0) (20 0 21 2 nil 0) (23 1 24 0 nil 0) (2 0 24 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)))