From 04f9a0c239d6f38d7f5ed70671d70ec30beb7bf5 Mon Sep 17 00:00:00 2001 From: Katja Date: Sun, 13 Nov 2011 15:09:18 +0000 Subject: add unittest dir plus content to smlib svn path=/trunk/externals/smlib/; revision=15735 --- unittests/lhist-unittest.pd | 83 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 83 insertions(+) create mode 100644 unittests/lhist-unittest.pd (limited to 'unittests/lhist-unittest.pd') diff --git a/unittests/lhist-unittest.pd b/unittests/lhist-unittest.pd new file mode 100644 index 0000000..5af4d10 --- /dev/null +++ b/unittests/lhist-unittest.pd @@ -0,0 +1,83 @@ +#N canvas 410 122 722 560 10; +#X obj 49 186 unit-test-frame; +#X obj 49 58 loadbang; +#X msg 426 64 clear; +#X obj 370 6 cos; +#N canvas 628 152 504 542 list-drip 0; +#X obj 68 94 t a a; +#X obj 68 251 spigot; +#X obj 101 159 bang; +#X obj 101 185 1; +#X obj 207 160 route bang; +#X obj 170 160 bang; +#X obj 170 186 0; +#X obj 101 124 list split 2; +#X obj 134 348 list split; +#X obj 191 297 list length; +#X obj 191 319 >> 1; +#X obj 68 280 t a a a a; +#X obj 68 439 list split; +#X obj 125 391 list length; +#X obj 125 416 >> 1; +#X obj 41 29 inlet; +#X obj 264 186 outlet; +#X text 83 29 Copyright 2009 by Mathieu Bouchard; +#X obj 41 63 t b a; +#X obj 328 80 outlet; +#X text 383 82 signal end of list; +#X text 35 502 made compatible with [list-drip]: fbar 2009; +#X connect 0 0 1 0; +#X connect 0 1 7 0; +#X connect 1 0 11 0; +#X connect 2 0 3 0; +#X connect 3 0 1 1; +#X connect 4 1 16 0; +#X connect 5 0 6 0; +#X connect 6 0 1 1; +#X connect 7 0 2 0; +#X connect 7 2 4 0; +#X connect 7 2 5 0; +#X connect 8 0 0 0; +#X connect 9 0 10 0; +#X connect 10 0 8 1; +#X connect 11 0 12 0; +#X connect 11 1 13 0; +#X connect 11 2 8 0; +#X connect 11 3 9 0; +#X connect 12 1 0 0; +#X connect 13 0 14 0; +#X connect 14 0 12 1; +#X connect 15 0 18 0; +#X connect 18 0 19 0; +#X connect 18 1 0 0; +#X restore 370 123 pd list-drip; +#X obj 370 -46 / 128; +#X obj 370 36 abs; +#X obj 370 -19 * 3.14159; +#X text 116 -52 hist: histograms; +#X text 116 -9 - value of first class; +#X text 116 18 - number of classes; +#X text 116 5 - value of last class; +#X text 114 -24 arguments:; +#X text 116 53 - array of samples in classes; +#X text 114 38 output:; +#X obj 370 64 pow 0.5; +#X obj 370 151 / 8; +#X msg 306 64 absolute; +#X obj 370 98 smlib/lhist 0 1 512 20; +#X msg 49 90 lhist 0; +#X connect 0 1 17 0; +#X connect 0 2 5 0; +#X connect 0 3 2 0; +#X connect 1 0 19 0; +#X connect 2 0 18 0; +#X connect 3 0 6 0; +#X connect 4 0 16 0; +#X connect 5 0 7 0; +#X connect 6 0 15 0; +#X connect 7 0 3 0; +#X connect 15 0 18 0; +#X connect 16 0 0 1; +#X connect 17 0 18 0; +#X connect 18 0 4 0; +#X connect 19 0 0 0; -- cgit v1.2.1