(in-package :om)(load-lib-for (quote ("OM-SRR")))(setf *om-current-persistent* (om-load-patch1 "1-basics" (quote ((let ((box (om-load-boxcomment "comment" (om-make-point 66 26) (quote "Decimals") "" (om-make-point 351 365) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (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-boxcomment "comment" (om-make-point 65 26) (quote "Precision") "" (om-make-point 340 268) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (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-boxcomment "comment" (om-make-point 215 45) (quote "add additional inlets (<, >)$for arbitrary numbers of partials ") "" (om-make-point 733 331) 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" (om-make-point 115 34) (quote "Generate SRR") "" (om-make-point 626 201) 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 388 66) (quote "Library for spectral rhythm modeling via $phase-aligned amplitude modulations. ") "" (om-make-point 248 82) 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" (om-make-point 116 58) (quote "OM-SRR") "" (om-make-point 244 37) 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 genfun) "GEN-PARTIAL 2" (quote gen-partial) (quote ((om-load-inputfun (quote input-funbox) "subdivision" "SUBDIVISION" 2) (om-load-inputkeyword (quote input-keyword) "precision" "precision" (quote :precision) 0.01 nil) (om-load-inputkeyword (quote input-keyword) "decimals" "decimals" (quote :decimals) 5 nil))) (om-make-point 212 341) nil nil nil nil 2))) (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-load-inputfun (quote input-funbox) "subdivisions" "SUBDIVISIONS" nil))) (om-make-point 676 314) nil nil nil nil 2))) (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 322 367) (om-make-point 27 30) 1 "1" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "POP-UP-MENU 6" (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 752 238) (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 1)) 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-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 295 268) (om-make-point 45 30) 0.01 "0.01" nil))) (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 605 397) (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.21001 2.22001 2.23001 2.24001 2.25001 2.26001 2.27001 2.28001 2.29001 2.30001 2.31001 2.32001 2.33001 2.34001 2.35001 2.36001 2.37001 2.38001 2.39001 2.40001 2.41001 2.42001 2.43001 2.44001 2.45001 2.46001 2.47001 2.48001 2.49001 2.50001 2.51001 2.52001 2.53001 2.54001 2.55001 2.56001 2.57001 2.58001 2.59001 2.60001 2.61001 2.62001 2.63001 2.64001 2.65001 2.66001 2.67001 2.68001 2.69001 2.70001 2.71001 2.72001 2.73001 2.74001 2.75001 2.76001 2.77001 2.78001 2.79001 2.80001 2.81001 2.82001 2.83001 2.84001 2.85001 2.86001 2.87001 2.88001 2.89001 2.90001 2.91001 2.92001 2.93001 2.94001 2.95001 2.96001 2.97001 2.98001 2.99001 3.00001 3.01001 3.02001 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.15999 4.16999 4.17999 4.18999 4.19999 4.20999 4.21999 4.22999 4.23999 4.24999 4.25999 4.26999 4.27999 4.28999 4.29999 4.30999 4.31999 4.32999 4.33999 4.34999 4.35999 4.36999 4.37999 4.38999 4.39999 4.40999 4.41999 4.42999 4.43999 4.44999 4.45999 4.46999 4.47999 4.48999 4.49999 4.50999 4.51999 4.52999 4.53999 4.54999 4.55999 4.56999 4.57999 4.58999 4.59999 4.60999 4.61999 4.62999 4.63999 4.64999 4.65999 4.66999 4.67999 4.68999 4.69999 4.70999 4.71999 4.72999 4.73999 4.74999 4.75999 4.76999 4.77999 4.78999 4.79999 4.80999 4.81999 4.82999 4.83999 4.84999 4.85999 4.86999 4.87999 4.88999 4.89999 4.90999 4.91999 4.92999 4.93999 4.94999 4.95999 4.96999 4.97999 4.98999 4.99999 5.00999 5.01999 5.02999 5.03999 5.04999 5.05999 5.06999 5.07999 5.08999 5.09999 5.10999 5.11999 5.12999 5.13999 5.14999 5.15999 5.16999 5.17999 5.18999 5.19999 5.20999 5.21999 5.22999 5.23999 5.24999 5.25999 5.26999 5.27999 5.28999 5.29998 5.30998 5.31998 5.32998 5.33998 5.34998 5.35999 5.36999 5.37999 5.38999 5.39999 5.40999 5.41999 5.42999 5.43999 5.44999 5.45999 5.46999 5.47999 5.48999 5.49999 5.50999 5.51999 5.52999 5.53999 5.54999 5.55999 5.56999 5.57999 5.58999 5.59999 5.60999 5.61999 5.62999 5.63999 5.64999 5.65999 5.66999 5.67999 5.68999 5.69999 5.70999 5.71999 5.72999 5.73999 5.74999 5.75999 5.76999 5.77999 5.79 5.8 5.81 5.82 5.83 5.84 5.85 5.86 5.87 5.88 5.89 5.9 5.91 5.92 5.93 5.94 5.95 5.96 5.97 5.98 5.99 6.0 6.01 6.02 6.03 6.04 6.05 6.06 6.07 6.08 6.09 6.1 6.11 6.12 6.13 6.14 6.15 6.16 6.17 6.18 6.19 6.2 6.21 6.22 6.23001 6.24001 6.25001 6.26001 6.27001 6.28001)) (quote (0.75 0.74959 0.74838 0.74635 0.74353 0.73991 0.73551 0.73034 0.72441 0.71775 0.71037 0.7023 0.69356 0.68417 0.67417 0.66358 0.65243 0.64076 0.62861 0.61599 0.60297 0.58956 0.57582 0.56177 0.54747 0.53296 0.51827 0.50344 0.48853 0.47357 0.45861 0.44369 0.42884 0.41412 0.39957 0.38522 0.37111 0.35729 0.34379 0.33065 0.3179 0.30557 0.29371 0.28233 0.27148 0.26117 0.25143 0.24229 0.23377 0.22588 0.21865 0.21208 0.2062 0.201 0.19651 0.19273 0.18965 0.18729 0.18564 0.18469 0.18445 0.1849 0.18604 0.18785 0.19032 0.19343 0.19716 0.2015 0.20642 0.2119 0.21791 0.22442 0.23141 0.23884 0.24669 0.25492 0.2635 0.27239 0.28156 0.29097 0.30058 0.31036 0.32027 0.33027 0.34032 0.35038 0.36042 0.3704 0.38028 0.39002 0.39959 0.40895 0.41807 0.42691 0.43544 0.44363 0.45145 0.45887 0.46586 0.4724 0.47846 0.48402 0.48906 0.49357 0.49751 0.50089 0.50368 0.50587 0.50746 0.50844 0.5088 0.50854 0.50766 0.50617 0.50405 0.50133 0.49801 0.49409 0.48959 0.48452 0.47889 0.47273 0.46605 0.45888 0.45122 0.44312 0.43458 0.42565 0.41634 0.40668 0.39671 0.38645 0.37593 0.36519 0.35426 0.34317 0.33196 0.32066 0.3093 0.29792 0.28655 0.27522 0.26398 0.25284 0.24185 0.23104 0.22043 0.21007 0.19997 0.19017 0.18069 0.17156 0.16281 0.15446 0.14654 0.13905 0.13203 0.1255 0.11946 0.11394 0.10894 0.10448 0.10057 0.09721 0.09442 0.0922 0.09054 0.08946 0.08894 0.089 0.08961 0.09079 0.09251 0.09478 0.09758 0.10089 0.10471 0.10903 0.11381 0.11905 0.12472 0.13082 0.1373 0.14417 0.15138 0.15892 0.16677 0.17489 0.18327 0.19187 0.20067 0.20965 0.21877 0.22802 0.23736 0.24676 0.25621 0.26567 0.27512 0.28454 0.2939 0.30317 0.31233 0.32136 0.33024 0.33894 0.34745 0.35575 0.36382 0.37165 0.37921 0.38649 0.39349 0.40018 0.40656 0.41262 0.41835 0.42375 0.4288 0.43351 0.43787 0.44189 0.44555 0.44887 0.45184 0.45448 0.45677 0.45874 0.46039 0.46172 0.46274 0.46348 0.46393 0.46411 0.46403 0.4637 0.46315 0.46238 0.46141 0.46026 0.45894 0.45747 0.45586 0.45414 0.45232 0.45041 0.44844 0.44642 0.44436 0.44229 0.44022 0.43816 0.43614 0.43416 0.43224 0.4304 0.42865 0.42699 0.42544 0.42401 0.42272 0.42157 0.42056 0.41971 0.41902 0.4185 0.41816 0.41798 0.41799 0.41817 0.41853 0.41907 0.41979 0.42068 0.42175 0.42298 0.42437 0.42593 0.42763 0.42947 0.43145 0.43356 0.43578 0.43811 0.44053 0.44304 0.44562 0.44826 0.45096 0.45369 0.45644 0.45921 0.46198 0.46473 0.46746 0.47015 0.47279 0.47536 0.47787 0.48028 0.4826 0.48481 0.4869 0.48887 0.4907 0.49238 0.49391 0.49529 0.49649 0.49753 0.49839 0.49907 0.49956 0.49987 0.5 0.49994 0.49968 0.49925 0.49862 0.49782 0.49684 0.49569 0.49437 0.49289 0.49125 0.48947 0.48755 0.48549 0.48332 0.48103 0.47865 0.47617 0.47362 0.471 0.46832 0.46561 0.46286 0.46009 0.45733 0.45457 0.45183 0.44912 0.44646 0.44386 0.44132 0.43887 0.43651 0.43426 0.43211 0.43009 0.42821 0.42646 0.42486 0.42341 0.42212 0.42101 0.42006 0.41928 0.41869 0.41827 0.41803 0.41797 0.41808 0.41838 0.41884 0.41948 0.42028 0.42123 0.42234 0.42359 0.42498 0.42649 0.42811 0.42984 0.43165 0.43355 0.43551 0.43752 0.43957 0.44163 0.44371 0.44577 0.4478 0.44979 0.45172 0.45357 0.45533 0.45697 0.45849 0.45986 0.46107 0.46209 0.46293 0.46355 0.46395 0.46411 0.46401 0.46365 0.46301 0.46208 0.46085 0.4593 0.45744 0.45525 0.45272 0.44986 0.44665 0.44309 0.43919 0.43494 0.43034 0.42539 0.42011 0.41448 0.40853 0.40225 0.39565 0.38875 0.38156 0.37408 0.36634 0.35835 0.35012 0.34168 0.33303 0.3242 0.31522 0.3061 0.29686 0.28753 0.27813 0.26869 0.25923 0.24977 0.24035 0.23099 0.22171 0.21254 0.20352 0.19465 0.18599 0.17753 0.16933 0.16139 0.15375 0.14643 0.13945 0.13284 0.12662 0.12081 0.11543 0.1105 0.10604 0.10206 0.09858 0.09562 0.09318 0.09128 0.08993 0.08913 0.0889 0.08923 0.09013 0.0916 0.09365 0.09626 0.09943 0.10317 0.10745 0.11228 0.11764 0.12351 0.12989 0.13676 0.14409 0.15188 0.1601 0.16872 0.17773 0.1871 0.1968 0.20681 0.21709 0.22763 0.23838 0.24931 0.2604 0.27162 0.28292 0.29428 0.30566 0.31703 0.32836 0.3396 0.35073 0.36172 0.37252 0.38311 0.39346 0.40353 0.41329 0.42272 0.43177 0.44044 0.44869 0.45648 0.46382 0.47066 0.47699 0.48278 0.48803 0.49272 0.49682 0.50034 0.50326 0.50557 0.50726 0.50834 0.5088 0.50863 0.50785 0.50646 0.50446 0.50186 0.49867 0.49491 0.49058 0.48571 0.48031 0.47441 0.46802 0.46117 0.45388 0.44619 0.43811 0.42969 0.42094 0.41191 0.40262 0.39312 0.38343 0.37359 0.36364 0.35362 0.34355 0.3335 0.32348 0.31354 0.30371 0.29404 0.28456 0.27531 0.26633 0.25765 0.2493 0.24132 0.23375 0.22662 0.21995 0.21378 0.20813 0.20302 0.1985 0.19457 0.19126 0.18858 0.18656 0.1852 0.18453 0.18455 0.18527 0.18669 0.18883 0.19167 0.19523 0.1995 0.20446 0.21013 0.21648 0.2235 0.23118 0.2395 0.24845 0.258 0.26813 0.27881 0.29002 0.30173 0.31391 0.32653 0.33955 0.35294 0.36666 0.38068 0.39496 0.40945 0.42413 0.43893 0.45383 0.46879 0.48375 0.49868 0.51354 0.52828 0.54285 0.55723 0.57136 0.5852 0.59872 0.61187 0.62462 0.63693 0.64876 0.66008 0.67085 0.68104 0.69063 0.69958 0.70787 0.71547 0.72236 0.72852 0.73394 0.73859 0.74246 0.74554 0.74782 0.74929 0.74996)) (quote bpf) 5))) (setf (bpfcolor newbpf) (om-make-color 0 0 0)) (set-name newbpf "BPF") 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-editor-box1 "POP-UP-MENU 5" (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 482 238) (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 5)) 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 4" (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 616 238) (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 4)) 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-boxcomment "comment" (om-make-point 178 34) (quote "Generate Single Partial") "" (om-make-point 117 221) 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-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 167 442) (om-make-point 164 99) (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 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.7 0.7 0.7 0.7 0.7 0.7 0.7 0.6 0.6 0.6 0.6 0.6 0.6 0.5 0.5 0.5 0.5 0.5 0.5 0.4 0.4 0.4 0.4 0.4 0.3 0.3 0.3 0.3 0.3 0.2 0.2 0.2 0.2 0.2 0.2 0.1 0.1 0.1 0.1 0.1 0.0 0.0 0.0 0.0 0.0 -0.1 -0.1 -0.1 -0.1 -0.1 -0.2 -0.2 -0.2 -0.2 -0.2 -0.3 -0.3 -0.3 -0.3 -0.3 -0.4 -0.4 -0.4 -0.4 -0.4 -0.5 -0.5 -0.5 -0.5 -0.5 -0.5 -0.6 -0.6 -0.6 -0.6 -0.6 -0.6 -0.7 -0.7 -0.7 -0.7 -0.7 -0.7 -0.7 -0.8 -0.8 -0.8 -0.8 -0.8 -0.8 -0.8 -0.8 -0.8 -0.9 -0.9 -0.9 -0.9 -0.9 -0.9 -0.9 -0.9 -0.9 -0.9 -0.9 -0.9 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -0.9 -0.9 -0.9 -0.9 -0.9 -0.9 -0.9 -0.9 -0.9 -0.9 -0.9 -0.9 -0.8 -0.8 -0.8 -0.8 -0.8 -0.8 -0.8 -0.8 -0.8 -0.7 -0.7 -0.7 -0.7 -0.7 -0.7 -0.7 -0.6 -0.6 -0.6 -0.6 -0.6 -0.6 -0.5 -0.5 -0.5 -0.5 -0.5 -0.5 -0.4 -0.4 -0.4 -0.4 -0.4 -0.3 -0.3 -0.3 -0.3 -0.3 -0.2 -0.2 -0.2 -0.2 -0.2 -0.2 -0.1 -0.1 -0.1 -0.1 -0.1 0.0 0.0 0.0 0.0 0.0 0.1 0.1 0.1 0.1 0.1 0.2 0.2 0.2 0.2 0.2 0.3 0.3 0.3 0.3 0.3 0.4 0.4 0.4 0.4 0.4 0.5 0.5 0.5 0.5 0.5 0.5 0.6 0.6 0.6 0.6 0.6 0.6 0.7 0.7 0.7 0.7 0.7 0.7 0.7 0.7 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.7 0.7 0.7 0.7 0.7 0.7 0.7 0.6 0.6 0.6 0.6 0.6 0.6 0.5 0.5 0.5 0.5 0.5 0.5 0.4 0.4 0.4 0.4 0.4 0.3 0.3 0.3 0.3 0.3 0.3 0.2 0.2 0.2 0.2 0.2 0.1 0.1 0.1 0.1 0.1 0.0 0.0 0.0 0.0 0.0 -0.1 -0.1 -0.1 -0.1 -0.1 -0.2 -0.2 -0.2 -0.2 -0.2 -0.3 -0.3 -0.3 -0.3 -0.3 -0.4 -0.4 -0.4 -0.4 -0.4 -0.4 -0.5 -0.5 -0.5 -0.5 -0.5 -0.6 -0.6 -0.6 -0.6 -0.6 -0.6 -0.6 -0.7 -0.7 -0.7 -0.7 -0.7 -0.7 -0.7 -0.8 -0.8 -0.8 -0.8 -0.8 -0.8 -0.8 -0.8 -0.9 -0.9 -0.9 -0.9 -0.9 -0.9 -0.9 -0.9 -0.9 -0.9 -0.9 -0.9 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -0.9 -0.9 -0.9 -0.9 -0.9 -0.9 -0.9 -0.9 -0.9 -0.9 -0.9 -0.8 -0.8 -0.8 -0.8 -0.8 -0.8 -0.8 -0.8 -0.8 -0.7 -0.7 -0.7 -0.7 -0.7 -0.7 -0.7 -0.6 -0.6 -0.6 -0.6 -0.6 -0.6 -0.5 -0.5 -0.5 -0.5 -0.5 -0.5 -0.4 -0.4 -0.4 -0.4 -0.4 -0.3 -0.3 -0.3 -0.3 -0.3 -0.3 -0.2 -0.2 -0.2 -0.2 -0.2 -0.1 -0.1 -0.1 -0.1 -0.1 0.0 0.0 0.0 0.0 0.0 0.1 0.1 0.1 0.1 0.1 0.2 0.2 0.2 0.2 0.2 0.3 0.3 0.3 0.3 0.3 0.4 0.4 0.4 0.4 0.4 0.4 0.5 0.5 0.5 0.5 0.5 0.6 0.6 0.6 0.6 0.6 0.6 0.6 0.7 0.7 0.7 0.7 0.7 0.7 0.7 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0)) (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 665 374) (om-make-point -776 312) nil)) t nil nil nil (quote nil)))) (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 145 257) (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 1)) 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))) (quote ((16 1 6 0 nil 0) (10 0 6 1 nil 0) (8 0 6 2 nil 0) (12 1 7 0 nil 0) (13 1 7 1 nil 0) (9 1 7 2 nil 0) (7 0 11 1 nil 0) (7 1 11 2 nil 0) (6 0 15 1 nil 0) (6 1 15 2 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 65 19)) (setf (pict-size newpict) (om-make-point 168 112)) newpict)) 7.05))
|
