#N canvas 745 430 668 300 10; #X msg 143 58 0.5; #X floatatom 143 159 10 0 0 0 - - -, f 10; #X obj 143 99 expr if ($f1 < 1 \, int($f1*100000) / 100000 \, (if ($f1 < 10 \, int($f1*10000) / 10000 \, (if ($f1 < 100 \, int($f1*1000) / 1000 \, (if ($f1 < 1000 \, int($f1*100) / 100 \, (if ($f1 < 10000 \, int($f1*10) / 10 \, (if ($f1 < 100000 \, int($f1) \, 0))))))))))); #X msg 499 58 15000; #X msg 419 58 12.3457; #X msg 339 59 123.457; #X msg 260 59 1.23457; #X msg 179 59 0.123457; #X obj 143 180 makefilename %s; #X obj 143 201 print; #X connect 0 0 2 0; #X connect 1 0 8 0; #X connect 2 0 1 0; #X connect 3 0 2 0; #X connect 4 0 2 0; #X connect 5 0 2 0; #X connect 6 0 2 0; #X connect 7 0 2 0; #X connect 8 0 9 0;