(in-package :om)(load-lib-for (quote ("OM-SoX")))(setf *om-current-persistent* (om-load-patch1 "ladspa" (quote ((om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 300 300) (om-make-point 69 30) "divider" "\"divider\"" nil) (om-load-boxcomment "comment" (om-make-point 515 45) (quote "These plugins are mostly built for Linux but some are available for MacOS/Windows.$See http://www.ladspa.org/ for more information.") "" (om-make-point 147 53) nil (om-make-color 0.0 0.0 0.0) (om-make-font "Verdana" 12.0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) (om-load-editor-box1 "seagull.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 607 435) (om-make-point 80 50) (let ((newobj (let ((thesound (load-sound (om-make-pathname :directory (quote (:absolute "Users" "Marlon_MBPro3" "Research" "OM-SoX" "OM-SoX 1.0" "resources" "sounds")) :device nil :host nil :name "seagull" :type "wav") 0 100 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 "seagull.wav") (set-tonalite newobj nil) newobj) "x" nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode show-stems scale palette-mode)) (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 0 (quote :soxplayer) 1 nil 1000 0 (om-make-point 556 289) (om-make-point 400 22) 0 1 (quote t) nil 0)) t nil nil nil) (om-load-editor-box1 "drumloop.aif" (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 115 414) (om-make-point 80 50) (let ((newobj (let ((thesound (load-sound (om-make-pathname :directory (quote (:absolute "Users" "Marlon_MBPro3" "Research" "OM-SoX" "OM-SoX 1.0" "resources" "sounds")) :device nil :host nil :name "drumloop" :type "aif") 0 100 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 "drumloop.aif") (set-tonalite newobj nil) newobj) "x" nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode show-stems scale palette-mode)) (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 0 (quote :soxplayer) 1 nil 1000 0 (om-make-point 551 299) (om-make-point 400 22) 0 1 (quote t) nil 0)) t nil nil nil) (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 342 367) (om-make-point 37 30) (list 4) "(4)" nil) (om-load-boxcomment "comment 8" (om-make-point 129 26) (quote "Enter name of plugin") "" (om-make-point 371 298) nil (om-make-color 0.0 0.19194556 1.0) (om-make-font "Verdana" 11.0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))) (om-load-boxcomment "comment 2" (om-make-point 160 26) (quote "Specify plugin parameters") "" (om-make-point 381 366) nil (om-make-color 0.0 0.19194556 1.0) (om-make-font "Verdana" 11.0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))) (om-load-boxcall (quote genfun) "SOX-LADSPA" (quote sox-ladspa) (quote ((om-load-inputfun (quote input-funbox) "Full path to LADSPA module" "MODULE" nil) (om-load-inputfun (quote input-funbox) "Name of plugin (a module can contain more than one plugin)" "PLUGIN" nil) (om-load-inputfun (quote input-funbox) "List of parameter values for plugin (missing arguments are supplied by default values if possible)" "PARAMETERS" nil))) (om-make-point 239 403) nil nil nil nil 1) (om-load-boxcomment "comment 9" (om-make-point 110 26) (quote "parameter values") "" (om-make-point 883 250) nil (om-make-color 0.0 0.19194556 1.0) (om-make-font "Verdana" 11.0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))) (om-load-boxcomment "comment 7" (om-make-point 93 26) (quote "LADSPA plugin") "" (om-make-point 785 251) nil (om-make-color 0.0 0.19194556 1.0) (om-make-font "Verdana" 11.0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))) (om-load-boxcomment "comment 5" (om-make-point 101 39) (quote "Path to $LADSPA module") "" (om-make-point 648 262) nil (om-make-color 0.0 0.19194556 1.0) (om-make-font "Verdana" 11.0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))) (om-load-boxcall (quote genfun) "SOX-LADSPA 2" (quote sox-ladspa) (quote ((om-load-inputfun (quote input-funbox) "Full path to LADSPA module" "MODULE" nil) (om-load-inputfun (quote input-funbox) "Name of plugin (a module can contain more than one plugin)" "PLUGIN" nil) (om-load-inputfun (quote input-funbox) "List of parameter values for plugin (missing arguments are supplied by default values if possible)" "PARAMETERS" nil))) (om-make-point 834 326) nil nil nil nil 1) (om-load-boxcomment "comment 6" (om-make-point 310 30) (quote "LADSPA plugins and SoX-effects can be combined") "" (om-make-point 620 190) nil (om-make-color 0.0 0.19194556 1.0) (om-make-font "Verdana" 12.0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) (om-load-boxcomment "comment 3" (om-make-point 160 39) (quote "Choose a LADSPA module $from the drop-down menu") "" (om-make-point 90 292) nil (om-make-color 0.0 0.19194556 1.0) (om-make-font "Verdana" 11.0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))) (om-load-boxcomment "comment 4" (om-make-point 167 39) (quote "Point to folder $containing LADSPA plugins") "" (om-make-point 246 187) nil (om-make-color 0.0 0.19194556 1.0) (om-make-font "Verdana" 11.0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))) (om-load-boxcomment "comment" (om-make-point 735 51) (quote "Use \"sox-ladspa\" to process audio with LADSPA (Linux Audio Developer's Simple Plugin API) Plugins. ") "" (om-make-point 140 16) nil (om-make-color 0.0 0.0 0.0) (om-make-font "Verdana" 14.0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 739 373) (om-make-point 27 30) 5 "5" nil) (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 702 373) (om-make-point 34 30) 12 "12" nil) (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" 1) (om-load-inputfun (quote input-funbox) "a list of markers (s)" "markers" nil))) (om-make-point 686 593) (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 (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode show-stems scale palette-mode)) (list 2 24 (quote gf) (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 0 (quote :soxplayer) 1 nil 1000 0 (om-make-point 524 308) (om-make-point 400 20) 0 1 (quote t) nil 0)) t nil nil nil) (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" 1) (om-load-inputfun (quote input-funbox) "a list of markers (s)" "markers" nil))) (om-make-point 123 588) (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 (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode show-stems scale palette-mode)) (list 2 24 (quote gf) (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 0 (quote :soxplayer) 1 nil 1000 0 (om-make-point 572 300) (om-make-point 400 22) 0 1 (quote t) nil 0)) t nil nil nil) (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 147 241) (om-make-point 168 50) (let ((rep (om-make-dialog-item (quote pop-up-menu) (om-make-point 1 1) (om-make-point 148 26) "untitled" :range (quote (#P"/Library/Audio/Plug-Ins/LADSPA/alias_1407.so" #P"/Library/Audio/Plug-Ins/LADSPA/allpass_1895.so" #P"/Library/Audio/Plug-Ins/LADSPA/am_pitchshift_1433.so" #P"/Library/Audio/Plug-Ins/LADSPA/amp_1181.so" #P"/Library/Audio/Plug-Ins/LADSPA/analogue_osc_1416.so" #P"/Library/Audio/Plug-Ins/LADSPA/bandpass_a_iir_1893.so" #P"/Library/Audio/Plug-Ins/LADSPA/bandpass_iir_1892.so" #P"/Library/Audio/Plug-Ins/LADSPA/bode_shifter_1431.so" #P"/Library/Audio/Plug-Ins/LADSPA/bode_shifter_cv_1432.so" #P"/Library/Audio/Plug-Ins/LADSPA/butterworth_1902.so" #P"/Library/Audio/Plug-Ins/LADSPA/chebstortion_1430.so" #P"/Library/Audio/Plug-Ins/LADSPA/comb_1190.so" #P"/Library/Audio/Plug-Ins/LADSPA/comb_1887.so" #P"/Library/Audio/Plug-Ins/LADSPA/comb_splitter_1411.so" #P"/Library/Audio/Plug-Ins/LADSPA/const_1909.so" #P"/Library/Audio/Plug-Ins/LADSPA/crossover_dist_1404.so" #P"/Library/Audio/Plug-Ins/LADSPA/csladspa.so" #P"/Library/Audio/Plug-Ins/LADSPA/csladspa64.so" #P"/Library/Audio/Plug-Ins/LADSPA/dc_remove_1207.so" #P"/Library/Audio/Plug-Ins/LADSPA/decay_1886.so" #P"/Library/Audio/Plug-Ins/LADSPA/decimator_1202.so" #P"/Library/Audio/Plug-Ins/LADSPA/declip_1195.so" #P"/Library/Audio/Plug-Ins/LADSPA/delay_1898.so" #P"/Library/Audio/Plug-Ins/LADSPA/delayorama_1402.so" #P"/Library/Audio/Plug-Ins/LADSPA/diode_1185.so" #P"/Library/Audio/Plug-Ins/LADSPA/divider_1186.so" #P"/Library/Audio/Plug-Ins/LADSPA/dj_eq_1901.so" #P"/Library/Audio/Plug-Ins/LADSPA/dj_flanger_1438.so" #P"/Library/Audio/Plug-Ins/LADSPA/dyson_compress_1403.so" #P"/Library/Audio/Plug-Ins/LADSPA/fad_delay_1192.so" #P"/Library/Audio/Plug-Ins/LADSPA/fast_lookahead_limiter_1913.so" #P"/Library/Audio/Plug-Ins/LADSPA/filters.so" #P"/Library/Audio/Plug-Ins/LADSPA/flanger_1191.so" #P"/Library/Audio/Plug-Ins/LADSPA/fm_osc_1415.so" #P"/Library/Audio/Plug-Ins/LADSPA/foldover_1213.so" #P"/Library/Audio/Plug-Ins/LADSPA/foverdrive_1196.so" #P"/Library/Audio/Plug-Ins/LADSPA/freq_tracker_1418.so" #P"/Library/Audio/Plug-Ins/LADSPA/g2reverb.so" #P"/Library/Audio/Plug-Ins/LADSPA/gate_1410.so" #P"/Library/Audio/Plug-Ins/LADSPA/giant_flange_1437.so" #P"/Library/Audio/Plug-Ins/LADSPA/gong_1424.so" #P"/Library/Audio/Plug-Ins/LADSPA/gong_beater_1439.so" #P"/Library/Audio/Plug-Ins/LADSPA/gsm_1215.so" #P"/Library/Audio/Plug-Ins/LADSPA/gverb_1216.so" #P"/Library/Audio/Plug-Ins/LADSPA/hard_limiter_1413.so" #P"/Library/Audio/Plug-Ins/LADSPA/harmonic_gen_1220.so" #P"/Library/Audio/Plug-Ins/LADSPA/hermes_filter_1200.so" #P"/Library/Audio/Plug-Ins/LADSPA/highpass_iir_1890.so" #P"/Library/Audio/Plug-Ins/LADSPA/hilbert_1440.so" #P"/Library/Audio/Plug-Ins/LADSPA/imp_1199.so" #P"/Library/Audio/Plug-Ins/LADSPA/impulse_1885.so" #P"/Library/Audio/Plug-Ins/LADSPA/inv_1429.so" #P"/Library/Audio/Plug-Ins/LADSPA/karaoke_1409.so" #P"/Library/Audio/Plug-Ins/LADSPA/latency_1914.so" #P"/Library/Audio/Plug-Ins/LADSPA/lcr_delay_1436.so" #P"/Library/Audio/Plug-Ins/LADSPA/lowpass_iir_1891.so" #P"/Library/Audio/Plug-Ins/LADSPA/ls_filter_1908.so" #P"/Library/Audio/Plug-Ins/LADSPA/matrix_ms_st_1421.so" #P"/Library/Audio/Plug-Ins/LADSPA/matrix_spatialiser_1422.so" #P"/Library/Audio/Plug-Ins/LADSPA/matrix_st_ms_1420.so" #P"/Library/Audio/Plug-Ins/LADSPA/mbeq_1197.so" #P"/Library/Audio/Plug-Ins/LADSPA/mod_delay_1419.so" #P"/Library/Audio/Plug-Ins/LADSPA/multivoice_chorus_1201.so" #P"/Library/Audio/Plug-Ins/LADSPA/notch_iir_1894.so" #P"/Library/Audio/Plug-Ins/LADSPA/phasers_1217.so" #P"/Library/Audio/Plug-Ins/LADSPA/pitch_scale_1193.so" #P"/Library/Audio/Plug-Ins/LADSPA/pitch_scale_1194.so" #P"/Library/Audio/Plug-Ins/LADSPA/plate_1423.so" #P"/Library/Audio/Plug-Ins/LADSPA/pointer_cast_1910.so" #P"/Library/Audio/Plug-Ins/LADSPA/rate_shifter_1417.so" #P"/Library/Audio/Plug-Ins/LADSPA/rdf/" #P"/Library/Audio/Plug-Ins/LADSPA/retro_flange_1208.so" #P"/Library/Audio/Plug-Ins/LADSPA/revdelay_1605.so" #P"/Library/Audio/Plug-Ins/LADSPA/ringmod_1188.so" #P"/Library/Audio/Plug-Ins/LADSPA/satan_maximiser_1408.so" #P"/Library/Audio/Plug-Ins/LADSPA/sc1_1425.so" #P"/Library/Audio/Plug-Ins/LADSPA/sc2_1426.so" #P"/Library/Audio/Plug-Ins/LADSPA/sc3_1427.so" #P"/Library/Audio/Plug-Ins/LADSPA/sc4_1882.so" #P"/Library/Audio/Plug-Ins/LADSPA/sc4m_1916.so" #P"/Library/Audio/Plug-Ins/LADSPA/se4_1883.so" #P"/Library/Audio/Plug-Ins/LADSPA/shaper_1187.so" #P"/Library/Audio/Plug-Ins/LADSPA/sifter_1210.so" #P"/Library/Audio/Plug-Ins/LADSPA/sin_cos_1881.so" #P"/Library/Audio/Plug-Ins/LADSPA/single_para_1203.so" #P"/Library/Audio/Plug-Ins/LADSPA/sinus_wavewrapper_1198.so" #P"/Library/Audio/Plug-Ins/LADSPA/smooth_decimate_1414.so" #P"/Library/Audio/Plug-Ins/LADSPA/split_1406.so" #P"/Library/Audio/Plug-Ins/LADSPA/step_muxer_1212.so" #P"/Library/Audio/Plug-Ins/LADSPA/surround_encoder_1401.so" #P"/Library/Audio/Plug-Ins/LADSPA/svf_1214.so" #P"/Library/Audio/Plug-Ins/LADSPA/tape_delay_1211.so" #P"/Library/Audio/Plug-Ins/LADSPA/transient_1206.so" #P"/Library/Audio/Plug-Ins/LADSPA/triple_para_1204.so" #P"/Library/Audio/Plug-Ins/LADSPA/valve_1209.so" #P"/Library/Audio/Plug-Ins/LADSPA/valve_rect_1405.so" #P"/Library/Audio/Plug-Ins/LADSPA/vst-bridge.so" #P"/Library/Audio/Plug-Ins/LADSPA/vynil_1905.so" #P"/Library/Audio/Plug-Ins/LADSPA/wave_terrain_1412.so" #P"/Library/Audio/Plug-Ins/LADSPA/xfade_1915.so" #P"/Library/Audio/Plug-Ins/LADSPA/zm1_1428.so"))))) (om-set-selected-item-index rep (quote 25)) rep) "x" nil (pairlis (quote (winsize winpos)) (list (om-make-point 335 275) (om-make-point 10 40))) t nil nil nil) (om-load-boxcall (quote genfun) "IN-DIRECTORY" (quote in-directory) (quote nil) (om-make-point 168 177) nil (list (om-make-pathname :directory (quote (:absolute "Library" "Audio" "Plug-Ins" "LADSPA")) :device :unspecific :host nil :name nil :type nil)) "x" nil 1) (om-load-boxcall (quote genfun) "SOX-PROCESS 2" (quote sox-process) (quote ((om-load-inputfun (quote input-funbox) "" "INPUT" nil) (om-load-inputfun (quote input-funbox) "" "COMMANDS" ""))) (om-make-point 107 488) nil nil nil nil 1) (om-load-boxcall (quote genfun) "SOX-PROCESS" (quote sox-process) (quote ((om-load-inputfun (quote input-funbox) "" "INPUT" nil) (om-load-inputfun (quote input-funbox) "" "COMMANDS" ""))) (om-make-point 670 501) nil nil nil nil 1) (om-load-boxcall (quote genfun) "SOX-TREMOLO" (quote sox-tremolo) (quote ((om-load-inputfun (quote input-funbox) "frequency (in Hz)" "SPEED" 5) (om-load-inputfun (quote input-funbox) "depth (in %)" "DEPTH" 90) (om-load-inputkeyword (quote input-keyword) "Append sox-effects/statistics to the processing chain." "sox-append" (quote :sox-append) nil nil))) (om-make-point 810 411) nil nil nil nil 1) (om-load-boxcall (quote genfun) "SOX-OVERDRIVE" (quote sox-overdrive) (quote ((om-load-inputfun (quote input-funbox) "gain" "GAIN" 20) (om-load-inputfun (quote input-funbox) "colour" "COLOUR" 20) (om-load-inputkeyword (quote input-keyword) "Append sox-effects/statistics to the processing chain." "sox-append" (quote :sox-append) nil nil))) (om-make-point 695 411) nil nil nil nil 1) (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 792 275) (om-make-point 77 30) "djFlanger" "\"djFlanger\"" nil) (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 893 275) (om-make-point 78 30) (list 1 1 15 30) "(1 1 15 30)" nil) (om-load-boxcall (quote genfun) "IN-FILE 2" (quote in-file) (quote nil) (om-make-point 743 262) nil (list (om-make-pathname :directory (quote (:absolute "Library" "Audio" "Plug-Ins" "LADSPA")) :device :unspecific :host nil :name "dj_flanger_1438" :type "so")) "x" nil 1))) (quote ((20 1 7 0 nil 0) (0 0 7 1 nil 0) (4 0 7 2 nil 0) (28 0 11 0 nil 0) (26 0 11 1 nil 0) (27 0 11 2 nil 0) (23 0 18 0 nil 0) (22 0 19 0 nil 0) (21 0 20 0 nil 0) (3 0 22 0 nil 0) (7 0 22 1 nil 0) (2 0 23 0 nil 0) (25 0 23 1 nil 0) (11 0 24 2 nil 0) (17 0 25 0 nil 0) (16 0 25 1 nil 0) (24 0 25 2 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 60 8)) (setf (pict-size newpict) (om-make-point 62 55)) newpict)) 6.070005))
| 
