(in-package :om)(load-lib-for (quote ("OM-SoX")))(setf *om-current-persistent* (om-load-patch1 "sox-pan continuous" (quote ((let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 473 375) (om-make-point 27 30) 2 "2" 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 203 185) (om-make-point 27 30) 1 "1" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 126 26) (quote "min to max channel") "" (om-make-point 260 183) nil (om-make-color 1.1086464E-4 0.0017602444 0.9982184) (om-make-font "Verdana" 11.0D0 :family "Verdana" :style (quote (:italic)) :mode (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 257 228) (om-make-point 38 30) 0.5 "0.5" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "BUTLAST" (quote butlast) (quote ((om-load-inputfun (quote input-funbox) "LIST" "LIST" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" 2))) (om-make-point 444 407) nil nil nil 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 516 269) (om-make-point 38 30) 0.5 "0.5" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "* 2" (quote *) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" 0.5))) (om-make-point 504 299) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "/" (om-load-lisp-abspatch "/" 7.05 ";;; Edit a valid LAMBDA EXPRESSION for \"lispfunction\"$;;; e.g. (lambda (arg1 arg2 ...) ( ... ))$$(lambda (x y)$$ (let ((arg (/ x y)) ; division$ (div (float (expt 10 3)))) ; truncation$ (/ (truncate (/ arg (/ div))) div)$ )$ )$") (quote ((om-load-inputfun (quote input-funbox) "" "X" nil) (om-load-inputfun (quote input-funbox) "" "Y" nil))) (om-make-point 387 233) nil (list 1.116) nil "/"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote patch-box) "ola" (quote ("elements" "OM-SoX-tutorial-patches" "support" "ola")) (quote ((om-load-inputfun (quote input-funbox) "" "onsets" nil) (om-load-inputfun (quote input-funbox) "" "windowsize" nil))) (om-make-point 365 314) nil nil "l" "ola" 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 2" (om-make-point 79 34) (quote "SoX-PAN") "" (om-make-point 144 11) 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) (let ((box (om-load-boxcomment "comment" (om-make-point 61 26) (quote "stepsize") "" (om-make-point 296 226) nil (om-make-color 1.1086464E-4 0.0017602444 0.9982184) (om-make-font "Verdana" 11.0D0 :family "Verdana" :style (quote (:italic)) :mode (quote 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.01))) (om-make-point 238 320) 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 363 390) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "ARITHM-SER" (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 428 315) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "SOX-SOUND-DURATION" (quote sox-sound-duration) (quote ((om-load-inputfun (quote input-funbox) "SELF" "SELF" nil))) (om-make-point 404 157) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 441 32) (quote "Continuous Panning through 8 channels using overlap-add (OLA)") "" (om-make-point 146 36) nil (om-make-color 1.1086464E-4 0.0017602444 0.9982184) (om-make-font "Verdana" 13.0D0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "SOX-NORMALIZE" (quote sox-normalize) (quote nil) (om-make-point 324 499) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "" (quote sound) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "a track index for multichannel mixing" "tracknum" 0) (om-load-inputfun (quote input-funbox) "a list of markers (s)" "markers" nil))) (om-make-point 311 680) (om-make-point 80 50) (let ((newobj nil)) (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 "") (set-tonalite newobj nil) newobj) nil nil (pairlis (quote (outport inport player zoom grillestep mode winsize winpos show-spectrum :show-spectrum deltapict obj-mode cmnpref notechancolor? show-stems scale onset measure)) (list nil nil (quote :soxplayer) 1 nil 0 (om-make-point 969 825) (om-make-point 400 38) nil (quote t) (om-make-point 0 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) nil (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) "SOX-PROCESS 2" (quote sox-process) (quote ((om-load-inputfun (quote input-funbox) "" "SOX-INPUT" nil) (om-load-inputfun (quote input-funbox) "" "SOX-EFFECT" "") (om-load-inputkeyword (quote input-keyword) "Output type (new file, replace file, pipe, or realtime) [string]. Also accepts directory, filename, filepath [path]" "output" (quote :output) "pipe" (list (list "new file" nil) (list "replace file" "replace file") (list "pipe" "pipe") (list "realtime" "realtime"))))) (om-make-point 221 437) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "SOX-PROCESS" (quote sox-process) (quote ((om-load-inputfun (quote input-funbox) "" "SOX-INPUT" nil) (om-load-inputfun (quote input-funbox) "" "SOX-EFFECT" "") (om-load-inputkeyword (quote input-keyword) "Output type (new file, replace file, pipe, or realtime) [string]. Also accepts directory, filename, filepath [path]" "output" (quote :output) nil (list (list "new file" nil) (list "replace file" "replace file") (list "pipe" "pipe") (list "realtime" "realtime"))) (om-load-inputkeyword (quote input-keyword) "Filetype of produced audio [string]" "filetype" (quote :filetype) "aif" (list (list "aif" "aif") (list "wav" "wav") (list "flac" "flac") (list "ogg" "ogg"))))) (om-make-point 296 588) 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" 1) (om-load-inputfun (quote input-funbox) "end " "END" 14) (om-load-inputfun (quote input-funbox) "step" "STEP" 1))) (om-make-point 214 261) 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 140 354) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "SOX-PAN" (quote sox-pan) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "Audio input for sox input modules. [sound object, pathname, string/pipe]" "sound" nil) (om-load-inputfun (quote input-funbox) "Gain value for audio input before processing (dB). [float, list]" "gains" nil) (om-load-inputfun (quote input-funbox) "Panning value (decimal number) for panning audio between adjacent channels before processing (linear). [float, list]" "panning" nil) (om-load-inputfun (quote input-funbox) "" "numchannels" 5))) (om-make-point 109 232) (om-make-point 97 75) (if (find-class (quote sox-pan) nil) (make-instance (quote sox-pan) :sound (om-make-pathname :directory (quote (:absolute "Users" "Marlon_MBPro3" "Research" "OM-SoX" "sounds")) :device :unspecific :host nil :name "cherokee" :type "aif") :gains (list 0.0) :panning 3.0 :numchannels 5 :from-file t)) "l" nil (pairlis (quote (winpos winsize)) (list (om-make-point 10 40) (om-make-point 104 200))) nil nil nil t (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "men-of-goodwill.wav" (quote sound) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "a track index for multichannel mixing" "tracknum" 0) (om-load-inputfun (quote input-funbox) "a list of markers (s)" "markers" nil))) (om-make-point 123 86) (om-make-point 80 50) (let ((newobj (let ((thesound (load-sound (om-make-pathname :directory (quote (:absolute "Users" "Shared" "_Development" "OM-SoX" "Alexander Ng" "OM-SoX hoaencode" "resources" "sounds")) :device nil :host nil :name "men-of-goodwill" :type "wav") 0 1.0 0))) (when thesound (setf (markers thesound) (quote nil))) thesound))) (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 "men-of-goodwill.wav") (set-tonalite newobj nil) newobj) "x" nil (pairlis (quote (palette-mode scale show-stems obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx :show-spectrum onset measure)) (list 0 nil (quote t) 1 0 (om-make-point 400 38) (om-make-point 540 306) 0 1000 nil 1 (quote :soxplayer) 0 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 (quote t) 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 3" (quote t) (quote nil) (om-make-point 234 185) (om-make-point 27 30) 8 "8" 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 150 200) (om-make-point 38 30) 0.0 "0.0" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "SOX-MIX" (quote sox-mix) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "Audio input for sox input modules. [sound object, pathname, string/pipe]" "sound" nil) (om-load-inputfun (quote input-funbox) "Gain value for audio input before processing (dB). [float, list]" "gains" nil))) (om-make-point 220 517) (om-make-point 70 50) (if (find-class (quote sox-mix) nil) (make-instance (quote sox-mix) :sound (list "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/men-of-goodwill.wav' '-p' remix 1p0.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 trim 0 1.116 fade q 0.54684 0 0.54684 pad 0s " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/men-of-goodwill.wav' '-p' remix 1p-2.87598 1p-3.1489 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 trim 0.558 1.1159999 fade q 0.54684 0 0.54684 pad 0.558 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/men-of-goodwill.wav' '-p' remix 1p-36.07797 1p-0.00107 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 trim 1.116 1.116 fade q 0.54684 0 0.54684 pad 1.116 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/men-of-goodwill.wav' '-p' remix 1p-160.0 1p-2.87598 1p-3.1489 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 trim 1.674 1.1159999 fade q 0.54684 0 0.54684 pad 1.674 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/men-of-goodwill.wav' '-p' remix 1p-160.0 1p-36.07797 1p-0.00107 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 trim 2.232 1.1159999 fade q 0.54684 0 0.54684 pad 2.232 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/men-of-goodwill.wav' '-p' remix 1p-160.0 1p-160.0 1p-2.87598 1p-3.1489 1p-160.0 1p-160.0 1p-160.0 1p-160.0 trim 2.7900002 1.1159999 fade q 0.54684 0 0.54684 pad 2.7900002 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/men-of-goodwill.wav' '-p' remix 1p-160.0 1p-160.0 1p-36.07797 1p-0.00107 1p-160.0 1p-160.0 1p-160.0 1p-160.0 trim 3.3480003 1.1159999 fade q 0.54684 0 0.54684 pad 3.3480003 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/men-of-goodwill.wav' '-p' remix 1p-160.0 1p-160.0 1p-160.0 1p-2.87598 1p-3.14891 1p-160.0 1p-160.0 1p-160.0 trim 3.9060004 1.1159999 fade q 0.54684 0 0.54684 pad 3.9060004 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/men-of-goodwill.wav' '-p' remix 1p-160.0 1p-160.0 1p-160.0 1p-36.07776 1p-0.00107 1p-160.0 1p-160.0 1p-160.0 trim 4.464 1.1160002 fade q 0.54684 0 0.54684 pad 4.464 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/men-of-goodwill.wav' '-p' remix 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-2.87598 1p-3.14891 1p-160.0 1p-160.0 trim 5.0220003 1.1160002 fade q 0.54684 0 0.54684 pad 5.0220003 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/men-of-goodwill.wav' '-p' remix 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-36.07776 1p-0.00107 1p-160.0 1p-160.0 trim 5.5800004 1.1160002 fade q 0.54684 0 0.54684 pad 5.5800004 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/men-of-goodwill.wav' '-p' remix 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-2.87598 1p-3.14891 1p-160.0 trim 6.1380005 1.1160002 fade q 0.54684 0 0.54684 pad 6.1380005 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/men-of-goodwill.wav' '-p' remix 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-36.07776 1p-0.00107 1p-160.0 trim 6.6960006 1.1160002 fade q 0.54684 0 0.54684 pad 6.6960006 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/men-of-goodwill.wav' '-p' remix 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-2.87598 1p-3.14891 trim 7.2540007 1.1160002 fade q 0.54684 0 0.54684 pad 7.2540007 " "|'/Users/Shared/_Development/OM-SoX/sources/OM-SoX/executables/macos/sox-1442' -q --multi-threaded --buffer 4096 --input-buffer 512 -V0 '/Users/Shared/_Development/OM-SoX/Alexander Ng/OM-SoX hoaencode/resources/sounds/men-of-goodwill.wav' '-p' remix 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-160.0 1p-36.07776 1p-0.00107 trim 7.8120008 1.1159997 fade q 0.54684 0 0.54684 pad 7.8120008 ") :gains (list 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) :from-file t)) nil nil (pairlis (quote (winpos winsize)) (list (om-make-point 250 327) (om-make-point 818 150))) nil nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((13 0 4 0 nil 0) (0 0 4 1 nil 0) (7 0 6 0 nil 0) (5 0 6 1 nil 0) (14 0 7 0 nil 0) (24 0 7 1 nil 0) (7 0 8 1 nil 0) (20 0 11 0 nil 0) (8 0 12 0 nil 0) (4 0 12 1 nil 0) (14 0 13 1 nil 0) (6 0 13 2 nil 0) (23 0 14 0 nil 0) (19 0 17 0 nil 0) (21 0 18 0 nil 0) (12 0 18 1 nil 0) (26 0 19 0 nil 0) (16 0 19 1 nil 0) (1 0 20 0 nil 0) (24 0 20 1 nil 0) (3 0 20 2 nil 0) (22 0 21 0 nil 0) (11 0 21 1 nil 0) (23 0 22 1 nil 0) (25 0 22 2 nil 0) (24 0 22 4 nil 0) (18 0 26 1 nil 0))) (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 75 14)) (setf (pict-size newpict) (om-make-point 63 47)) newpict)) 7.05))
|
