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
---
 dptohex-help.pd | 173 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 173 insertions(+)
 create mode 100644 dptohex-help.pd

(limited to 'dptohex-help.pd')

diff --git a/dptohex-help.pd b/dptohex-help.pd
new file mode 100644
index 0000000..d2286d2
--- /dev/null
+++ b/dptohex-help.pd
@@ -0,0 +1,173 @@
+#N canvas 159 54 987 753 10;
+#X floatatom 143 239 11 0 0 0 - - -;
+#X floatatom 120 266 11 0 0 0 - - -;
+#X symbolatom 21 380 25 0 0 0 - - -;
+#X symbolatom 473 281 25 0 0 0 - - -;
+#X obj 472 222 + 3.1415;
+#X msg 472 201 9.26536e-05;
+#X text 526 258 7-8 digits accurate;
+#X text 229 238 difference;
+#X text 204 265 truncated;
+#X text 203 380 internal value;
+#X text 664 617 IEM KUG;
+#X text 648 605 musil;
+#X text 685 605 @;
+#X text 694 605 iem.at;
+#X text 647 627 Graz \, Austria;
+#X text 707 579 @;
+#X text 716 579 iem.at;
+#X text 648 579 zmoelnig;
+#X text 75 53 the inputs are two floats \, left one is the float-truncated
+value of a double value \, the right one is the difference between
+double value and the float-truncated.;
+#X text 74 112 output is a symbol:hexadeximal of sum of both double
+casted inputs;
+#X symbolatom 104 459 25 0 0 0 - - -;
+#X obj 36 313 +__ 2;
+#X symbolatom 159 337 25 0 0 0 - - -;
+#X msg 668 440 1e-23;
+#X symbolatom 645 493 25 0 0 0 - - -;
+#X obj 644 470 ftohex;
+#X msg 719 440 2e-23;
+#X msg 773 440 4e-23;
+#X msg 824 440 8e-23;
+#X msg 707 361 1e+19;
+#X msg 756 360 1e+20;
+#X symbolatom 318 579 25 0 0 0 - - -;
+#X msg 670 385 1e-18;
+#X msg 719 385 1e-19;
+#X text 70 13 double to hexadecimal converter (only for debugging purpose)
+;
+#X msg 20 149 "0.000000000000000001;
+#X msg 21 175 "1e-18;
+#X msg 19 199 "1e-23;
+#X msg 709 95 "22.2222222233;
+#X msg 708 71 "44.4444444444;
+#X msg 708 48 "44.444444444444;
+#X msg 710 119 "22.2222222222;
+#X msg 710 142 "-22.2222222222;
+#X msg 555 81 "1.234;
+#X msg 558 106 "1.9999;
+#X msg 562 131 "2.00123;
+#X msg 491 154 "0.987;
+#X msg 627 175 "1e-14;
+#X msg 384 388 "1e+19;
+#X msg 436 388 "1e+20;
+#X msg 396 413 "-1e+19;
+#X msg 456 413 "-1e+20;
+#X msg 365 448 "1e-18;
+#X msg 423 449 "1e-19;
+#X msg 377 471 "-1e-18;
+#X msg 423 513 "2;
+#X msg 441 473 "-1e-19;
+#N canvas 0 22 907 755 (subpatch) 0;
+#X symbolatom 317 582 25 0 0 0 - - -;
+#X msg 396 413 "-1e+19;
+#X msg 456 413 "-1e+20;
+#X msg 365 448 "1e-18;
+#X msg 423 449 "1e-19;
+#X msg 377 471 "-1e-18;
+#X msg 423 513 "2;
+#X msg 441 473 "-1e-19;
+#X symbolatom 163 312 10 0 0 0 - - -;
+#X obj 162 290 makefilename "1e%d;
+#X floatatom 163 254 5 -78 78 0 - - -;
+#X obj 164 334 unsymbol;
+#X symbolatom 314 311 10 0 0 0 - - -;
+#X floatatom 314 253 5 -46 39 0 - - -;
+#X obj 315 333 unsymbol;
+#X obj 313 289 makefilename "-1e%d;
+#X obj 316 559 dptohex;
+#X obj 317 531 symtodp;
+#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 11 0;
+#X connect 9 0 8 0;
+#X connect 10 0 9 0;
+#X connect 11 0 17 0;
+#X connect 12 0 14 0;
+#X connect 13 0 15 0;
+#X connect 14 0 17 0;
+#X connect 15 0 12 0;
+#X connect 16 0 0 0;
+#X connect 17 0 16 0;
+#X connect 17 1 16 1;
+#X restore 76 577 pd;
+#X obj 548 377 pow;
+#X msg 546 355 10 \$1;
+#X floatatom 545 335 5 -46 39 0 - - -;
+#X floatatom 549 400 0 0 0 0 - - -;
+#X obj 595 376 pow;
+#X msg 593 354 10 \$1;
+#X floatatom 592 334 5 -46 39 0 - - -;
+#X floatatom 600 423 0 0 0 0 - - -;
+#X obj 598 400 * -1;
+#X obj 472 258 dptohex;
+#X obj 317 556 dptohex;
+#X obj 20 357 dptohex;
+#X obj 158 314 dptohex;
+#X obj 103 436 dptosym;
+#X text 14 12 dptohex;
+#X text 199 196 15 digits accurate;
+#X msg 94 169 "3.14159265358979;
+#X msg 100 477 "3.14159265358979;
+#X text 37 478 should be;
+#X obj 117 195 symtodp;
+#X obj 317 531 symtodp;
+#X text 599 566 (c) IOhannes m zmoelnig 1999 - 2013;
+#X text 599 594 (c) Thomas Musil 2000 - 2013;
+#X connect 4 0 67 0;
+#X connect 5 0 4 0;
+#X connect 21 0 69 0;
+#X connect 21 1 69 1;
+#X connect 23 0 25 0;
+#X connect 25 0 24 0;
+#X connect 26 0 25 0;
+#X connect 27 0 25 0;
+#X connect 28 0 25 0;
+#X connect 29 0 25 0;
+#X connect 30 0 25 0;
+#X connect 32 0 25 0;
+#X connect 33 0 25 0;
+#X connect 35 0 77 0;
+#X connect 36 0 77 0;
+#X connect 37 0 77 0;
+#X connect 48 0 78 0;
+#X connect 49 0 78 0;
+#X connect 50 0 78 0;
+#X connect 51 0 78 0;
+#X connect 52 0 78 0;
+#X connect 53 0 78 0;
+#X connect 54 0 78 0;
+#X connect 55 0 78 0;
+#X connect 56 0 78 0;
+#X connect 58 0 61 0;
+#X connect 59 0 58 0;
+#X connect 60 0 59 0;
+#X connect 61 0 25 0;
+#X connect 62 0 66 0;
+#X connect 63 0 62 0;
+#X connect 64 0 63 0;
+#X connect 65 0 25 0;
+#X connect 66 0 65 0;
+#X connect 67 0 3 0;
+#X connect 68 0 31 0;
+#X connect 69 0 2 0;
+#X connect 70 0 22 0;
+#X connect 71 0 20 0;
+#X connect 74 0 77 0;
+#X connect 77 0 1 0;
+#X connect 77 0 21 0;
+#X connect 77 0 70 0;
+#X connect 77 0 71 0;
+#X connect 77 1 0 0;
+#X connect 77 1 21 1;
+#X connect 77 1 70 1;
+#X connect 77 1 71 1;
+#X connect 78 0 68 0;
+#X connect 78 1 68 1;
-- 
cgit v1.2.1