(in-package :om)(load-lib-for '("Esquisse"))(setf *om-current-persistent* (om-load-patch "Arrell-Assignment 3" '((om-load-boxcomment "comment1111111" 8519828 '"This patch is a continuation
of my previous one.  BPFs
allow Melodic Shape and 
Rhythm control of \"band 
width\" filter pitches.  
Default rhythm is from 
nth-harm A." nil 2556812 nil 0 '("Geneva" 10 :srcor)) (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)) 8650804 3276870 (if (find-class 'note nil) (make-instance 'note :midic 2400 :vel 80 :dur 1000 :chan 1 :from-file t)) "x" nil (corrige (pairlis '(approx fontsize staff cmnpref deltapict outport inport) '(2 24 ggff (1 15 2 2 0) 0 0 0))) t nil) (om-load-boxcall 'bastype "aux" 't 'nil 4587659 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-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)) '((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) (7 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)) 10420689 nil nil nil nil) (om-load-boxcall 'bastype "aux1" 't 'nil 7864480 1310748 10 "10" nil) (om-load-boxcomment "comment" 1245309 '"Partial Numbers" nil 3211399 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcomment "comment1" 1245309 '"\"Band Width\"" nil 6684802 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcall 'genfun "NTH-RANDOM1" 'nth-random '((om-load-inputfun 'input-funbox "the list" "LIST" nil)) 6029631 nil (list 12) "&" nil 1) (om-load-boxcall 'abstraction "mypatch2" (om-load-patch-abs "mypatch" '((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)) '((6 0 0 0 nil 0) (2 0 3 0 nil 0) (4 0 3 1 nil 0) (0 0 4 0 nil 0) (5 0 4 1 nil 0) (3 0 7 0 nil 0) (1 0 7 1 nil 0) (7 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)) 10355267 nil nil nil nil) (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)) 14746125 nil nil nil nil 1) (om-load-boxcomment "comment2" 1245257 '"Fundamental" nil 7667764 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcall 'lispfun "LENGTH" 'length '((om-load-inputfun 'input-funbox "SEQUENCE" "SEQUENCE" nil)) 21103483 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)) 23266099 nil nil nil nil 1) (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)) 34013449 11403528 (if (find-class 'voice nil) (make-instance 'voice :tree (list 7/4 (list (list (list 4 4) (list (list 1 (list 2 2 2 1)) (list 1 (list 1.0 2 2 1)) (list 1 (list 1.0 3 2 1)) (list 1 (list 2.0 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 7586) :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 7404) :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 7088) :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 7304) :lvel (list 80) :loffset (list 0) :ldur (list 143) :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 333) :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 333) :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 167) :lchan (list 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 7200) :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 6702) :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 6000) :lvel (list 80) :loffset (list 0) :ldur (list 143) :lchan (list 1) :from-file t)) (if (find-class 'chord nil) (make-instance 'chord :lmidic (list 5768) :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 5186) :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 4800) :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 3600) :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 nil nil) :from-file t)) nil nil (corrige (pairlis '(approx fontsize staff cmnpref deltapict outport inport) '(4 24 g (1 15 2 2 0) 0 0 0))) 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)) 11141818 3997877 (let ((newobj (when (find-class 'bpf nil) (let ((newbpf (simple-bpf-from-list '(0 1 2 3 4 6 8 10) '(100 90 80 70 60 100 30 0) 'bpf 0))) (setf (bpfcolor newbpf) 0) newbpf)))) newobj) "x" nil (corrige (pairlis '(inport outport deltapict) '(0 0 0))) t nil) (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)) 15597977 nil nil nil nil 1) (om-load-boxcall 'genfun "SORT." 'sort. '((om-load-inputfun 'input-funbox "the list" "LST" nil)) 18416106 nil nil nil nil 1) (om-load-boxcall 'genfun "OM-SCALE" 'om-scale '((om-load-inputfun 'input-funbox "number or tree" "SELF" 1) (om-load-inputfun 'input-funbox "a number" "MINOUT" 0) (om-load-inputfun 'input-funbox "a number" "MAXOUT" 0)) 28377764 nil nil nil nil 1) (om-load-boxcall 'genfun "OM-ROUND1" 'om-round '((om-load-inputfun 'input-funbox "number or tree" "SELF" 1)) 33030818 nil nil nil nil 1) (om-load-boxcall 'genfun "LAST-ELEM" 'last-elem '((om-load-inputfun 'input-funbox "one list" "LIST" nil)) 21824175 nil nil nil nil 1) (om-load-boxcall 'lispfun "FIRST" 'first '((om-load-inputfun 'input-funbox "LIST" "LIST" 'v)) 28574302 nil nil nil nil 1) (om-load-boxcall 'genfun "NTH-HARM1" '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)))) 41026141 nil nil nil nil 1) (om-load-boxcall 'bastype "aux3" 't 'nil 18940747 1310731 1 "1" nil) (om-load-boxcall 'bastype "aux6" 't 'nil 18088791 1310743 10 "10" nil) (om-load-boxcall 'genfun "REMOVE-DUP1" '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)) 37552810 nil nil nil nil 1) (om-load-editor-box "BPF1" '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)) 22806607 3997877 (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 120 130 140 150 160 170 180) '(4302 7498 6204 6552 3600 6386 7752 7088 7586 6840 7304 5768 7670 7828 5502 5186 7404 4800 6702) 'bpf 0))) (setf (bpfcolor newbpf) 0) newbpf)))) newobj) nil nil (corrige (pairlis '(inport outport deltapict) '(0 0 0))) t nil) (om-load-boxcall 'genfun "BPF-SAMPLE1" '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)) 29360228 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)) 34603113 nil nil nil nil 1) (om-load-boxcall 'bastype "aux2" 't 'nil 27394170 1310731 1 "1" nil) (om-load-boxcall 'bastype "aux4" 't 'nil 27394183 1310743 10 "10" nil) (om-load-boxcall 'lispfun "LENGTH1" 'length '((om-load-inputfun 'input-funbox "SEQUENCE" "SEQUENCE" nil)) 41878196 nil nil nil nil 1) (om-load-boxcall 'bastype "aux5" 't 'nil 32637081 1310773 5000 "5000" 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)) 39059584 nil nil nil nil 1) (om-load-boxcall 'genfun "NTH-HARM11" '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)))) 14680141 nil nil nil nil 1) (om-load-boxcall 'genfun "PERMUT-RANDOM" 'permut-random '((om-load-inputfun 'input-funbox "the list" "LIST" nil)) 18874427 nil nil nil nil 1) (om-load-boxcomment "comment111113" 1703957 '"A" nil 15663227 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcomment "comment111112" 1703957 '"A" nil 15663227 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcomment "comment111111" 1703957 '"A" nil 15663227 nil 0 '("Geneva" 10 :srcor)) (om-load-boxcomment "comment11111" 1703957 '"A" nil 15663227 nil 0 '("Geneva" 10 :srcor))) '((2 0 3 0 nil 0) (7 0 3 1 nil 0) (4 0 3 2 nil 0) (2 0 7 0 nil 0) (2 0 8 0 nil 0) (7 0 8 1 nil 0) (4 0 8 2 nil 0) (3 0 9 0 nil 0) (8 0 9 1 nil 0) (16 0 11 0 nil 0) (14 0 12 0 nil 0) (22 0 12 1 nil 0) (23 0 12 2 nil 0) (11 0 12 3 nil 0) (32 0 13 1 nil 0) (21 0 13 2 nil 0) (9 0 15 0 nil 0) (15 0 16 0 nil 0) (12 0 17 0 nil 0) (20 0 17 1 nil 0) (19 0 17 2 nil 0) (17 0 18 0 nil 0) (16 0 19 0 nil 0) (16 0 20 0 nil 0) (1 1 21 0 nil 0) (24 0 21 1 nil 0) (18 0 24 0 nil 0) (34 0 25 2 nil 0) (25 0 26 0 nil 0) (28 0 26 1 nil 0) (29 0 26 2 nil 0) (30 0 26 3 nil 0) (26 0 27 0 nil 0) (31 0 27 1 nil 0) (24 0 30 0 nil 0) (27 0 32 0 nil 0) (1 1 33 0 nil 0) (16 0 33 1 nil 0) (33 0 34 0 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 nil nil nil nil nil)))