; OM File Header - Saved 2018/04/19 16:09:57
; (6.13 :patc (om-make-point 388 60) (om-make-point 50 50) (om-make-point 1680 943) "" 183 0 "2018/04/19 16:02:42" "2018/04/19 16:09:57")
; End File Header
; External resources 
; (list (list (quote :sound) "#P\"OpenMusic_Workspace/out-files/csound-add01.aif\""))
(in-package :om)(load-lib-for (quote ("OM2Csound")))(setf *om-current-persistent* (om-load-patch1 "csoundexample" (quote ((let ((box (om-load-boxcomment "comment" (om-make-point 166 32) (quote "DON'T UNBLOCK THIS!") nil (om-make-point 169 47) nil (om-make-color 0 0 0) (om-make-font "Liberation Sans" 12 :family "Liberation 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 83 48) (quote "evaluate$for orc text") nil (om-make-point 288 392) nil (om-make-color 0 0 0) (om-make-font "Liberation Sans" 12 :family "Liberation 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 98 48) (quote "evaluate$for score text") nil (om-make-point 28 392) nil (om-make-color 0 0 0) (om-make-font "Liberation Sans" 12 :family "Liberation 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 158 32) (quote "stretching onset/dur") "" (om-make-point 283 302) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :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 134 32) (quote "correct dynamics") "" (om-make-point 262 221) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD-SEQ" (quote chord-seq) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (mc): list or list of lists" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "onsets (ms): list" "lonset" (list 0 1000)) (om-load-inputfun (quote input-funbox) "durations (ms): list or list of lists" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "velocities (0-127): list or list of lists" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (ms): list or list of lists" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "MIDI channels (1-16): list or list of lists" "lchan" (list 1)) (om-load-inputfun (quote input-funbox) "relative chords duration (0-100)" "legato" 10))) (om-make-point 156 110) (om-make-point 130 70) (let ((newobj (when (find-class (quote chord-seq) nil) (make-instance (quote chord-seq) :lmidic (quote ((3982 5044 5440 5572 5686 5846 6054 6130 6252 6650 6668 6704 6778 6850 6964 6972 7056 7450 7476 7736) (2494 3616 4858 5066 5542 5710 5840 6052 6176 6236 6372 6636 6682 6768 7056 7120 7138 7170 7196 7708) (2518 3070 3342 4118 4322 5014 5380 5542 5754 5828 6176 6264 7456 7504 7580 7668 8780 8782 8834 8848) (4848 5068 5428 5576 5786 5852 6002 6262 6528 6694 6848 6972 6986 7474 7514 7666 8768 8820 8826 8840) (3036 3858 4194 4446 4934 5428 5536 5570 5740 5874 6172 6244 7182 7510 7538 7660 8778 8794 9260 9292) (3510 4274 5002 5290 5488 5808 5902 6082 6142 6342 6428 6652 6776 6836 6870 6930 7660 7706 8788 8846) (4434 4712 4976 5542 5684 5792 5890 5978 6054 6270 6460 7050 7082 7108 7148 7178 7452 7590 8762 8816) (3504 4320 4744 4974 5350 5410 5542 5760 5946 6176 6412 6468 6862 6896 6944 7358 7430 7450 8794 9294) (5030 5542 5750 5866 6146 6252 6432 6482 6508 6638 6688 6756 6822 6956 7046 7106 7164 7186 7458 7476) (4364 4700 4978 5058 5358 5496 5682 5772 6988 7054 7088 7132 7140 7194 7242 8766 8872 9286 9292 9578) (4692 5008 5234 5484 5544 5724 5804 7192 9696 9714 9722 9738 9744 9776 9800 9820 9830 9846 9858 9868))) :lonset (quote (0 2970 4652 5379 8265 9366 12377 13498 16613 19977 23279 25397)) :ldur (quote ((2970 2970 2970 2970 2970 2970 2970 2970 2970 2970 2970 2970 2970 2970 2970 2970 2970 2970 2970 2970) (1682 1682 1682 1682 1682 1682 1682 1682 1682 1682 1682 1682 1682 1682 1682 1682 1682 1682 1682 1682) (727 727 727 727 727 727 727 727 727 727 727 727 727 727 727 727 727 727 727 727) (2887 2887 2887 2887 2887 2887 2887 2887 2887 2887 2887 2887 2887 2887 2887 2887 2887 2887 2887 2887) (1101 1101 1101 1101 1101 1101 1101 1101 1101 1101 1101 1101 1101 1101 1101 1101 1101 1101 1101 1101) (3011 3011 3011 3011 3011 3011 3011 3011 3011 3011 3011 3011 3011 3011 3011 3011 3011 3011 3011 3011) (1121 1121 1121 1121 1121 1121 1121 1121 1121 1121 1121 1121 1121 1121 1121 1121 1121 1121 1121 1121) (3115 3115 3115 3115 3115 3115 3115 3115 3115 3115 3115 3115 3115 3115 3115 3115 3115 3115 3115 3115) (3364 3364 3364 3364 3364 3364 3364 3364 3364 3364 3364 3364 3364 3364 3364 3364 3364 3364 3364 3364) (3302 3302 3302 3302 3302 3302 3302 3302 3302 3302 3302 3302 3302 3302 3302 3302 3302 3302 3302 3302) (2118 2118 2118 2118 2118 2118 2118 2118 2118 2118 2118 2118 2118 2118 2118 2118 2118 2118 2118 2118))) :lvel (quote ((50 109 52 52 52 52 54 53 60 50 50 50 50 51 52 52 50 50 50 50) (50 50 53 54 51 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50) (50 50 50 50 50 66 51 52 51 51 50 50 50 50 50 50 50 50 50 50) (69 120 53 54 52 52 52 55 50 50 50 51 51 51 50 50 50 50 50 50) (50 50 51 51 75 52 53 53 52 51 50 50 50 50 50 50 50 50 50 50) (50 51 118 55 55 52 51 55 55 50 50 50 51 51 51 50 50 50 50 50) (53 58 74 57 53 53 56 55 53 53 51 51 51 51 51 51 51 51 51 51) (50 51 56 127 54 55 58 52 51 57 50 50 52 51 51 51 50 50 50 50) (110 54 52 52 55 58 51 51 51 51 51 51 51 52 51 51 50 50 50 50) (50 50 51 51 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50) (50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50 50))) :loffset (quote ((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 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) (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 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) (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 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) (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 0 0 0 0 0 0 0 0 0 0))) :lchan (quote ((1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) (1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) (1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) (1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) (1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) (1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) (1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) (1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) (1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) (1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) (1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1))) :legato 0)))) (load-port-info newobj (quote ((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 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) (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 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) (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 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) (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 0 0 0 0 0 0 0 0 0 0)))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote ((nil (om-load-patch-abs1 "patch" (quote nil) (quote nil) 6.13 nil "" (om-make-point 200 200) (om-make-point 400 500)))))) (set-name newobj nil) (set-tonalite newobj nil) newobj) "x" nil (pairlis (quote (cursor-mode palette-mode scale show-stems obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list (quote :normal) 0 nil (quote t) 1 0 (om-make-point 0 0) (om-make-point 1276 715) 0 1000 nil 49/100 (quote :midishare) 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) 4) (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) 2) (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 ggff) 24 4)) t nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "csound-fmbell" (om-load-patch-abs1 "csound-fmbell" (quote ((let ((box (om-load-boxcall (quote bastype) "aux 21" (quote t) (quote nil) (om-make-point 1051 261) (om-make-point 44 30) (quote outs) "outs" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 20" (quote t) (quote nil) (om-make-point 1129 54) (om-make-point 34 30) (quote p4) "p4" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 5" (om-make-point 57 23) (quote "vib r d") "" (om-make-point 1014 153) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 19" (quote t) (quote nil) (om-make-point 1042 178) (om-make-point 34 30) 12 "12" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 18" (quote t) (quote nil) (om-make-point 1012 178) (om-make-point 38 30) 0.6 "0.6" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 57 23) (quote "kc 1 e 2") "" (om-make-point 954 153) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 17" (quote t) (quote nil) (om-make-point 983 178) (om-make-point 27 30) 1 "1" 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 954 178) (om-make-point 27 30) 2 "2" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM* 2" (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))) (om-make-point 745 481) nil nil nil nil 1))) (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))) (om-make-point 307 282) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 4" (om-make-point 100 60) (quote "fattore moltiplicazione onset") "" (om-make-point 460 27) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :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 100 60) (quote "fattore moltiplicazione dur") "" (om-make-point 653 26) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input 5" 4 (om-make-point 725 83) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input 4" 3 (om-make-point 394 32) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 16" (quote t) (quote nil) (om-make-point 1020 60) (om-make-point 59 30) (quote p3*0.5) "p3*0.5" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 15" (quote t) (quote nil) (om-make-point 898 57) (om-make-point 34 30) (quote p4) "p4" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 14" (quote t) (quote nil) (om-make-point 980 60) (om-make-point 34 30) (quote p3) "p3" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 13" (quote t) (quote nil) (om-make-point 941 60) (om-make-point 38 30) 0.1 "0.1" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 12" (quote t) (quote nil) (om-make-point 860 60) (om-make-point 33 28) (quote linen) "linen" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 11" (quote t) (quote nil) (om-make-point 820 60) (om-make-point 34 30) (quote k1) "k1" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "LINEN" (quote linen) (quote ((om-load-inputfun (quote input-funbox) "name" "NAME" (quote k1)) (om-load-inputfunmenu1 (quote input-funmenu) "opcode" "MODE" (quote linen) (list (list "linen" (quote (quote linen))) (list "linenr" (quote (quote linenr))) (list "envlpx" (quote (quote envlpx))))) (om-load-inputfun (quote input-funbox) "xamp" "XAMP" 5000) (om-load-inputfun (quote input-funbox) "irise" "IRISE" 0.5) (om-load-inputfun (quote input-funbox) "idur" "IDUR" (quote p3)) (om-load-inputfun (quote input-funbox) "idec" "IDEC" 0.5))) (om-make-point 877 92) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 10" (quote t) (quote nil) (om-make-point 969 360) (om-make-point 27 30) 1 "1" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "INST" (quote inst) (quote ((om-load-inputfun (quote input-funbox) "instrument number" "INST-NUM" 1) (om-load-inputfun (quote input-funbox) "assign-val" "VARS" nil) (om-load-inputfun (quote input-funbox) "out" "OUT" nil))) (om-make-point 1003 395) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OUT" (quote out) (quote ((om-load-inputfunmenu1 (quote input-funmenu) "opcode" "MODE" (quote out) (list (list "out" (quote (quote out))) (list "outs" (quote (quote outs))) (list "outs1" (quote (quote outs1))) (list "outs2" (quote (quote outs2))))) (om-load-inputfun (quote input-funbox) "asig" "ASIG" (quote a1)) (om-load-inputfun (quote input-funbox) "optional" "LST?" nil))) (om-make-point 1058 311) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 9" (quote t) (quote nil) (om-make-point 797 180) (om-make-point 43 30) (quote asig) "asig" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 8" (quote t) (quote nil) (om-make-point 845 180) (om-make-point 55 30) (quote fmbell) "fmbell" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 7" (quote t) (quote nil) (om-make-point 1109 200) (om-make-point 27 30) 1 "1" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 915 178) (om-make-point 34 30) (quote p5) "p5" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "WRITE-CSOUND-ORC" (quote write-csound-orc) (quote ((om-load-inputfunmenu1 (quote input-funmenu) "filename" "OUT" (quote no-file) (list (list "text output" (quote (quote no-file))) (list "file output" (quote (quote file))))) (om-load-inputfun (quote input-funbox) "file header" "HEADER" "") (om-load-inputfun (quote input-funbox) "csound instrument" "INSTR" nil))) (om-make-point 893 425) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HEADER" (quote header) (quote ((om-load-inputfun (quote input-funbox) "sample rate" "SR" 44100) (om-load-inputfun (quote input-funbox) "control rate" "KR" 441) (om-load-inputfun (quote input-funbox) "sr/kr ratio" "KSMPS" 100) (om-load-inputfun (quote input-funbox) "number of channels" "NCHNLS" 2))) (om-make-point 823 264) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OSCIL" (quote oscil) (quote ((om-load-inputfun (quote input-funbox) "name" "NAME" (quote asig)) (om-load-inputfunmenu1 (quote input-funmenu) "opcode" "MODE" (quote oscil) (list (list "oscil" (quote (quote oscil))) (list "oscili" (quote (quote oscili))) (list "foscil" (quote (quote foscil))) (list "foscili" (quote (quote foscili))) (list "loscil" (quote (quote loscil))))) (om-load-inputfun (quote input-funbox) "amplitude" "XAMP" (quote p4)) (om-load-inputfun (quote input-funbox) "frequency (Hz)" "XCPS" 440) (om-load-inputfun (quote input-funbox) "table number" "IFN" 1) (om-load-inputfun (quote input-funbox) "optional" "LST?" 1) (om-load-inputfun (quote input-funbox) "optional" "LST?" 1) (om-load-inputfun (quote input-funbox) "optional" "LST?" 1) (om-load-inputfun (quote input-funbox) "optional" "LST?" nil) (om-load-inputfun (quote input-funbox) "optional" "LST?" nil) (om-load-inputfun (quote input-funbox) "optional" "LST?" nil) (om-load-inputfun (quote input-funbox) "optional" "LST?" nil) (om-load-inputfun (quote input-funbox) "optional" "LST?" nil))) (om-make-point 893 260) (om-make-point 130 70) nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxout "output 2" 1 (om-make-point 818 559) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxout "output" 0 (om-make-point 255 588) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment1 2" (om-make-point 25 25) (quote "dur") "" (om-make-point 362 319) nil (om-make-color 0 0 0) (om-make-font "Geneva" 10 :family "Geneva" :style (quote (:plain)) :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 719 405) (om-make-point 48 30) 1000 "1000" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM/ 2" (quote om/) (quote ((om-load-inputfun (quote input-funbox) "number or list" "ARG1" 1) (om-load-inputfun (quote input-funbox) "number or list" "ARG2" 1))) (om-make-point 709 435) 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 274 216) (om-make-point 48 30) 1000 "1000" 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" 1) (om-load-inputfun (quote input-funbox) "number or list" "ARG2" 1))) (om-make-point 264 246) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment111" (om-make-point 62 24) (quote "dynamics") "" (om-make-point 385 320) nil (om-make-color 0 0 0) (om-make-font "Geneva" 10 :family "Geneva" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment1" (om-make-point 42 28) (quote "onsets") "" (om-make-point 315 320) nil (om-make-color 0 0 0) (om-make-font "Geneva" 10 :family "Geneva" :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 31 28) (quote "instr") "" (om-make-point 222 277) nil (om-make-color 0 0 0) (om-make-font "Geneva" 10 :family "Geneva" :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 35 25) (quote "freq") "" (om-make-point 440 320) nil (om-make-color 0 0 0) (om-make-font "Geneva" 10 :family "Geneva" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "MC->F" (quote mc->f) (quote ((om-load-inputfun (quote input-funbox) "midic" "MIDICS?" 6000))) (om-make-point 333 195) nil nil nil nil 1))) (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 224 305) (om-make-point 21 30) 1 "1" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "MAKE-OBJ-SND" (quote make-obj-snd) (quote ((om-load-inputfun (quote input-funbox) "Lins" "LINS" (list 1)) (om-load-inputfun (quote input-funbox) "Lonsets" "LDATS" (list 1)) (om-load-inputfun (quote input-funbox) "Ldurs" "LDURS" (list 1)) (om-load-inputfun (quote input-funbox) "Lp4" "LP4" (list 1)) (om-load-inputfun (quote input-funbox) "Lp5" "LP5" (list 440)))) (om-make-point 264 355) (om-make-point 220 61) nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "X->DX" (quote x->dx) (quote ((om-load-inputfun (quote input-funbox) "a list of numbers" "SELF" 0))) (om-make-point 524 143) nil nil nil nil 1))) (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-make-point 623 187) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LIST 2" (quote list) (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 604 252) nil nil nil nil 1))) (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 571 216) (om-make-point 27 30) 0 "0" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "FLAT" (quote flat) (quote ((om-load-inputfun (quote input-funbox) "a list" "LST" nil))) (om-make-point 637 295) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM-SCALE" (quote om-scale) (quote ((om-load-inputfun (quote input-funbox) "number or list" "SELF" 1) (om-load-inputfun (quote input-funbox) "a number" "MINOUT" 0) (om-load-inputfun (quote input-funbox) "a number" "MAXOUT" 10000) (om-load-inputfun (quote input-funbox) "a number" "MININ" 0) (om-load-inputfun (quote input-funbox) "a number" "MAXIN" 127))) (om-make-point 393 190) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM-ROUND" (quote om-round) (quote ((om-load-inputfun (quote input-funbox) "number or list" "N" 1))) (om-make-point 488 235) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "DX->X" (quote dx->x) (quote ((om-load-inputfun (quote input-funbox) "a number" "START" 0) (om-load-inputfun (quote input-funbox) "a list of numbers" "LIST" (list 1 1)))) (om-make-point 667 357) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "FIRST" (quote first) (quote ((om-load-inputfun (quote input-funbox) "LIST" "LIST" nil))) (om-make-point 684 297) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "WRITE-CSOUND-SCORE" (quote write-csound-score) (quote ((om-load-inputfunmenu1 (quote input-funmenu) "filename" "OUT" (quote no-file) (list (list "text output" (quote (quote no-file))) (list "file output" (quote (quote file))))) (om-load-inputfun (quote input-funbox) "score data" "DATA" nil))) (om-make-point 194 496) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "TABLE" (quote table) (quote ((om-load-inputfun (quote input-funbox) "table ID" "TABLE" 1) (om-load-inputfun (quote input-funbox) "time (sec)" "TIME" 0) (om-load-inputfun (quote input-funbox) "size" "SIZE" 4096) (om-load-inputfun (quote input-funbox) "GEN number" "GEN" 10) (om-load-inputfun (quote input-funbox) "values" "PARGEN" (list 1)))) (om-make-point 67 313) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LIST" (quote list) (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 50 407) (om-make-point 137 43) nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 225 29) (quote "midic      onset        vel") "" (om-make-point 189 33) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input 3" 2 (om-make-point 294 59) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input 2" 1 (om-make-point 244 59) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input" 0 (om-make-point 194 59) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((35 0 8 0 nil 0) (12 0 8 1 nil 0) (37 0 9 0 nil 0) (13 0 9 1 nil 0) (19 0 20 0 nil 0) (18 0 20 1 nil 0) (15 0 20 2 nil 0) (17 0 20 3 nil 0) (16 0 20 4 nil 0) (14 0 20 5 nil 0) (21 0 22 0 nil 0) (23 0 22 2 nil 0) (0 0 23 0 nil 0) (30 0 23 1 nil 0) (30 0 23 2 nil 0) (29 0 28 1 nil 0) (22 0 28 2 nil 0) (24 0 30 0 nil 0) (25 0 30 1 nil 0) (20 0 30 2 nil 0) (27 0 30 3 nil 0) (7 0 30 4 nil 0) (6 0 30 5 nil 0) (4 0 30 6 nil 0) (3 0 30 7 nil 0) (26 0 30 8 nil 0) (26 0 30 9 nil 0) (26 0 30 10 nil 0) (26 0 30 11 nil 0) (26 0 30 12 nil 0) (28 0 31 0 nil 0) (54 0 32 0 nil 0) (52 0 35 0 nil 0) (34 0 35 1 nil 0) (59 0 37 0 nil 0) (36 0 37 1 nil 0) (60 0 42 0 nil 0) (43 0 44 0 nil 0) (9 0 44 1 nil 0) (8 0 44 2 nil 0) (51 0 44 3 nil 0) (42 0 44 4 nil 0) (59 0 45 0 nil 0) (45 0 46 0 nil 0) (48 0 47 0 nil 0) (46 0 47 1 nil 0) (47 0 49 0 nil 0) (58 0 50 0 nil 0) (50 0 51 0 nil 0) (53 0 52 0 nil 0) (49 0 52 1 nil 0) (45 0 53 0 nil 0) (56 0 54 1 nil 0) (55 0 56 0 nil 0) (44 0 56 1 nil 0))) 6.13 nil "" (om-make-point 0 0) (om-make-point 1221 691)) (quote ((om-load-inputfun (quote input-funbox) "" "input" nil) (om-load-inputfun (quote input-funbox) "" "input 2" nil) (om-load-inputfun (quote input-funbox) "" "input 3" nil) (om-load-inputfun (quote input-funbox) "" "input 4" nil) (om-load-inputfun (quote input-funbox) "" "input 5" nil))) (om-make-point 166 365) nil (list (list "f 1	 0	 4096	 10	 1	 " ";p1	p2	p3	p4	p5	
i 1	 0	 2.9700	 492	 81.5545	 " "i 1	 0	 2.9700	 1073	 150.6120	 " "i 1	 0	 2.9700	 512	 189.3213	 " "i 1	 0	 2.9700	 512	 204.3209	 " "i 1	 0	 2.9700	 512	 218.2281	 " "i 1	 0	 2.9700	 512	 239.3580	 " "i 1	 0	 2.9700	 531	 269.9147	 " "i 1	 0	 2.9700	 522	 282.0277	 " "i 1	 0	 2.9700	 591	 302.6192	 " "i 1	 0	 2.9700	 492	 380.8361	 " "i 1	 0	 2.9700	 492	 384.8164	 " "i 1	 0	 2.9700	 492	 392.9022	 " "i 1	 0	 2.9700	 492	 410.0606	 " "i 1	 0	 2.9700	 502	 427.4741	 " "i 1	 0	 2.9700	 512	 456.5702	 " "i 1	 0	 2.9700	 512	 458.6850	 " "i 1	 0	 2.9700	 492	 481.4892	 " "i 1	 0	 2.9700	 492	 604.5396	 " "i 1	 0	 2.9700	 492	 613.6872	 " "i 1	 0	 2.9700	 492	 713.1325	 " "i 1	 2.9700	 2.9700	 492	 34.5280	 " "i 1	 2.9700	 2.9700	 492	 66.0137	 " "i 1	 2.9700	 2.9700	 522	 135.2695	 " "i 1	 2.9700	 2.9700	 531	 152.5382	 " "i 1	 2.9700	 2.9700	 502	 200.8108	 " "i 1	 2.9700	 2.9700	 492	 221.2745	 " "i 1	 2.9700	 2.9700	 492	 238.5299	 " "i 1	 2.9700	 2.9700	 492	 269.6031	 " "i 1	 2.9700	 2.9700	 492	 289.6218	 " "i 1	 2.9700	 2.9700	 492	 299.8353	 " "i 1	 2.9700	 2.9700	 492	 324.3392	 " "i 1	 2.9700	 2.9700	 492	 377.7688	 " "i 1	 2.9700	 2.9700	 492	 387.9409	 " "i 1	 2.9700	 2.9700	 492	 407.6987	 " "i 1	 2.9700	 2.9700	 492	 481.4892	 " "i 1	 2.9700	 2.9700	 492	 499.6220	 " "i 1	 2.9700	 2.9700	 492	 504.8438	 " "i 1	 2.9700	 2.9700	 492	 514.2620	 " "i 1	 2.9700	 2.9700	 492	 522.0436	 " "i 1	 2.9700	 2.9700	 492	 701.6915	 " "i 1	 4.6520	 5.9400	 492	 35.0100	 " "i 1	 4.6520	 5.9400	 492	 48.1576	 " "i 1	 4.6520	 5.9400	 492	 56.3506	 " "i 1	 4.6520	 5.9400	 492	 88.2195	 " "i 1	 4.6520	 5.9400	 492	 99.2522	 " "i 1	 4.6520	 5.9400	 650	 148.0246	 " "i 1	 4.6520	 5.9400	 502	 182.8724	 " "i 1	 4.6520	 5.9400	 512	 200.8108	 " "i 1	 4.6520	 5.9400	 502	 226.9703	 " "i 1	 4.6520	 5.9400	 502	 236.8822	 " "i 1	 4.6520	 5.9400	 492	 289.6218	 " "i 1	 4.6520	 5.9400	 492	 304.7241	 " "i 1	 4.6520	 5.9400	 492	 606.6384	 " "i 1	 4.6520	 5.9400	 492	 623.6934	 " "i 1	 4.6520	 5.9400	 492	 651.6829	 " "i 1	 4.6520	 5.9400	 492	 685.6648	 " "i 1	 4.6520	 5.9400	 492	 1303.3659	 " "i 1	 4.6520	 5.9400	 492	 1304.8726	 " "i 1	 4.6520	 5.9400	 492	 1344.6607	 " "i 1	 4.6520	 5.9400	 492	 1355.5786	 " "i 1	 5.3790	 7.6220	 679	 134.4904	 " "i 1	 5.3790	 7.6220	 1181	 152.7145	 " "i 1	 5.3790	 7.6220	 522	 188.0136	 " "i 1	 5.3790	 7.6220	 531	 204.7935	 " "i 1	 5.3790	 7.6220	 512	 231.2046	 " "i 1	 5.3790	 7.6220	 512	 240.1890	 " "i 1	 5.3790	 7.6220	 512	 261.9280	 " "i 1	 5.3790	 7.6220	 541	 304.3722	 " "i 1	 5.3790	 7.6220	 492	 354.9224	 " "i 1	 5.3790	 7.6220	 492	 390.6392	 " "i 1	 5.3790	 7.6220	 492	 426.9805	 " "i 1	 5.3790	 7.6220	 502	 458.6850	 " "i 1	 5.3790	 7.6220	 502	 462.4092	 " "i 1	 5.3790	 7.6220	 502	 612.9786	 " "i 1	 5.3790	 7.6220	 492	 627.3063	 " "i 1	 5.3790	 7.6220	 492	 684.8732	 " "i 1	 5.3790	 7.6220	 492	 1294.3628	 " "i 1	 5.3790	 7.6220	 492	 1333.8306	 " "i 1	 5.3790	 7.6220	 492	 1338.4613	 " "i 1	 5.3790	 7.6220	 492	 1349.3289	 " "i 1	 8.2650	 8.3490	 492	 47.2211	 " "i 1	 8.2650	 8.3490	 492	 75.9174	 " "i 1	 8.2650	 8.3490	 502	 92.1786	 " "i 1	 8.2650	 8.3490	 502	 106.6219	 " "i 1	 8.2650	 8.3490	 738	 141.3400	 " "i 1	 8.2650	 8.3490	 512	 188.0136	 " "i 1	 8.2650	 8.3490	 522	 200.1160	 " "i 1	 8.2650	 8.3490	 522	 204.0850	 " "i 1	 8.2650	 8.3490	 512	 225.1423	 " "i 1	 8.2650	 8.3490	 502	 243.2607	 " "i 1	 8.2650	 8.3490	 492	 288.9534	 " "i 1	 8.2650	 8.3490	 492	 301.2240	 " "i 1	 8.2650	 8.3490	 492	 517.8389	 " "i 1	 8.2650	 8.3490	 492	 625.8586	 " "i 1	 8.2650	 8.3490	 492	 636.0632	 " "i 1	 8.2650	 8.3490	 492	 682.5037	 " "i 1	 8.2650	 8.3490	 492	 1301.8610	 " "i 1	 8.2650	 8.3490	 492	 1313.9486	 " "i 1	 8.2650	 8.3490	 492	 1719.8015	 " "i 1	 8.2650	 8.3490	 492	 1751.8859	 " "i 1	 9.3660	 11.2350	 492	 62.0930	 " "i 1	 9.3660	 11.2350	 502	 96.5381	 " "i 1	 9.3660	 11.2350	 1161	 147.0021	 " "i 1	 9.3660	 11.2350	 541	 173.6084	 " "i 1	 9.3660	 11.2350	 541	 194.6439	 " "i 1	 9.3660	 11.2350	 512	 234.1614	 " "i 1	 9.3660	 11.2350	 502	 247.2271	 " "i 1	 9.3660	 11.2350	 541	 274.3156	 " "i 1	 9.3660	 11.2350	 541	 283.9894	 " "i 1	 9.3660	 11.2350	 492	 318.7673	 " "i 1	 9.3660	 11.2350	 492	 335.0021	 " "i 1	 9.3660	 11.2350	 492	 381.2763	 " "i 1	 9.3660	 11.2350	 502	 409.5871	 " "i 1	 9.3660	 11.2350	 502	 424.0311	 " "i 1	 9.3660	 11.2350	 502	 432.4410	 " "i 1	 9.3660	 11.2350	 492	 447.6910	 " "i 1	 9.3660	 11.2350	 492	 682.5037	 " "i 1	 9.3660	 11.2350	 492	 700.8813	 " "i 1	 9.3660	 11.2350	 492	 1309.4027	 " "i 1	 9.3660	 11.2350	 492	 1354.0136	 " "i 1	 12.3770	 12.3360	 522	 105.8854	 " "i 1	 12.3770	 12.3360	 571	 124.3296	 " "i 1	 12.3770	 12.3360	 728	 144.8109	 " "i 1	 12.3770	 12.3360	 561	 200.8108	 " "i 1	 12.3770	 12.3360	 522	 217.9761	 " "i 1	 12.3770	 12.3360	 522	 232.0073	 " "i 1	 12.3770	 12.3360	 551	 245.5194	 " "i 1	 12.3770	 12.3360	 541	 258.3219	 " "i 1	 12.3770	 12.3360	 522	 269.9147	 " "i 1	 12.3770	 12.3360	 522	 305.7820	 " "i 1	 12.3770	 12.3360	 502	 341.2518	 " "i 1	 12.3770	 12.3360	 502	 479.8234	 " "i 1	 12.3770	 12.3360	 502	 488.7749	 " "i 1	 12.3770	 12.3360	 502	 496.1708	 " "i 1	 12.3770	 12.3360	 502	 507.7682	 " "i 1	 12.3770	 12.3360	 502	 516.6439	 " "i 1	 12.3770	 12.3360	 502	 605.2384	 " "i 1	 12.3770	 12.3360	 502	 655.4581	 " "i 1	 12.3770	 12.3360	 502	 1289.8847	 " "i 1	 12.3770	 12.3360	 502	 1330.7523	 " "i 1	 13.4980	 15.3470	 492	 61.8782	 " "i 1	 13.4980	 15.3470	 502	 99.1375	 " "i 1	 13.4980	 15.3470	 551	 126.6491	 " "i 1	 13.4980	 15.3470	 1250	 144.6437	 " "i 1	 13.4980	 15.3470	 531	 179.7307	 " "i 1	 13.4980	 15.3470	 541	 186.0689	 " "i 1	 13.4980	 15.3470	 571	 200.8108	 " "i 1	 13.4980	 15.3470	 512	 227.7583	 " "i 1	 13.4980	 15.3470	 502	 253.5910	 " "i 1	 13.4980	 15.3470	 561	 289.6218	 " "i 1	 13.4980	 15.3470	 492	 331.9203	 " "i 1	 13.4980	 15.3470	 492	 342.8324	 " "i 1	 13.4980	 15.3470	 512	 430.4474	 " "i 1	 13.4980	 15.3470	 502	 438.9846	 " "i 1	 13.4980	 15.3470	 502	 451.3261	 " "i 1	 13.4980	 15.3470	 502	 573.2523	 " "i 1	 13.4980	 15.3470	 492	 597.5959	 " "i 1	 13.4980	 15.3470	 492	 604.5396	 " "i 1	 13.4980	 15.3470	 492	 1313.9486	 " "i 1	 13.4980	 15.3470	 492	 1753.9109	 " "i 1	 16.6130	 16.4680	 1083	 149.3990	 " "i 1	 16.6130	 16.4680	 531	 200.8108	 " "i 1	 16.6130	 16.4680	 512	 226.4465	 " "i 1	 16.6130	 16.4680	 512	 242.1392	 " "i 1	 16.6130	 16.4680	 541	 284.6463	 " "i 1	 16.6130	 16.4680	 571	 302.6192	 " "i 1	 16.6130	 16.4680	 502	 335.7770	 " "i 1	 16.6130	 16.4680	 502	 345.6160	 " "i 1	 16.6130	 16.4680	 502	 350.8457	 " "i 1	 16.6130	 16.4680	 502	 378.2055	 " "i 1	 16.6130	 16.4680	 502	 389.2877	 " "i 1	 16.6130	 16.4680	 502	 404.8826	 " "i 1	 16.6130	 16.4680	 502	 420.6159	 " "i 1	 16.6130	 16.4680	 512	 454.4653	 " "i 1	 16.6130	 16.4680	 502	 478.7160	 " "i 1	 16.6130	 16.4680	 502	 495.5980	 " "i 1	 16.6130	 16.4680	 492	 512.4827	 " "i 1	 16.6130	 16.4680	 492	 519.0368	 " "i 1	 16.6130	 16.4680	 492	 607.3396	 " "i 1	 16.6130	 16.4680	 492	 613.6872	 " "i 1	 19.9770	 19.5830	 492	 101.6895	 " "i 1	 19.9770	 19.5830	 492	 123.4708	 " "i 1	 19.9770	 19.5830	 502	 144.9783	 " "i 1	 19.9770	 19.5830	 502	 151.8349	 " "i 1	 19.9770	 19.5830	 492	 180.5632	 " "i 1	 19.9770	 19.5830	 492	 195.5454	 " "i 1	 19.9770	 19.5830	 492	 217.7245	 " "i 1	 19.9770	 19.5830	 492	 229.3425	 " "i 1	 19.9770	 19.5830	 492	 462.9438	 " "i 1	 19.9770	 19.5830	 492	 480.9333	 " "i 1	 19.9770	 19.5830	 492	 490.4718	 " "i 1	 19.9770	 19.5830	 492	 503.0971	 " "i 1	 19.9770	 19.5830	 492	 505.4273	 " "i 1	 19.9770	 19.5830	 492	 521.4409	 " "i 1	 19.9770	 19.5830	 492	 536.1005	 " "i 1	 19.9770	 19.5830	 492	 1292.8683	 " "i 1	 19.9770	 19.5830	 492	 1374.5017	 " "i 1	 19.9770	 19.5830	 492	 1745.8248	 " "i 1	 19.9770	 19.5830	 492	 1751.8859	 " "i 1	 19.9770	 19.5830	 492	 2066.5752	 " "i 1	 23.2790	 22.9470	 492	 122.9016	 " "i 1	 23.2790	 22.9470	 492	 147.5125	 " "i 1	 23.2790	 22.9470	 492	 168.0826	 " "i 1	 23.2790	 22.9470	 492	 194.1947	 " "i 1	 23.2790	 22.9470	 492	 201.0429	 " "i 1	 23.2790	 22.9470	 492	 223.0711	 " "i 1	 23.2790	 22.9470	 492	 233.6210	 " "i 1	 23.2790	 22.9470	 492	 520.8388	 " "i 1	 23.2790	 22.9470	 492	 2212.3435	 " "i 1	 23.2790	 22.9470	 492	 2235.4658	 " "i 1	 23.2790	 22.9470	 492	 2245.8196	 " "i 1	 23.2790	 22.9470	 492	 2266.6717	 " "i 1	 23.2790	 22.9470	 492	 2274.5408	 " "i 1	 23.2790	 22.9470	 492	 2316.9744	 " "i 1	 23.2790	 22.9470	 492	 2349.3184	 " "i 1	 23.2790	 22.9470	 492	 2376.6160	 " "i 1	 23.2790	 22.9470	 492	 2390.3836	 " "i 1	 23.2790	 22.9470	 492	 2412.5777	 " "i 1	 23.2790	 22.9470	 492	 2429.3584	 " "i 1	 23.2790	 22.9470	 492	 2443.4320	 " "e") (list "sr= 44100 
kr= 441 
ksmps= 100 
nchnls= 2" "
 " "instr 1" "k1  linen  p4,.1000	,p3,p3*0.5" "asig  fmbell  k1,p5,2	,1	,.6000	,12	,1	,1	,1	,1	,1	" "     outs  asig,asig" "    endin")) nil "csound-fmbell"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "TEXTFILE 2" (quote textfile) (quote ((om-load-inputfun (quote input-funbox) "object or object list" "self" nil) (om-load-inputfun (quote input-funbox) "text to put in the file" "exp-list" nil) (om-load-inputfunmenu1 (quote input-funmenu) "append or supersede mode" "ed-mode" "supersede" (list (list "append" "append") (list "supersede" "supersede"))) (om-load-inputfunmenu1 (quote input-funmenu) "contents eval mode" "eval-mode" "text" (list (list "text" "text") (list "data list" "data") (list "list" "list"))))) (om-make-point 20 461) (om-make-point 124 61) (load-buffer-textfile (quote ("f 1	 0	 4096	 10	 1	 " ";p1	p2	p3	p4	p5	" "i 1	 0	 2.9700	 492	 81.5545	 " "i 1	 0	 2.9700	 1073	 150.6120	 " "i 1	 0	 2.9700	 512	 189.3213	 " "i 1	 0	 2.9700	 512	 204.3209	 " "i 1	 0	 2.9700	 512	 218.2281	 " "i 1	 0	 2.9700	 512	 239.3580	 " "i 1	 0	 2.9700	 531	 269.9147	 " "i 1	 0	 2.9700	 522	 282.0277	 " "i 1	 0	 2.9700	 591	 302.6192	 " "i 1	 0	 2.9700	 492	 380.8361	 " "i 1	 0	 2.9700	 492	 384.8164	 " "i 1	 0	 2.9700	 492	 392.9022	 " "i 1	 0	 2.9700	 492	 410.0606	 " "i 1	 0	 2.9700	 502	 427.4741	 " "i 1	 0	 2.9700	 512	 456.5702	 " "i 1	 0	 2.9700	 512	 458.6850	 " "i 1	 0	 2.9700	 492	 481.4892	 " "i 1	 0	 2.9700	 492	 604.5396	 " "i 1	 0	 2.9700	 492	 613.6872	 " "i 1	 0	 2.9700	 492	 713.1325	 " "i 1	 2.9700	 2.9700	 492	 34.5280	 " "i 1	 2.9700	 2.9700	 492	 66.0137	 " "i 1	 2.9700	 2.9700	 522	 135.2695	 " "i 1	 2.9700	 2.9700	 531	 152.5382	 " "i 1	 2.9700	 2.9700	 502	 200.8108	 " "i 1	 2.9700	 2.9700	 492	 221.2745	 " "i 1	 2.9700	 2.9700	 492	 238.5299	 " "i 1	 2.9700	 2.9700	 492	 269.6031	 " "i 1	 2.9700	 2.9700	 492	 289.6218	 " "i 1	 2.9700	 2.9700	 492	 299.8353	 " "i 1	 2.9700	 2.9700	 492	 324.3392	 " "i 1	 2.9700	 2.9700	 492	 377.7688	 " "i 1	 2.9700	 2.9700	 492	 387.9409	 " "i 1	 2.9700	 2.9700	 492	 407.6987	 " "i 1	 2.9700	 2.9700	 492	 481.4892	 " "i 1	 2.9700	 2.9700	 492	 499.6220	 " "i 1	 2.9700	 2.9700	 492	 504.8438	 " "i 1	 2.9700	 2.9700	 492	 514.2620	 " "i 1	 2.9700	 2.9700	 492	 522.0436	 " "i 1	 2.9700	 2.9700	 492	 701.6915	 " "i 1	 4.6520	 5.9400	 492	 35.0100	 " "i 1	 4.6520	 5.9400	 492	 48.1576	 " "i 1	 4.6520	 5.9400	 492	 56.3506	 " "i 1	 4.6520	 5.9400	 492	 88.2195	 " "i 1	 4.6520	 5.9400	 492	 99.2522	 " "i 1	 4.6520	 5.9400	 650	 148.0246	 " "i 1	 4.6520	 5.9400	 502	 182.8724	 " "i 1	 4.6520	 5.9400	 512	 200.8108	 " "i 1	 4.6520	 5.9400	 502	 226.9703	 " "i 1	 4.6520	 5.9400	 502	 236.8822	 " "i 1	 4.6520	 5.9400	 492	 289.6218	 " "i 1	 4.6520	 5.9400	 492	 304.7241	 " "i 1	 4.6520	 5.9400	 492	 606.6384	 " "i 1	 4.6520	 5.9400	 492	 623.6934	 " "i 1	 4.6520	 5.9400	 492	 651.6829	 " "i 1	 4.6520	 5.9400	 492	 685.6648	 " "i 1	 4.6520	 5.9400	 492	 1303.3659	 " "i 1	 4.6520	 5.9400	 492	 1304.8726	 " "i 1	 4.6520	 5.9400	 492	 1344.6607	 " "i 1	 4.6520	 5.9400	 492	 1355.5786	 " "i 1	 5.3790	 7.6220	 679	 134.4904	 " "i 1	 5.3790	 7.6220	 1181	 152.7145	 " "i 1	 5.3790	 7.6220	 522	 188.0136	 " "i 1	 5.3790	 7.6220	 531	 204.7935	 " "i 1	 5.3790	 7.6220	 512	 231.2046	 " "i 1	 5.3790	 7.6220	 512	 240.1890	 " "i 1	 5.3790	 7.6220	 512	 261.9280	 " "i 1	 5.3790	 7.6220	 541	 304.3722	 " "i 1	 5.3790	 7.6220	 492	 354.9224	 " "i 1	 5.3790	 7.6220	 492	 390.6392	 " "i 1	 5.3790	 7.6220	 492	 426.9805	 " "i 1	 5.3790	 7.6220	 502	 458.6850	 " "i 1	 5.3790	 7.6220	 502	 462.4092	 " "i 1	 5.3790	 7.6220	 502	 612.9786	 " "i 1	 5.3790	 7.6220	 492	 627.3063	 " "i 1	 5.3790	 7.6220	 492	 684.8732	 " "i 1	 5.3790	 7.6220	 492	 1294.3628	 " "i 1	 5.3790	 7.6220	 492	 1333.8306	 " "i 1	 5.3790	 7.6220	 492	 1338.4613	 " "i 1	 5.3790	 7.6220	 492	 1349.3289	 " "i 1	 8.2650	 8.3490	 492	 47.2211	 " "i 1	 8.2650	 8.3490	 492	 75.9174	 " "i 1	 8.2650	 8.3490	 502	 92.1786	 " "i 1	 8.2650	 8.3490	 502	 106.6219	 " "i 1	 8.2650	 8.3490	 738	 141.3400	 " "i 1	 8.2650	 8.3490	 512	 188.0136	 " "i 1	 8.2650	 8.3490	 522	 200.1160	 " "i 1	 8.2650	 8.3490	 522	 204.0850	 " "i 1	 8.2650	 8.3490	 512	 225.1423	 " "i 1	 8.2650	 8.3490	 502	 243.2607	 " "i 1	 8.2650	 8.3490	 492	 288.9534	 " "i 1	 8.2650	 8.3490	 492	 301.2240	 " "i 1	 8.2650	 8.3490	 492	 517.8389	 " "i 1	 8.2650	 8.3490	 492	 625.8586	 " "i 1	 8.2650	 8.3490	 492	 636.0632	 " "i 1	 8.2650	 8.3490	 492	 682.5037	 " "i 1	 8.2650	 8.3490	 492	 1301.8610	 " "i 1	 8.2650	 8.3490	 492	 1313.9486	 " "i 1	 8.2650	 8.3490	 492	 1719.8015	 " "i 1	 8.2650	 8.3490	 492	 1751.8859	 " "i 1	 9.3660	 11.2350	 492	 62.0930	 " "i 1	 9.3660	 11.2350	 502	 96.5381	 " "i 1	 9.3660	 11.2350	 1161	 147.0021	 " "i 1	 9.3660	 11.2350	 541	 173.6084	 " "i 1	 9.3660	 11.2350	 541	 194.6439	 " "i 1	 9.3660	 11.2350	 512	 234.1614	 " "i 1	 9.3660	 11.2350	 502	 247.2271	 " "i 1	 9.3660	 11.2350	 541	 274.3156	 " "i 1	 9.3660	 11.2350	 541	 283.9894	 " "i 1	 9.3660	 11.2350	 492	 318.7673	 " "i 1	 9.3660	 11.2350	 492	 335.0021	 " "i 1	 9.3660	 11.2350	 492	 381.2763	 " "i 1	 9.3660	 11.2350	 502	 409.5871	 " "i 1	 9.3660	 11.2350	 502	 424.0311	 " "i 1	 9.3660	 11.2350	 502	 432.4410	 " "i 1	 9.3660	 11.2350	 492	 447.6910	 " "i 1	 9.3660	 11.2350	 492	 682.5037	 " "i 1	 9.3660	 11.2350	 492	 700.8813	 " "i 1	 9.3660	 11.2350	 492	 1309.4027	 " "i 1	 9.3660	 11.2350	 492	 1354.0136	 " "i 1	 12.3770	 12.3360	 522	 105.8854	 " "i 1	 12.3770	 12.3360	 571	 124.3296	 " "i 1	 12.3770	 12.3360	 728	 144.8109	 " "i 1	 12.3770	 12.3360	 561	 200.8108	 " "i 1	 12.3770	 12.3360	 522	 217.9761	 " "i 1	 12.3770	 12.3360	 522	 232.0073	 " "i 1	 12.3770	 12.3360	 551	 245.5194	 " "i 1	 12.3770	 12.3360	 541	 258.3219	 " "i 1	 12.3770	 12.3360	 522	 269.9147	 " "i 1	 12.3770	 12.3360	 522	 305.7820	 " "i 1	 12.3770	 12.3360	 502	 341.2518	 " "i 1	 12.3770	 12.3360	 502	 479.8234	 " "i 1	 12.3770	 12.3360	 502	 488.7749	 " "i 1	 12.3770	 12.3360	 502	 496.1708	 " "i 1	 12.3770	 12.3360	 502	 507.7682	 " "i 1	 12.3770	 12.3360	 502	 516.6439	 " "i 1	 12.3770	 12.3360	 502	 605.2384	 " "i 1	 12.3770	 12.3360	 502	 655.4581	 " "i 1	 12.3770	 12.3360	 502	 1289.8847	 " "i 1	 12.3770	 12.3360	 502	 1330.7523	 " "i 1	 13.4980	 15.3470	 492	 61.8782	 " "i 1	 13.4980	 15.3470	 502	 99.1375	 " "i 1	 13.4980	 15.3470	 551	 126.6491	 " "i 1	 13.4980	 15.3470	 1250	 144.6437	 " "i 1	 13.4980	 15.3470	 531	 179.7307	 " "i 1	 13.4980	 15.3470	 541	 186.0689	 " "i 1	 13.4980	 15.3470	 571	 200.8108	 " "i 1	 13.4980	 15.3470	 512	 227.7583	 " "i 1	 13.4980	 15.3470	 502	 253.5910	 " "i 1	 13.4980	 15.3470	 561	 289.6218	 " "i 1	 13.4980	 15.3470	 492	 331.9203	 " "i 1	 13.4980	 15.3470	 492	 342.8324	 " "i 1	 13.4980	 15.3470	 512	 430.4474	 " "i 1	 13.4980	 15.3470	 502	 438.9846	 " "i 1	 13.4980	 15.3470	 502	 451.3261	 " "i 1	 13.4980	 15.3470	 502	 573.2523	 " "i 1	 13.4980	 15.3470	 492	 597.5959	 " "i 1	 13.4980	 15.3470	 492	 604.5396	 " "i 1	 13.4980	 15.3470	 492	 1313.9486	 " "i 1	 13.4980	 15.3470	 492	 1753.9109	 " "i 1	 16.6130	 16.4680	 1083	 149.3990	 " "i 1	 16.6130	 16.4680	 531	 200.8108	 " "i 1	 16.6130	 16.4680	 512	 226.4465	 " "i 1	 16.6130	 16.4680	 512	 242.1392	 " "i 1	 16.6130	 16.4680	 541	 284.6463	 " "i 1	 16.6130	 16.4680	 571	 302.6192	 " "i 1	 16.6130	 16.4680	 502	 335.7770	 " "i 1	 16.6130	 16.4680	 502	 345.6160	 " "i 1	 16.6130	 16.4680	 502	 350.8457	 " "i 1	 16.6130	 16.4680	 502	 378.2055	 " "i 1	 16.6130	 16.4680	 502	 389.2877	 " "i 1	 16.6130	 16.4680	 502	 404.8826	 " "i 1	 16.6130	 16.4680	 502	 420.6159	 " "i 1	 16.6130	 16.4680	 512	 454.4653	 " "i 1	 16.6130	 16.4680	 502	 478.7160	 " "i 1	 16.6130	 16.4680	 502	 495.5980	 " "i 1	 16.6130	 16.4680	 492	 512.4827	 " "i 1	 16.6130	 16.4680	 492	 519.0368	 " "i 1	 16.6130	 16.4680	 492	 607.3396	 " "i 1	 16.6130	 16.4680	 492	 613.6872	 " "i 1	 19.9770	 19.5830	 492	 101.6895	 " "i 1	 19.9770	 19.5830	 492	 123.4708	 " "i 1	 19.9770	 19.5830	 502	 144.9783	 " "i 1	 19.9770	 19.5830	 502	 151.8349	 " "i 1	 19.9770	 19.5830	 492	 180.5632	 " "i 1	 19.9770	 19.5830	 492	 195.5454	 " "i 1	 19.9770	 19.5830	 492	 217.7245	 " "i 1	 19.9770	 19.5830	 492	 229.3425	 " "i 1	 19.9770	 19.5830	 492	 462.9438	 " "i 1	 19.9770	 19.5830	 492	 480.9333	 " "i 1	 19.9770	 19.5830	 492	 490.4718	 " "i 1	 19.9770	 19.5830	 492	 503.0971	 " "i 1	 19.9770	 19.5830	 492	 505.4273	 " "i 1	 19.9770	 19.5830	 492	 521.4409	 " "i 1	 19.9770	 19.5830	 492	 536.1005	 " "i 1	 19.9770	 19.5830	 492	 1292.8683	 " "i 1	 19.9770	 19.5830	 492	 1374.5017	 " "i 1	 19.9770	 19.5830	 492	 1745.8248	 " "i 1	 19.9770	 19.5830	 492	 1751.8859	 " "i 1	 19.9770	 19.5830	 492	 2066.5752	 " "i 1	 23.2790	 22.9470	 492	 122.9016	 " "i 1	 23.2790	 22.9470	 492	 147.5125	 " "i 1	 23.2790	 22.9470	 492	 168.0826	 " "i 1	 23.2790	 22.9470	 492	 194.1947	 " "i 1	 23.2790	 22.9470	 492	 201.0429	 " "i 1	 23.2790	 22.9470	 492	 223.0711	 " "i 1	 23.2790	 22.9470	 492	 233.6210	 " "i 1	 23.2790	 22.9470	 492	 520.8388	 " "i 1	 23.2790	 22.9470	 492	 2212.3435	 " "i 1	 23.2790	 22.9470	 492	 2235.4658	 " "i 1	 23.2790	 22.9470	 492	 2245.8196	 " "i 1	 23.2790	 22.9470	 492	 2266.6717	 " "i 1	 23.2790	 22.9470	 492	 2274.5408	 " "i 1	 23.2790	 22.9470	 492	 2316.9744	 " "i 1	 23.2790	 22.9470	 492	 2349.3184	 " "i 1	 23.2790	 22.9470	 492	 2376.6160	 " "i 1	 23.2790	 22.9470	 492	 2390.3836	 " "i 1	 23.2790	 22.9470	 492	 2412.5777	 " "i 1	 23.2790	 22.9470	 492	 2429.3584	 " "i 1	 23.2790	 22.9470	 492	 2443.4320	 " "e" "")) (quote textfile) "supersede" "text") nil nil (pairlis (quote (deltapict winsize winpos palette-mode obj-mode show-stems)) (list (om-make-point 0 0) (om-make-point 370 280) (om-make-point 40 10) 0 0 (quote t))) t nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "TEXTFILE" (quote textfile) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "input data or text" "exp-list" nil) (om-load-inputfunmenu1 (quote input-funmenu) "append or supersede" "ed-mode" "supersede" (list (list "append" "append") (list "supersede" "supersede"))) (om-load-inputfunmenu1 (quote input-funmenu) "eval interpretation mode" "eval-mode" "list" (list (list "text" "text") (list "data list" "data") (list "list" "list") (list "value" "value"))))) (om-make-point 290 454) (om-make-point 70 50) (load-buffer-textfile (quote ("sr= 44100 " "kr= 441 " "ksmps= 100 " "nchnls= 2" "" " " "instr 1" "k1  linen  p4,.1000	,p3,p3*0.5" "asig  fmbell  k1,p5,2	,1	,.6000	,12	,1	,1	,1	,1	,1	" "     outs  asig,asig" "    endin" "")) (quote textfile) "supersede" "list") nil nil (pairlis (quote (winpos winsize)) (list (om-make-point 10 40) (om-make-point 335 275))) t nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "CSOUND-SYNTH" (quote csound-synth) (quote ((om-load-inputfun (quote input-funbox) "no documentation" "SCO" nil) (om-load-inputfun (quote input-funbox) "no documentation" "ORC" nil) (om-load-inputfun (quote input-funbox) "" "OUT-NAME" nil))) (om-make-point 166 607) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "csound-add01.aif" (quote sound) (quote ((om-load-inputfun (quote input-funbox) "objs" "SELF" nil) (om-load-inputfun (quote input-funbox) "no documentation" "TRACKNUM" 1) (om-load-inputfun (quote input-funbox) "no documentation" "MARKERS" nil))) (om-make-point 356 698) (om-make-point 177 77) (let ((newobj (let ((thesound (load-sound (om-make-pathname :directory (quote (:relative "out-files")) :device :unspecific :host :unspecific :name "csound-add01" :type "aif") 1 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 "csound-add01.aif") (set-tonalite newobj nil) newobj) nil nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport zoom notechancolor? grillestep mode winsize winpos palette-mode obj-mode show-stems microplay scale player)) (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) 0 0 1 nil 1000 0 (om-make-point 1165 558) (om-make-point 0 0) 0 1 (quote t) nil nil (quote :midishare))) t nil nil nil))) (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 380 476) (om-make-point 128 30) "csound-add01.aif" "\"csound-add01.aif\"" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OUTFILE" (quote outfile) (quote ((om-load-inputfun (quote input-funbox) "file name" "NAME" ""))) (om-make-point 380 511) nil nil nil nil 1))) (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 214 305) (om-make-point 27 30) 1 "1" 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 252 305) (om-make-point 27 30) 1 "1" 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))) (om-make-point 203 252) nil nil nil nil 1))) (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 213 222) (om-make-point 52 30) 0.125 "0.125" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((5 1 6 0 nil 0) (5 2 6 1 nil 0) (15 0 6 2 nil 0) (13 0 6 3 nil 0) (14 0 6 4 nil 0) (6 0 7 1 nil 0) (6 1 8 1 nil 0) (6 0 9 0 nil 0) (6 1 9 1 nil 0) (12 0 9 2 nil 0) (9 0 10 0 nil 0) (11 0 12 0 nil 0) (5 4 15 0 nil 0) (16 0 15 1 nil 0))) nil 6.13))

Csound mailing list
Csound@listserv.heanet.ie
https://listserv.heanet.ie/cgi-bin/wa?A0=CSOUND
Send bugs reports to
        https://github.com/csound/csound/issues
Discussions of bugs and features can be posted here