From 02a5595973b61d2cf789b9074167ed73b928d157 Mon Sep 17 00:00:00 2001 From: Guenter Geiger Date: Wed, 13 Nov 2002 08:38:02 +0000 Subject: This commit was generated by cvs2svn to compensate for changes in r206, which included commits to RCS files with non-trunk default branches. svn path=/trunk/; revision=207 --- xgui/xgui-lib/help_number.pd | 60 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 60 insertions(+) create mode 100644 xgui/xgui-lib/help_number.pd (limited to 'xgui/xgui-lib/help_number.pd') diff --git a/xgui/xgui-lib/help_number.pd b/xgui/xgui-lib/help_number.pd new file mode 100644 index 00000000..01951510 --- /dev/null +++ b/xgui/xgui-lib/help_number.pd @@ -0,0 +1,60 @@ +#N canvas 125 117 754 468 10; +#X floatatom 35 99 5 0 0; +#X msg 35 76 bang; +#X msg 124 94 mult 2 \, bang; +#X msg 124 140 sub 1 \, bang; +#X msg 124 163 div 2 \, bang; +#X msg 124 117 inv \, bang; +#X msg 124 71 add 1 \, bang; +#X msg 240 63 add 1 \, if >= 10 0 \, bang; +#X msg 241 123 \$1 \, if < 0 0 \, if >= 10 10 \, bang; +#X floatatom 241 100 5 0 0; +#X msg 35 30 help; +#X floatatom 124 25 5 0 0; +#X msg 124 48 !x \$1 \, ?x; +#X floatatom 422 151 5 0 0; +#X floatatom 70 327 5 0 0; +#X msg 70 350 !x \$1 \, ?x; +#X msg 143 331 bang; +#X obj 35 216 number my_first_number; +#X msg 210 302 set my_first_number; +#X obj 70 373 number my_second_number; +#X msg 210 325 get my_first_number \, bang; +#X floatatom 422 220 5 0 0; +#X obj 35 240 print; +#X obj 422 197 x my_first_number; +#X msg 35 53 post; +#X msg 643 211 bound 0; +#X obj 70 396 print; +#X msg 422 174 \$1 \, bang; +#X msg 575 166 subspace 0 1 100 10; +#X msg 646 237 bound 1 10; +#X msg 181 26 bound 1 10; +#X connect 0 0 17 0; +#X connect 1 0 17 0; +#X connect 2 0 17 0; +#X connect 3 0 17 0; +#X connect 4 0 17 0; +#X connect 5 0 17 0; +#X connect 6 0 17 0; +#X connect 7 0 17 0; +#X connect 8 0 17 0; +#X connect 9 0 8 0; +#X connect 10 0 17 0; +#X connect 11 0 12 0; +#X connect 12 0 17 0; +#X connect 13 0 27 0; +#X connect 14 0 15 0; +#X connect 15 0 19 0; +#X connect 16 0 19 0; +#X connect 17 0 22 0; +#X connect 18 0 19 0; +#X connect 19 0 26 0; +#X connect 20 0 19 0; +#X connect 23 0 21 0; +#X connect 24 0 17 0; +#X connect 25 0 23 0; +#X connect 27 0 23 0; +#X connect 28 0 23 0; +#X connect 29 0 23 0; +#X connect 30 0 17 0; -- cgit v1.2.1