[PD-cvs] externals/nusmuk/msd 03_msdwave.pd, NONE, 1.1 filet.pd, NONE, 1.1 help-msd.pd, 1.3, 1.4 main.cpp, 1.4, 1.5

Mon Apr 25 18:18:41 CEST 2005

Update of /cvsroot/pure-data/externals/nusmuk/msd
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18342

Modified Files:
	help-msd.pd main.cpp 
Added Files:
	03_msdwave.pd filet.pd 
Log Message:

MSD Version 0.03


--- NEW FILE: 03_msdwave.pd ---
#N canvas 303 67 947 811 10;
#X obj 32 13 loadbang;
#X obj 603 265 gemwin;
#X msg 603 243 0 \, destroy;
#X obj 602 291 gemhead;
#X obj 602 355 world_light;
#X obj 145 226 t a;
#X obj 145 12 bng 20 250 50 0 empty empty empty 0 -6 0 8 -262131 -1
-1;
#X msg 203 63 reset;
#X obj 33 298 gemhead;
#N canvas 721 124 605 590 massrender 0;
#X obj 127 22 inlet;
#X obj 48 203 translateXYZ;
#X obj 64 114 gemhead;
#X obj 48 177 separator;
#X obj 48 153 any;
#X obj 127 136 t b f;
#X obj 127 57 unpack f f f;
#X obj 45 283 cuboid 0.065 0.065 0.07;
#X connect 0 0 6 0;
#X connect 1 0 7 0;
#X connect 2 0 4 1;
#X connect 3 0 1 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 5 1 1 1;
#X connect 6 0 5 0;
#X connect 6 1 1 2;
#X connect 6 2 7 3;
#X restore 265 625 pd massrender;
#X msg 203 83 symbol reset;
#X text 793 205 Select view;
#X obj 145 38 t b b b b;
#X text 418 114 Filet abstraction : x0 y0 stepx stepy ny nx;
#X obj 454 464 msd -------------;
#X obj 568 488 print msd;
#X obj 33 497 msd2D --------------------------------;
#X obj 294 522 print msd2D;
#X obj 305 254 route mass;
#X msg 305 275 mass msd1 \$1 \$2 \$5;
#X obj 145 253 route mass;
#X msg 145 274 mass msd2 \$1 \$2 \$3 \$4;
#X obj 33 539 route massesPos;
#X msg 33 343 bang \, get massesPos;
#X obj 33 321 t b b;
#X obj 265 600 pack f f f;
#X obj 33 561 unpack f f;
#X obj 33 583 t f b;
#N canvas 0 0 450 300 getmasses 0;
#X obj 84 33 inlet;
#X obj 91 71 t b b b;
#X obj 120 139 f 0;
#X obj 120 166 + 1;
#X obj 223 34 inlet;
#X obj 224 64 select reset;
#X msg 224 98 0;
#X obj 193 228 outlet;
#X obj 120 191 % 800;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 0 7 0;
#X connect 3 0 8 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 2 1;
#X connect 8 0 2 1;
#X restore 63 698 pd getmasses;
#X obj 454 507 route massesPosNo;
#X msg 63 718 get massesPos \$1;
#X obj 602 334 rotateXYZ;
#X obj 651 450 vsl 15 128 0 4 0 0 empty empty empty 0 -8 0 8 -262131
-1 -1 0 1;
#X obj 670 450 vsl 15 128 0 4 0 0 empty empty empty 0 -8 0 8 -262131
-1 -1 0 1;
#X obj 689 450 vsl 15 128 0 4 0 0 empty empty empty 0 -8 0 8 -262131
-1 -1 0 1;
#X obj 707 450 vsl 15 128 0 4 0 0 empty empty empty 0 -8 0 8 -262131
-1 -1 0 1;
#X msg 651 585 posX 0 \$1;
#X msg 621 311 45;
#X msg 603 223 view 4 0 0.5 0 0 0 0 0 1;
#X msg 603 185 view 0 0.5 6 0 0 0 0 1 0;
#X msg 650 311 45;
#X msg 603 138 reset \, dimen 800 800 \, create \, lighting 1 \, 1
;
#X msg 145 173 Xmax 4 \, Xmin -4 \, Ymax 4 \, Ymin -4;
#X msg 145 199 Xmax 4 \, Xmin -4;
#X obj 603 161 t b;
#X obj 183 113 filet -3.2 -2 0.1685 0.1685 20 40;
#X msg 164 140 setFixed 0 \, setFixed 39 \, setFixed 760 \, setFixed
799;
#X msg 603 204 view 0 5 0 0 0 0 0 0 1;
#X msg 670 605 posX 39 \$1;
#X msg 689 625 posX 799 \$1;
#X msg 708 645 posX 760 \$1;
#X text 734 508 Move corners to send a wave!;
#X text 194 703 Each time a mass2D position is send \, the corresponding
z is asked to the 1D model.;
#X text 389 35 X-Y : 2D model;
#X text 389 49 Z : 1D model;
#X text 146 300 If it's a mass message : send XY to ms2D and Z to msd
;
#X text 178 14 Reset;
#X text 304 228 800 masses / 1540 links for each model;
#X text 31 455 The 2D model is just here to help display masses and
test synchronization between msd objects;
#X connect 0 0 12 0;
#X connect 2 0 1 0;
#X connect 3 0 31 0;
#X connect 5 0 18 0;
#X connect 5 0 20 0;
#X connect 6 0 12 0;
#X connect 7 0 5 0;
#X connect 8 0 24 0;
#X connect 10 0 28 1;
#X connect 10 0 45 1;
#X connect 12 0 42 0;
#X connect 12 0 43 0;
#X connect 12 1 46 0;
#X connect 12 2 45 0;
#X connect 12 3 7 0;
#X connect 12 3 10 0;
#X connect 14 0 29 0;
#X connect 14 1 15 0;
#X connect 16 0 22 0;
#X connect 16 1 17 0;
#X connect 18 0 19 0;
#X connect 18 1 14 0;
#X connect 19 0 14 0;
#X connect 20 0 21 0;
#X connect 20 1 16 0;
#X connect 21 0 16 0;
#X connect 22 0 26 0;
#X connect 23 0 16 0;
#X connect 24 0 23 0;
#X connect 24 1 14 0;
#X connect 25 0 9 0;
#X connect 26 0 27 0;
#X connect 26 1 25 1;
#X connect 27 0 25 0;
#X connect 27 1 28 0;
#X connect 28 0 30 0;
#X connect 29 0 25 2;
#X connect 30 0 14 0;
#X connect 31 0 4 0;
#X connect 32 0 36 0;
#X connect 33 0 48 0;
#X connect 34 0 49 0;
#X connect 35 0 50 0;
#X connect 36 0 14 0;
#X connect 37 0 31 1;
#X connect 38 0 1 0;
#X connect 39 0 1 0;
#X connect 40 0 31 2;
#X connect 41 0 1 0;
#X connect 41 0 44 0;
#X connect 42 0 16 0;
#X connect 43 0 14 0;
#X connect 44 0 39 0;
#X connect 44 0 40 0;
#X connect 44 0 37 0;
#X connect 45 0 5 0;
#X connect 46 0 5 0;
#X connect 47 0 1 0;
#X connect 48 0 14 0;
#X connect 49 0 14 0;
#X connect 50 0 14 0;

Index: main.cpp
===================================================================
RCS file: /cvsroot/pure-data/externals/nusmuk/msd/main.cpp,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** main.cpp	21 Apr 2005 14:28:53 -0000	1.4
--- main.cpp	25 Apr 2005 16:18:38 -0000	1.5
***************
*** 223,237 ****
  	// displace mass(es) named Id to a certain position
  		t_int i;
! 		const t_symbol *sym = GetSymbol(argv[0]);
  
  		if (argc != 2)
! 			error("posX : Idmass value");
  
  		if (GetFloat(argv[1]) < Xmax && GetFloat(argv[1]) > Xmin)
! 			for (i=0; i<nb_mass;i++)
! 			{
! 				if (sym == mass[i]->Id)
! 					mass[i]->posX = GetAFloat(argv[1]);
! 			}
  	}
  
--- 223,246 ----
  	// displace mass(es) named Id to a certain position
  		t_int i;
! 		const t_symbol *sym = GetASymbol(argv[0]);
  
  		if (argc != 2)
! 			error("posX : Id/Nomass value");
  
  		if (GetFloat(argv[1]) < Xmax && GetFloat(argv[1]) > Xmin)
! 			if (sym ==0)	
! 				for (i=0; i<nb_mass;i++)
! 				{
! 					if (GetInt(argv[0]) == mass[i]->nbr)	{
! 						mass[i]->posX = GetFloat(argv[1]);
! 						break;
! 					}
! 				}
! 			else
! 				for (i=0; i<nb_mass;i++)
! 				{
! 					if (sym == mass[i]->Id)
! 						mass[i]->posX = GetFloat(argv[1]);
! 				}
  	}
  

Index: help-msd.pd
===================================================================
RCS file: /cvsroot/pure-data/externals/nusmuk/msd/help-msd.pd,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** help-msd.pd	21 Apr 2005 14:28:53 -0000	1.3
--- help-msd.pd	25 Apr 2005 16:18:38 -0000	1.4
***************
*** 16,20 ****
  #X obj 61 403 cnv 15 610 210 empty empty DYNAMIC_SETTING 20 12 0 14
  -262131 -66577 0;
- #X text 350 449 \$1 : Id (symbol);
  #X text 350 467 \$2 : New value;
  #X text 348 503 \$1 : Id (symbol);
--- 16,19 ----
***************
*** 59,75 ****
  #X text 345 594 \$1 : Creation No of mass;
  #X text 334 271 \$4 : initial position;
  #X connect 2 0 0 0;
  #X connect 9 0 0 0;
! #X connect 16 0 0 0;
! #X connect 19 0 0 0;
  #X connect 21 0 0 0;
! #X connect 22 0 0 0;
! #X connect 25 0 0 0;
  #X connect 29 0 0 0;
! #X connect 30 0 0 0;
! #X connect 33 0 0 0;
! #X connect 35 0 0 0;
! #X connect 44 0 0 0;
! #X restore 281 323 pd masses;
  #N canvas 222 83 808 841 links 0;
  #X obj 33 821 msd;
--- 58,75 ----
  #X text 345 594 \$1 : Creation No of mass;
  #X text 334 271 \$4 : initial position;
+ #X text 350 449 \$1 : Id (symbol) or No;
  #X connect 2 0 0 0;
  #X connect 9 0 0 0;
! #X connect 15 0 0 0;
! #X connect 18 0 0 0;
! #X connect 20 0 0 0;
  #X connect 21 0 0 0;
! #X connect 24 0 0 0;
! #X connect 28 0 0 0;
  #X connect 29 0 0 0;
! #X connect 32 0 0 0;
! #X connect 34 0 0 0;
! #X connect 43 0 0 0;
! #X restore 282 323 pd masses;
  #N canvas 222 83 808 841 links 0;
  #X obj 33 821 msd;

--- NEW FILE: filet.pd ---
#N canvas 543 268 669 547 10;
#X obj 54 407 outlet;
#X obj 152 71 f \$5;
#X obj 188 72 f \$6;
#X obj 115 17 loadbang;
#X obj 46 134 repeat 0;
#X obj 172 101 *;
#X obj 130 45 t b b b b;
#X obj 46 164 f -1;
#X obj 46 188 + 1;
#X msg 297 77 -1;
#X obj 46 211 t f f;
#X obj 150 323 pack f f;
#X obj 46 50 inlet;
#X obj 297 28 select reset;
#X obj 297 5 inlet;
#X obj 46 89 t b b;
#X obj 330 175 repeat 0;
#X obj 330 197 f -1;
#X obj 330 218 + 1;
#X obj 381 153 - 1;
#X obj 387 340 moses;
#X obj 46 280 + \$1;
#X obj 176 278 + \$2;
#X obj 46 234 mod \$6;
#X obj 176 234 div \$6;
#X text 445 35 x0 y0 xstep ystep M N;
#X obj 414 314 - 1;
#X obj 357 297 mod \$6;
#X obj 474 300 div \$6;
#X obj 366 396 + 1;
#X obj 336 432 pack f f;
#X obj 344 59 t b b;
#X obj 375 370 t b;
#X obj 334 391 f;
#X msg 335 468 link fil \$1 \$2 10 2.5 0.5;
#X obj 330 253 t f f f f;
#X obj 494 339 moses;
#X obj 443 431 pack f f;
#X obj 482 369 t b;
#X obj 441 390 f;
#X obj 473 395 + \$6;
#X obj 521 313 - 1;
#X msg 54 359 mass filet 1 80 \$1 \$2 0;
#X obj 46 257 * \$3;
#X obj 176 256 * \$4;
#X connect 1 0 5 0;
#X connect 1 0 41 0;
#X connect 2 0 5 1;
#X connect 2 0 26 0;
#X connect 3 0 6 0;
#X connect 4 0 7 0;
#X connect 5 0 4 1;
#X connect 5 0 19 0;
#X connect 6 2 1 0;
#X connect 6 3 2 0;
#X connect 6 3 9 0;
#X connect 7 0 8 0;
#X connect 8 0 7 1;
#X connect 8 0 10 0;
#X connect 9 0 7 1;
#X connect 9 0 17 1;
#X connect 10 0 23 0;
#X connect 10 1 24 0;
#X connect 11 0 42 0;
#X connect 12 0 15 0;
#X connect 13 0 9 0;
#X connect 13 0 31 0;
#X connect 14 0 13 0;
#X connect 15 0 16 0;
#X connect 15 1 4 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 17 1;
#X connect 18 0 35 0;
#X connect 19 0 16 1;
#X connect 20 0 32 0;
#X connect 21 0 11 0;
#X connect 22 0 11 1;
#X connect 23 0 43 0;
#X connect 24 0 44 0;
#X connect 26 0 20 1;
#X connect 27 0 20 0;
#X connect 28 0 36 0;
#X connect 29 0 30 1;
#X connect 30 0 34 0;
#X connect 31 0 1 0;
#X connect 31 1 2 0;
#X connect 32 0 33 0;
#X connect 33 0 30 0;
#X connect 34 0 0 0;
#X connect 35 0 27 0;
#X connect 35 1 29 0;
#X connect 35 1 33 1;
#X connect 35 2 28 0;
#X connect 35 3 40 0;
#X connect 35 3 39 1;
#X connect 36 0 38 0;
#X connect 37 0 34 0;
#X connect 38 0 39 0;
#X connect 39 0 37 0;
#X connect 40 0 37 1;
#X connect 41 0 36 1;
#X connect 42 0 0 0;
#X connect 43 0 21 0;
#X connect 44 0 22 0;