From a7e6303e3e7e87bf90b21821d2e419ed4799783c Mon Sep 17 00:00:00 2001
From: musil <tmusil@users.sourceforge.net>
Date: Fri, 28 Jun 2013 17:25:22 +0000
Subject: initial check in of double precision library of iem

svn path=/trunk/externals/iem/iem_dp/; revision=17167
---
 *__-help.pd        | 48 ++++++++++++++++++++++++++++++
 +__-help.pd        | 48 ++++++++++++++++++++++++++++++
 -__-help.pd        | 48 ++++++++++++++++++++++++++++++
 div__-help.pd      | 78 +++++++++++++++++++++++++++++++++++++++++++++++++
 max__-help.pd      | 47 +++++++++++++++++++++++++++++
 min__-help.pd      | 47 +++++++++++++++++++++++++++++
 random__-help.pd   | 44 ++++++++++++++++++++++++++++
 tabread4__-help.pd | 86 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 tabread__-help.pd  | 86 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 tabwrite__-help.pd | 61 ++++++++++++++++++++++++++++++++++++++
 10 files changed, 593 insertions(+)
 create mode 100755 *__-help.pd
 create mode 100755 +__-help.pd
 create mode 100755 -__-help.pd
 create mode 100755 div__-help.pd
 create mode 100644 max__-help.pd
 create mode 100644 min__-help.pd
 create mode 100644 random__-help.pd
 create mode 100644 tabread4__-help.pd
 create mode 100644 tabread__-help.pd
 create mode 100644 tabwrite__-help.pd

(limited to '*__-help.pd')

diff --git a/*__-help.pd b/*__-help.pd
new file mode 100755
index 0000000..5b68324
--- /dev/null
+++ b/*__-help.pd
@@ -0,0 +1,48 @@
+#N canvas 223 169 932 536 10;
+#X symbolatom 167 326 25 0 0 0 - - -;
+#X text 104 453 IEM KUG;
+#X text 88 441 musil;
+#X text 125 441 @;
+#X text 134 441 iem.at;
+#X text 87 463 Graz \, Austria;
+#X text 147 415 @;
+#X text 156 415 iem.at;
+#X text 88 415 zmoelnig;
+#X floatatom 251 245 11 0 0 0 - - -;
+#X floatatom 227 273 11 0 0 0 - - -;
+#X text 337 244 difference;
+#X text 55 13 double precision multiplication;
+#X text 311 272 float casted;
+#X text 14 12 *__;
+#X text 349 326 product displayed via a symbol;
+#X obj 165 209 *__ 0 0;
+#X text 90 342 should be "1.234567654321;
+#X msg 163 61 "1.111111;
+#X msg 385 98 "1.111111;
+#X text 250 73 = symbol selector of an anything;
+#X text 240 62 double precision number beginning with a "double quote"
+=;
+#X text 471 109 = symbol selector of an anything;
+#X text 461 98 double precision number beginning with a "double quote"
+=;
+#X obj 166 303 dptosym;
+#X obj 239 209 mul__ 0 0;
+#X obj 316 209 *'' 0 0;
+#X text 14 32 mul__;
+#X text 14 57 *'';
+#X text 294 13 15 digits accurate;
+#X text 39 402 (c) IOhannes m zmoelnig 1999 - 2013;
+#X text 39 430 (c) Thomas Musil 2000 - 2013;
+#X obj 164 87 symtodp;
+#X obj 385 120 symtodp;
+#X connect 16 0 10 0;
+#X connect 16 0 24 0;
+#X connect 16 1 9 0;
+#X connect 16 1 24 1;
+#X connect 18 0 32 0;
+#X connect 19 0 33 0;
+#X connect 24 0 0 0;
+#X connect 32 0 16 0;
+#X connect 32 1 16 1;
+#X connect 33 0 16 2;
+#X connect 33 1 16 3;
diff --git a/+__-help.pd b/+__-help.pd
new file mode 100755
index 0000000..3702e45
--- /dev/null
+++ b/+__-help.pd
@@ -0,0 +1,48 @@
+#N canvas 291 113 932 536 10;
+#X symbolatom 167 326 25 0 0 0 - - -;
+#X text 104 453 IEM KUG;
+#X text 88 441 musil;
+#X text 125 441 @;
+#X text 134 441 iem.at;
+#X text 87 463 Graz \, Austria;
+#X text 147 415 @;
+#X text 156 415 iem.at;
+#X text 88 415 zmoelnig;
+#X floatatom 251 245 11 0 0 0 - - -;
+#X floatatom 227 273 11 0 0 0 - - -;
+#X text 337 244 difference;
+#X text 311 272 float casted;
+#X text 14 12 +__;
+#X text 70 13 double precision addition;
+#X text 359 326 sum displayed via a symbol;
+#X obj 165 209 +__ 0 0;
+#X text 201 83 = symbol selector of an anything;
+#X text 191 72 double precision number beginning with a "double quote"
+=;
+#X text 425 120 = symbol selector of an anything;
+#X text 415 109 double precision number beginning with a "double quote"
+=;
+#X msg 292 108 "8.7654321234567;
+#X msg 70 71 "1.2345678765432;
+#X text 90 342 should be "9.9999999999999;
+#X obj 166 303 dptosym;
+#X text 14 32 add__;
+#X text 14 57 +'';
+#X obj 239 209 add__ 0 0;
+#X obj 316 209 +'' 0 0;
+#X text 294 13 15 digits accurate;
+#X text 39 402 (c) IOhannes m zmoelnig 1999 - 2013;
+#X text 39 430 (c) Thomas Musil 2000 - 2013;
+#X obj 71 94 symtodp;
+#X obj 291 130 symtodp;
+#X connect 16 0 10 0;
+#X connect 16 0 24 0;
+#X connect 16 1 9 0;
+#X connect 16 1 24 1;
+#X connect 21 0 33 0;
+#X connect 22 0 32 0;
+#X connect 24 0 0 0;
+#X connect 32 0 16 0;
+#X connect 32 1 16 1;
+#X connect 33 0 16 2;
+#X connect 33 1 16 3;
diff --git a/-__-help.pd b/-__-help.pd
new file mode 100755
index 0000000..1d9f4ab
--- /dev/null
+++ b/-__-help.pd
@@ -0,0 +1,48 @@
+#N canvas 224 167 932 536 10;
+#X symbolatom 167 326 25 0 0 0 - - -;
+#X text 104 453 IEM KUG;
+#X text 88 441 musil;
+#X text 125 441 @;
+#X text 134 441 iem.at;
+#X text 87 463 Graz \, Austria;
+#X text 147 415 @;
+#X text 156 415 iem.at;
+#X text 88 415 zmoelnig;
+#X floatatom 251 245 11 0 0 0 - - -;
+#X floatatom 227 273 11 0 0 0 - - -;
+#X text 337 244 difference;
+#X text 311 272 float casted;
+#X text 14 12 -__;
+#X text 70 13 double precision subtraction;
+#X obj 165 209 -__ 0 0;
+#X text 359 326 difference displayed via a symbol;
+#X text 203 83 = symbol selector of an anything;
+#X msg 70 71 "9.9999999999999;
+#X msg 292 108 "8.7654321234567;
+#X text 90 341 should be "1.2345678765432;
+#X text 193 72 double precision number beginning with a "double quote"
+=;
+#X text 422 119 = symbol selector of an anything;
+#X text 412 108 double precision number beginning with a "double quote"
+=;
+#X obj 166 303 dptosym;
+#X text 14 32 sub__;
+#X text 14 57 -'';
+#X obj 239 209 sub__ 0 0;
+#X obj 316 209 -'' 0 0;
+#X text 294 13 15 digits accurate;
+#X text 39 402 (c) IOhannes m zmoelnig 1999 - 2013;
+#X text 39 430 (c) Thomas Musil 2000 - 2013;
+#X obj 71 97 symtodp;
+#X obj 292 130 symtodp;
+#X connect 15 0 10 0;
+#X connect 15 0 24 0;
+#X connect 15 1 9 0;
+#X connect 15 1 24 1;
+#X connect 18 0 32 0;
+#X connect 19 0 33 0;
+#X connect 24 0 0 0;
+#X connect 32 0 15 0;
+#X connect 32 1 15 1;
+#X connect 33 0 15 2;
+#X connect 33 1 15 3;
diff --git a/div__-help.pd b/div__-help.pd
new file mode 100755
index 0000000..6fd2068
--- /dev/null
+++ b/div__-help.pd
@@ -0,0 +1,78 @@
+#N canvas 291 113 1057 750 10;
+#X symbolatom 167 326 25 0 0 0 - - -;
+#X text 104 453 IEM KUG;
+#X text 88 441 musil;
+#X text 125 441 @;
+#X text 134 441 iem.at;
+#X text 87 463 Graz \, Austria;
+#X text 147 415 @;
+#X text 156 415 iem.at;
+#X text 88 415 zmoelnig;
+#X floatatom 251 245 11 0 0 0 - - -;
+#X floatatom 227 273 11 0 0 0 - - -;
+#X text 337 244 difference;
+#X text 311 272 float casted;
+#X text 14 12 /__;
+#X text 70 13 double precision division;
+#X obj 165 209 /__ 0 0;
+#X text 359 326 quotient displayed via a symbol;
+#X text 470 109 = symbol selector of an anything;
+#X text 460 98 double precision number beginning with a "double quote"
+=;
+#X text 288 72 = symbol selector of an anything;
+#X text 278 61 double precision number beginning with a "double quote"
+=;
+#X text 90 342 should be "1.111111;
+#X msg 385 98 "1.111111;
+#X msg 163 61 "1.234567654321;
+#X obj 166 303 dptosym;
+#X text 13 31 div__;
+#X symbolatom 409 641 25 0 0 0 - - -;
+#X floatatom 493 560 11 0 0 0 - - -;
+#X floatatom 469 588 11 0 0 0 - - -;
+#X text 579 559 difference;
+#X text 553 587 float casted;
+#X text 601 641 quotient displayed via a symbol;
+#X text 712 424 = symbol selector of an anything;
+#X text 702 413 double precision number beginning with a "double quote"
+=;
+#X text 530 387 = symbol selector of an anything;
+#X text 520 376 double precision number beginning with a "double quote"
+=;
+#X text 332 657 should be "1.111111;
+#X msg 627 413 "1.111111;
+#X msg 405 376 "1.234567654321;
+#X obj 408 618 dptosym;
+#X obj 407 524 div__ 0 0;
+#X text 14 57 /'';
+#X obj 239 209 div__ 0 0;
+#X obj 316 209 /'' 0 0;
+#X text 294 13 15 digits accurate;
+#X text 39 402 (c) IOhannes m zmoelnig 1999 - 2013;
+#X text 39 430 (c) Thomas Musil 2000 - 2013;
+#X obj 164 87 symtodp;
+#X obj 385 120 symtodp;
+#X obj 406 402 symtodp;
+#X obj 627 435 symtodp;
+#X connect 15 0 10 0;
+#X connect 15 0 24 0;
+#X connect 15 1 9 0;
+#X connect 15 1 24 1;
+#X connect 22 0 48 0;
+#X connect 23 0 47 0;
+#X connect 24 0 0 0;
+#X connect 37 0 50 0;
+#X connect 38 0 49 0;
+#X connect 39 0 26 0;
+#X connect 40 0 28 0;
+#X connect 40 0 39 0;
+#X connect 40 1 27 0;
+#X connect 40 1 39 1;
+#X connect 47 0 15 0;
+#X connect 47 1 15 1;
+#X connect 48 0 15 2;
+#X connect 48 1 15 3;
+#X connect 49 0 40 0;
+#X connect 49 1 40 1;
+#X connect 50 0 40 2;
+#X connect 50 1 40 3;
diff --git a/max__-help.pd b/max__-help.pd
new file mode 100644
index 0000000..a74e860
--- /dev/null
+++ b/max__-help.pd
@@ -0,0 +1,47 @@
+#N canvas 223 169 932 536 10;
+#X symbolatom 167 326 25 0 0 0 - - -;
+#X text 104 453 IEM KUG;
+#X text 88 441 musil;
+#X text 125 441 @;
+#X text 134 441 iem.at;
+#X text 87 463 Graz \, Austria;
+#X text 147 415 @;
+#X text 156 415 iem.at;
+#X text 88 415 zmoelnig;
+#X floatatom 251 245 11 0 0 0 - - -;
+#X floatatom 227 273 11 0 0 0 - - -;
+#X text 337 244 difference;
+#X text 311 272 float casted;
+#X text 349 326 product displayed via a symbol;
+#X text 258 73 = symbol selector of an anything;
+#X text 248 62 double precision number beginning with a "double quote"
+=;
+#X text 479 109 = symbol selector of an anything;
+#X text 469 98 double precision number beginning with a "double quote"
+=;
+#X obj 166 303 dptosym;
+#X text 14 12 max__;
+#X text 14 34 max'';
+#X obj 165 209 max__ 0 0;
+#X obj 246 211 max'' 0 0;
+#X msg 163 61 "1.111111112;
+#X msg 385 98 "1.111111113;
+#X text 102 341 should be "1.111111113;
+#X text 55 13 double precision comparsion \, output the greater value
+;
+#X text 419 12 15 digits accurate;
+#X text 39 402 (c) IOhannes m zmoelnig 1999 - 2013;
+#X text 39 430 (c) Thomas Musil 2000 - 2013;
+#X obj 164 87 symtodp;
+#X obj 385 120 symtodp;
+#X connect 18 0 0 0;
+#X connect 21 0 10 0;
+#X connect 21 0 18 0;
+#X connect 21 1 9 0;
+#X connect 21 1 18 1;
+#X connect 23 0 30 0;
+#X connect 24 0 31 0;
+#X connect 30 0 21 0;
+#X connect 30 1 21 1;
+#X connect 31 0 21 2;
+#X connect 31 1 21 3;
diff --git a/min__-help.pd b/min__-help.pd
new file mode 100644
index 0000000..8ddb1bd
--- /dev/null
+++ b/min__-help.pd
@@ -0,0 +1,47 @@
+#N canvas 223 169 932 536 10;
+#X symbolatom 167 326 25 0 0 0 - - -;
+#X text 104 453 IEM KUG;
+#X text 88 441 musil;
+#X text 125 441 @;
+#X text 134 441 iem.at;
+#X text 87 463 Graz \, Austria;
+#X text 147 415 @;
+#X text 156 415 iem.at;
+#X text 88 415 zmoelnig;
+#X floatatom 251 245 11 0 0 0 - - -;
+#X floatatom 227 273 11 0 0 0 - - -;
+#X text 337 244 difference;
+#X text 311 272 float casted;
+#X text 349 326 product displayed via a symbol;
+#X text 258 73 = symbol selector of an anything;
+#X text 248 62 double precision number beginning with a "double quote"
+=;
+#X text 479 109 = symbol selector of an anything;
+#X text 469 98 double precision number beginning with a "double quote"
+=;
+#X obj 166 303 dptosym;
+#X msg 163 61 "1.111111112;
+#X msg 385 98 "1.111111113;
+#X text 14 12 min__;
+#X text 14 34 min'';
+#X obj 165 209 min__ 0 0;
+#X obj 246 211 min'' 0 0;
+#X text 90 342 should be "1.111111112;
+#X text 55 13 double precision comparsion \, output the less value
+;
+#X text 419 12 15 digits accurate;
+#X text 39 402 (c) IOhannes m zmoelnig 1999 - 2013;
+#X text 39 430 (c) Thomas Musil 2000 - 2013;
+#X obj 164 86 symtodp;
+#X obj 385 120 symtodp;
+#X connect 18 0 0 0;
+#X connect 19 0 30 0;
+#X connect 20 0 31 0;
+#X connect 23 0 10 0;
+#X connect 23 0 18 0;
+#X connect 23 1 9 0;
+#X connect 23 1 18 1;
+#X connect 30 0 23 0;
+#X connect 30 1 23 1;
+#X connect 31 0 23 2;
+#X connect 31 1 23 3;
diff --git a/random__-help.pd b/random__-help.pd
new file mode 100644
index 0000000..757d7c2
--- /dev/null
+++ b/random__-help.pd
@@ -0,0 +1,44 @@
+#N canvas 88 232 932 536 10;
+#X symbolatom 167 326 25 0 0 0 - - -;
+#X text 104 453 IEM KUG;
+#X text 88 441 musil;
+#X text 125 441 @;
+#X text 134 441 iem.at;
+#X text 87 463 Graz \, Austria;
+#X text 39 430 (c) Thomas Musil 2000 - 2007;
+#X text 39 402 (c) IOhannes m zmoelnig 1999 - 2007;
+#X text 147 415 @;
+#X text 156 415 iem.at;
+#X text 88 415 zmoelnig;
+#X floatatom 251 245 11 0 0 0 - - -;
+#X floatatom 227 273 11 0 0 0 - - -;
+#X text 337 244 difference;
+#X text 311 272 float casted;
+#X text 359 326 difference displayed via a symbol;
+#X text 203 83 = symbol selector of an anything;
+#X text 294 13 14 digits accurate;
+#X msg 292 108 "8.7654321234567;
+#X text 193 72 double precision number beginning with a "double quote"
+=;
+#X text 422 119 = symbol selector of an anything;
+#X text 412 108 double precision number beginning with a "double quote"
+=;
+#X obj 166 303 dptosym;
+#X obj 316 210 random'' 10 0;
+#X obj 165 209 random__ 10 0;
+#X msg 90 106 bang;
+#X msg 151 114 seed 20 0;
+#X text 97 13 double precision random;
+#X text 14 12 random__;
+#X text 14 32 random'';
+#X obj 292 130 symtodp;
+#X connect 18 0 30 0;
+#X connect 22 0 0 0;
+#X connect 24 0 12 0;
+#X connect 24 0 22 0;
+#X connect 24 1 11 0;
+#X connect 24 1 22 1;
+#X connect 25 0 24 0;
+#X connect 26 0 24 0;
+#X connect 30 0 24 1;
+#X connect 30 1 24 2;
diff --git a/tabread4__-help.pd b/tabread4__-help.pd
new file mode 100644
index 0000000..1d036bb
--- /dev/null
+++ b/tabread4__-help.pd
@@ -0,0 +1,86 @@
+#N canvas 95 60 892 632 10;
+#X obj 406 74 loadbang;
+#X text 425 271 see also:;
+#N canvas 0 22 450 300 (subpatch) 0;
+#X array array99 13 float 0;
+#X coords 0 5.5 12 -5.5 250 200 1;
+#X restore 121 64 graph;
+#X floatatom 41 537 0 0 0 0 - - -;
+#X obj 497 55 table array98 1.7e+07;
+#X floatatom 293 537 0 0 0 0 - - -;
+#X floatatom 155 376 0 0 0 0 - - -;
+#X obj 293 452 + 0;
+#X obj 158 357 hsl 101 15 1 11 0 0 empty empty empty -2 -6 0 8 -262144
+-1 -1 3500 1;
+#X obj 306 432 r \$0_offset;
+#X obj 145 428 r \$0_offset;
+#X obj 312 485 r \$0_which_table;
+#X obj 40 467 r \$0_which_table;
+#N canvas 0 22 470 320 select_table 0;
+#X obj 55 24 inlet;
+#X msg 55 112 0;
+#X msg 109 180 1.698e+07;
+#X obj 55 90 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 109 158 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 55 133 s \$0_offset;
+#X obj 109 201 s \$0_offset;
+#X obj 186 200 s \$0_which_table;
+#X msg 186 178 set array98;
+#X obj 127 133 s \$0_which_table;
+#X msg 127 111 set array99;
+#X obj 55 47 sel 0 1;
+#X connect 0 0 11 0;
+#X connect 1 0 5 0;
+#X connect 2 0 6 0;
+#X connect 3 0 10 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 4 0 8 0;
+#X connect 8 0 7 0;
+#X connect 10 0 9 0;
+#X connect 11 0 3 0;
+#X connect 11 1 4 0;
+#X restore 275 390 pd select_table;
+#X obj 275 356 vradio 15 1 0 2 empty empty empty 0 -6 0 8 -262144 -1
+-1 1;
+#X text 294 354 array99 offset=0;
+#X text 293 369 array98 offset=1.698e+07;
+#X text 604 566 IEM KUG;
+#X text 588 554 musil;
+#X text 625 554 @;
+#X text 634 554 iem.at;
+#X text 587 576 Graz \, Austria;
+#X text 647 528 @;
+#X text 656 528 iem.at;
+#X text 588 528 zmoelnig;
+#X text 13 11 tabread4__;
+#X obj 493 271 tabread4;
+#X msg 406 95 \; array98 const 0 \; array99 resize 13 \; array99 0
+-5 -5 -4 -3 -2 -1 0 1 2 3 4 5 5 \; array99 bounds 0 5.5 12 -5.5 \;
+array99 xticks 0 1 2 \; array99 yticks 0 0.5 5 \; array99 xlabel -6
+0 2 4 6 8 10 12 \; array99 ylabel -0.4 -5 -4 -3 -2 -1 0 1 2 3 4 5 \;
+array98 1.698e+07 -5 -5 -4 -3 -2 -1 0 1 2 3 4 5 5;
+#X obj 293 511 tabread4 array99;
+#X obj 41 508 tabread4__ array99;
+#X obj 77 533 tabread4'' array99;
+#X text 14 26 tabread4'';
+#X text 41 292 tabread4 is used to build samplers and other table lookup
+algorithms. The interpolation scheme is 4-point polynomial.;
+#X text 539 515 (c) IOhannes m zmoelnig 1999 - 2013;
+#X text 539 543 (c) Thomas Musil 2000 - 2013;
+#X text 116 10 4-point-interpolating table lookup with double precision
+index (15 digits accurate);
+#X connect 0 0 27 0;
+#X connect 6 0 7 0;
+#X connect 6 0 29 0;
+#X connect 7 0 28 0;
+#X connect 8 0 6 0;
+#X connect 9 0 7 1;
+#X connect 10 0 29 1;
+#X connect 11 0 28 0;
+#X connect 12 0 29 0;
+#X connect 14 0 13 0;
+#X connect 28 0 5 0;
+#X connect 29 0 3 0;
diff --git a/tabread__-help.pd b/tabread__-help.pd
new file mode 100644
index 0000000..e4781f7
--- /dev/null
+++ b/tabread__-help.pd
@@ -0,0 +1,86 @@
+#N canvas 460 141 892 632 10;
+#X obj 406 74 loadbang;
+#X text 425 271 see also:;
+#N canvas 0 22 450 300 (subpatch) 0;
+#X array array99 13 float 0;
+#X coords 0 5.5 12 -5.5 250 200 1;
+#X restore 121 64 graph;
+#X floatatom 41 537 0 0 0 0 - - -;
+#X obj 497 55 table array98 1.7e+07;
+#X floatatom 293 537 0 0 0 0 - - -;
+#X floatatom 155 376 0 0 0 0 - - -;
+#X obj 293 452 + 0;
+#X obj 158 357 hsl 101 15 1 11 0 0 empty empty empty -2 -6 0 8 -262144
+-1 -1 0 1;
+#X obj 306 432 r \$0_offset;
+#X obj 145 428 r \$0_offset;
+#X obj 312 485 r \$0_which_table;
+#X obj 40 467 r \$0_which_table;
+#N canvas 0 22 470 320 select_table 0;
+#X obj 55 24 inlet;
+#X msg 55 112 0;
+#X msg 109 180 1.698e+07;
+#X obj 55 90 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 109 158 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 55 133 s \$0_offset;
+#X obj 109 201 s \$0_offset;
+#X obj 186 200 s \$0_which_table;
+#X msg 186 178 set array98;
+#X obj 127 133 s \$0_which_table;
+#X msg 127 111 set array99;
+#X obj 55 47 sel 0 1;
+#X connect 0 0 11 0;
+#X connect 1 0 5 0;
+#X connect 2 0 6 0;
+#X connect 3 0 10 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 4 0 8 0;
+#X connect 8 0 7 0;
+#X connect 10 0 9 0;
+#X connect 11 0 3 0;
+#X connect 11 1 4 0;
+#X restore 275 390 pd select_table;
+#X obj 275 356 vradio 15 1 0 2 empty empty empty 0 -6 0 8 -262144 -1
+-1 0;
+#X text 294 354 array99 offset=0;
+#X text 293 369 array98 offset=1.698e+07;
+#X text 604 566 IEM KUG;
+#X text 588 554 musil;
+#X text 625 554 @;
+#X text 634 554 iem.at;
+#X text 587 576 Graz \, Austria;
+#X text 647 528 @;
+#X text 656 528 iem.at;
+#X text 588 528 zmoelnig;
+#X msg 406 95 \; array98 const 0 \; array99 resize 13 \; array99 0
+-5 -5 -4 -3 -2 -1 0 1 2 3 4 5 5 \; array99 bounds 0 5.5 12 -5.5 \;
+array99 xticks 0 1 2 \; array99 yticks 0 0.5 5 \; array99 xlabel -6
+0 2 4 6 8 10 12 \; array99 ylabel -0.4 -5 -4 -3 -2 -1 0 1 2 3 4 5 \;
+array98 1.698e+07 -5 -5 -4 -3 -2 -1 0 1 2 3 4 5 5;
+#X text 13 11 tabread__;
+#X text 14 27 tabread'';
+#X obj 41 508 tabread__ array99;
+#X obj 77 533 tabread'' array99;
+#X obj 293 511 tabread array99;
+#X obj 493 271 tabread;
+#X text 41 291 tabread is used to build samplers and other table lookup
+algorithms. The interpolation scheme is rounding down integer.;
+#X text 539 515 (c) IOhannes m zmoelnig 1999 - 2013;
+#X text 539 543 (c) Thomas Musil 2000 - 2013;
+#X text 116 10 non-interpolating table lookup with double precision
+index (15 digits accurate);
+#X connect 0 0 25 0;
+#X connect 6 0 7 0;
+#X connect 6 0 28 0;
+#X connect 7 0 30 0;
+#X connect 8 0 6 0;
+#X connect 9 0 7 1;
+#X connect 10 0 28 1;
+#X connect 11 0 30 0;
+#X connect 12 0 28 0;
+#X connect 14 0 13 0;
+#X connect 28 0 3 0;
+#X connect 30 0 5 0;
diff --git a/tabwrite__-help.pd b/tabwrite__-help.pd
new file mode 100644
index 0000000..2ac06a4
--- /dev/null
+++ b/tabwrite__-help.pd
@@ -0,0 +1,61 @@
+#N canvas 41 42 639 550 10;
+#X text 334 93 see also:;
+#X obj 128 82 table array98 1.7e+07;
+#X text 206 462 IEM KUG;
+#X text 190 450 musil;
+#X text 227 450 @;
+#X text 236 450 iem.at;
+#X text 189 472 Graz \, Austria;
+#X text 249 424 @;
+#X text 258 424 iem.at;
+#X text 190 424 zmoelnig;
+#X obj 403 92 tabwrite;
+#X floatatom 121 191 5 0 0 0 - - -;
+#X obj 199 240 t f b f;
+#X msg 218 271 1.698e+07;
+#X obj 121 219 t f f;
+#X msg 49 283 1.698e+07;
+#X obj 49 254 t b f;
+#X floatatom 49 331 0 0 0 0 - - -;
+#X obj 49 307 tabread__ array98;
+#X obj 166 307 tabwrite__ array98;
+#X floatatom 393 173 5 0 0 0 - - -;
+#X obj 393 201 t f f;
+#X msg 312 282 1.698e+07;
+#X obj 312 253 t b f;
+#X floatatom 312 330 0 0 0 0 - - -;
+#X obj 475 225 t f b f;
+#X msg 493 251 1.698e+07;
+#X obj 499 273 +;
+#X obj 129 107 table array99 1.7e+07;
+#X obj 312 307 tabread__ array99;
+#X obj 435 307 tabwrite array99;
+#X text 13 11 tabwrite__;
+#X text 14 27 tabwrite'';
+#X text 116 10 write number in a lookup table with double precision
+index (15 digits accurate);
+#X text 141 411 (c) IOhannes m zmoelnig 1999 - 2013;
+#X text 141 439 (c) Thomas Musil 2000 - 2013;
+#X connect 11 0 14 0;
+#X connect 12 0 19 0;
+#X connect 12 1 13 0;
+#X connect 12 2 19 2;
+#X connect 13 0 19 1;
+#X connect 14 0 16 0;
+#X connect 14 1 12 0;
+#X connect 15 0 18 0;
+#X connect 16 0 15 0;
+#X connect 16 1 18 1;
+#X connect 18 0 17 0;
+#X connect 20 0 21 0;
+#X connect 21 0 23 0;
+#X connect 21 1 25 0;
+#X connect 22 0 29 0;
+#X connect 23 0 22 0;
+#X connect 23 1 29 1;
+#X connect 25 0 30 0;
+#X connect 25 1 26 0;
+#X connect 25 2 27 1;
+#X connect 26 0 27 0;
+#X connect 27 0 30 1;
+#X connect 29 0 24 0;
-- 
cgit v1.2.1