From ffbfad84037271db59e3253446e3889addfbbe6c Mon Sep 17 00:00:00 2001 From: "N.N." Date: Sat, 31 Dec 2005 18:44:54 +0000 Subject: . svn path=/trunk/abstractions/pureunity/; revision=4331 --- generics/distributive-test.pd | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 generics/distributive-test.pd (limited to 'generics/distributive-test.pd') diff --git a/generics/distributive-test.pd b/generics/distributive-test.pd new file mode 100644 index 0000000..202e1aa --- /dev/null +++ b/generics/distributive-test.pd @@ -0,0 +1,30 @@ +#N canvas 665 86 452 291 10; +#X obj 40 15 inlet bang; +#X obj 37 122 abs; +#X obj 37 151 /; +#X obj 37 170 t a a; +#X obj 37 208 pack 0 0; +#X obj 37 246 outlet; +#X text 157 24 with tolerance 0; +#X obj 37 189 <= 0; +#X obj 130 122 abs; +#X text 156 9 This test verifies that 3*(4+5)=3*4+3*5; +#X msg 40 34 3 4 5; +#X obj 40 82 unpack 0 0 0; +#X msg 37 227 list distributive1 \$1 \$2 -; +#X obj 37 103 distributor \$2; +#X connect 0 0 10 0; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X connect 3 0 7 0; +#X connect 3 1 4 1; +#X connect 4 0 12 0; +#X connect 7 0 4 0; +#X connect 8 0 2 1; +#X connect 10 0 11 0; +#X connect 11 0 13 0; +#X connect 11 1 13 1; +#X connect 11 2 13 2; +#X connect 12 0 5 0; +#X connect 13 0 1 0; +#X connect 13 1 8 0; -- cgit v1.2.1