(in-package :om)(load-lib-for (quote ("OM-SRR")))(setf *om-current-persistent* (om-load-patch1 "3-quantization" (quote ((let ((box (om-load-boxcomment "comment 2" (om-make-point 56 34) (quote "Meter") "" (om-make-point 952 579) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 14.0D0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 3" (om-make-point 130 44) (quote "Quantization") "" (om-make-point 258 121) nil (om-make-color 0 0 0) (om-make-font "Verdana" 18.0D0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 2" (om-make-point 104 60) (quote "Make Chords$with Dynamics$by SRR") "" (om-make-point 524 666) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 2" (om-make-point 55 51) (quote "Base$Value") "" (om-make-point 793 432) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 14.0D0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 2" (om-make-point 147 51) (quote "Equal Subdivisions$(Samplepoints)") "" (om-make-point 712 366) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 14.0D0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 2" (om-make-point 193 34) (quote "Generate Metric Notation") "" (om-make-point 722 178) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 14.0D0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 2" (om-make-point 138 51) (quote "Discretization by $downsampling") "" (om-make-point 260 390) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 14.0D0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 116 58) (quote "OM-SRR") "" (om-make-point 258 81) nil (om-make-color 0 0 0) (om-make-font "Verdana" 24.0D0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 847 437) (om-make-point 39 30) 1/8 "1/8" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 930 545) (om-make-point 48 30) (list 4 8) "(4 8)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 7" (quote t) (quote nil) (om-make-point 792 565) (om-make-point 41 30) 110 "110" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 749 564) (om-make-point 34 30) 20 "20" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 3373/5 372) (om-make-point 34 30) 12 "12" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "BPF 4" (quote bpf) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "X coordinates (list)" "x-points" (list 0 100)) (om-load-inputfun (quote input-funbox) "Y coordinates (list)" "y-points" (list 0 100)) (om-load-inputfun (quote input-funbox) "precision (integer) [0 - 10]" "decimals" 5))) (om-make-point 551 476) (om-make-point 179 98) (let ((newobj (when (find-class (quote bpf) nil) (let ((newbpf (simple-bpf-from-list (quote (0.0 0.5236 1.0472 1.5708 2.0944 2.61799 3.14159 3.66519 4.18879 4.71239 5.23599 5.75959)) (quote (1.0 0.59153 0.50002 0.74999 0.25003 0.15851 0.49998 0.15852 0.25001 0.74996 0.50002 0.5915)) (quote bpf) 5))) (setf (bpfcolor newbpf) (om-make-color 0 0 0)) (set-name newbpf "BPF 4") newbpf)))) (when newobj) newobj) nil nil (pairlis (quote (winsize winpos picture)) (list (om-make-point 335 275) (om-make-point 10 40) nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "quantization 3" (om-load-patch-abs1 "quantization" (quote ((let ((box (om-load-boxin "numpi" 2 (om-make-point 171 29) "" "numpi" 2 nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxout "output 2" 1 (om-make-point 272 410) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) "y-values" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "2pi" (om-load-lisp-abspatch "2pi" 7.05 ";;; Edit a valid LAMBDA EXPRESSION for \"lispfunction\"$;;; e.g. (lambda (arg1 arg2 ...) ( ... ))$$(lambda (n) (* n pi))") (quote ((om-load-inputfun (quote input-funbox) "" "N" nil))) (om-make-point 131 97) nil (list 6.283185307179586D0) nil "2pi"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxout "output" 0 (om-make-point 116 396) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) "x-values" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "subdivision" 1 (om-make-point 187 140) "" "subdivision" nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "bpf" 0 (om-make-point 313 77) "" "bpf" nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM/ 2" (quote om/) (quote ((om-load-inputfun (quote input-funbox) "number or list" "ARG1" 1) (om-load-inputfun (quote input-funbox) "number or list" "ARG2" 1))) (om-make-point 171 210) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "ARITHM-SER 2" (quote arithm-ser) (quote ((om-load-inputfun (quote input-funbox) "begin" "BEGIN" 0) (om-load-inputfun (quote input-funbox) "end " "END" 10) (om-load-inputfun (quote input-funbox) "step" "STEP" 1))) (om-make-point 113 251) nil nil "&" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "X-TRANSFER" (quote x-transfer) (quote ((om-load-inputfun (quote input-funbox) "a list or BPF" "SELF" nil) (om-load-inputfun (quote input-funbox) "X value" "X-VAL" (list 0 100)))) (om-make-point 264 249) nil nil "l" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "MAPCAR" (quote mapcar) (quote ((om-load-inputfun (quote input-funbox) "FUNCTION" "FUNCTION" nil) (om-load-inputfun (quote input-funbox) "LIST" "LIST" nil))) (om-make-point 278 353) (om-make-point 49 43) nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((9 0 1 0 nil 0) (0 0 2 0 nil 0) (7 0 3 0 nil 0) (2 0 6 0 nil 0) (4 0 6 1 nil 0) (2 0 7 1 nil 0) (6 0 7 2 nil 0) (5 0 8 0 nil 0) (8 0 9 0 nil 0) (7 0 9 1 nil 0))) 7.05 nil "" (om-make-point 200 200) (om-make-point 500 400)) (quote ((om-load-inputfun (quote input-funbox) "" "bpf" nil) (om-load-inputfun (quote input-funbox) "" "subdivision" nil) (om-load-inputfun (quote input-funbox) "" "input" 2))) (om-make-point 2998/5 402) nil (list (list 0 0.5235987755982988D0 1.0471975511965977D0 1.5707963267948966D0 2.0943951023931953D0 2.617993877991494D0 3.1415926535897927D0 3.6651914291880914D0 4.1887902047863905D0 4.71238898038469D0 5.235987755982989D0 5.759586531581288D0) (list 1.0 0.5915307749856582D0 0.5000196342217457D0 0.7499873689222164D0 0.25002879685606056D0 0.1585075882912012D0 0.4999792972088112D0 0.1585232124904729D0 0.25001063946788804D0 0.7499609585854559D0 0.5000228525455005D0 0.5915048731622083D0)) nil "quantization"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "POP-UP-MENU 3" (quote pop-up-menu) (quote ((om-load-inputfun (quote input-funbox) "list of choices" "items" (list "yes" "no")) (om-load-inputfun (quote input-funbox) "a function or box in lambda mode" "action" nil))) (om-make-point 668 83) (om-make-point 130 44) (let ((rep (om-make-dialog-item (quote pop-up-menu) (om-make-point 1 1) (om-make-point 110 26) "untitled" :range (quote (1 2 3 4 5 6 7 8 9 10 11 12 13))))) (om-set-selected-item-index rep (quote 3)) rep) "x" nil (pairlis (quote (winsize winpos)) (list (om-make-point 335 275) (om-make-point 10 40))) nil nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "POP-UP-MENU 2" (quote pop-up-menu) (quote ((om-load-inputfun (quote input-funbox) "list of choices" "items" (list "yes" "no")) (om-load-inputfun (quote input-funbox) "a function or box in lambda mode" "action" nil))) (om-make-point 535 84) (om-make-point 130 44) (let ((rep (om-make-dialog-item (quote pop-up-menu) (om-make-point 1 1) (om-make-point 110 26) "untitled" :range (quote (1 2 3 4 5 6 7 8 9 10 11 12 13))))) (om-set-selected-item-index rep (quote 0)) rep) "x" nil (pairlis (quote (winsize winpos)) (list (om-make-point 335 275) (om-make-point 10 40))) nil nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "BPF 3" (quote bpf) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "X coordinates (list)" "x-points" (list 0 100)) (om-load-inputfun (quote input-funbox) "Y coordinates (list)" "y-points" (list 0 100)) (om-load-inputfun (quote input-funbox) "precision (integer) [0 - 10]" "decimals" 5))) (om-make-point 582 247) (om-make-point 196 113) (let ((newobj (when (find-class (quote bpf) nil) (let ((newbpf (simple-bpf-from-list (quote (0.0 0.01 0.02 0.03 0.04 0.05 0.06 0.07 0.08 0.09 0.1 0.11 0.12 0.13 0.14 0.15 0.16 0.17 0.18 0.19 0.2 0.21 0.22 0.23 0.24 0.25 0.26 0.27 0.28 0.29 0.3 0.31 0.32 0.33 0.34 0.35 0.36 0.37 0.38 0.39 0.4 0.41 0.42 0.43 0.44 0.45 0.46 0.47 0.48 0.49 0.5 0.51 0.52 0.53 0.54 0.55 0.56 0.57 0.58 0.59 0.6 0.61 0.62 0.63 0.64 0.65 0.66 0.67 0.68 0.69 0.7 0.71 0.72 0.73 0.74 0.75 0.76 0.77 0.78 0.79 0.8 0.81 0.82 0.83 0.84 0.85 0.86 0.87 0.88 0.89 0.9 0.91 0.92 0.93 0.94 0.95 0.96 0.97 0.98 0.99 1.0 1.01 1.02 1.03 1.04 1.05 1.06 1.07 1.08 1.09 1.1 1.11 1.12 1.13 1.14 1.15 1.16 1.17 1.18 1.19 1.2 1.21 1.22 1.23 1.24 1.25 1.26 1.27 1.28 1.29 1.3 1.31 1.32 1.33 1.34 1.35 1.36 1.37 1.38 1.39 1.4 1.41 1.42 1.43 1.44 1.45 1.46 1.47 1.48 1.49 1.5 1.51 1.52 1.53 1.54 1.55 1.56 1.57 1.58 1.59 1.6 1.61 1.62 1.63 1.64 1.65 1.66 1.67 1.68 1.69 1.7 1.71 1.72 1.73 1.74 1.75 1.76 1.77 1.78 1.79 1.8 1.81 1.82 1.83 1.84 1.85 1.86 1.87 1.88 1.89 1.9 1.91 1.92 1.93 1.94 1.95 1.96 1.97 1.98 1.99 2.0 2.01 2.02 2.03 2.04 2.05 2.06 2.07 2.08 2.09 2.1 2.11 2.12 2.13 2.14 2.15 2.16 2.17 2.18 2.19 2.2 2.21 2.22 2.23 2.24 2.25 2.26 2.27 2.28 2.29 2.3 2.31 2.32 2.33 2.34 2.35 2.36 2.37 2.38 2.39 2.4 2.41 2.42 2.43 2.44 2.45 2.46 2.47 2.48 2.49 2.5 2.51 2.52 2.53 2.54 2.55 2.56 2.57 2.58 2.59 2.6 2.61 2.62 2.63 2.64 2.65 2.66 2.67 2.68 2.69 2.7 2.71 2.72 2.73 2.74 2.75 2.76 2.77 2.78 2.79 2.8 2.81 2.82 2.83 2.84 2.85 2.86 2.87 2.88 2.89 2.9 2.91 2.92 2.93 2.94 2.95 2.96 2.97 2.98 2.99 3.0 3.01 3.02 3.03 3.04 3.05 3.06 3.07 3.08 3.09 3.1 3.11 3.12 3.13 3.14 3.15 3.16 3.17 3.18 3.19 3.2 3.21 3.22 3.23 3.24 3.25 3.26 3.27 3.28 3.29 3.3 3.31 3.32 3.33 3.34 3.35 3.36 3.37 3.38 3.39 3.4 3.41 3.42 3.43 3.44 3.45 3.46 3.47 3.48 3.49 3.5 3.51 3.52 3.53 3.54 3.55 3.56 3.57 3.58 3.59 3.6 3.61 3.62 3.63 3.64 3.65 3.66 3.67 3.68 3.69 3.7 3.71 3.72 3.73 3.74 3.75 3.76 3.77 3.78 3.79 3.8 3.81 3.82 3.83 3.84 3.85 3.86 3.87 3.88 3.89 3.9 3.91 3.92 3.93 3.94 3.95 3.96 3.97 3.98 3.99 4.0 4.01 4.02 4.03 4.04 4.05 4.06 4.07 4.08 4.09 4.1 4.11 4.12 4.13 4.14 4.15 4.16 4.17 4.18 4.19 4.2 4.21 4.22 4.23 4.24 4.25 4.26 4.27 4.28 4.29 4.3 4.31 4.32 4.33 4.34 4.35 4.36001 4.37001 4.38001 4.39001 4.40001 4.41001 4.42001 4.43001 4.44001 4.45001 4.46001 4.47001 4.48001 4.49001 4.50001 4.51001 4.52001 4.53001 4.54001 4.55001 4.56001 4.57001 4.58001 4.59001 4.60001 4.61001 4.62001 4.63001 4.64001 4.65001 4.66001 4.67001 4.68001 4.69001 4.70001 4.71001 4.72001 4.73001 4.74001 4.75001 4.76001 4.77001 4.78001 4.79001 4.80002 4.81002 4.82002 4.83002 4.84002 4.85002 4.86002 4.87002 4.88002 4.89002 4.90002 4.91002 4.92002 4.93002 4.94002 4.95002 4.96002 4.97002 4.98002 4.99002 5.00002 5.01002 5.02002 5.03002 5.04002 5.05002 5.06002 5.07002 5.08002 5.09002 5.10002 5.11002 5.12002 5.13002 5.14002 5.15002 5.16002 5.17002 5.18002 5.19002 5.20002 5.21002 5.22002 5.23002 5.24003 5.25003 5.26003 5.27003 5.28003 5.29003 5.30003 5.31003 5.32003 5.33003 5.34003 5.35003 5.36003 5.37003 5.38003 5.39003 5.40003 5.41003 5.42003 5.43003 5.44003 5.45003 5.46003 5.47003 5.48003 5.49003 5.50003 5.51003 5.52003 5.53003 5.54003 5.55003 5.56003 5.57003 5.58003 5.59003 5.60003 5.61003 5.62003 5.63003 5.64003 5.65003 5.66003 5.67004 5.68004 5.69004 5.70004 5.71004 5.72004 5.73004 5.74004 5.75004 5.76004 5.77004 5.78004 5.79004 5.80004 5.81004 5.82004 5.83004 5.84004 5.85004 5.86004 5.87004 5.88004 5.89004 5.90004 5.91004 5.92004 5.93004 5.94004 5.95004 5.96004 5.97004 5.98004 5.99004 6.00004 6.01004 6.02004 6.03004 6.04004 6.05004 6.06004 6.07004 6.08004 6.09004 6.10005 6.11005 6.12005 6.13005 6.14005 6.15005 6.16005 6.17005 6.18005 6.19005 6.20005 6.21005 6.22005 6.23005 6.24005 6.25005 6.26005 6.27005 6.28005)) (quote (1.0 0.99979 0.99915 0.99809 0.99661 0.99471 0.99239 0.98965 0.98651 0.98296 0.97902 0.97468 0.96995 0.96485 0.95937 0.95353 0.94733 0.94079 0.93391 0.92671 0.9192 0.91137 0.90326 0.89487 0.88622 0.8773 0.86815 0.85878 0.84919 0.8394 0.82943 0.81928 0.80899 0.79856 0.788 0.77734 0.76658 0.75575 0.74486 0.73393 0.72297 0.71199 0.70103 0.69008 0.67917 0.66831 0.65752 0.64682 0.63621 0.62572 0.61536 0.60514 0.59509 0.5852 0.5755 0.56601 0.55673 0.54767 0.53885 0.53029 0.52199 0.51396 0.50622 0.49877 0.49163 0.4848 0.47829 0.47212 0.46628 0.4608 0.45566 0.45088 0.44646 0.44241 0.43873 0.43543 0.4325 0.42995 0.42779 0.42601 0.42461 0.42359 0.42295 0.42269 0.42281 0.4233 0.42416 0.42539 0.42697 0.42892 0.43121 0.43385 0.43682 0.44012 0.44375 0.44768 0.45191 0.45644 0.46125 0.46633 0.47166 0.47725 0.48307 0.48912 0.49537 0.50183 0.50846 0.51527 0.52223 0.52934 0.53657 0.54391 0.55134 0.55886 0.56645 0.57408 0.58175 0.58944 0.59714 0.60481 0.61247 0.62007 0.62762 0.63509 0.64247 0.64975 0.6569 0.66392 0.67078 0.67748 0.684 0.69033 0.69645 0.70235 0.70801 0.71343 0.71858 0.72347 0.72807 0.73238 0.73638 0.74008 0.74344 0.74647 0.74916 0.75151 0.75349 0.75511 0.75636 0.75724 0.75773 0.75783 0.75755 0.75688 0.7558 0.75434 0.75247 0.7502 0.74753 0.74446 0.741 0.73714 0.73288 0.72823 0.72319 0.71778 0.71199 0.70581 0.69928 0.69238 0.68514 0.67755 0.66962 0.66137 0.65279 0.64392 0.63474 0.62528 0.61554 0.60554 0.59529 0.5848 0.57409 0.56317 0.55205 0.54074 0.52927 0.51764 0.50588 0.49399 0.482 0.46991 0.45774 0.44552 0.43325 0.42095 0.40864 0.39633 0.38404 0.37179 0.35959 0.34746 0.33542 0.32347 0.31164 0.29995 0.28839 0.27701 0.2658 0.25478 0.24397 0.23338 0.22302 0.21291 0.20306 0.19348 0.18419 0.1752 0.16651 0.15814 0.1501 0.1424 0.13505 0.12806 0.12143 0.11518 0.1093 0.10381 0.09872 0.09402 0.08972 0.08583 0.08235 0.07928 0.07664 0.0744 0.07258 0.07118 0.0702 0.06963 0.06948 0.06974 0.07041 0.07148 0.07296 0.07484 0.0771 0.07975 0.08278 0.08618 0.08995 0.09407 0.09853 0.10334 0.10847 0.11392 0.11967 0.12573 0.13206 0.13867 0.14553 0.15264 0.15998 0.16755 0.17531 0.18327 0.1914 0.1997 0.20814 0.21671 0.2254 0.23419 0.24306 0.252 0.261 0.27003 0.27908 0.28814 0.29719 0.30621 0.3152 0.32412 0.33297 0.34173 0.35039 0.35892 0.36733 0.37559 0.38368 0.3916 0.39933 0.40686 0.41417 0.42125 0.42809 0.43468 0.44101 0.44706 0.45283 0.4583 0.46347 0.46832 0.47285 0.47706 0.48093 0.48446 0.48764 0.49046 0.49293 0.49503 0.49676 0.49813 0.49913 0.49975 0.5 0.49987 0.49937 0.49849 0.49724 0.49562 0.49364 0.49129 0.48857 0.48551 0.48209 0.47833 0.47423 0.4698 0.46505 0.45998 0.4546 0.44893 0.44297 0.43673 0.43022 0.42346 0.41646 0.40921 0.40176 0.39409 0.38623 0.37819 0.36998 0.36162 0.35312 0.3445 0.33577 0.32695 0.31805 0.30908 0.30007 0.29103 0.28197 0.27292 0.26388 0.25487 0.24591 0.23701 0.22819 0.21947 0.21086 0.20238 0.19403 0.18584 0.17783 0.17 0.16237 0.15496 0.14777 0.14083 0.13414 0.12772 0.12157 0.11572 0.11017 0.10494 0.10003 0.09545 0.09122 0.08734 0.08382 0.08068 0.0779 0.07552 0.07352 0.07191 0.07071 0.06991 0.06952 0.06954 0.06997 0.07082 0.07209 0.07377 0.07587 0.0784 0.08133 0.08468 0.08843 0.0926 0.09717 0.10214 0.10751 0.11326 0.1194 0.1259 0.13278 0.14002 0.14761 0.15554 0.16381 0.17239 0.18129 0.19049 0.19998 0.20974 0.21977 0.23005 0.24057 0.25131 0.26227 0.27342 0.28475 0.29625 0.3079 0.31969 0.3316 0.34362 0.35572 0.3679 0.38014 0.39242 0.40472 0.41703 0.42933 0.44162 0.45386 0.46604 0.47816 0.49019 0.50211 0.51392 0.52559 0.53711 0.54847 0.55965 0.57064 0.58142 0.59198 0.60231 0.61239 0.62221 0.63176 0.64103 0.65001 0.65868 0.66703 0.67507 0.68277 0.69012 0.69713 0.70378 0.71006 0.71598 0.72152 0.72667 0.73145 0.73583 0.73982 0.74341 0.7466 0.74939 0.75179 0.75379 0.75538 0.75658 0.75738 0.75779 0.7578 0.75743 0.75668 0.75555 0.75404 0.75218 0.74995 0.74736 0.74444 0.74118 0.73759 0.73368 0.72947 0.72496 0.72016 0.71509 0.70975 0.70417 0.69834 0.69229 0.68603 0.67957 0.67292 0.66611 0.65914 0.65203 0.64479 0.63744 0.62999 0.62247 0.61488 0.60724 0.59957 0.59188 0.58419 0.57651 0.56886 0.56126 0.55371 0.54625 0.53888 0.53161 0.52447 0.51746 0.5106 0.50391 0.49739 0.49107 0.48496 0.47907 0.4734 0.46799 0.46283 0.45793 0.45331 0.44898 0.44496 0.44124 0.43783 0.43475 0.43201 0.42961 0.42755 0.42585 0.42451 0.42353 0.42292 0.42268 0.42282 0.42334 0.42424 0.42552 0.42718 0.42923 0.43166 0.43446 0.43765 0.44121 0.44514 0.44944 0.45411 0.45914 0.46452 0.47024 0.47631 0.48271 0.48944 0.49649 0.50384 0.51149 0.51942 0.52764 0.53613 0.54487 0.55385 0.56306 0.57249 0.58213 0.59195 0.60196 0.61213 0.62245 0.6329 0.64347 0.65414 0.66491 0.67575 0.68664 0.69758 0.70854 0.71952 0.73048 0.74143 0.75233 0.76318 0.77396 0.78466 0.79525 0.80572 0.81606 0.82625 0.83628 0.84613 0.85578 0.86523 0.87445 0.88344 0.89218 0.90066 0.90886 0.91677 0.92438 0.93169 0.93867 0.94531 0.95162 0.95757 0.96317 0.96839 0.97324 0.9777 0.98177 0.98544 0.98871 0.99157 0.99402 0.99606 0.99767 0.99886 0.99963 0.99998)) (quote bpf) 5))) (setf (bpfcolor newbpf) (om-make-color 0 0 0)) (set-name newbpf "BPF 3") newbpf)))) (when newobj) newobj) nil nil (pairlis (quote (winsize winpos picture)) (list (om-make-point 783 402) (om-make-point 261 176) nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GEN-SRR" (quote gen-srr) (quote ((om-load-inputfun (quote input-funbox) "subdivisions" "SUBDIVISIONS" nil) (om-load-inputfun (quote input-funbox) "subdivisions" "SUBDIVISIONS" nil))) (om-make-point 646 159) nil nil nil nil 2))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "BPF 2" (quote bpf) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "X coordinates (list)" "x-points" (list 0 100)) (om-load-inputfun (quote input-funbox) "Y coordinates (list)" "y-points" (list 0 100)) (om-load-inputfun (quote input-funbox) "precision (integer) [0 - 10]" "decimals" 5))) (om-make-point 132 464) (om-make-point 179 98) (let ((newobj (when (find-class (quote bpf) nil) (let ((newbpf (simple-bpf-from-list (quote (0.0 0.3696 0.7392 1.1088 1.4784 1.848 2.21759 2.58719 2.95679 3.32639 3.69599 4.06559 4.43519 4.80479 5.17439 5.54399 5.91359 6.28319)) (quote (1.0 0.18587 0.52053 0.47224 0.79609 0.10372 0.63443 0.66469 0.37243 0.37245 0.66469 0.63442 0.10378 0.79597 0.47235 0.52049 0.18595 0.99989)) (quote bpf) 5))) (setf (bpfcolor newbpf) (om-make-color 0 0 0)) (set-name newbpf "BPF 2") newbpf)))) (when newobj) newobj) nil nil (pairlis (quote (winsize winpos picture)) (list (om-make-point 335 275) (om-make-point 10 40) nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "BPF 2" (quote bpf) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "X coordinates (list)" "x-points" (list 0 100)) (om-load-inputfun (quote input-funbox) "Y coordinates (list)" "y-points" (list 0 100)) (om-load-inputfun (quote input-funbox) "precision (integer) [0 - 10]" "decimals" 5))) (om-make-point 130 690) (om-make-point 179 98) (let ((newobj (when (find-class (quote bpf) nil) (let ((newbpf (simple-bpf-from-list (quote (0.0 0.3696 0.7392 1.1088 1.4784 1.848 2.21759 2.58719 2.95679 3.32639 3.69599 4.06559 4.43519 4.80479 5.17439 5.54399 5.91359 6.28319 6.65279 7.02239 7.39199 7.76159 8.13119 8.50079 8.87039 9.23999 9.60959 9.97919 10.34879 10.71839 11.08799 11.45759 11.82719 12.19679 12.56639 12.93599 13.30559 13.67519 14.04479 14.41439 14.78399 15.15359 15.52319 15.89279 16.26239 16.63199 17.00159 17.37119 17.74079 18.11039 18.47999 18.84959 19.21919 19.58879 19.95839 20.32799 20.69759 21.06719 21.43679 21.80639 22.17599 22.54559 22.91519 23.28479 23.65439 24.02399 24.39359 24.76319 25.13279 25.50239 25.87199 26.24159)) (quote (1.0 1.0 1.0 1.0 0.18587 0.18587 0.18587 0.18587 0.52053 0.52053 0.52053 0.52053 0.47224 0.47224 0.47224 0.47224 0.79609 0.79609 0.79609 0.79609 0.10372 0.10372 0.10372 0.10372 0.63443 0.63443 0.63443 0.63443 0.66469 0.66469 0.66469 0.66469 0.37243 0.37243 0.37243 0.37243 0.37245 0.37245 0.37245 0.37245 0.66469 0.66469 0.66469 0.66469 0.63442 0.63442 0.63442 0.63442 0.10378 0.10378 0.10378 0.10378 0.79597 0.79597 0.79597 0.79597 0.47235 0.47235 0.47235 0.47235 0.52049 0.52049 0.52049 0.52049 0.18595 0.18595 0.18595 0.18595 0.99989 0.99989 0.99989 0.99989)) (quote bpf) 5))) (setf (bpfcolor newbpf) (om-make-color 0 0 0)) (set-name newbpf "BPF 2") newbpf)))) (when newobj) newobj) nil nil (pairlis (quote (winsize winpos picture)) (list (om-make-point 335 275) (om-make-point 10 40) nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 285 586) (om-make-point 27 30) 4 "4" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "plateau" (om-load-lisp-abspatch "plateau" 7.05 ";;; Edit a valid LAMBDA EXPRESSION for \"lispfunction\"$;;; e.g. (lambda (arg1 arg2 ...) ( ... ))$$(lambda (list n) $$(om:flat (om:mat-trans (om:repeat-n list n)))$$)") (quote ((om-load-inputfun (quote input-funbox) "" "LIST" nil) (om-load-inputfun (quote input-funbox) "" "N" nil))) (om-make-point 222 616) nil (list (list 1.0 1.0 1.0 1.0 0.18587 0.18587 0.18587 0.18587 0.52053 0.52053 0.52053 0.52053 0.47224 0.47224 0.47224 0.47224 0.79609 0.79609 0.79609 0.79609 0.10372 0.10372 0.10372 0.10372 0.63443 0.63443 0.63443 0.63443 0.66469 0.66469 0.66469 0.66469 0.37243 0.37243 0.37243 0.37243 0.37245 0.37245 0.37245 0.37245 0.66469 0.66469 0.66469 0.66469 0.63442 0.63442 0.63442 0.63442 0.10378 0.10378 0.10378 0.10378 0.79597 0.79597 0.79597 0.79597 0.47235 0.47235 0.47235 0.47235 0.52049 0.52049 0.52049 0.52049 0.18595 0.18595 0.18595 0.18595 0.99989 0.99989 0.99989 0.99989)) nil "plateau"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 1203/5 346) (om-make-point 34 30) 17 "17" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "quantization" (om-load-patch-abs1 "quantization" (quote ((let ((box (om-load-boxout "output 2" 1 (om-make-point 272 410) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) "y-values" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "2pi" (om-load-lisp-abspatch "2pi" 7.05 ";;; Edit a valid LAMBDA EXPRESSION for \"lispfunction\"$;;; e.g. (lambda (arg1 arg2 ...) ( ... ))$$(lambda () (* 2 pi))") (quote nil) (om-make-point 131 97) nil (list 6.283185307179586D0) nil "2pi"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxout "output" 0 (om-make-point 116 396) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) "x-values" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "subdivision" 1 (om-make-point 187 140) "" "subdivision" nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "bpf" 0 (om-make-point 313 77) "" "bpf" nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM/ 2" (quote om/) (quote ((om-load-inputfun (quote input-funbox) "number or list" "ARG1" 1) (om-load-inputfun (quote input-funbox) "number or list" "ARG2" 1))) (om-make-point 171 210) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "ARITHM-SER 2" (quote arithm-ser) (quote ((om-load-inputfun (quote input-funbox) "begin" "BEGIN" 0) (om-load-inputfun (quote input-funbox) "end " "END" 10) (om-load-inputfun (quote input-funbox) "step" "STEP" 1))) (om-make-point 113 251) nil nil "&" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "X-TRANSFER" (quote x-transfer) (quote ((om-load-inputfun (quote input-funbox) "a list or BPF" "SELF" nil) (om-load-inputfun (quote input-funbox) "X value" "X-VAL" (list 0 100)))) (om-make-point 264 249) nil nil "l" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "MAPCAR" (quote mapcar) (quote ((om-load-inputfun (quote input-funbox) "FUNCTION" "FUNCTION" nil) (om-load-inputfun (quote input-funbox) "LIST" "LIST" nil))) (om-make-point 278 353) (om-make-point 49 43) nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((8 0 0 0 nil 0) (6 0 2 0 nil 0) (1 0 5 0 nil 0) (3 0 5 1 nil 0) (1 0 6 1 nil 0) (5 0 6 2 nil 0) (4 0 7 0 nil 0) (7 0 8 0 nil 0) (6 0 8 1 nil 0))) 7.05 nil "" (om-make-point 200 200) (om-make-point 852 656)) (quote ((om-load-inputfun (quote input-funbox) "" "bpf" nil) (om-load-inputfun (quote input-funbox) "" "subdivision" nil))) (om-make-point 908/5 379) nil (list (list 0 0.36959913571644626D0 0.7391982714328925D0 1.1087974071493388D0 1.478396542865785D0 1.8479956785822314D0 2.2175948142986775D0 2.5871939500151236D0 2.9567930857315697D0 3.3263922214480157D0 3.695991357164462D0 4.065590492880908D0 4.435189628597354D0 4.8047887643138D0 5.174387900030246D0 5.543987035746692D0 5.913586171463138D0 6.2831853071795845D0) (list 1.0 0.18587143886244106D0 0.5205315169032593D0 0.47224463589773897D0 0.7960858439155412D0 0.1037221361032747D0 0.6344344898260806D0 0.6646857341281518D0 0.37242512306009473D0 0.37244687869847815D0 0.6646853458907291D0 0.6344210177190155D0 0.10378253472752241D0 0.7959736541834107D0 0.47234782653463104D0 0.5204859039299866D0 0.18595262035676696D0 0.99989)) nil "quantization"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "REPEAT-N" (quote repeat-n) (quote ((om-load-inputfun (quote input-funbox) "something" "SELF" nil) (om-load-inputfun (quote input-funbox) "times" "N" 0))) (om-make-point 894 467) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "MKTREE" (quote mktree) (quote ((om-load-inputfun (quote input-funbox) "list of integer ratios" "RHYTHM" (list 1/4 1/4 1/4 1/4)) (om-load-inputfun (quote input-funbox) "list of time signatures" "TIMESIGNS" (list 3 4)))) (om-make-point 904 575) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "VOICE" (quote voice) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "a list representing a rhythm tree" "tree" (list (quote ?) (list (list (list 4 4) (list 1 1 1 1))))) (om-load-inputfun (quote input-funbox) "a chord object, a list of chords, a list of midics, a list of lists of midics..." "chords" (list (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord))) (om-load-inputfun (quote input-funbox) "frequency of the quarter-note (default 60/mn)" "tempo" 60) (om-load-inputfun (quote input-funbox) "overlapping percentage between every successive chords, calculated from the second chord's duration" "legato" 100) (om-load-inputfun (quote input-funbox) "sub lists (one sub list per chord) indicating notes to be tied to notes of the same value, in a next chord" "ties" nil))) (om-make-point 691 720) (om-make-point 316 116) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (3/2 (((4 8) (1 1 1 1)) ((4 8) (1 1 1 1)) ((4 8) (1 1 1 1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (5300 5800 6500)) :ldur (quote (500 500 500)) :lvel (quote (110 110 110)) :loffset (quote (0 0 0)) :lchan (quote (1 1 1))))) (load-port-info thechord (quote (0 0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900 5300 5100)) :ldur (quote (500 500 500)) :lvel (quote (66 66 66)) :loffset (quote (0 0 0)) :lchan (quote (1 1 1))))) (load-port-info thechord (quote (0 0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000 6900 5200)) :ldur (quote (500 500 500)) :lvel (quote (57 57 57)) :loffset (quote (0 0 0)) :lchan (quote (1 1 1))))) (load-port-info thechord (quote (0 0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700 7100 7200)) :ldur (quote (500 500 500)) :lvel (quote (83 83 83)) :loffset (quote (0 0 0)) :lchan (quote (1 1 1))))) (load-port-info thechord (quote (0 0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200 6800 5400)) :ldur (quote (500 500 500)) :lvel (quote (30 30 30)) :loffset (quote (0 0 0)) :lchan (quote (1 1 1))))) (load-port-info thechord (quote (0 0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300 6000 4900)) :ldur (quote (500 500 500)) :lvel (quote (20 20 20)) :loffset (quote (0 0 0)) :lchan (quote (1 1 1))))) (load-port-info thechord (quote (0 0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400 6200 7100)) :ldur (quote (500 500 500)) :lvel (quote (57 57 57)) :loffset (quote (0 0 0)) :lchan (quote (1 1 1))))) (load-port-info thechord (quote (0 0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400 6100 6400)) :ldur (quote (500 500 500)) :lvel (quote (20 20 20)) :loffset (quote (0 0 0)) :lchan (quote (1 1 1))))) (load-port-info thechord (quote (0 0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400 5000 6500)) :ldur (quote (500 500 500)) :lvel (quote (30 30 30)) :loffset (quote (0 0 0)) :lchan (quote (1 1 1))))) (load-port-info thechord (quote (0 0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500 6800 6100)) :ldur (quote (500 500 500)) :lvel (quote (83 83 83)) :loffset (quote (0 0 0)) :lchan (quote (1 1 1))))) (load-port-info thechord (quote (0 0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900 4900 5800)) :ldur (quote (500 500 500)) :lvel (quote (57 57 57)) :loffset (quote (0 0 0)) :lchan (quote (1 1 1))))) (load-port-info thechord (quote (0 0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900 7000 5800)) :ldur (quote (500 500 500)) :lvel (quote (66 66 66)) :loffset (quote (0 0 0)) :lchan (quote (1 1 1))))) (load-port-info thechord (quote (0 0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote (((0 0 0) (0 0 0) (0 0 0) (0 0 0)) ((0 0 0) (0 0 0) (0 0 0) (0 0 0)) ((0 0 0) (0 0 0) (0 0 0) (0 0 0))))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) nil nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode cursor-mode show-stems scale onset measure)) (list 2 24 (quote g) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (om-make-point 0 0) nil nil (quote :midi-player) 29/20 nil 1000 0 (om-make-point 1276 495) (om-make-point 400 38) 0 1 (quote :normal) (quote t) nil nil nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM-SCALE" (quote om-scale) (quote ((om-load-inputfun (quote input-funbox) "number or list" "SELF" 10) (om-load-inputfun (quote input-funbox) "a number" "MINOUT" 10) (om-load-inputfun (quote input-funbox) "a number" "MAXOUT" 120))) (om-make-point 726 602) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "MAPCAR" (quote mapcar) (quote ((om-load-inputfun (quote input-funbox) "FUNCTION" "FUNCTION" nil) (om-load-inputfun (quote input-funbox) "LIST" "LIST" nil))) (om-make-point 642 664) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "make-chord" (om-load-patch-abs1 "make-chord" (quote ((let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 328 273) (om-make-point 41 30) 100 "100" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM*" (quote om*) (quote ((om-load-inputfun (quote input-funbox) "number or list" "ARG1" 0) (om-load-inputfun (quote input-funbox) "number or list" "ARG2" 0))) (om-make-point 318 303) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "REPEAT-N" (quote repeat-n) (quote ((om-load-inputfun (quote input-funbox) "something" "SELF" nil) (om-load-inputfun (quote input-funbox) "times" "N" 3))) (om-make-point 259 244) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 285 147) (om-make-point 34 30) 72 "72" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 238 133) (om-make-point 34 30) 48 "48" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM-RANDOM" (quote om-random) (quote ((om-load-inputfun (quote input-funbox) "min" "LOW" 48) (om-load-inputfun (quote input-funbox) "max" "HIGH" 1))) (om-make-point 243 177) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LIST" (quote list) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 105 126) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxout "output" 0 (om-make-point 48 285) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD" (quote chord) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (list of midicents)" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "velocities (list of values 0-127)" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (list of values in ms)" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "durations (list of values in ms)" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "MIDI channels (list of values 0-16)" "lchan" (list 1)))) (om-make-point 63 192) (om-make-point 60 90) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) nil nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode cursor-mode show-stems scale onset measure)) (list 2 24 (quote g) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (om-make-point 0 0) nil nil (quote :midi-player) 1 nil 1000 0 (om-make-point 370 280) (om-make-point 400 20) 0 0 (quote :normal) (quote t) nil nil nil)) nil nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input" 0 (om-make-point 60 46) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((2 0 1 0 nil 0) (0 0 1 1 nil 0) (5 0 2 0 nil 0) (4 0 5 0 nil 0) (3 0 5 1 nil 0) (9 0 6 0 nil 0) (8 0 7 0 nil 0) (1 0 8 1 nil 0) (6 0 8 2 nil 0))) 7.05 nil "" (om-make-point 200 200) (om-make-point 500 400)) (quote ((om-load-inputfun (quote input-funbox) "" "input" nil))) (om-make-point 577 586) nil (list nil) "l" "make-chord"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "BPF" (quote bpf) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "X coordinates (list)" "x-points" (list 0 100)) (om-load-inputfun (quote input-funbox) "Y coordinates (list)" "y-points" (list 0 100)) (om-load-inputfun (quote input-funbox) "precision (integer) [0 - 10]" "decimals" 5))) (om-make-point 172 233) (om-make-point 184 105) (let ((newobj (when (find-class (quote bpf) nil) (let ((newbpf (simple-bpf-from-list (quote (0.0 0.01 0.02 0.03 0.04 0.05 0.06 0.07 0.08 0.09 0.1 0.11 0.12 0.13 0.14 0.15 0.16 0.17 0.18 0.19 0.2 0.21 0.22 0.23 0.24 0.25 0.26 0.27 0.28 0.29 0.3 0.31 0.32 0.33 0.34 0.35 0.36 0.37 0.38 0.39 0.4 0.41 0.42 0.43 0.44 0.45 0.46 0.47 0.48 0.49 0.5 0.51 0.52 0.53 0.54 0.55 0.56 0.57 0.58 0.59 0.6 0.61 0.62 0.63 0.64 0.65 0.66 0.67 0.68 0.69 0.7 0.71 0.72 0.73 0.74 0.75 0.76 0.77 0.78 0.79 0.8 0.81 0.82 0.83 0.84 0.85 0.86 0.87 0.88 0.89 0.9 0.91 0.92 0.93 0.94 0.95 0.96 0.97 0.98 0.99 1.0 1.01 1.02 1.03 1.04 1.05 1.06 1.07 1.08 1.09 1.1 1.11 1.12 1.13 1.14 1.15 1.16 1.17 1.18 1.19 1.2 1.21 1.22 1.23 1.24 1.25 1.26 1.27 1.28 1.29 1.3 1.31 1.32 1.33 1.34 1.35 1.36 1.37 1.38 1.39 1.4 1.41 1.42 1.43 1.44 1.45 1.46 1.47 1.48 1.49 1.5 1.51 1.52 1.53 1.54 1.55 1.56 1.57 1.58 1.59 1.6 1.61 1.62 1.63 1.64 1.65 1.66 1.67 1.68 1.69 1.7 1.71 1.72 1.73 1.74 1.75 1.76 1.77 1.78 1.79 1.8 1.81 1.82 1.83 1.84 1.85 1.86 1.87 1.88 1.89 1.9 1.91 1.92 1.93 1.94 1.95 1.96 1.97 1.98 1.99 2.0 2.01 2.02 2.03 2.04 2.05 2.06 2.07 2.08 2.09 2.1 2.11 2.12 2.13 2.14 2.15 2.16 2.17 2.18 2.19 2.2 2.21 2.22 2.23 2.24 2.25 2.26 2.27 2.28 2.29 2.3 2.31 2.32 2.33 2.34 2.35 2.36 2.37 2.38 2.39 2.4 2.41 2.42 2.43 2.44 2.45 2.46 2.47 2.48 2.49 2.5 2.51 2.52 2.53 2.54 2.55 2.56 2.57 2.58 2.59 2.6 2.61 2.62 2.63 2.64 2.65 2.66 2.67 2.68 2.69 2.7 2.71 2.72 2.73 2.74 2.75 2.76 2.77 2.78 2.79 2.8 2.81 2.82 2.83 2.84 2.85 2.86 2.87 2.88 2.89 2.9 2.91 2.92 2.93 2.94 2.95 2.96 2.97 2.98 2.99 3.0 3.01 3.02 3.03 3.04 3.05 3.06 3.07 3.08 3.09 3.1 3.11 3.12 3.13 3.14 3.15 3.16 3.17 3.18 3.19 3.2 3.21 3.22 3.23 3.24 3.25 3.26 3.27 3.28 3.29 3.3 3.31 3.32 3.33 3.34 3.35 3.36 3.37 3.38 3.39 3.4 3.41 3.42 3.43 3.44 3.45 3.46 3.47 3.48 3.49 3.5 3.51 3.52 3.53 3.54 3.55 3.56 3.57 3.58 3.59 3.6 3.61 3.62 3.63 3.64 3.65 3.66 3.67 3.68 3.69 3.7 3.71 3.72 3.73 3.74 3.75 3.76 3.77 3.78 3.79 3.8 3.81 3.82 3.83 3.84 3.85 3.86 3.87 3.88 3.89 3.9 3.91 3.92 3.93 3.94 3.95 3.96 3.97 3.98 3.99 4.0 4.01 4.02 4.03 4.04 4.05 4.06 4.07 4.08 4.09 4.1 4.11 4.12 4.13 4.14 4.15 4.16 4.17 4.18 4.19 4.2 4.21 4.22 4.23 4.24 4.25 4.26 4.27 4.28 4.29 4.3 4.31 4.32 4.33 4.34 4.35 4.36001 4.37001 4.38001 4.39001 4.40001 4.41001 4.42001 4.43001 4.44001 4.45001 4.46001 4.47001 4.48001 4.49001 4.50001 4.51001 4.52001 4.53001 4.54001 4.55001 4.56001 4.57001 4.58001 4.59001 4.60001 4.61001 4.62001 4.63001 4.64001 4.65001 4.66001 4.67001 4.68001 4.69001 4.70001 4.71001 4.72001 4.73001 4.74001 4.75001 4.76001 4.77001 4.78001 4.79001 4.80002 4.81002 4.82002 4.83002 4.84002 4.85002 4.86002 4.87002 4.88002 4.89002 4.90002 4.91002 4.92002 4.93002 4.94002 4.95002 4.96002 4.97002 4.98002 4.99002 5.00002 5.01002 5.02002 5.03002 5.04002 5.05002 5.06002 5.07002 5.08002 5.09002 5.10002 5.11002 5.12002 5.13002 5.14002 5.15002 5.16002 5.17002 5.18002 5.19002 5.20002 5.21002 5.22002 5.23002 5.24003 5.25003 5.26003 5.27003 5.28003 5.29003 5.30003 5.31003 5.32003 5.33003 5.34003 5.35003 5.36003 5.37003 5.38003 5.39003 5.40003 5.41003 5.42003 5.43003 5.44003 5.45003 5.46003 5.47003 5.48003 5.49003 5.50003 5.51003 5.52003 5.53003 5.54003 5.55003 5.56003 5.57003 5.58003 5.59003 5.60003 5.61003 5.62003 5.63003 5.64003 5.65003 5.66003 5.67004 5.68004 5.69004 5.70004 5.71004 5.72004 5.73004 5.74004 5.75004 5.76004 5.77004 5.78004 5.79004 5.80004 5.81004 5.82004 5.83004 5.84004 5.85004 5.86004 5.87004 5.88004 5.89004 5.90004 5.91004 5.92004 5.93004 5.94004 5.95004 5.96004 5.97004 5.98004 5.99004 6.00004 6.01004 6.02004 6.03004 6.04004 6.05004 6.06004 6.07004 6.08004 6.09004 6.10005 6.11005 6.12005 6.13005 6.14005 6.15005 6.16005 6.17005 6.18005 6.19005 6.20005 6.21005 6.22005 6.23005 6.24005 6.25005 6.26005 6.27005 6.28005)) (quote (1.0 0.99889 0.99556 0.99003 0.98233 0.97249 0.96059 0.94666 0.93079 0.91307 0.89357 0.87242 0.84972 0.82558 0.80013 0.77351 0.74586 0.71731 0.68801 0.65811 0.62778 0.59715 0.56638 0.53563 0.50505 0.47479 0.44501 0.41583 0.3874 0.35986 0.33334 0.30795 0.2838 0.26102 0.23968 0.21988 0.20171 0.18521 0.17047 0.15751 0.14639 0.13712 0.12973 0.12421 0.12056 0.11877 0.1188 0.12062 0.12419 0.12944 0.13631 0.14472 0.1546 0.16585 0.17838 0.19209 0.20687 0.2226 0.23918 0.25648 0.27438 0.29276 0.31149 0.33046 0.34953 0.3686 0.38754 0.40623 0.42457 0.44246 0.45978 0.47644 0.49237 0.50747 0.52167 0.5349 0.54711 0.55826 0.56829 0.57717 0.58489 0.59143 0.59678 0.60095 0.60396 0.60583 0.60658 0.60627 0.60492 0.60261 0.59939 0.59533 0.5905 0.58498 0.57885 0.57222 0.56515 0.55776 0.55013 0.54235 0.53454 0.52679 0.51918 0.51182 0.5048 0.4982 0.49212 0.48662 0.48179 0.47769 0.4744 0.47195 0.47041 0.46982 0.4702 0.47159 0.474 0.47744 0.4819 0.48739 0.49387 0.50133 0.50973 0.51903 0.52917 0.54009 0.55174 0.56402 0.57687 0.59019 0.6039 0.61789 0.63207 0.64633 0.66057 0.67467 0.68852 0.70201 0.71503 0.72747 0.73923 0.75018 0.76024 0.7693 0.77726 0.78405 0.78957 0.79376 0.79653 0.79784 0.79762 0.79584 0.79245 0.78744 0.78079 0.77249 0.76255 0.75099 0.73782 0.72309 0.70683 0.68911 0.66999 0.64955 0.62786 0.60503 0.58115 0.55633 0.53069 0.50435 0.47742 0.45006 0.42239 0.39456 0.3667 0.33897 0.31151 0.28447 0.25798 0.2322 0.20726 0.18332 0.16048 0.1389 0.11869 0.09997 0.08285 0.06743 0.05381 0.04206 0.03228 0.02451 0.01881 0.01524 0.01381 0.01456 0.01749 0.0226 0.02988 0.0393 0.05082 0.0644 0.07997 0.09747 0.11681 0.13792 0.16067 0.18498 0.2107 0.23774 0.26595 0.29519 0.32532 0.35619 0.38766 0.41956 0.45173 0.48403 0.51628 0.54834 0.58005 0.61124 0.64178 0.67152 0.7003 0.72801 0.7545 0.77965 0.80335 0.8255 0.84599 0.86474 0.88167 0.89671 0.90981 0.92092 0.93 0.93703 0.942 0.94492 0.94578 0.94461 0.94144 0.93632 0.9293 0.92045 0.90983 0.89753 0.88363 0.86825 0.85148 0.83343 0.81422 0.79397 0.77282 0.75089 0.72831 0.70522 0.68175 0.65803 0.63421 0.61042 0.58678 0.56343 0.54048 0.51806 0.49628 0.47525 0.45507 0.43582 0.41761 0.4005 0.38457 0.36987 0.35647 0.34439 0.33368 0.32436 0.31643 0.30991 0.30478 0.30103 0.29865 0.29759 0.29781 0.29926 0.30188 0.30562 0.31039 0.31613 0.32273 0.33013 0.33822 0.34692 0.35611 0.3657 0.3756 0.38568 0.39587 0.40605 0.41611 0.42598 0.43555 0.44473 0.45344 0.46159 0.46912 0.47595 0.48202 0.48728 0.49167 0.49517 0.49773 0.49935 0.49999 0.49966 0.49836 0.49609 0.49289 0.48878 0.48379 0.47798 0.47138 0.46407 0.45611 0.44758 0.43854 0.42908 0.4193 0.40929 0.39914 0.38895 0.37882 0.36885 0.35915 0.34982 0.34096 0.33266 0.32503 0.31816 0.31214 0.30706 0.30298 0.29999 0.29816 0.29754 0.29819 0.30015 0.30346 0.30814 0.31422 0.32169 0.33057 0.34085 0.35249 0.36547 0.37976 0.3953 0.41204 0.42991 0.44883 0.46872 0.4895 0.51105 0.53328 0.55607 0.5793 0.60287 0.62662 0.65045 0.67421 0.69777 0.72099 0.74375 0.76591 0.78732 0.80787 0.82742 0.84585 0.86304 0.87888 0.89326 0.90608 0.91724 0.92667 0.93428 0.94001 0.9438 0.94562 0.9454 0.94315 0.93883 0.93246 0.92403 0.91356 0.9011 0.88667 0.87034 0.85216 0.83222 0.81059 0.78737 0.76266 0.73659 0.70926 0.6808 0.65136 0.62106 0.59005 0.55849 0.52653 0.49432 0.46202 0.42979 0.39778 0.36617 0.33509 0.3047 0.27516 0.24661 0.21919 0.19303 0.16826 0.14499 0.12335 0.10344 0.08534 0.06915 0.05492 0.04274 0.03265 0.02469 0.01889 0.01526 0.01382 0.01455 0.01744 0.02247 0.02958 0.03874 0.04987 0.0629 0.07775 0.09434 0.11257 0.13232 0.15347 0.17592 0.19953 0.22417 0.24969 0.27597 0.30285 0.3302 0.35786 0.38569 0.41355 0.44128 0.46876 0.49583 0.52237 0.54825 0.57335 0.59754 0.62071 0.64277 0.66362 0.68316 0.70133 0.71806 0.73328 0.74695 0.75903 0.76949 0.77831 0.78548 0.79101 0.79491 0.79719 0.7979 0.79708 0.79476 0.79102 0.78591 0.77952 0.77192 0.76319 0.75344 0.74276 0.73125 0.71902 0.70617 0.69282 0.67907 0.66504 0.65083 0.63657 0.62236 0.6083 0.59449 0.58104 0.56803 0.55556 0.54371 0.53255 0.52216 0.51259 0.5039 0.49614 0.48935 0.48354 0.47876 0.475 0.47227 0.47056 0.46986 0.47016 0.4714 0.47357 0.4766 0.48045 0.48506 0.49036 0.49627 0.50272 0.50961 0.51688 0.52442 0.53214 0.53995 0.54774 0.55543 0.56291 0.57009 0.57687 0.58317 0.58889 0.59395 0.59826 0.60176 0.60436 0.60601 0.60666 0.60625 0.60474 0.60209 0.59828 0.5933 0.58713 0.57978 0.57126 0.56159 0.55079 0.53891 0.52599 0.51208 0.49726 0.48158 0.46513 0.44801 0.43028 0.41207 0.39347 0.3746 0.35555 0.33646 0.31744 0.29862 0.28011 0.26204 0.24454 0.22772 0.2117 0.19661 0.18254 0.16962 0.15795 0.14763 0.13874 0.13137 0.1256 0.1215 0.11912 0.11851 0.11973 0.12279 0.12771 0.13451 0.14319 0.15373 0.16611 0.1803 0.19624 0.2139 0.23319 0.25406 0.2764 0.30012 0.32513 0.35132 0.37855 0.40671 0.43567 0.46528 0.49541 0.52591 0.55662 0.5874 0.61809 0.64855 0.6786 0.7081 0.73691 0.76486 0.79183 0.81766 0.84223 0.8654 0.88706 0.90708 0.92538 0.94185 0.95639 0.96895 0.97945 0.98783 0.99405 0.99808 0.99989)) (quote bpf) 5))) (setf (bpfcolor newbpf) (om-make-color 0 0 0)) (set-name newbpf "BPF") newbpf)))) (when newobj) newobj) "x" nil (pairlis (quote (winsize winpos picture)) (list (om-make-point 783 402) (om-make-point 261 176) nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((14 0 13 1 nil 0) (14 1 13 2 nil 0) (17 0 14 0 nil 0) (12 0 14 1 nil 0) (18 0 17 1 nil 0) (18 1 17 2 nil 0) (16 1 18 0 nil 0) (15 1 18 1 nil 0) (24 0 19 1 nil 0) (24 1 19 2 nil 0) (19 1 20 1 nil 0) (22 0 20 2 nil 0) (19 2 22 0 nil 0) (21 0 22 1 nil 0) (31 0 24 0 nil 0) (23 0 24 1 nil 0) (8 0 25 0 nil 0) (12 0 25 1 nil 0) (25 0 26 0 nil 0) (9 0 26 1 nil 0) (26 0 27 1 nil 0) (29 0 27 2 nil 0) (13 2 28 0 nil 0) (11 0 28 1 nil 0) (10 0 28 2 nil 0) (30 0 29 0 nil 0) (28 0 29 1 nil 0))) (list (let ((newpict (make-instance (quote patch-picture) :name "Logo OM-SRR" :source (quote om-srr) :pict-pathname (restore-pict-path (restore-path nil)) :thepict (om-get-picture "Logo OM-SRR" (quote om-srr)) :storemode :external :draw-params (quote (p 0 0 100 100)) :extraobjs nil))) (setf (pict-pos newpict) (om-make-point 73 32)) (setf (pict-size newpict) (om-make-point 168 112)) newpict)) 7.05))
|
