(in-package :om)(load-lib-for (quote nil))(setf *om-current-persistent* (om-load-patch1 "gen-IR" (quote ((om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 232 79) (om-make-point 41 30) 441 "441" nil) (om-load-boxin "input" 0 (om-make-point 338 7) "" nil nil nil) (om-load-boxout "output" 0 (om-make-point 292 262) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil) (om-load-boxcomment "comment 2" (om-make-point 91 30) (quote "Lowpass filter") "" (om-make-point 78 127) nil (om-make-color 0.0 0.19194556 1.0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) (om-load-boxcomment "comment" (om-make-point 120 30) (quote "frequency in Hertz") "" (om-make-point 385 40) nil (om-make-color 0.0 0.19194556 1.0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) (om-load-boxcall (quote genfun) "OM-SAMPLE" (quote om-sample) (quote ((om-load-inputfun (quote input-funbox) "object to resample" "SELF" nil) (om-load-inputfun (quote input-funbox) "number of samples (int) or sample rate (float)" "SAMPLE-RATE" 441) (om-load-inputfun (quote input-funbox) "" "XMIN" 1.0E-6) (om-load-inputfun (quote input-funbox) "" "XMAX" 3.14) (om-load-inputfun (quote input-funbox) "decimals" "DEC" 10))) (om-make-point 298 185) nil nil nil nil 3) (om-load-boxcall (quote abstraction) "sinc" (om-load-patch-abs1 "sinc" (quote ((om-load-boxcall (quote lispfun) "+" (quote +) (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 314 502) nil nil nil nil 1) (om-load-boxout "output" 0 (om-make-point 227 664) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil) (om-load-boxin "window size" 1 (om-make-point 480 92) "" "window size" nil nil) (om-load-boxcall (quote lispfun) "* 3" (quote *) (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 238 602) nil nil nil nil 1) (om-load-boxcall (quote lispfun) "COS" (quote cos) (quote ((om-load-inputfun (quote input-funbox) "A" "A" nil))) (om-make-point 330 450) nil nil nil nil 1) (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 232 239) (om-make-point 151 30) 3.141592653589793D0 "3.141592653589793D0" nil) (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 333 554) nil nil nil nil 1) (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 347 524) (om-make-point 38 30) 0.5 "0.5" nil) (om-load-boxcall (quote lispfun) "*" (quote *) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" 2) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 338 307) nil nil nil nil 1) (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 370 269) (om-make-point 27 30) 2 "2" nil) (om-load-boxcall (quote lispfun) "/ 2" (quote /) (quote ((om-load-inputfun (quote input-funbox) "NUM" "NUM" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 391 372) nil nil nil nil 1) (om-load-boxcall (quote lispfun) "- 3" (quote -) (quote ((om-load-inputfun (quote input-funbox) "NUM" "NUM" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" 1))) (om-make-point 507 302) nil nil nil nil 1) (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 268 448) (om-make-point 27 30) 1 "1" nil) (om-load-boxcall (quote lispfun) "-" (quote -) (quote ((om-load-inputfun (quote input-funbox) "NUM" "NUM" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" 1))) (om-make-point 470 259) nil nil nil nil 1) (om-load-boxcomment "comment 2" (om-make-point 97 30) (quote "Hann window") "" (om-make-point 580 330) nil (om-make-color 0.0 0.19194556 1.0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) (om-load-boxcomment "comment" (om-make-point 92 30) (quote "sinc function") "" (om-make-point 158 135) nil (om-make-color 0.0 0.19194556 1.0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))) (om-load-boxcall (quote lispfun) "SIN" (quote sin) (quote ((om-load-inputfun (quote input-funbox) "A" "A" nil))) (om-make-point 44 138) nil nil nil nil 1) (om-load-boxcall (quote lispfun) "/" (quote /) (quote ((om-load-inputfun (quote input-funbox) "NUM" "NUM" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 126 200) nil nil nil nil 1) (om-load-boxin "input" 0 (om-make-point 128 42) "" nil nil nil))) (quote ((12 0 0 0 nil 0) (4 0 0 1 nil 0) (3 0 1 0 nil 0) (17 0 3 0 nil 0) (6 0 3 1 nil 0) (10 0 4 0 nil 0) (0 0 6 0 nil 0) (7 0 6 1 nil 0) (5 0 8 0 nil 0) (9 0 8 1 nil 0) (13 0 8 2 nil 0) (8 0 10 0 nil 0) (11 0 10 1 nil 0) (2 0 11 0 nil 0) (18 0 13 0 nil 0) (18 0 16 0 nil 0) (16 0 17 0 nil 0) (18 0 17 1 nil 0))) 6.070004 nil "" (om-make-point 200 200) (om-make-point 795 753)) (quote ((om-load-inputfun (quote input-funbox) "" "input" nil) (om-load-inputfun (quote input-funbox) "" "window size" nil))) (om-make-point 179 113) nil nil "l" "sinc") (om-load-boxcall (quote lispfun) "* 2" (quote *) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" 0.03141592653589793D0) (om-load-inputfun (quote input-funbox) "add-input" "add-input" 1))) (om-make-point 350 140) nil nil nil nil 1) (om-load-boxcall (quote lispfun) "*" (quote *) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" -0.03141592653589793D0) (om-load-inputfun (quote input-funbox) "add-input" "add-input" 1))) (om-make-point 323 140) nil nil nil nil 1))) (quote ((5 0 2 0 nil 0) (6 0 5 0 nil 0) (0 0 5 1 nil 0) (8 0 5 2 nil 0) (7 0 5 3 nil 0) (0 0 6 1 nil 0) (1 0 7 1 nil 0) (1 0 8 1 nil 0))) nil 6.070004))
| 
