aboutsummaryrefslogtreecommitdiff
path: root/help-sort.pd
diff options
context:
space:
mode:
authorKjetil S. Matheussen <ksvalast@users.sourceforge.net>2004-01-08 14:55:24 +0000
committerKjetil S. Matheussen <ksvalast@users.sourceforge.net>2004-01-08 14:55:24 +0000
commit44bc5a27d53124ba82becd4181fc381053c56fdb (patch)
tree4695439f8508017260cad061ad6505d5a7200d4c /help-sort.pd
First commit of k_vst~, k_guile and k_cextsvn2git-root
svn path=/trunk/externals/k_cext/; revision=1253
Diffstat (limited to 'help-sort.pd')
-rw-r--r--help-sort.pd19
1 files changed, 19 insertions, 0 deletions
diff --git a/help-sort.pd b/help-sort.pd
new file mode 100644
index 0000000..018fbb3
--- /dev/null
+++ b/help-sort.pd
@@ -0,0 +1,19 @@
+#N canvas 149 460 622 320 10;
+#X floatatom 20 82 5 0 0 0 - - -;
+#X floatatom 20 267 5 0 0 0 - - -;
+#X text 14 24 Sends out the largest of;
+#X obj 20 111 k_cext 1 1 \; static FLOATARRAY(a \, 5) \; FLOATARRAY(a2
+\, 5) \; static int p=0 \; int i \; a[p%5]=V(0) \; p++ \; RANGE(i \,
+0 \, 5) a2[i]=a[i] \; FLOATSORT(a2 \, 5) \; O(0 \, a2[4]) \;;
+#X text 14 41 the five last float numbers.;
+#X floatatom 318 80 5 0 0 0 - - -;
+#X floatatom 318 265 5 0 0 0 - - -;
+#X text 312 22 Sends out the largest of;
+#X obj 318 109 k_cext 1 1 \; static INTARRAY(a \, 5) \; INTARRAY(a2
+\, 5) \; static int p=0 \; int i \; a[p%5]=I(0) \; p++ \; RANGE(i \,
+0 \, 5) a2[i]=a[i] \; INTSORT(a2 \, 5) \; O(0 \, a2[4]) \;;
+#X text 312 39 the five last integer numbers.;
+#X connect 0 0 3 0;
+#X connect 3 0 1 0;
+#X connect 5 0 8 0;
+#X connect 8 0 6 0;