diff --git a/om/help-patches/Audio/dsp-programming.opat b/om/help-patches/Audio/dsp-programming.opat index a62de2a79..57f8937b4 100644 --- a/om/help-patches/Audio/dsp-programming.opat +++ b/om/help-patches/Audio/dsp-programming.opat @@ -1,12 +1,13 @@ (:patch - (:om-version 2.0E-5) (:name "dsp-programming") (:doc "") (:info (:created "2018/02/09 15:57:02") - (:modified "2019/09/23 10:48:25")) - (:window (:size (1090 669)) (:position (377 140))) + (:modified "2020/01/02 8:45:59") + (:by "om-sharp") + (:version 1.0)) + (:window (:size (1090 669)) (:position (390 368))) (:grid nil) (:lock nil) (:boxes @@ -24,11 +25,9 @@ (:roundness nil) (:text-font (:font (:face "Verdana") (:size 10) (:style :italic))) (:align :center) - (:name nil) (:display :mini-view) (:showname t) (:show-markers t) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -46,10 +45,6 @@ (:slots ((:onset 0) (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) (:n-samples nil) (:n-channels nil) (:sample-rate nil) @@ -57,12 +52,9 @@ (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate nil) - (:n-channels nil) - (:n-samples nil) (:gain 1.0) - (:access-from-file nil))))) + (:access-from-file nil) + (:file-pathname nil))))) (:id 0)) (:comment (:x 253) @@ -96,6 +88,7 @@ Show/hide contents with M.") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -120,11 +113,9 @@ Show/hide contents with M.") (:roundness nil) (:text-font (:font (:face "Verdana") (:size 10) (:style :italic))) (:align :center) - (:name nil) (:display :mini-view) (:showname t) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -141,11 +132,7 @@ Show/hide contents with M.") (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 8112.993) (:n-samples 357783) (:n-channels 2) (:sample-rate 44100) @@ -153,12 +140,9 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 357783) (:gain 1.0) - (:access-from-file nil))))) + (:access-from-file nil) + (:file-pathname nil))))) (:id 3)) (:box (:type :function) @@ -174,6 +158,7 @@ Show/hide contents with M.") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -224,11 +209,9 @@ Show/hide contents with M.") (:roundness nil) (:text-font (:font (:face "Verdana") (:size 10) (:style :italic))) (:align :center) - (:name nil) (:display :mini-view) (:showname t) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -245,11 +228,7 @@ Show/hide contents with M.") (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -257,12 +236,9 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil))))) + (:access-from-file nil) + (:file-pathname nil))))) (:id 6)) (:box (:type :function) @@ -278,6 +254,7 @@ Show/hide contents with M.") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -348,6 +325,7 @@ Show/hide contents with M.") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -387,10 +365,9 @@ Show/hide contents with M.") (:type :abstraction) (:reference (:patch - (:om-version 2.0E-5) (:name "one-grain") (:doc "") - (:info (:created nil) (:modified nil)) + (:info (:created nil) (:modified nil) (:by nil) (:version nil)) (:window (:size (536 430)) (:position (265 306))) (:grid nil) (:lock nil) @@ -490,6 +467,7 @@ Show/hide contents with M.") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -524,6 +502,7 @@ Show/hide contents with M.") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -602,6 +581,7 @@ Show/hide contents with M.") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -703,11 +683,9 @@ Show/hide contents with M.") (:text-font (:font (:face "Verdana") (:size 10) (:style :italic))) (:align :center) - (:name nil) (:display :mini-view) (:showname t) (:show-markers t) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -724,11 +702,7 @@ Show/hide contents with M.") (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 2825.4422) (:n-samples 124602) (:n-channels 1) (:sample-rate 44100) @@ -736,24 +710,25 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) + (:gain 1.0) + (:access-from-file nil) (:file-pathname (:pathname (:directory - (:absolute - "Users" - "bresson" + (:relative + :up + :up + :up + :up + :up + :up "_SHARED-FILES" "IN-FILES" "SOUNDFILES")) (:device :unspecific) - (:host nil) + (:host :unspecific) (:name "Bassclarinet1") - (:type "aif"))) - (:sample-rate 44100) - (:n-channels 1) - (:n-samples 124602) - (:gain 1.0) - (:access-from-file nil))))) + (:type "aif"))))))) (:id 11)) (:comment (:x 11) @@ -779,46 +754,16 @@ Show/hide contents with M.") (:to (:box 9 :in 0)) (:attributes (:color (:color 0.2 0.4 0.5 1.0) :style :curved :modif nil))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 4 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 2 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 4 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 4 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 3 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 8 :out 0)) - (:to (:box 7 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 9 :out 0)) - (:to (:box 3 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 9 :out 0)) - (:to (:box 7 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 10 :out 0)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 11 :out 0)) - (:to (:box 0 :in 0)) - (:attributes (:color nil :style nil :modif nil)))))) + (:connection (:from (:box 3 :out 0)) (:to (:box 4 :in 0))) + (:connection (:from (:box 4 :out 0)) (:to (:box 2 :in 0))) + (:connection (:from (:box 5 :out 0)) (:to (:box 4 :in 1))) + (:connection (:from (:box 6 :out 0)) (:to (:box 4 :in 2))) + (:connection (:from (:box 7 :out 0)) (:to (:box 3 :in 2))) + (:connection (:from (:box 8 :out 0)) (:to (:box 7 :in 1))) + (:connection (:from (:box 9 :out 0)) (:to (:box 3 :in 1))) + (:connection (:from (:box 9 :out 0)) (:to (:box 7 :in 0))) + (:connection (:from (:box 10 :out 0)) (:to (:box 1 :in 0))) + (:connection (:from (:box 11 :out 0)) (:to (:box 0 :in 0)))))) (:group-id nil) (:name "one-grain") (:x 650) @@ -834,7 +779,6 @@ Show/hide contents with M.") (:t-or-nil t))) (:align :center) (:display :hidden) - (:group-id nil) (:lock nil) (:lambda :lambda) (:pre-delay 0) @@ -868,6 +812,7 @@ Show/hide contents with M.") (:font (:font (:face "Verdana") (:size 10) (:style :bold))) (:t-or-nil t))) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -900,6 +845,7 @@ Show/hide contents with M.") (:font (:font (:face "Verdana") (:size 10) (:style :bold))) (:t-or-nil t))) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -929,11 +875,9 @@ Show/hide contents with M.") (:roundness nil) (:text-font (:font (:face "Verdana") (:size 10) (:style :italic))) (:align :center) - (:name nil) (:display :mini-view) (:showname t) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -950,11 +894,7 @@ Show/hide contents with M.") (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 6100.0) (:n-samples 269010) (:n-channels 2) (:sample-rate 44100) @@ -962,12 +902,9 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 269010) (:gain 1.0) - (:access-from-file nil))))) + (:access-from-file nil) + (:file-pathname nil))))) (:id 15)) (:comment (:x 48) @@ -1012,7 +949,7 @@ Show/hide contents with M.") (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 14) (:style :plain))) (:t-or-nil t))) (:align nil) (:text "=> encapsulate the process (SHIFT+E) - undo with (SHIFT+U)") @@ -1064,6 +1001,7 @@ Show/hide contents with M.") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1181,10 +1119,8 @@ Show/hide contents with M.") (:roundness nil) (:text-font (:font (:face "Verdana") (:size 10) (:style :italic))) (:align :center) - (:name "...") (:display :hidden) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -1213,11 +1149,7 @@ Show/hide contents with M.") (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1225,21 +1157,14 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))) + (:access-from-file nil) + (:file-pathname nil)))) (:object (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1247,21 +1172,14 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))) + (:access-from-file nil) + (:file-pathname nil)))) (:object (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1269,21 +1187,14 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))) + (:access-from-file nil) + (:file-pathname nil)))) (:object (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1291,21 +1202,14 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))) + (:access-from-file nil) + (:file-pathname nil)))) (:object (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1313,21 +1217,14 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))) + (:access-from-file nil) + (:file-pathname nil)))) (:object (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1335,21 +1232,14 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))) + (:access-from-file nil) + (:file-pathname nil)))) (:object (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1357,21 +1247,14 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))) + (:access-from-file nil) + (:file-pathname nil)))) (:object (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1379,21 +1262,14 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))) + (:access-from-file nil) + (:file-pathname nil)))) (:object (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1401,21 +1277,14 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))) + (:access-from-file nil) + (:file-pathname nil)))) (:object (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1423,21 +1292,14 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))) + (:access-from-file nil) + (:file-pathname nil)))) (:object (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1445,21 +1307,14 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))) + (:access-from-file nil) + (:file-pathname nil)))) (:object (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1467,21 +1322,14 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))) + (:access-from-file nil) + (:file-pathname nil)))) (:object (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1489,21 +1337,14 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))) + (:access-from-file nil) + (:file-pathname nil)))) (:object (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1511,21 +1352,14 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))) + (:access-from-file nil) + (:file-pathname nil)))) (:object (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1533,21 +1367,14 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))) + (:access-from-file nil) + (:file-pathname nil)))) (:object (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1555,21 +1382,14 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))) + (:access-from-file nil) + (:file-pathname nil)))) (:object (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1577,21 +1397,14 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))) + (:access-from-file nil) + (:file-pathname nil)))) (:object (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1599,21 +1412,14 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))) + (:access-from-file nil) + (:file-pathname nil)))) (:object (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1621,21 +1427,14 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))) + (:access-from-file nil) + (:file-pathname nil)))) (:object (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1643,21 +1442,14 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))) + (:access-from-file nil) + (:file-pathname nil)))) (:object (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1665,21 +1457,14 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))) + (:access-from-file nil) + (:file-pathname nil)))) (:object (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1687,21 +1472,14 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))) + (:access-from-file nil) + (:file-pathname nil)))) (:object (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1709,21 +1487,14 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))) + (:access-from-file nil) + (:file-pathname nil)))) (:object (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1731,21 +1502,14 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))) + (:access-from-file nil) + (:file-pathname nil)))) (:object (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1753,21 +1517,14 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))) + (:access-from-file nil) + (:file-pathname nil)))) (:object (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1775,21 +1532,14 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))) + (:access-from-file nil) + (:file-pathname nil)))) (:object (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1797,21 +1547,14 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))) + (:access-from-file nil) + (:file-pathname nil)))) (:object (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1819,21 +1562,14 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))) + (:access-from-file nil) + (:file-pathname nil)))) (:object (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1841,21 +1577,14 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))) + (:access-from-file nil) + (:file-pathname nil)))) (:object (:class sound) (:slots ((:onset 0) - (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) + (:duration 300.0) (:n-samples 13230) (:n-channels 2) (:sample-rate 44100) @@ -1863,12 +1592,9 @@ Show/hide contents with M.") (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate 44100) - (:n-channels 2) - (:n-samples 13230) (:gain 1.0) - (:access-from-file nil)))))))))) + (:access-from-file nil) + (:file-pathname nil)))))))))) (:id 27)) (:box (:type :special) @@ -1914,6 +1640,7 @@ Show/hide contents with M.") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda :lambda) (:inputs @@ -1972,95 +1699,29 @@ Show/hide contents with M.") "An advanced example of use of OM visual programs to control DSP operations") (:id 31))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 2 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 3 :in 0)) - (:attributes (:color nil :style nil :modif nil))) + (:connection (:from (:box 0 :out 0)) (:to (:box 2 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 3 :in 0))) (:connection (:from (:box 3 :out 0)) (:to (:box 4 :in 0)) (:attributes (:color nil :style nil :modif (0 0)))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 12 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 7 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 4 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 10 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 6 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 8 :out 0)) - (:to (:box 7 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 9 :out 0)) - (:to (:box 7 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 10 :out 0)) - (:to (:box 4 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 11 :out 0)) - (:to (:box 10 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 12 :out 0)) - (:to (:box 13 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 13 :out 0)) - (:to (:box 14 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 13 :out 0)) - (:to (:box 27 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 14 :out 0)) - (:to (:box 15 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 21 :out 0)) - (:to (:box 28 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 22 :out 0)) - (:to (:box 21 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 23 :out 0)) - (:to (:box 21 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 24 :out 0)) - (:to (:box 28 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 28 :out 0)) - (:to (:box 13 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 29 :out 0)) - (:to (:box 14 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 30 :out 0)) - (:to (:box 29 :in 2)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 3 :out 0)) (:to (:box 12 :in 0))) + (:connection (:from (:box 4 :out 0)) (:to (:box 7 :in 0))) + (:connection (:from (:box 5 :out 0)) (:to (:box 4 :in 1))) + (:connection (:from (:box 5 :out 0)) (:to (:box 10 :in 0))) + (:connection (:from (:box 7 :out 0)) (:to (:box 6 :in 0))) + (:connection (:from (:box 8 :out 0)) (:to (:box 7 :in 1))) + (:connection (:from (:box 9 :out 0)) (:to (:box 7 :in 2))) + (:connection (:from (:box 10 :out 0)) (:to (:box 4 :in 2))) + (:connection (:from (:box 11 :out 0)) (:to (:box 10 :in 1))) + (:connection (:from (:box 12 :out 0)) (:to (:box 13 :in 0))) + (:connection (:from (:box 13 :out 0)) (:to (:box 14 :in 1))) + (:connection (:from (:box 13 :out 0)) (:to (:box 27 :in 1))) + (:connection (:from (:box 14 :out 0)) (:to (:box 15 :in 0))) + (:connection (:from (:box 21 :out 0)) (:to (:box 28 :in 0))) + (:connection (:from (:box 22 :out 0)) (:to (:box 21 :in 0))) + (:connection (:from (:box 23 :out 0)) (:to (:box 21 :in 1))) + (:connection (:from (:box 24 :out 0)) (:to (:box 28 :in 1))) + (:connection (:from (:box 28 :out 0)) (:to (:box 13 :in 1))) + (:connection (:from (:box 29 :out 0)) (:to (:box 14 :in 0))) + (:connection (:from (:box 30 :out 0)) (:to (:box 29 :in 2))))) \ No newline at end of file diff --git a/om/help-patches/Audio/sound-info.opat b/om/help-patches/Audio/sound-info.opat index 03aa87d6b..321e57f68 100644 --- a/om/help-patches/Audio/sound-info.opat +++ b/om/help-patches/Audio/sound-info.opat @@ -1,11 +1,12 @@ (:patch - (:om-version 0.03) (:name "sound-info") (:doc "") (:info (:created "2019/09/23 10:03:48") - (:modified "2019/09/23 10:35:08")) + (:modified "2020/01/02 8:45:59") + (:by "om-sharp") + (:version 1.0)) (:window (:size (873 507)) (:position (354 345))) (:grid nil) (:lock nil) @@ -24,6 +25,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -48,6 +50,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -72,6 +75,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -96,6 +100,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -120,6 +125,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -144,11 +150,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "Bassclarinet2.aif") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -191,10 +195,6 @@ (:slots ((:onset 0) (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) (:n-samples nil) (:n-channels nil) (:sample-rate nil) @@ -202,12 +202,9 @@ (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate nil) - (:n-channels nil) - (:n-samples nil) (:gain 1.0) - (:access-from-file nil))))) + (:access-from-file nil) + (:file-pathname nil))))) (:id 5)) (:comment (:x 124) @@ -500,59 +497,20 @@ (:value 2312) (:id 18))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 16 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 1 :out 0)) - (:to (:box 15 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 13 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 11 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 18 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 0 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 2 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 3 :in 0)) - (:attributes (:color nil :style nil :modif nil))) + (:connection (:from (:box 0 :out 0)) (:to (:box 16 :in 0))) + (:connection (:from (:box 1 :out 0)) (:to (:box 15 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 13 :in 0))) + (:connection (:from (:box 3 :out 0)) (:to (:box 11 :in 0))) + (:connection (:from (:box 4 :out 0)) (:to (:box 18 :in 0))) + (:connection (:from (:box 5 :out 0)) (:to (:box 0 :in 0))) + (:connection (:from (:box 5 :out 0)) (:to (:box 1 :in 0))) + (:connection (:from (:box 5 :out 0)) (:to (:box 2 :in 0))) + (:connection (:from (:box 5 :out 0)) (:to (:box 3 :in 0))) (:connection (:from (:box 5 :out 0)) (:to (:box 4 :in 0)) (:attributes (:color nil :style nil :modif (0 0)))) - (:connection - (:from (:box 5 :out 1)) - (:to (:box 9 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 2)) - (:to (:box 10 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 3)) - (:to (:box 12 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 4)) - (:to (:box 14 :in 0)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 5 :out 1)) (:to (:box 9 :in 0))) + (:connection (:from (:box 5 :out 2)) (:to (:box 10 :in 0))) + (:connection (:from (:box 5 :out 3)) (:to (:box 12 :in 0))) + (:connection (:from (:box 5 :out 4)) (:to (:box 14 :in 0))))) \ No newline at end of file diff --git a/om/help-patches/Audio/sound-object.opat b/om/help-patches/Audio/sound-object.opat index f4dfbc32a..6eda23231 100644 --- a/om/help-patches/Audio/sound-object.opat +++ b/om/help-patches/Audio/sound-object.opat @@ -1,12 +1,13 @@ (:patch - (:om-version 0.03) (:name "sound-object") (:doc "") (:info (:created "2019/09/23 9:03:37") - (:modified "2019/09/23 10:44:30")) - (:window (:size (1101 673)) (:position (740 209))) + (:modified "2020/01/02 8:45:59") + (:by "om-sharp") + (:version 1.0)) + (:window (:size (1101 673)) (:position (579 209))) (:grid nil) (:lock nil) (:boxes @@ -24,11 +25,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -46,10 +45,6 @@ (:slots ((:onset 0) (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) (:n-samples nil) (:n-channels nil) (:sample-rate nil) @@ -57,12 +52,9 @@ (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate nil) - (:n-channels nil) - (:n-samples nil) (:gain 1.0) - (:access-from-file nil))))) + (:access-from-file nil) + (:file-pathname nil))))) (:id 0)) (:comment (:x 141) @@ -75,7 +67,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 18.0D0) (:style :bold))) + (:font (:font (:face "Calibri") (:size 18) (:style :bold))) (:t-or-nil t))) (:align nil) (:text "The SOUND box") @@ -91,7 +83,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 14) (:style :plain))) (:t-or-nil t))) (:align nil) (:text @@ -112,6 +104,7 @@ They can be set at the same time as the sound initialization.") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -129,7 +122,7 @@ They can be set at the same time as the sound initialization.") (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 14) (:style :plain))) (:t-or-nil t))) (:align nil) (:text @@ -153,11 +146,9 @@ Note: Lock teh box (b) after the sound is loaded, in order to prevent releasing (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -182,10 +173,6 @@ Note: Lock teh box (b) after the sound is loaded, in order to prevent releasing (:slots ((:onset 0) (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) (:n-samples nil) (:n-channels nil) (:sample-rate nil) @@ -193,12 +180,9 @@ Note: Lock teh box (b) after the sound is loaded, in order to prevent releasing (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate nil) - (:n-channels nil) - (:n-samples nil) (:gain 1.0) - (:access-from-file nil))))) + (:access-from-file nil) + (:file-pathname nil))))) (:id 5)) (:box (:type :value) @@ -231,7 +215,7 @@ Note: Lock teh box (b) after the sound is loaded, in order to prevent releasing (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 14) (:style :plain))) (:t-or-nil t))) (:align nil) (:text @@ -254,11 +238,9 @@ This option saves memory resources but requires more access in case of manipulat (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -283,10 +265,6 @@ This option saves memory resources but requires more access in case of manipulat (:slots ((:onset 0) (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) (:n-samples nil) (:n-channels nil) (:sample-rate nil) @@ -294,12 +272,9 @@ This option saves memory resources but requires more access in case of manipulat (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate nil) - (:n-channels nil) - (:n-samples nil) (:gain 1.0) - (:access-from-file nil))))) + (:access-from-file nil) + (:file-pathname nil))))) (:id 8)) (:box (:type :function) @@ -315,6 +290,7 @@ This option saves memory resources but requires more access in case of manipulat (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -356,7 +332,7 @@ This option saves memory resources but requires more access in case of manipulat (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 14) (:style :plain))) (:t-or-nil t))) (:align nil) (:text @@ -364,27 +340,9 @@ This option saves memory resources but requires more access in case of manipulat (Note: markers can also be added (alt+click), edited, and removed from inside the sound editor)") (:id 11))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 5 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 0 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 8 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 5 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 9 :out 0)) - (:to (:box 8 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 10 :out 0)) - (:to (:box 9 :in 0)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 0 :out 0)) (:to (:box 5 :in 0))) + (:connection (:from (:box 3 :out 0)) (:to (:box 0 :in 0))) + (:connection (:from (:box 5 :out 0)) (:to (:box 8 :in 0))) + (:connection (:from (:box 6 :out 0)) (:to (:box 5 :in 1))) + (:connection (:from (:box 9 :out 0)) (:to (:box 8 :in 1))) + (:connection (:from (:box 10 :out 0)) (:to (:box 9 :in 0))))) \ No newline at end of file diff --git a/om/help-patches/Audio/sound-processing.opat b/om/help-patches/Audio/sound-processing.opat index 3f9b270ee..2ae729ff2 100644 --- a/om/help-patches/Audio/sound-processing.opat +++ b/om/help-patches/Audio/sound-processing.opat @@ -1,11 +1,12 @@ (:patch - (:om-version 0.03) (:name "sound-processing") (:doc "") (:info (:created "2019/09/23 9:01:30") - (:modified "2019/12/01 22:20:57")) + (:modified "2020/01/02 8:45:59") + (:by "om-sharp") + (:version 1.0)) (:window (:size (1245 728)) (:position (386 221))) (:grid nil) (:lock nil) diff --git a/om/help-patches/Audio/sound-samples.opat b/om/help-patches/Audio/sound-samples.opat index 78cccc11a..7410c390d 100644 --- a/om/help-patches/Audio/sound-samples.opat +++ b/om/help-patches/Audio/sound-samples.opat @@ -1,12 +1,13 @@ (:patch - (:om-version 0.03) (:name "sound-samples") (:doc "") (:info (:created "2019/09/23 9:01:30") - (:modified "2019/09/23 10:35:03")) - (:window (:size (615 413)) (:position (1146 306))) + (:modified "2020/01/02 8:45:59") + (:by "om-sharp") + (:version 1.0)) + (:window (:size (615 413)) (:position (1065 306))) (:grid nil) (:lock nil) (:boxes @@ -37,11 +38,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "BPF") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -386,12 +385,7 @@ 0.028 0.025 0.022)))) - (:add-slots - ((:decimals 3) - (:color (:color 0.0 0.0 0.0 1.0)) - (:name "BPF") - (:action nil) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))))))) + (:add-slots ((:name "BPF"))))) (:id 1)) (:comment (:x 323) @@ -440,6 +434,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -495,11 +490,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "Bassclarinet1.aif") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -524,10 +517,6 @@ (:slots ((:onset 0) (:duration 0) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) - (:default-frame-type marker-frame) - (:frames nil) - (:buffer nil) (:n-samples nil) (:n-channels nil) (:sample-rate nil) @@ -535,12 +524,9 @@ (:sample-size 16))) (:add-slots ((:markers nil) - (:file-pathname nil) - (:sample-rate nil) - (:n-channels nil) - (:n-samples nil) (:gain 1.0) - (:access-from-file nil))))) + (:access-from-file nil) + (:file-pathname nil))))) (:id 7)) (:comment (:x 164) @@ -559,15 +545,6 @@ (:text "SOUND samples") (:id 8))) (:connections - (:connection - (:from (:box 3 :out 0)) - (:to (:box 4 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 1 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 4 :in 0)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 3 :out 0)) (:to (:box 4 :in 1))) + (:connection (:from (:box 4 :out 0)) (:to (:box 1 :in 2))) + (:connection (:from (:box 7 :out 0)) (:to (:box 4 :in 0))))) \ No newline at end of file diff --git a/om/help-patches/Basic data structures/3DC.opat b/om/help-patches/Basic data structures/3DC.opat index 47164ab59..727d81bee 100644 --- a/om/help-patches/Basic data structures/3DC.opat +++ b/om/help-patches/Basic data structures/3DC.opat @@ -1,11 +1,12 @@ (:patch - (:om-version 7.0) (:name "3DC") (:doc "") (:info (:created "2015/11/25 11:31:00") - (:modified "2019/09/22 1:31:47")) + (:modified "2020/01/02 8:45:59") + (:by "om-sharp") + (:version 1.0)) (:window (:size (916 613)) (:position (44 319))) (:grid nil) (:lock nil) @@ -24,6 +25,7 @@ (:roundness nil) (:text-font nil) (:align :left) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -56,6 +58,7 @@ (:roundness nil) (:text-font nil) (:align :left) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -85,6 +88,7 @@ (:roundness nil) (:text-font nil) (:align :left) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -110,11 +114,9 @@ (:roundness nil) (:text-font (:font (:face "Verdana") (:size 10) (:style :italic))) (:align :center) - (:name "3DC") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id 0) (:lock nil) (:lambda nil) (:inputs @@ -563,114 +565,7 @@ 0.96 0.98 1.0)))) - (:add-slots - ((:times - (:list - 0.0 - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - 10000.0)) - (:decimals 2) - (:color (:color 0.0 0.0 0.0 1.0)) - (:name "3DC") - (:action nil) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))))))) + (:add-slots ((:name "3DC"))))) (:id 3)) (:box (:type :function) @@ -686,6 +581,7 @@ (:roundness nil) (:text-font nil) (:align :left) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -711,6 +607,7 @@ (:roundness nil) (:text-font nil) (:align :left) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -777,7 +674,6 @@ (:outputs (:output (:name "value") (:reactive nil))) (:value (:list -1 1)) (:state (:list 1)) - (:selection (1)) (:id 7)) (:box (:type :value) @@ -965,11 +861,9 @@ (:roundness nil) (:text-font (:font (:face "Verdana") (:size 10) (:style :italic))) (:align :center) - (:name "3DC") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id 0) (:lock :locked) (:lambda nil) (:inputs @@ -1098,34 +992,7 @@ 0.0 0.0 0.0)))) - (:add-slots - ((:times - (:list - 0.0 - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - 10000.0)) - (:decimals 2) - (:color nil) - (:name "3DC") - (:action nil) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))))))) + (:add-slots ((:name "3DC"))))) (:id 17)) (:box (:type :value) @@ -1160,6 +1027,7 @@ (:roundness nil) (:text-font nil) (:align :left) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1185,6 +1053,7 @@ (:roundness nil) (:text-font nil) (:align :left) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1282,42 +1151,15 @@ (:to (:box 4 :in 0)) (:attributes (:color (:color 0.3 0.3 0.3 1.0) :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 0 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 8 :out 0)) - (:to (:box 7 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 9 :out 0)) - (:to (:box 7 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 10 :out 0)) - (:to (:box 7 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 12 :out 0)) - (:to (:box 5 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 12 :out 0)) - (:to (:box 0 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 13 :out 0)) - (:to (:box 1 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 14 :out 0)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 15 :out 0)) - (:to (:box 2 :in 0)) - (:attributes (:color nil :style nil :modif nil))) + (:connection (:from (:box 7 :out 0)) (:to (:box 0 :in 0))) + (:connection (:from (:box 8 :out 0)) (:to (:box 7 :in 2))) + (:connection (:from (:box 9 :out 0)) (:to (:box 7 :in 1))) + (:connection (:from (:box 10 :out 0)) (:to (:box 7 :in 0))) + (:connection (:from (:box 12 :out 0)) (:to (:box 5 :in 1))) + (:connection (:from (:box 12 :out 0)) (:to (:box 0 :in 1))) + (:connection (:from (:box 13 :out 0)) (:to (:box 1 :in 1))) + (:connection (:from (:box 14 :out 0)) (:to (:box 1 :in 0))) + (:connection (:from (:box 15 :out 0)) (:to (:box 2 :in 0))) (:connection (:from (:box 16 :out 0)) (:to (:box 20 :in 0)) diff --git a/om/help-patches/Basic data structures/arrays.opat b/om/help-patches/Basic data structures/arrays.opat index c0857d963..75c063504 100644 --- a/om/help-patches/Basic data structures/arrays.opat +++ b/om/help-patches/Basic data structures/arrays.opat @@ -1,18 +1,19 @@ (:patch - (:om-version 1.0E-4) (:name "arrays") (:doc "") (:info (:created "2017/09/13 12:02:23") - (:modified "2019/08/14 9:50:46")) - (:window (:size (1314 814)) (:position (556 364))) + (:modified "2020/01/02 8:45:59") + (:by "om-sharp") + (:version 1.0)) + (:window (:size (1314 814)) (:position (366 214))) (:grid nil) (:lock nil) (:boxes (:box - (:reference om-random) (:type :function) + (:reference om-random) (:group-id nil) (:name "om-random") (:x 708) @@ -24,6 +25,7 @@ (:roundness (:number-or-nil (:number 3) (:t-or-nil t))) (:text-font nil) (:align :left) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -40,8 +42,8 @@ (:outputs (:output (:name "out") (:reactive nil))) (:id 0)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 780) @@ -59,8 +61,8 @@ (:value 30) (:id 1)) (:box - (:reference class-array) (:type :object) + (:reference class-array) (:group-id nil) (:name nil) (:x 655) @@ -72,10 +74,8 @@ (:roundness (:number-or-nil (:number 3) (:t-or-nil t))) (:text-font (:font (:face "Verdana") (:size 10) (:style :italic))) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -311,8 +311,8 @@ -0.9880316))))))))) (:id 2)) (:box - (:reference cons) (:type :value) + (:reference cons) (:group-id nil) (:name "value box") (:x 2843/5) @@ -330,8 +330,8 @@ (:value (:list "uno" "dos" "tres" "cuatro" "cinco")) (:id 3)) (:box - (:reference cons) (:type :value) + (:reference cons) (:group-id nil) (:name "value box") (:x 3913/5) @@ -349,8 +349,8 @@ (:value (:list 1 2 10)) (:id 4)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 823) @@ -368,8 +368,8 @@ (:value 1000) (:id 5)) (:box - (:reference 2d-array) (:type :object) + (:reference 2d-array) (:group-id nil) (:name nil) (:x 223) @@ -381,10 +381,8 @@ (:roundness (:number-or-nil (:number 3) (:t-or-nil t))) (:text-font (:font (:face "Verdana") (:size 10) (:style :italic))) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -564,12 +562,11 @@ 0.95637596 0.2709058 -0.6636339 - -0.9880316))))) - (:add-slots ((:field-names nil))))) + -0.9880316))))))) (:id 6)) (:box - (:reference sin) (:type :function) + (:reference sin) (:group-id nil) (:name "sin") (:x 886) @@ -581,6 +578,7 @@ (:roundness (:number-or-nil (:number 3) (:t-or-nil t))) (:text-font nil) (:align :left) + (:icon :left) (:lock nil) (:lambda :lambda) (:inputs @@ -592,8 +590,8 @@ (:outputs (:output (:name "out") (:reactive nil))) (:id 7)) (:box - (:reference bpf) (:type :object) + (:reference bpf) (:group-id nil) (:name nil) (:x 858) @@ -605,11 +603,9 @@ (:roundness (:number-or-nil (:number 3) (:t-or-nil t))) (:text-font (:font (:face "Verdana") (:size 10) (:style :italic))) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -647,16 +643,11 @@ (:x-points (:list 0.0 748.81 3082.46 3101.42 4708.99 5292.89)) (:y-points (:list 471.0 -233.44 -123.74 -364.22 -414.71 450.7)))) - (:add-slots - ((:decimals 2) - (:color nil) - (:name "BPF") - (:action nil) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))))))) + (:add-slots ((:name "BPF"))))) (:id 8)) (:box - (:reference class-array) (:type :object) + (:reference class-array) (:group-id nil) (:name nil) (:x 500) @@ -668,10 +659,8 @@ (:roundness (:number-or-nil (:number 3) (:t-or-nil t))) (:text-font (:font (:face "Verdana") (:size 10) (:style :italic))) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -765,8 +754,8 @@ -0.5440211))))))))) (:id 9)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 636) @@ -839,8 +828,8 @@ (:text "<= BPF is sampled on points") (:id 14)) (:box - (:reference class-array) (:type :object) + (:reference class-array) (:group-id nil) (:name nil) (:x 887) @@ -852,10 +841,8 @@ (:roundness (:number-or-nil (:number 3) (:t-or-nil t))) (:text-font (:font (:face "Verdana") (:size 10) (:style :italic))) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -932,8 +919,8 @@ (:list nil nil nil nil nil nil nil nil nil nil))))))))) (:id 15)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 962) @@ -966,8 +953,8 @@ => copy existing fields if not redefined") (:id 17)) (:box - (:reference cons) (:type :value) + (:reference cons) (:group-id nil) (:name "value box") (:x 867) @@ -985,8 +972,8 @@ (:value (:list "dos" "tres" "cinco" "seis")) (:id 18)) (:box - (:reference cons) (:type :value) + (:reference cons) (:group-id nil) (:name "value box") (:x 984) @@ -1004,8 +991,8 @@ (:value (:list 1 2 10)) (:id 19)) (:box - (:reference get-array-data) (:type :function) + (:reference get-array-data) (:group-id nil) (:name "get-array-data") (:x 313) @@ -1017,6 +1004,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1054,8 +1042,8 @@ (:text "<= longer list is cut") (:id 22)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 728) @@ -1074,8 +1062,8 @@ (:value 30) (:id 23)) (:box - (:reference repeat-n) (:type :special) + (:reference repeat-n) (:group-id nil) (:name "repeat-n") (:x 738) @@ -1093,10 +1081,14 @@ (:inputs (:input (:type :standard) - (:name "program to repeat") + (:name "self") (:value nil) (:reactive nil)) - (:input (:type :standard) (:name "n") (:value 0) (:reactive nil))) + (:input + (:type :standard) + (:name "num") + (:value 0) + (:reactive nil))) (:outputs (:output (:name "collected results") (:reactive nil))) (:id 24)) (:comment @@ -1132,8 +1124,8 @@ (:text "ARRAYS IN OM7") (:id 26)) (:box - (:reference 2d-array) (:type :object) + (:reference 2d-array) (:group-id nil) (:name nil) (:x 74) @@ -1145,10 +1137,8 @@ (:roundness nil) (:text-font (:font (:face "Verdana") (:size 10) (:style :italic))) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -1303,12 +1293,11 @@ 425 776 -655 - -417))))) - (:add-slots ((:field-names (:list "a" "b" "c" "d")))))) + -417))))))) (:id 27)) (:box - (:reference cons) (:type :value) + (:reference cons) (:group-id nil) (:name "value box") (:x 246) @@ -1327,8 +1316,8 @@ (:value (:list "a" "b" "c" "d")) (:id 28)) (:box - (:reference om-random) (:type :function) + (:reference om-random) (:group-id nil) (:name "om-random") (:x 54) @@ -1340,6 +1329,7 @@ (:roundness (:number-or-nil (:number 3) (:t-or-nil t))) (:text-font nil) (:align :left) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1356,8 +1346,8 @@ (:outputs (:output (:name "out") (:reactive nil))) (:id 29)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 126) @@ -1375,8 +1365,8 @@ (:value 30) (:id 30)) (:box - (:reference repeat-n) (:type :special) + (:reference repeat-n) (:group-id nil) (:name "repeat-n") (:x 84) @@ -1394,15 +1384,19 @@ (:inputs (:input (:type :standard) - (:name "program to repeat") + (:name "self") (:value nil) (:reactive nil)) - (:input (:type :standard) (:name "n") (:value 0) (:reactive nil))) + (:input + (:type :standard) + (:name "num") + (:value 0) + (:reactive nil))) (:outputs (:output (:name "collected results") (:reactive nil))) (:id 31)) (:box - (:reference repeat-n) (:type :special) + (:reference repeat-n) (:group-id nil) (:name "repeat-n") (:x 142) @@ -1420,15 +1414,19 @@ (:inputs (:input (:type :standard) - (:name "program to repeat") + (:name "self") (:value nil) (:reactive nil)) - (:input (:type :standard) (:name "n") (:value 0) (:reactive nil))) + (:input + (:type :standard) + (:name "num") + (:value 0) + (:reactive nil))) (:outputs (:output (:name "collected results") (:reactive nil))) (:id 32)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 184) @@ -1560,98 +1558,38 @@ (:text "CLASS-ARRAY to 2D-ARRAY") (:id 41))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 24 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 1 :out 0)) - (:to (:box 24 :in 1)) - (:attributes (:color nil :style nil :modif nil))) + (:connection (:from (:box 0 :out 0)) (:to (:box 24 :in 0))) + (:connection (:from (:box 1 :out 0)) (:to (:box 24 :in 1))) (:connection (:from (:box 2 :out 0)) (:to (:box 9 :in 0)) (:attributes (:color (:color 0.3 0.3 0.3 1.0) :style nil :modif (0 0)))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 15 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 20 :in 0)) - (:attributes (:color nil :style nil :modif nil))) + (:connection (:from (:box 2 :out 0)) (:to (:box 15 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 20 :in 0))) (:connection (:from (:box 3 :out 0)) (:to (:box 2 :in 1)) (:attributes (:color (:color 0.3 0.3 0.3 1.0) :style nil :modif (0 0)))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 2 :in 4)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 2 :in 5)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 2 :in 7)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 8 :out 0)) - (:to (:box 2 :in 6)) - (:attributes (:color nil :style nil :modif nil))) + (:connection (:from (:box 4 :out 0)) (:to (:box 2 :in 4))) + (:connection (:from (:box 5 :out 0)) (:to (:box 2 :in 5))) + (:connection (:from (:box 7 :out 0)) (:to (:box 2 :in 7))) + (:connection (:from (:box 8 :out 0)) (:to (:box 2 :in 6))) (:connection (:from (:box 10 :out 0)) (:to (:box 9 :in 2)) (:attributes (:color (:color 0.3 0.3 0.3 1.0) :style nil :modif nil))) - (:connection - (:from (:box 16 :out 0)) - (:to (:box 15 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 18 :out 0)) - (:to (:box 15 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 19 :out 0)) - (:to (:box 15 :in 3)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 20 :out 0)) - (:to (:box 6 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 23 :out 0)) - (:to (:box 2 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 24 :out 0)) - (:to (:box 2 :in 3)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 28 :out 0)) - (:to (:box 27 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 29 :out 0)) - (:to (:box 31 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 30 :out 0)) - (:to (:box 31 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 31 :out 0)) - (:to (:box 32 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 32 :out 0)) - (:to (:box 27 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 33 :out 0)) - (:to (:box 32 :in 1)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 16 :out 0)) (:to (:box 15 :in 2))) + (:connection (:from (:box 18 :out 0)) (:to (:box 15 :in 1))) + (:connection (:from (:box 19 :out 0)) (:to (:box 15 :in 3))) + (:connection (:from (:box 20 :out 0)) (:to (:box 6 :in 1))) + (:connection (:from (:box 23 :out 0)) (:to (:box 2 :in 2))) + (:connection (:from (:box 24 :out 0)) (:to (:box 2 :in 3))) + (:connection (:from (:box 28 :out 0)) (:to (:box 27 :in 2))) + (:connection (:from (:box 29 :out 0)) (:to (:box 31 :in 0))) + (:connection (:from (:box 30 :out 0)) (:to (:box 31 :in 1))) + (:connection (:from (:box 31 :out 0)) (:to (:box 32 :in 0))) + (:connection (:from (:box 32 :out 0)) (:to (:box 27 :in 1))) + (:connection (:from (:box 33 :out 0)) (:to (:box 32 :in 1))))) \ No newline at end of file diff --git a/om/help-patches/Basic data structures/bpf-actions.opat b/om/help-patches/Basic data structures/bpf-actions.opat index 38aa1d815..cffbc3bde 100644 --- a/om/help-patches/Basic data structures/bpf-actions.opat +++ b/om/help-patches/Basic data structures/bpf-actions.opat @@ -1,11 +1,12 @@ (:patch - (:om-version 7.0) (:name "bpf-actions") (:doc "") (:info (:created "2017/02/03 15:58:24") - (:modified "2019/09/22 1:30:27")) + (:modified "2020/01/02 8:45:59") + (:by "om-sharp") + (:version 1.0)) (:window (:size (860 637)) (:position (616 72))) (:grid nil) (:lock nil) @@ -24,11 +25,9 @@ (:roundness nil) (:text-font (:font (:face "Verdana") (:size 10) (:style :italic))) (:align :center) - (:name "BPF") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id 0) (:lock nil) (:lambda nil) (:inputs @@ -71,12 +70,7 @@ (:decimals 2) (:x-points (:list 0.0 1000.0 2000.0)) (:y-points (:list 0.0 600.0 0.0)))) - (:add-slots - ((:decimals 2) - (:color (:color 0.0 0.0 0.0 1.0)) - (:name "BPF") - (:action nil) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))))))) + (:add-slots ((:name "BPF"))))) (:id 0)) (:box (:type :value) @@ -130,6 +124,7 @@ (:roundness nil) (:text-font nil) (:align :left) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -181,11 +176,9 @@ (:roundness nil) (:text-font (:font (:face "Verdana") (:size 10) (:style :italic))) (:align :center) - (:name "BPF") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id 0) (:lock nil) (:lambda nil) (:inputs @@ -630,12 +623,7 @@ 12.06 6.03 0.0)))) - (:add-slots - ((:decimals 2) - (:color (:color 0.0 0.0 0.0 1.0)) - (:name "BPF") - (:action :internal-lambda) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))))))) + (:add-slots ((:name "BPF"))))) (:id 5)) (:comment (:x 370.0D0) @@ -648,7 +636,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 14) (:style :plain))) (:t-or-nil t))) (:align nil) (:text @@ -672,6 +660,7 @@ You can also set yur own action as a lambad function or patch :") (:roundness nil) (:text-font nil) (:align :left) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -696,6 +685,7 @@ You can also set yur own action as a lambad function or patch :") (:roundness nil) (:text-font nil) (:align :left) + (:icon :left) (:lock nil) (:lambda :lambda) (:inputs @@ -720,11 +710,9 @@ You can also set yur own action as a lambad function or patch :") (:roundness nil) (:text-font (:font (:face "Verdana") (:size 10) (:style :italic))) (:align :center) - (:name "BPC") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -944,79 +932,15 @@ You can also set yur own action as a lambad function or patch :") -0.38 -0.42 -0.51)))) - (:add-slots - ((:times - (:list - 0.0 - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - 10000.0)) - (:decimals 2) - (:color nil) - (:name "BPC") - (:action :internal-lambda) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))))))) + (:add-slots ((:name "BPC"))))) (:id 9)) (:box (:type :abstraction) (:reference (:patch - (:om-version 7.0) (:name "my-action") (:doc "") - (:info (:created nil) (:modified nil)) + (:info (:created nil) (:modified nil) (:by nil) (:version nil)) (:window (:size (227 274)) (:position (273 322))) (:grid nil) (:lock nil) @@ -1084,6 +1008,7 @@ You can also set yur own action as a lambad function or patch :") (:roundness nil) (:text-font nil) (:align :left) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1117,7 +1042,6 @@ You can also set yur own action as a lambad function or patch :") (:text-font nil) (:align :center) (:display :hidden) - (:group-id 0) (:lock nil) (:lambda :lambda) (:pre-delay 0) @@ -1143,11 +1067,9 @@ You can also set yur own action as a lambad function or patch :") (:roundness nil) (:text-font (:font (:face "Verdana") (:size 10) (:style :italic))) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -1356,74 +1278,11 @@ You can also set yur own action as a lambad function or patch :") -0.38 -0.42 -0.51)))) - (:add-slots - ((:times - (:list - 0 - 114 - 131 - 148 - 165 - 183 - 200 - 219 - 252 - 286 - 337 - 355 - 372 - 388 - 406 - 423 - 440 - 457 - 475 - 508 - 543 - 560 - 577 - 594 - 612 - 628 - 646 - 663 - 680 - 697 - 715 - 732 - 749 - 768 - 801 - 818 - 836 - 852 - 868 - 886 - 903 - 920 - 938 - 972 - 989 - 1007 - 1024 - 1042 - 1059 - 1076 - 1093 - 1111 - 1130 - 1145 - 1164 - 1180)) - (:decimals 2) - (:color nil) - (:name "BPC") - (:action nil) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))))))) + (:add-slots ((:name "BPC"))))) (:id 11)) (:box (:type :value) - (:reference tpoint) + (:reference (:symbol "OMPOINT" "OM-API")) (:group-id nil) (:name "value box") (:x 367) @@ -1468,10 +1327,7 @@ You can also set yur own action as a lambad function or patch :") (:to (:box 3 :in 1)) (:attributes (:color (:color 0.3 0.3 0.3 1.0) :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 12 :in 0)) - (:attributes (:color nil :style nil :modif nil))) + (:connection (:from (:box 7 :out 0)) (:to (:box 12 :in 0))) (:connection (:from (:box 8 :out 0)) (:to (:box 5 :in 3)) diff --git a/om/help-patches/Basic data structures/data-stream.opat b/om/help-patches/Basic data structures/data-stream.opat index 6ea1ed1d7..eaa193743 100644 --- a/om/help-patches/Basic data structures/data-stream.opat +++ b/om/help-patches/Basic data structures/data-stream.opat @@ -1,11 +1,12 @@ (:patch - (:om-version 7.0) (:name "data-stream") (:doc "") (:info (:created "2017/02/05 14:08:32") - (:modified "2019/09/28 14:35:35")) + (:modified "2020/01/02 8:45:59") + (:by "om-sharp") + (:version 1.0)) (:window (:size (500 644)) (:position (729 201))) (:grid nil) (:lock nil) @@ -24,11 +25,9 @@ (:roundness nil) (:text-font (:font (:face "Verdana") (:size 10) (:style :italic))) (:align :center) - (:name "DATA-STREAM") (:display :mini-view) (:showname t) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -638,10 +637,8 @@ (:roundness nil) (:text-font (:font (:face "Verdana") (:size 10) (:style :italic))) (:align :center) - (:name "OSC-BUNDLE") (:display :mini-view) (:showname nil) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -714,6 +711,7 @@ (:roundness nil) (:text-font nil) (:align :left) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -767,6 +765,7 @@ (:roundness nil) (:text-font nil) (:align :left) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -796,6 +795,7 @@ (:roundness nil) (:text-font nil) (:align :left) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -849,6 +849,7 @@ (:roundness nil) (:text-font nil) (:align :left) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -921,6 +922,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -950,6 +952,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -962,14 +965,8 @@ (:outputs (:output (:name "out") (:reactive nil))) (:id 12))) (:connections - (:connection - (:from (:box 1 :out 0)) - (:to (:box 11 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 9 :in 1)) - (:attributes (:color nil :style nil :modif nil))) + (:connection (:from (:box 1 :out 0)) (:to (:box 11 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 9 :in 1))) (:connection (:from (:box 3 :out 0)) (:to (:box 6 :in 0)) @@ -985,10 +982,7 @@ (:to (:box 3 :in 2)) (:attributes (:color (:color 0.3 0.3 0.3 1.0) :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 9 :in 0)) - (:attributes (:color nil :style nil :modif nil))) + (:connection (:from (:box 6 :out 0)) (:to (:box 9 :in 0))) (:connection (:from (:box 7 :out 0)) (:to (:box 6 :in 1)) @@ -999,15 +993,6 @@ (:to (:box 6 :in 2)) (:attributes (:color (:color 0.3 0.3 0.3 1.0) :style nil :modif nil))) - (:connection - (:from (:box 9 :out 0)) - (:to (:box 0 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 11 :out 0)) - (:to (:box 3 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 12 :out 0)) - (:to (:box 11 :in 1)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 9 :out 0)) (:to (:box 0 :in 2))) + (:connection (:from (:box 11 :out 0)) (:to (:box 3 :in 0))) + (:connection (:from (:box 12 :out 0)) (:to (:box 11 :in 1))))) \ No newline at end of file diff --git a/om/help-patches/Basic data structures/n-cercle-rhythm.opat b/om/help-patches/Basic data structures/n-cercle-rhythm.opat index cef8cfae0..1c9186b8a 100644 --- a/om/help-patches/Basic data structures/n-cercle-rhythm.opat +++ b/om/help-patches/Basic data structures/n-cercle-rhythm.opat @@ -1,11 +1,12 @@ (:patch - (:om-version 0.03) (:name "n-cercle-rhythm") (:doc "") (:info (:created "2019/09/20 22:08:12") - (:modified "2019/09/20 22:27:23")) + (:modified "2020/01/02 8:45:59") + (:by "om-sharp") + (:version 1.0)) (:window (:size (1089 636)) (:position (413 180))) (:grid nil) (:lock nil) @@ -24,10 +25,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "N-CERCLE1") (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -115,6 +114,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -280,10 +280,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "N-CERCLE2") (:display :mini-view) (:showname nil) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -323,11 +321,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "VOICE") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -375,17 +371,19 @@ ((:onset 0) (:duration 4499) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "VOICE") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) - (:lmidic + (:extras nil) + (:tree (:list - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000))) + 3 + (:list + (:list (:list 3 8) (:list 2 1)) + (:list (:list 3 8) (:list 2 1)) + (:list (:list 3 8) (:list 2 1))))) + (:lmidic (:list 6000)) (:lonset (:list 0 1000 1500 2500 3000 4000 4500)) (:ldur (:list @@ -395,66 +393,12 @@ (:list 499) (:list 999) (:list 499))) - (:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil)) + (:lvel (:list 100)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) (:llegato nil) - (:tree - (:list - 3 - (:list - (:list (:list 3 8) (:list 2 1)) - (:list (:list 3 8) (:list 2 1)) - (:list (:list 3 8) (:list 2 1))))) - (:tempo 60))) - (:add-slots - ((:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil)))))) + (:tempo 60))))) (:id 11)) (:box (:type :function) @@ -470,6 +414,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -529,10 +474,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "N-CERCLE2") (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -572,11 +515,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "VOICE") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -642,35 +583,19 @@ ((:onset 0) (:duration 17999) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "VOICE") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) - (:lmidic + (:extras nil) + (:tree (:list - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000))) + 9/2 + (:list + (:list (:list 12 8) (:list 2 1 2 1 2 1 2 1)) + (:list (:list 12 8) (:list 2 1 2 1 2 1 2 1)) + (:list (:list 12 8) (:list 2 1 2 1 2 1 2 1))))) + (:lmidic (:list 6000)) (:lonset (:list 0 @@ -724,224 +649,12 @@ (:list 499) (:list 999) (:list 499))) - (:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport - (:list - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil)) + (:lvel (:list 100)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) (:llegato nil) - (:tree - (:list - 9/2 - (:list - (:list (:list 12 8) (:list 2 1 2 1 2 1 2 1)) - (:list (:list 12 8) (:list 2 1 2 1 2 1 2 1)) - (:list (:list 12 8) (:list 2 1 2 1 2 1 2 1))))) - (:tempo 60))) - (:add-slots - ((:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport - (:list - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil)))))) + (:tempo 60))))) (:id 15)) (:box (:type :function) @@ -957,6 +670,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -982,11 +696,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "VOICE") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -1052,35 +764,19 @@ ((:onset 0) (:duration 17999) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "VOICE") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) - (:lmidic + (:extras nil) + (:tree (:list - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000))) + 3 + (:list + (:list (:list 12 8) (:list 2 1 2 1 2 1 2 1)) + (:list (:list 12 8) (:list 2 1 2 1 2 1 2 1)) + (:list (:list 12 8) (:list 2 1 2 1 2 1 2 1))))) + (:lmidic (:list 6000)) (:lonset (:list 0 @@ -1134,224 +830,12 @@ (:list 499) (:list 999) (:list 499))) - (:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport - (:list - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil)) + (:lvel (:list 100)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) (:llegato nil) - (:tree - (:list - 3 - (:list - (:list (:list 12 8) (:list 2 1 2 1 2 1 2 1)) - (:list (:list 12 8) (:list 2 1 2 1 2 1 2 1)) - (:list (:list 12 8) (:list 2 1 2 1 2 1 2 1))))) - (:tempo 60))) - (:add-slots - ((:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport - (:list - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil)))))) + (:tempo 60))))) (:id 17)) (:box (:type :function) @@ -1367,6 +851,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1406,10 +891,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "N-CERCLE1") (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -1497,10 +980,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "N-CERCLE") (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -1555,7 +1036,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 12.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 12) (:style :plain))) (:t-or-nil t))) (:align nil) (:text @@ -1565,79 +1046,22 @@ is a list of points in this space.") (:id 23))) (:connections - (:connection - (:from (:box 1 :out 0)) - (:to (:box 2 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 0 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 16 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 18 :in 3)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 18 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 18 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 12 :in 3)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 8 :out 0)) - (:to (:box 12 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 9 :out 0)) - (:to (:box 12 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 10 :out 0)) - (:to (:box 12 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 12 :out 0)) - (:to (:box 11 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 13 :out 0)) - (:to (:box 14 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 15 :out 0)) - (:to (:box 2 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 15 :out 0)) - (:to (:box 16 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 16 :out 0)) - (:to (:box 19 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 18 :out 0)) - (:to (:box 17 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 20 :out 0)) - (:to (:box 14 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 20 :out 0)) - (:to (:box 21 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 21 :out 0)) - (:to (:box 18 :in 0)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 1 :out 0)) (:to (:box 2 :in 1))) + (:connection (:from (:box 2 :out 0)) (:to (:box 0 :in 0))) + (:connection (:from (:box 3 :out 0)) (:to (:box 16 :in 1))) + (:connection (:from (:box 4 :out 0)) (:to (:box 18 :in 3))) + (:connection (:from (:box 5 :out 0)) (:to (:box 18 :in 2))) + (:connection (:from (:box 6 :out 0)) (:to (:box 18 :in 1))) + (:connection (:from (:box 7 :out 0)) (:to (:box 12 :in 3))) + (:connection (:from (:box 8 :out 0)) (:to (:box 12 :in 2))) + (:connection (:from (:box 9 :out 0)) (:to (:box 12 :in 1))) + (:connection (:from (:box 10 :out 0)) (:to (:box 12 :in 0))) + (:connection (:from (:box 12 :out 0)) (:to (:box 11 :in 0))) + (:connection (:from (:box 13 :out 0)) (:to (:box 14 :in 1))) + (:connection (:from (:box 15 :out 0)) (:to (:box 2 :in 0))) + (:connection (:from (:box 15 :out 0)) (:to (:box 16 :in 0))) + (:connection (:from (:box 16 :out 0)) (:to (:box 19 :in 0))) + (:connection (:from (:box 18 :out 0)) (:to (:box 17 :in 0))) + (:connection (:from (:box 20 :out 0)) (:to (:box 14 :in 2))) + (:connection (:from (:box 20 :out 0)) (:to (:box 21 :in 2))) + (:connection (:from (:box 21 :out 0)) (:to (:box 18 :in 0))))) \ No newline at end of file diff --git a/om/help-patches/Basic data structures/n-cercle.opat b/om/help-patches/Basic data structures/n-cercle.opat index 7c419ad08..a6b7cb7af 100644 --- a/om/help-patches/Basic data structures/n-cercle.opat +++ b/om/help-patches/Basic data structures/n-cercle.opat @@ -1,12 +1,13 @@ (:patch - (:om-version 0.03) (:name "n-cercle") (:doc "") (:info (:created "2019/09/20 17:22:47") - (:modified "2019/09/22 2:10:19")) - (:window (:size (1212 721)) (:position (479 178))) + (:modified "2020/01/02 8:45:59") + (:by "om-sharp") + (:version 1.0)) + (:window (:size (1212 721)) (:position (468 178))) (:grid nil) (:lock nil) (:boxes @@ -24,10 +25,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -67,6 +66,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -96,10 +96,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) - (:group-id nil) + (:show-markers t) (:lock :locked) (:lambda nil) (:inputs @@ -143,6 +142,7 @@ ((:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) + (:extras nil) (:onset 0) (:item-time nil) (:item-internal-time nil) @@ -153,49 +153,7 @@ (:loffset (:list 0 0 0)) (:ldur (:list 1000 1000 1000)) (:lchan (:list 1 1 1)) - (:lport nil) - (:notes - (:list - (:object - (:class note) - (:slots - ((:symbolic-date nil) - (:symbolic-dur nil) - (:symbolic-dur-extent 0) - (:midic 6600) - (:vel 80) - (:dur 1000) - (:chan 1) - (:port nil) - (:offset 0))) - (:add-slots ((:port nil)))) - (:object - (:class note) - (:slots - ((:symbolic-date nil) - (:symbolic-dur nil) - (:symbolic-dur-extent 0) - (:midic 7400) - (:vel 80) - (:dur 1000) - (:chan 1) - (:port nil) - (:offset 0))) - (:add-slots ((:port nil)))) - (:object - (:class note) - (:slots - ((:symbolic-date nil) - (:symbolic-dur nil) - (:symbolic-dur-extent 0) - (:midic 8100) - (:vel 80) - (:dur 1000) - (:chan 1) - (:port nil) - (:offset 0))) - (:add-slots ((:port nil)))))))) - (:add-slots ((:onset 0) (:lchan (:list 1 1 1)) (:lport nil))))) + (:lport (:list nil nil nil)))))) (:id 2)) (:box (:type :object) @@ -211,10 +169,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -254,10 +210,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -413,6 +367,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -452,10 +407,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) - (:group-id nil) + (:show-markers t) (:lock nil) (:lambda nil) (:inputs @@ -499,6 +453,7 @@ ((:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) + (:extras nil) (:onset 0) (:item-time nil) (:item-internal-time nil) @@ -509,49 +464,7 @@ (:loffset (:list 0 0 0)) (:ldur (:list 1000 1000 1000)) (:lchan (:list 1 1 1)) - (:lport nil) - (:notes - (:list - (:object - (:class note) - (:slots - ((:symbolic-date nil) - (:symbolic-dur nil) - (:symbolic-dur-extent 0) - (:midic 6200) - (:vel 80) - (:dur 1000) - (:chan 1) - (:port nil) - (:offset 0))) - (:add-slots ((:port nil)))) - (:object - (:class note) - (:slots - ((:symbolic-date nil) - (:symbolic-dur nil) - (:symbolic-dur-extent 0) - (:midic 6600) - (:vel 80) - (:dur 1000) - (:chan 1) - (:port nil) - (:offset 0))) - (:add-slots ((:port nil)))) - (:object - (:class note) - (:slots - ((:symbolic-date nil) - (:symbolic-dur nil) - (:symbolic-dur-extent 0) - (:midic 6900) - (:vel 80) - (:dur 1000) - (:chan 1) - (:port nil) - (:offset 0))) - (:add-slots ((:port nil)))))))) - (:add-slots ((:onset 0) (:lchan (:list 1 1 1)) (:lport nil))))) + (:lport (:list nil nil nil)))))) (:id 12)) (:comment (:x 264) @@ -589,6 +502,7 @@ Note: N-CERCLE can also contain a set of chords/patterns: in this case, (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -623,10 +537,8 @@ Note: N-CERCLE can also contain a set of chords/patterns: in this case, (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -706,11 +618,9 @@ Note: N-CERCLE can also contain a set of chords/patterns: in this case, (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -754,21 +664,18 @@ Note: N-CERCLE can also contain a set of chords/patterns: in this case, ((:onset 0) (:duration 2000) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "CHORD-SEQ") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) + (:extras nil) (:lmidic (:list (:list 6000 6500 6700) (:list 6100 6300 6900))) (:lonset (:list 0 1000 2000)) - (:ldur (:list (:list 1000 1000 1000) (:list 1000 1000 1000))) - (:lvel (:list (:list 100 100 100) (:list 100 100 100))) - (:loffset (:list (:list 0 0 0) (:list 0 0 0))) - (:lchan (:list (:list 1 1 1) (:list 1 1 1))) - (:lport (:list nil nil)) - (:llegato nil))) - (:add-slots - ((:loffset (:list (:list 0 0 0) (:list 0 0 0))) - (:lchan (:list (:list 1 1 1) (:list 1 1 1))) - (:lport (:list nil nil)) + (:ldur (:list 1000 1000 1000)) + (:lvel (:list 100 100 100)) + (:loffset (:list 0 0 0)) + (:lchan (:list 1 1 1)) + (:lport (:list nil nil nil)) (:llegato nil))))) (:id 18)) (:box @@ -785,6 +692,7 @@ Note: N-CERCLE can also contain a set of chords/patterns: in this case, (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -834,10 +742,8 @@ Note: N-CERCLE can also contain a set of chords/patterns: in this case, (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -877,10 +783,8 @@ Note: N-CERCLE can also contain a set of chords/patterns: in this case, (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -920,6 +824,7 @@ Note: N-CERCLE can also contain a set of chords/patterns: in this case, (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -944,10 +849,8 @@ Note: N-CERCLE can also contain a set of chords/patterns: in this case, (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -987,6 +890,7 @@ Note: N-CERCLE can also contain a set of chords/patterns: in this case, (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1032,10 +936,8 @@ Note: N-CERCLE can also contain a set of chords/patterns: in this case, (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -1075,6 +977,7 @@ Note: N-CERCLE can also contain a set of chords/patterns: in this case, (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1099,10 +1002,8 @@ Note: N-CERCLE can also contain a set of chords/patterns: in this case, (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -1129,95 +1030,26 @@ Note: N-CERCLE can also contain a set of chords/patterns: in this case, (:slots ((:n 12) (:puntos (:list (:list -9 -7 -2))))))) (:id 29))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 11 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 1 :out 0)) - (:to (:box 0 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 4 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 4 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 8 :out 0)) - (:to (:box 3 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 9 :out 0)) - (:to (:box 3 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 10 :out 0)) - (:to (:box 1 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 11 :out 0)) - (:to (:box 12 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 14 :out 0)) - (:to (:box 18 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 15 :out 0)) - (:to (:box 14 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 16 :out 0)) - (:to (:box 15 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 17 :out 0)) - (:to (:box 15 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 18 :out 0)) - (:to (:box 19 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 19 :out 0)) - (:to (:box 21 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 20 :out 0)) - (:to (:box 19 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 22 :out 0)) - (:to (:box 25 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 23 :out 0)) - (:to (:box 24 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 25 :out 0)) - (:to (:box 27 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 26 :out 0)) - (:to (:box 25 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 27 :out 0)) - (:to (:box 28 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 28 :out 0)) - (:to (:box 29 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 29 :out 0)) - (:to (:box 23 :in 0)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 0 :out 0)) (:to (:box 11 :in 0))) + (:connection (:from (:box 1 :out 0)) (:to (:box 0 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 1 :in 0))) + (:connection (:from (:box 6 :out 0)) (:to (:box 4 :in 2))) + (:connection (:from (:box 7 :out 0)) (:to (:box 4 :in 1))) + (:connection (:from (:box 8 :out 0)) (:to (:box 3 :in 1))) + (:connection (:from (:box 9 :out 0)) (:to (:box 3 :in 2))) + (:connection (:from (:box 10 :out 0)) (:to (:box 1 :in 1))) + (:connection (:from (:box 11 :out 0)) (:to (:box 12 :in 0))) + (:connection (:from (:box 14 :out 0)) (:to (:box 18 :in 0))) + (:connection (:from (:box 15 :out 0)) (:to (:box 14 :in 0))) + (:connection (:from (:box 16 :out 0)) (:to (:box 15 :in 1))) + (:connection (:from (:box 17 :out 0)) (:to (:box 15 :in 2))) + (:connection (:from (:box 18 :out 0)) (:to (:box 19 :in 0))) + (:connection (:from (:box 19 :out 0)) (:to (:box 21 :in 0))) + (:connection (:from (:box 20 :out 0)) (:to (:box 19 :in 1))) + (:connection (:from (:box 22 :out 0)) (:to (:box 25 :in 0))) + (:connection (:from (:box 23 :out 0)) (:to (:box 24 :in 0))) + (:connection (:from (:box 25 :out 0)) (:to (:box 27 :in 0))) + (:connection (:from (:box 26 :out 0)) (:to (:box 25 :in 1))) + (:connection (:from (:box 27 :out 0)) (:to (:box 28 :in 0))) + (:connection (:from (:box 28 :out 0)) (:to (:box 29 :in 0))) + (:connection (:from (:box 29 :out 0)) (:to (:box 23 :in 0))))) \ No newline at end of file diff --git a/om/help-patches/Core features/collect.opat b/om/help-patches/Core features/collect.opat index 83da1aca8..e40ae3a33 100644 --- a/om/help-patches/Core features/collect.opat +++ b/om/help-patches/Core features/collect.opat @@ -1,18 +1,19 @@ (:patch - (:om-version 0.0112) (:name "collect") (:doc "") (:info (:created "2019/08/13 16:01:58") - (:modified "2019/09/03 14:22:05")) + (:modified "2020/01/02 8:45:59") + (:by "om-sharp") + (:version 1.0)) (:window (:size (1148 690)) (:position (313 23))) (:grid nil) (:lock nil) (:boxes (:box - (:reference slider) (:type :interface) + (:reference slider) (:group-id nil) (:name "slider") (:x 546) @@ -25,14 +26,15 @@ (:min-value 50) (:max-value 80) (:increment 1) + (:decimals 0) (:orientation :vertical) (:inputs) (:outputs (:output (:name "value") (:reactive t))) (:value 66) (:id 0)) (:box - (:reference chord-seq) (:type :object) + (:reference chord-seq) (:group-id nil) (:name nil) (:x 579) @@ -44,11 +46,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -92,9 +92,11 @@ ((:onset 0) (:duration 2347) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "CHORD-SEQ") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) + (:extras nil) (:lmidic (:list (:list 6500) @@ -162,41 +164,24 @@ (:list 1 1) (:list 1 1 1) (:list 1))) - (:lport (:list nil nil nil nil nil nil nil nil nil nil nil)) - (:llegato nil))) - (:add-slots - ((:loffset - (:list - (:list 0) - (:list 0 0 0) - (:list 0 0 0 0) - (:list 0 0 0) - (:list 0 0 0 0) - (:list 0 0 0) - (:list 0 0 0 0) - (:list 0 0 0 0) - (:list 0 0) - (:list 0 0 0) - (:list 0))) - (:lchan + (:lport (:list - (:list 1) - (:list 1 1 1) - (:list 1 1 1 1) - (:list 1 1 1) - (:list 1 1 1 1) - (:list 1 1 1) - (:list 1 1 1 1) - (:list 1 1 1 1) - (:list 1 1) - (:list 1 1 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil nil nil nil nil nil)) + (:list nil) + (:list nil nil nil) + (:list nil nil nil nil) + (:list nil nil nil) + (:list nil nil nil nil) + (:list nil nil nil) + (:list nil nil nil nil) + (:list nil nil nil nil) + (:list nil nil) + (:list nil nil nil) + (:list nil))) (:llegato nil))))) (:id 1)) (:box - (:reference om*) (:type :function) + (:reference om*) (:group-id nil) (:name "om*") (:x 577) @@ -208,6 +193,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -220,8 +206,8 @@ (:outputs (:output (:name "out") (:reactive t))) (:id 2)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 601) @@ -240,8 +226,8 @@ (:value 100) (:id 3)) (:box - (:reference button) (:type :interface) + (:reference button) (:group-id nil) (:name "button") (:x 710) @@ -258,8 +244,8 @@ (:value nil) (:id 4)) (:box - (:reference omor) (:type :function) + (:reference omor) (:group-id nil) (:name "omor") (:x 642) @@ -271,24 +257,25 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs (:input (:type :standard) - (:name "SELF") + (:name "TEST") (:value nil) (:reactive t)) (:input (:type :optional) - (:name "rest") + (:name "addtest") (:value nil) (:reactive t))) (:outputs (:output (:name "out") (:reactive t))) (:id 5)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 692) @@ -338,8 +325,8 @@ "COLLECT/TIMED-COLLECT: collect data in Loops or in reactive patches") (:id 8)) (:box - (:reference slider) (:type :interface) + (:reference slider) (:group-id nil) (:name "slider") (:x 186) @@ -352,14 +339,15 @@ (:min-value 0) (:max-value 100) (:increment 1) + (:decimals 0) (:orientation :vertical) (:inputs) (:outputs (:output (:name "value") (:reactive t))) (:value 45) (:id 9)) (:box - (:reference button) (:type :interface) + (:reference button) (:group-id nil) (:name "button") (:x 3247/12) @@ -376,8 +364,8 @@ (:value nil) (:id 10)) (:box - (:reference bpf) (:type :object) + (:reference bpf) (:group-id nil) (:name nil) (:x 87) @@ -389,11 +377,9 @@ (:roundness nil) (:text-font (:font (:face "Verdana") (:size 10) (:style :italic))) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -524,16 +510,11 @@ 43.0 44.0 45.0)))) - (:add-slots - ((:decimals 2) - (:color (:color 0.0 0.0 0.0 1.0)) - (:name "BPF") - (:action nil) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))))))) + (:add-slots ((:name "BPF"))))) (:id 11)) (:box - (:reference omor) (:type :function) + (:reference omor) (:group-id nil) (:name "omor") (:x 239) @@ -545,24 +526,25 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs (:input (:type :standard) - (:name "SELF") + (:name "TEST") (:value nil) (:reactive t)) (:input (:type :optional) - (:name "rest") + (:name "addtest") (:value nil) (:reactive t))) (:outputs (:output (:name "out") (:reactive t))) (:id 12)) (:box - (:reference collect) (:type :special) + (:reference collect) (:group-id nil) (:name "collect") (:x 204) @@ -611,20 +593,20 @@ (:text "See also LOOP-patches for more details and use cases") (:id 14)) (:box + (:type :abstraction) (:reference (:patch - (:om-version 0.0112) (:name "loop-with-collect") (:doc "") - (:info (:created nil) (:modified nil)) + (:info (:created nil) (:modified nil) (:by nil) (:version nil)) (:window (:size (697 418)) (:position (781 290))) (:grid nil) (:lock nil) (:boxes (:box + (:type :io) (:reference (:out (:type omout) (:name "out") (:index 1) (:doc ""))) - (:type :io) (:group-id nil) (:name "out") (:x 165) @@ -649,9 +631,9 @@ (:outputs) (:id 0)) (:box + (:type :io) (:reference (:in (:type omin) (:index 1) (:name "in") (:doc ""))) - (:type :io) (:group-id nil) (:name "in") (:x 91) @@ -676,8 +658,8 @@ (:outputs (:output (:name "out") (:reactive nil))) (:id 1)) (:box - (:reference collect) (:type :special) + (:reference collect) (:group-id nil) (:name "collect") (:x 89) @@ -715,8 +697,8 @@ (:output (:name "init") (:reactive nil))) (:id 2)) (:box - (:reference cons) (:type :value) + (:reference cons) (:group-id nil) (:name "value box") (:x 62) @@ -737,8 +719,8 @@ (:value (:list 6 7 8 9)) (:id 3)) (:box - (:reference iterate) (:type :special) + (:reference iterate) (:group-id nil) (:name "iterate") (:x 83) @@ -763,8 +745,8 @@ (:outputs) (:id 4)) (:box - (:reference om*) (:type :function) + (:reference om*) (:group-id nil) (:name "om*") (:x 141) @@ -776,6 +758,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -792,8 +775,8 @@ (:outputs (:output (:name "out") (:reactive nil))) (:id 5)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 167) @@ -845,8 +828,8 @@ 3) reinitialize the memory ") (:id 8)) (:box - (:reference loop-list) (:type :special) + (:reference loop-list) (:group-id nil) (:name "list-loop") (:x 79) @@ -871,35 +854,13 @@ (:outputs (:output (:name "i") (:reactive nil))) (:id 9))) (:connections - (:connection - (:from (:box 1 :out 0)) - (:to (:box 9 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 4 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 1)) - (:to (:box 0 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 2 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 5 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 9 :out 0)) - (:to (:box 5 :in 0)) - (:attributes (:color nil :style nil :modif nil)))))) - (:type :patch) + (:connection (:from (:box 1 :out 0)) (:to (:box 9 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 4 :in 0))) + (:connection (:from (:box 2 :out 1)) (:to (:box 0 :in 0))) + (:connection (:from (:box 3 :out 0)) (:to (:box 1 :in 0))) + (:connection (:from (:box 5 :out 0)) (:to (:box 2 :in 0))) + (:connection (:from (:box 6 :out 0)) (:to (:box 5 :in 1))) + (:connection (:from (:box 9 :out 0)) (:to (:box 5 :in 0)))))) (:group-id nil) (:name "loop-with-collect") (:x 230) @@ -912,7 +873,6 @@ (:text-font nil) (:align :center) (:display :mini-view) - (:group-id nil) (:lock nil) (:lambda nil) (:pre-delay 0) @@ -925,8 +885,8 @@ (:outputs (:output (:name "out") (:reactive nil))) (:id 15)) (:box - (:reference symbol) (:type :value) + (:reference symbol) (:group-id nil) (:name "value box") (:x 370) @@ -945,20 +905,20 @@ (:value t) (:id 16)) (:box + (:type :abstraction) (:reference (:patch - (:om-version 0.0112) (:name "loop-with-timed-collect") (:doc "") - (:info (:created nil) (:modified nil)) + (:info (:created nil) (:modified nil) (:by nil) (:version nil)) (:window (:size (626 454)) (:position (110 266))) (:grid nil) (:lock nil) (:boxes (:box + (:type :io) (:reference (:out (:type omout) (:name "out") (:index 1) (:doc ""))) - (:type :io) (:group-id nil) (:name "out") (:x 316) @@ -983,9 +943,9 @@ (:outputs) (:id 0)) (:box + (:type :io) (:reference (:out (:type omout) (:name "out") (:index 2) (:doc ""))) - (:type :io) (:group-id nil) (:name "out") (:x 357) @@ -1010,8 +970,8 @@ (:outputs) (:id 1)) (:box - (:reference iterate) (:type :special) + (:reference iterate) (:group-id nil) (:name "iterate") (:x 120) @@ -1064,8 +1024,8 @@ 4) collect the lime-list") (:id 3)) (:box - (:reference loop-for) (:type :special) + (:reference loop-for) (:group-id nil) (:name "for") (:x 43) @@ -1095,8 +1055,8 @@ (:outputs (:output (:name "i") (:reactive nil))) (:id 4)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 65) @@ -1117,8 +1077,8 @@ (:value 10) (:id 5)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 26) @@ -1139,8 +1099,8 @@ (:value 1) (:id 6)) (:box - (:reference timed-collect) (:type :special) + (:reference timed-collect) (:group-id nil) (:name "timed-collect") (:x 300) @@ -1184,8 +1144,8 @@ (:output (:name "time-list") (:reactive nil))) (:id 7)) (:box - (:reference sleep) (:type :function) + (:reference sleep) (:group-id nil) (:name "sleep") (:x 154) @@ -1197,6 +1157,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1208,8 +1169,8 @@ (:outputs (:output (:name "out") (:reactive nil))) (:id 8)) (:box - (:reference om-random) (:type :function) + (:reference om-random) (:group-id nil) (:name "om-random") (:x 138) @@ -1221,6 +1182,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1237,8 +1199,8 @@ (:outputs (:output (:name "out") (:reactive nil))) (:id 9)) (:box - (:reference single-float) (:type :value) + (:reference single-float) (:group-id nil) (:name "value box") (:x 192) @@ -1259,8 +1221,8 @@ (:value 0.5) (:id 10)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 148) @@ -1281,8 +1243,8 @@ (:value 0) (:id 11)) (:box - (:reference symbol) (:type :value) + (:reference symbol) (:group-id nil) (:name "value box") (:x 299) @@ -1303,8 +1265,8 @@ (:value a) (:id 12)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 356) @@ -1325,8 +1287,8 @@ (:value 1000) (:id 13)) (:box - (:reference print) (:type :function) + (:reference print) (:group-id nil) (:name "print") (:x 40) @@ -1338,6 +1300,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1362,59 +1325,19 @@ (:text "COLLECTS IN CHUNKS OF 1000 ms computation time-windows") (:id 15))) (:connections - (:connection - (:from (:box 4 :out 0)) - (:to (:box 14 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 4 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 4 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 2 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 1)) - (:to (:box 0 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 3)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 8 :out 0)) - (:to (:box 2 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 9 :out 0)) - (:to (:box 8 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 10 :out 0)) - (:to (:box 9 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 11 :out 0)) - (:to (:box 9 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 12 :out 0)) - (:to (:box 7 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 13 :out 0)) - (:to (:box 7 :in 3)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 14 :out 0)) - (:to (:box 2 :in 0)) - (:attributes (:color nil :style nil :modif nil)))))) - (:type :patch) + (:connection (:from (:box 4 :out 0)) (:to (:box 14 :in 0))) + (:connection (:from (:box 5 :out 0)) (:to (:box 4 :in 1))) + (:connection (:from (:box 6 :out 0)) (:to (:box 4 :in 0))) + (:connection (:from (:box 7 :out 0)) (:to (:box 2 :in 2))) + (:connection (:from (:box 7 :out 1)) (:to (:box 0 :in 0))) + (:connection (:from (:box 7 :out 3)) (:to (:box 1 :in 0))) + (:connection (:from (:box 8 :out 0)) (:to (:box 2 :in 1))) + (:connection (:from (:box 9 :out 0)) (:to (:box 8 :in 0))) + (:connection (:from (:box 10 :out 0)) (:to (:box 9 :in 1))) + (:connection (:from (:box 11 :out 0)) (:to (:box 9 :in 0))) + (:connection (:from (:box 12 :out 0)) (:to (:box 7 :in 0))) + (:connection (:from (:box 13 :out 0)) (:to (:box 7 :in 3))) + (:connection (:from (:box 14 :out 0)) (:to (:box 2 :in 0)))))) (:group-id nil) (:name "loop-with-timed-collect") (:x 922) @@ -1427,7 +1350,6 @@ (:text-font nil) (:align :center) (:display :mini-view) - (:group-id nil) (:lock nil) (:lambda nil) (:pre-delay 0) @@ -1450,8 +1372,8 @@ (:text "... best with a MIDI-IN or OSC-RECEIVE...") (:id 18)) (:box - (:reference seq) (:type :function) + (:reference seq) (:group-id nil) (:name "seq") (:x 291) @@ -1463,6 +1385,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1477,8 +1400,8 @@ (:output (:name "op+1") (:reactive t))) (:id 19)) (:box - (:reference seq) (:type :function) + (:reference seq) (:group-id nil) (:name "seq") (:x 189) @@ -1490,6 +1413,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1504,8 +1428,8 @@ (:output (:name "op+1") (:reactive t))) (:id 20)) (:box - (:reference seq) (:type :function) + (:reference seq) (:group-id nil) (:name "seq") (:x 720) @@ -1517,6 +1441,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1531,8 +1456,8 @@ (:output (:name "op+1") (:reactive t))) (:id 21)) (:box - (:reference seq) (:type :function) + (:reference seq) (:group-id nil) (:name "seq") (:x 544) @@ -1544,6 +1469,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1558,8 +1484,8 @@ (:output (:name "op+1") (:reactive t))) (:id 22)) (:box - (:reference timed-collect) (:type :special) + (:reference timed-collect) (:group-id nil) (:name "timed-collect") (:x 633) @@ -1597,83 +1523,26 @@ (:output (:name "time-list") (:reactive nil))) (:id 23))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 2 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 22 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 2 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 21 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 23 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 23 :in 3)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 9 :out 0)) - (:to (:box 20 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 10 :out 0)) - (:to (:box 19 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 12 :out 0)) - (:to (:box 13 :in 1)) - (:attributes (:color nil :style nil :modif nil))) + (:connection (:from (:box 0 :out 0)) (:to (:box 2 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 22 :in 0))) + (:connection (:from (:box 3 :out 0)) (:to (:box 2 :in 1))) + (:connection (:from (:box 4 :out 0)) (:to (:box 21 :in 0))) + (:connection (:from (:box 5 :out 0)) (:to (:box 23 :in 1))) + (:connection (:from (:box 6 :out 0)) (:to (:box 23 :in 3))) + (:connection (:from (:box 9 :out 0)) (:to (:box 20 :in 0))) + (:connection (:from (:box 10 :out 0)) (:to (:box 19 :in 0))) + (:connection (:from (:box 12 :out 0)) (:to (:box 13 :in 1))) (:connection (:from (:box 13 :out 1)) (:to (:box 11 :in 2)) (:attributes (:color nil :style nil :modif (0 0)))) - (:connection - (:from (:box 19 :out 0)) - (:to (:box 13 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 19 :out 1)) - (:to (:box 12 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 20 :out 0)) - (:to (:box 13 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 20 :out 1)) - (:to (:box 12 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 21 :out 0)) - (:to (:box 23 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 21 :out 1)) - (:to (:box 5 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 22 :out 0)) - (:to (:box 23 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 22 :out 1)) - (:to (:box 5 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 23 :out 1)) - (:to (:box 1 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 23 :out 3)) - (:to (:box 1 :in 2)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 19 :out 0)) (:to (:box 13 :in 2))) + (:connection (:from (:box 19 :out 1)) (:to (:box 12 :in 1))) + (:connection (:from (:box 20 :out 0)) (:to (:box 13 :in 0))) + (:connection (:from (:box 20 :out 1)) (:to (:box 12 :in 0))) + (:connection (:from (:box 21 :out 0)) (:to (:box 23 :in 2))) + (:connection (:from (:box 21 :out 1)) (:to (:box 5 :in 1))) + (:connection (:from (:box 22 :out 0)) (:to (:box 23 :in 0))) + (:connection (:from (:box 22 :out 1)) (:to (:box 5 :in 0))) + (:connection (:from (:box 23 :out 1)) (:to (:box 1 :in 1))) + (:connection (:from (:box 23 :out 3)) (:to (:box 1 :in 2))))) \ No newline at end of file diff --git a/om/help-patches/Core features/factorial.opat b/om/help-patches/Core features/factorial.opat index dced796cf..6164b2abd 100644 --- a/om/help-patches/Core features/factorial.opat +++ b/om/help-patches/Core features/factorial.opat @@ -1,11 +1,12 @@ (:patch - (:om-version 1.8E-5) (:name "factorial") (:doc "") (:info (:created "2018/01/18 11:54:31") - (:modified "2019/09/22 1:38:25")) + (:modified "2020/01/02 8:45:59") + (:by "om-sharp") + (:version 1.0)) (:window (:size (884 408)) (:position (226 440))) (:grid nil) (:lock nil) @@ -75,9 +76,24 @@ (:text-font nil) (:align :center) (:display :hidden) - (:group-id nil) (:lock nil) (:lambda nil) + (:filename + (:pathname + (:directory + (:absolute + "Users" + "bresson" + "SRC" + "cac-t-u-s" + "om-sharp" + "om" + "help-patches" + "Core features")) + (:device :unspecific) + (:host :unspecific) + (:name "factorial") + (:type "opat"))) (:pre-delay 0) (:inputs (:input @@ -101,6 +117,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -135,6 +152,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -184,6 +202,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -213,6 +232,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -237,6 +257,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -269,9 +290,24 @@ (:text-font nil) (:align :center) (:display :mini-view) - (:group-id nil) (:lock nil) (:lambda nil) + (:filename + (:pathname + (:directory + (:absolute + "Users" + "bresson" + "SRC" + "cac-t-u-s" + "om-sharp" + "om" + "help-patches" + "Core features")) + (:device :unspecific) + (:host :unspecific) + (:name "factorial") + (:type "opat"))) (:pre-delay 0) (:inputs (:input (:type :standard) (:name "n") (:value 5) (:reactive nil))) @@ -357,47 +393,17 @@ nil :modif nil))) - (:connection - (:from (:box 1 :out 0)) - (:to (:box 7 :in 0)) - (:attributes (:color nil :style nil :modif nil))) + (:connection (:from (:box 1 :out 0)) (:to (:box 7 :in 0))) (:connection (:from (:box 1 :out 0)) (:to (:box 6 :in 0)) (:attributes (:color nil :style nil :modif (0 0)))) - (:connection - (:from (:box 1 :out 0)) - (:to (:box 8 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 6 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 0 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 3 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 4 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 3 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 2 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 8 :out 0)) - (:to (:box 4 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 10 :out 0)) - (:to (:box 9 :in 0)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 1 :out 0)) (:to (:box 8 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 6 :in 1))) + (:connection (:from (:box 3 :out 0)) (:to (:box 0 :in 0))) + (:connection (:from (:box 4 :out 0)) (:to (:box 3 :in 0))) + (:connection (:from (:box 5 :out 0)) (:to (:box 4 :in 1))) + (:connection (:from (:box 6 :out 0)) (:to (:box 3 :in 2))) + (:connection (:from (:box 7 :out 0)) (:to (:box 2 :in 0))) + (:connection (:from (:box 8 :out 0)) (:to (:box 4 :in 0))) + (:connection (:from (:box 10 :out 0)) (:to (:box 9 :in 0))))) \ No newline at end of file diff --git a/om/help-patches/Core features/file-stream.opat b/om/help-patches/Core features/file-stream.opat index 040bf94be..7a5200019 100644 --- a/om/help-patches/Core features/file-stream.opat +++ b/om/help-patches/Core features/file-stream.opat @@ -1,18 +1,19 @@ (:patch - (:om-version 0.0112) (:name "file-stream") (:doc "") (:info (:created "2019/09/02 0:40:04") - (:modified "2019/09/02 9:59:30")) + (:modified "2020/01/02 8:45:59") + (:by "om-sharp") + (:version 1.0)) (:window (:size (737 454)) (:position (714 48))) (:grid nil) (:lock nil) (:boxes (:box - (:reference open-file-stream) (:type :function) + (:reference open-file-stream) (:group-id nil) (:name "open-file-stream") (:x 101) @@ -24,6 +25,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -35,8 +37,8 @@ (:outputs (:output (:name "out") (:reactive nil))) (:id 0)) (:box - (:reference simple-base-string) (:type :value) + (:reference simple-base-string) (:group-id nil) (:name "value box") (:x 70) @@ -55,20 +57,20 @@ (:value "Users/bresson/Desktop/test.txt") (:id 1)) (:box + (:type :abstraction) (:reference (:patch - (:om-version 0.0112) (:name "write-loop") (:doc "") - (:info (:created nil) (:modified nil)) + (:info (:created nil) (:modified nil) (:by nil) (:version nil)) (:window (:size (361 415)) (:position (104 92))) (:grid nil) (:lock nil) (:boxes (:box + (:type :io) (:reference (:in (:type omin) (:index 1) (:name "in") (:doc ""))) - (:type :io) (:group-id nil) (:name "in") (:x 121) @@ -88,8 +90,8 @@ (:outputs (:output (:name "out") (:reactive nil))) (:id 0)) (:box - (:reference (:in (:type omin) (:index 2) (:name "n") (:doc ""))) (:type :io) + (:reference (:in (:type omin) (:index 2) (:name "n") (:doc ""))) (:group-id nil) (:name "n") (:x 236) @@ -109,9 +111,9 @@ (:outputs (:output (:name "out") (:reactive nil))) (:id 1)) (:box + (:type :io) (:reference (:out (:type omout) (:name "out") (:index 1) (:doc ""))) - (:type :io) (:group-id nil) (:name "out") (:x 70) @@ -136,8 +138,8 @@ (:outputs) (:id 2)) (:box - (:reference iterate) (:type :special) + (:reference iterate) (:group-id nil) (:name "iterate") (:x 89) @@ -162,8 +164,8 @@ (:outputs) (:id 3)) (:box - (:reference loop-for) (:type :special) + (:reference loop-for) (:group-id nil) (:name "for") (:x 236) @@ -193,8 +195,8 @@ (:outputs (:output (:name "i") (:reactive nil))) (:id 4)) (:box - (:reference file-write-line) (:type :function) + (:reference file-write-line) (:group-id nil) (:name "file-write-line") (:x 65) @@ -206,6 +208,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -222,8 +225,8 @@ (:outputs (:output (:name "out") (:reactive nil))) (:id 5)) (:box - (:reference format) (:type :function) + (:reference format) (:group-id nil) (:name "format") (:x 166) @@ -235,6 +238,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -256,8 +260,8 @@ (:outputs (:output (:name "out") (:reactive nil))) (:id 6)) (:box - (:reference simple-base-string) (:type :value) + (:reference simple-base-string) (:group-id nil) (:name "value box") (:x 155) @@ -278,35 +282,13 @@ (:value "line ~D") (:id 7))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 5 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 0 :out 0)) - (:to (:box 2 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 1 :out 0)) - (:to (:box 4 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 6 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 3 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 5 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 6 :in 1)) - (:attributes (:color nil :style nil :modif nil)))))) - (:type :patch) + (:connection (:from (:box 0 :out 0)) (:to (:box 5 :in 1))) + (:connection (:from (:box 0 :out 0)) (:to (:box 2 :in 0))) + (:connection (:from (:box 1 :out 0)) (:to (:box 4 :in 1))) + (:connection (:from (:box 4 :out 0)) (:to (:box 6 :in 2))) + (:connection (:from (:box 5 :out 0)) (:to (:box 3 :in 0))) + (:connection (:from (:box 6 :out 0)) (:to (:box 5 :in 0))) + (:connection (:from (:box 7 :out 0)) (:to (:box 6 :in 1)))))) (:group-id nil) (:name "write-loop") (:x 184) @@ -319,7 +301,6 @@ (:text-font nil) (:align :center) (:display :mini-view) - (:group-id nil) (:lock nil) (:lambda nil) (:pre-delay 0) @@ -337,8 +318,8 @@ (:outputs (:output (:name "out") (:reactive nil))) (:id 2)) (:box - (:reference close-file-stream) (:type :function) + (:reference close-file-stream) (:group-id nil) (:name "close-file-stream") (:x 145) @@ -350,6 +331,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -361,8 +343,8 @@ (:outputs (:output (:name "out") (:reactive nil))) (:id 3)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 256) @@ -381,8 +363,8 @@ (:value 20) (:id 4)) (:box - (:reference textbuffer) (:type :object) + (:reference textbuffer) (:group-id nil) (:name nil) (:x 175) @@ -394,10 +376,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -496,23 +476,8 @@ "Open FILE-STREAMs are automatically closed when they are not used anymore by the Common Lisp garbage collection system, however, it is recommended to close them explicitely as soon as they are not needed in order to limit the number of streams open.") (:id 8))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 2 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 1 :out 0)) - (:to (:box 0 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 3 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 5 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 2 :in 1)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 0 :out 0)) (:to (:box 2 :in 0))) + (:connection (:from (:box 1 :out 0)) (:to (:box 0 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 3 :in 0))) + (:connection (:from (:box 3 :out 0)) (:to (:box 5 :in 0))) + (:connection (:from (:box 4 :out 0)) (:to (:box 2 :in 1))))) \ No newline at end of file diff --git a/om/help-patches/Core features/loop-chords.opat b/om/help-patches/Core features/loop-chords.opat index 2a27a551b..feda7228b 100644 --- a/om/help-patches/Core features/loop-chords.opat +++ b/om/help-patches/Core features/loop-chords.opat @@ -1,11 +1,12 @@ (:patch - (:om-version 0.03) (:name "loop-chords") (:doc "") (:info (:created "2019/09/21 22:06:00") - (:modified "2019/09/21 22:38:10")) + (:modified "2020/01/02 8:45:59") + (:by "om-sharp") + (:version 1.0)) (:window (:size (994 548)) (:position (306 247))) (:grid nil) (:lock nil) @@ -14,10 +15,9 @@ (:type :abstraction) (:reference (:patch - (:om-version 0.03) (:name "make-chords-loop") (:doc "") - (:info (:created nil) (:modified nil)) + (:info (:created nil) (:modified nil) (:by nil) (:version nil)) (:window (:size (283 399)) (:position (647 245))) (:grid nil) (:lock nil) @@ -85,6 +85,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -214,30 +215,12 @@ (:value (:list 0 500 1200)) (:id 6))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 5 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 4 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 3 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 1)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 2 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 2 :in 1)) - (:attributes (:color nil :style nil :modif nil)))))) + (:connection (:from (:box 0 :out 0)) (:to (:box 5 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 4 :in 0))) + (:connection (:from (:box 4 :out 0)) (:to (:box 3 :in 0))) + (:connection (:from (:box 4 :out 1)) (:to (:box 1 :in 0))) + (:connection (:from (:box 5 :out 0)) (:to (:box 2 :in 0))) + (:connection (:from (:box 6 :out 0)) (:to (:box 2 :in 1)))))) (:group-id nil) (:name "make-chords-loop") (:x 164) @@ -250,7 +233,6 @@ (:text-font nil) (:align :center) (:display :mini-view) - (:group-id nil) (:lock nil) (:lambda nil) (:pre-delay 0) @@ -276,11 +258,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -324,9 +304,11 @@ ((:onset 0) (:duration 1611) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "CHORD-SEQ") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) + (:extras nil) (:lmidic (:list (:list 6000) @@ -337,15 +319,7 @@ (:list 7900) (:list 7900))) (:lonset (:list 0 170 378 552 767 1032 1411 1611)) - (:ldur - (:list - (:list 200) - (:list 200) - (:list 200) - (:list 200) - (:list 200) - (:list 200) - (:list 200))) + (:ldur (:list 200)) (:lvel (:list (:list 100) @@ -355,46 +329,9 @@ (:list 80) (:list 80) (:list 80))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil nil)) - (:llegato nil))) - (:add-slots - ((:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil nil)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) (:llegato nil))))) (:id 1)) (:box @@ -411,11 +348,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -459,9 +394,11 @@ ((:onset 0) (:duration 1611) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "CHORD-SEQ") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) + (:extras nil) (:lmidic (:list (:list 6000 6500 7200) @@ -472,15 +409,7 @@ (:list 7900 8400 9100) (:list 7900 8400 9100))) (:lonset (:list 0 170 378 552 767 1032 1411 1611)) - (:ldur - (:list - (:list 200 200 200) - (:list 200 200 200) - (:list 200 200 200) - (:list 200 200 200) - (:list 200 200 200) - (:list 200 200 200) - (:list 200 200 200))) + (:ldur (:list 200 200 200)) (:lvel (:list (:list 100 100 100) @@ -490,46 +419,9 @@ (:list 80 80 80) (:list 80 80 80) (:list 80 80 80))) - (:loffset - (:list - (:list 0 0 0) - (:list 0 0 0) - (:list 0 0 0) - (:list 0 0 0) - (:list 0 0 0) - (:list 0 0 0) - (:list 0 0 0))) - (:lchan - (:list - (:list 1 1 1) - (:list 1 1 1) - (:list 1 1 1) - (:list 1 1 1) - (:list 1 1 1) - (:list 1 1 1) - (:list 1 1 1))) - (:lport (:list nil nil nil nil nil nil nil)) - (:llegato nil))) - (:add-slots - ((:loffset - (:list - (:list 0 0 0) - (:list 0 0 0) - (:list 0 0 0) - (:list 0 0 0) - (:list 0 0 0) - (:list 0 0 0) - (:list 0 0 0))) - (:lchan - (:list - (:list 1 1 1) - (:list 1 1 1) - (:list 1 1 1) - (:list 1 1 1) - (:list 1 1 1) - (:list 1 1 1) - (:list 1 1 1))) - (:lport (:list nil nil nil nil nil nil nil)) + (:loffset (:list 0 0 0)) + (:lchan (:list 1 1 1)) + (:lport (:list nil nil nil)) (:llegato nil))))) (:id 2)) (:comment @@ -549,10 +441,9 @@ (:type :abstraction) (:reference (:patch - (:om-version 0.03) (:name "make-one-chord") (:doc "") - (:info (:created nil) (:modified nil)) + (:info (:created nil) (:modified nil) (:by nil) (:version nil)) (:window (:size (362 340)) (:position (190 184))) (:grid nil) (:lock nil) @@ -642,6 +533,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -703,6 +595,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -732,6 +625,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -814,42 +708,15 @@ (:value 24) (:id 9))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 3 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 4 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 3 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 6 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 4 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 6 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 8 :out 0)) - (:to (:box 5 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 9 :out 0)) - (:to (:box 5 :in 1)) - (:attributes (:color nil :style nil :modif nil)))))) + (:connection (:from (:box 0 :out 0)) (:to (:box 3 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 4 :in 1))) + (:connection (:from (:box 3 :out 0)) (:to (:box 1 :in 0))) + (:connection (:from (:box 4 :out 0)) (:to (:box 3 :in 1))) + (:connection (:from (:box 5 :out 0)) (:to (:box 6 :in 0))) + (:connection (:from (:box 6 :out 0)) (:to (:box 4 :in 0))) + (:connection (:from (:box 7 :out 0)) (:to (:box 6 :in 1))) + (:connection (:from (:box 8 :out 0)) (:to (:box 5 :in 0))) + (:connection (:from (:box 9 :out 0)) (:to (:box 5 :in 1)))))) (:group-id nil) (:name "make-one-chord") (:x 529) @@ -862,7 +729,6 @@ (:text-font nil) (:align :center) (:display :mini-view) - (:group-id nil) (:lock nil) (:lambda :lambda) (:pre-delay 0) @@ -893,6 +759,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -922,11 +789,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -970,9 +835,11 @@ ((:onset 0) (:duration 1611) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "CHORD-SEQ") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) + (:extras nil) (:lmidic (:list (:list 7200) @@ -1019,28 +886,15 @@ (:list 1 1 1 1) (:list 1 1 1) (:list 1))) - (:lport (:list nil nil nil nil nil nil nil)) - (:llegato nil))) - (:add-slots - ((:loffset + (:lport (:list - (:list 0) - (:list 0 0) - (:list 0 0 0 0) - (:list 0 0 0 0 0) - (:list 0 0 0 0) - (:list 0 0 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1 1) - (:list 1 1 1 1) - (:list 1 1 1 1 1) - (:list 1 1 1 1) - (:list 1 1 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil nil)) + (:list nil) + (:list nil nil) + (:list nil nil nil nil) + (:list nil nil nil nil nil) + (:list nil nil nil nil) + (:list nil nil nil) + (:list nil))) (:llegato nil))))) (:id 6)) (:box @@ -1057,6 +911,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1068,34 +923,13 @@ (:outputs (:output (:name "out") (:reactive nil))) (:id 7))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 2 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 1 :out 0)) - (:to (:box 2 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 1 :out 0)) - (:to (:box 6 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 1 :out 1)) - (:to (:box 7 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 5 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 6 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 0 :in 0)) - (:attributes (:color nil :style nil :modif nil))) + (:connection (:from (:box 0 :out 0)) (:to (:box 2 :in 1))) + (:connection (:from (:box 1 :out 0)) (:to (:box 2 :in 0))) + (:connection (:from (:box 1 :out 0)) (:to (:box 6 :in 0))) + (:connection (:from (:box 1 :out 1)) (:to (:box 7 :in 0))) + (:connection (:from (:box 4 :out 0)) (:to (:box 5 :in 0))) + (:connection (:from (:box 5 :out 0)) (:to (:box 6 :in 1))) + (:connection (:from (:box 7 :out 0)) (:to (:box 0 :in 0))) (:connection (:from (:box 7 :out 0)) (:to (:box 5 :in 1)) diff --git a/om/help-patches/Core features/loop.opat b/om/help-patches/Core features/loop.opat index d48189b58..eb620b89d 100644 --- a/om/help-patches/Core features/loop.opat +++ b/om/help-patches/Core features/loop.opat @@ -1,11 +1,12 @@ (:patch - (:om-version 0.03) (:name "loop") (:doc "") (:info (:created "2019/09/20 22:46:53") - (:modified "2019/09/21 10:08:52")) + (:modified "2020/01/02 8:45:59") + (:by "om-sharp") + (:version 1.0)) (:window (:size (943 383)) (:position (489 207))) (:grid nil) (:lock nil) @@ -14,10 +15,9 @@ (:type :abstraction) (:reference (:patch - (:om-version 0.03) (:name "omloop-accum") (:doc "") - (:info (:created nil) (:modified nil)) + (:info (:created nil) (:modified nil) (:by nil) (:version nil)) (:window (:size (645 385)) (:position (471 171))) (:grid nil) (:lock nil) @@ -85,6 +85,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda :lambda) (:inputs @@ -238,30 +239,12 @@ Outputs: - Initialize memory with input 3.") (:id 7))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 6 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 4 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 4 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 5 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 1)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 4 :in 0)) - (:attributes (:color nil :style nil :modif nil)))))) + (:connection (:from (:box 0 :out 0)) (:to (:box 6 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 4 :in 1))) + (:connection (:from (:box 3 :out 0)) (:to (:box 4 :in 2))) + (:connection (:from (:box 4 :out 0)) (:to (:box 5 :in 0))) + (:connection (:from (:box 4 :out 1)) (:to (:box 1 :in 0))) + (:connection (:from (:box 6 :out 0)) (:to (:box 4 :in 0)))))) (:group-id nil) (:name "omloop-accum") (:x 422) @@ -274,7 +257,6 @@ Outputs: (:text-font nil) (:align :center) (:display :mini-view) - (:group-id nil) (:lock nil) (:lambda nil) (:pre-delay 0) @@ -290,10 +272,9 @@ Outputs: (:type :abstraction) (:reference (:patch - (:om-version 0.03) (:name "omloop-min-max-sum-count") (:doc "") - (:info (:created nil) (:modified nil)) + (:info (:created nil) (:modified nil) (:by nil) (:version nil)) (:window (:size (841 560)) (:position (341 170))) (:grid nil) (:lock nil) @@ -401,6 +382,33 @@ Outputs: (:reactive nil))) (:outputs) (:id 3)) + (:box + (:type :io) + (:reference + (:out (:type omout) (:name "COUNT") (:index 1) (:doc ""))) + (:group-id nil) + (:name "COUNT") + (:x 558) + (:y 319) + (:w 68) + (:h 42) + (:color + (:color-or-nil + (:color (:color 1.0 1.0 1.0 0.0)) + (:t-or-nil t))) + (:border 0) + (:roundness 0) + (:text-font nil) + (:align :center) + (:icon :top) + (:inputs + (:input + (:type :standard) + (:name "out-value") + (:value nil) + (:reactive nil))) + (:outputs) + (:id 4)) (:box (:type :special) (:reference accum) @@ -439,7 +447,7 @@ Outputs: (:output (:name "collect") (:reactive nil)) (:output (:name "data-out") (:reactive nil)) (:output (:name "init") (:reactive nil))) - (:id 4)) + (:id 5)) (:box (:type :special) (:reference accum) @@ -478,7 +486,7 @@ Outputs: (:output (:name "collect") (:reactive nil)) (:output (:name "data-out") (:reactive nil)) (:output (:name "init") (:reactive nil))) - (:id 5)) + (:id 6)) (:box (:type :special) (:reference iterate) @@ -519,7 +527,7 @@ Outputs: (:value nil) (:reactive nil))) (:outputs) - (:id 6)) + (:id 7)) (:box (:type :special) (:reference loop-list) @@ -545,33 +553,6 @@ Outputs: (:value nil) (:reactive nil))) (:outputs (:output (:name "i") (:reactive nil))) - (:id 7)) - (:box - (:type :io) - (:reference - (:out (:type omout) (:name "COUNT") (:index 1) (:doc ""))) - (:group-id nil) - (:name "COUNT") - (:x 558) - (:y 319) - (:w 68) - (:h 42) - (:color - (:color-or-nil - (:color (:color 1.0 1.0 1.0 0.0)) - (:t-or-nil t))) - (:border 0) - (:roundness 0) - (:text-font nil) - (:align :center) - (:icon :top) - (:inputs - (:input - (:type :standard) - (:name "out-value") - (:value nil) - (:reactive nil))) - (:outputs) (:id 8)) (:box (:type :function) @@ -587,6 +568,7 @@ Outputs: (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -703,6 +685,7 @@ Outputs: (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda :lambda) (:inputs @@ -732,6 +715,7 @@ Outputs: (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda :lambda) (:inputs @@ -761,6 +745,7 @@ Outputs: (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda :lambda) (:inputs @@ -790,6 +775,7 @@ Outputs: (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda :lambda) (:inputs @@ -864,86 +850,26 @@ Outputs: "Four COUNT / om-1+ the collected value is the result of a test. If the test is non-NIL, the counter value is incremented.") (:id 19))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 7 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 6 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 1)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 6 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 1)) - (:to (:box 3 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 4 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 5 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 12 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 9 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 9 :out 0)) - (:to (:box 10 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 10 :out 0)) - (:to (:box 6 :in 3)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 10 :out 1)) - (:to (:box 8 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 12 :out 0)) - (:to (:box 6 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 12 :out 1)) - (:to (:box 2 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 13 :out 0)) - (:to (:box 4 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 14 :out 0)) - (:to (:box 12 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 15 :out 0)) - (:to (:box 5 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 16 :out 0)) - (:to (:box 10 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 17 :out 0)) - (:to (:box 10 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 18 :out 0)) - (:to (:box 5 :in 2)) - (:attributes (:color nil :style nil :modif nil)))))) + (:connection (:from (:box 0 :out 0)) (:to (:box 8 :in 0))) + (:connection (:from (:box 5 :out 0)) (:to (:box 7 :in 0))) + (:connection (:from (:box 5 :out 1)) (:to (:box 1 :in 0))) + (:connection (:from (:box 6 :out 0)) (:to (:box 7 :in 2))) + (:connection (:from (:box 6 :out 1)) (:to (:box 3 :in 0))) + (:connection (:from (:box 8 :out 0)) (:to (:box 5 :in 0))) + (:connection (:from (:box 8 :out 0)) (:to (:box 6 :in 0))) + (:connection (:from (:box 8 :out 0)) (:to (:box 12 :in 0))) + (:connection (:from (:box 8 :out 0)) (:to (:box 9 :in 0))) + (:connection (:from (:box 9 :out 0)) (:to (:box 10 :in 0))) + (:connection (:from (:box 10 :out 0)) (:to (:box 7 :in 3))) + (:connection (:from (:box 10 :out 1)) (:to (:box 4 :in 0))) + (:connection (:from (:box 12 :out 0)) (:to (:box 7 :in 1))) + (:connection (:from (:box 12 :out 1)) (:to (:box 2 :in 0))) + (:connection (:from (:box 13 :out 0)) (:to (:box 5 :in 1))) + (:connection (:from (:box 14 :out 0)) (:to (:box 12 :in 1))) + (:connection (:from (:box 15 :out 0)) (:to (:box 6 :in 1))) + (:connection (:from (:box 16 :out 0)) (:to (:box 10 :in 1))) + (:connection (:from (:box 17 :out 0)) (:to (:box 10 :in 2))) + (:connection (:from (:box 18 :out 0)) (:to (:box 6 :in 2)))))) (:group-id nil) (:name "omloop-min-max-sum-count") (:x 563) @@ -956,7 +882,6 @@ Outputs: (:text-font nil) (:align :center) (:display :mini-view) - (:group-id nil) (:lock nil) (:lambda nil) (:pre-delay 0) @@ -967,10 +892,10 @@ Outputs: (:value nil) (:reactive nil))) (:outputs - (:output (:name "COUNT") (:reactive nil)) - (:output (:name "output 2") (:reactive nil)) - (:output (:name "output 3") (:reactive nil)) - (:output (:name "output 2") (:reactive nil))) + (:output (:name "MAX") (:reactive nil)) + (:output (:name "MIN") (:reactive nil)) + (:output (:name "SUM") (:reactive nil)) + (:output (:name "COUNT") (:reactive nil))) (:id 1)) (:box (:type :value) @@ -996,10 +921,9 @@ Outputs: (:type :abstraction) (:reference (:patch - (:om-version 0.03) (:name "omloop-for") (:doc "") - (:info (:created nil) (:modified nil)) + (:info (:created nil) (:modified nil) (:by nil) (:version nil)) (:window (:size (567 494)) (:position (148 138))) (:grid nil) (:lock nil) @@ -1155,6 +1079,7 @@ Outputs: (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1322,46 +1247,16 @@ LOO-WHILE ... can be combined and must be connected to ITERATE in order to drive the iteration.") (:id 11))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 10 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 9 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 9 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 9 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 6 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 7 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 8 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 1)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 9 :out 0)) - (:to (:box 8 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 10 :out 0)) - (:to (:box 6 :in 0)) - (:attributes (:color nil :style nil :modif nil)))))) + (:connection (:from (:box 0 :out 0)) (:to (:box 10 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 9 :in 2))) + (:connection (:from (:box 3 :out 0)) (:to (:box 9 :in 0))) + (:connection (:from (:box 4 :out 0)) (:to (:box 9 :in 1))) + (:connection (:from (:box 5 :out 0)) (:to (:box 6 :in 1))) + (:connection (:from (:box 6 :out 0)) (:to (:box 7 :in 0))) + (:connection (:from (:box 7 :out 0)) (:to (:box 8 :in 0))) + (:connection (:from (:box 7 :out 1)) (:to (:box 1 :in 0))) + (:connection (:from (:box 9 :out 0)) (:to (:box 8 :in 1))) + (:connection (:from (:box 10 :out 0)) (:to (:box 6 :in 0)))))) (:group-id nil) (:name "omloop-for") (:x 178) @@ -1374,7 +1269,6 @@ LOO-WHILE (:text-font nil) (:align :center) (:display :mini-view) - (:group-id nil) (:lock nil) (:lambda nil) (:pre-delay 0) @@ -1390,14 +1284,67 @@ LOO-WHILE (:type :abstraction) (:reference (:patch - (:om-version 0.03) (:name "omloop-collect") (:doc "") - (:info (:created nil) (:modified nil)) + (:info (:created nil) (:modified nil) (:by nil) (:version nil)) (:window (:size (827 461)) (:position (460 375))) (:grid nil) (:lock nil) (:boxes + (:box + (:type :io) + (:reference + (:in (:type omin) (:index 1) (:name "input") (:doc ""))) + (:group-id nil) + (:name "input") + (:x 158) + (:y 97) + (:w 50) + (:h 42) + (:color + (:color-or-nil + (:color (:color 1.0 1.0 1.0 0.0)) + (:t-or-nil t))) + (:border 0) + (:roundness 0) + (:text-font nil) + (:align :center) + (:icon :top) + (:inputs + (:input + (:type :optional) + (:name "internal input value") + (:value nil) + (:reactive nil))) + (:outputs (:output (:name "out") (:reactive nil))) + (:id 0)) + (:box + (:type :io) + (:reference + (:out (:type omout) (:name "output 1") (:index 1) (:doc ""))) + (:group-id nil) + (:name "output 1") + (:x 200) + (:y 353) + (:w 68) + (:h 42) + (:color + (:color-or-nil + (:color (:color 1.0 1.0 1.0 0.0)) + (:t-or-nil t))) + (:border 0) + (:roundness 0) + (:text-font nil) + (:align :center) + (:icon :top) + (:inputs + (:input + (:type :standard) + (:name "out-value") + (:value nil) + (:reactive nil))) + (:outputs) + (:id 1)) (:box (:type :value) (:reference simple-base-string) @@ -1419,7 +1366,7 @@ LOO-WHILE (:inputs) (:outputs (:output (:name "value") (:reactive nil))) (:value "there") - (:id 0)) + (:id 2)) (:box (:type :function) (:reference print) @@ -1434,6 +1381,7 @@ LOO-WHILE (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1443,7 +1391,7 @@ LOO-WHILE (:value nil) (:reactive nil))) (:outputs (:output (:name "out") (:reactive nil))) - (:id 1)) + (:id 3)) (:box (:type :function) (:reference print) @@ -1458,6 +1406,7 @@ LOO-WHILE (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1467,7 +1416,7 @@ LOO-WHILE (:value nil) (:reactive nil))) (:outputs (:output (:name "out") (:reactive nil))) - (:id 2)) + (:id 4)) (:box (:type :value) (:reference simple-base-string) @@ -1489,7 +1438,7 @@ LOO-WHILE (:inputs) (:outputs (:output (:name "value") (:reactive nil))) (:value "hi") - (:id 3)) + (:id 5)) (:box (:type :special) (:reference init-do) @@ -1520,7 +1469,7 @@ LOO-WHILE (:value nil) (:reactive nil))) (:outputs) - (:id 4)) + (:id 6)) (:box (:type :value) (:reference fixnum) @@ -1542,7 +1491,7 @@ LOO-WHILE (:inputs) (:outputs (:output (:name "value") (:reactive nil))) (:value 1) - (:id 5)) + (:id 7)) (:box (:type :function) (:reference om+) @@ -1557,6 +1506,7 @@ LOO-WHILE (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1571,7 +1521,7 @@ LOO-WHILE (:value 0) (:reactive nil))) (:outputs (:output (:name "out") (:reactive nil))) - (:id 6)) + (:id 8)) (:box (:type :special) (:reference collect) @@ -1610,7 +1560,7 @@ LOO-WHILE (:output (:name "collect") (:reactive nil)) (:output (:name "data-out") (:reactive nil)) (:output (:name "init") (:reactive nil))) - (:id 7)) + (:id 9)) (:box (:type :special) (:reference iterate) @@ -1636,7 +1586,7 @@ LOO-WHILE (:value nil) (:reactive nil))) (:outputs) - (:id 8)) + (:id 10)) (:comment (:x 79) (:y 412) @@ -1649,7 +1599,7 @@ LOO-WHILE (:text-font nil) (:align nil) (:text "LOOP FOR ELEMENT IN LIST COLLECT (OM+ ELEMENT 1)") - (:id 9)) + (:id 11)) (:comment (:x 554) (:y 199) @@ -1662,7 +1612,7 @@ LOO-WHILE (:text-font nil) (:align nil) (:text "ACTIONS TO DO BEFORE TO START") - (:id 10)) + (:id 12)) (:comment (:x 307) (:y 150) @@ -1686,7 +1636,7 @@ Outputs: - Collect from input 1 and return this value - Return current state of memory - Initialize memory with input 3.") - (:id 11)) + (:id 13)) (:comment (:x 219) (:y 41) @@ -1700,7 +1650,7 @@ Outputs: (:align nil) (:text "These values can be used by the input to test the patch internally.") - (:id 12)) + (:id 14)) (:box (:type :value) (:reference cons) @@ -1722,7 +1672,7 @@ Outputs: (:inputs) (:outputs (:output (:name "value") (:reactive nil))) (:value (:list 1 2 3 4)) - (:id 13)) + (:id 15)) (:comment (:x 63) (:y 148) @@ -1735,7 +1685,7 @@ Outputs: (:text-font nil) (:align nil) (:text "Itreate on list") - (:id 14)) + (:id 16)) (:box (:type :special) (:reference loop-list) @@ -1761,106 +1711,19 @@ Outputs: (:value nil) (:reactive nil))) (:outputs (:output (:name "i") (:reactive nil))) - (:id 15)) - (:box - (:type :io) - (:reference - (:in (:type omin) (:index 1) (:name "input") (:doc ""))) - (:group-id nil) - (:name "input") - (:x 158) - (:y 97) - (:w 50) - (:h 42) - (:color - (:color-or-nil - (:color (:color 1.0 1.0 1.0 0.0)) - (:t-or-nil t))) - (:border 0) - (:roundness 0) - (:text-font nil) - (:align :center) - (:icon :top) - (:inputs - (:input - (:type :optional) - (:name "internal input value") - (:value nil) - (:reactive nil))) - (:outputs (:output (:name "out") (:reactive nil))) - (:id 16)) - (:box - (:type :io) - (:reference - (:out (:type omout) (:name "output 1") (:index 1) (:doc ""))) - (:group-id nil) - (:name "output 1") - (:x 200) - (:y 353) - (:w 68) - (:h 42) - (:color - (:color-or-nil - (:color (:color 1.0 1.0 1.0 0.0)) - (:t-or-nil t))) - (:border 0) - (:roundness 0) - (:text-font nil) - (:align :center) - (:icon :top) - (:inputs - (:input - (:type :standard) - (:name "out-value") - (:value nil) - (:reactive nil))) - (:outputs) (:id 17))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 1 :out 0)) - (:to (:box 4 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 4 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 2 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 6 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 7 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 8 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 1)) - (:to (:box 17 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 13 :out 0)) - (:to (:box 16 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 15 :out 0)) - (:to (:box 6 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 16 :out 0)) - (:to (:box 15 :in 0)) - (:attributes (:color nil :style nil :modif nil)))))) + (:connection (:from (:box 0 :out 0)) (:to (:box 17 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 3 :in 0))) + (:connection (:from (:box 3 :out 0)) (:to (:box 6 :in 1))) + (:connection (:from (:box 4 :out 0)) (:to (:box 6 :in 0))) + (:connection (:from (:box 5 :out 0)) (:to (:box 4 :in 0))) + (:connection (:from (:box 7 :out 0)) (:to (:box 8 :in 1))) + (:connection (:from (:box 8 :out 0)) (:to (:box 9 :in 0))) + (:connection (:from (:box 9 :out 0)) (:to (:box 10 :in 0))) + (:connection (:from (:box 9 :out 1)) (:to (:box 1 :in 0))) + (:connection (:from (:box 15 :out 0)) (:to (:box 0 :in 0))) + (:connection (:from (:box 17 :out 0)) (:to (:box 8 :in 0)))))) (:group-id nil) (:name "omloop-collect") (:x 57) @@ -1873,7 +1736,6 @@ Outputs: (:text-font nil) (:align :center) (:display :mini-view) - (:group-id nil) (:lock nil) (:lambda nil) (:pre-delay 0) @@ -1919,14 +1781,62 @@ Outputs: (:type :abstraction) (:reference (:patch - (:om-version 0.03) (:name "omloop-multiple") (:doc "") - (:info (:created nil) (:modified nil)) + (:info (:created nil) (:modified nil) (:by nil) (:version nil)) (:window (:size (508 574)) (:position (85 69))) (:grid nil) (:lock nil) (:boxes + (:box + (:type :io) + (:reference + (:in (:type omin) (:index 1) (:name "input") (:doc ""))) + (:group-id nil) + (:name "input") + (:x 98) + (:y 40) + (:w 50) + (:h 42) + (:color + (:color-or-nil + (:color (:color 1.0 1.0 1.0 0.0)) + (:t-or-nil t))) + (:border 0) + (:roundness 0) + (:text-font nil) + (:align :center) + (:icon :top) + (:inputs) + (:outputs (:output (:name "out") (:reactive nil))) + (:id 0)) + (:box + (:type :io) + (:reference + (:out (:type omout) (:name "out") (:index 1) (:doc ""))) + (:group-id nil) + (:name "out") + (:x 326) + (:y 480) + (:w 40) + (:h 42) + (:color + (:color-or-nil + (:color (:color 1.0 1.0 1.0 0.0)) + (:t-or-nil t))) + (:border 0) + (:roundness 0) + (:text-font nil) + (:align :center) + (:icon :top) + (:inputs + (:input + (:type :standard) + (:name "out-value") + (:value nil) + (:reactive nil))) + (:outputs) + (:id 1)) (:box (:type :value) (:reference fixnum) @@ -1948,7 +1858,7 @@ Outputs: (:inputs) (:outputs (:output (:name "value") (:reactive nil))) (:value 1) - (:id 0)) + (:id 2)) (:box (:type :function) (:reference om+) @@ -1963,6 +1873,7 @@ Outputs: (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1977,7 +1888,7 @@ Outputs: (:value 0) (:reactive nil))) (:outputs (:output (:name "out") (:reactive nil))) - (:id 1)) + (:id 3)) (:box (:type :special) (:reference collect) @@ -2016,7 +1927,7 @@ Outputs: (:output (:name "collect") (:reactive nil)) (:output (:name "data-out") (:reactive nil)) (:output (:name "init") (:reactive nil))) - (:id 2)) + (:id 4)) (:box (:type :special) (:reference iterate) @@ -2042,7 +1953,7 @@ Outputs: (:value nil) (:reactive nil))) (:outputs) - (:id 3)) + (:id 5)) (:box (:type :value) (:reference fixnum) @@ -2064,7 +1975,7 @@ Outputs: (:inputs) (:outputs (:output (:name "value") (:reactive nil))) (:value 0) - (:id 4)) + (:id 6)) (:box (:type :value) (:reference fixnum) @@ -2086,7 +1997,7 @@ Outputs: (:inputs) (:outputs (:output (:name "value") (:reactive nil))) (:value 10) - (:id 5)) + (:id 7)) (:box (:type :special) (:reference loop-for) @@ -2117,7 +2028,7 @@ Outputs: (:value 10) (:reactive nil))) (:outputs (:output (:name "i") (:reactive nil))) - (:id 6)) + (:id 8)) (:box (:type :special) (:reference loop-list) @@ -2143,29 +2054,7 @@ Outputs: (:value nil) (:reactive nil))) (:outputs (:output (:name "i") (:reactive nil))) - (:id 7)) - (:box - (:type :io) - (:reference - (:in (:type omin) (:index 1) (:name "input") (:doc ""))) - (:group-id nil) - (:name "input") - (:x 98) - (:y 40) - (:w 50) - (:h 42) - (:color - (:color-or-nil - (:color (:color 1.0 1.0 1.0 0.0)) - (:t-or-nil t))) - (:border 0) - (:roundness 0) - (:text-font nil) - (:align :center) - (:icon :top) - (:inputs) - (:outputs (:output (:name "out") (:reactive nil))) - (:id 8)) + (:id 9)) (:box (:type :special) (:reference iterate) @@ -2191,7 +2080,7 @@ Outputs: (:value nil) (:reactive nil))) (:outputs) - (:id 9)) + (:id 10)) (:box (:type :special) (:reference loop-list) @@ -2217,7 +2106,7 @@ Outputs: (:value nil) (:reactive nil))) (:outputs (:output (:name "i") (:reactive nil))) - (:id 10)) + (:id 11)) (:box (:type :special) (:reference collect) @@ -2256,33 +2145,6 @@ Outputs: (:output (:name "collect") (:reactive nil)) (:output (:name "data-out") (:reactive nil)) (:output (:name "init") (:reactive nil))) - (:id 11)) - (:box - (:type :io) - (:reference - (:out (:type omout) (:name "out") (:index 1) (:doc ""))) - (:group-id nil) - (:name "out") - (:x 326) - (:y 480) - (:w 40) - (:h 42) - (:color - (:color-or-nil - (:color (:color 1.0 1.0 1.0 0.0)) - (:t-or-nil t))) - (:border 0) - (:roundness 0) - (:text-font nil) - (:align :center) - (:icon :top) - (:inputs - (:input - (:type :standard) - (:name "out-value") - (:value nil) - (:reactive nil))) - (:outputs) (:id 12)) (:box (:type :function) @@ -2298,6 +2160,7 @@ Outputs: (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -2328,58 +2191,19 @@ Outputs: "A same Loop can contain several nested or independent ITERATE.") (:id 14))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 1 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 1 :out 0)) - (:to (:box 2 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 3 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 1)) - (:to (:box 10 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 6 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 6 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 13 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 8 :out 0)) - (:to (:box 7 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 10 :out 0)) - (:to (:box 13 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 11 :out 0)) - (:to (:box 9 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 11 :out 1)) - (:to (:box 12 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 13 :out 0)) - (:to (:box 11 :in 0)) - (:attributes (:color nil :style nil :modif nil)))))) + (:connection (:from (:box 0 :out 0)) (:to (:box 9 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 3 :in 1))) + (:connection (:from (:box 3 :out 0)) (:to (:box 4 :in 0))) + (:connection (:from (:box 4 :out 0)) (:to (:box 5 :in 0))) + (:connection (:from (:box 4 :out 1)) (:to (:box 11 :in 0))) + (:connection (:from (:box 6 :out 0)) (:to (:box 8 :in 0))) + (:connection (:from (:box 7 :out 0)) (:to (:box 8 :in 1))) + (:connection (:from (:box 8 :out 0)) (:to (:box 13 :in 0))) + (:connection (:from (:box 9 :out 0)) (:to (:box 3 :in 0))) + (:connection (:from (:box 11 :out 0)) (:to (:box 13 :in 1))) + (:connection (:from (:box 12 :out 0)) (:to (:box 10 :in 0))) + (:connection (:from (:box 12 :out 1)) (:to (:box 1 :in 0))) + (:connection (:from (:box 13 :out 0)) (:to (:box 12 :in 0)))))) (:group-id nil) (:name "omloop-multiple") (:x 293) @@ -2392,7 +2216,6 @@ Outputs: (:text-font nil) (:align :center) (:display :mini-view) - (:group-id nil) (:lock nil) (:lambda nil) (:pre-delay 0) @@ -2408,14 +2231,143 @@ Outputs: (:type :abstraction) (:reference (:patch - (:om-version 0.03) (:name "omloop-context") (:doc "") - (:info (:created nil) (:modified nil)) + (:info (:created nil) (:modified nil) (:by nil) (:version nil)) (:window (:size (817 525)) (:position (169 161))) (:grid nil) (:lock nil) (:boxes + (:box + (:type :io) + (:reference + (:in (:type omin) (:index 1) (:name "input") (:doc ""))) + (:group-id nil) + (:name "input") + (:x 389) + (:y 78) + (:w 50) + (:h 42) + (:color + (:color-or-nil + (:color (:color 1.0 1.0 1.0 0.0)) + (:t-or-nil t))) + (:border 0) + (:roundness 0) + (:text-font nil) + (:align :center) + (:icon :top) + (:inputs) + (:outputs (:output (:name "out") (:reactive nil))) + (:id 0)) + (:box + (:type :io) + (:reference + (:out (:type omout) (:name "output 1") (:index 1) (:doc ""))) + (:group-id nil) + (:name "output 1") + (:x 166) + (:y 344) + (:w 68) + (:h 42) + (:color + (:color-or-nil + (:color (:color 1.0 1.0 1.0 0.0)) + (:t-or-nil t))) + (:border 0) + (:roundness 0) + (:text-font nil) + (:align :center) + (:icon :top) + (:inputs + (:input + (:type :standard) + (:name "out-value") + (:value nil) + (:reactive nil))) + (:outputs) + (:id 1)) + (:box + (:type :io) + (:reference + (:out (:type omout) (:name "output 1") (:index 1) (:doc ""))) + (:group-id nil) + (:name "output 1") + (:x 230) + (:y 259) + (:w 68) + (:h 42) + (:color + (:color-or-nil + (:color (:color 1.0 1.0 1.0 0.0)) + (:t-or-nil t))) + (:border 0) + (:roundness 0) + (:text-font nil) + (:align :center) + (:icon :top) + (:inputs + (:input + (:type :standard) + (:name "out-value") + (:value nil) + (:reactive nil))) + (:outputs) + (:id 2)) + (:box + (:type :io) + (:reference + (:out (:type omout) (:name "output 1") (:index 1) (:doc ""))) + (:group-id nil) + (:name "output 1") + (:x 555) + (:y 408) + (:w 68) + (:h 42) + (:color + (:color-or-nil + (:color (:color 1.0 1.0 1.0 0.0)) + (:t-or-nil t))) + (:border 0) + (:roundness 0) + (:text-font nil) + (:align :center) + (:icon :top) + (:inputs + (:input + (:type :standard) + (:name "out-value") + (:value nil) + (:reactive nil))) + (:outputs) + (:id 3)) + (:box + (:type :io) + (:reference + (:out (:type omout) (:name "output 1") (:index 1) (:doc ""))) + (:group-id nil) + (:name "output 1") + (:x 679) + (:y 299) + (:w 68) + (:h 42) + (:color + (:color-or-nil + (:color (:color 1.0 1.0 1.0 0.0)) + (:t-or-nil t))) + (:border 0) + (:roundness 0) + (:text-font nil) + (:align :center) + (:icon :top) + (:inputs + (:input + (:type :standard) + (:name "out-value") + (:value nil) + (:reactive nil))) + (:outputs) + (:id 4)) (:box (:type :value) (:reference fixnum) @@ -2437,7 +2389,7 @@ Outputs: (:inputs) (:outputs (:output (:name "value") (:reactive nil))) (:value 1) - (:id 0)) + (:id 5)) (:box (:type :function) (:reference om+) @@ -2452,6 +2404,7 @@ Outputs: (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -2466,7 +2419,7 @@ Outputs: (:value 0) (:reactive nil))) (:outputs (:output (:name "out") (:reactive nil))) - (:id 1)) + (:id 6)) (:box (:type :special) (:reference collect) @@ -2505,7 +2458,7 @@ Outputs: (:output (:name "collect") (:reactive nil)) (:output (:name "data-out") (:reactive nil)) (:output (:name "init") (:reactive nil))) - (:id 2)) + (:id 7)) (:box (:type :special) (:reference iterate) @@ -2531,7 +2484,7 @@ Outputs: (:value nil) (:reactive nil))) (:outputs) - (:id 3)) + (:id 8)) (:comment (:x 294) (:y 265) @@ -2544,7 +2497,7 @@ Outputs: (:text-font nil) (:align nil) (:text "=> NOT GOOD") - (:id 4)) + (:id 9)) (:comment (:x 74) (:y 72) @@ -2558,7 +2511,7 @@ Outputs: (:align nil) (:text "Iterators are local variables and should not be accessed outside the iteration (ITERATE)") - (:id 5)) + (:id 10)) (:box (:type :special) (:reference loop-list) @@ -2584,83 +2537,7 @@ Outputs: (:value nil) (:reactive nil))) (:outputs (:output (:name "i") (:reactive nil))) - (:id 6)) - (:box - (:type :io) - (:reference - (:in (:type omin) (:index 1) (:name "input") (:doc ""))) - (:group-id nil) - (:name "input") - (:x 389) - (:y 78) - (:w 50) - (:h 42) - (:color - (:color-or-nil - (:color (:color 1.0 1.0 1.0 0.0)) - (:t-or-nil t))) - (:border 0) - (:roundness 0) - (:text-font nil) - (:align :center) - (:icon :top) - (:inputs) - (:outputs (:output (:name "out") (:reactive nil))) - (:id 7)) - (:box - (:type :io) - (:reference - (:out (:type omout) (:name "output 1") (:index 1) (:doc ""))) - (:group-id nil) - (:name "output 1") - (:x 166) - (:y 344) - (:w 68) - (:h 42) - (:color - (:color-or-nil - (:color (:color 1.0 1.0 1.0 0.0)) - (:t-or-nil t))) - (:border 0) - (:roundness 0) - (:text-font nil) - (:align :center) - (:icon :top) - (:inputs - (:input - (:type :standard) - (:name "out-value") - (:value nil) - (:reactive nil))) - (:outputs) - (:id 8)) - (:box - (:type :io) - (:reference - (:out (:type omout) (:name "output 1") (:index 1) (:doc ""))) - (:group-id nil) - (:name "output 1") - (:x 230) - (:y 259) - (:w 68) - (:h 42) - (:color - (:color-or-nil - (:color (:color 1.0 1.0 1.0 0.0)) - (:t-or-nil t))) - (:border 0) - (:roundness 0) - (:text-font nil) - (:align :center) - (:icon :top) - (:inputs - (:input - (:type :standard) - (:name "out-value") - (:value nil) - (:reactive nil))) - (:outputs) - (:id 9)) + (:id 11)) (:comment (:x 499) (:y 89) @@ -2674,7 +2551,7 @@ Outputs: (:align nil) (:text "The MEM box can be used to export a value out of the iteration context:") - (:id 10)) + (:id 12)) (:box (:type :value) (:reference fixnum) @@ -2696,7 +2573,7 @@ Outputs: (:inputs) (:outputs (:output (:name "value") (:reactive nil))) (:value 1) - (:id 11)) + (:id 13)) (:box (:type :function) (:reference om+) @@ -2711,6 +2588,7 @@ Outputs: (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -2725,7 +2603,7 @@ Outputs: (:value 0) (:reactive nil))) (:outputs (:output (:name "out") (:reactive nil))) - (:id 12)) + (:id 14)) (:box (:type :special) (:reference collect) @@ -2764,7 +2642,7 @@ Outputs: (:output (:name "collect") (:reactive nil)) (:output (:name "data-out") (:reactive nil)) (:output (:name "init") (:reactive nil))) - (:id 13)) + (:id 15)) (:box (:type :special) (:reference iterate) @@ -2795,7 +2673,7 @@ Outputs: (:value nil) (:reactive nil))) (:outputs) - (:id 14)) + (:id 16)) (:comment (:x 715) (:y 255) @@ -2808,7 +2686,7 @@ Outputs: (:text-font nil) (:align nil) (:text "=> OK") - (:id 15)) + (:id 17)) (:box (:type :special) (:reference loop-list) @@ -2834,60 +2712,6 @@ Outputs: (:value nil) (:reactive nil))) (:outputs (:output (:name "i") (:reactive nil))) - (:id 16)) - (:box - (:type :io) - (:reference - (:out (:type omout) (:name "output 1") (:index 1) (:doc ""))) - (:group-id nil) - (:name "output 1") - (:x 555) - (:y 408) - (:w 68) - (:h 42) - (:color - (:color-or-nil - (:color (:color 1.0 1.0 1.0 0.0)) - (:t-or-nil t))) - (:border 0) - (:roundness 0) - (:text-font nil) - (:align :center) - (:icon :top) - (:inputs - (:input - (:type :standard) - (:name "out-value") - (:value nil) - (:reactive nil))) - (:outputs) - (:id 17)) - (:box - (:type :io) - (:reference - (:out (:type omout) (:name "output 1") (:index 1) (:doc ""))) - (:group-id nil) - (:name "output 1") - (:x 679) - (:y 299) - (:w 68) - (:h 42) - (:color - (:color-or-nil - (:color (:color 1.0 1.0 1.0 0.0)) - (:t-or-nil t))) - (:border 0) - (:roundness 0) - (:text-font nil) - (:align :center) - (:icon :top) - (:inputs - (:input - (:type :standard) - (:name "out-value") - (:value nil) - (:reactive nil))) - (:outputs) (:id 18)) (:box (:type :special) @@ -2950,74 +2774,23 @@ Outputs: (:value nil) (:id 20))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 1 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 1 :out 0)) - (:to (:box 2 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 3 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 1)) - (:to (:box 8 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 20 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 6 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 16 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 11 :out 0)) - (:to (:box 12 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 12 :out 0)) - (:to (:box 13 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 13 :out 0)) - (:to (:box 14 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 13 :out 1)) - (:to (:box 17 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 16 :out 0)) - (:to (:box 12 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 16 :out 0)) - (:to (:box 19 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 19 :out 0)) - (:to (:box 14 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 19 :out 1)) - (:to (:box 18 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 20 :out 0)) - (:to (:box 9 :in 0)) - (:attributes (:color nil :style nil :modif nil)))))) + (:connection (:from (:box 0 :out 0)) (:to (:box 11 :in 0))) + (:connection (:from (:box 0 :out 0)) (:to (:box 18 :in 0))) + (:connection (:from (:box 5 :out 0)) (:to (:box 6 :in 1))) + (:connection (:from (:box 6 :out 0)) (:to (:box 7 :in 0))) + (:connection (:from (:box 7 :out 0)) (:to (:box 8 :in 0))) + (:connection (:from (:box 7 :out 1)) (:to (:box 1 :in 0))) + (:connection (:from (:box 11 :out 0)) (:to (:box 6 :in 0))) + (:connection (:from (:box 11 :out 0)) (:to (:box 20 :in 0))) + (:connection (:from (:box 13 :out 0)) (:to (:box 14 :in 1))) + (:connection (:from (:box 14 :out 0)) (:to (:box 15 :in 0))) + (:connection (:from (:box 15 :out 0)) (:to (:box 16 :in 0))) + (:connection (:from (:box 15 :out 1)) (:to (:box 3 :in 0))) + (:connection (:from (:box 18 :out 0)) (:to (:box 14 :in 0))) + (:connection (:from (:box 18 :out 0)) (:to (:box 19 :in 0))) + (:connection (:from (:box 19 :out 0)) (:to (:box 16 :in 1))) + (:connection (:from (:box 19 :out 1)) (:to (:box 4 :in 0))) + (:connection (:from (:box 20 :out 0)) (:to (:box 2 :in 0)))))) (:group-id nil) (:name "omloop-context") (:x 753) @@ -3030,7 +2803,6 @@ Outputs: (:text-font nil) (:align :center) (:display :mini-view) - (:group-id nil) (:lock nil) (:lambda nil) (:pre-delay 0) @@ -3047,27 +2819,9 @@ Outputs: (:output (:name "output 1") (:reactive nil))) (:id 8))) (:connections - (:connection - (:from (:box 2 :out 0)) - (:to (:box 0 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 4 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 3 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 7 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 8 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 2 :out 0)) (:to (:box 0 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 4 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 3 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 7 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 8 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 1 :in 0))))) \ No newline at end of file diff --git a/om/help-patches/Core features/mem.opat b/om/help-patches/Core features/mem.opat index 2b7e0721e..8815caab0 100644 --- a/om/help-patches/Core features/mem.opat +++ b/om/help-patches/Core features/mem.opat @@ -1,18 +1,19 @@ (:patch - (:om-version 2.1E-5) (:name "mem") (:doc "") (:info (:created "2018/04/04 15:15:06") - (:modified "2019/09/05 16:33:06")) + (:modified "2020/01/02 8:45:59") + (:by "om-sharp") + (:version 1.0)) (:window (:size (923 706)) (:position (697 84))) (:grid nil) (:lock t) (:boxes (:box - (:reference om-random) (:type :function) + (:reference om-random) (:group-id nil) (:name "om-random") (:x 62) @@ -24,6 +25,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -36,8 +38,8 @@ (:outputs (:output (:name "out") (:reactive nil))) (:id 0)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 99) @@ -61,8 +63,8 @@ (:value 51) (:id 1)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 134) @@ -86,8 +88,8 @@ (:value 95) (:id 2)) (:box - (:reference list) (:type :function) + (:reference list) (:group-id nil) (:name "list") (:x 81) @@ -99,6 +101,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -111,8 +114,8 @@ (:outputs (:output (:name "out") (:reactive nil))) (:id 3)) (:box - (:reference om-random) (:type :function) + (:reference om-random) (:group-id nil) (:name "om-random") (:x 38) @@ -124,6 +127,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -136,8 +140,8 @@ (:outputs (:output (:name "out") (:reactive t))) (:id 4)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 123) @@ -156,8 +160,8 @@ (:value 4) (:id 5)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 56) @@ -177,8 +181,8 @@ (:value 89) (:id 6)) (:box - (:reference cons) (:type :value) + (:reference cons) (:group-id nil) (:name "value box") (:x 107) @@ -215,8 +219,8 @@ "MEM: a box with \"memory\" which keeps track of results from previous evaluations") (:id 8)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 99) @@ -255,8 +259,8 @@ Right outlet = previous value") (:id 10)) (:box - (:reference om-random) (:type :function) + (:reference om-random) (:group-id nil) (:name "om-random") (:x 289) @@ -268,6 +272,7 @@ Right outlet = previous value") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -280,8 +285,8 @@ Right outlet = previous value") (:outputs (:output (:name "out") (:reactive nil))) (:id 11)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 326) @@ -305,8 +310,8 @@ Right outlet = previous value") (:value 6) (:id 12)) (:box - (:reference cons) (:type :value) + (:reference cons) (:group-id nil) (:name "value box") (:x 361) @@ -330,8 +335,8 @@ Right outlet = previous value") (:value (:list 14 61 87)) (:id 13)) (:box - (:reference list) (:type :function) + (:reference list) (:group-id nil) (:name "list") (:x 308) @@ -343,6 +348,7 @@ Right outlet = previous value") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -355,8 +361,8 @@ Right outlet = previous value") (:outputs (:output (:name "out") (:reactive nil))) (:id 14)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 326) @@ -409,8 +415,8 @@ Right outlet = list of N previous values") "Right inlet = size of the memory. If non-NIL, the memory will be list of previous values.") (:id 17)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 379) @@ -429,8 +435,8 @@ Right outlet = list of N previous values") (:value 3) (:id 18)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 75) @@ -464,8 +470,8 @@ Right outlet = list of N previous values") "... also works in reactive mode: evaluate the 'om-random' box") (:id 20)) (:box - (:reference mem) (:type :special) + (:reference mem) (:group-id nil) (:name "mem") (:x 95) @@ -495,8 +501,8 @@ Right outlet = list of N previous values") (:output (:name "previous value(s)") (:reactive nil))) (:id 21)) (:box - (:reference mem) (:type :special) + (:reference mem) (:group-id nil) (:name "mem") (:x 328) @@ -526,8 +532,8 @@ Right outlet = list of N previous values") (:output (:name "previous value(s)") (:reactive nil))) (:id 22)) (:box - (:reference mem) (:type :special) + (:reference mem) (:group-id nil) (:name "mem") (:x 83) @@ -557,8 +563,8 @@ Right outlet = list of N previous values") (:output (:name "previous value(s)") (:reactive t))) (:id 23)) (:box - (:reference slider) (:type :interface) + (:reference slider) (:group-id nil) (:name "slider") (:x 5011/12) @@ -571,14 +577,15 @@ Right outlet = list of N previous values") (:min-value 0) (:max-value 100) (:increment 1) + (:decimals 0) (:orientation :vertical) (:inputs) (:outputs (:output (:name "value") (:reactive t))) (:value 56) (:id 24)) (:box - (:reference cons) (:type :value) + (:reference cons) (:group-id nil) (:name "value box") (:x 415) @@ -629,8 +636,8 @@ Right outlet = list of N previous values") 80)) (:id 25)) (:box - (:reference mem) (:type :special) + (:reference mem) (:group-id nil) (:name "mem") (:x 441) @@ -660,8 +667,8 @@ Right outlet = list of N previous values") (:output (:name "previous value(s)") (:reactive t))) (:id 26)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 468) @@ -680,8 +687,8 @@ Right outlet = list of N previous values") (:value 30) (:id 27)) (:box - (:reference bpf) (:type :object) + (:reference bpf) (:group-id nil) (:name nil) (:x 3607/12) @@ -693,11 +700,9 @@ Right outlet = list of N previous values") (:roundness nil) (:text-font (:font (:face "Verdana") (:size 10) (:style :italic))) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -796,12 +801,7 @@ Right outlet = list of N previous values") 85.0 81.0 80.0)))) - (:add-slots - ((:decimals 2) - (:color (:color 0.0 0.0 0.0 1.0)) - (:name nil) - (:action nil) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))))))) + (:add-slots ((:name "BPF"))))) (:id 28)) (:comment (:x 692) @@ -818,8 +818,8 @@ Right outlet = list of N previous values") "if size is a float, then it represents a TIME WINDOW (in seconds)") (:id 29)) (:box - (:reference cons) (:type :value) + (:reference cons) (:group-id nil) (:name "value box") (:x 705) @@ -839,8 +839,8 @@ Right outlet = list of N previous values") (:value (:list 56 55 54 52 49 46 45 40 39 44 45 47 48 51 53 57)) (:id 30)) (:box - (:reference mem) (:type :special) + (:reference mem) (:group-id nil) (:name "mem") (:x 744) @@ -870,8 +870,8 @@ Right outlet = list of N previous values") (:output (:name "previous value(s)") (:reactive t))) (:id 31)) (:box - (:reference single-float) (:type :value) + (:reference single-float) (:group-id nil) (:name "value box") (:x 762) @@ -890,8 +890,8 @@ Right outlet = list of N previous values") (:value 1.0) (:id 32)) (:box - (:reference bpf) (:type :object) + (:reference bpf) (:group-id nil) (:name nil) (:x 7087/12) @@ -903,11 +903,9 @@ Right outlet = list of N previous values") (:roundness nil) (:text-font (:font (:face "Verdana") (:size 10) (:style :italic))) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -978,12 +976,7 @@ Right outlet = list of N previous values") 51.0 53.0 57.0)))) - (:add-slots - ((:decimals 2) - (:color (:color 0.0 0.0 0.0 1.0)) - (:name nil) - (:action nil) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))))))) + (:add-slots ((:name "BPF"))))) (:id 33)) (:comment (:x 604) @@ -1000,8 +993,8 @@ Right outlet = list of N previous values") "See also: COLLECT -- a variant of MEM allowing to conrol the memory initialization and state.") (:id 34)) (:box - (:reference list) (:type :function) + (:reference list) (:group-id nil) (:name "list") (:x 84) @@ -1013,6 +1006,7 @@ Right outlet = list of N previous values") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1025,118 +1019,43 @@ Right outlet = list of N previous values") (:outputs (:output (:name "out") (:reactive nil))) (:id 35))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 9 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 1 :out 0)) - (:to (:box 3 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 3 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 19 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 23 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 35 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 35 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 9 :out 0)) - (:to (:box 21 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 11 :out 0)) - (:to (:box 15 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 12 :out 0)) - (:to (:box 14 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 13 :out 0)) - (:to (:box 14 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 15 :out 0)) - (:to (:box 22 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 18 :out 0)) - (:to (:box 22 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 19 :out 0)) - (:to (:box 23 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 21 :out 0)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 21 :out 1)) - (:to (:box 2 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 22 :out 0)) - (:to (:box 12 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 22 :out 1)) - (:to (:box 13 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 23 :out 0)) - (:to (:box 6 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 23 :out 1)) - (:to (:box 7 :in 0)) - (:attributes (:color nil :style nil :modif nil))) + (:connection (:from (:box 0 :out 0)) (:to (:box 9 :in 0))) + (:connection (:from (:box 1 :out 0)) (:to (:box 3 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 3 :in 1))) + (:connection (:from (:box 4 :out 0)) (:to (:box 19 :in 0))) + (:connection (:from (:box 5 :out 0)) (:to (:box 23 :in 1))) + (:connection (:from (:box 6 :out 0)) (:to (:box 35 :in 0))) + (:connection (:from (:box 7 :out 0)) (:to (:box 35 :in 1))) + (:connection (:from (:box 9 :out 0)) (:to (:box 21 :in 0))) + (:connection (:from (:box 11 :out 0)) (:to (:box 15 :in 0))) + (:connection (:from (:box 12 :out 0)) (:to (:box 14 :in 0))) + (:connection (:from (:box 13 :out 0)) (:to (:box 14 :in 1))) + (:connection (:from (:box 15 :out 0)) (:to (:box 22 :in 0))) + (:connection (:from (:box 18 :out 0)) (:to (:box 22 :in 1))) + (:connection (:from (:box 19 :out 0)) (:to (:box 23 :in 0))) + (:connection (:from (:box 21 :out 0)) (:to (:box 1 :in 0))) + (:connection (:from (:box 21 :out 1)) (:to (:box 2 :in 0))) + (:connection (:from (:box 22 :out 0)) (:to (:box 12 :in 0))) + (:connection (:from (:box 22 :out 1)) (:to (:box 13 :in 0))) + (:connection (:from (:box 23 :out 0)) (:to (:box 6 :in 0))) + (:connection (:from (:box 23 :out 1)) (:to (:box 7 :in 0))) (:connection (:from (:box 24 :out 0)) (:to (:box 26 :in 0)) (:attributes (:color (:color 0.2 0.4 0.5 1.0) :style nil :modif nil))) - (:connection - (:from (:box 24 :out 0)) - (:to (:box 31 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 25 :out 0)) - (:to (:box 28 :in 2)) - (:attributes (:color nil :style nil :modif nil))) + (:connection (:from (:box 24 :out 0)) (:to (:box 31 :in 0))) + (:connection (:from (:box 25 :out 0)) (:to (:box 28 :in 2))) (:connection (:from (:box 26 :out 1)) (:to (:box 25 :in 0)) (:attributes (:color (:color 0.2 0.4 0.5 1.0) :style nil :modif nil))) - (:connection - (:from (:box 27 :out 0)) - (:to (:box 26 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 30 :out 0)) - (:to (:box 33 :in 2)) - (:attributes (:color nil :style nil :modif nil))) + (:connection (:from (:box 27 :out 0)) (:to (:box 26 :in 1))) + (:connection (:from (:box 30 :out 0)) (:to (:box 33 :in 2))) (:connection (:from (:box 31 :out 1)) (:to (:box 30 :in 0)) (:attributes (:color (:color 0.2 0.4 0.5 1.0) :style nil :modif nil))) - (:connection - (:from (:box 32 :out 0)) - (:to (:box 31 :in 1)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 32 :out 0)) (:to (:box 31 :in 1))))) \ No newline at end of file diff --git a/om/help-patches/Core features/reactive.opat b/om/help-patches/Core features/reactive.opat index 84fa08f49..c324a25f0 100644 --- a/om/help-patches/Core features/reactive.opat +++ b/om/help-patches/Core features/reactive.opat @@ -1,11 +1,12 @@ (:patch - (:om-version 7.0) (:name "reactive") (:doc "") (:info (:created "2017/03/05 16:40:15") - (:modified "2019/10/16 12:15:53")) + (:modified "2020/01/02 8:45:59") + (:by "om-sharp") + (:version 1.0)) (:window (:size (1045 693)) (:position (514 143))) (:grid nil) (:lock nil) @@ -185,7 +186,7 @@ 2296)) (:onset 0) (:duration 2296) - (:interpol nil) + (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) (:action nil) (:color nil) (:decimals 2) @@ -564,7 +565,7 @@ 1428)) (:onset 0) (:duration 1428) - (:interpol nil) + (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) (:action nil) (:color nil) (:decimals 2) @@ -10432,6 +10433,7 @@ Notes: ((:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) + (:extras nil) (:midic 6400) (:vel 80) (:dur 1000) @@ -10526,6 +10528,7 @@ Notes: ((:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) + (:extras nil) (:midic 8600) (:vel 80) (:dur 1000) @@ -10593,9 +10596,11 @@ Notes: ((:onset 0) (:duration 7600) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "CHORD-SEQ") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) + (:extras nil) (:lmidic (:list (:list 6400) @@ -10647,131 +10652,11 @@ Notes: 6300 6600 7600)) - (:ldur - (:list - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000))) - (:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport - (:list - (:list nil) - (:list nil) - (:list nil) - (:list nil) - (:list nil) - (:list nil) - (:list nil) - (:list nil) - (:list nil) - (:list nil) - (:list nil) - (:list nil) - (:list nil) - (:list nil) - (:list nil) - (:list nil) - (:list nil) - (:list nil) - (:list nil) - (:list nil) - (:list nil) - (:list nil) - (:list nil))) + (:ldur (:list 1000)) + (:lvel (:list 100)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) (:llegato nil))))) (:id 14)) (:box @@ -10820,19 +10705,7 @@ Notes: (:to (:box 2 :in 2)) (:attributes (:color (:color 0.3 0.3 0.3 1.0) :style :line :modif nil))) - (:connection - (:from (:box 11 :out 1)) - (:to (:box 12 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 12 :out 0)) - (:to (:box 14 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 13 :out 1)) - (:to (:box 12 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 15 :out 0)) - (:to (:box 12 :in 2)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 11 :out 1)) (:to (:box 12 :in 0))) + (:connection (:from (:box 12 :out 0)) (:to (:box 14 :in 1))) + (:connection (:from (:box 13 :out 1)) (:to (:box 12 :in 1))) + (:connection (:from (:box 15 :out 0)) (:to (:box 12 :in 2))))) \ No newline at end of file diff --git a/om/help-patches/Core features/repeat-n.opat b/om/help-patches/Core features/repeat-n.opat index 5f8d7aaf1..111e47604 100644 --- a/om/help-patches/Core features/repeat-n.opat +++ b/om/help-patches/Core features/repeat-n.opat @@ -1,18 +1,19 @@ (:patch - (:om-version 2.1E-5) (:name "repeat-n") (:doc "") (:info (:created "2018/03/26 17:22:20") - (:modified "2019/08/14 7:42:36")) + (:modified "2020/01/02 8:45:59") + (:by "om-sharp") + (:version 1.0)) (:window (:size (1065 559)) (:position (304 376))) (:grid nil) (:lock nil) (:boxes (:box - (:reference (:out (:type omout) (:name "out") (:index 1) (:doc ""))) (:type :io) + (:reference (:out (:type omout) (:name "out") (:index 1) (:doc ""))) (:group-id nil) (:name "out") (:x 497) @@ -35,8 +36,8 @@ (:outputs) (:id 0)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 498) @@ -55,8 +56,8 @@ (:value 0) (:id 1)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 539) @@ -75,8 +76,8 @@ (:value 190) (:id 2)) (:box - (:reference list) (:type :function) + (:reference list) (:group-id nil) (:name "list") (:x 487) @@ -88,6 +89,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -101,8 +103,8 @@ (:outputs (:output (:name "out") (:reactive nil))) (:id 3)) (:box - (:reference om-random) (:type :function) + (:reference om-random) (:group-id nil) (:name "om-random") (:x 487) @@ -114,6 +116,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock :eval-once) (:lambda nil) (:inputs @@ -126,8 +129,8 @@ (:outputs (:output (:name "out") (:reactive nil))) (:id 4)) (:box - (:reference list) (:type :function) + (:reference list) (:group-id nil) (:name "list") (:x 566) @@ -139,6 +142,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -151,16 +155,8 @@ (:outputs (:output (:name "out") (:reactive nil))) (:id 5)) (:box - (:reference - (:object - (:class repeater) - (:slots - ((:name "repeat-n") - (:protected-p nil) - (:icon nil) - (:n-iter 3) - (:scope :local))))) (:type :special) + (:reference repeat-n) (:group-id nil) (:name "repeat-n") (:x 571) @@ -178,10 +174,10 @@ (:inputs (:input (:type :standard) - (:name "program to repeat") + (:name "self") (:value nil) (:reactive nil)) - (:input (:type :standard) (:name "n") (:value 0) (:reactive nil)) + (:input (:type :standard) (:name "num") (:value 0) (:reactive nil)) (:input (:type :optional) (:name "scope") @@ -190,8 +186,8 @@ (:outputs (:output (:name "collected results") (:reactive nil))) (:id 6)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 621) @@ -226,8 +222,8 @@ (:text "REPEAT-N : repeats evaluation N times / collect results") (:id 8)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 168) @@ -246,8 +242,8 @@ (:value 0) (:id 9)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 209) @@ -266,8 +262,8 @@ (:value 190) (:id 10)) (:box - (:reference om-random) (:type :function) + (:reference om-random) (:group-id nil) (:name "om-random") (:x 157) @@ -279,6 +275,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -291,8 +288,8 @@ (:outputs (:output (:name "out") (:reactive nil))) (:id 11)) (:box - (:reference list) (:type :function) + (:reference list) (:group-id nil) (:name "list") (:x 185) @@ -304,6 +301,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -316,16 +314,8 @@ (:outputs (:output (:name "out") (:reactive nil))) (:id 12)) (:box - (:reference - (:object - (:class repeater) - (:slots - ((:name "repeat-n") - (:protected-p nil) - (:icon nil) - (:n-iter 3) - (:scope :local))))) (:type :special) + (:reference repeat-n) (:group-id nil) (:name "repeat-n") (:x 184) @@ -343,15 +333,19 @@ (:inputs (:input (:type :standard) - (:name "program to repeat") + (:name "self") (:value nil) (:reactive nil)) - (:input (:type :standard) (:name "n") (:value 0) (:reactive nil))) + (:input + (:type :standard) + (:name "num") + (:value 0) + (:reactive nil))) (:outputs (:output (:name "collected results") (:reactive nil))) (:id 13)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 240) @@ -403,8 +397,8 @@ Note: see also the \"Auto eval-once\" option in Preferences.") (:text "<= switch :local / :global here") (:id 16)) (:box - (:reference cons) (:type :value) + (:reference cons) (:group-id nil) (:name "value box") (:x 152) @@ -438,10 +432,7 @@ Note: see also the \"Auto eval-once\" option in Preferences.") (:to (:box 4 :in 1)) (:attributes (:color (:color 0.2 0.4 0.5 1.0) :style nil :modif nil))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 0 :in 0)) - (:attributes (:color nil :style nil :modif nil))) + (:connection (:from (:box 3 :out 0)) (:to (:box 0 :in 0))) (:connection (:from (:box 4 :out 0)) (:to (:box 3 :in 0)) @@ -452,27 +443,15 @@ Note: see also the \"Auto eval-once\" option in Preferences.") (:to (:box 3 :in 2)) (:attributes (:color (:color 0.2 0.4 0.5 1.0) :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 5 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 5 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 6 :in 0)) - (:attributes (:color nil :style nil :modif nil))) + (:connection (:from (:box 4 :out 0)) (:to (:box 5 :in 0))) + (:connection (:from (:box 4 :out 0)) (:to (:box 5 :in 1))) + (:connection (:from (:box 5 :out 0)) (:to (:box 6 :in 0))) (:connection (:from (:box 6 :out 0)) (:to (:box 3 :in 1)) (:attributes (:color (:color 0.2 0.4 0.5 1.0) :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 6 :in 1)) - (:attributes (:color nil :style nil :modif nil))) + (:connection (:from (:box 7 :out 0)) (:to (:box 6 :in 1))) (:connection (:from (:box 9 :out 0)) (:to (:box 11 :in 0)) @@ -483,23 +462,8 @@ Note: see also the \"Auto eval-once\" option in Preferences.") (:to (:box 11 :in 1)) (:attributes (:color (:color 0.2 0.4 0.5 1.0) :style nil :modif nil))) - (:connection - (:from (:box 11 :out 0)) - (:to (:box 12 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 11 :out 0)) - (:to (:box 12 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 12 :out 0)) - (:to (:box 13 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 13 :out 0)) - (:to (:box 17 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 14 :out 0)) - (:to (:box 13 :in 1)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 11 :out 0)) (:to (:box 12 :in 0))) + (:connection (:from (:box 11 :out 0)) (:to (:box 12 :in 1))) + (:connection (:from (:box 12 :out 0)) (:to (:box 13 :in 0))) + (:connection (:from (:box 13 :out 0)) (:to (:box 17 :in 0))) + (:connection (:from (:box 14 :out 0)) (:to (:box 13 :in 1))))) \ No newline at end of file diff --git a/om/help-patches/MIDI/midi-controllers.opat b/om/help-patches/MIDI/midi-controllers.opat index 35293d151..97ee383cb 100644 --- a/om/help-patches/MIDI/midi-controllers.opat +++ b/om/help-patches/MIDI/midi-controllers.opat @@ -1,11 +1,12 @@ (:patch - (:om-version 0.04) (:name "midi-controllers") (:doc "") (:info (:created "2019/09/30 10:18:03") - (:modified "2019/09/30 14:46:19")) + (:modified "2020/01/02 8:46:27") + (:by "om-sharp") + (:version 1.0)) (:window (:size (977 624)) (:position (308 145))) (:grid nil) (:lock nil) @@ -14,10 +15,9 @@ (:type :abstraction) (:reference (:maquette - (:om-version 0.04) (:name "mymaquette") (:doc "") - (:info (:created nil) (:modified nil)) + (:info (:created nil) (:modified nil) (:by nil) (:version nil)) (:window (:size (800 500)) (:position (189 184))) (:grid nil) (:lock nil) @@ -36,11 +36,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id 1) (:lock :locked) (:lambda nil) (:inputs @@ -179,13 +177,7 @@ 124 126 127)))) - (:add-slots - ((:decimals 0) - (:color (:color 0.0 0.0 0.0 1.0)) - (:name "BPF") - (:action :internal-lambda) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil))))))) + (:add-slots ((:name "BPF"))))) (:value (:object (:class bpf) @@ -300,13 +292,7 @@ 124 126 127)))) - (:add-slots - ((:decimals 0) - (:color (:color 0.0 0.0 0.0 1.0)) - (:name "BPF") - (:action :internal-lambda) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil))))))) + (:add-slots ((:name "BPF"))))) (:id 0)) (:box (:type :object) @@ -322,10 +308,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :text) (:showname nil) - (:group-id 2) (:lock :locked) (:lambda nil) (:inputs @@ -372,11 +356,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id 3) (:lock :locked) (:lambda nil) (:inputs @@ -420,22 +402,12 @@ ((:onset 0) (:duration 11000) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "CHORD-SEQ") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) - (:lmidic - (:list - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000))) + (:extras nil) + (:lmidic (:list 6000)) (:lonset (:list 0 @@ -450,88 +422,11 @@ 9000 10000 11000)) - (:ldur - (:list - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000))) - (:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil nil nil nil nil nil)) - (:llegato nil))) - (:add-slots - ((:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil nil nil nil nil nil)) + (:ldur (:list 1000)) + (:lvel (:list 100)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) (:llegato nil))))) (:value (:object @@ -540,22 +435,12 @@ ((:onset 0) (:duration 11000) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "CHORD-SEQ") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) - (:lmidic - (:list - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000))) + (:extras nil) + (:lmidic (:list 6000)) (:lonset (:list 0 @@ -570,98 +455,20 @@ 9000 10000 11000)) - (:ldur - (:list - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000))) - (:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil nil nil nil nil nil)) - (:llegato nil))) - (:add-slots - ((:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil nil nil nil nil nil)) + (:ldur (:list 1000)) + (:lvel (:list 100)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) (:llegato nil))))) (:id 2))) (:connections) (:range (:x1 0 :x2 11000 :y1 -10 :y2 110)) (:control-patch (:patch - (:om-version 0.04) (:name "Control Patch") (:doc "") - (:info (:created nil) (:modified nil)) + (:info (:created nil) (:modified nil) (:by nil) (:version nil)) (:window (:size nil) (:position nil)) (:grid nil) (:lock nil) @@ -737,14 +544,10 @@ Additional inputs/outputs are accesses on the maquette box. ") (:id 2))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 0 :out 0)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil)))))))) + (:connection (:from (:box 0 :out 0)) (:to (:box 1 :in 0))) + (:connection (:from (:box 0 :out 0)) (:to (:box 1 :in 0)))))) + (:loop-interval nil) + (:loop-on nil))) (:group-id nil) (:name "mymaquette") (:x 328) @@ -757,7 +560,6 @@ Additional inputs/outputs are accesses on the maquette box. (:text-font nil) (:align :center) (:display :mini-view) - (:group-id nil) (:lock nil) (:lambda nil) (:pre-delay 0) @@ -788,6 +590,7 @@ Additional inputs/outputs are accesses on the maquette box. (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -820,10 +623,8 @@ Additional inputs/outputs are accesses on the maquette box. (:roundness nil) (:text-font nil) (:align :center) - (:name "MIDI-MIX-CONSOLE") (:display :hidden) (:showname nil) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -877,6 +678,7 @@ settings") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -943,11 +745,9 @@ settings") (:roundness nil) (:text-font nil) (:align :center) - (:name "CHORD-SEQ") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -1006,22 +806,12 @@ settings") ((:onset 0) (:duration 11000) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "CHORD-SEQ") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) - (:lmidic - (:list - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000))) + (:extras nil) + (:lmidic (:list 6000)) (:lonset (:list 0 @@ -1036,88 +826,11 @@ settings") 9000 10000 11000)) - (:ldur - (:list - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000))) - (:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil nil nil nil nil nil)) - (:llegato nil))) - (:add-slots - ((:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil nil nil nil nil nil)) + (:ldur (:list 1000)) + (:lvel (:list 100)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) (:llegato nil))))) (:id 7)) (:comment @@ -1163,11 +876,9 @@ settings") (:roundness nil) (:text-font nil) (:align :center) - (:name 0) (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -1210,12 +921,7 @@ settings") (:decimals 0) (:x-points (:list 0 2000)) (:y-points (:list 0 100)))) - (:add-slots - ((:decimals 0) - (:color (:color 0.0 0.0 0.0 1.0)) - (:name 0) - (:action nil) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))))))) + (:add-slots ((:name "BPF"))))) (:id 10)) (:comment (:x 45) @@ -1238,10 +944,9 @@ settings") (:type :abstraction) (:reference (:patch - (:om-version 0.04) (:name "send-pitchbend") (:doc "") - (:info (:created nil) (:modified nil)) + (:info (:created nil) (:modified nil) (:by nil) (:version nil)) (:window (:size (237 282)) (:position (147 138))) (:grid nil) (:lock nil) @@ -1309,6 +1014,7 @@ settings") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1360,6 +1066,7 @@ settings") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1371,22 +1078,10 @@ settings") (:outputs (:output (:name "out") (:reactive nil))) (:id 4))) (:connections - (:connection - (:from (:box 1 :out 0)) - (:to (:box 4 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 0 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 2 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 2 :in 0)) - (:attributes (:color nil :style nil :modif nil)))))) + (:connection (:from (:box 1 :out 0)) (:to (:box 4 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 0 :in 0))) + (:connection (:from (:box 3 :out 0)) (:to (:box 2 :in 1))) + (:connection (:from (:box 4 :out 0)) (:to (:box 2 :in 0)))))) (:group-id nil) (:name "send-pitchbend") (:x 201) @@ -1399,7 +1094,6 @@ settings") (:text-font nil) (:align :center) (:display :hidden) - (:group-id nil) (:lock nil) (:lambda :lambda) (:pre-delay 0) @@ -1425,11 +1119,9 @@ settings") (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -1576,12 +1268,7 @@ settings") 124 126 127)))) - (:add-slots - ((:decimals 0) - (:color (:color 0.0 0.0 0.0 1.0)) - (:name nil) - (:action :internal-lambda) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))))))) + (:add-slots ((:name "BPF"))))) (:id 13)) (:comment (:x 519) @@ -1611,6 +1298,7 @@ settings") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1669,6 +1357,7 @@ settings") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1804,75 +1493,21 @@ settings") (:value 0) (:id 24))) (:connections - (:connection - (:from (:box 1 :out 1)) - (:to (:box 13 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 1 :out 2)) - (:to (:box 13 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 4 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 0 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 1 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 7 :in 6)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 4 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 10 :out 0)) - (:to (:box 18 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 12 :out 0)) - (:to (:box 13 :in 4)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 13 :out 0)) - (:to (:box 4 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 15 :out 0)) - (:to (:box 16 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 18 :out 0)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 19 :out 0)) - (:to (:box 18 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 20 :out 0)) - (:to (:box 18 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 21 :out 0)) - (:to (:box 10 :in 3)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 22 :out 0)) - (:to (:box 18 :in 3)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 23 :out 0)) - (:to (:box 18 :in 4)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 24 :out 0)) - (:to (:box 13 :in 3)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 1 :out 1)) (:to (:box 13 :in 1))) + (:connection (:from (:box 1 :out 2)) (:to (:box 13 :in 2))) + (:connection (:from (:box 2 :out 0)) (:to (:box 4 :in 1))) + (:connection (:from (:box 4 :out 0)) (:to (:box 0 :in 1))) + (:connection (:from (:box 5 :out 0)) (:to (:box 1 :in 1))) + (:connection (:from (:box 6 :out 0)) (:to (:box 7 :in 6))) + (:connection (:from (:box 7 :out 0)) (:to (:box 4 :in 2))) + (:connection (:from (:box 10 :out 0)) (:to (:box 18 :in 0))) + (:connection (:from (:box 12 :out 0)) (:to (:box 13 :in 4))) + (:connection (:from (:box 13 :out 0)) (:to (:box 4 :in 0))) + (:connection (:from (:box 15 :out 0)) (:to (:box 16 :in 0))) + (:connection (:from (:box 18 :out 0)) (:to (:box 1 :in 0))) + (:connection (:from (:box 19 :out 0)) (:to (:box 18 :in 1))) + (:connection (:from (:box 20 :out 0)) (:to (:box 18 :in 2))) + (:connection (:from (:box 21 :out 0)) (:to (:box 10 :in 3))) + (:connection (:from (:box 22 :out 0)) (:to (:box 18 :in 3))) + (:connection (:from (:box 23 :out 0)) (:to (:box 18 :in 4))) + (:connection (:from (:box 24 :out 0)) (:to (:box 13 :in 3))))) \ No newline at end of file diff --git a/om/help-patches/MIDI/midi-events.opat b/om/help-patches/MIDI/midi-events.opat index d28292a16..8aabd6809 100644 --- a/om/help-patches/MIDI/midi-events.opat +++ b/om/help-patches/MIDI/midi-events.opat @@ -1,12 +1,13 @@ (:patch - (:om-version 0.04) (:name "midi-events") (:doc "") (:info (:created "2019/09/28 15:18:28") - (:modified "2019/09/30 15:09:37")) - (:window (:size (1239 907)) (:position (579 132))) + (:modified "2020/01/02 8:46:27") + (:by "om-sharp") + (:version 1.0)) + (:window (:size (1239 907)) (:position (441 121))) (:grid nil) (:lock nil) (:boxes @@ -24,10 +25,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "MIDIEVENT 2") (:display :text) (:showname nil) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -93,10 +92,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "MIDIEVENT 2") (:display :text) (:showname nil) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -152,10 +149,9 @@ (:type :abstraction) (:reference (:maquette - (:om-version 0.04) (:name "maquette") (:doc "") - (:info (:created nil) (:modified nil)) + (:info (:created nil) (:modified nil) (:by nil) (:version nil)) (:window (:size (1175 586)) (:position (88 126))) (:grid nil) (:lock nil) @@ -174,11 +170,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id 1) (:lock :locked) (:lambda nil) (:inputs @@ -222,9 +216,11 @@ ((:onset 100) (:duration 10000) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "CHORD-SEQ") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) + (:extras nil) (:lmidic (:list (:list 6000) @@ -250,82 +246,11 @@ 8000 9000 10000)) - (:ldur - (:list - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000))) - (:lvel - (:list - (:list 90) - (:list 90) - (:list 90) - (:list 90) - (:list 90) - (:list 90) - (:list 90) - (:list 90) - (:list 90) - (:list 90))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil nil nil nil nil)) - (:llegato nil))) - (:add-slots - ((:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil nil nil nil nil)) + (:ldur (:list 1000)) + (:lvel (:list 90)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) (:llegato nil))))) (:value (:object @@ -334,9 +259,11 @@ ((:onset 100) (:duration 10000) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "CHORD-SEQ") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) + (:extras nil) (:lmidic (:list (:list 6000) @@ -362,82 +289,11 @@ 8000 9000 10000)) - (:ldur - (:list - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000))) - (:lvel - (:list - (:list 90) - (:list 90) - (:list 90) - (:list 90) - (:list 90) - (:list 90) - (:list 90) - (:list 90) - (:list 90) - (:list 90))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil nil nil nil nil)) - (:llegato nil))) - (:add-slots - ((:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil nil nil nil nil)) + (:ldur (:list 1000)) + (:lvel (:list 90)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) (:llegato nil))))) (:id 0)) (:box @@ -454,10 +310,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :text) (:showname nil) - (:group-id 2) (:lock :locked) (:lambda nil) (:inputs @@ -537,10 +391,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :text) (:showname nil) - (:group-id 3) (:lock :locked) (:lambda nil) (:inputs @@ -610,10 +462,9 @@ (:range (:x1 0 :x2 10100 :y1 -10 :y2 110)) (:control-patch (:patch - (:om-version 0.04) (:name "Control Patch") (:doc "") - (:info (:created nil) (:modified nil)) + (:info (:created nil) (:modified nil) (:by nil) (:version nil)) (:window (:size nil) (:position nil)) (:grid nil) (:lock nil) @@ -689,14 +540,10 @@ Additional inputs/outputs are accesses on the maquette box. ") (:id 2))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 0 :out 0)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil)))))))) + (:connection (:from (:box 0 :out 0)) (:to (:box 1 :in 0))) + (:connection (:from (:box 0 :out 0)) (:to (:box 1 :in 0)))))) + (:loop-interval nil) + (:loop-on nil))) (:group-id nil) (:name "maquette") (:x 459) @@ -709,7 +556,6 @@ Additional inputs/outputs are accesses on the maquette box. (:text-font nil) (:align :center) (:display :mini-view) - (:group-id nil) (:lock nil) (:lambda nil) (:pre-delay 0) @@ -740,6 +586,7 @@ Additional inputs/outputs are accesses on the maquette box. (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -764,6 +611,7 @@ Additional inputs/outputs are accesses on the maquette box. (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -788,6 +636,7 @@ Additional inputs/outputs are accesses on the maquette box. (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -809,7 +658,7 @@ Additional inputs/outputs are accesses on the maquette box. (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 13.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 13) (:style :plain))) (:t-or-nil t))) (:align nil) (:text @@ -849,6 +698,7 @@ Additional inputs/outputs are accesses on the maquette box. (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -875,11 +725,9 @@ Additional inputs/outputs are accesses on the maquette box. (:roundness nil) (:text-font nil) (:align :center) - (:name "CHORD-SEQ") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -937,9 +785,11 @@ Additional inputs/outputs are accesses on the maquette box. ((:onset 100) (:duration 10000) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "CHORD-SEQ") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) + (:extras nil) (:lmidic (:list (:list 6000) @@ -954,82 +804,11 @@ Additional inputs/outputs are accesses on the maquette box. (:list 7500))) (:lonset (:list 0 1000 2000 3000 4000 5000 6000 7000 8000 9000 10000)) - (:ldur - (:list - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000))) - (:lvel - (:list - (:list 90) - (:list 90) - (:list 90) - (:list 90) - (:list 90) - (:list 90) - (:list 90) - (:list 90) - (:list 90) - (:list 90))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil nil nil nil nil)) - (:llegato nil))) - (:add-slots - ((:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil nil nil nil nil)) + (:ldur (:list 1000)) + (:lvel (:list 90)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) (:llegato nil))))) (:id 9)) (:comment @@ -1043,7 +822,7 @@ Additional inputs/outputs are accesses on the maquette box. (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 13.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 13) (:style :plain))) (:t-or-nil t))) (:align nil) (:text @@ -1061,7 +840,7 @@ Change program of a channel while playing a maquette ") (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 13.0D0) (:style :bold))) + (:font (:font (:face "Calibri") (:size 13) (:style :bold))) (:t-or-nil t))) (:align nil) (:text "Construct a MidiEvent object :") @@ -1077,7 +856,7 @@ Change program of a channel while playing a maquette ") (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 13.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 13) (:style :plain))) (:t-or-nil t))) (:align nil) (:text "A Chord-seq and two program change events -->") @@ -1093,7 +872,7 @@ Change program of a channel while playing a maquette ") (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 13.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 13) (:style :plain))) (:t-or-nil t))) (:align nil) (:text @@ -1111,7 +890,7 @@ MidiEvent must be evaluated before sending.") (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 13.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 13) (:style :plain))) (:t-or-nil t))) (:align nil) (:text @@ -1141,7 +920,7 @@ MidiEvent must be evaluated before sending.") (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 13.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 13) (:style :plain))) (:t-or-nil t))) (:align nil) (:text @@ -1202,6 +981,7 @@ MidiEvent must be evaluated before sending.") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1233,7 +1013,7 @@ MidiEvent must be evaluated before sending.") (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 13.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 13) (:style :plain))) (:t-or-nil t))) (:align nil) (:text "Change PitchBend for a channel") @@ -1292,6 +1072,7 @@ MidiEvent must be evaluated before sending.") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1318,7 +1099,7 @@ MidiEvent must be evaluated before sending.") (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 13.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 13) (:style :plain))) (:t-or-nil t))) (:align nil) (:text "Change volume for a channel") @@ -1377,6 +1158,7 @@ MidiEvent must be evaluated before sending.") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1403,7 +1185,7 @@ MidiEvent must be evaluated before sending.") (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 13.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 13) (:style :plain))) (:t-or-nil t))) (:align nil) (:text "Change Midi program (instrument) for a channel") @@ -1442,6 +1224,7 @@ MidiEvent must be evaluated before sending.") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1468,7 +1251,7 @@ MidiEvent must be evaluated before sending.") (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 13.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 13) (:style :plain))) (:t-or-nil t))) (:align nil) (:text @@ -1485,7 +1268,7 @@ MidiEvent must be evaluated before sending.") (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 18.0D0) (:style :bold))) + (:font (:font (:face "Calibri") (:size 18) (:style :bold))) (:t-or-nil t))) (:align nil) (:text "Using MIDI events") @@ -1504,6 +1287,7 @@ MidiEvent must be evaluated before sending.") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1588,11 +1372,9 @@ MidiEvent must be evaluated before sending.") (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -1636,13 +1418,13 @@ MidiEvent must be evaluated before sending.") ((:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) + (:extras nil) (:midic 6000) (:vel 80) (:dur 1000) (:chan 1) (:port nil) - (:offset 0))) - (:add-slots ((:port nil))))) + (:offset 0))))) (:id 37)) (:comment (:x 723) @@ -1655,7 +1437,7 @@ MidiEvent must be evaluated before sending.") (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 13.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 13) (:style :plain))) (:t-or-nil t))) (:align nil) (:text @@ -1676,6 +1458,7 @@ MidiEvent must be evaluated before sending.") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1687,87 +1470,24 @@ MidiEvent must be evaluated before sending.") (:outputs (:output (:name "out") (:reactive nil))) (:id 39))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 8 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 1 :out 0)) - (:to (:box 8 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 30 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 0 :in 4)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 1 :in 4)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 2 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 8 :out 0)) - (:to (:box 2 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 9 :out 0)) - (:to (:box 8 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 17 :out 0)) - (:to (:box 19 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 18 :out 0)) - (:to (:box 19 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 21 :out 0)) - (:to (:box 23 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 22 :out 0)) - (:to (:box 23 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 25 :out 0)) - (:to (:box 27 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 26 :out 0)) - (:to (:box 27 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 29 :out 0)) - (:to (:box 30 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 33 :out 0)) - (:to (:box 0 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 33 :out 0)) - (:to (:box 1 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 34 :out 0)) - (:to (:box 4 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 35 :out 0)) - (:to (:box 5 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 36 :out 0)) - (:to (:box 37 :in 4)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 39 :out 0)) - (:to (:box 19 :in 0)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 0 :out 0)) (:to (:box 8 :in 2))) + (:connection (:from (:box 1 :out 0)) (:to (:box 8 :in 1))) + (:connection (:from (:box 3 :out 0)) (:to (:box 30 :in 0))) + (:connection (:from (:box 4 :out 0)) (:to (:box 0 :in 4))) + (:connection (:from (:box 5 :out 0)) (:to (:box 1 :in 4))) + (:connection (:from (:box 7 :out 0)) (:to (:box 2 :in 0))) + (:connection (:from (:box 8 :out 0)) (:to (:box 2 :in 1))) + (:connection (:from (:box 9 :out 0)) (:to (:box 8 :in 0))) + (:connection (:from (:box 17 :out 0)) (:to (:box 19 :in 1))) + (:connection (:from (:box 18 :out 0)) (:to (:box 19 :in 2))) + (:connection (:from (:box 21 :out 0)) (:to (:box 23 :in 0))) + (:connection (:from (:box 22 :out 0)) (:to (:box 23 :in 1))) + (:connection (:from (:box 25 :out 0)) (:to (:box 27 :in 0))) + (:connection (:from (:box 26 :out 0)) (:to (:box 27 :in 1))) + (:connection (:from (:box 29 :out 0)) (:to (:box 30 :in 1))) + (:connection (:from (:box 33 :out 0)) (:to (:box 0 :in 1))) + (:connection (:from (:box 33 :out 0)) (:to (:box 1 :in 1))) + (:connection (:from (:box 34 :out 0)) (:to (:box 4 :in 0))) + (:connection (:from (:box 35 :out 0)) (:to (:box 5 :in 0))) + (:connection (:from (:box 36 :out 0)) (:to (:box 37 :in 4))) + (:connection (:from (:box 39 :out 0)) (:to (:box 19 :in 0))))) \ No newline at end of file diff --git a/om/help-patches/MIDI/midi-extract.opat b/om/help-patches/MIDI/midi-extract.opat index c5c2e2c6c..ae2822d3a 100644 --- a/om/help-patches/MIDI/midi-extract.opat +++ b/om/help-patches/MIDI/midi-extract.opat @@ -1,11 +1,12 @@ (:patch - (:om-version 0.04) (:name "midi-extract") (:doc "") (:info (:created "2019/09/30 11:29:51") - (:modified "2019/09/30 15:08:25")) + (:modified "2020/01/02 8:46:28") + (:by "om-sharp") + (:version 1.0)) (:window (:size (1181 571)) (:position (327 244))) (:grid nil) (:lock nil) @@ -24,6 +25,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -53,6 +55,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda :lambda) (:inputs @@ -77,6 +80,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -106,6 +110,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda :lambda) (:inputs @@ -227,10 +232,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "TEXTFILE") (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -4172,10 +4175,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "TEXTFILE") (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -18372,6 +18373,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -18401,10 +18403,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "TEXTFILE") (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -18557,6 +18557,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -18583,6 +18584,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -18609,10 +18611,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "TEXTFILE") (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -18870,6 +18870,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -18894,11 +18895,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "jammin.mid") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -85136,6 +85135,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -85160,11 +85160,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -85201,12 +85199,7 @@ (:decimals 0) (:x-points (:list 512 538 564 589 615 640 666 692 717 743 768)) (:y-points (:list 0 20 0 0 10 20 10 20 20 0 20)))) - (:add-slots - ((:decimals 0) - (:color (:color 0.0 0.0 0.0 1.0)) - (:name "BPF") - (:action nil) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))))))) + (:add-slots ((:name "BPF"))))) (:id 21)) (:box (:type :object) @@ -85222,10 +85215,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "TEXTFILE") (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -85264,6 +85255,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -85288,6 +85280,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -85332,6 +85325,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -85388,83 +85382,23 @@ (:value :choose-file) (:id 27))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 10 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 1 :out 0)) - (:to (:box 0 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 11 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 2 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 12 :out 0)) - (:to (:box 2 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 12 :out 0)) - (:to (:box 20 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 14 :out 0)) - (:to (:box 13 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 15 :out 1)) - (:to (:box 22 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 17 :out 0)) - (:to (:box 25 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 18 :out 0)) - (:to (:box 12 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 18 :out 0)) - (:to (:box 14 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 18 :out 0)) - (:to (:box 15 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 18 :out 0)) - (:to (:box 17 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 18 :out 0)) - (:to (:box 24 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 20 :out 0)) - (:to (:box 0 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 23 :out 0)) - (:to (:box 24 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 24 :out 0)) - (:to (:box 21 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 25 :out 0)) - (:to (:box 16 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 26 :out 0)) - (:to (:box 25 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 27 :out 0)) - (:to (:box 18 :in 0)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 0 :out 0)) (:to (:box 10 :in 1))) + (:connection (:from (:box 1 :out 0)) (:to (:box 0 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 11 :in 1))) + (:connection (:from (:box 3 :out 0)) (:to (:box 2 :in 0))) + (:connection (:from (:box 12 :out 0)) (:to (:box 2 :in 1))) + (:connection (:from (:box 12 :out 0)) (:to (:box 20 :in 0))) + (:connection (:from (:box 14 :out 0)) (:to (:box 13 :in 1))) + (:connection (:from (:box 15 :out 1)) (:to (:box 22 :in 1))) + (:connection (:from (:box 17 :out 0)) (:to (:box 25 :in 1))) + (:connection (:from (:box 18 :out 0)) (:to (:box 12 :in 0))) + (:connection (:from (:box 18 :out 0)) (:to (:box 14 :in 0))) + (:connection (:from (:box 18 :out 0)) (:to (:box 15 :in 0))) + (:connection (:from (:box 18 :out 0)) (:to (:box 17 :in 0))) + (:connection (:from (:box 18 :out 0)) (:to (:box 24 :in 0))) + (:connection (:from (:box 20 :out 0)) (:to (:box 0 :in 1))) + (:connection (:from (:box 23 :out 0)) (:to (:box 24 :in 1))) + (:connection (:from (:box 24 :out 0)) (:to (:box 21 :in 0))) + (:connection (:from (:box 25 :out 0)) (:to (:box 16 :in 1))) + (:connection (:from (:box 26 :out 0)) (:to (:box 25 :in 0))) + (:connection (:from (:box 27 :out 0)) (:to (:box 18 :in 0))))) \ No newline at end of file diff --git a/om/help-patches/MIDI/midi-filters.opat b/om/help-patches/MIDI/midi-filters.opat index 2aab3614e..82ae5b607 100644 --- a/om/help-patches/MIDI/midi-filters.opat +++ b/om/help-patches/MIDI/midi-filters.opat @@ -1,11 +1,12 @@ (:patch - (:om-version 0.04) (:name "midi-filters") (:doc "") (:info (:created "2019/09/28 21:56:52") - (:modified "2019/09/30 14:57:47")) + (:modified "2020/01/02 8:46:30") + (:by "om-sharp") + (:version 1.0)) (:window (:size (1247 767)) (:position (200 236))) (:grid nil) (:lock nil) @@ -24,6 +25,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -50,7 +52,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 14) (:style :plain))) (:t-or-nil t))) (:align nil) (:text @@ -70,10 +72,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "TEXTFILE") (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -831,7 +831,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 14) (:style :plain))) (:t-or-nil t))) (:align nil) (:text @@ -849,7 +849,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 14) (:style :plain))) (:t-or-nil t))) (:align nil) (:text @@ -886,7 +886,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 14) (:style :plain))) (:t-or-nil t))) (:align nil) (:text @@ -908,6 +908,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -937,11 +938,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "tunesia-short.mid") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -42906,7 +42905,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 14) (:style :plain))) (:t-or-nil t))) (:align nil) (:text @@ -42923,7 +42922,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 18.0D0) (:style :bold))) + (:font (:font (:face "Calibri") (:size 18) (:style :bold))) (:t-or-nil t))) (:align nil) (:text "MidiEvent Filters ") @@ -42942,6 +42941,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda :lambda) (:inputs @@ -42971,11 +42971,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -54701,6 +54699,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda :lambda) (:inputs @@ -54715,10 +54714,9 @@ (:type :abstraction) (:reference (:patch - (:om-version 0.04) (:name "more-complex-test-func") (:doc "") - (:info (:created nil) (:modified nil)) + (:info (:created nil) (:modified nil) (:by nil) (:version nil)) (:window (:size (709 444)) (:position (378 391))) (:grid nil) (:lock nil) @@ -54807,6 +54805,7 @@ AND (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -54858,6 +54857,7 @@ AND (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -54887,6 +54887,7 @@ AND (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -54911,6 +54912,7 @@ AND (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -54940,7 +54942,6 @@ AND (:roundness nil) (:text-font nil) (:align :left) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -55016,6 +55017,7 @@ AND (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -55045,6 +55047,7 @@ AND (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -55061,50 +55064,17 @@ AND (:outputs (:output (:name "out") (:reactive nil))) (:id 12))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 8 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 0 :out 0)) - (:to (:box 12 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 0 :out 0)) - (:to (:box 11 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 5 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 3 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 5 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 3 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 8 :out 4)) - (:to (:box 6 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 11 :out 0)) - (:to (:box 7 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 12 :out 0)) - (:to (:box 7 :in 1)) - (:attributes (:color nil :style nil :modif nil)))))) + (:connection (:from (:box 0 :out 0)) (:to (:box 8 :in 0))) + (:connection (:from (:box 0 :out 0)) (:to (:box 12 :in 0))) + (:connection (:from (:box 0 :out 0)) (:to (:box 11 :in 0))) + (:connection (:from (:box 3 :out 0)) (:to (:box 1 :in 0))) + (:connection (:from (:box 4 :out 0)) (:to (:box 5 :in 1))) + (:connection (:from (:box 5 :out 0)) (:to (:box 3 :in 1))) + (:connection (:from (:box 6 :out 0)) (:to (:box 5 :in 0))) + (:connection (:from (:box 7 :out 0)) (:to (:box 3 :in 0))) + (:connection (:from (:box 8 :out 4)) (:to (:box 6 :in 0))) + (:connection (:from (:box 11 :out 0)) (:to (:box 7 :in 0))) + (:connection (:from (:box 12 :out 0)) (:to (:box 7 :in 1)))))) (:group-id nil) (:name "more-complex-test-func") (:x 503) @@ -55117,7 +55087,6 @@ AND (:text-font nil) (:align :center) (:display :mini-view) - (:group-id nil) (:lock nil) (:lambda :lambda) (:pre-delay 0) @@ -55130,31 +55099,10 @@ AND (:outputs (:output (:name "output") (:reactive nil))) (:id 14))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 2 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 11 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 0 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 12 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 8 :out 0)) - (:to (:box 7 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 11 :out 0)) - (:to (:box 7 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 13 :out 0)) - (:to (:box 0 :in 0)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 0 :out 0)) (:to (:box 2 :in 1))) + (:connection (:from (:box 5 :out 0)) (:to (:box 11 :in 1))) + (:connection (:from (:box 7 :out 0)) (:to (:box 0 :in 1))) + (:connection (:from (:box 7 :out 0)) (:to (:box 12 :in 1))) + (:connection (:from (:box 8 :out 0)) (:to (:box 7 :in 0))) + (:connection (:from (:box 11 :out 0)) (:to (:box 7 :in 1))) + (:connection (:from (:box 13 :out 0)) (:to (:box 0 :in 0))))) \ No newline at end of file diff --git a/om/help-patches/MIDI/midi-save.opat b/om/help-patches/MIDI/midi-save.opat index 5235575d8..a24748d0a 100644 --- a/om/help-patches/MIDI/midi-save.opat +++ b/om/help-patches/MIDI/midi-save.opat @@ -1,11 +1,12 @@ (:patch - (:om-version 0.04) (:name "midi-save") (:doc "") (:info (:created "2019/09/30 15:13:50") - (:modified "2019/10/01 12:44:58")) + (:modified "2020/01/02 8:46:27") + (:by "om-sharp") + (:version 1.0)) (:window (:size (729 676)) (:position (722 251))) (:grid nil) (:lock nil) @@ -24,10 +25,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "MIDI-MIX-CONSOLE") (:display :hidden) (:showname nil) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -84,6 +83,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -108,11 +108,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "out.mid") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -113204,6 +113202,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -113229,11 +113228,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "EVENTMIDI-SEQ2") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -223829,6 +223826,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -223858,6 +223856,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda :lambda) (:inputs @@ -223882,6 +223881,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -223911,10 +223911,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -230912,6 +230910,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -230973,43 +230972,13 @@ "<= ... also works with other musical objects ! (score/voice/etc.)") (:id 13))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 4 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 1 :out 0)) - (:to (:box 2 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 6 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 10 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 4 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 3 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 8 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 8 :out 0)) - (:to (:box 9 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 10 :out 0)) - (:to (:box 6 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 10 :out 0)) - (:to (:box 8 :in 1)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 0 :out 0)) (:to (:box 4 :in 1))) + (:connection (:from (:box 1 :out 0)) (:to (:box 2 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 6 :in 1))) + (:connection (:from (:box 4 :out 0)) (:to (:box 10 :in 0))) + (:connection (:from (:box 5 :out 0)) (:to (:box 4 :in 0))) + (:connection (:from (:box 6 :out 0)) (:to (:box 3 :in 0))) + (:connection (:from (:box 7 :out 0)) (:to (:box 8 :in 0))) + (:connection (:from (:box 8 :out 0)) (:to (:box 9 :in 1))) + (:connection (:from (:box 10 :out 0)) (:to (:box 6 :in 0))) + (:connection (:from (:box 10 :out 0)) (:to (:box 8 :in 1))))) \ No newline at end of file diff --git a/om/help-patches/MIDI/midi-sequences.opat b/om/help-patches/MIDI/midi-sequences.opat index dc44a5d42..ea5e9df35 100644 --- a/om/help-patches/MIDI/midi-sequences.opat +++ b/om/help-patches/MIDI/midi-sequences.opat @@ -1,12 +1,13 @@ (:patch - (:om-version 0.04) (:name "midi-sequences") (:doc "") (:info (:created "2019/09/28 23:12:24") - (:modified "2019/09/30 14:59:12")) - (:window (:size (1058 820)) (:position (480 434))) + (:modified "2020/01/02 8:46:29") + (:by "om-sharp") + (:version 1.0)) + (:window (:size (1058 820)) (:position (480 208))) (:grid nil) (:lock nil) (:boxes @@ -24,10 +25,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "MIDI-MIX-CONSOLE") (:display :hidden) (:showname nil) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -61,7 +60,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 13.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 13) (:style :plain))) (:t-or-nil t))) (:align nil) (:text "Settings for the MIDI channels") @@ -80,6 +79,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -101,7 +101,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 13.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 13) (:style :plain))) (:t-or-nil t))) (:align nil) (:text "All in channel 1") @@ -120,11 +120,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "EVENTMIDI-SEQ1") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -21176,11 +21174,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "EVENTMIDI-SEQ2") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -35501,7 +35497,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 13.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 13) (:style :plain))) (:t-or-nil t))) (:align nil) (:text "Final sequence -->") @@ -35520,11 +35516,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "EVENTMIDI-SEQ2") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -73350,6 +73344,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -73384,6 +73379,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -73405,7 +73401,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 13.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 13) (:style :plain))) (:t-or-nil t))) (:align nil) (:text "All together creating a single list of MidiEvents :") @@ -73421,7 +73417,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 13.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 13) (:style :plain))) (:t-or-nil t))) (:align nil) (:text @@ -73431,10 +73427,9 @@ (:type :abstraction) (:reference (:patch - (:om-version 0.04) - (:name "select drum and bass") + (:name "mypatch1") (:doc "") - (:info (:created nil) (:modified nil)) + (:info (:created nil) (:modified nil) (:by nil) (:version nil)) (:window (:size (424 380)) (:position (168 138))) (:grid nil) (:lock nil) @@ -73519,6 +73514,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -73592,6 +73588,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -73621,6 +73618,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -73637,36 +73635,15 @@ (:outputs (:output (:name "out") (:reactive nil))) (:id 7))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 6 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 0 :out 0)) - (:to (:box 7 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 7 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 6 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 3 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 3 :in 0)) - (:attributes (:color nil :style nil :modif nil)))))) + (:connection (:from (:box 0 :out 0)) (:to (:box 6 :in 0))) + (:connection (:from (:box 0 :out 0)) (:to (:box 7 :in 0))) + (:connection (:from (:box 3 :out 0)) (:to (:box 1 :in 0))) + (:connection (:from (:box 4 :out 0)) (:to (:box 7 :in 1))) + (:connection (:from (:box 5 :out 0)) (:to (:box 6 :in 1))) + (:connection (:from (:box 6 :out 0)) (:to (:box 3 :in 1))) + (:connection (:from (:box 7 :out 0)) (:to (:box 3 :in 0)))))) (:group-id nil) - (:name "mypatch1") + (:name "select drum and bass") (:x 210) (:y 276) (:w 141) @@ -73677,7 +73654,6 @@ (:text-font nil) (:align :center) (:display :mini-view) - (:group-id nil) (:lock nil) (:lambda :lambda) (:pre-delay 0) @@ -73703,6 +73679,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -73729,7 +73706,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 13.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 13) (:style :plain))) (:t-or-nil t))) (:align nil) (:text "MidiSequence without drum, bass and sax channels ") @@ -73748,11 +73725,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "EVENTMIDI-SEQ1") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -94794,10 +94769,9 @@ (:type :abstraction) (:reference (:patch - (:om-version 0.04) - (:name "delete some channels") + (:name "mypatch") (:doc "") - (:info (:created nil) (:modified nil)) + (:info (:created nil) (:modified nil) (:by nil) (:version nil)) (:window (:size (776 412)) (:position (126 92))) (:grid nil) (:lock nil) @@ -94891,6 +94865,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -94937,6 +94912,7 @@ A the same time we delete all ProgramChange Events from the sequence") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -94971,6 +94947,7 @@ A the same time we delete all ProgramChange Events from the sequence") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -95017,6 +94994,7 @@ A the same time we delete all ProgramChange Events from the sequence") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -95046,6 +95024,7 @@ A the same time we delete all ProgramChange Events from the sequence") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -95062,48 +95041,18 @@ A the same time we delete all ProgramChange Events from the sequence") (:outputs (:output (:name "out") (:reactive nil))) (:id 9))) (:connections - (:connection - (:from (:box 1 :out 0)) - (:to (:box 3 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 1 :out 0)) - (:to (:box 8 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 1 :out 0)) - (:to (:box 9 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 3 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 5 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 6 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 0 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 8 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 8 :out 0)) - (:to (:box 5 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 9 :out 0)) - (:to (:box 5 :in 1)) - (:attributes (:color nil :style nil :modif nil)))))) + (:connection (:from (:box 1 :out 0)) (:to (:box 3 :in 0))) + (:connection (:from (:box 1 :out 0)) (:to (:box 8 :in 0))) + (:connection (:from (:box 1 :out 0)) (:to (:box 9 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 3 :in 1))) + (:connection (:from (:box 3 :out 0)) (:to (:box 5 :in 2))) + (:connection (:from (:box 5 :out 0)) (:to (:box 6 :in 0))) + (:connection (:from (:box 6 :out 0)) (:to (:box 0 :in 0))) + (:connection (:from (:box 7 :out 0)) (:to (:box 8 :in 1))) + (:connection (:from (:box 8 :out 0)) (:to (:box 5 :in 0))) + (:connection (:from (:box 9 :out 0)) (:to (:box 5 :in 1)))))) (:group-id nil) - (:name "mypatch") + (:name "delete some channels") (:x 458) (:y 226) (:w 144) @@ -95114,7 +95063,6 @@ A the same time we delete all ProgramChange Events from the sequence") (:text-font nil) (:align :center) (:display :mini-view) - (:group-id nil) (:lock nil) (:lambda :lambda) (:pre-delay 0) @@ -95140,6 +95088,7 @@ A the same time we delete all ProgramChange Events from the sequence") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -95166,7 +95115,7 @@ A the same time we delete all ProgramChange Events from the sequence") (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 13.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 13) (:style :plain))) (:t-or-nil t))) (:align nil) (:text "Extract filtered tracks:") @@ -95182,7 +95131,7 @@ A the same time we delete all ProgramChange Events from the sequence") (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 18.0D0) (:style :bold))) + (:font (:font (:face "Calibri") (:size 18) (:style :bold))) (:t-or-nil t))) (:align nil) (:text "PROCESSING MIDI-TRACKs") @@ -95191,10 +95140,9 @@ A the same time we delete all ProgramChange Events from the sequence") (:type :abstraction) (:reference (:patch - (:om-version 0.04) (:name "set-ch-1") (:doc "") - (:info (:created nil) (:modified nil)) + (:info (:created nil) (:modified nil) (:by nil) (:version nil)) (:window (:size (302 278)) (:position (211 184))) (:grid nil) (:lock nil) @@ -95284,7 +95232,6 @@ A the same time we delete all ProgramChange Events from the sequence") (:roundness nil) (:text-font nil) (:align :left) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -95334,6 +95281,7 @@ A the same time we delete all ProgramChange Events from the sequence") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -95345,22 +95293,10 @@ A the same time we delete all ProgramChange Events from the sequence") (:outputs (:output (:name "out") (:reactive nil))) (:id 4))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 4 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 3 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 3 :in 0)) - (:attributes (:color nil :style nil :modif nil)))))) + (:connection (:from (:box 0 :out 0)) (:to (:box 4 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 3 :in 2))) + (:connection (:from (:box 3 :out 0)) (:to (:box 1 :in 0))) + (:connection (:from (:box 4 :out 0)) (:to (:box 3 :in 0)))))) (:group-id nil) (:name "set-ch-1") (:x 531) @@ -95373,7 +95309,6 @@ A the same time we delete all ProgramChange Events from the sequence") (:text-font nil) (:align :center) (:display :hidden) - (:group-id nil) (:lock nil) (:lambda :lambda) (:pre-delay 0) @@ -95404,6 +95339,7 @@ A the same time we delete all ProgramChange Events from the sequence") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -95453,11 +95389,9 @@ A the same time we delete all ProgramChange Events from the sequence") (:roundness nil) (:text-font nil) (:align :center) - (:name "tunesia-short.mid") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -137412,67 +137346,19 @@ A the same time we delete all ProgramChange Events from the sequence") (:add-slots ((:ev-track 0)))))))))) (:id 23))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 2 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 8 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 9 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 8 :out 0)) - (:to (:box 7 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 9 :out 0)) - (:to (:box 8 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 12 :out 0)) - (:to (:box 13 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 13 :out 0)) - (:to (:box 8 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 13 :out 0)) - (:to (:box 5 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 15 :out 1)) - (:to (:box 21 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 16 :out 0)) - (:to (:box 17 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 17 :out 0)) - (:to (:box 15 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 20 :out 0)) - (:to (:box 21 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 21 :out 0)) - (:to (:box 4 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 22 :out 0)) - (:to (:box 20 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 23 :out 0)) - (:to (:box 17 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 23 :out 0)) - (:to (:box 13 :in 0)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 0 :out 0)) (:to (:box 2 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 8 :in 2))) + (:connection (:from (:box 4 :out 0)) (:to (:box 9 :in 0))) + (:connection (:from (:box 8 :out 0)) (:to (:box 7 :in 1))) + (:connection (:from (:box 9 :out 0)) (:to (:box 8 :in 1))) + (:connection (:from (:box 12 :out 0)) (:to (:box 13 :in 1))) + (:connection (:from (:box 13 :out 0)) (:to (:box 8 :in 0))) + (:connection (:from (:box 13 :out 0)) (:to (:box 5 :in 1))) + (:connection (:from (:box 15 :out 1)) (:to (:box 21 :in 1))) + (:connection (:from (:box 16 :out 0)) (:to (:box 17 :in 1))) + (:connection (:from (:box 17 :out 0)) (:to (:box 15 :in 1))) + (:connection (:from (:box 20 :out 0)) (:to (:box 21 :in 0))) + (:connection (:from (:box 21 :out 0)) (:to (:box 4 :in 1))) + (:connection (:from (:box 22 :out 0)) (:to (:box 20 :in 1))) + (:connection (:from (:box 23 :out 0)) (:to (:box 17 :in 0))) + (:connection (:from (:box 23 :out 0)) (:to (:box 13 :in 0))))) \ No newline at end of file diff --git a/om/help-patches/MIDI/midi-track.opat b/om/help-patches/MIDI/midi-track.opat index 769f04634..80c87f354 100644 --- a/om/help-patches/MIDI/midi-track.opat +++ b/om/help-patches/MIDI/midi-track.opat @@ -1,11 +1,12 @@ (:patch - (:om-version 7.0) (:name "midi-track") (:doc "") (:info (:created "2017/03/04 10:19:32") - (:modified "2019/11/10 14:24:22")) + (:modified "2020/01/02 8:46:29") + (:by "om-sharp") + (:version 1.0)) (:window (:size (1187 790)) (:position (253 23))) (:grid nil) (:lock nil) @@ -14,10 +15,9 @@ (:type :abstraction) (:reference (:patch - (:om-version 7.0) (:name "midinote") (:doc "") - (:info (:created nil) (:modified nil)) + (:info (:created nil) (:modified nil) (:by nil) (:version nil)) (:window (:size (353 272)) (:position (1087 262))) (:grid nil) (:lock nil) @@ -225,14 +225,8 @@ (:to (:box 0 :in 0)) (:attributes (:color (:color 0.3 0.3 0.3 1.0) :style nil :modif nil))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 2 :in 5)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 2 :in 2)) - (:attributes (:color nil :style nil :modif nil)))))) + (:connection (:from (:box 3 :out 0)) (:to (:box 2 :in 5))) + (:connection (:from (:box 4 :out 0)) (:to (:box 2 :in 2)))))) (:group-id nil) (:name "midinote") (:x 367) @@ -107857,6 +107851,7 @@ It corresponds to (and extends) the MIDIFile object in OM6") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) + (:extras nil) (:lmidic (:list (:list 6800 5300 6200 5600) @@ -121528,95 +121523,26 @@ It corresponds to (and extends) the MIDIFile object in OM6") (:add-slots ((:ev-track 1)))))))))) (:id 32))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 1 :out 0)) - (:to (:box 11 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 1 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 12 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 4 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 4 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 10 :out 0)) - (:to (:box 9 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 13 :out 0)) - (:to (:box 18 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 14 :out 0)) - (:to (:box 13 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 15 :out 0)) - (:to (:box 13 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 16 :out 0)) - (:to (:box 15 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 17 :out 0)) - (:to (:box 15 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 18 :out 0)) - (:to (:box 25 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 19 :out 0)) - (:to (:box 18 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 20 :out 0)) - (:to (:box 25 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 21 :out 0)) - (:to (:box 20 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 22 :out 0)) - (:to (:box 23 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 23 :out 0)) - (:to (:box 20 :in 4)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 24 :out 0)) - (:to (:box 23 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 25 :out 0)) - (:to (:box 26 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 28 :out 0)) - (:to (:box 27 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 30 :out 0)) - (:to (:box 29 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 31 :out 0)) - (:to (:box 32 :in 0)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 0 :out 0)) (:to (:box 1 :in 0))) + (:connection (:from (:box 1 :out 0)) (:to (:box 11 :in 1))) + (:connection (:from (:box 2 :out 0)) (:to (:box 1 :in 1))) + (:connection (:from (:box 4 :out 0)) (:to (:box 12 :in 1))) + (:connection (:from (:box 5 :out 0)) (:to (:box 4 :in 1))) + (:connection (:from (:box 6 :out 0)) (:to (:box 4 :in 0))) + (:connection (:from (:box 10 :out 0)) (:to (:box 9 :in 0))) + (:connection (:from (:box 13 :out 0)) (:to (:box 18 :in 0))) + (:connection (:from (:box 14 :out 0)) (:to (:box 13 :in 1))) + (:connection (:from (:box 15 :out 0)) (:to (:box 13 :in 2))) + (:connection (:from (:box 16 :out 0)) (:to (:box 15 :in 0))) + (:connection (:from (:box 17 :out 0)) (:to (:box 15 :in 1))) + (:connection (:from (:box 18 :out 0)) (:to (:box 25 :in 1))) + (:connection (:from (:box 19 :out 0)) (:to (:box 18 :in 1))) + (:connection (:from (:box 20 :out 0)) (:to (:box 25 :in 0))) + (:connection (:from (:box 21 :out 0)) (:to (:box 20 :in 1))) + (:connection (:from (:box 22 :out 0)) (:to (:box 23 :in 0))) + (:connection (:from (:box 23 :out 0)) (:to (:box 20 :in 4))) + (:connection (:from (:box 24 :out 0)) (:to (:box 23 :in 1))) + (:connection (:from (:box 25 :out 0)) (:to (:box 26 :in 1))) + (:connection (:from (:box 28 :out 0)) (:to (:box 27 :in 0))) + (:connection (:from (:box 30 :out 0)) (:to (:box 29 :in 0))) + (:connection (:from (:box 31 :out 0)) (:to (:box 32 :in 0))))) \ No newline at end of file diff --git a/om/help-patches/OSC/osc-bundles.opat b/om/help-patches/OSC/osc-bundles.opat index 8eaac3426..330f7fa83 100644 --- a/om/help-patches/OSC/osc-bundles.opat +++ b/om/help-patches/OSC/osc-bundles.opat @@ -1,12 +1,13 @@ (:patch - (:om-version 0.0201) (:name "osc-bundles") (:doc "") (:info (:created "2019/09/15 10:06:59") - (:modified "2019/09/20 10:43:12")) - (:window (:size (1090 669)) (:position (614 163))) + (:modified "2020/01/02 8:48:00") + (:by "om-sharp") + (:version 1.0)) + (:window (:size (1090 669)) (:position (590 163))) (:grid nil) (:lock nil) (:boxes @@ -24,10 +25,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -77,6 +76,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -111,6 +111,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -180,6 +181,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -249,6 +251,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -314,10 +317,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -367,6 +368,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -441,6 +443,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -504,11 +507,9 @@ (:roundness nil) (:text-font (:font (:face "Verdana") (:size 10) (:style :italic))) (:align :center) - (:name "BPC") (:display :mini-view) (:showname t) (:show-markers t) - (:group-id 0) (:lock :locked) (:lambda nil) (:inputs @@ -780,98 +781,15 @@ -0.6 -1.06 -1.96)))) - (:add-slots - ((:times - (:list - 0 - 119 - 135 - 143 - 159 - 167 - 175 - 183 - 192 - 199 - 208 - 216 - 232 - 251 - 258 - 264 - 275 - 280 - 292 - 296 - 309 - 325 - 327 - 342 - 344 - 358 - 360 - 375 - 377 - 392 - 393 - 401 - 412 - 417 - 425 - 442 - 459 - 466 - 475 - 482 - 491 - 498 - 510 - 514 - 526 - 530 - 543 - 546 - 559 - 562 - 577 - 579 - 593 - 595 - 610 - 611 - 635 - 660 - 684 - 708 - 732 - 748 - 764 - 781 - 797 - 813 - 826 - 829 - 843 - 846 - 860 - 861 - 877 - 878 - 894)) - (:decimals 2) - (:color nil) - (:name "BPC") - (:action nil) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))))))) + (:add-slots ((:name "BPC"))))) (:id 18)) (:box (:type :abstraction) (:reference (:patch - (:om-version 0.0201) (:name "make-osc-bundle") (:doc "") - (:info (:created nil) (:modified nil)) + (:info (:created nil) (:modified nil) (:by nil) (:version nil)) (:window (:size (396 363)) (:position (127 115))) (:grid nil) (:lock nil) @@ -982,10 +900,8 @@ (:text-font (:font (:face "Verdana") (:size 10) (:style :italic))) (:align :center) - (:name "OSC-BUNDLE") (:display :hidden) (:showname nil) - (:group-id 0) (:lock nil) (:lambda nil) (:inputs @@ -1035,6 +951,7 @@ (:roundness nil) (:text-font nil) (:align :left) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1083,6 +1000,7 @@ (:roundness nil) (:text-font nil) (:align :left) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1131,6 +1049,7 @@ (:roundness nil) (:text-font nil) (:align :left) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1157,10 +1076,7 @@ (:to (:box 7 :in 1)) (:attributes (:color (:color 0.3 0.3 0.3 1.0) :style nil :modif nil))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 4 :in 1)) - (:attributes (:color nil :style nil :modif nil))) + (:connection (:from (:box 3 :out 0)) (:to (:box 4 :in 1))) (:connection (:from (:box 4 :out 0)) (:to (:box 0 :in 0)) @@ -1186,10 +1102,7 @@ (:to (:box 7 :in 0)) (:attributes (:color (:color 0.3 0.3 0.3 1.0) :style nil :modif nil))) - (:connection - (:from (:box 9 :out 0)) - (:to (:box 4 :in 2)) - (:attributes (:color nil :style nil :modif nil)))))) + (:connection (:from (:box 9 :out 0)) (:to (:box 4 :in 2)))))) (:group-id 0) (:name "make-osc-bundle") (:x 566) @@ -1202,7 +1115,6 @@ (:text-font nil) (:align :center) (:display :hidden) - (:group-id 0) (:lock nil) (:lambda :lambda) (:pre-delay 0) @@ -1230,6 +1142,7 @@ (:roundness nil) (:text-font nil) (:align :left) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1269,11 +1182,9 @@ (:roundness nil) (:text-font (:font (:face "Verdana") (:size 10) (:style :italic))) (:align :center) - (:name "DATA-STREAM") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id 0) (:lock nil) (:lambda nil) (:inputs @@ -2388,6 +2299,7 @@ (:roundness nil) (:text-font nil) (:align :left) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -2487,66 +2399,21 @@ Ther default action (when the DATA-STREAM is played) is to OSC-SEND the bundles.") (:id 28))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 1 :out 0)) - (:to (:box 11 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 8 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 2 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 2 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 8 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 5 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 5 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 8 :out 0)) - (:to (:box 0 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 9 :out 0)) - (:to (:box 1 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 10 :out 0)) - (:to (:box 1 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 11 :out 0)) - (:to (:box 12 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 11 :out 0)) - (:to (:box 15 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 12 :out 0)) - (:to (:box 14 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 13 :out 0)) - (:to (:box 12 :in 1)) - (:attributes (:color nil :style nil :modif nil))) + (:connection (:from (:box 0 :out 0)) (:to (:box 1 :in 0))) + (:connection (:from (:box 1 :out 0)) (:to (:box 11 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 8 :in 0))) + (:connection (:from (:box 3 :out 0)) (:to (:box 2 :in 0))) + (:connection (:from (:box 4 :out 0)) (:to (:box 2 :in 1))) + (:connection (:from (:box 5 :out 0)) (:to (:box 8 :in 1))) + (:connection (:from (:box 6 :out 0)) (:to (:box 5 :in 0))) + (:connection (:from (:box 7 :out 0)) (:to (:box 5 :in 1))) + (:connection (:from (:box 8 :out 0)) (:to (:box 0 :in 2))) + (:connection (:from (:box 9 :out 0)) (:to (:box 1 :in 1))) + (:connection (:from (:box 10 :out 0)) (:to (:box 1 :in 2))) + (:connection (:from (:box 11 :out 0)) (:to (:box 12 :in 0))) + (:connection (:from (:box 11 :out 0)) (:to (:box 15 :in 0))) + (:connection (:from (:box 12 :out 0)) (:to (:box 14 :in 0))) + (:connection (:from (:box 13 :out 0)) (:to (:box 12 :in 1))) (:connection (:from (:box 18 :out 0)) (:to (:box 22 :in 0)) diff --git a/om/help-patches/OSC/osc-send-receive.opat b/om/help-patches/OSC/osc-send-receive.opat index b9b128fae..0f4b3319b 100644 --- a/om/help-patches/OSC/osc-send-receive.opat +++ b/om/help-patches/OSC/osc-send-receive.opat @@ -1,18 +1,19 @@ (:patch - (:om-version 7.0) (:name "osc-send-receive") (:doc "") (:info (:created "2017/03/05 16:40:15") - (:modified "2019/09/15 10:09:36")) - (:window (:size (1256 575)) (:position (690 183))) + (:modified "2020/01/02 8:48:00") + (:by "om-sharp") + (:version 1.0)) + (:window (:size (1256 575)) (:position (424 183))) (:grid nil) (:lock nil) (:boxes (:box - (:reference bpc) (:type :object) + (:reference bpc) (:group-id nil) (:name "c1") (:x 463) @@ -24,11 +25,9 @@ (:roundness nil) (:text-font (:font (:face "Verdana") (:size 10) (:style :italic))) (:align :center) - (:name "c1") (:display :mini-view) (:showname t) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -447,144 +446,11 @@ -0.22 -0.28 -0.18)))) - (:add-slots - ((:times - (:list - 0 - 64 - 82 - 99 - 116 - 133 - 151 - 167 - 185 - 202 - 220 - 237 - 254 - 271 - 289 - 306 - 323 - 340 - 357 - 375 - 392 - 413 - 427 - 444 - 461 - 478 - 496 - 513 - 531 - 565 - 582 - 599 - 616 - 634 - 651 - 668 - 685 - 703 - 720 - 738 - 755 - 772 - 789 - 807 - 825 - 843 - 859 - 877 - 894 - 911 - 1411 - 1442 - 1489 - 1497 - 1514 - 1523 - 1539 - 1546 - 1556 - 1573 - 1578 - 1589 - 1594 - 1605 - 1610 - 1623 - 1626 - 1640 - 1642 - 1656 - 1658 - 1672 - 1674 - 1689 - 1690 - 1705 - 1706 - 1722 - 1739 - 1756 - 1771 - 1771 - 1779 - 1789 - 1795 - 1805 - 1811 - 1822 - 1827 - 1839 - 1843 - 1856 - 1860 - 1871 - 1876 - 1890 - 1892 - 1906 - 1908 - 1922 - 1924 - 1940 - 1956 - 1973 - 1989 - 2006 - 2022 - 2029 - 2038 - 2045 - 2056 - 2061 - 2073 - 2078 - 2118 - 2134 - 2158 - 2185 - 2193 - 2208 - 2208 - 2224 - 2240 - 2257 - 2274 - 2296)) - (:decimals 2) - (:color nil) - (:name "BPC") - (:action nil) - (:interpol nil))))) + (:add-slots ((:name "BPC"))))) (:id 0)) (:box - (:reference bpc) (:type :object) + (:reference bpc) (:group-id nil) (:name "c2") (:x 599) @@ -596,11 +462,9 @@ (:roundness nil) (:text-font (:font (:face "Verdana") (:size 10) (:style :italic))) (:align :center) - (:name "c2") (:display :mini-view) (:showname t) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -845,86 +709,11 @@ -0.93 -0.93 -0.93)))) - (:add-slots - ((:times - (:list - 0 - 82 - 99 - 116 - 133 - 150 - 168 - 185 - 202 - 220 - 237 - 254 - 272 - 306 - 357 - 374 - 392 - 409 - 428 - 444 - 461 - 479 - 497 - 514 - 531 - 548 - 565 - 600 - 685 - 702 - 720 - 737 - 755 - 772 - 794 - 811 - 824 - 840 - 859 - 876 - 893 - 910 - 928 - 962 - 979 - 996 - 1014 - 1031 - 1048 - 1064 - 1082 - 1099 - 1117 - 1134 - 1151 - 1168 - 1186 - 1203 - 1220 - 1254 - 1307 - 1324 - 1345 - 1359 - 1376 - 1393 - 1410 - 1428)) - (:decimals 2) - (:color nil) - (:name "BPC") - (:action nil) - (:interpol nil))))) + (:add-slots ((:name "BPC"))))) (:id 1)) (:box - (:reference simple-base-string) (:type :value) + (:reference simple-base-string) (:group-id 0) (:name "vb") (:x 634) @@ -942,8 +731,8 @@ (:value "/source2/traj") (:id 2)) (:box - (:reference simple-base-string) (:type :value) + (:reference simple-base-string) (:group-id 0) (:name "vb") (:x 516.0D0) @@ -961,8 +750,8 @@ (:value "/source1/traj") (:id 3)) (:box - (:reference route-osc) (:type :function) + (:reference route-osc) (:group-id 0) (:name "route-osc") (:x 466.0D0) @@ -974,6 +763,7 @@ (:roundness nil) (:text-font nil) (:align :left) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -998,8 +788,8 @@ (:output (:name "osc-paths2") (:reactive t))) (:id 4)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id 0) (:name "vb") (:x 459.0D0) @@ -1017,8 +807,8 @@ (:value 8085) (:id 5)) (:box - (:reference osc-receive) (:type :function) + (:reference osc-receive) (:group-id 0) (:name "osc-receive") (:x 456.0D0) @@ -1030,6 +820,7 @@ (:roundness nil) (:text-font nil) (:align :left) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1046,25 +837,25 @@ (:outputs (:output (:name "out") (:reactive t))) (:id 6)) (:box + (:type :abstraction) (:reference (:patch - (:om-version 7.0) (:name "mk-traj-1") (:doc "") - (:info (:created nil) (:modified nil)) + (:info (:created nil) (:modified nil) (:by nil) (:version nil)) (:window (:size (270 295)) (:position (247 126))) (:grid nil) (:lock nil) (:boxes (:box + (:type :io) (:reference (:in (:type omin) (:index 1) (:name "input 1") (:doc ""))) - (:type :io) (:group-id nil) (:name "input 1") (:x 27.0D0) (:y 47) - (:w 47) + (:w 59) (:h 42) (:color (:color-or-nil @@ -1079,14 +870,14 @@ (:outputs (:output (:name "out") (:reactive nil))) (:id 0)) (:box + (:type :io) (:reference (:out (:type omout) (:name "output 1") (:index 1) (:doc ""))) - (:type :io) (:group-id nil) (:name "output 1") (:x 50.0D0) (:y 153) - (:w 55) + (:w 68) (:h 42) (:color (:color-or-nil @@ -1106,8 +897,8 @@ (:outputs) (:id 1)) (:box - (:reference symbol) (:type :value) + (:reference symbol) (:group-id 0) (:name "vb") (:x 121.385986328125D0) @@ -1125,14 +916,14 @@ (:value circular) (:id 2)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id 0) (:name "vb") (:x 82.646240234375D0) (:y 65) (:w 35.84375D0) - (:h 28) + (:h 30) (:color (:color 0.9 0.9 0.9 1.0)) (:border 1.5) (:roundness nil) @@ -1144,8 +935,8 @@ (:value 4) (:id 3)) (:box - (:reference group-list) (:type :function) + (:reference group-list) (:group-id 0) (:name "group-list") (:x 50.0D0) @@ -1157,6 +948,7 @@ (:roundness nil) (:text-font nil) (:align :left) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1203,7 +995,6 @@ :curved :modif nil)))))) - (:type :patch) (:group-id nil) (:name "mk-traj-1") (:x 440) @@ -1216,7 +1007,6 @@ (:text-font nil) (:align :center) (:display :hidden) - (:group-id nil) (:lock nil) (:lambda nil) (:pre-delay 0) @@ -1229,25 +1019,25 @@ (:outputs (:output (:name "output 1") (:reactive t))) (:id 7)) (:box + (:type :abstraction) (:reference (:patch - (:om-version 7.0) (:name "mk-traj-2") (:doc "") - (:info (:created nil) (:modified nil)) + (:info (:created nil) (:modified nil) (:by nil) (:version nil)) (:window (:size (271.841064453125D0 295)) (:position nil)) (:grid nil) (:lock nil) (:boxes (:box + (:type :io) (:reference (:in (:type omin) (:index 1) (:name "input 1") (:doc ""))) - (:type :io) (:group-id nil) (:name "input 1") (:x 50.0D0) (:y 50) - (:w 47) + (:w 59) (:h 42) (:color (:color-or-nil @@ -1262,14 +1052,14 @@ (:outputs (:output (:name "out") (:reactive nil))) (:id 0)) (:box + (:type :io) (:reference (:out (:type omout) (:name "output 1") (:index 1) (:doc ""))) - (:type :io) (:group-id nil) (:name "output 1") (:x 50.0D0) (:y 153) - (:w 55) + (:w 68) (:h 42) (:color (:color-or-nil @@ -1289,14 +1079,14 @@ (:outputs) (:id 1)) (:box - (:reference symbol) (:type :value) + (:reference symbol) (:group-id 0) (:name "vb") (:x 123.385986328125D0) (:y 64) (:w 48.455078125D0) - (:h 28) + (:h 30) (:color (:color 0.9 0.9 0.9 1.0)) (:border 1.5) (:roundness nil) @@ -1308,14 +1098,14 @@ (:value circular) (:id 2)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id 0) (:name "vb") (:x 82.646240234375D0) (:y 65) (:w 35.84375D0) - (:h 28) + (:h 30) (:color (:color 0.9 0.9 0.9 1.0)) (:border 1.5) (:roundness nil) @@ -1327,19 +1117,20 @@ (:value 4) (:id 3)) (:box - (:reference group-list) (:type :function) + (:reference group-list) (:group-id 0) (:name "group-list") (:x 50.0D0) (:y 100) (:w 91.13623046875D0) - (:h 28) + (:h 30) (:color (:color 0.9 0.9 0.9 1.0)) (:border 1.5) (:roundness nil) (:text-font nil) (:align :left) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1381,7 +1172,6 @@ :curved :modif nil)))))) - (:type :patch) (:group-id nil) (:name "mk-traj-2") (:x 576) @@ -1394,7 +1184,6 @@ (:text-font nil) (:align :center) (:display :hidden) - (:group-id nil) (:lock nil) (:lambda nil) (:pre-delay 0) @@ -1421,8 +1210,8 @@ "Activate / deactivate with 'R' to start/stop the OSC-REVEIVE process") (:id 9)) (:box - (:reference osc-send) (:type :function) + (:reference osc-send) (:group-id nil) (:name "osc-send") (:x 44) @@ -1434,6 +1223,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1455,8 +1245,8 @@ (:outputs (:output (:name "out") (:reactive nil))) (:id 10)) (:box - (:reference cons) (:type :value) + (:reference cons) (:group-id nil) (:name "value box") (:x 27) @@ -1475,8 +1265,8 @@ (:value (:list "/test" 0)) (:id 11)) (:box - (:reference fixnum) (:type :value) + (:reference fixnum) (:group-id nil) (:name "value box") (:x 117) @@ -1518,7 +1308,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 24.0D0) (:style :bold))) + (:font (:font (:face "Calibri") (:size 24) (:style :bold))) (:t-or-nil t))) (:align nil) (:text "OSC send") @@ -1534,7 +1324,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 24.0D0) (:style :bold))) + (:font (:font (:face "Calibri") (:size 24) (:style :bold))) (:t-or-nil t))) (:align nil) (:text "OSC receive / route") @@ -1599,11 +1389,5 @@ (:to (:box 1 :in 0)) (:attributes (:color (:color 0.2 0.4 0.5 1.0) :style :curved :modif nil))) - (:connection - (:from (:box 11 :out 0)) - (:to (:box 10 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 12 :out 0)) - (:to (:box 10 :in 2)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 11 :out 0)) (:to (:box 10 :in 0))) + (:connection (:from (:box 12 :out 0)) (:to (:box 10 :in 2))))) \ No newline at end of file diff --git a/om/help-patches/SDIF/00-sdif-intro.opat b/om/help-patches/SDIF/00-sdif-intro.opat index 299918bbc..d2b34762b 100644 --- a/om/help-patches/SDIF/00-sdif-intro.opat +++ b/om/help-patches/SDIF/00-sdif-intro.opat @@ -1,11 +1,12 @@ (:patch - (:om-version 0.03) (:name "00-sdif-intro") (:doc "") (:info (:created "2019/09/23 11:18:05") - (:modified "2019/09/23 12:09:03")) + (:modified "2020/01/02 8:48:15") + (:by "om-sharp") + (:version 1.0)) (:window (:size (1007 742)) (:position (136 41))) (:grid nil) (:lock nil) @@ -21,7 +22,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 14) (:style :plain))) (:t-or-nil t))) (:align nil) (:text @@ -43,10 +44,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "SDIFFILE") (:display :hidden) (:showname t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -61,8 +60,7 @@ (:value (:object (:class sdiffile) - (:slots nil) - (:add-slots ((:file-pathname nil) (:file-map nil))))) + (:add-slots ((:file-map nil) (:file-pathname nil))))) (:id 1)) (:comment (:x 355) @@ -75,7 +73,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 14) (:style :plain))) (:t-or-nil t))) (:align nil) (:text @@ -116,6 +114,7 @@ If no pathname is connected, a file chooser dialog should allow you to select an (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -140,10 +139,8 @@ If no pathname is connected, a file chooser dialog should allow you to select an (:roundness nil) (:text-font nil) (:align :center) - (:name "file01.sdif") (:display :hidden) (:showname t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -158,8 +155,7 @@ If no pathname is connected, a file chooser dialog should allow you to select an (:value (:object (:class sdiffile) - (:slots nil) - (:add-slots ((:file-pathname nil) (:file-map nil))))) + (:add-slots ((:file-map nil) (:file-pathname nil))))) (:id 5)) (:comment (:x 28) @@ -172,7 +168,7 @@ If no pathname is connected, a file chooser dialog should allow you to select an (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 18.0D0) (:style :bold))) + (:font (:font (:face "Calibri") (:size 18) (:style :bold))) (:t-or-nil t))) (:align nil) (:text "The SDIFFILE box:") @@ -196,7 +192,7 @@ If no pathname is connected, a file chooser dialog should allow you to select an (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 14) (:style :plain))) (:t-or-nil t))) (:align nil) (:text @@ -225,7 +221,7 @@ See also the SDIF page in the OM user mnual : (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 14) (:style :plain))) (:t-or-nil t))) (:align nil) (:text @@ -244,7 +240,7 @@ The tools in the SDIF package will help you to extract and convert the SDIF data (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 18.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 18) (:style :plain))) (:t-or-nil t))) (:align nil) (:text "Sound Description Interchange Format") @@ -260,17 +256,11 @@ The tools in the SDIF package will help you to extract and convert the SDIF data (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 36.0D0) (:style :bold))) + (:font (:font (:face "Calibri") (:size 36) (:style :bold))) (:t-or-nil t))) (:align nil) (:text "SDIF ") (:id 10))) (:connections - (:connection - (:from (:box 3 :out 0)) - (:to (:box 4 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 5 :in 0)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 3 :out 0)) (:to (:box 4 :in 0))) + (:connection (:from (:box 4 :out 0)) (:to (:box 5 :in 0))))) \ No newline at end of file diff --git a/om/help-patches/SDIF/01-sdif-info.opat b/om/help-patches/SDIF/01-sdif-info.opat index 9bc1c93fe..8588c064e 100644 --- a/om/help-patches/SDIF/01-sdif-info.opat +++ b/om/help-patches/SDIF/01-sdif-info.opat @@ -1,11 +1,12 @@ (:patch - (:om-version 0.03) (:name "01-sdif-info") (:doc "") (:info (:created "2019/09/23 11:21:48") - (:modified "2019/09/23 12:11:51")) + (:modified "2020/01/02 8:48:15") + (:by "om-sharp") + (:version 1.0)) (:window (:size (838 583)) (:position (450 254))) (:grid nil) (:lock nil) @@ -21,7 +22,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :bold))) + (:font (:font (:face "Calibri") (:size 14) (:style :bold))) (:t-or-nil t))) (:align nil) (:text "SDIF NVTs") @@ -40,10 +41,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "SDIFNVT") (:display :text) (:showname t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -89,6 +88,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -133,6 +133,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -162,6 +163,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -183,7 +185,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 14) (:style :plain))) (:t-or-nil t))) (:align nil) (:text @@ -200,7 +202,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 14) (:style :plain))) (:t-or-nil t))) (:align nil) (:text @@ -220,10 +222,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "TEXTFILE") (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -315,7 +315,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 14) (:style :plain))) (:t-or-nil t))) (:align nil) (:text "Returns matrix or frame type description info") @@ -354,6 +354,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -388,6 +389,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -409,7 +411,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 18.0D0) (:style :bold))) + (:font (:font (:face "Calibri") (:size 18) (:style :bold))) (:t-or-nil t))) (:align nil) (:text "Accessing info and data from SDIF files (I)") @@ -425,7 +427,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 14) (:style :plain))) (:t-or-nil t))) (:align nil) (:text "List SDIF streams (frames,matrices) in the file.") @@ -444,10 +446,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "SDIFFILE") (:display :text) (:showname t) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -462,22 +462,8 @@ (:value (:object (:class sdiffile) - (:slots nil) (:add-slots - ((:file-pathname - (:pathname - (:directory - (:absolute - "Users" - "bresson" - "_SHARED-FILES" - "IN-FILES" - "SDIF")) - (:device :unspecific) - (:host nil) - (:name "SpectralDiffMarkers.mrk") - (:type "sdif"))) - (:file-map + ((:file-map (:list (:fstream-desc (:id 0) @@ -493,7 +479,24 @@ (:rmax 1) (:tmin 0.9868367314338684D0) (:tmax 23.78302764892578D0) - (:nf 8))))))))))) + (:nf 8))))))) + (:file-pathname + (:pathname + (:directory + (:relative + :up + :up + :up + :up + :up + :up + "_SHARED-FILES" + "IN-FILES" + "SDIF")) + (:device :unspecific) + (:host :unspecific) + (:name "SpectralDiffMarkers.mrk") + (:type "sdif"))))))) (:id 15)) (:box (:type :function) @@ -509,6 +512,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -520,43 +524,13 @@ (:outputs (:output (:name "out") (:reactive nil))) (:id 16))) (:connections - (:connection - (:from (:box 2 :out 0)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 4 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 2 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 4 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 10 :out 0)) - (:to (:box 11 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 12 :out 0)) - (:to (:box 8 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 15 :out 0)) - (:to (:box 5 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 15 :out 0)) - (:to (:box 11 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 15 :out 0)) - (:to (:box 12 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 15 :out 0)) - (:to (:box 16 :in 0)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 2 :out 0)) (:to (:box 1 :in 0))) + (:connection (:from (:box 3 :out 0)) (:to (:box 4 :in 1))) + (:connection (:from (:box 5 :out 0)) (:to (:box 2 :in 0))) + (:connection (:from (:box 5 :out 0)) (:to (:box 4 :in 0))) + (:connection (:from (:box 10 :out 0)) (:to (:box 11 :in 1))) + (:connection (:from (:box 12 :out 0)) (:to (:box 8 :in 0))) + (:connection (:from (:box 15 :out 0)) (:to (:box 5 :in 0))) + (:connection (:from (:box 15 :out 0)) (:to (:box 11 :in 0))) + (:connection (:from (:box 15 :out 0)) (:to (:box 12 :in 0))) + (:connection (:from (:box 15 :out 0)) (:to (:box 16 :in 0))))) \ No newline at end of file diff --git a/om/help-patches/SDIF/02-sdif-read.opat b/om/help-patches/SDIF/02-sdif-read.opat index caa6e8913..4141ee159 100644 --- a/om/help-patches/SDIF/02-sdif-read.opat +++ b/om/help-patches/SDIF/02-sdif-read.opat @@ -1,11 +1,12 @@ (:patch - (:om-version 0.03) (:name "02-sdif-read") (:doc "") (:info (:created "2019/09/23 11:38:06") - (:modified "2019/09/23 12:12:12")) + (:modified "2020/01/02 8:48:15") + (:by "om-sharp") + (:version 1.0)) (:window (:size (951 573)) (:position (403 181))) (:grid nil) (:lock nil) @@ -57,6 +58,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -253,10 +255,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "SDIFFILE") (:display :text) (:showname nil) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -271,17 +271,15 @@ (:value (:object (:class sdiffile) - (:slots nil) - (:add-slots ((:file-pathname nil) (:file-map nil))))) + (:add-slots ((:file-map nil) (:file-pathname nil))))) (:id 11)) (:box (:type :abstraction) (:reference (:patch - (:om-version 0.03) (:name "OMLOOP") (:doc "") - (:info (:created nil) (:modified nil)) + (:info (:created nil) (:modified nil) (:by nil) (:version nil)) (:window (:size (389 399)) (:position (295 276))) (:grid nil) (:lock nil) @@ -414,11 +412,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "BPF") (:display :hidden) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -461,13 +457,7 @@ (:decimals 0) (:x-points (:list 0 100)) (:y-points (:list 0 100)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name "BPF") - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil))))))) + (:add-slots ((:name "BPF"))))) (:id 4)) (:box (:type :special) @@ -522,30 +512,12 @@ (:outputs (:output (:name "i") (:reactive nil))) (:id 6))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 6 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 4 :in 3)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 5 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 3 :out 1)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 3 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 4 :in 2)) - (:attributes (:color nil :style nil :modif nil)))))) + (:connection (:from (:box 0 :out 0)) (:to (:box 6 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 4 :in 3))) + (:connection (:from (:box 3 :out 0)) (:to (:box 5 :in 0))) + (:connection (:from (:box 3 :out 1)) (:to (:box 1 :in 0))) + (:connection (:from (:box 4 :out 0)) (:to (:box 3 :in 0))) + (:connection (:from (:box 6 :out 0)) (:to (:box 4 :in 2)))))) (:group-id nil) (:name "OMLOOP") (:x 140) @@ -558,7 +530,6 @@ (:text-font nil) (:align :center) (:display :mini-view) - (:group-id nil) (:lock nil) (:lambda nil) (:pre-delay 0) @@ -584,10 +555,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "BPF-LIB") (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -707,13 +676,7 @@ 3.0E-4 0.0 0.0)))) - (:add-slots - ((:decimals 4) - (:color (:color 0.0 0.0 0.0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -811,13 +774,7 @@ 3.0E-4 4.0E-4 0.0)))) - (:add-slots - ((:decimals 4) - (:color (:color 0.0 0.0 0.0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -921,13 +878,7 @@ 0.0 0.0 0.0)))) - (:add-slots - ((:decimals 4) - (:color (:color 0.0 0.0 0.0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -1031,13 +982,7 @@ 5.0E-4 0.0011 3.0E-4)))) - (:add-slots - ((:decimals 4) - (:color (:color 0.0 0.0 0.0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -1143,13 +1088,7 @@ 0.0021 6.0E-4 0.0)))) - (:add-slots - ((:decimals 4) - (:color (:color 0.0 0.0 0.0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -1161,13 +1100,7 @@ (:decimals 4) (:x-points (:list 0.0 10.0 20.0)) (:y-points (:list 0.0 0.0 0.0)))) - (:add-slots - ((:decimals 4) - (:color (:color 0.0 0.0 0.0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -1179,13 +1112,7 @@ (:decimals 4) (:x-points (:list 0.0 10.0 20.0)) (:y-points (:list 0.0012 0.0028 3.0E-4)))) - (:add-slots - ((:decimals 4) - (:color (:color 0.0 0.0 0.0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -1197,13 +1124,7 @@ (:decimals 4) (:x-points (:list 0.0 10.0 20.0 30.0 40.0 50.0)) (:y-points (:list 0.0025 0.0056 6.0E-4 0.0 0.0 0.0)))) - (:add-slots - ((:decimals 4) - (:color (:color 0.0 0.0 0.0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -1217,13 +1138,7 @@ (:list 0.0 10.0 20.0 30.0 40.0 50.0 60.0 70.0 80.0)) (:y-points (:list 3.0E-4 3.0E-4 3.0E-4 0.0 0.0 0.0 3.0E-4 0.0 0.0)))) - (:add-slots - ((:decimals 4) - (:color (:color 0.0 0.0 0.0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -1247,13 +1162,7 @@ 7.0E-4 3.0E-4 3.0E-4)))) - (:add-slots - ((:decimals 4) - (:color (:color 0.0 0.0 0.0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))))))))) + (:add-slots ((:name nil)))))))))) (:id 13)) (:box (:type :value) @@ -1309,6 +1218,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1462,59 +1372,17 @@ (:value 50) (:id 21))) (:connections - (:connection - (:from (:box 6 :out 0)) - (:to (:box 2 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 2 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 2 :in 3)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 11 :out 0)) - (:to (:box 16 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 12 :out 0)) - (:to (:box 13 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 14 :out 0)) - (:to (:box 16 :in 8)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 15 :out 0)) - (:to (:box 16 :in 7)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 16 :out 0)) - (:to (:box 12 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 17 :out 0)) - (:to (:box 16 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 17 :out 0)) - (:to (:box 16 :in 3)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 18 :out 0)) - (:to (:box 16 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 19 :out 0)) - (:to (:box 16 :in 4)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 20 :out 0)) - (:to (:box 16 :in 5)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 21 :out 0)) - (:to (:box 16 :in 6)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 6 :out 0)) (:to (:box 2 :in 1))) + (:connection (:from (:box 7 :out 0)) (:to (:box 2 :in 2))) + (:connection (:from (:box 7 :out 0)) (:to (:box 2 :in 3))) + (:connection (:from (:box 11 :out 0)) (:to (:box 16 :in 0))) + (:connection (:from (:box 12 :out 0)) (:to (:box 13 :in 1))) + (:connection (:from (:box 14 :out 0)) (:to (:box 16 :in 8))) + (:connection (:from (:box 15 :out 0)) (:to (:box 16 :in 7))) + (:connection (:from (:box 16 :out 0)) (:to (:box 12 :in 0))) + (:connection (:from (:box 17 :out 0)) (:to (:box 16 :in 2))) + (:connection (:from (:box 17 :out 0)) (:to (:box 16 :in 3))) + (:connection (:from (:box 18 :out 0)) (:to (:box 16 :in 1))) + (:connection (:from (:box 19 :out 0)) (:to (:box 16 :in 4))) + (:connection (:from (:box 20 :out 0)) (:to (:box 16 :in 5))) + (:connection (:from (:box 21 :out 0)) (:to (:box 16 :in 6))))) \ No newline at end of file diff --git a/om/help-patches/SDIF/03-sdif-to-objects.opat b/om/help-patches/SDIF/03-sdif-to-objects.opat index 8e0725b4f..68045ac4d 100644 --- a/om/help-patches/SDIF/03-sdif-to-objects.opat +++ b/om/help-patches/SDIF/03-sdif-to-objects.opat @@ -1,11 +1,12 @@ (:patch - (:om-version 0.03) (:name "03-sdif-to-objects") (:doc "") (:info (:created "2019/09/23 11:39:16") - (:modified "2019/09/23 12:13:31")) + (:modified "2020/01/02 8:48:15") + (:by "om-sharp") + (:version 1.0)) (:window (:size (1063 837)) (:position (480 30))) (:grid nil) (:lock nil) @@ -21,7 +22,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :italic))) + (:font (:font (:face "Calibri") (:size 14) (:style :italic))) (:t-or-nil t))) (:align nil) (:text @@ -41,11 +42,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "CHORD-SEQ") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -103,9 +102,11 @@ ((:onset 0) (:duration 4992) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "CHORD-SEQ") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) + (:extras nil) (:lmidic (:list (:list 6550 5970 7198) @@ -469,246 +470,64 @@ (:list 1 1 1))) (:lport (:list - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil)) - (:llegato nil))) - (:add-slots - ((:loffset - (:list - (:list 0 0 0) - (:list 0 0 0 0) - (:list 0 0 0 0 0) - (:list 0 0 0) - (:list 0 0 0 0) - (:list 0 0) - (:list 0 0 0 0) - (:list 0 0 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0 0) - (:list 0 0 0 0) - (:list 0 0 0 0 0) - (:list 0 0 0) - (:list 0 0 0) - (:list 0 0 0 0) - (:list 0 0 0 0) - (:list 0 0 0 0) - (:list 0) - (:list 0 0 0) - (:list 0 0 0 0 0) - (:list 0) - (:list 0 0 0) - (:list 0 0 0 0) - (:list 0 0 0 0) - (:list 0 0 0 0) - (:list 0) - (:list 0 0 0) - (:list 0 0 0 0 0) - (:list 0 0 0 0 0) - (:list 0 0 0 0) - (:list 0 0 0) - (:list 0 0 0) - (:list 0 0 0) - (:list 0 0 0 0) - (:list 0 0 0) - (:list 0 0 0) - (:list 0 0 0 0 0 0) - (:list 0 0 0 0 0) - (:list 0 0 0) - (:list 0 0 0) - (:list 0 0 0) - (:list 0 0 0 0) - (:list 0) - (:list 0 0 0) - (:list 0 0 0) - (:list 0 0 0 0 0) - (:list 0 0 0 0) - (:list 0 0) - (:list 0 0 0) - (:list 0 0) - (:list 0) - (:list 0 0 0 0) - (:list 0 0 0 0) - (:list 0) - (:list 0 0 0) - (:list 0 0 0 0 0 0) - (:list 0 0 0))) - (:lchan - (:list - (:list 1 1 1) - (:list 1 1 1 1) - (:list 1 1 1 1 1) - (:list 1 1 1) - (:list 1 1 1 1) - (:list 1 1) - (:list 1 1 1 1) - (:list 1 1 1 1) - (:list 1 1) - (:list 1 1) - (:list 1 1 1) - (:list 1 1 1 1) - (:list 1 1 1 1 1) - (:list 1 1 1) - (:list 1 1 1) - (:list 1 1 1 1) - (:list 1 1 1 1) - (:list 1 1 1 1) - (:list 1) - (:list 1 1 1) - (:list 1 1 1 1 1) - (:list 1) - (:list 1 1 1) - (:list 1 1 1 1) - (:list 1 1 1 1) - (:list 1 1 1 1) - (:list 1) - (:list 1 1 1) - (:list 1 1 1 1 1) - (:list 1 1 1 1 1) - (:list 1 1 1 1) - (:list 1 1 1) - (:list 1 1 1) - (:list 1 1 1) - (:list 1 1 1 1) - (:list 1 1 1) - (:list 1 1 1) - (:list 1 1 1 1 1 1) - (:list 1 1 1 1 1) - (:list 1 1 1) - (:list 1 1 1) - (:list 1 1 1) - (:list 1 1 1 1) - (:list 1) - (:list 1 1 1) - (:list 1 1 1) - (:list 1 1 1 1 1) - (:list 1 1 1 1) - (:list 1 1) - (:list 1 1 1) - (:list 1 1) - (:list 1) - (:list 1 1 1 1) - (:list 1 1 1 1) - (:list 1) - (:list 1 1 1) - (:list 1 1 1 1 1 1) - (:list 1 1 1))) - (:lport - (:list - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil)) + (:list nil nil nil) + (:list nil nil nil nil) + (:list nil nil nil nil nil) + (:list nil nil nil) + (:list nil nil nil nil) + (:list nil nil) + (:list nil nil nil nil) + (:list nil nil nil nil) + (:list nil nil) + (:list nil nil) + (:list nil nil nil) + (:list nil nil nil nil) + (:list nil nil nil nil nil) + (:list nil nil nil) + (:list nil nil nil) + (:list nil nil nil nil) + (:list nil nil nil nil) + (:list nil nil nil nil) + (:list nil) + (:list nil nil nil) + (:list nil nil nil nil nil) + (:list nil) + (:list nil nil nil) + (:list nil nil nil nil) + (:list nil nil nil nil) + (:list nil nil nil nil) + (:list nil) + (:list nil nil nil) + (:list nil nil nil nil nil) + (:list nil nil nil nil nil) + (:list nil nil nil nil) + (:list nil nil nil) + (:list nil nil nil) + (:list nil nil nil) + (:list nil nil nil nil) + (:list nil nil nil) + (:list nil nil nil) + (:list nil nil nil nil nil nil) + (:list nil nil nil nil nil) + (:list nil nil nil) + (:list nil nil nil) + (:list nil nil nil) + (:list nil nil nil nil) + (:list nil) + (:list nil nil nil) + (:list nil nil nil) + (:list nil nil nil nil nil) + (:list nil nil nil nil) + (:list nil nil) + (:list nil nil nil) + (:list nil nil) + (:list nil) + (:list nil nil nil nil) + (:list nil nil nil nil) + (:list nil) + (:list nil nil nil) + (:list nil nil nil nil nil nil) + (:list nil nil nil))) (:llegato nil))))) (:id 1)) (:comment @@ -722,7 +541,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 14) (:style :plain))) (:t-or-nil t))) (:align nil) (:text @@ -740,7 +559,7 @@ The following functiona apprioximate these data to sequences of notes or directl (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :bold))) + (:font (:font (:face "Calibri") (:size 14) (:style :bold))) (:t-or-nil t))) (:align nil) (:text "BPF") @@ -759,11 +578,9 @@ The following functiona apprioximate these data to sequences of notes or directl (:roundness nil) (:text-font nil) (:align :center) - (:name "BPF") (:display :mini-view) (:showname t) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -1654,12 +1471,7 @@ The following functiona apprioximate these data to sequences of notes or directl 0.0 0.0 0.0)))) - (:add-slots - ((:decimals 2) - (:color (:color 0.0 0.0 0.0 1.0)) - (:name "BPF") - (:action nil) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))))))) + (:add-slots ((:name "BPF"))))) (:id 4)) (:box (:type :object) @@ -1675,10 +1487,8 @@ The following functiona apprioximate these data to sequences of notes or directl (:roundness nil) (:text-font nil) (:align :center) - (:name "a01-cut.sdif") (:display :hidden) (:showname t) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -1693,23 +1503,8 @@ The following functiona apprioximate these data to sequences of notes or directl (:value (:object (:class sdiffile) - (:slots nil) (:add-slots - ((:file-pathname - (:pathname - (:directory - (:absolute - "Users" - "bresson" - "_SHARED-FILES" - "WORKSPACES" - "my-workspace" - "out-files")) - (:device :unspecific) - (:host :unspecific) - (:name "f0") - (:type "sdif"))) - (:file-map + ((:file-map (:list (:fstream-desc (:id 0) @@ -1725,7 +1520,25 @@ The following functiona apprioximate these data to sequences of notes or directl (:rmax 1) (:tmin 0.04642857142857143D0) (:tmax 2.4961337868480724D0) - (:nf 423))))))))))) + (:nf 423))))))) + (:file-pathname + (:pathname + (:directory + (:relative + :up + :up + :up + :up + :up + :up + "_SHARED-FILES" + "WORKSPACES" + "my-workspace" + "out-files")) + (:device :unspecific) + (:host :unspecific) + (:name "f0") + (:type "sdif"))))))) (:id 5)) (:comment (:x 376) @@ -1738,7 +1551,7 @@ The following functiona apprioximate these data to sequences of notes or directl (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 14) (:style :plain))) (:t-or-nil t))) (:align nil) (:text @@ -1758,7 +1571,7 @@ Other type of data can be extracted by setting the optional inputs.") (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :bold))) + (:font (:font (:face "Calibri") (:size 14) (:style :bold))) (:t-or-nil t))) (:align nil) (:text "CHORDS") @@ -1777,6 +1590,7 @@ Other type of data can be extracted by setting the optional inputs.") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1797,10 +1611,8 @@ Other type of data can be extracted by setting the optional inputs.") (:roundness nil) (:text-font nil) (:align :center) - (:name "africa.mrk.sdif") (:display :text) (:showname t) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -1815,26 +1627,8 @@ Other type of data can be extracted by setting the optional inputs.") (:value (:object (:class sdiffile) - (:slots nil) (:add-slots - ((:file-pathname - (:pathname - (:directory - (:absolute - "Users" - "bresson" - "_SHARED-FILES" - "OM" - "OM-VERSIONS" - "OM-5.2.1-Linux" - "workspaces" - "OMWorkspace" - "in-files")) - (:device :unspecific) - (:host :unspecific) - (:name "africa.cs") - (:type "sdif"))) - (:file-map + ((:file-map (:list (:fstream-desc (:id 0) @@ -1864,7 +1658,28 @@ Other type of data can be extracted by setting the optional inputs.") (:rmax 6) (:tmin 0.08387000113725662D0) (:tmax 4.991918087005615D0) - (:nf 58))))))))))) + (:nf 58))))))) + (:file-pathname + (:pathname + (:directory + (:relative + :up + :up + :up + :up + :up + :up + "_SHARED-FILES" + "OM" + "OM-VERSIONS" + "OM-5.2.1-Linux" + "workspaces" + "OMWorkspace" + "in-files")) + (:device :unspecific) + (:host :unspecific) + (:name "africa.cs") + (:type "sdif"))))))) (:id 9)) (:box (:type :function) @@ -1880,6 +1695,7 @@ Other type of data can be extracted by setting the optional inputs.") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1904,6 +1720,7 @@ Other type of data can be extracted by setting the optional inputs.") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1928,6 +1745,7 @@ Other type of data can be extracted by setting the optional inputs.") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1952,6 +1770,7 @@ Other type of data can be extracted by setting the optional inputs.") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1973,7 +1792,7 @@ Other type of data can be extracted by setting the optional inputs.") (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :bold))) + (:font (:font (:face "Calibri") (:size 14) (:style :bold))) (:t-or-nil t))) (:align nil) (:text @@ -1990,7 +1809,7 @@ Other type of data can be extracted by setting the optional inputs.") (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 18.0D0) (:style :bold))) + (:font (:font (:face "Calibri") (:size 18) (:style :bold))) (:t-or-nil t))) (:align nil) (:text "Make OM objects and data from SDIF files") @@ -2006,7 +1825,7 @@ Other type of data can be extracted by setting the optional inputs.") (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :bold))) + (:font (:font (:face "Calibri") (:size 14) (:style :bold))) (:t-or-nil t))) (:align nil) (:text "Markers") @@ -2022,7 +1841,7 @@ Other type of data can be extracted by setting the optional inputs.") (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 14) (:style :plain))) (:t-or-nil t))) (:align nil) (:text @@ -2031,31 +1850,10 @@ Other type of data can be extracted by setting the optional inputs.") Default values read 1MRK frames, typically resulting from markers or transient detection analyses. More specific type of data can be extracted by setting the optional inputs.") (:id 17))) (:connections - (:connection - (:from (:box 5 :out 0)) - (:to (:box 11 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 9 :out 0)) - (:to (:box 10 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 9 :out 0)) - (:to (:box 12 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 9 :out 0)) - (:to (:box 13 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 11 :out 0)) - (:to (:box 4 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 12 :out 0)) - (:to (:box 8 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 13 :out 0)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 5 :out 0)) (:to (:box 11 :in 0))) + (:connection (:from (:box 9 :out 0)) (:to (:box 10 :in 0))) + (:connection (:from (:box 9 :out 0)) (:to (:box 12 :in 0))) + (:connection (:from (:box 9 :out 0)) (:to (:box 13 :in 0))) + (:connection (:from (:box 11 :out 0)) (:to (:box 4 :in 0))) + (:connection (:from (:box 12 :out 0)) (:to (:box 8 :in 0))) + (:connection (:from (:box 13 :out 0)) (:to (:box 1 :in 0))))) \ No newline at end of file diff --git a/om/help-patches/SDIF/04-sdif-classes.opat b/om/help-patches/SDIF/04-sdif-classes.opat index 3f64717bc..b027802c4 100644 --- a/om/help-patches/SDIF/04-sdif-classes.opat +++ b/om/help-patches/SDIF/04-sdif-classes.opat @@ -1,11 +1,12 @@ (:patch - (:om-version 0.03) (:name "04-sdif-classes") (:doc "") (:info (:created "2019/09/23 11:58:39") - (:modified "2019/09/23 12:10:02")) + (:modified "2020/01/02 8:48:15") + (:by "om-sharp") + (:version 1.0)) (:window (:size (1174 666)) (:position (429 91))) (:grid nil) (:lock nil) @@ -38,7 +39,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 18.0D0) (:style :bold))) + (:font (:font (:face "Calibri") (:size 18) (:style :bold))) (:t-or-nil t))) (:align nil) (:text "SDIFFRAME") @@ -57,10 +58,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "SDIFFRAME") (:display :text) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -122,7 +121,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 18.0D0) (:style :bold))) + (:font (:font (:face "Calibri") (:size 18) (:style :bold))) (:t-or-nil t))) (:align nil) (:text "SDIFMATRIX") @@ -138,7 +137,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 18.0D0) (:style :bold))) + (:font (:font (:face "Calibri") (:size 18) (:style :bold))) (:t-or-nil t))) (:align nil) (:text "SDIFTYPE") @@ -155,7 +154,7 @@ (:text-font (:font-or-nil (:font - (:font (:face "Calibri") (:size 12.0D0) (:style :bold :italic))) + (:font (:face "Calibri") (:size 12) (:style :bold :italic))) (:t-or-nil t))) (:align nil) (:text @@ -231,7 +230,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 24.0D0) (:style :bold))) + (:font (:font (:face "Calibri") (:size 24) (:style :bold))) (:t-or-nil t))) (:align nil) (:text "SDIF Classes") @@ -250,10 +249,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "SDIFTYPE") (:display :text) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -326,10 +323,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "SDIFTYPE") (:display :text) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -383,10 +378,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "SDIFMATRIX1") (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -427,8 +420,7 @@ (:list 1.0 2.0 4.0 9.0 7.0) (:list 2.0 4.0 9.0 7.0 8.0) (:list 1.0 2.0 7.0 12.0 15))) - (:matrixtype "XMAT"))) - (:add-slots ((:field-names (:list "f1" "f2" "f3")))))) + (:matrixtype "XMAT"))))) (:id 14)) (:box (:type :value) @@ -615,43 +607,13 @@ (:list 1.0 2.0 7.0 12.0 15))) (:id 23))) (:connections - (:connection - (:from (:box 12 :out 0)) - (:to (:box 14 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 15 :out 0)) - (:to (:box 14 :in 3)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 16 :out 0)) - (:to (:box 11 :in 3)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 17 :out 0)) - (:to (:box 11 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 18 :out 0)) - (:to (:box 11 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 19 :out 0)) - (:to (:box 13 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 20 :out 0)) - (:to (:box 13 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 21 :out 0)) - (:to (:box 13 :in 3)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 22 :out 0)) - (:to (:box 2 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 23 :out 0)) - (:to (:box 14 :in 2)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 12 :out 0)) (:to (:box 14 :in 1))) + (:connection (:from (:box 15 :out 0)) (:to (:box 14 :in 3))) + (:connection (:from (:box 16 :out 0)) (:to (:box 11 :in 3))) + (:connection (:from (:box 17 :out 0)) (:to (:box 11 :in 2))) + (:connection (:from (:box 18 :out 0)) (:to (:box 11 :in 1))) + (:connection (:from (:box 19 :out 0)) (:to (:box 13 :in 1))) + (:connection (:from (:box 20 :out 0)) (:to (:box 13 :in 2))) + (:connection (:from (:box 21 :out 0)) (:to (:box 13 :in 3))) + (:connection (:from (:box 22 :out 0)) (:to (:box 2 :in 1))) + (:connection (:from (:box 23 :out 0)) (:to (:box 14 :in 2))))) \ No newline at end of file diff --git a/om/help-patches/SDIF/05-sdif-write-sdif-file.opat b/om/help-patches/SDIF/05-sdif-write-sdif-file.opat index 14c44745d..fd63cc52c 100644 --- a/om/help-patches/SDIF/05-sdif-write-sdif-file.opat +++ b/om/help-patches/SDIF/05-sdif-write-sdif-file.opat @@ -1,12 +1,13 @@ (:patch - (:om-version 0.03) (:name "05-sdif-write-sdif-file") (:doc "") (:info (:created "2019/09/23 12:15:29") - (:modified "2019/09/23 14:53:11")) - (:window (:size (1038 673)) (:position (882 345))) + (:modified "2020/01/02 8:48:15") + (:by "om-sharp") + (:version 1.0)) + (:window (:size (1038 673)) (:position (642 345))) (:grid nil) (:lock nil) (:boxes @@ -82,6 +83,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -212,6 +214,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -236,10 +239,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "SDIFFILE") (:display :mini-view) (:showname t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -254,16 +255,8 @@ (:value (:object (:class sdiffile) - (:slots nil) (:add-slots - ((:file-pathname - (:pathname - (:directory (:absolute "Users" "bresson" "OM" "out-files")) - (:device :unspecific) - (:host :unspecific) - (:name "test") - (:type "sdif"))) - (:file-map + ((:file-map (:list (:fstream-desc (:id 0) @@ -286,7 +279,15 @@ (:rmax 10) (:tmin 0.22322416305541992D0) (:tmax 9.667390823364258D0) - (:nf 60))))))))))) + (:nf 60))))))) + (:file-pathname + (:pathname + (:directory + (:relative :up :up :up :up :up :up "OM" "out-files")) + (:device :unspecific) + (:host :unspecific) + (:name "test") + (:type "sdif"))))))) (:id 12)) (:box (:type :function) @@ -302,6 +303,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -361,6 +363,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -387,10 +390,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "SDIFTYPE") (:display :text) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -463,10 +464,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "SDIFTYPE") (:display :text) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -519,10 +518,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "SDIFTYPE") (:display :text) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -576,6 +573,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -641,10 +639,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "SDIFMATRIX") (:display :hidden) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -675,8 +671,7 @@ (:slots ((:field-names nil) (:data (:list (:list 4))) - (:matrixtype "XNFO"))) - (:add-slots ((:field-names nil))))) + (:matrixtype "XNFO"))))) (:id 23)) (:box (:type :object) @@ -692,10 +687,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "SDIFFRAME") (:display :text) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -751,8 +744,7 @@ (:slots ((:field-names nil) (:data (:list (:list 4))) - (:matrixtype "XNFO"))) - (:add-slots ((:field-names nil)))) + (:matrixtype "XNFO")))) (:object (:class sdifmatrix) (:slots @@ -782,8 +774,7 @@ 38.47473 41.72222 100.0))) - (:matrixtype "XMAT"))) - (:add-slots ((:field-names nil)))))))))) + (:matrixtype "XMAT")))))))))) (:id 24)) (:box (:type :object) @@ -799,10 +790,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "SDIFMATRIX1") (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -857,8 +846,7 @@ 38.47473 41.72222 100.0))) - (:matrixtype "XMAT"))) - (:add-slots ((:field-names nil))))) + (:matrixtype "XMAT"))))) (:id 25)) (:box (:type :object) @@ -874,11 +862,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "BPF") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -921,12 +907,7 @@ (:decimals 0) (:x-points (:list 0 18 32 40 42 67 78 94 100)) (:y-points (:list 0 60 54 10 44 13 39 43 100)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name "BPF") - (:action nil) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))))))) + (:add-slots ((:name "BPF"))))) (:id 26)) (:box (:type :special) @@ -992,6 +973,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1041,6 +1023,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1073,6 +1056,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1119,6 +1103,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1149,6 +1134,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1174,6 +1160,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda :lambda) (:inputs @@ -1305,147 +1292,39 @@ (:value 10.0) (:id 42))) (:connections - (:connection - (:from (:box 2 :out 0)) - (:to (:box 3 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 27 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 10 :out 0)) - (:to (:box 11 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 11 :out 0)) - (:to (:box 34 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 13 :out 0)) - (:to (:box 24 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 14 :out 0)) - (:to (:box 35 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 15 :out 0)) - (:to (:box 34 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 16 :out 0)) - (:to (:box 15 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 17 :out 0)) - (:to (:box 25 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 18 :out 0)) - (:to (:box 15 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 19 :out 0)) - (:to (:box 15 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 20 :out 0)) - (:to (:box 24 :in 4)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 21 :out 0)) - (:to (:box 23 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 22 :out 0)) - (:to (:box 23 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 23 :out 0)) - (:to (:box 20 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 24 :out 0)) - (:to (:box 14 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 25 :out 0)) - (:to (:box 20 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 26 :out 0)) - (:to (:box 31 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 27 :out 0)) - (:to (:box 32 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 28 :out 0)) - (:to (:box 27 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 28 :out 0)) - (:to (:box 29 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 28 :out 0)) - (:to (:box 31 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 29 :out 0)) - (:to (:box 32 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 30 :out 0)) - (:to (:box 29 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 31 :out 2)) - (:to (:box 32 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 32 :out 0)) - (:to (:box 25 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 33 :out 0)) - (:to (:box 3 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 34 :out 0)) - (:to (:box 12 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 35 :out 0)) - (:to (:box 34 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 36 :out 0)) - (:to (:box 35 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 37 :out 0)) - (:to (:box 14 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 38 :out 0)) - (:to (:box 19 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 39 :out 0)) - (:to (:box 18 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 40 :out 0)) - (:to (:box 16 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 41 :out 0)) - (:to (:box 24 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 42 :out 0)) - (:to (:box 13 :in 1)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 2 :out 0)) (:to (:box 3 :in 0))) + (:connection (:from (:box 3 :out 0)) (:to (:box 27 :in 0))) + (:connection (:from (:box 10 :out 0)) (:to (:box 11 :in 0))) + (:connection (:from (:box 11 :out 0)) (:to (:box 34 :in 1))) + (:connection (:from (:box 13 :out 0)) (:to (:box 24 :in 2))) + (:connection (:from (:box 14 :out 0)) (:to (:box 35 :in 0))) + (:connection (:from (:box 15 :out 0)) (:to (:box 34 :in 2))) + (:connection (:from (:box 16 :out 0)) (:to (:box 15 :in 2))) + (:connection (:from (:box 17 :out 0)) (:to (:box 25 :in 1))) + (:connection (:from (:box 18 :out 0)) (:to (:box 15 :in 1))) + (:connection (:from (:box 19 :out 0)) (:to (:box 15 :in 0))) + (:connection (:from (:box 20 :out 0)) (:to (:box 24 :in 4))) + (:connection (:from (:box 21 :out 0)) (:to (:box 23 :in 1))) + (:connection (:from (:box 22 :out 0)) (:to (:box 23 :in 2))) + (:connection (:from (:box 23 :out 0)) (:to (:box 20 :in 0))) + (:connection (:from (:box 24 :out 0)) (:to (:box 14 :in 0))) + (:connection (:from (:box 25 :out 0)) (:to (:box 20 :in 1))) + (:connection (:from (:box 26 :out 0)) (:to (:box 31 :in 0))) + (:connection (:from (:box 27 :out 0)) (:to (:box 32 :in 0))) + (:connection (:from (:box 28 :out 0)) (:to (:box 27 :in 1))) + (:connection (:from (:box 28 :out 0)) (:to (:box 29 :in 0))) + (:connection (:from (:box 28 :out 0)) (:to (:box 31 :in 1))) + (:connection (:from (:box 29 :out 0)) (:to (:box 32 :in 1))) + (:connection (:from (:box 30 :out 0)) (:to (:box 29 :in 1))) + (:connection (:from (:box 31 :out 2)) (:to (:box 32 :in 2))) + (:connection (:from (:box 32 :out 0)) (:to (:box 25 :in 2))) + (:connection (:from (:box 33 :out 0)) (:to (:box 3 :in 1))) + (:connection (:from (:box 34 :out 0)) (:to (:box 12 :in 0))) + (:connection (:from (:box 35 :out 0)) (:to (:box 34 :in 0))) + (:connection (:from (:box 36 :out 0)) (:to (:box 35 :in 1))) + (:connection (:from (:box 37 :out 0)) (:to (:box 14 :in 1))) + (:connection (:from (:box 38 :out 0)) (:to (:box 19 :in 2))) + (:connection (:from (:box 39 :out 0)) (:to (:box 18 :in 2))) + (:connection (:from (:box 40 :out 0)) (:to (:box 16 :in 2))) + (:connection (:from (:box 41 :out 0)) (:to (:box 24 :in 1))) + (:connection (:from (:box 42 :out 0)) (:to (:box 13 :in 1))))) \ No newline at end of file diff --git a/om/help-patches/SDIF/06-sdif-write-loop.opat b/om/help-patches/SDIF/06-sdif-write-loop.opat index b118b5324..0f61b1c87 100644 --- a/om/help-patches/SDIF/06-sdif-write-loop.opat +++ b/om/help-patches/SDIF/06-sdif-write-loop.opat @@ -1,11 +1,12 @@ (:patch - (:om-version 0.03) (:name "06-sdif-write-loop") (:doc "") (:info (:created "2019/09/23 12:34:45") - (:modified "2019/09/23 15:04:47")) + (:modified "2020/01/02 8:48:15") + (:by "om-sharp") + (:version 1.0)) (:window (:size (665 645)) (:position (146 86))) (:grid nil) (:lock nil) @@ -127,6 +128,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -151,10 +153,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "BPF-LIB1") (:display :mini-view) (:showname nil) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -292,13 +292,7 @@ 45 59 88)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -412,13 +406,7 @@ 43 57 85)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -532,13 +520,7 @@ 42 55 81)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -652,13 +634,7 @@ 40 52 78)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -772,13 +748,7 @@ 39 50 74)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -892,13 +862,7 @@ 37 48 71)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -1012,13 +976,7 @@ 36 46 67)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -1132,13 +1090,7 @@ 35 44 64)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -1252,13 +1204,7 @@ 33 42 60)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -1372,13 +1318,7 @@ 32 40 57)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -1492,13 +1432,7 @@ 30 38 53)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -1612,13 +1546,7 @@ 29 36 50)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -1732,13 +1660,7 @@ 28 34 46)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -1852,13 +1774,7 @@ 26 32 43)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -1972,13 +1888,7 @@ 25 30 39)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -2092,13 +2002,7 @@ 23 27 36)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -2212,13 +2116,7 @@ 22 25 32)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -2332,13 +2230,7 @@ 20 23 29)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -2452,13 +2344,7 @@ 19 21 25)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -2572,13 +2458,7 @@ 18 19 22)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -2692,13 +2572,7 @@ 15 15 15)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -2812,13 +2686,7 @@ 15 15 15)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -2932,13 +2800,7 @@ 15 15 15)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -3052,13 +2914,7 @@ 15 15 15)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -3172,13 +3028,7 @@ 15 15 15)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -3292,13 +3142,7 @@ 15 15 15)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -3412,13 +3256,7 @@ 15 15 15)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -3532,13 +3370,7 @@ 15 15 15)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -3652,13 +3484,7 @@ 15 15 15)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -3772,13 +3598,7 @@ 15 15 15)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -3892,13 +3712,7 @@ 15 15 15)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -4012,13 +3826,7 @@ 15 15 15)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -4132,13 +3940,7 @@ 15 15 15)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -4252,13 +4054,7 @@ 15 15 15)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -4372,13 +4168,7 @@ 15 15 15)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -4492,13 +4282,7 @@ 15 15 15)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -4612,13 +4396,7 @@ 15 15 15)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -4732,13 +4510,7 @@ 15 15 15)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -4852,13 +4624,7 @@ 15 15 15)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -4972,13 +4738,7 @@ 15 15 15)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -5092,13 +4852,7 @@ 5 2 0)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -5212,13 +4966,7 @@ 6 3 1)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -5332,13 +5080,7 @@ 6 3 1)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -5452,13 +5194,7 @@ 6 4 2)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -5572,13 +5308,7 @@ 7 5 3)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -5692,13 +5422,7 @@ 7 5 4)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -5812,13 +5536,7 @@ 8 6 4)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -5932,13 +5650,7 @@ 8 6 5)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -6052,13 +5764,7 @@ 9 7 6)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -6172,13 +5878,7 @@ 9 8 6)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -6292,13 +5992,7 @@ 10 8 7)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -6412,13 +6106,7 @@ 10 9 8)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -6532,13 +6220,7 @@ 11 9 9)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -6652,13 +6334,7 @@ 11 10 9)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -6772,13 +6448,7 @@ 12 11 10)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -6892,13 +6562,7 @@ 12 11 11)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -7012,13 +6676,7 @@ 12 12 11)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -7132,13 +6790,7 @@ 13 13 12)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -7252,13 +6904,7 @@ 13 13 13)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -7372,13 +7018,7 @@ 14 14 14)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -7492,13 +7132,7 @@ 96 97 100)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -7612,13 +7246,7 @@ 92 93 96)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -7732,13 +7360,7 @@ 88 89 92)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -7852,13 +7474,7 @@ 84 85 88)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -7972,13 +7588,7 @@ 80 81 84)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -8092,13 +7702,7 @@ 76 77 80)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -8212,13 +7816,7 @@ 73 74 76)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -8332,13 +7930,7 @@ 69 70 72)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -8452,13 +8044,7 @@ 65 66 68)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -8572,13 +8158,7 @@ 61 62 64)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -8692,13 +8272,7 @@ 57 58 60)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -8812,13 +8386,7 @@ 53 54 55)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -8932,13 +8500,7 @@ 49 50 51)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -9052,13 +8614,7 @@ 46 46 47)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -9172,13 +8728,7 @@ 42 42 43)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -9292,13 +8842,7 @@ 38 38 39)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -9412,13 +8956,7 @@ 34 35 35)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -9532,13 +9070,7 @@ 30 31 31)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -9652,13 +9184,7 @@ 26 27 27)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))) + (:add-slots ((:name nil)))) (:object (:class bpf) (:slots @@ -9772,13 +9298,7 @@ 22 23 23)))) - (:add-slots - ((:decimals 0) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol - (:number-or-nil (:number 50) (:t-or-nil nil)))))))))))) + (:add-slots ((:name nil)))))))))) (:id 7)) (:box (:type :object) @@ -9794,10 +9314,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "") (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -9812,16 +9330,8 @@ (:value (:object (:class sdiffile) - (:slots nil) (:add-slots - ((:file-pathname - (:pathname - (:directory (:absolute "Users" "bresson" "OM" "out-files")) - (:device nil) - (:host nil) - (:name "mydata") - (:type "sdif"))) - (:file-map + ((:file-map (:list (:fstream-desc (:id 0) @@ -9837,16 +9347,23 @@ (:rmax 50) (:tmin 0.0D0) (:tmax 79.0D0) - (:nf 80))))))))))) + (:nf 80))))))) + (:file-pathname + (:pathname + (:directory + (:relative :up :up :up :up :up :up "OM" "out-files")) + (:device :unspecific) + (:host :unspecific) + (:name "mydata") + (:type "sdif"))))))) (:id 8)) (:box (:type :abstraction) (:reference (:patch - (:om-version 0.03) (:name "WRITE-LOOP") (:doc "") - (:info (:created nil) (:modified nil)) + (:info (:created nil) (:modified nil) (:by nil) (:version nil)) (:window (:size (994 733)) (:position (215 119))) (:grid nil) (:lock nil) @@ -9960,6 +9477,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -10109,6 +9627,7 @@ Write file header with type declarations (optionnaly also NVTs)") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -10172,10 +9691,8 @@ Write file header with type declarations (optionnaly also NVTs)") (:roundness nil) (:text-font nil) (:align :center) - (:name "SDIFFRAME") (:display :hidden) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -10240,6 +9757,7 @@ Write file header with type declarations (optionnaly also NVTs)") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -10264,10 +9782,8 @@ Write file header with type declarations (optionnaly also NVTs)") (:roundness nil) (:text-font nil) (:align :center) - (:name "SDIFMATRIX") (:display :hidden) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -10295,8 +9811,7 @@ Write file header with type declarations (optionnaly also NVTs)") (:value (:object (:class sdifmatrix) - (:slots ((:field-names nil) (:data nil) (:matrixtype nil))) - (:add-slots ((:field-names nil))))) + (:slots ((:field-names nil) (:data nil) (:matrixtype nil))))) (:id 16)) (:box (:type :function) @@ -10312,6 +9827,7 @@ Write file header with type declarations (optionnaly also NVTs)") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -10341,10 +9857,8 @@ Write file header with type declarations (optionnaly also NVTs)") (:roundness nil) (:text-font nil) (:align :center) - (:name "SDIFTYPE") (:display :hidden) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -10400,10 +9914,8 @@ Write file header with type declarations (optionnaly also NVTs)") (:roundness nil) (:text-font nil) (:align :center) - (:name "SDIFTYPE") (:display :hidden) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -10456,6 +9968,7 @@ Write file header with type declarations (optionnaly also NVTs)") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -10590,7 +10103,6 @@ Write file header with type declarations (optionnaly also NVTs)") (:roundness nil) (:text-font nil) (:align :left) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -10628,6 +10140,7 @@ Write file header with type declarations (optionnaly also NVTs)") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -10727,98 +10240,29 @@ Write file header with type declarations (optionnaly also NVTs)") (:value "XFRA") (:id 30))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 23 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 1 :out 0)) - (:to (:box 4 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 1 :out 0)) - (:to (:box 20 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 1 :out 0)) - (:to (:box 2 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 22 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 12 :out 0)) - (:to (:box 14 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 13 :out 0)) - (:to (:box 22 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 13 :out 1)) - (:to (:box 12 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 14 :out 0)) - (:to (:box 4 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 15 :out 0)) - (:to (:box 14 :in 4)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 16 :out 0)) - (:to (:box 15 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 17 :out 0)) - (:to (:box 20 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 18 :out 0)) - (:to (:box 17 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 19 :out 0)) - (:to (:box 17 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 20 :out 0)) - (:to (:box 21 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 23 :out 0)) - (:to (:box 25 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 24 :out 0)) - (:to (:box 16 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 25 :out 2)) - (:to (:box 26 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 26 :out 0)) - (:to (:box 16 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 27 :out 0)) - (:to (:box 13 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 28 :out 0)) - (:to (:box 19 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 29 :out 0)) - (:to (:box 18 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 30 :out 0)) - (:to (:box 14 :in 1)) - (:attributes (:color nil :style nil :modif nil)))))) + (:connection (:from (:box 0 :out 0)) (:to (:box 23 :in 0))) + (:connection (:from (:box 1 :out 0)) (:to (:box 4 :in 1))) + (:connection (:from (:box 1 :out 0)) (:to (:box 20 :in 0))) + (:connection (:from (:box 1 :out 0)) (:to (:box 2 :in 0))) + (:connection (:from (:box 4 :out 0)) (:to (:box 22 :in 0))) + (:connection (:from (:box 12 :out 0)) (:to (:box 14 :in 2))) + (:connection (:from (:box 13 :out 0)) (:to (:box 22 :in 1))) + (:connection (:from (:box 13 :out 1)) (:to (:box 12 :in 0))) + (:connection (:from (:box 14 :out 0)) (:to (:box 4 :in 0))) + (:connection (:from (:box 15 :out 0)) (:to (:box 14 :in 4))) + (:connection (:from (:box 16 :out 0)) (:to (:box 15 :in 0))) + (:connection (:from (:box 17 :out 0)) (:to (:box 20 :in 1))) + (:connection (:from (:box 18 :out 0)) (:to (:box 17 :in 1))) + (:connection (:from (:box 19 :out 0)) (:to (:box 17 :in 0))) + (:connection (:from (:box 20 :out 0)) (:to (:box 21 :in 0))) + (:connection (:from (:box 23 :out 0)) (:to (:box 25 :in 0))) + (:connection (:from (:box 24 :out 0)) (:to (:box 16 :in 1))) + (:connection (:from (:box 25 :out 2)) (:to (:box 26 :in 0))) + (:connection (:from (:box 26 :out 0)) (:to (:box 16 :in 2))) + (:connection (:from (:box 27 :out 0)) (:to (:box 13 :in 0))) + (:connection (:from (:box 28 :out 0)) (:to (:box 19 :in 2))) + (:connection (:from (:box 29 :out 0)) (:to (:box 18 :in 2))) + (:connection (:from (:box 30 :out 0)) (:to (:box 14 :in 1)))))) (:group-id nil) (:name "WRITE-LOOP") (:x 259) @@ -10831,7 +10275,6 @@ Write file header with type declarations (optionnaly also NVTs)") (:text-font nil) (:align :center) (:display :mini-view) - (:group-id nil) (:lock nil) (:lambda nil) (:pre-delay 0) @@ -10862,6 +10305,7 @@ Write file header with type declarations (optionnaly also NVTs)") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -10891,6 +10335,7 @@ Write file header with type declarations (optionnaly also NVTs)") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -10918,27 +10363,9 @@ Write file header with type declarations (optionnaly also NVTs)") (:text "Stream direction = :output") (:id 12))) (:connections - (:connection - (:from (:box 5 :out 0)) - (:to (:box 6 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 10 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 1)) - (:to (:box 9 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 9 :out 0)) - (:to (:box 11 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 10 :out 0)) - (:to (:box 9 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 11 :out 0)) - (:to (:box 8 :in 0)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 5 :out 0)) (:to (:box 6 :in 0))) + (:connection (:from (:box 6 :out 0)) (:to (:box 10 :in 0))) + (:connection (:from (:box 7 :out 1)) (:to (:box 9 :in 0))) + (:connection (:from (:box 9 :out 0)) (:to (:box 11 :in 0))) + (:connection (:from (:box 10 :out 0)) (:to (:box 9 :in 1))) + (:connection (:from (:box 11 :out 0)) (:to (:box 8 :in 0))))) \ No newline at end of file diff --git a/om/help-patches/SDIF/07-sdif-write-objects.opat b/om/help-patches/SDIF/07-sdif-write-objects.opat index d66ca0736..47c61eec9 100644 --- a/om/help-patches/SDIF/07-sdif-write-objects.opat +++ b/om/help-patches/SDIF/07-sdif-write-objects.opat @@ -1,11 +1,12 @@ (:patch - (:om-version 0.03) (:name "07-sdif-write-objects") (:doc "") (:info (:created "2019/09/23 15:05:09") - (:modified "2019/09/23 15:11:51")) + (:modified "2020/01/02 8:48:15") + (:by "om-sharp") + (:version 1.0)) (:window (:size (779 780)) (:position (544 158))) (:grid nil) (:lock nil) @@ -24,10 +25,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "") (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -42,16 +41,8 @@ (:value (:object (:class sdiffile) - (:slots nil) (:add-slots - ((:file-pathname - (:pathname - (:directory (:absolute "Users" "bresson" "OM" "out-files")) - (:device :unspecific) - (:host :unspecific) - (:name "cseq") - (:type "sdif"))) - (:file-map + ((:file-map (:list (:fstream-desc (:id 0) @@ -81,7 +72,15 @@ (:rmax 1) (:tmin 1.0D0) (:tmax 8.0D0) - (:nf 14))))))))))) + (:nf 14))))))) + (:file-pathname + (:pathname + (:directory + (:relative :up :up :up :up :up :up "OM" "out-files")) + (:device :unspecific) + (:host :unspecific) + (:name "cseq") + (:type "sdif"))))))) (:id 0)) (:box (:type :object) @@ -97,11 +96,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "CHORD-SEQ") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -159,9 +156,11 @@ ((:onset 0) (:duration 8000) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "CHORD-SEQ") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) + (:extras nil) (:lmidic (:list (:list 6000) @@ -195,136 +194,11 @@ 6500 7000 8000)) - (:ldur - (:list - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000) - (:list 1000))) - (:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport - (:list - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil)) - (:llegato nil))) - (:add-slots - ((:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport - (:list - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil)) + (:ldur (:list 1000)) + (:lvel (:list 100)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) (:llegato nil))))) (:id 1)) (:box @@ -341,10 +215,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "") (:display :mini-view) (:showname t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -359,16 +231,8 @@ (:value (:object (:class sdiffile) - (:slots nil) (:add-slots - ((:file-pathname - (:pathname - (:directory (:absolute "Users" "bresson" "OM" "out-files")) - (:device nil) - (:host nil) - (:name "markers") - (:type "sdif"))) - (:file-map + ((:file-map (:list (:fstream-desc (:id 0) @@ -376,7 +240,15 @@ (:tmin 0.0D0) (:tmax 6.0D0) (:nf 5) - (:matrices nil)))))))) + (:matrices nil)))) + (:file-pathname + (:pathname + (:directory + (:relative :up :up :up :up :up :up "OM" "out-files")) + (:device :unspecific) + (:host :unspecific) + (:name "markers") + (:type "sdif"))))))) (:id 2)) (:box (:type :value) @@ -412,6 +284,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -433,10 +306,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "SDIFTYPE") (:display :text) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -489,10 +360,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "SDIFTYPE") (:display :text) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -585,6 +454,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -630,6 +500,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -674,10 +545,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "") (:display :mini-view) (:showname t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -692,16 +561,8 @@ (:value (:object (:class sdiffile) - (:slots nil) (:add-slots - ((:file-pathname - (:pathname - (:directory (:absolute "Users" "bresson" "OM" "out-files")) - (:device nil) - (:host nil) - (:name "bpf2") - (:type "sdif"))) - (:file-map + ((:file-map (:list (:fstream-desc (:id 0) @@ -717,7 +578,15 @@ (:rmax 1) (:tmin 42.53499984741211D0) (:tmax 4237.46484375D0) - (:nf 126))))))))))) + (:nf 126))))))) + (:file-pathname + (:pathname + (:directory + (:relative :up :up :up :up :up :up "OM" "out-files")) + (:device :unspecific) + (:host :unspecific) + (:name "bpf2") + (:type "sdif"))))))) (:id 12)) (:comment (:x 110) @@ -730,7 +599,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 14) (:style :plain))) (:t-or-nil t))) (:align nil) (:text "... or define your own") @@ -746,7 +615,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 14) (:style :plain))) (:t-or-nil t))) (:align nil) (:text "Use predefined types...") @@ -765,10 +634,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "") (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -783,16 +650,8 @@ (:value (:object (:class sdiffile) - (:slots nil) (:add-slots - ((:file-pathname - (:pathname - (:directory (:absolute "Users" "bresson" "OM" "out-files")) - (:device nil) - (:host nil) - (:name "mybpf") - (:type "sdif"))) - (:file-map + ((:file-map (:list (:fstream-desc (:id 0) @@ -808,7 +667,15 @@ (:rmax 1) (:tmin 42.53499984741211D0) (:tmax 4237.46484375D0) - (:nf 126))))))))))) + (:nf 126))))))) + (:file-pathname + (:pathname + (:directory + (:relative :up :up :up :up :up :up "OM" "out-files")) + (:device :unspecific) + (:host :unspecific) + (:name "mybpf") + (:type "sdif"))))))) (:id 15)) (:box (:type :value) @@ -844,6 +711,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -868,11 +736,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "BPF") (:display :mini-view) (:showname t) (:show-markers t) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -1169,12 +1035,7 @@ 7.754 6.159 4.565)))) - (:add-slots - ((:decimals 3) - (:color (:color 0 0 0 1.0)) - (:name nil) - (:action nil) - (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))))))) + (:add-slots ((:name "BPF"))))) (:id 18)) (:box (:type :function) @@ -1190,6 +1051,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1214,6 +1076,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1243,6 +1106,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1280,7 +1144,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 14.0D0) (:style :plain))) + (:font (:font (:face "Calibri") (:size 14) (:style :plain))) (:t-or-nil t))) (:align nil) (:text @@ -1297,7 +1161,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 18.0D0) (:style :bold))) + (:font (:font (:face "Calibri") (:size 18) (:style :bold))) (:t-or-nil t))) (:align nil) (:text "Write an SDIF File from OM Objects") @@ -1323,79 +1187,22 @@ (:value "1FQ0") (:id 24))) (:connections - (:connection - (:from (:box 1 :out 0)) - (:to (:box 19 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 20 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 9 :in 4)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 4 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 4 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 9 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 8 :out 0)) - (:to (:box 9 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 9 :out 0)) - (:to (:box 12 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 10 :out 0)) - (:to (:box 9 :in 5)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 11 :out 0)) - (:to (:box 10 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 16 :out 0)) - (:to (:box 17 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 17 :out 0)) - (:to (:box 21 :in 4)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 18 :out 0)) - (:to (:box 9 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 18 :out 0)) - (:to (:box 21 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 19 :out 0)) - (:to (:box 0 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 20 :out 0)) - (:to (:box 2 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 21 :out 0)) - (:to (:box 15 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 24 :out 0)) - (:to (:box 21 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 24 :out 0)) - (:to (:box 21 :in 2)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 1 :out 0)) (:to (:box 19 :in 0))) + (:connection (:from (:box 3 :out 0)) (:to (:box 20 :in 0))) + (:connection (:from (:box 4 :out 0)) (:to (:box 9 :in 4))) + (:connection (:from (:box 5 :out 0)) (:to (:box 4 :in 1))) + (:connection (:from (:box 6 :out 0)) (:to (:box 4 :in 0))) + (:connection (:from (:box 7 :out 0)) (:to (:box 9 :in 2))) + (:connection (:from (:box 8 :out 0)) (:to (:box 9 :in 1))) + (:connection (:from (:box 9 :out 0)) (:to (:box 12 :in 0))) + (:connection (:from (:box 10 :out 0)) (:to (:box 9 :in 5))) + (:connection (:from (:box 11 :out 0)) (:to (:box 10 :in 0))) + (:connection (:from (:box 16 :out 0)) (:to (:box 17 :in 0))) + (:connection (:from (:box 17 :out 0)) (:to (:box 21 :in 4))) + (:connection (:from (:box 18 :out 0)) (:to (:box 9 :in 0))) + (:connection (:from (:box 18 :out 0)) (:to (:box 21 :in 0))) + (:connection (:from (:box 19 :out 0)) (:to (:box 0 :in 0))) + (:connection (:from (:box 20 :out 0)) (:to (:box 2 :in 0))) + (:connection (:from (:box 21 :out 0)) (:to (:box 15 :in 0))) + (:connection (:from (:box 24 :out 0)) (:to (:box 21 :in 1))) + (:connection (:from (:box 24 :out 0)) (:to (:box 21 :in 2))))) \ No newline at end of file diff --git a/om/help-patches/Score/Trees/01-pulsemaker.opat b/om/help-patches/Score/Trees/01-pulsemaker.opat index 359f9a2fb..0f4b36755 100644 --- a/om/help-patches/Score/Trees/01-pulsemaker.opat +++ b/om/help-patches/Score/Trees/01-pulsemaker.opat @@ -1,11 +1,12 @@ (:patch - (:om-version 0.03) (:name "01-pulsemaker") (:doc "") (:info (:created "2019/09/24 1:37:53") - (:modified "2019/09/24 1:45:45")) + (:modified "2020/01/02 8:47:47") + (:by "om-sharp") + (:version 1.0)) (:window (:size (1193 440)) (:position (274 253))) (:grid nil) (:lock nil) @@ -34,14 +35,66 @@ (:type :abstraction) (:reference (:patch - (:om-version 0.03) (:name "OMLOOP") (:doc "") - (:info (:created nil) (:modified nil)) + (:info (:created nil) (:modified nil) (:by nil) (:version nil)) (:window (:size (355 398)) (:position (169 115))) (:grid nil) (:lock nil) (:boxes + (:box + (:type :io) + (:reference + (:in + (:type omin) + (:index 1) + (:name "input0") + (:doc "no documentation"))) + (:group-id nil) + (:name "input0") + (:x 167) + (:y 0) + (:w 56) + (:h 42) + (:color + (:color-or-nil + (:color (:color 1.0 1.0 1.0 0.0)) + (:t-or-nil t))) + (:border 0) + (:roundness 0) + (:text-font nil) + (:align :center) + (:icon :top) + (:inputs) + (:outputs (:output (:name "out") (:reactive nil))) + (:id 0)) + (:box + (:type :io) + (:reference + (:out (:type omout) (:name "output 1") (:index 1) (:doc ""))) + (:group-id nil) + (:name "output 1") + (:x 190) + (:y 254) + (:w 68) + (:h 42) + (:color + (:color-or-nil + (:color (:color 1.0 1.0 1.0 0.0)) + (:t-or-nil t))) + (:border 0) + (:roundness 0) + (:text-font nil) + (:align :center) + (:icon :top) + (:inputs + (:input + (:type :standard) + (:name "out-value") + (:value nil) + (:reactive nil))) + (:outputs) + (:id 1)) (:box (:type :special) (:reference collect) @@ -80,7 +133,7 @@ (:output (:name "collect") (:reactive nil)) (:output (:name "data-out") (:reactive nil)) (:output (:name "init") (:reactive nil))) - (:id 0)) + (:id 2)) (:box (:type :special) (:reference repeat-n) @@ -112,7 +165,7 @@ (:value 0) (:reactive nil))) (:outputs (:output (:name "collected results") (:reactive nil))) - (:id 1)) + (:id 3)) (:box (:type :value) (:reference fixnum) @@ -134,7 +187,7 @@ (:inputs) (:outputs (:output (:name "value") (:reactive nil))) (:value 1) - (:id 2)) + (:id 4)) (:box (:type :special) (:reference iterate) @@ -160,33 +213,7 @@ (:value nil) (:reactive nil))) (:outputs) - (:id 3)) - (:box - (:type :io) - (:reference - (:in - (:type omin) - (:index 1) - (:name "input0") - (:doc "no documentation"))) - (:group-id nil) - (:name "input0") - (:x 167) - (:y 0) - (:w 56) - (:h 42) - (:color - (:color-or-nil - (:color (:color 1.0 1.0 1.0 0.0)) - (:t-or-nil t))) - (:border 0) - (:roundness 0) - (:text-font nil) - (:align :center) - (:icon :top) - (:inputs) - (:outputs (:output (:name "out") (:reactive nil))) - (:id 4)) + (:id 5)) (:box (:type :special) (:reference loop-list) @@ -212,59 +239,14 @@ (:value nil) (:reactive nil))) (:outputs (:output (:name "i") (:reactive nil))) - (:id 5)) - (:box - (:type :io) - (:reference - (:out (:type omout) (:name "output 1") (:index 1) (:doc ""))) - (:group-id nil) - (:name "output 1") - (:x 190) - (:y 254) - (:w 68) - (:h 42) - (:color - (:color-or-nil - (:color (:color 1.0 1.0 1.0 0.0)) - (:t-or-nil t))) - (:border 0) - (:roundness 0) - (:text-font nil) - (:align :center) - (:icon :top) - (:inputs - (:input - (:type :standard) - (:name "out-value") - (:value nil) - (:reactive nil))) - (:outputs) (:id 6))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 3 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 0 :out 1)) - (:to (:box 6 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 1 :out 0)) - (:to (:box 0 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 5 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 1 :in 1)) - (:attributes (:color nil :style nil :modif nil)))))) + (:connection (:from (:box 0 :out 0)) (:to (:box 6 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 5 :in 0))) + (:connection (:from (:box 2 :out 1)) (:to (:box 1 :in 0))) + (:connection (:from (:box 3 :out 0)) (:to (:box 2 :in 0))) + (:connection (:from (:box 4 :out 0)) (:to (:box 3 :in 0))) + (:connection (:from (:box 6 :out 0)) (:to (:box 3 :in 1)))))) (:group-id nil) (:name "OMLOOP") (:x 894) @@ -277,7 +259,6 @@ (:text-font nil) (:align :center) (:display :mini-view) - (:group-id nil) (:lock nil) (:lambda nil) (:pre-delay 0) @@ -323,11 +304,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "VOICE") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -534,171 +513,51 @@ ((:onset 0) (:duration 39999) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "VOICE") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) - (:lmidic + (:extras nil) + (:tree (:list - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000))) + 12 + (:list + (:list + (:list 3 4) + (:list (:list 3 (:list 1 1 1 1 1 1 1 1 1 1 1 1)))) + (:list (:list 2 4) (:list (:list 2 (:list 1 1 1 1 1 1 1 1)))) + (:list + (:list 3 4) + (:list (:list 3 (:list 1 1 1 1 1 1 1 1 1 1 1 1)))) + (:list + (:list 5 4) + (:list + (:list 5 (:list 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1)))) + (:list + (:list 3 4) + (:list (:list 3 (:list 1 1 1 1 1 1 1 1 1 1 1 1)))) + (:list + (:list 6 4) + (:list + (:list + 6 + (:list 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1)))) + (:list (:list 2 4) (:list (:list 2 (:list 1 1 1 1 1 1 1 1)))) + (:list + (:list 4 4) + (:list (:list 4 (:list 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1)))) + (:list + (:list 4 4) + (:list (:list 4 (:list 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1)))) + (:list (:list 1 4) (:list (:list 1 (:list 1 1 1 1)))) + (:list + (:list 3 4) + (:list (:list 3 (:list 1 1 1 1 1 1 1 1 1 1 1 1)))) + (:list + (:list 4 4) + (:list + (:list 4 (:list 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1))))))) + (:lmidic (:list 6000)) (:lonset (:list 0 @@ -862,1506 +721,13 @@ 39500 39750 40000)) - (:ldur - (:list - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249) - (:list 249))) - (:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport - (:list - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil)) + (:ldur (:list 249)) + (:lvel (:list 100)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) (:llegato nil) - (:tree - (:list - 12 - (:list - (:list - (:list 3 4) - (:list (:list 3 (:list 1 1 1 1 1 1 1 1 1 1 1 1)))) - (:list (:list 2 4) (:list (:list 2 (:list 1 1 1 1 1 1 1 1)))) - (:list - (:list 3 4) - (:list (:list 3 (:list 1 1 1 1 1 1 1 1 1 1 1 1)))) - (:list - (:list 5 4) - (:list - (:list 5 (:list 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1)))) - (:list - (:list 3 4) - (:list (:list 3 (:list 1 1 1 1 1 1 1 1 1 1 1 1)))) - (:list - (:list 6 4) - (:list - (:list - 6 - (:list 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1)))) - (:list (:list 2 4) (:list (:list 2 (:list 1 1 1 1 1 1 1 1)))) - (:list - (:list 4 4) - (:list (:list 4 (:list 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1)))) - (:list - (:list 4 4) - (:list (:list 4 (:list 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1)))) - (:list (:list 1 4) (:list (:list 1 (:list 1 1 1 1)))) - (:list - (:list 3 4) - (:list (:list 3 (:list 1 1 1 1 1 1 1 1 1 1 1 1)))) - (:list - (:list 4 4) - (:list - (:list 4 (:list 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1))))))) - (:tempo 60))) - (:add-slots - ((:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport - (:list - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil)))))) + (:tempo 60))))) (:id 3)) (:box (:type :function) @@ -2377,6 +743,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -2406,6 +773,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -2460,6 +828,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -2588,11 +957,9 @@ and measures denominators filling these measures with n-beats filling these measures with n-beats filling these measures with n-beats filling these measures with n-beats position ") (:roundness nil) (:text-font nil) (:align :center) - (:name "VOICE") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -244,52 +245,11 @@ by position ") ((:onset 0) (:duration 7999) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "VOICE") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) - (:lmidic - (:list - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000))) - (:lonset (:list 0 2095 3429 6400 7040 7200 8000)) - (:ldur - (:list - (:list 1713) - (:list 190) - (:list 189) - (:list 639) - (:list 159) - (:list 799))) - (:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil)) - (:llegato nil) + (:extras nil) (:tree (:list 2 @@ -307,33 +267,22 @@ by position ") (:list (:list 4 4) (:list (:list 4 (:list -3 (:list 1 (:list 4 1)) 1))))))) - (:tempo 60))) - (:add-slots - ((:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan + (:lmidic (:list 6000)) + (:lonset (:list 0 2095 3429 6400 7040 7200 8000)) + (:ldur (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil)))))) + (:list 1713) + (:list 190) + (:list 189) + (:list 639) + (:list 159) + (:list 799))) + (:lvel (:list 100)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) + (:llegato nil) + (:tempo 60))))) (:id 7)) (:box (:type :value) @@ -391,11 +340,9 @@ by position ") (:roundness nil) (:text-font nil) (:align :center) - (:name "VOICE") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -453,17 +400,20 @@ by position ") ((:onset 0) (:duration 7999) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "VOICE") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) - (:lmidic + (:extras nil) + (:tree (:list - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000))) + 2 + (:list + (:list + (:list 4 4) + (:list (:list 1 (:list 3 -2)) 1 (:list 1 (:list -2 1)) -1)) + (:list (:list 4 4) (:list -1 (:list 1 (:list -3 4)) 1 1))))) + (:lmidic (:list 6000)) (:lonset (:list 0 1000 2667 5429 6000 7000 8000)) (:ldur (:list @@ -473,67 +423,12 @@ by position ") (:list 570) (:list 999) (:list 999))) - (:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil)) + (:lvel (:list 100)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) (:llegato nil) - (:tree - (:list - 2 - (:list - (:list - (:list 4 4) - (:list (:list 1 (:list 3 -2)) 1 (:list 1 (:list -2 1)) -1)) - (:list (:list 4 4) (:list -1 (:list 1 (:list -3 4)) 1 1))))) - (:tempo 60))) - (:add-slots - ((:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil)))))) + (:tempo 60))))) (:id 10)) (:box (:type :object) @@ -549,11 +444,9 @@ by position ") (:roundness nil) (:text-font nil) (:align :center) - (:name "VOICE") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -610,17 +503,20 @@ by position ") ((:onset 0) (:duration 7999) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "VOICE") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) - (:lmidic + (:extras nil) + (:tree (:list - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000))) + 2 + (:list + (:list + (:list 4 4) + (:list 1 (:list 1 (:list 3 -2)) 1 (:list 1 (:list -2 1)))) + (:list (:list 4 4) (:list -2 (:list 1 (:list -3 4)) 1))))) + (:lmidic (:list 6000)) (:lonset (:list 0 1000 2000 3667 6429 7000 8000)) (:ldur (:list @@ -630,98 +526,19 @@ by position ") (:list 332) (:list 570) (:list 999))) - (:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil)) + (:lvel (:list 100)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) (:llegato nil) - (:tree - (:list - 2 - (:list - (:list - (:list 4 4) - (:list 1 (:list 1 (:list 3 -2)) 1 (:list 1 (:list -2 1)))) - (:list (:list 4 4) (:list -2 (:list 1 (:list -3 4)) 1))))) - (:tempo 60))) - (:add-slots - ((:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil)))))) + (:tempo 60))))) (:id 11))) (:connections - (:connection - (:from (:box 1 :out 0)) - (:to (:box 5 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 5 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 4 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 10 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 7 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 8 :out 0)) - (:to (:box 11 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 11 :out 1)) - (:to (:box 4 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 11 :out 1)) - (:to (:box 5 :in 0)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 1 :out 0)) (:to (:box 5 :in 2))) + (:connection (:from (:box 2 :out 0)) (:to (:box 5 :in 1))) + (:connection (:from (:box 3 :out 0)) (:to (:box 4 :in 1))) + (:connection (:from (:box 4 :out 0)) (:to (:box 10 :in 1))) + (:connection (:from (:box 5 :out 0)) (:to (:box 7 :in 1))) + (:connection (:from (:box 8 :out 0)) (:to (:box 11 :in 1))) + (:connection (:from (:box 11 :out 1)) (:to (:box 4 :in 0))) + (:connection (:from (:box 11 :out 1)) (:to (:box 5 :in 0))))) \ No newline at end of file diff --git a/om/help-patches/Score/Trees/07-filtertree.opat b/om/help-patches/Score/Trees/07-filtertree.opat index 4f430b459..d4f4d3f62 100644 --- a/om/help-patches/Score/Trees/07-filtertree.opat +++ b/om/help-patches/Score/Trees/07-filtertree.opat @@ -1,11 +1,12 @@ (:patch - (:om-version 0.03) (:name "07-filtertree") (:doc "") (:info (:created "2019/09/24 1:37:53") - (:modified "2019/09/24 1:46:53")) + (:modified "2020/01/02 8:47:47") + (:by "om-sharp") + (:version 1.0)) (:window (:size (681 462)) (:position (253 230))) (:grid nil) (:lock nil) @@ -38,11 +39,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "VOICE") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -101,54 +100,13 @@ (:class voice) (:slots ((:onset 0) - (:duration 10249) + (:duration 7999) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "VOICE") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) - (:lmidic - (:list - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000))) - (:lonset (:list 500 3000 4250 5000 6000 7500 8000)) - (:ldur - (:list - (:list 2249) - (:list 1999) - (:list 1999) - (:list 2749) - (:list 3249) - (:list 2749))) - (:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil)) - (:llegato nil) + (:extras nil) (:tree (:list 2 @@ -157,43 +115,32 @@ (:list 4 4) (:list (:list 1 (:list -2 2)) - (:list 1 (:list 1.0)) + 1.0 (:list 1 (:list 3.0 -1)) (:list 1 (:list 1 -3)))) (:list (:list 4 4) (:list (:list 1 (:list -1 1 -2)) - (:list 1 (:list 1)) + 1 1 (:list 1 (:list 2.0 2))))))) - (:tempo 60))) - (:add-slots - ((:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan + (:lmidic (:list 6000)) + (:lonset (:list 500 3000 4250 5000 6000 7500 8000)) + (:ldur (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil)))))) + (:list 2249) + (:list 249) + (:list 249) + (:list 999) + (:list 1499) + (:list 499))) + (:lvel (:list 100)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) + (:llegato nil) + (:tempo 60))))) (:id 1)) (:comment (:x 308) @@ -227,6 +174,7 @@ positions . (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -281,11 +229,9 @@ positions . (:roundness nil) (:text-font nil) (:align :center) - (:name "VOICE") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -346,73 +292,11 @@ positions . ((:onset 0) (:duration 7999) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "VOICE") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) - (:lmidic - (:list - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000))) - (:lonset - (:list 0 500 2750 3000 3250 4250 4500 5000 6000 7500 8000)) - (:ldur - (:list - (:list 499) - (:list 2249) - (:list 249) - (:list 249) - (:list 999) - (:list 249) - (:list 499) - (:list 999) - (:list 1499) - (:list 499))) - (:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil nil nil nil nil)) - (:llegato nil) + (:extras nil) (:tree (:list 2 @@ -421,66 +305,39 @@ positions . (:list 4 4) (:list (:list 1 (:list 2 2)) - (:list 1 (:list 1.0)) + 1.0 (:list 1 (:list 3.0 1)) (:list 1 (:list 1 3)))) (:list (:list 4 4) (:list (:list 1 (:list 1.0 1 2)) - (:list 1 (:list 1)) + 1 1 (:list 1 (:list 2.0 2))))))) - (:tempo 60))) - (:add-slots - ((:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan + (:lmidic (:list 6000)) + (:lonset + (:list 0 500 2750 3000 3250 4250 4500 5000 6000 7500 8000)) + (:ldur (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil nil nil nil nil)))))) + (:list 499) + (:list 2249) + (:list 249) + (:list 249) + (:list 999) + (:list 249) + (:list 499) + (:list 999) + (:list 1499) + (:list 499))) + (:lvel (:list 100)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) + (:llegato nil) + (:tempo 60))))) (:id 5))) (:connections - (:connection - (:from (:box 3 :out 0)) - (:to (:box 1 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 0)) - (:to (:box 3 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 1)) - (:to (:box 3 :in 0)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 3 :out 0)) (:to (:box 1 :in 1))) + (:connection (:from (:box 4 :out 0)) (:to (:box 3 :in 1))) + (:connection (:from (:box 5 :out 1)) (:to (:box 3 :in 0))))) \ No newline at end of file diff --git a/om/help-patches/Score/Trees/08-subst-rhythm.opat b/om/help-patches/Score/Trees/08-subst-rhythm.opat index 9dffb93cc..b8640156a 100644 --- a/om/help-patches/Score/Trees/08-subst-rhythm.opat +++ b/om/help-patches/Score/Trees/08-subst-rhythm.opat @@ -1,12 +1,13 @@ (:patch - (:om-version 0.03) (:name "08-subst-rhythm") (:doc "") (:info (:created "2019/09/24 1:37:54") - (:modified "2019/09/24 1:45:00")) - (:window (:size (1001 762)) (:position (316 299))) + (:modified "2020/01/02 8:47:47") + (:by "om-sharp") + (:version 1.0)) + (:window (:size (1001 762)) (:position (316 266))) (:grid nil) (:lock nil) (:boxes @@ -143,6 +144,7 @@ substitutes elements in tree") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -182,6 +184,7 @@ substitutes elements in tree") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -221,6 +224,7 @@ substitutes elements in tree") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -260,6 +264,7 @@ substitutes elements in tree") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -496,11 +501,9 @@ creating groups . For example a list (1 1 1) substituting 2 will yield (2 (1 1 1 (:roundness nil) (:text-font nil) (:align :center) - (:name "VOICE") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -554,16 +557,20 @@ creating groups . For example a list (1 1 1) substituting 2 will yield (2 (1 1 1 ((:onset 0) (:duration 3999) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "VOICE") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) - (:lmidic + (:extras nil) + (:tree (:list - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000))) + 1 + (:list + (:list + (:list 4 4) + (:list + (:list 4 (:list -1 (:list 1 (:list 2 1 1 1)) -2 1))))))) + (:lmidic (:list 6000)) (:lonset (:list 800 1120 1280 1440 3200 4000)) (:ldur (:list @@ -572,41 +579,12 @@ creating groups . For example a list (1 1 1) substituting 2 will yield (2 (1 1 1 (:list 159) (:list 159) (:list 799))) - (:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list (:list 0) (:list 0) (:list 0) (:list 0) (:list 0))) - (:lchan - (:list (:list 1) (:list 1) (:list 1) (:list 1) (:list 1))) - (:lport (:list nil nil nil nil nil)) + (:lvel (:list 100)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) (:llegato nil) - (:tree - (:list - 1 - (:list - (:list - (:list 4 4) - (:list - (:list 4 (:list -1 (:list 1 (:list 2 1 1 1)) -2 1))))))) - (:tempo 60))) - (:add-slots - ((:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list (:list 0) (:list 0) (:list 0) (:list 0) (:list 0))) - (:lchan - (:list (:list 1) (:list 1) (:list 1) (:list 1) (:list 1))) - (:lport (:list nil nil nil nil nil)))))) + (:tempo 60))))) (:id 24)) (:box (:type :object) @@ -622,11 +600,9 @@ creating groups . For example a list (1 1 1) substituting 2 will yield (2 (1 1 1 (:roundness nil) (:text-font nil) (:align :center) - (:name "VOICE") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -680,17 +656,19 @@ creating groups . For example a list (1 1 1) substituting 2 will yield (2 (1 1 1 ((:onset 0) (:duration 3999) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "VOICE") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) - (:lmidic + (:extras nil) + (:tree (:list - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000))) + 1 + (:list + (:list + (:list 4 4) + (:list 1 (:list 1 (:list 1 -2 1 1)) 1 1))))) + (:lmidic (:list 6000)) (:lonset (:list 0 1000 1600 1800 2000 3000 4000)) (:ldur (:list @@ -700,66 +678,12 @@ creating groups . For example a list (1 1 1) substituting 2 will yield (2 (1 1 1 (:list 199) (:list 999) (:list 999))) - (:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil)) + (:lvel (:list 100)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) (:llegato nil) - (:tree - (:list - 1 - (:list - (:list - (:list 4 4) - (:list 1 (:list 1 (:list 1 -2 1 1)) 1 1))))) - (:tempo 60))) - (:add-slots - ((:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil)))))) + (:tempo 60))))) (:id 25)) (:box (:type :object) @@ -775,11 +699,9 @@ creating groups . For example a list (1 1 1) substituting 2 will yield (2 (1 1 1 (:roundness nil) (:text-font nil) (:align :center) - (:name "VOICE") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -837,25 +759,34 @@ creating groups . For example a list (1 1 1) substituting 2 will yield (2 (1 1 1 (:class voice) (:slots ((:onset 0) - (:duration 4039) + (:duration 3999) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "VOICE") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) - (:lmidic + (:extras nil) + (:tree (:list - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000))) + 1 + (:list + (:list + (:list 4 4) + (:list + (:list + 4 + (:list + (:list 1 (:list 1 1 1)) + (:list + 1 + (:list + (:list 1 (:list 1 7)) + (:list 2 (:list 1 2)) + (:list 1 (:list 3 2)) + (:list 1 (:list 4 1.0)))) + 1 + 1))))))) + (:lmidic (:list 6000)) (:lonset (:list 0 @@ -883,118 +814,14 @@ creating groups . For example a list (1 1 1) substituting 2 will yield (2 (1 1 1 (:list 119) (:list 79) (:list 199) - (:list 1039) - (:list 1039))) - (:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil nil nil nil nil nil nil)) + (:list 999) + (:list 999))) + (:lvel (:list 100)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) (:llegato nil) - (:tree - (:list - 1 - (:list - (:list - (:list 4 4) - (:list - (:list - 4 - (:list - (:list 1 (:list 1 1 1)) - (:list - 1 - (:list - (:list 1 (:list 1 7)) - (:list 2 (:list 1 2)) - (:list 1 (:list 3 2)) - (:list 1 (:list 4 1.0)))) - 1 - 1))))))) - (:tempo 60))) - (:add-slots - ((:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport - (:list nil nil nil nil nil nil nil nil nil nil nil nil)))))) + (:tempo 60))))) (:id 26)) (:box (:type :value) @@ -1030,11 +857,9 @@ creating groups . For example a list (1 1 1) substituting 2 will yield (2 (1 1 1 (:roundness nil) (:text-font nil) (:align :center) - (:name "VOICE") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -1088,17 +913,19 @@ creating groups . For example a list (1 1 1) substituting 2 will yield (2 (1 1 1 ((:onset 0) (:duration 3999) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "VOICE") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) - (:lmidic + (:extras nil) + (:tree (:list - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000))) + 1 + (:list + (:list + (:list 4 4) + (:list 1 (:list 1 (:list 1 -2 1 1)) 1 1))))) + (:lmidic (:list 6000)) (:lonset (:list 0 1000 1600 1800 2000 3000 4000)) (:ldur (:list @@ -1108,66 +935,12 @@ creating groups . For example a list (1 1 1) substituting 2 will yield (2 (1 1 1 (:list 199) (:list 999) (:list 999))) - (:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil)) + (:lvel (:list 100)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) (:llegato nil) - (:tree - (:list - 1 - (:list - (:list - (:list 4 4) - (:list 1 (:list 1 (:list 1 -2 1 1)) 1 1))))) - (:tempo 60))) - (:add-slots - ((:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil)))))) + (:tempo 60))))) (:id 28)) (:box (:type :object) @@ -1183,11 +956,9 @@ creating groups . For example a list (1 1 1) substituting 2 will yield (2 (1 1 1 (:roundness nil) (:text-font nil) (:align :center) - (:name "VOICE") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -1241,17 +1012,19 @@ creating groups . For example a list (1 1 1) substituting 2 will yield (2 (1 1 1 ((:onset 0) (:duration 3999) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "VOICE") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) - (:lmidic + (:extras nil) + (:tree (:list - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000))) + 1 + (:list + (:list + (:list 4 4) + (:list 1 (:list 1 (:list 1 -2 1 1)) 1 1))))) + (:lmidic (:list 6000)) (:lonset (:list 0 1000 1600 1800 2000 3000 4000)) (:ldur (:list @@ -1261,66 +1034,12 @@ creating groups . For example a list (1 1 1) substituting 2 will yield (2 (1 1 1 (:list 199) (:list 999) (:list 999))) - (:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil)) + (:lvel (:list 100)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) (:llegato nil) - (:tree - (:list - 1 - (:list - (:list - (:list 4 4) - (:list 1 (:list 1 (:list 1 -2 1 1)) 1 1))))) - (:tempo 60))) - (:add-slots - ((:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil)))))) + (:tempo 60))))) (:id 29)) (:box (:type :object) @@ -1336,11 +1055,9 @@ creating groups . For example a list (1 1 1) substituting 2 will yield (2 (1 1 1 (:roundness nil) (:text-font nil) (:align :center) - (:name "VOICE") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -1407,29 +1124,38 @@ creating groups . For example a list (1 1 1) substituting 2 will yield (2 (1 1 1 (:class voice) (:slots ((:onset 0) - (:duration 8132) + (:duration 7999) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "VOICE") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) - (:lmidic + (:extras nil) + (:tree (:list - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000))) + 2 + (:list + (:list + (:list 4 4) + (:list + (:list + 4 + (:list + 2 + (:list 1 (:list 1 -2 1 1)) + (:list 1 (:list 1 -1 1)) + (:list 1 (:list 3 2)))))) + (:list + (:list 4 4) + (:list + (:list + 4 + (:list + 1 + (:list 1 (:list 1 (:list 2 (:list 1.0 1 -1)) 1 1)) + -1 + (:list 1 (:list 1 1 -2 1))))))))) + (:lmidic (:list 6000)) (:lonset (:list 0 @@ -1461,183 +1187,18 @@ creating groups . For example a list (1 1 1) substituting 2 will yield (2 (1 1 1 (:list 319) (:list 999) (:list 332) - (:list 266) - (:list 332) - (:list 332) - (:list 332) - (:list 332) - (:list 332))) - (:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport - (:list - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil)) + (:list 133) + (:list 199) + (:list 199) + (:list 199) + (:list 199) + (:list 199))) + (:lvel (:list 100)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) (:llegato nil) - (:tree - (:list - 2 - (:list - (:list - (:list 4 4) - (:list - (:list - 4 - (:list - 2 - (:list 1 (:list 1 -2 1 1)) - (:list 1 (:list 1 -1 1)) - (:list 1 (:list 3 2)))))) - (:list - (:list 4 4) - (:list - (:list - 4 - (:list - 1 - (:list 1 (:list 1 (:list 2 (:list 1.0 1 -1)) 1 1)) - -1 - (:list 1 (:list 1 1 -2 1))))))))) - (:tempo 60))) - (:add-slots - ((:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport - (:list - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil)))))) + (:tempo 60))))) (:id 30)) (:box (:type :object) @@ -1653,11 +1214,9 @@ creating groups . For example a list (1 1 1) substituting 2 will yield (2 (1 1 1 (:roundness nil) (:text-font nil) (:align :center) - (:name "VOICE") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -1718,23 +1277,20 @@ creating groups . For example a list (1 1 1) substituting 2 will yield (2 (1 1 1 ((:onset 0) (:duration 7999) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "VOICE") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) - (:lmidic + (:extras nil) + (:tree (:list - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000))) + 2 + (:list + (:list (:list 4 4) (:list 1 (:list 1 (:list 1 -2 1 1)) 1 1)) + (:list + (:list 4 4) + (:list 1 (:list 1 (:list 1 2 1 1)) -1 1))))) + (:lmidic (:list 6000)) (:lonset (:list 0 @@ -1764,104 +1320,12 @@ creating groups . For example a list (1 1 1) substituting 2 will yield (2 (1 1 1 (:list 199) (:list 199) (:list 999))) - (:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil nil nil nil nil nil nil)) + (:lvel (:list 100)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) (:llegato nil) - (:tree - (:list - 2 - (:list - (:list (:list 4 4) (:list 1 (:list 1 (:list 1 -2 1 1)) 1 1)) - (:list - (:list 4 4) - (:list 1 (:list 1 (:list 1 2 1 1)) -1 1))))) - (:tempo 60))) - (:add-slots - ((:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport - (:list nil nil nil nil nil nil nil nil nil nil nil nil)))))) + (:tempo 60))))) (:id 31)) (:box (:type :object) @@ -1877,11 +1341,9 @@ creating groups . For example a list (1 1 1) substituting 2 will yield (2 (1 1 1 (:roundness nil) (:text-font nil) (:align :center) - (:name "VOICE") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -1938,80 +1400,13 @@ creating groups . For example a list (1 1 1) substituting 2 will yield (2 (1 1 1 (:class voice) (:slots ((:onset 0) - (:duration 4066) + (:duration 3999) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "VOICE") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) - (:lmidic - (:list - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000))) - (:lonset - (:list 0 333 667 1000 1467 1511 1600 1640 1667 2000 3000 4000)) - (:ldur - (:list - (:list 332) - (:list 333) - (:list 332) - (:list 466) - (:list 43) - (:list 88) - (:list 39) - (:list 26) - (:list 332) - (:list 1066) - (:list 1066))) - (:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil nil nil nil nil nil)) - (:llegato nil) + (:extras nil) (:tree (:list 1 @@ -2033,48 +1428,28 @@ creating groups . For example a list (1 1 1) substituting 2 will yield (2 (1 1 1 1.0)) 1 1))))))) - (:tempo 60))) - (:add-slots - ((:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan + (:lmidic (:list 6000)) + (:lonset + (:list 0 333 667 1000 1467 1511 1600 1640 1667 2000 3000 4000)) + (:ldur (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil nil nil nil nil nil)))))) + (:list 332) + (:list 333) + (:list 332) + (:list 466) + (:list 43) + (:list 88) + (:list 39) + (:list 26) + (:list 332) + (:list 999) + (:list 999))) + (:lvel (:list 100)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) + (:llegato nil) + (:tempo 60))))) (:id 32)) (:box (:type :value) @@ -2117,67 +1492,19 @@ creating groups . For example a list (1 1 1) substituting 2 will yield (2 (1 1 1 (:value (:list (:list 1 1 1) 7 (:list 1 2) (:list 3 2) 5)) (:id 34))) (:connections - (:connection - (:from (:box 9 :out 0)) - (:to (:box 30 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 10 :out 0)) - (:to (:box 26 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 11 :out 0)) - (:to (:box 32 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 12 :out 0)) - (:to (:box 24 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 19 :out 0)) - (:to (:box 9 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 20 :out 0)) - (:to (:box 9 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 21 :out 0)) - (:to (:box 12 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 22 :out 0)) - (:to (:box 12 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 23 :out 0)) - (:to (:box 10 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 25 :out 1)) - (:to (:box 12 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 27 :out 0)) - (:to (:box 10 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 28 :out 1)) - (:to (:box 10 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 29 :out 1)) - (:to (:box 11 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 31 :out 1)) - (:to (:box 9 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 33 :out 0)) - (:to (:box 11 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 34 :out 0)) - (:to (:box 11 :in 2)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 9 :out 0)) (:to (:box 30 :in 1))) + (:connection (:from (:box 10 :out 0)) (:to (:box 26 :in 1))) + (:connection (:from (:box 11 :out 0)) (:to (:box 32 :in 1))) + (:connection (:from (:box 12 :out 0)) (:to (:box 24 :in 1))) + (:connection (:from (:box 19 :out 0)) (:to (:box 9 :in 1))) + (:connection (:from (:box 20 :out 0)) (:to (:box 9 :in 2))) + (:connection (:from (:box 21 :out 0)) (:to (:box 12 :in 1))) + (:connection (:from (:box 22 :out 0)) (:to (:box 12 :in 2))) + (:connection (:from (:box 23 :out 0)) (:to (:box 10 :in 2))) + (:connection (:from (:box 25 :out 1)) (:to (:box 12 :in 0))) + (:connection (:from (:box 27 :out 0)) (:to (:box 10 :in 1))) + (:connection (:from (:box 28 :out 1)) (:to (:box 10 :in 0))) + (:connection (:from (:box 29 :out 1)) (:to (:box 11 :in 0))) + (:connection (:from (:box 31 :out 1)) (:to (:box 9 :in 0))) + (:connection (:from (:box 33 :out 0)) (:to (:box 11 :in 1))) + (:connection (:from (:box 34 :out 0)) (:to (:box 11 :in 2))))) \ No newline at end of file diff --git a/om/help-patches/Score/Trees/09-tree2ratio_mktree.opat b/om/help-patches/Score/Trees/09-tree2ratio_mktree.opat index fb7303b37..155b6fc38 100644 --- a/om/help-patches/Score/Trees/09-tree2ratio_mktree.opat +++ b/om/help-patches/Score/Trees/09-tree2ratio_mktree.opat @@ -1,12 +1,13 @@ (:patch - (:om-version 0.03) (:name "09-tree2ratio_mktree") (:doc "") (:info (:created "2019/09/24 1:37:55") - (:modified "2019/09/24 1:46:02")) - (:window (:size (695 696)) (:position (400 391))) + (:modified "2020/01/02 8:47:47") + (:by "om-sharp") + (:version 1.0)) + (:window (:size (695 696)) (:position (400 332))) (:grid nil) (:lock nil) (:boxes @@ -59,6 +60,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -88,11 +90,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "VOICE") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -183,38 +183,38 @@ ((:onset 0) (:duration 4249) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "VOICE") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) - (:lmidic + (:extras nil) + (:tree (:list - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000))) + 6 + (:list + (:list + (:list 2 8) + (:list (:list 1 (:list 1 1)) (:list 1 (:list 1 1 1)))) + (:list + (:list 2 8) + (:list + (:list 1 (:list 3 3 2)) + (:list 1 (:list 4.0 1.0 12 3.0 16 4)))) + (:list + (:list 3 8) + (:list + (:list 1 (:list 3.0 4 3)) + (:list 1 (:list 6.0 24 24 1.0 4 1.0)) + (:list 1 (:list 4.0 4 1.0 3)))) + (:list + (:list 4 8) + (:list + (:list 1 (:list 2.0 4 1.0 4 1.0)) + (:list 1 (:list 1 1 1 1 1 1 1 -7)) + -2)) + (:list (:list 5 8) (:list -4 -1)) + (:list (:list 1 8) (:list -1))))) + (:lmidic (:list 6000)) (:lonset (:list 0 @@ -274,267 +274,12 @@ (:list 35) (:list 34) (:list 35))) - (:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport - (:list - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil)) + (:lvel (:list 100)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) (:llegato nil) - (:tree - (:list - 6 - (:list - (:list - (:list 2 8) - (:list (:list 1 (:list 1 1)) (:list 1 (:list 1 1 1)))) - (:list - (:list 2 8) - (:list - (:list 1 (:list 3 3 2)) - (:list 1 (:list 4.0 1.0 12 3.0 16 4)))) - (:list - (:list 3 8) - (:list - (:list 1 (:list 3.0 4 3)) - (:list 1 (:list 6.0 24 24 1.0 4 1.0)) - (:list 1 (:list 4.0 4 1.0 3)))) - (:list - (:list 4 8) - (:list - (:list 1 (:list 2.0 4 1.0 4 1.0)) - (:list 1 (:list 1 1 1 1 1 1 1 -7)) - -2)) - (:list (:list 5 8) (:list -4 -1)) - (:list (:list 1 8) (:list -1))))) - (:tempo 60))) - (:add-slots - ((:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport - (:list - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil)))))) + (:tempo 60))))) (:id 3)) (:box (:type :object) @@ -550,11 +295,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "VOICE") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -628,38 +371,24 @@ ((:onset 0) (:duration 8499) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "VOICE") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) - (:lmidic + (:extras nil) + (:tree (:list - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000))) + 17/8 + (:list + (:list (:list 2 8) (:list (:list 2 (:list 1 1)))) + (:list (:list 2 8) (:list (:list 2 (:list 1 1 1)))) + (:list (:list 3 8) (:list (:list 3 (:list 1 1 1 1)))) + (:list (:list 4 8) (:list (:list 4 (:list 1 1 1 1 1)))) + (:list (:list 5 8) (:list (:list 5 (:list 1 1 1 1 1 1)))) + (:list + (:list 1 8) + (:list (:list 1 (:list 1 1 1 1 1 1 1))))))) + (:lmidic (:list 6000)) (:lonset (:list 0 @@ -719,253 +448,12 @@ (:list 70) (:list 71) (:list 70))) - (:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport - (:list - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil)) + (:lvel (:list 100)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) (:llegato nil) - (:tree - (:list - 17/8 - (:list - (:list (:list 2 8) (:list (:list 2 (:list 1 1)))) - (:list (:list 2 8) (:list (:list 2 (:list 1 1 1)))) - (:list (:list 3 8) (:list (:list 3 (:list 1 1 1 1)))) - (:list (:list 4 8) (:list (:list 4 (:list 1 1 1 1 1)))) - (:list (:list 5 8) (:list (:list 5 (:list 1 1 1 1 1 1)))) - (:list - (:list 1 8) - (:list (:list 1 (:list 1 1 1 1 1 1 1))))))) - (:tempo 60))) - (:add-slots - ((:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport - (:list - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil)))))) + (:tempo 60))))) (:id 4)) (:box (:type :function) @@ -981,6 +469,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1033,6 +522,7 @@ Returns a list of measures contained in ") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1062,6 +552,7 @@ Returns a list of measures contained in ") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -1073,31 +564,10 @@ Returns a list of measures contained in ") (:outputs (:output (:name "out") (:reactive nil))) (:id 8))) (:connections - (:connection - (:from (:box 1 :out 0)) - (:to (:box 2 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 7 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 1)) - (:to (:box 5 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 4 :out 1)) - (:to (:box 8 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 7 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 3 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 8 :out 0)) - (:to (:box 2 :in 1)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 1 :out 0)) (:to (:box 2 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 7 :in 0))) + (:connection (:from (:box 4 :out 1)) (:to (:box 5 :in 0))) + (:connection (:from (:box 4 :out 1)) (:to (:box 8 :in 0))) + (:connection (:from (:box 5 :out 0)) (:to (:box 7 :in 1))) + (:connection (:from (:box 7 :out 0)) (:to (:box 3 :in 1))) + (:connection (:from (:box 8 :out 0)) (:to (:box 2 :in 1))))) \ No newline at end of file diff --git a/om/help-patches/Score/Trees/10-n-pulses_group-pulses.opat b/om/help-patches/Score/Trees/10-n-pulses_group-pulses.opat index 2ef265348..2e4f193fa 100644 --- a/om/help-patches/Score/Trees/10-n-pulses_group-pulses.opat +++ b/om/help-patches/Score/Trees/10-n-pulses_group-pulses.opat @@ -1,11 +1,12 @@ (:patch - (:om-version 0.03) (:name "10-n-pulses_group-pulses") (:doc "") (:info (:created "2019/09/24 1:37:54") - (:modified "2019/09/24 1:47:36")) + (:modified "2020/01/02 8:47:47") + (:by "om-sharp") + (:version 1.0)) (:window (:size (470 470)) (:position (295 276))) (:grid nil) (:lock nil) @@ -44,6 +45,7 @@ group-pulses : Returns a list of list where each list \"groups\" (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -73,11 +75,9 @@ group-pulses : Returns a list of list where each list \"groups\" (:roundness nil) (:text-font nil) (:align :center) - (:name "VOICE") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -129,9 +129,26 @@ group-pulses : Returns a list of list where each list \"groups\" ((:onset 0) (:duration 11999) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "VOICE") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) + (:extras nil) + (:tree + (:list + 3 + (:list + (:list (:list 4 4) (:list 1 3.0)) + (:list + (:list 4 4) + (:list + (:list + 4 + (:list + (:list 1 (:list 1 1 1)) + (:list 1 (:list 1.0 -1 1)) + 1)))) + (:list (:list 4 4) (:list 4))))) (:lmidic (:list (:list 6200) @@ -160,71 +177,11 @@ group-pulses : Returns a list of list where each list \"groups\" (:list 80) (:list 80) (:list 80))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil nil)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) (:llegato nil) - (:tree - (:list - 3 - (:list - (:list (:list 4 4) (:list 1 3.0)) - (:list - (:list 4 4) - (:list - (:list - 4 - (:list - (:list 1 (:list 1 1 1)) - (:list 1 (:list 1.0 -1 1)) - 1)))) - (:list (:list 4 4) (:list 4))))) - (:tempo 60))) - (:add-slots - ((:lvel - (:list - (:list 100) - (:list 80) - (:list 80) - (:list 80) - (:list 80) - (:list 80) - (:list 80))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil nil)))))) + (:tempo 60))))) (:id 2)) (:box (:type :function) @@ -240,6 +197,7 @@ group-pulses : Returns a list of list where each list \"groups\" (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs diff --git a/om/help-patches/Score/Trees/11-pulse_and_rests_pos.opat b/om/help-patches/Score/Trees/11-pulse_and_rests_pos.opat index 4ed43ac93..18dfe507f 100644 --- a/om/help-patches/Score/Trees/11-pulse_and_rests_pos.opat +++ b/om/help-patches/Score/Trees/11-pulse_and_rests_pos.opat @@ -1,11 +1,12 @@ (:patch - (:om-version 0.03) (:name "11-pulse_and_rests_pos") (:doc "") (:info (:created "2019/09/24 1:37:56") - (:modified "2019/09/24 1:48:42")) + (:modified "2020/01/02 8:47:47") + (:by "om-sharp") + (:version 1.0)) (:window (:size (869 583)) (:position (685 74))) (:grid nil) (:lock nil) @@ -39,6 +40,7 @@ in the tree. (0 being first position)") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -63,6 +65,7 @@ in the tree. (0 being first position)") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -157,11 +160,9 @@ Returns the nth position of rests in a tree") (:roundness nil) (:text-font nil) (:align :center) - (:name "VOICE") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -236,68 +237,11 @@ Returns the nth position of rests in a tree") ((:onset 0) (:duration 14999) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "VOICE") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) - (:lmidic - (:list - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000))) - (:lonset - (:list 0 500 2250 3750 5000 7000 8750 11250 14500 16000)) - (:ldur - (:list - (:list 249) - (:list 1249) - (:list 749) - (:list 249) - (:list 749) - (:list 249) - (:list 749) - (:list 1249) - (:list 499))) - (:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil nil nil nil)) - (:llegato nil) + (:extras nil) (:tree (:list 4 @@ -326,42 +270,26 @@ Returns the nth position of rests in a tree") -1 (:list 1 (:list -1 1)) -1))))) - (:tempo 60))) - (:add-slots - ((:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan + (:lmidic (:list 6000)) + (:lonset + (:list 0 500 2250 3750 5000 7000 8750 11250 14500 16000)) + (:ldur (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil nil nil nil)))))) + (:list 249) + (:list 1249) + (:list 749) + (:list 249) + (:list 749) + (:list 249) + (:list 749) + (:list 1249) + (:list 499))) + (:lvel (:list 100)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) + (:llegato nil) + (:tempo 60))))) (:id 6)) (:box (:type :function) @@ -377,6 +305,7 @@ Returns the nth position of rests in a tree") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -406,6 +335,7 @@ Returns the nth position of rests in a tree") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -435,6 +365,7 @@ Returns the nth position of rests in a tree") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -469,6 +400,7 @@ Returns the nth position of rests in a tree") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -493,11 +425,9 @@ Returns the nth position of rests in a tree") (:roundness nil) (:text-font nil) (:align :center) - (:name "VOICE") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -564,67 +494,11 @@ Returns the nth position of rests in a tree") ((:onset 0) (:duration 7999) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name "VOICE") (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) - (:lmidic - (:list - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000) - (:list 6000))) - (:lonset (:list 0 500 2000 3000 3500 4500 5000 6000 7500 8000)) - (:ldur - (:list - (:list 249) - (:list 1249) - (:list 749) - (:list 249) - (:list 749) - (:list 249) - (:list 749) - (:list 1249) - (:list 499))) - (:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil nil nil nil)) - (:llegato nil) + (:extras nil) (:tree (:list 2 @@ -643,42 +517,25 @@ Returns the nth position of rests in a tree") (:list 1 (:list 3 -1)) 1 (:list 1 (:list 1.0 -1 2))))))) - (:tempo 60))) - (:add-slots - ((:lvel - (:list - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100) - (:list 100))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan + (:lmidic (:list 6000)) + (:lonset (:list 0 500 2000 3000 3500 4500 5000 6000 7500 8000)) + (:ldur (:list - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1) - (:list 1))) - (:lport (:list nil nil nil nil nil nil nil nil nil)))))) + (:list 249) + (:list 1249) + (:list 749) + (:list 249) + (:list 749) + (:list 249) + (:list 749) + (:list 1249) + (:list 499))) + (:lvel (:list 100)) + (:loffset (:list 0)) + (:lchan (:list 1)) + (:lport (:list nil)) + (:llegato nil) + (:tempo 60))))) (:id 11)) (:box (:type :function) @@ -694,6 +551,7 @@ Returns the nth position of rests in a tree") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -723,6 +581,7 @@ Returns the nth position of rests in a tree") (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -739,59 +598,17 @@ Returns the nth position of rests in a tree") (:outputs (:output (:name "out") (:reactive nil))) (:id 13))) (:connections - (:connection - (:from (:box 1 :out 0)) - (:to (:box 2 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 7 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 7 :out 0)) - (:to (:box 9 :in 2)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 8 :out 0)) - (:to (:box 7 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 9 :out 0)) - (:to (:box 6 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 10 :out 0)) - (:to (:box 8 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 10 :out 0)) - (:to (:box 9 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 11 :out 1)) - (:to (:box 10 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 11 :out 1)) - (:to (:box 12 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 11 :out 1)) - (:to (:box 13 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 12 :out 0)) - (:to (:box 1 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 12 :out 0)) - (:to (:box 8 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 12 :out 0)) - (:to (:box 9 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 13 :out 0)) - (:to (:box 5 :in 0)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 1 :out 0)) (:to (:box 2 :in 1))) + (:connection (:from (:box 2 :out 0)) (:to (:box 7 :in 1))) + (:connection (:from (:box 7 :out 0)) (:to (:box 9 :in 2))) + (:connection (:from (:box 8 :out 0)) (:to (:box 7 :in 0))) + (:connection (:from (:box 9 :out 0)) (:to (:box 6 :in 1))) + (:connection (:from (:box 10 :out 0)) (:to (:box 8 :in 0))) + (:connection (:from (:box 10 :out 0)) (:to (:box 9 :in 0))) + (:connection (:from (:box 11 :out 1)) (:to (:box 10 :in 0))) + (:connection (:from (:box 11 :out 1)) (:to (:box 12 :in 0))) + (:connection (:from (:box 11 :out 1)) (:to (:box 13 :in 0))) + (:connection (:from (:box 12 :out 0)) (:to (:box 1 :in 0))) + (:connection (:from (:box 12 :out 0)) (:to (:box 8 :in 1))) + (:connection (:from (:box 12 :out 0)) (:to (:box 9 :in 1))) + (:connection (:from (:box 13 :out 0)) (:to (:box 5 :in 0))))) \ No newline at end of file diff --git a/om/help-patches/Score/extras.opat b/om/help-patches/Score/extras.opat index e02670200..e45e08dc1 100644 --- a/om/help-patches/Score/extras.opat +++ b/om/help-patches/Score/extras.opat @@ -1,12 +1,13 @@ (:patch - (:om-version 0.06) (:name "extras") (:doc "") (:info (:created "2019/11/21 13:13:50") - (:modified "2019/12/17 23:52:27")) - (:window (:size (1383 952)) (:position (621 444))) + (:modified "2020/01/02 8:47:47") + (:by "om-sharp") + (:version 1.0)) + (:window (:size (1383 952)) (:position (297 76))) (:grid nil) (:lock nil) (:boxes @@ -635,7 +636,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 18.0D0) (:style :bold))) + (:font (:font (:face "Calibri") (:size 18) (:style :bold))) (:t-or-nil t))) (:align nil) (:text "EXTRAS") @@ -651,7 +652,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 12.0D0) (:style :bold))) + (:font (:font (:face "Calibri") (:size 12) (:style :bold))) (:t-or-nil t))) (:align nil) (:text @@ -865,7 +866,7 @@ See: https://w3c.github.io/smufl/") (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 12.0D0) (:style :italic))) + (:font (:font (:face "Calibri") (:size 12) (:style :italic))) (:t-or-nil t))) (:align nil) (:text @@ -982,7 +983,7 @@ See: https://w3c.github.io/smufl/") (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 12.0D0) (:style :bold))) + (:font (:font (:face "Calibri") (:size 12) (:style :bold))) (:t-or-nil t))) (:align nil) (:text "Also works for POLY / MULTI-SEQ:") @@ -1286,7 +1287,7 @@ See: https://w3c.github.io/smufl/") (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 12.0D0) (:style :bold))) + (:font (:font (:face "Calibri") (:size 12) (:style :bold))) (:t-or-nil t))) (:align nil) (:text @@ -1303,7 +1304,7 @@ See: https://w3c.github.io/smufl/") (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 12.0D0) (:style :bold))) + (:font (:font (:face "Calibri") (:size 12) (:style :bold))) (:t-or-nil t))) (:align nil) (:text diff --git a/om/help-patches/Score/save-as-midi.opat b/om/help-patches/Score/save-as-midi.opat index d16aba081..31b48ad55 100644 --- a/om/help-patches/Score/save-as-midi.opat +++ b/om/help-patches/Score/save-as-midi.opat @@ -1,11 +1,12 @@ (:patch - (:om-version 0.04) (:name "save-as-midi") (:doc "") (:info (:created "2019/10/02 9:18:51") - (:modified "2019/10/02 12:10:47")) + (:modified "2020/01/02 8:47:47") + (:by "om-sharp") + (:version 1.0)) (:window (:size (1038 586)) (:position (294 23))) (:grid nil) (:lock nil) @@ -24,10 +25,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "MIDI-MIX-CONSOLE") (:display :hidden) (:showname nil) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -84,6 +83,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -108,6 +108,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -137,11 +138,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "out.mid") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -9083,6 +9082,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -9108,11 +9108,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "MULTI-SEQ") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock :locked) (:lambda nil) (:inputs @@ -9143,9 +9141,11 @@ ((:onset 0) (:duration 10219) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name nil) (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) + (:extras nil) (:lmidic (:list (:list 5700) @@ -9347,138 +9347,37 @@ (:list 4))) (:lport (:list - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil)) - (:llegato nil))) - (:add-slots - ((:loffset - (:list - (:list 0) - (:list 0) - (:list 87 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 19 0) - (:list 0) - (:list 0) - (:list 94 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 76 0) - (:list 65 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 4) - (:list 4) - (:list 4 4) - (:list 4) - (:list 4) - (:list 4) - (:list 4) - (:list 4) - (:list 4) - (:list 4) - (:list 4) - (:list 4) - (:list 4) - (:list 4) - (:list 4) - (:list 4 4) - (:list 4) - (:list 4) - (:list 4 4) - (:list 4) - (:list 4) - (:list 4) - (:list 4) - (:list 4) - (:list 4) - (:list 4) - (:list 4 4) - (:list 4 4) - (:list 4) - (:list 4) - (:list 4))) - (:lport - (:list - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil)) + (:list nil) + (:list nil) + (:list nil nil) + (:list nil) + (:list nil) + (:list nil) + (:list nil) + (:list nil) + (:list nil) + (:list nil) + (:list nil) + (:list nil) + (:list nil) + (:list nil) + (:list nil) + (:list nil nil) + (:list nil) + (:list nil) + (:list nil nil) + (:list nil) + (:list nil) + (:list nil) + (:list nil) + (:list nil) + (:list nil) + (:list nil) + (:list nil nil) + (:list nil nil) + (:list nil) + (:list nil) + (:list nil))) (:llegato nil)))) (:object (:class chord-seq) @@ -9486,9 +9385,11 @@ ((:onset 0) (:duration 9122) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name nil) (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) + (:extras nil) (:lmidic (:list (:list 3500 4200) @@ -9678,130 +9579,35 @@ (:list 10 10 10))) (:lport (:list - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil)) - (:llegato nil))) - (:add-slots - ((:loffset - (:list - (:list 0 0) - (:list 0 0) - (:list 86 86 0) - (:list 0 0) - (:list 87 87 0) - (:list 0 0) - (:list 89 89 0) - (:list 0 0) - (:list 89 89 0) - (:list 0 0) - (:list 87 87 0) - (:list 0 0) - (:list 86 0) - (:list 0 0) - (:list 92 92 0) - (:list 0 0) - (:list 92 92 0) - (:list 0 0) - (:list 89 89 0) - (:list 0 0) - (:list 89 89 0) - (:list 0 0) - (:list 87 87 0) - (:list 0 0) - (:list 86 86 0) - (:list 0 0) - (:list 89 89 0) - (:list 0 0) - (:list 90 90 0))) - (:lchan - (:list - (:list 10 10) - (:list 10 10) - (:list 10 10 10) - (:list 10 10) - (:list 10 10 10) - (:list 10 10) - (:list 10 10 10) - (:list 10 10) - (:list 10 10 10) - (:list 10 10) - (:list 10 10 10) - (:list 10 10) - (:list 10 10) - (:list 10 10) - (:list 10 10 10) - (:list 10 10) - (:list 10 10 10) - (:list 10 10) - (:list 10 10 10) - (:list 10 10) - (:list 10 10 10) - (:list 10 10) - (:list 10 10 10) - (:list 10 10) - (:list 10 10 10) - (:list 10 10) - (:list 10 10 10) - (:list 10 10) - (:list 10 10 10))) - (:lport - (:list - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil)) + (:list nil nil) + (:list nil nil) + (:list nil nil nil) + (:list nil nil) + (:list nil nil nil) + (:list nil nil) + (:list nil nil nil) + (:list nil nil) + (:list nil nil nil) + (:list nil nil) + (:list nil nil nil) + (:list nil nil) + (:list nil nil) + (:list nil nil) + (:list nil nil nil) + (:list nil nil) + (:list nil nil nil) + (:list nil nil) + (:list nil nil nil) + (:list nil nil) + (:list nil nil nil) + (:list nil nil) + (:list nil nil nil) + (:list nil nil) + (:list nil nil nil) + (:list nil nil) + (:list nil nil nil) + (:list nil nil) + (:list nil nil nil))) (:llegato nil)))) (:object (:class chord-seq) @@ -9809,9 +9615,11 @@ ((:onset 0) (:duration 9544) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name nil) (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) + (:extras nil) (:lmidic (:list (:list 4900 5500) @@ -9941,200 +9749,9 @@ (:list 49 41) (:list 55 64) (:list 49 41))) - (:loffset - (:list - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0))) - (:lchan - (:list - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7))) - (:lport - (:list - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil)) - (:llegato nil))) - (:add-slots - ((:loffset - (:list - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0) - (:list 0 0))) - (:lchan - (:list - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7) - (:list 7 7))) - (:lport - (:list - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil)) + (:loffset (:list 0 0)) + (:lchan (:list 7 7)) + (:lport (:list nil nil)) (:llegato nil)))) (:object (:class chord-seq) @@ -10142,9 +9759,11 @@ ((:onset 0) (:duration 9811) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name nil) (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) + (:extras nil) (:lmidic (:list (:list 3900) @@ -10274,90 +9893,25 @@ (:list 2))) (:lport (:list - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil)) - (:llegato nil))) - (:add-slots - ((:loffset - (:list - (:list 0) - (:list 0) - (:list 87 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 92 0) - (:list 92 0) - (:list 0) - (:list 0) - (:list 86 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 2) - (:list 2) - (:list 2 2) - (:list 2) - (:list 2) - (:list 2) - (:list 2) - (:list 2 2) - (:list 2 2) - (:list 2) - (:list 2) - (:list 2 2) - (:list 2) - (:list 2) - (:list 2) - (:list 2) - (:list 2) - (:list 2) - (:list 2))) - (:lport - (:list - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil)) + (:list nil) + (:list nil) + (:list nil nil) + (:list nil) + (:list nil) + (:list nil) + (:list nil) + (:list nil nil) + (:list nil nil) + (:list nil) + (:list nil) + (:list nil nil) + (:list nil) + (:list nil) + (:list nil) + (:list nil) + (:list nil) + (:list nil) + (:list nil))) (:llegato nil)))) (:object (:class chord-seq) @@ -10365,9 +9919,11 @@ ((:onset 0) (:duration 9500) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name nil) (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) + (:extras nil) (:lmidic (:list (:list 6700 7000 6600 6500) @@ -10515,102 +10071,28 @@ (:list 3 3 3 3 3))) (:lport (:list - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil)) - (:llegato nil))) - (:add-slots - ((:loffset - (:list - (:list 59 5 5 0) - (:list 0) - (:list 0) - (:list 100 0) - (:list 91 89 86 86 83 0) - (:list 0) - (:list 16 11 11 8 0) - (:list 5 5 0) - (:list 0) - (:list 59 5 5 0) - (:list 0) - (:list 2 0) - (:list 25 19 14 11 11 0) - (:list 16 16 11 8 6 0) - (:list 13 2 2 0 0 0) - (:list 0) - (:list 0) - (:list 0 0) - (:list 2 0) - (:list 25 19 14 11 11 0) - (:list 84 8 5 3 3 0) - (:list 16 10 10 8 0))) - (:lchan - (:list - (:list 3 3 3 3) - (:list 3) - (:list 3) - (:list 3 3) - (:list 3 3 3 3 3 3) - (:list 3) - (:list 3 3 3 3 3) - (:list 3 3 3) - (:list 3) - (:list 3 3 3 3) - (:list 3) - (:list 3 3) - (:list 3 3 3 3 3 3) - (:list 3 3 3 3 3 3) - (:list 3 3 3 3 3 3) - (:list 3) - (:list 3) - (:list 3 3) - (:list 3 3) - (:list 3 3 3 3 3 3) - (:list 3 3 3 3 3 3) - (:list 3 3 3 3 3))) - (:lport - (:list - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil)) + (:list nil nil nil nil) + (:list nil) + (:list nil) + (:list nil nil) + (:list nil nil nil nil nil nil) + (:list nil) + (:list nil nil nil nil nil) + (:list nil nil nil) + (:list nil) + (:list nil nil nil nil) + (:list nil) + (:list nil nil) + (:list nil nil nil nil nil nil) + (:list nil nil nil nil nil nil) + (:list nil nil nil nil nil nil) + (:list nil) + (:list nil) + (:list nil nil) + (:list nil nil) + (:list nil nil nil nil nil nil) + (:list nil nil nil nil nil nil) + (:list nil nil nil nil nil))) (:llegato nil)))) (:object (:class chord-seq) @@ -10618,9 +10100,11 @@ ((:onset 0) (:duration 8503) (:interpol (:number-or-nil (:number 50) (:t-or-nil nil))) + (:name nil) (:symbolic-date nil) (:symbolic-dur nil) (:symbolic-dur-extent 0) + (:extras nil) (:lmidic (:list (:list 6100) @@ -10694,120 +10178,14 @@ (:list 34) (:list 65) (:list 99))) - (:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 5) - (:list 5) - (:list 5) - (:list 5) - (:list 5) - (:list 5) - (:list 5) - (:list 5) - (:list 5) - (:list 5) - (:list 5) - (:list 5) - (:list 5) - (:list 5) - (:list 5) - (:list 5))) - (:lport - (:list - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil)) - (:llegato nil))) - (:add-slots - ((:loffset - (:list - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0) - (:list 0))) - (:lchan - (:list - (:list 5) - (:list 5) - (:list 5) - (:list 5) - (:list 5) - (:list 5) - (:list 5) - (:list 5) - (:list 5) - (:list 5) - (:list 5) - (:list 5) - (:list 5) - (:list 5) - (:list 5) - (:list 5))) - (:lport - (:list - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil - nil)) + (:loffset (:list 0)) + (:lchan (:list 5)) + (:lport (:list nil)) (:llegato nil)))))) (:symbolic-date nil) (:symbolic-dur nil) - (:symbolic-dur-extent 0))))) + (:symbolic-dur-extent 0) + (:extras nil))))) (:id 6)) (:box (:type :object) @@ -10823,11 +10201,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "out.mid") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -19769,6 +19145,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -19793,6 +19170,7 @@ (:roundness nil) (:text-font nil) (:align nil) + (:icon :left) (:lock nil) (:lambda nil) (:inputs @@ -19817,10 +19195,8 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name nil) (:display :mini-view) (:showname nil) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -20523,7 +19899,7 @@ (:roundness nil) (:text-font (:font-or-nil - (:font (:font (:face "Calibri") (:size 18.0D0) (:style :bold))) + (:font (:font (:face "Calibri") (:size 18) (:style :bold))) (:t-or-nil t))) (:align nil) (:text "CONVERT/EXPORT SCORE-OBJECTS TO MIDI") @@ -20542,11 +19918,9 @@ (:roundness nil) (:text-font nil) (:align :center) - (:name "out.mid") (:display :mini-view) (:showname nil) (:show-markers t) - (:group-id nil) (:lock nil) (:lambda nil) (:inputs @@ -32023,47 +31397,14 @@ (:text "... reload in a MIDI-TRACK !") (:id 17))) (:connections - (:connection - (:from (:box 0 :out 0)) - (:to (:box 5 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 1 :out 0)) - (:to (:box 2 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 2 :out 0)) - (:to (:box 3 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 3 :out 0)) - (:to (:box 4 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 5 :out 0)) - (:to (:box 8 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 5 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 7 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 6 :out 0)) - (:to (:box 3 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 8 :out 0)) - (:to (:box 9 :in 0)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 8 :out 0)) - (:to (:box 13 :in 1)) - (:attributes (:color nil :style nil :modif nil))) - (:connection - (:from (:box 9 :out 0)) - (:to (:box 10 :in 1)) - (:attributes (:color nil :style nil :modif nil))))) \ No newline at end of file + (:connection (:from (:box 0 :out 0)) (:to (:box 5 :in 0))) + (:connection (:from (:box 1 :out 0)) (:to (:box 2 :in 0))) + (:connection (:from (:box 2 :out 0)) (:to (:box 3 :in 1))) + (:connection (:from (:box 3 :out 0)) (:to (:box 4 :in 0))) + (:connection (:from (:box 5 :out 0)) (:to (:box 8 :in 0))) + (:connection (:from (:box 6 :out 0)) (:to (:box 5 :in 1))) + (:connection (:from (:box 6 :out 0)) (:to (:box 7 :in 0))) + (:connection (:from (:box 6 :out 0)) (:to (:box 3 :in 0))) + (:connection (:from (:box 8 :out 0)) (:to (:box 9 :in 0))) + (:connection (:from (:box 8 :out 0)) (:to (:box 13 :in 1))) + (:connection (:from (:box 9 :out 0)) (:to (:box 10 :in 1))))) \ No newline at end of file