From 7ae4f2f25c9264111a9bd19ac5b3c953dec6d330 Mon Sep 17 00:00:00 2001 From: Marlon Schumacher <schumacher@hfm-karlsruhe.de> Date: Fri, 28 Mar 2025 04:02:01 +0100 Subject: [PATCH] Merge tag '0.1.0' into develop --- examples/5-export.omp | 6 ++++++ 1 files changed, 6 insertions(+), 0 deletions(-) diff --git a/examples/5-export.omp b/examples/5-export.omp new file mode 100644 index 0000000..d435bfe --- /dev/null +++ b/examples/5-export.omp @@ -0,0 +1,6 @@ +; OM File Header - Saved 2025/03/28 03:56:24 +; (7.05 :patc (om-make-point 62 296) (om-make-point 276 82) (om-make-point 1073 877) "" 183 0 "2025/03/27 23:47:18" "2025/03/28 03:56:24") +; End File Header +; External resources +; (list (list (quote :picture) "#P\"../../../../../../../../../Shared/_Development/OM-SRR/resources/pict/Logo OM-SRR\"")) +(in-package :om)(load-lib-for (quote nil))(setf *om-current-persistent* (om-load-patch1 "5-export" (quote ((let ((box (om-load-boxcomment "comment 5" (om-make-point 209 34) (quote "As OSC-Bundles (Realtime)") "" (om-make-point 730 230) 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 4" (om-make-point 91 30) (quote "Value Range") "" (om-make-point 370 297) 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 5" (om-make-point 227 34) (quote "As MIDI Controller (MIDI File)") "" (om-make-point 202 210) 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 4" (om-make-point 87 45) (quote "Time Range$(ms)") "" (om-make-point 107 288) 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 3" (om-make-point 116 58) (quote "OM-SRR") "" (om-make-point 247 50) 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-boxcomment "comment 2" (om-make-point 182 44) (quote "Options for Export") "" (om-make-point 251 87) 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-boxcall (quote bastype) "aux 7" (quote t) (quote nil) (om-make-point 913 407) (om-make-point 48 30) 3000 "3000" 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 822 397) (om-make-point 84 30) "127.0.0.1" "\"127.0.0.1\"" 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 744 274) (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 2") 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) (let ((box (om-load-boxwithed1 (quote box-with-win) "OSC-Sender" (quote omloop) (quote ((om-load-inputfun (quote input-funbox) "" "bpf" nil) (om-load-inputfun (quote input-funbox) "" "IP" nil) (om-load-inputfun (quote input-funbox) "" "Port" nil))) (om-make-point 762 463) nil nil nil (list (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 382 583) (om-make-point 57 30) "done" "\"done\"" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "Port" 2 (om-make-point 360 320) "" "Port" nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "IP" 1 (om-make-point 321 320) "" "IP" nil 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 376 271) (om-make-point 56 30) "/test" "\"/test\"" nil))) (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-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 393 334) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-seqbox "SEQUENCE" (quote sequence) (quote ((om-load-inputfun (quote input-funbox) "something" "PATCH" nil) (om-load-inputfun (quote input-funbox) "more things" "OPPATCH" nil))) (om-make-point 226 553) nil nil nil 2))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "SLEEP" (quote sleep) (quote ((om-load-inputfun (quote input-funbox) "TIME" "TIME" nil))) (om-make-point 180 465) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "PLAY" (quote play) (quote ((om-load-inputfun (quote input-funbox) "object" "SELF" nil))) (om-make-point 268 467) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "OSCEVENT" (quote oscevent) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "an IP address" "host" "127.0.0.1") (om-load-inputfun (quote input-funbox) "a port number" "port" 3000) (om-load-inputfun (quote input-funbox) "message formatted as a list" "bundle" (list "/test" 0)))) (om-make-point 300 388) (om-make-point 132 74) (if (find-class (quote oscevent) nil) (let ((newobj (make-instance (quote oscevent) :host "127.0.0.1" :port 3000 :bundle (list "/test" 0) :from-file t))) (load-port-info newobj (quote nil)) (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 (scale show-stems winpos winsize mode grillestep notechancolor? cmnpref obj-mode zoom deltapict player onset measure)) (list nil (quote t) (om-make-point 150 100) (om-make-point 250 280) 0 1000 nil (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) 0 1 (om-make-point 0 0) (quote :osc-player) nil nil)) nil nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "X->DX" (quote x->dx) (quote ((om-load-inputfun (quote input-funbox) "a list of numbers" "SELF" (list 0 1)))) (om-make-point 181 293) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "inlist 2" (quote listloop) (quote ((om-load-inputfun (quote input-funbox) "list to iterate" "LIST" nil))) (om-make-point 278 240) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "inlist" (quote listloop) (quote ((om-load-inputfun (quote input-funbox) "list to iterate" "LIST" nil))) (om-make-point 176 372) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote slot) "slot" (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" 0))) (om-make-point 198 158) nil nil nil nil 4))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "bpf" 0 (om-make-point 143 80) "" "bpf" nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-seqbox "finally" (quote finaldo) (quote ((om-load-inputfun (quote input-funbox) "value to return" "VAL" nil))) (om-make-point 368 613) nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-seqbox "eachTime" (quote loopdo) (quote ((om-load-inputfun (quote input-funbox) "operations to do" "OP" nil))) (om-make-point 234 614) nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box)) (quote ((3 0 4 0 nil 0) (10 0 4 1 nil 0) (6 0 5 0 nil 0) (7 0 5 1 nil 0) (11 0 6 0 nil 0) (8 0 7 0 nil 0) (2 0 8 1 nil 0) (1 0 8 2 nil 0) (4 0 8 3 nil 0) (12 1 9 0 nil 0) (12 2 10 0 nil 0) (9 0 11 0 nil 0) (13 0 12 0 nil 0) (0 0 14 0 nil 0) (5 1 15 0 nil 0))) 1 "osc-sender" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "SAVE-AS-MIDI" (quote save-as-midi) (quote ((om-load-inputfun (quote input-funbox) "" "OBJECT" nil))) (om-make-point 194 761) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "MIDICONTROL" (quote midicontrol) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfunmenu1 (quote input-funmenu) "type of event (string)" "ctrltype" "ModulationWheel" (list (list "-- Tempo (bpm)" "Tempo") (list "-- KeyPress" "KeyPress") (list "-- ChanPress" "ChanPress") (list "-- PitchBend (0 to 127)" "PitchBend") (list "-- PitchWheel (0 to 16383)" "PitchWheel") (list "00 Bank Select" "BankSelect") (list "01 Modulation Wheel" "ModulationWheel") (list "02 Breath Controller" "BreathController") (list "04 Foot Controller" "FootController") (list "05 Portamento Time" "PortamentoTime") (list "06 Data Entry MSB" "DataEntryMSB") (list "07 Channel Volume" "ChannelVolume") (list "08 Balance" "Balance") (list "10 Pan" "Pan") (list "11 Expression Controller" "ExpressionController") (list "12 Effect Control 1" "EffectControl1") (list "13 Effect Control 2" "EffectControl2") (list "16 General Purpose Controller 1" "GeneralPurposeController1") (list "17 General Purpose Controller 2" "GeneralPurposeController2") (list "18 General Purpose Controller 3" "GeneralPurposeController3") (list "19 General Purpose Controller 4" "GeneralPurposeController4") (list "00/32 Bank Select Fine" "BankSelectFine") (list "01/33 Modulation Wheel Fine" "ModulationWheelFine") (list "02/34 Breath Controller Fine" "BreathControllerFine") (list "04/36 Foot Controller Fine" "FootControllerFine") (list "05/37 Portamento Time Fine" "PortamentoTimeFine") (list "06/38 Data Entry MSB-LSB Fine" "DataEntryMSBLSB") (list "07/39 Channel Volume Fine" "ChannelVolumeFine") (list "08/40 Balance Fine" "BalanceFine") (list "10/42 Pan Fine" "PanFine") (list "11/43 Expression Controller Fine" "ExpressionControllerFine") (list "12/44 Effect Control 1 Fine" "EffectControl1Fine") (list "13/45 Effect Control 2 Fine" "EffectControl2Fine") (list "16/48 General Purpose Controller 1 Fine" "GeneralPurposeController1Fine") (list "17/49 General Purpose Controller 2 Fine" "GeneralPurposeController2Fine") (list "18/50 General Purpose Controller 3 Fine" "GeneralPurposeController3Fine") (list "19/51 General Purpose Controller 4 Fine" "GeneralPurposeController4Fine") (list "64 Damper Pedal on/off (Sustain)" "DamperPedal") (list "65 Portamento On/Off" "Portamento") (list "66 Sustenuto On/Off" "Sustenuto") (list "67 Soft Pedal On/Off" "SoftPedal") (list "68 Legato Footswitch" "LegatoFootswitch") (list "69 Hold 2 (on/off)" "Hold2") (list "70 Sound Controller 1" "SoundController1") (list "71 Sound Controller 2" "SoundController2") (list "72 Sound Controller 3" "SoundController3") (list "73 Sound Controller 4" "SoundController4") (list "74 Sound Controller 5" "SoundController5") (list "75 Sound Controller 6" "SoundController6") (list "76 Sound Controller 7" "SoundController7") (list "77 Sound Controller 8" "SoundController8") (list "78 Sound Controller 9" "SoundController9") (list "79 Sound Controller 10" "SoundController10") (list "84 Portamento Control" "PortamentoControl") (list "91 Effects 1 Depth" "Effects1Depth") (list "92 Effects 2 Depth" "Effects2Depth") (list "93 Effects 3 Depth" "Effects3Depth") (list "94 Effects 4 Depth" "Effects4Depth") (list "95 Effects 5 Depth" "Effects5Depth") (list "96 Data Increment" "DataIncrement") (list "-- Private" "Private"))) (om-load-inputfun (quote input-funbox) "event dates (ms)" "Ldates" nil) (om-load-inputfun (quote input-funbox) "track number" "ref" 0) (om-load-inputfun (quote input-funbox) "output port number" "port" 0) (om-load-inputfun (quote input-funbox) "MIDI channel (1-16)" "chan" 1) (om-load-inputfun (quote input-funbox) "value list" "Lvalues" nil))) (om-make-point 181 631) (om-make-point 443 124) (let ((newobj (when (find-class (quote midicontrol) nil) (let ((newctrl (simple-bpf-from-list (quote (0 48 97 145 194 242 290 339 387 435 484 532 581 629 677 726 774 823 871 919 968 1016 1065 1113 1161 1210 1258 1306 1355 1403 1452 1500 1548 1597 1645 1694 1742 1790 1839 1887 1935 1984 2032 2081 2129 2177 2226 2274 2323 2371 2419 2468 2516 2565 2613 2661 2710 2758 2806 2855 2903 2952 3000 3048 3096 3145 3193 3242 3290 3338 3387 3435 3483 3532 3580 3629 3677 3725 3774 3822 3871 3919 3967 4016 4064 4113 4161 4209 4258 4306 4354 4403 4451 4500 4548 4596 4645 4693 4742 4790 4838 4887 4935 4983 5032 5080 5129 5177 5225 5274 5322 5371 5419 5467 5516 5564 5613 5661 5709 5758 5806 5854 5903 5951 6000 6048 6096 6144 6193 6241 6290 6338 6386 6435 6483 6531 6580 6628 6677 6725 6773 6822 6870 6919 6967 7015 7064 7112 7161 7209 7257 7306 7354 7402 7451 7499 7548 7596 7644 7693 7741 7790 7838 7886 7935 7983 8031 8080 8128 8177 8225 8273 8322 8370 8419 8467 8515 8564 8612 8661 8709 8757 8806 8854 8902 8951 8999 9048 9096 9144 9192 9241 9289 9338 9386 9434 9483 9531 9579 9628 9676 9725 9773 9821 9870 9918 9967 10015 10063 10112 10160 10209 10257 10305 10354 10402 10450 10499 10547 10596 10644 10692 10741 10789 10838 10886 10934 10983 11031 11079 11128 11176 11225 11273 11321 11370 11418 11467 11515 11563 11612 11660 11709 11757 11805 11854 11902 11950 11999 12047 12096 12144)) (quote (127 116 86 49 20 7 16 39 67 88 96 91 77 64 57 59 65 69 66 55 41 31 33 49 75 102 118 114 91 55 21 1 3 26 62 96 116 116 98 70 45 31 32 43 57 67 69 64 58 58 66 80 92 96 85 62 34 13 8 23 55 92 119 127 116 86 49 20 7 16 39 67 88 96 91 77 64 57 59 65 69 66 55 41 31 33 49 75 102 118 114 91 55 21 1 3 26 62 96 116 116 98 70 45 31 32 43 57 67 69 64 58 58 66 80 92 96 85 62 34 13 8 23 55 92 119 127 116 86 49 20 7 16 39 67 88 96 91 77 64 57 59 65 69 66 55 41 31 33 49 75 102 118 114 91 55 21 1 3 26 62 96 116 116 98 70 45 31 32 43 57 67 69 64 58 58 66 80 92 96 85 62 34 13 8 23 55 92 119 127 116 86 49 20 7 16 39 67 88 96 91 77 64 57 59 65 69 66 55 41 31 33 49 75 102 118 114 91 55 21 1 3 26 62 96 116 116 98 70 45 31 32 43 57 67 69 64 58 58 66 80 92 96 85 62 34 13 8 23 55 92 119)) (quote midicontrol) 0))) (setf (bpfcolor newctrl) (om-make-color 0 0 0)) (setf (ctrltype newctrl) (quote "ModulationWheel") (ref newctrl) (quote 0) (port newctrl) (quote 0) (chan newctrl) (quote 1) (ev-type newctrl) (quote :ctrlchange) (ctr-num newctrl) 1) newctrl)))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj "MIDICONTROL") (set-tonalite newobj nil) newobj) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx onset measure)) (list nil (quote t) (quote :normal) 1 0 (om-make-point 400 25) (om-make-point 370 280) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (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) (quote g) 24 2 nil 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 5" (quote t) (quote nil) (om-make-point 304 471) (om-make-point 27 30) 4 "4" nil))) (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 254 505) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "REDUCE" (quote reduce) (quote ((om-load-inputfun (quote input-funbox) "FUNCTION" "FUNCTION" nil) (om-load-inputfun (quote input-funbox) "SEQUENCE" "SEQUENCE" nil))) (om-make-point 216 580) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "BPF-CONCAT" (quote bpf-concat) (quote ((om-load-inputfun (quote input-funbox) "a bpf or bpc" "F1" nil) (om-load-inputfun (quote input-funbox) "a bpf or bpc" "F2" nil))) (om-make-point 164 503) nil nil "l" nil 1))) (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 247 252) (om-make-point 48 30) 3000 "3000" nil))) (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 216 252) (om-make-point 27 30) 0 "0" 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 370 255) (om-make-point 41 30) 127 "127" 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 336 254) (om-make-point 27 30) 1 "1" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM-SCALE 2" (quote om-scale) (quote ((om-load-inputfun (quote input-funbox) "number or list" "SELF" 10) (om-load-inputfun (quote input-funbox) "a number" "MINOUT" 1) (om-load-inputfun (quote input-funbox) "a number" "MAXOUT" 127))) (om-make-point 314 284) nil nil nil nil 1))) (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" 0) (om-load-inputfun (quote input-funbox) "a number" "MAXOUT" 3000))) (om-make-point 196 285) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "MIDICONTROL" (quote midicontrol) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfunmenu1 (quote input-funmenu) "type of event (string)" "ctrltype" "ModulationWheel" (list (list "-- Tempo (bpm)" "Tempo") (list "-- KeyPress" "KeyPress") (list "-- ChanPress" "ChanPress") (list "-- PitchBend (0 to 127)" "PitchBend") (list "-- PitchWheel (0 to 16383)" "PitchWheel") (list "00 Bank Select" "BankSelect") (list "01 Modulation Wheel" "ModulationWheel") (list "02 Breath Controller" "BreathController") (list "04 Foot Controller" "FootController") (list "05 Portamento Time" "PortamentoTime") (list "06 Data Entry MSB" "DataEntryMSB") (list "07 Channel Volume" "ChannelVolume") (list "08 Balance" "Balance") (list "10 Pan" "Pan") (list "11 Expression Controller" "ExpressionController") (list "12 Effect Control 1" "EffectControl1") (list "13 Effect Control 2" "EffectControl2") (list "16 General Purpose Controller 1" "GeneralPurposeController1") (list "17 General Purpose Controller 2" "GeneralPurposeController2") (list "18 General Purpose Controller 3" "GeneralPurposeController3") (list "19 General Purpose Controller 4" "GeneralPurposeController4") (list "00/32 Bank Select Fine" "BankSelectFine") (list "01/33 Modulation Wheel Fine" "ModulationWheelFine") (list "02/34 Breath Controller Fine" "BreathControllerFine") (list "04/36 Foot Controller Fine" "FootControllerFine") (list "05/37 Portamento Time Fine" "PortamentoTimeFine") (list "06/38 Data Entry MSB-LSB Fine" "DataEntryMSBLSB") (list "07/39 Channel Volume Fine" "ChannelVolumeFine") (list "08/40 Balance Fine" "BalanceFine") (list "10/42 Pan Fine" "PanFine") (list "11/43 Expression Controller Fine" "ExpressionControllerFine") (list "12/44 Effect Control 1 Fine" "EffectControl1Fine") (list "13/45 Effect Control 2 Fine" "EffectControl2Fine") (list "16/48 General Purpose Controller 1 Fine" "GeneralPurposeController1Fine") (list "17/49 General Purpose Controller 2 Fine" "GeneralPurposeController2Fine") (list "18/50 General Purpose Controller 3 Fine" "GeneralPurposeController3Fine") (list "19/51 General Purpose Controller 4 Fine" "GeneralPurposeController4Fine") (list "64 Damper Pedal on/off (Sustain)" "DamperPedal") (list "65 Portamento On/Off" "Portamento") (list "66 Sustenuto On/Off" "Sustenuto") (list "67 Soft Pedal On/Off" "SoftPedal") (list "68 Legato Footswitch" "LegatoFootswitch") (list "69 Hold 2 (on/off)" "Hold2") (list "70 Sound Controller 1" "SoundController1") (list "71 Sound Controller 2" "SoundController2") (list "72 Sound Controller 3" "SoundController3") (list "73 Sound Controller 4" "SoundController4") (list "74 Sound Controller 5" "SoundController5") (list "75 Sound Controller 6" "SoundController6") (list "76 Sound Controller 7" "SoundController7") (list "77 Sound Controller 8" "SoundController8") (list "78 Sound Controller 9" "SoundController9") (list "79 Sound Controller 10" "SoundController10") (list "84 Portamento Control" "PortamentoControl") (list "91 Effects 1 Depth" "Effects1Depth") (list "92 Effects 2 Depth" "Effects2Depth") (list "93 Effects 3 Depth" "Effects3Depth") (list "94 Effects 4 Depth" "Effects4Depth") (list "95 Effects 5 Depth" "Effects5Depth") (list "96 Data Increment" "DataIncrement") (list "-- Private" "Private"))) (om-load-inputfun (quote input-funbox) "event dates (ms)" "Ldates" nil) (om-load-inputfun (quote input-funbox) "track number" "ref" 0) (om-load-inputfun (quote input-funbox) "output port number" "port" 0) (om-load-inputfun (quote input-funbox) "MIDI channel (1-16)" "chan" 1) (om-load-inputfun (quote input-funbox) "value list" "Lvalues" nil))) (om-make-point 187 352) (om-make-point 172 113) (let ((newobj (when (find-class (quote midicontrol) nil) (let ((newctrl (simple-bpf-from-list (quote (0 48 97 145 194 242 290 339 387 435 484 532 581 629 677 726 774 823 871 919 968 1016 1065 1113 1161 1210 1258 1306 1355 1403 1452 1500 1548 1597 1645 1694 1742 1790 1839 1887 1935 1984 2032 2081 2129 2177 2226 2274 2323 2371 2419 2468 2516 2565 2613 2661 2710 2758 2806 2855 2903 2952 3000)) (quote (127 116 86 49 20 7 16 39 67 88 96 91 77 64 57 59 65 69 66 55 41 31 33 49 75 102 118 114 91 55 21 1 3 26 62 96 116 116 98 70 45 31 32 43 57 67 69 64 58 58 66 80 92 96 85 62 34 13 8 23 55 92 119)) (quote midicontrol) 0))) (setf (bpfcolor newctrl) (om-make-color 0 0 0)) (setf (ctrltype newctrl) (quote "ModulationWheel") (ref newctrl) (quote 0) (port newctrl) (quote 0) (chan newctrl) (quote 1) (ev-type newctrl) (quote :ctrlchange) (ctr-num newctrl) 1) newctrl)))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj "MIDICONTROL") (set-tonalite newobj nil) newobj) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx onset measure)) (list nil (quote t) (quote :normal) 1 0 (om-make-point 400 25) (om-make-point 370 280) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (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) (quote g) 24 2 nil nil)) t nil nil t (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((8 0 9 0 nil 0) (7 0 9 1 nil 0) (6 0 9 2 nil 0) (11 0 10 0 nil 0) (14 0 11 0 nil 0) (22 0 13 0 nil 0) (12 0 13 1 nil 0) (15 0 14 0 nil 0) (13 0 14 1 nil 0) (19 0 20 1 nil 0) (18 0 20 2 nil 0) (17 0 21 1 nil 0) (16 0 21 2 nil 0) (21 0 22 2 nil 0) (20 0 22 6 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 66 20)) (setf (pict-size newpict) (om-make-point 168 112)) newpict)) 7.05)) \ No newline at end of file -- Gitblit v1.9.1