(:patch (:name "DFT-fixed") (:doc "") (:info (:created "2022/08/11 10:24:24") (:modified "2022/12/12 22:47:34") (:by "om-sharp") (:version 1.07)) (:window (:size (864 843)) (:position (383 32))) (:grid nil) (:lock nil) (:boxes (:box (:type :function) (:reference arithm-ser) (:group-id nil) (:name "arithm-ser") (:x 464) (:y 417) (:w 201) (:h 35) (:color nil) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:icon :left) (:lock nil) (:lambda nil) (:reactive nil) (:inputs (:input (:type :standard) (:name "BEGIN") (:value 0) (:reactive nil)) (:input (:type :standard) (:name "END") (:value 4095) (:reactive nil)) (:input (:type :standard) (:name "STEP") (:value 1) (:reactive nil))) (:outputs (:output (:name "out") (:reactive nil))) (:id 0)) (:box (:type :value) (:reference bit) (:group-id nil) (:name "value box") (:x 483) (:y 383) (:w 32) (:h 35) (:color (:color-or-nil (:color (:color 1.0 1.0 1.0 1.0)) (:t-or-nil t))) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:lock nil) (:reactive nil) (:inputs) (:outputs (:output (:name "value") (:reactive nil))) (:value 0) (:id 1)) (:box (:type :value) (:reference bit) (:group-id nil) (:name "value box") (:x 604) (:y 382) (:w 32) (:h 35) (:color (:color-or-nil (:color (:color 1.0 1.0 1.0 1.0)) (:t-or-nil t))) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:lock nil) (:reactive nil) (:inputs) (:outputs (:output (:name "value") (:reactive nil))) (:value 1) (:id 2)) (:box (:type :function) (:reference mapcar) (:group-id nil) (:name "mapcar") (:x 238) (:y 486) (:w 442) (:h 35) (:color nil) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:icon :left) (:lock nil) (:lambda nil) (:reactive nil) (:inputs (:input (:type :standard) (:name "FUNCTION") (:value nil) (:reactive nil)) (:input (:type :standard) (:name "LIST") (:value nil) (:reactive nil))) (:outputs (:output (:name "out") (:reactive nil))) (:id 3)) (:box (:type :object) (:reference textbuffer) (:group-id nil) (:name nil) (:x 159) (:y 550) (:w 407) (:h 153) (:color nil) (:border nil) (:roundness nil) (:text-font nil) (:align :center) (:display :mini-view) (:showname nil) (:lock nil) (:lambda nil) (:reactive nil) (:inputs (:input (:type :standard) (:name "SELF") (:value nil) (:reactive nil)) (:input (:type :standard) (:name "CONTENTS") (:value nil) (:reactive nil))) (:outputs (:output (:name "SELF") (:reactive nil)) (:output (:name "CONTENTS") (:reactive nil))) (:window (:size (1277 820)) (:position (42 74))) (:edition-params) (:value (:object (:class textbuffer) (:slots ((:contents (:list "#C(3.0D0 0.0D0)" "#C(-0.3660254049047639D0 -0.366025655396299D0)" "#C(1.000000162166268D0 9.362681274716067D-8)" "#C(1.9999993446126294D0 1.0000003745068136D0)" "#C(1.1892197891438805D-6 -1.7320514941646579D0)" "#C(1.3660243170736004D0 1.3660260376648672D0)" "#C(1.0000000000005785D0 -5.617605442272223D-7)" "#C(1.3660269251782018D0 -1.3660245163502705D0)" "#C(-2.378438058725507D-6 1.7320494343746847D0)" "#C(2.000001966161265D0 -0.9999988764769822D0)" "#C(0.9999991891676938D0 4.681323944044635D-7)" "#C(-0.36602539145761815D0 0.36602263605465746D0)")))) (:add-slots ((:input-mode :lines-cols))))) (:id 4)) (:box (:type :abstraction) (:reference (:patch (:name "DFT") (:doc "") (:info (:created nil) (:modified nil) (:by *app-name*) (:version 0)) (:window (:size (980 751)) (:position (192 192))) (:grid nil) (:lock nil) (:boxes (:box (:type :io) (:reference (:in (:type omin) (:index 1) (:name "freq_index") (:doc ""))) (:group-id nil) (:name "freq_index") (:x 189) (:y 9) (:w 97) (: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) (:reactive nil) (: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 514) (:y 568) (:w 79) (: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) (:reactive nil) (:inputs (:input (:type :standard) (:name "out-value") (:value nil) (:reactive nil))) (:outputs) (:id 1)) (:box (:type :io) (:reference (:in (:type omin) (:index 2) (:name "N") (:doc ""))) (:group-id nil) (:name "N") (:x 387) (:y 23) (: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) (:reactive nil) (:inputs) (:outputs (:output (:name "out") (:reactive nil))) (:id 2)) (:box (:type :io) (:reference (:in (:type omin) (:index 3) (:name "AUDIO") (:doc ""))) (:group-id nil) (:name "AUDIO") (:x 504) (:y 67) (:w 73) (: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) (:reactive nil) (:inputs) (:outputs (:output (:name "out") (:reactive nil))) (:id 3)) (:box (:type :abstraction) (:reference (:patch (:name "eq 3") (:doc "") (:info (:created nil) (:modified nil) (:by *app-name*) (:version 0)) (:window (:size (1084 772)) (:position (32 32))) (:grid nil) (:lock nil) (:boxes (:box (:type :io) (:reference (:in (:type omin) (:index 1) (:name "n") (:doc ""))) (:group-id nil) (:name "n") (:x 435) (:y 251) (:w 72) (: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) (:reactive nil) (: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 565) (:y 603) (:w 79) (: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) (:reactive nil) (:inputs (:input (:type :standard) (:name "out-value") (:value nil) (:reactive nil))) (:outputs) (:id 1)) (:box (:type :io) (:reference (:in (:type omin) (:index 2) (:name "K") (:doc ""))) (:group-id nil) (:name "K") (:x 342) (:y 184) (:w 51) (: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) (:reactive nil) (:inputs) (:outputs (:output (:name "out") (:reactive nil))) (:id 2)) (:box (:type :io) (:reference (:in (:type omin) (:index 3) (:name "LENGTH") (:doc ""))) (:group-id nil) (:name "LENGTH") (:x 474) (:y 134) (:w 88) (: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) (:reactive nil) (:inputs) (:outputs (:output (:name "out") (:reactive nil))) (:id 3)) (:box (:type :io) (:reference (:in (:type omin) (:index 4) (:name "AUDIO") (:doc ""))) (:group-id nil) (:name "AUDIO") (:x 742) (:y 191) (:w 73) (: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) (:reactive nil) (:inputs) (:outputs (:output (:name "out") (:reactive nil))) (:id 4)) (:box (:type :function) (:reference *) (:group-id nil) (:name "*") (:x 101) (:y 145) (:w 168) (:h 35) (:color nil) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:icon :left) (:lock nil) (:lambda nil) (:reactive nil) (:inputs (:input (:type :optional) (:name "args") (:value nil) (:reactive nil)) (:input (:type :optional) (:name "args") (:value nil) (:reactive nil))) (:outputs (:output (:name "out") (:reactive nil))) (:id 5)) (:box (:type :value) (:reference fixnum) (:group-id nil) (:name "value box") (:x 123) (:y 107) (:w 39) (:h 35) (:color (:color-or-nil (:color (:color 1.0 1.0 1.0 1.0)) (:t-or-nil t))) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:lock nil) (:reactive nil) (:inputs) (:outputs (:output (:name "value") (:reactive nil))) (:value -2) (:id 6)) (:box (:type :value) (:reference (:list complex double-float)) (:group-id nil) (:name "value box") (:x 50) (:y 188) (:w 260) (:h 35) (:color (:color-or-nil (:color (:color 1.0 1.0 1.0 1.0)) (:t-or-nil t))) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:lock nil) (:reactive nil) (:inputs (:input (:type :optional) (:name "in") (:value nil) (:reactive nil))) (:outputs (:output (:name "value") (:reactive nil))) (:value #C(-0.0D0 -6.283185307179586D0)) (:id 7)) (:box (:type :function) (:reference /) (:group-id nil) (:name "/") (:x 164) (:y 266) (:w 62) (:h 35) (:color nil) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:icon :left) (:lock nil) (:lambda nil) (:reactive nil) (:inputs (:input (:type :standard) (:name "NUM") (:value 1) (:reactive nil)) (:input (:type :optional) (:name "args") (:value 1) (:reactive nil))) (:outputs (:output (:name "out") (:reactive nil))) (:id 8)) (:box (:type :function) (:reference expt) (:group-id nil) (:name "expt") (:x 232) (:y 470) (:w 153) (:h 35) (:color nil) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:icon :left) (:lock nil) (:lambda nil) (:reactive nil) (:inputs (:input (:type :standard) (:name "B") (:value nil) (:reactive nil)) (:input (:type :standard) (:name "P") (:value nil) (:reactive nil))) (:outputs (:output (:name "out") (:reactive nil))) (:id 9)) (:comment (:x 50) (:y 368) (:w 147) (:h 22) (:fgcolor nil) (:bgcolor nil) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:text "raiz quadrada de 1") (:id 10)) (:box (:type :function) (:reference *) (:group-id nil) (:name "*") (:x 242) (:y 395) (:w 213) (:h 35) (:color nil) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:icon :left) (:lock nil) (:lambda nil) (:reactive nil) (:inputs (:input (:type :optional) (:name "args") (:value nil) (:reactive nil)) (:input (:type :optional) (:name "args") (:value nil) (:reactive nil)) (:input (:type :optional) (:name "args") (:value nil) (:reactive nil)) (:input (:type :optional) (:name "args") (:value nil) (:reactive nil))) (:outputs (:output (:name "out") (:reactive nil))) (:id 11)) (:comment (:x 239) (:y 224) (:w 38) (:h 22) (:fgcolor nil) (:bgcolor nil) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:text "N") (:id 12)) (:box (:type :function) (:reference eval) (:group-id nil) (:name "eval") (:x 340) (:y 56) (:w 68) (:h 35) (:color nil) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:icon :left) (:lock nil) (:lambda nil) (:reactive nil) (:inputs (:input (:type :standard) (:name "EXP") (:value nil) (:reactive nil))) (:outputs (:output (:name "out") (:reactive nil))) (:id 13)) (:box (:type :value) (:reference symbol) (:group-id nil) (:name "value box") (:x 339) (:y 18) (:w 32) (:h 35) (:color (:color-or-nil (:color (:color 1.0 1.0 1.0 1.0)) (:t-or-nil t))) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:lock nil) (:reactive nil) (:inputs) (:outputs (:output (:name "value") (:reactive nil))) (:value pi) (:id 14)) (:box (:type :function) (:reference sqrt) (:group-id nil) (:name "sqrt") (:x 47) (:y 259) (:w 64) (:h 35) (:color nil) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:icon :left) (:lock nil) (:lambda nil) (:reactive nil) (:inputs (:input (:type :standard) (:name "A") (:value -1) (:reactive nil))) (:outputs (:output (:name "out") (:reactive nil))) (:id 15)) (:box (:type :value) (:reference fixnum) (:group-id nil) (:name "value box") (:x 63) (:y 224) (:w 32) (:h 35) (:color (:color-or-nil (:color (:color 1.0 1.0 1.0 1.0)) (:t-or-nil t))) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:lock nil) (:reactive nil) (:inputs) (:outputs (:output (:name "value") (:reactive nil))) (:value -1) (:id 16)) (:box (:type :function) (:reference exp) (:group-id nil) (:name "exp") (:x 76) (:y 401) (:w 64) (:h 35) (:color nil) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:icon :left) (:lock nil) (:lambda nil) (:reactive nil) (:inputs (:input (:type :standard) (:name "A") (:value 1) (:reactive nil))) (:outputs (:output (:name "out") (:reactive nil))) (:id 17)) (:box (:type :value) (:reference bit) (:group-id nil) (:name "value box") (:x 92) (:y 366) (:w 32) (:h 35) (:color (:color-or-nil (:color (:color 1.0 1.0 1.0 1.0)) (:t-or-nil t))) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:lock nil) (:reactive nil) (:inputs) (:outputs (:output (:name "value") (:reactive nil))) (:value 1) (:id 18)) (:box (:type :function) (:reference *) (:group-id nil) (:name "*") (:x 520) (:y 513) (:w 157) (:h 35) (:color nil) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:icon :left) (:lock nil) (:lambda nil) (:reactive nil) (:inputs (:input (:type :optional) (:name "args") (:value nil) (:reactive nil)) (:input (:type :optional) (:name "args") (:value nil) (:reactive nil))) (:outputs (:output (:name "out") (:reactive nil))) (:id 19)) (:box (:type :function) (:reference nth) (:group-id nil) (:name "nth") (:x 598) (:y 360) (:w 60) (:h 35) (:color nil) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:icon :left) (:lock nil) (:lambda nil) (:reactive nil) (:inputs (:input (:type :standard) (:name "ORIG-N") (:value nil) (:reactive nil)) (:input (:type :standard) (:name "ORIG-LIST") (:value nil) (:reactive nil))) (:outputs (:output (:name "out") (:reactive nil))) (:id 20))) (:connections (:connection (:from (:box 0 :out 0)) (:to (:box 11 :in 3))) (:connection (:from (:box 0 :out 0)) (:to (:box 20 :in 0))) (:connection (:from (:box 2 :out 0)) (:to (:box 11 :in 2))) (:connection (:from (:box 3 :out 0)) (:to (:box 8 :in 1)) (:attributes (:color nil :style nil :modif (0 23/100)))) (:connection (:from (:box 4 :out 0)) (:to (:box 20 :in 1))) (:connection (:from (:box 5 :out 0)) (:to (:box 7 :in 0))) (:connection (:from (:box 6 :out 0)) (:to (:box 5 :in 0))) (:connection (:from (:box 7 :out 0)) (:to (:box 8 :in 0))) (:connection (:from (:box 8 :out 0)) (:to (:box 11 :in 1))) (:connection (:from (:box 9 :out 0)) (:to (:box 19 :in 0))) (:connection (:from (:box 11 :out 0)) (:to (:box 9 :in 1))) (:connection (:from (:box 13 :out 0)) (:to (:box 5 :in 1))) (:connection (:from (:box 14 :out 0)) (:to (:box 13 :in 0))) (:connection (:from (:box 15 :out 0)) (:to (:box 11 :in 0)) (:attributes (:color nil :style nil :modif (0 5/37)))) (:connection (:from (:box 16 :out 0)) (:to (:box 15 :in 0))) (:connection (:from (:box 17 :out 0)) (:to (:box 9 :in 0))) (:connection (:from (:box 18 :out 0)) (:to (:box 17 :in 0))) (:connection (:from (:box 19 :out 0)) (:to (:box 1 :in 0))) (:connection (:from (:box 20 :out 0)) (:to (:box 19 :in 1)))))) (:group-id nil) (:name "eq 3") (:x 39) (:y 167) (:w 200) (:h 60) (:color nil) (:border nil) (:roundness nil) (:text-font nil) (:align :center) (:display :hidden) (:pre-delay 0) (:lock nil) (:lambda :lambda) (:reactive nil) (:inputs (:input (:type :standard) (:name "n") (:value nil) (:reactive nil)) (:input (:type :standard) (:name "K") (:value nil) (:reactive nil)) (:input (:type :standard) (:name "LENGTH") (:value nil) (:reactive nil)) (:input (:type :standard) (:name "AUDIO") (:value nil) (:reactive nil))) (:outputs (:output (:name "output 1") (:reactive nil))) (:id 4)) (:box (:type :function) (:reference mapcar) (:group-id nil) (:name "mapcar") (:x 349) (:y 283) (:w 91) (:h 35) (:color nil) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:icon :left) (:lock nil) (:lambda nil) (:reactive nil) (:inputs (:input (:type :standard) (:name "FUNCTION") (:value nil) (:reactive nil)) (:input (:type :standard) (:name "LIST") (:value nil) (:reactive nil))) (:outputs (:output (:name "out") (:reactive nil))) (:id 5)) (:box (:type :function) (:reference arithm-ser) (:group-id nil) (:name "arithm-ser") (:x 311) (:y 192) (:w 201) (:h 35) (:color nil) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:icon :left) (:lock nil) (:lambda nil) (:reactive nil) (:inputs (:input (:type :standard) (:name "BEGIN") (:value 0) (:reactive nil)) (:input (:type :standard) (:name "END") (:value 4095) (:reactive nil)) (:input (:type :standard) (:name "STEP") (:value 1) (:reactive nil))) (:outputs (:output (:name "out") (:reactive nil))) (:id 6)) (:box (:type :value) (:reference bit) (:group-id nil) (:name "value box") (:x 330) (:y 158) (:w 32) (:h 35) (:color (:color-or-nil (:color (:color 1.0 1.0 1.0 1.0)) (:t-or-nil t))) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:lock nil) (:reactive nil) (:inputs) (:outputs (:output (:name "value") (:reactive nil))) (:value 0) (:id 7)) (:box (:type :value) (:reference bit) (:group-id nil) (:name "value box") (:x 451) (:y 157) (:w 32) (:h 35) (:color (:color-or-nil (:color (:color 1.0 1.0 1.0 1.0)) (:t-or-nil t))) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:lock nil) (:reactive nil) (:inputs) (:outputs (:output (:name "value") (:reactive nil))) (:value 1) (:id 8)) (:comment (:x 24) (:y 33) (:w 169) (:h 22) (:fgcolor nil) (:bgcolor nil) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:text "Frequencia fundamental") (:id 9)) (:comment (:x 519) (:y 194) (:w 73) (:h 22) (:fgcolor nil) (:bgcolor nil) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:text "Index") (:id 10)) (:box (:type :function) (:reference reduce) (:group-id nil) (:name "reduce") (:x 268) (:y 369) (:w 87) (:h 35) (:color nil) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:icon :left) (:lock nil) (:lambda nil) (:reactive nil) (:inputs (:input (:type :standard) (:name "FUNCTION") (:value nil) (:reactive nil)) (:input (:type :standard) (:name "SEQUENCE") (:value nil) (:reactive nil))) (:outputs (:output (:name "out") (:reactive nil))) (:id 11)) (:box (:type :value) (:reference symbol) (:group-id nil) (:name "value box") (:x 272) (:y 334) (:w 35) (:h 35) (:color (:color-or-nil (:color (:color 1.0 1.0 1.0 1.0)) (:t-or-nil t))) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:lock nil) (:reactive nil) (:inputs) (:outputs (:output (:name "value") (:reactive nil))) (:value +) (:id 12)) (:box (:type :function) (:reference 1+) (:group-id nil) (:name "1+") (:x 275) (:y 71) (:w 56) (:h 35) (:color nil) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:icon :left) (:lock nil) (:lambda nil) (:reactive nil) (:inputs (:input (:type :standard) (:name "X") (:value nil) (:reactive nil))) (:outputs (:output (:name "out") (:reactive nil))) (:id 13))) (:connections (:connection (:from (:box 0 :out 0)) (:to (:box 4 :in 1))) (:connection (:from (:box 2 :out 0)) (:to (:box 6 :in 1))) (:connection (:from (:box 2 :out 0)) (:to (:box 13 :in 0))) (:connection (:from (:box 3 :out 0)) (:to (:box 4 :in 3))) (:connection (:from (:box 4 :out 0)) (:to (:box 5 :in 0))) (:connection (:from (:box 5 :out 0)) (:to (:box 11 :in 1))) (:connection (:from (:box 6 :out 0)) (:to (:box 5 :in 1)) (:attributes (:color nil :style nil :modif (0 -23/97)))) (:connection (:from (:box 7 :out 0)) (:to (:box 6 :in 0))) (:connection (:from (:box 8 :out 0)) (:to (:box 6 :in 2))) (:connection (:from (:box 11 :out 0)) (:to (:box 1 :in 0))) (:connection (:from (:box 12 :out 0)) (:to (:box 11 :in 0))) (:connection (:from (:box 13 :out 0)) (:to (:box 4 :in 2)) (:attributes (:color nil :style nil :modif (0 -11/71))))))) (:group-id nil) (:name "DFT") (:x 97) (:y 386) (:w 168) (:h 60) (:color nil) (:border nil) (:roundness nil) (:text-font nil) (:align :center) (:display :hidden) (:pre-delay 0) (:lock nil) (:lambda :lambda) (:reactive nil) (:inputs (:input (:type :standard) (:name "freq_index") (:value nil) (:reactive nil)) (:input (:type :standard) (:name "N") (:value nil) (:reactive nil)) (:input (:type :standard) (:name "AUDIO") (:value nil) (:reactive nil))) (:outputs (:output (:name "output 1") (:reactive nil))) (:id 5)) (:box (:type :function) (:reference length) (:group-id nil) (:name "length") (:x 140) (:y 279) (:w 82) (:h 35) (:color nil) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:icon :left) (:lock nil) (:lambda nil) (:reactive nil) (:inputs (:input (:type :standard) (:name "SEQUENCE") (:value nil) (:reactive nil))) (:outputs (:output (:name "out") (:reactive nil))) (:id 6)) (:box (:type :function) (:reference 1-) (:group-id nil) (:name "1-") (:x 133) (:y 325) (:w 96) (:h 35) (:color nil) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:icon :left) (:lock nil) (:lambda nil) (:reactive nil) (:inputs (:input (:type :standard) (:name "X") (:value nil) (:reactive nil))) (:outputs (:output (:name "out") (:reactive nil))) (:id 7)) (:box (:type :value) (:reference cons) (:group-id nil) (:name "value box") (:x 450) (:y 177) (:w 180) (:h 35) (:color (:color-or-nil (:color (:color 1.0 1.0 1.0 1.0)) (:t-or-nil t))) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:lock nil) (:reactive nil) (:inputs) (:outputs (:output (:name "value") (:reactive nil))) (:value (:list 1 0 0 0 1 0 0 1 0 0 0 0)) (:id 8)) (:comment (:x 203) (:y 115) (:w 197) (:h 36) (:fgcolor nil) (:bgcolor nil) (:border nil) (:roundness nil) (:text-font nil) (:align nil) (:text "(#C(3.0 -0.0) #C(-0.36602542 -0.36602542)") (:id 9))) (:connections (:connection (:from (:box 0 :out 0)) (:to (:box 3 :in 1))) (:connection (:from (:box 1 :out 0)) (:to (:box 0 :in 0))) (:connection (:from (:box 2 :out 0)) (:to (:box 0 :in 2))) (:connection (:from (:box 3 :out 0)) (:to (:box 4 :in 1))) (:connection (:from (:box 5 :out 0)) (:to (:box 3 :in 0))) (:connection (:from (:box 6 :out 0)) (:to (:box 7 :in 0))) (:connection (:from (:box 7 :out 0)) (:to (:box 0 :in 1)) (:attributes (:color nil :style nil :modif (0 -0.31567162)))) (:connection (:from (:box 7 :out 0)) (:to (:box 5 :in 1))) (:connection (:from (:box 8 :out 0)) (:to (:box 6 :in 0))) (:connection (:from (:box 8 :out 0)) (:to (:box 5 :in 2)))))