From fc4811ceddd4d2138d01e78b1c002a1582f9ee69 Mon Sep 17 00:00:00 2001
From: Tim Blechmann <timblech@users.sourceforge.net>
Date: Tue, 30 Mar 2004 18:49:02 +0000
Subject: added him~ object

svn path=/trunk/externals/tb/; revision=1525
---
 tbext/him.pd | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 tbext/him.pd

(limited to 'tbext/him.pd')

diff --git a/tbext/him.pd b/tbext/him.pd
new file mode 100644
index 0000000..847f8ad
--- /dev/null
+++ b/tbext/him.pd
@@ -0,0 +1,42 @@
+#N canvas 0 0 680 378 10;
+#X obj 48 338 dac~;
+#X msg 117 142 output \$1;
+#X obj 117 120 hradio 15 1 0 6 empty empty empty 0 -6 0 8 -262144 -1
+-1 0;
+#X msg 125 191 regtime \$1;
+#X obj 125 169 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
+1;
+#X obj 51 15 hsl 128 15 1e-04 1 1 0 empty empty dt -2 -6 0 8 -262144
+-1 -1 0 0;
+#X msg 48 37 dt \$1;
+#X msg 80 84 e \$1;
+#X obj 83 65 hsl 128 15 -1 0 0 0 empty empty etilde -2 -6 0 8 -262144
+-1 -1 0 0;
+#X floatatom 122 85 5 0 0 0 - - -;
+#X floatatom 106 40 5 0 0 0 - - -;
+#X msg 158 224 reset;
+#X msg 179 258 state;
+#X obj 48 309 him~ -0.3;
+#X text 216 123 switch beween mu \, muv \, nu \, nuv \, x and y;
+#X text 224 66 set the etilde of the system if it's positive \, the
+electron will leave the atom;
+#X text 194 13 set the timesteps for the 4th order runge-kutta approximation
+;
+#X text 215 190 use the real or the regulated time;
+#X text 218 223 randomize new values (warning! this may click!!!);
+#X text 231 257 returns the state of the system;
+#X text 128 308 the optional argument is the etilde of the system;
+#X connect 1 0 13 0;
+#X connect 2 0 1 0;
+#X connect 3 0 13 0;
+#X connect 4 0 3 0;
+#X connect 5 0 6 0;
+#X connect 5 0 10 0;
+#X connect 6 0 13 0;
+#X connect 7 0 13 0;
+#X connect 8 0 7 0;
+#X connect 8 0 9 0;
+#X connect 11 0 13 0;
+#X connect 12 0 13 0;
+#X connect 13 0 0 0;
+#X connect 13 0 0 1;
-- 
cgit v1.2.1