From a6376ab21f5a2933a156be03ba0a017fe0fcd8c4 Mon Sep 17 00:00:00 2001
From: "Kjetil S. Matheussen" <ksvalast@users.sourceforge.net>
Date: Mon, 9 Aug 2004 14:23:05 +0000
Subject: New SEND syntax

svn path=/trunk/externals/k_cext/; revision=1930
---
 help-markov.pd | 44 ++++++++++++++++++++++----------------------
 1 file changed, 22 insertions(+), 22 deletions(-)

(limited to 'help-markov.pd')

diff --git a/help-markov.pd b/help-markov.pd
index 84290f3..b0d45a9 100644
--- a/help-markov.pd
+++ b/help-markov.pd
@@ -7,11 +7,6 @@
 #X text 227 19 STEP;
 #X msg 371 52 \; state 1;
 #X text 371 32 reset;
-#X obj 260 103 k_cext 1 0 \; \; int state=I(0) \; int s1[3]=BEGIN 30
-\, 10 \, 70 END \; int s2[3]=BEGIN 60 \, 60 \, 80 END \; int random=RANDOM(100)
-\; \; IF random < s1[state] THEN DO \; . SEND("state" \, 1) \; ELIF
-random < s2[state] THEN DO \; . SEND("state" \, 2) \; ELSE \; . SEND("state"
-\, 3) \;;
 #X obj 33 25 bng 20 250 50 0 empty empty empty 20 8 0 8 -262144 -1
 -1;
 #X obj 72 16 r state;
@@ -34,9 +29,6 @@ THEN DO \; . . . state=1 \; . . ELIF random<80 THEN DO \; . . . state=2
 #X obj 561 300 k_cfunc INT_markov int a int b \; int random=RANDOM(100)
 \; IF random<a THEN DO \; . return 1 \; ELIF random<b THEN DO \; .
 return 2 \; ELSE \; . return 3 \;;
-#X obj 557 115 k_cext 1 0 \; \; int s1[3]=BEGIN 30 \, 10 \, 70 END
-\; int s2[3]=BEGIN 60 \, 60 \, 80 END \; SEND("state" \, INT_markov(s1[I(0)]
-\, s2[I(0)])) \;;
 #X obj 574 46 bng 20 250 50 0 empty empty empty 20 8 0 8 -262144 -1
 -1;
 #X obj 613 37 r state;
@@ -44,23 +36,31 @@ return 2 \; ELSE \; . return 3 \;;
 #X floatatom 642 61 3 0 0 0 - - -;
 #X text 557 25 STEP;
 #X msg 530 72 print;
-#X text 237 29;
+#X text 237 29 comment;
 #X text 244 360 Three ways to implement the markov;
 #X msg 561 259 print;
+#X obj 260 103 k_cext 1 0 \; \; int state=I(0) \; int s1[3]=BEGIN 30
+\, 10 \, 70 END \; int s2[3]=BEGIN 60 \, 60 \, 80 END \; int random=RANDOM(100)
+\; \; IF random < s1[state] THEN DO \; . SEND(state \, 1) \; ELIF random
+< s2[state] THEN DO \; . SEND(state \, 2) \; ELSE \; . SEND(state \,
+3) \;;
+#X obj 557 115 k_cext 1 0 \; \; int s1[3]=BEGIN 30 \, 10 \, 70 END
+\; int s2[3]=BEGIN 60 \, 60 \, 80 END \; SEND(state \, INT_markov(s1[I(0)]
+\, s2[I(0)])) \;;
 #X connect 0 0 2 0;
 #X connect 1 0 2 1;
 #X connect 1 0 3 0;
-#X connect 2 0 7 0;
+#X connect 2 0 28 0;
+#X connect 7 0 9 0;
+#X connect 8 0 9 1;
 #X connect 8 0 10 0;
-#X connect 9 0 10 1;
-#X connect 9 0 11 0;
-#X connect 10 0 18 0;
-#X connect 16 0 18 0;
-#X connect 17 0 7 0;
-#X connect 18 0 13 0;
-#X connect 21 0 23 0;
-#X connect 22 0 23 1;
-#X connect 22 0 24 0;
-#X connect 23 0 20 0;
-#X connect 26 0 20 0;
-#X connect 29 0 19 0;
+#X connect 9 0 17 0;
+#X connect 15 0 17 0;
+#X connect 16 0 28 0;
+#X connect 17 0 12 0;
+#X connect 19 0 21 0;
+#X connect 20 0 21 1;
+#X connect 20 0 22 0;
+#X connect 21 0 29 0;
+#X connect 24 0 29 0;
+#X connect 27 0 18 0;
-- 
cgit v1.2.1