[PD-cvs] externals/tbext him.pd,1.1,1.2

[Tim Blechmann]

Update of /cvsroot/pure-data/externals/tbext
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24696

Modified Files:
	him.pd 
Log Message:
some updates


Index: him.pd
===================================================================
RCS file: /cvsroot/pure-data/externals/tbext/him.pd,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** him.pd	30 Mar 2004 18:44:27 -0000	1.1
--- him.pd	9 Apr 2004 13:42:58 -0000	1.2
***************
*** 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;
--- 1,57 ----
  #N canvas 0 0 680 378 10;
  #X obj 48 338 dac~;
! #X msg 125 144 regtime \$1;
! #X obj 125 122 tgl 15 1 empty empty empty 0 -6 0 8 -262144 -1 -1 1
  1;
  #X obj 51 15 hsl 128 15 1e-04 1 1 0 empty empty dt -2 -6 0 8 -262144
! -1 -1 10400 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 6000 0;
  #X floatatom 122 85 5 0 0 0 - - -;
  #X floatatom 106 40 5 0 0 0 - - -;
! #X msg 158 177 reset;
! #X msg 179 211 state;
  #X obj 48 309 him~ -0.3;
  #X text 194 13 set the timesteps for the 4th order runge-kutta approximation
  ;
! #X text 215 143 use the real or the regulated time;
! #X text 218 176 randomize new values (warning! this may click!!!);
! #X text 231 210 returns the state of the system;
! #X text 224 66 set the etilde of the system if it's positive \, the
! electron will leave the atom (if you change it during dsp computation
! \, it will click);
! #X text 128 308 the optional argument is the etilde of the system returns
! mu \, mu velocity \, nu \, nu velocity \, x and y. Based on physical
! models of an atom in a magnetic field...;
! #X obj 608 207 loadbang;
! #X msg 608 271 muv 1.22293;
! #X msg 608 292 nu -0.065661 \;;
! #X msg 607 252 mu -1.43572 \;;
! #X obj 608 228 t b b;
! #X msg 608 318 \; pd dsp 1;
! #X connect 1 0 11 0;
  #X connect 2 0 1 0;
! #X connect 3 0 4 0;
! #X connect 3 0 8 0;
! #X connect 4 0 11 0;
! #X connect 5 0 11 0;
! #X connect 6 0 5 0;
! #X connect 6 0 7 0;
! #X connect 9 0 11 0;
! #X connect 10 0 11 0;
! #X connect 11 0 0 0;
! #X connect 11 1 0 1;
! #X connect 11 2 0 0;
! #X connect 11 3 0 1;
! #X connect 11 4 0 0;
! #X connect 11 5 0 1;
! #X connect 18 0 22 0;
! #X connect 19 0 11 0;
! #X connect 20 0 11 0;
! #X connect 21 0 11 0;
! #X connect 22 0 23 0;
! #X connect 22 1 21 0;
! #X connect 22 1 19 0;
! #X connect 22 1 20 0;