88 lines
2.3 KiB
Text
88 lines
2.3 KiB
Text
#N canvas 595 91 554 605 10;
|
|
#X obj 105 103 list fromsymbol;
|
|
#X obj 71 185 list store;
|
|
#X obj 105 126 list prepend append;
|
|
#X obj 105 149 list trim;
|
|
#X obj 105 80 list;
|
|
#X obj 71 231 list length;
|
|
#X obj 71 323 list split 1;
|
|
#X obj 71 300 list;
|
|
#X obj 71 208 t l l;
|
|
#X obj 71 277 until;
|
|
#X obj 362 145 v sign\$0;
|
|
#X obj 362 268 v itgr\$0;
|
|
#X obj 362 291 v frac\$0;
|
|
#X obj 362 245 v isfrac\$0;
|
|
#X msg 169 362 -1;
|
|
#X msg 332 245 0;
|
|
#X obj 362 168 v nfrac\$0;
|
|
#X msg 332 145 1;
|
|
#X obj 71 254 + 1;
|
|
#X obj 71 49 t b b a b;
|
|
#X obj 84 546 spigot;
|
|
#X obj 47 454 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
|
|
1;
|
|
#X obj 164 546 spigot;
|
|
#X obj 87 454 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
|
|
1;
|
|
#X obj 20 392 t b b;
|
|
#X msg 47 415 1;
|
|
#X obj 71 20 inlet;
|
|
#X obj 84 569 outlet;
|
|
#X obj 164 569 outlet;
|
|
#X obj 332 119 bng 15 250 50 0 empty \$0-init r:0-init 17 7 0 10 -262144
|
|
-1 -1;
|
|
#X obj 30 112 bng 15 250 50 0 \$0-init empty s:0-init 17 7 0 10 -262144
|
|
-1 -1;
|
|
#X obj 332 219 bng 15 250 50 0 empty \$0-init r:0-init 17 7 0 10 -262144
|
|
-1 -1;
|
|
#X obj 87 395 bng 15 250 50 0 empty \$0-init r:0-init 17 7 0 10 -262144
|
|
-1 -1;
|
|
#X msg 87 415 0;
|
|
#X obj 169 391 expr if($i1==-1 \, sign\$0*itgr\$0 \, 0) \; if($i1==-1
|
|
\, sign\$0*frac\$0*nfrac\$0 \, 0) \; if($i1==46 \, isfrac\$0=1 \, 0)
|
|
\; if(isfrac\$0==1 \, nfrac\$0=nfrac\$0/10 \, 0) \; if($i1 >= 48 \,
|
|
if($i1 <= 57 \, if(isfrac\$0==0 \, itgr\$0=itgr\$0*10+($i1-48) \, frac\$0=frac\$0*10+($i1-48))
|
|
\, 0) \, 0) \; if($i1==45 \, sign\$0=-1 \, 0) \; if($i1==-1 \, isfrac\$0=0
|
|
\, 0);
|
|
#X connect 0 0 2 0;
|
|
#X connect 1 0 8 0;
|
|
#X connect 2 0 3 0;
|
|
#X connect 3 0 1 0;
|
|
#X connect 4 0 0 0;
|
|
#X connect 5 0 18 0;
|
|
#X connect 6 0 34 0;
|
|
#X connect 6 1 7 1;
|
|
#X connect 6 2 24 0;
|
|
#X connect 7 0 6 0;
|
|
#X connect 8 0 5 0;
|
|
#X connect 8 1 7 1;
|
|
#X connect 9 0 7 0;
|
|
#X connect 14 0 34 0;
|
|
#X connect 15 0 12 0;
|
|
#X connect 15 0 11 0;
|
|
#X connect 15 0 13 0;
|
|
#X connect 17 0 16 0;
|
|
#X connect 17 0 10 0;
|
|
#X connect 18 0 9 0;
|
|
#X connect 19 0 1 0;
|
|
#X connect 19 1 30 0;
|
|
#X connect 19 2 4 0;
|
|
#X connect 19 3 1 1;
|
|
#X connect 20 0 27 0;
|
|
#X connect 21 0 20 1;
|
|
#X connect 22 0 28 0;
|
|
#X connect 23 0 22 1;
|
|
#X connect 24 0 14 0;
|
|
#X connect 24 1 25 0;
|
|
#X connect 25 0 23 0;
|
|
#X connect 25 0 21 0;
|
|
#X connect 26 0 19 0;
|
|
#X connect 29 0 17 0;
|
|
#X connect 31 0 15 0;
|
|
#X connect 32 0 33 0;
|
|
#X connect 33 0 23 0;
|
|
#X connect 33 0 21 0;
|
|
#X connect 34 0 20 0;
|
|
#X connect 34 1 22 0;
|