From de99bd8f3e5a9febfbb1dc6a56e3534dac9215fe Mon Sep 17 00:00:00 2001
From: Marlon Schumacher <schumacher@hfm-karlsruhe.de>
Date: Tue, 11 Mar 2025 17:04:03 +0100
Subject: [PATCH] chore: updating tutorial patches
---
examples/1-basics/6-input-classes.omp | 6 ++++++
1 files changed, 6 insertions(+), 0 deletions(-)
diff --git a/examples/1-basics/6-input-classes.omp b/examples/1-basics/6-input-classes.omp
new file mode 100644
index 0000000..80ba285
--- /dev/null
+++ b/examples/1-basics/6-input-classes.omp
@@ -0,0 +1,6 @@
+; OM File Header - Saved 2025/03/11 17:03:18
+; (7.05 :patc (om-make-point 141 130) (om-make-point 369 287) (om-make-point 862 413) "" 183 0 nil "2025/03/11 17:03:18")
+; End File Header
+; External resources
+; (list (list (quote :picture) "#P\"../../../resources/pict/omsox\"") (list (quote :abstraction) "#P\"../support/input-combiners/sox-multiply.omp\"" "#P\"../support/input-combiners/sox-pan.omp\"" "#P\"../support/input-combiners/sox-hoaencode.omp\"" "#P\"../support/input-combiners/sox-split.omp\"" "#P\"../support/input-combiners/sox-remix.omp\"" "#P\"../support/input-combiners/sox-splice.omp\"" "#P\"../support/input-combiners/sox-concatenate.omp\"" "#P\"../support/input-combiners/sox-record.omp\"" "#P\"../support/input-combiners/sox-merge.omp\"" "#P\"../support/input-combiners/sox-mix.omp\""))
+(in-package :om)(load-lib-for (quote nil))(setf *om-current-persistent* (om-load-patch1 "6-input-classes" (quote ((let ((box (om-load-boxcall (quote patch-box) "sox-multiply" (quote ("elements" "OM-SoX-tutorial-patches" "support" "input-combiners" "sox-multiply")) (quote nil) (om-make-point 405 296) nil nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 8" (om-make-point 101 24) (quote "SoX-MULTIPLY") "" (om-make-point 403 273) nil (om-make-color 0.02832079 0.0 1.0) (om-make-font "Lucida Sans" 12 :family "Lucida Sans" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote patch-box) "sox-pan" (quote ("elements" "OM-SoX-tutorial-patches" "support" "input-combiners" "sox-pan")) (quote nil) (om-make-point 140 295) nil nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote patch-box) "sox-hoaencode" (quote ("elements" "OM-SoX-tutorial-patches" "support" "input-combiners" "sox-hoaencode")) (quote nil) (om-make-point 249 297) nil nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 7" (om-make-point 120 24) (quote "SoX-HOAENCODE") "" (om-make-point 249 273) nil (om-make-color 0.02832079 0.0 1.0) (om-make-font "Lucida Sans" 12 :family "Lucida Sans" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 6" (om-make-point 67 24) (quote "SoX-PAN") "" (om-make-point 137 274) nil (om-make-color 0.02832079 0.0 1.0) (om-make-font "Lucida Sans" 12 :family "Lucida Sans" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote patch-box) "sox-split" (quote ("elements" "OM-SoX-tutorial-patches" "support" "input-combiners" "sox-split")) (quote nil) (om-make-point 641 298) nil nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote patch-box) "sox-remix 2" (quote ("elements" "OM-SoX-tutorial-patches" "support" "input-combiners" "sox-remix")) (quote nil) (om-make-point 554 299) nil nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote patch-box) "sox-splice 2" (quote ("elements" "OM-SoX-tutorial-patches" "support" "input-combiners" "sox-splice")) (quote nil) (om-make-point 501 141) nil nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote patch-box) "sox-concatenate 2" (quote ("elements" "OM-SoX-tutorial-patches" "support" "input-combiners" "sox-concatenate")) (quote nil) (om-make-point 377 140) nil nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote patch-box) "sox-record 2" (quote ("elements" "OM-SoX-tutorial-patches" "support" "input-combiners" "sox-record")) (quote nil) (om-make-point 630 143) nil nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote patch-box) "sox-merge 2" (quote ("elements" "OM-SoX-tutorial-patches" "support" "input-combiners" "sox-merge")) (quote nil) (om-make-point 245 147) nil nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote patch-box) "sox-mix 2" (quote ("elements" "OM-SoX-tutorial-patches" "support" "input-combiners" "sox-mix")) (quote nil) (om-make-point 149 148) nil nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 4" (om-make-point 95 24) (quote "SoX-RECORD") "" (om-make-point 630 115) nil (om-make-color 0.02832079 0.0 1.0) (om-make-font "Lucida Sans" 12 :family "Lucida Sans" :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 151 24) (quote "SoX-REMIX / SoX-SPLIT") "" (om-make-point 561 276) nil (om-make-color 0.02832079 0.0 1.0) (om-make-font "Lucida Sans" 12 :family "Lucida Sans" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 9" (om-make-point 213 24) (quote "SoX-CONCATENATE / SoX-SPLICE") "" (om-make-point 376 117) nil (om-make-color 0.02832079 0.0 1.0) (om-make-font "Lucida Sans" 12 :family "Lucida Sans" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 5" (om-make-point 78 30) (quote "SoX-MIX") "" (om-make-point 150 120) nil (om-make-color 0.02832079 0.0 1.0) (om-make-font "Lucida Sans" 12 :family "Lucida Sans" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 3" (om-make-point 78 30) (quote "SoX-MERGE") "" (om-make-point 243 119) nil (om-make-color 0.02832079 0.0 1.0) (om-make-font "Lucida Sans" 12 :family "Lucida Sans" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 367 51) (quote "$The following OM-SoX input classes are available:") "" (om-make-point 128 9) nil (om-make-color 0.0 0.0 0.0) (om-make-font "Verdana" 14.0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote nil) (list (let ((newpict (make-instance (quote patch-picture) :name "omsox" :source (quote user) :pict-pathname (restore-pict-path (restore-path nil)) :thepict (om-get-picture "omsox" (quote user)) :storemode :external :draw-params (quote (p 0 0 100 100)) :extraobjs nil))) (setf (pict-pos newpict) (om-make-point 60 8)) (setf (pict-size newpict) (om-make-point 64 56)) newpict)) 7.05))
\ No newline at end of file
--
Gitblit v1.9.1