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/test_xgui_lib.pd | 134 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 134 insertions(+) create mode 100644 xgui/xgui-lib/test_xgui_lib.pd (limited to 'xgui/xgui-lib/test_xgui_lib.pd') diff --git a/xgui/xgui-lib/test_xgui_lib.pd b/xgui/xgui-lib/test_xgui_lib.pd new file mode 100644 index 00000000..dc280859 --- /dev/null +++ b/xgui/xgui-lib/test_xgui_lib.pd @@ -0,0 +1,134 @@ +#N canvas 30 89 933 636 10; +#X obj 60 123 seg; +#X msg 92 114 width \$1; +#X floatatom 92 91 5 0 0; +#X obj 60 146 print seg; +#X msg 22 91 pos 11 13; +#X floatatom 29 58 5 0 0; +#X msg 128 233 help; +#X msg 89 10 pos 1 13; +#X floatatom 235 93 5 0 0; +#X msg 235 70 bang; +#X msg 324 88 mult 2 \, bang; +#X msg 324 134 sub 1 \, bang; +#X msg 324 157 div 2 \, bang; +#X msg 324 111 inv \, bang; +#X msg 324 65 add 1 \, bang; +#X msg 421 68 add 1 \, if >= 10 0 \, bang; +#X msg 422 128 \$1 \, if < 0 0 \, if >= 10 10 \, bang; +#X floatatom 422 105 5 0 0; +#X msg 235 24 help; +#X floatatom 324 19 5 0 0; +#X msg 324 42 !x \$1 \, ?x; +#X floatatom 422 151 5 0 0; +#X floatatom 425 266 5 0 0; +#X msg 425 289 !x \$1 \, ?x; +#X msg 498 270 bang; +#X obj 235 210 number my_first_number; +#X msg 565 241 set my_first_number; +#X obj 425 312 number my_second_number; +#X msg 565 264 get my_first_number \, bang; +#X floatatom 422 220 5 0 0; +#X msg 251 273 do_if => 10 ok; +#X obj 244 241 print; +#X obj 422 197 x my_first_number; +#X msg 235 47 post; +#X msg 643 211 bound 0; +#X obj 425 335 print; +#X msg 422 174 \$1 \, bang; +#X msg 575 166 subspace 0 1 100 10; +#X msg 564 202 bound 1 10; +#X msg 381 20 bound 1 10; +#X obj 41 351 concat test; +#X obj 40 381 print; +#X msg 33 274 1 2 3; +#X floatatom 93 257 5 0 0; +#X symbolatom 12 244 10 0 0; +#X msg 75 306 bonjour truc et bidule; +#X msg 148 274 symbol alors; +#X obj 485 538 oname2l; +#X obj 486 574 print on2l; +#X msg 540 537 help; +#X msg 485 510 symbol */test1/test2; +#X obj 308 540 a2s; +#X msg 308 518 list * / test / test; +#X obj 309 562 print a2s; +#X msg 306 492 list test 1 2 3; +#X obj 523 397 print; +#X obj 525 372 recv2 test; +#X obj 614 400 send test; +#X msg 617 371 foo; +#X msg 528 350 test?; +#X msg 586 336 @ truc; +#X msg 680 376 test; +#X obj 685 402 send truc; +#X msg 637 336 @ test; +#X msg 161 443 help; +#X obj 73 591 print; +#X msg 66 484 1 2 3; +#X floatatom 126 467 5 0 0; +#X symbolatom 45 454 10 0 0; +#X msg 108 516 bonjour truc et bidule; +#X msg 181 484 symbol alors; +#X obj 74 561 replace_selector test; +#X obj 799 411 send2; +#X msg 819 363 test 2; +#X msg 756 358 truc 1; +#X connect 2 0 1 0; +#X connect 6 0 40 0; +#X connect 8 0 25 0; +#X connect 9 0 25 0; +#X connect 10 0 25 0; +#X connect 11 0 25 0; +#X connect 12 0 25 0; +#X connect 13 0 25 0; +#X connect 14 0 25 0; +#X connect 15 0 25 0; +#X connect 16 0 25 0; +#X connect 17 0 16 0; +#X connect 18 0 25 0; +#X connect 19 0 20 0; +#X connect 20 0 25 0; +#X connect 21 0 36 0; +#X connect 22 0 23 0; +#X connect 23 0 27 0; +#X connect 24 0 27 0; +#X connect 25 0 31 0; +#X connect 26 0 27 0; +#X connect 27 0 35 0; +#X connect 28 0 27 0; +#X connect 30 0 25 0; +#X connect 32 0 29 0; +#X connect 33 0 25 0; +#X connect 34 0 32 0; +#X connect 36 0 32 0; +#X connect 37 0 32 0; +#X connect 38 0 32 0; +#X connect 39 0 25 0; +#X connect 40 0 41 0; +#X connect 42 0 40 0; +#X connect 43 0 40 0; +#X connect 44 0 40 0; +#X connect 45 0 40 0; +#X connect 46 0 40 1; +#X connect 47 0 48 0; +#X connect 49 0 47 0; +#X connect 50 0 47 0; +#X connect 51 0 53 0; +#X connect 52 0 51 0; +#X connect 54 0 51 0; +#X connect 56 0 55 0; +#X connect 58 0 57 0; +#X connect 59 0 56 0; +#X connect 60 0 56 0; +#X connect 61 0 62 0; +#X connect 63 0 62 0; +#X connect 64 0 71 0; +#X connect 66 0 71 0; +#X connect 67 0 71 0; +#X connect 68 0 71 0; +#X connect 69 0 71 0; +#X connect 70 0 71 1; +#X connect 71 0 65 0; +#X connect 73 0 72 0; +#X connect 74 0 72 0; -- cgit v1.2.1