Pd-cvs June 2005

pd-cvs@lists.iem.at

14 participants
211 discussions

externals/zexy/src index.c,1.6,1.7
by IOhannes m zmölnig 21 Jun '05

21 Jun '05

Update of /cvsroot/pure-data/externals/zexy/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7523 Modified Files: index.c Log Message: default to 128 maxentries if 0 or a negative number is given Index: index.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/index.c,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** index.c 15 Jun 2005 15:52:07 -0000 1.6 --- index.c 21 Jun 2005 13:23:11 -0000 1.7 *************** *** 302,306 **** } ! if (!maxentries) maxentries=128; buf = (t_symbol **)getbytes(sizeof(t_symbol *) * maxentries); --- 302,306 ---- } ! if (maxentries<1) maxentries=128; buf = (t_symbol **)getbytes(sizeof(t_symbol *) * maxentries);

1 0

externals/tb/assert assert.c,NONE,1.1 makefile,NONE,1.1
by Tim Blechmann 21 Jun '05

21 Jun '05

Update of /cvsroot/pure-data/externals/tb/assert In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7678 Added Files: assert.c makefile Log Message: importing --- NEW FILE: makefile --- NAME=assert CSYM=assert current: pd_linux # ----------------------- NT ----------------------- pd_nt: $(NAME).dll .SUFFIXES: .dll PDNTCFLAGS = /W3 /WX /DNT /DPD /nologo VC="C:\Program Files\Microsoft Visual Studio\Vc98" PDNTINCLUDE = /I. /I..\..\src /I$(VC)\include PDNTLDIR = $(VC)\lib PDNTLIB = $(PDNTLDIR)\libc.lib \ $(PDNTLDIR)\oldnames.lib \ $(PDNTLDIR)\kernel32.lib \ ..\..\bin\pd.lib .c.dll: cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c $*.c link /dll /export:$(CSYM)_setup $*.obj $(PDNTLIB) # ----------------------- IRIX 5.x ----------------------- pd_irix5: $(NAME).pd_irix5 .SUFFIXES: .pd_irix5 SGICFLAGS5 = -o32 -DPD -DUNIX -DIRIX -O2 SGIINCLUDE = -I../../src .c.pd_irix5: $(CC) $(SGICFLAGS5) $(SGIINCLUDE) -o $*.o -c $*.c ld -elf -shared -rdata_shared -o $*.pd_irix5 $*.o rm $*.o # ----------------------- IRIX 6.x ----------------------- pd_irix6: $(NAME).pd_irix6 .SUFFIXES: .pd_irix6 SGICFLAGS6 = -n32 -DPD -DUNIX -DIRIX -DN32 -woff 1080,1064,1185 \ -OPT:roundoff=3 -OPT:IEEE_arithmetic=3 -OPT:cray_ivdep=true \ -Ofast=ip32 .c.pd_irix6: $(CC) $(SGICFLAGS6) $(SGIINCLUDE) -o $*.o -c $*.c ld -n32 -IPA -shared -rdata_shared -o $*.pd_irix6 $*.o rm $*.o # ----------------------- LINUX i386 ----------------------- pd_linux: $(NAME).pd_linux .SUFFIXES: .pd_linux LINUXCFLAGS = -DPD -O2 -fPIC -funroll-loops -fomit-frame-pointer \ -Wall -W -Wshadow -Wstrict-prototypes -Werror \ -Wno-unused -Wno-parentheses -Wno-switch LINUXINCLUDE = -I../../src LSTRIP = strip --strip-unneeded -R .note -R .comment .c.pd_linux: cc $(LINUXCFLAGS) $(LINUXINCLUDE) -o $*.o -c $*.c cc -Wl,-export_dynamic --shared -o $*.pd_linux $*.o -lm $(LSTRIP) $*.pd_linux rm -f $*.o # ----------------------- Mac OSX ----------------------- pd_darwin: $(NAME).pd_darwin .SUFFIXES: .pd_darwin DARWINCFLAGS = -DPD -O2 -Wall -W -Wshadow -Wstrict-prototypes \ -Wno-unused -Wno-parentheses -Wno-switch .c.pd_darwin: $(CC) $(DARWINCFLAGS) $(LINUXINCLUDE) -o $*.o -c $*.c $(CC) -bundle -undefined suppress -flat_namespace -o $*.pd_darwin $*.o rm -f $*.o # ---------------------------------------------------------- clean: rm -f *.o *.pd_* so_locations --- NEW FILE: assert.c --- /* * * * Copyright (C) 2005 Tim Blechmann * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; see the file COPYING. If not, write to * the Free Software Foundation, Inc., 59 Temple Place - Suite 330, * Boston, MA 02111-1307, USA. */ #include "m_pd.h" /* -------------------- assert ----------------------------- */ static t_class *assert_class; typedef struct _assert { t_object x_obj; } t_assert; static void *assert_new(t_symbol *s) { t_assert *x = (t_assert *)pd_new(assert_class); return (x); } static void assert_anything(t_assert *x, t_int argc, t_atom* argv) { pd_error(x, "Assertion failed"); } void assert_setup(void) { assert_class = class_new(gensym("assert"), (t_newmethod)assert_new, 0, sizeof(t_assert), 0, A_DEFSYM, 0); class_addanything(assert_class, assert_anything); }

1 0

externals/tb/assert - New directory
by Tim Blechmann 21 Jun '05

21 Jun '05

Update of /cvsroot/pure-data/externals/tb/assert In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4481/assert Log Message: Directory /cvsroot/pure-data/externals/tb/assert added to the repository

1 0

[PD-cvs] externals/nusmuk/editor arial.ttf, NONE, 1.1 cone.obj, NONE, 1.1 countto.pd, NONE, 1.1 curve2.pd, NONE, 1.1 mytri.pd, NONE, 1.1 obj-render.pd, NONE, 1.1
by Frank Barknecht 20 Jun '05

20 Jun '05

Update of /cvsroot/pure-data/externals/nusmuk/editor In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1756 Added Files: arial.ttf cone.obj countto.pd curve2.pd mytri.pd obj-render.pd Log Message: Added obj-importer and lots of other stuff. --- NEW FILE: curve2.pd --- #N canvas 409 354 379 280 10; #X obj 31 123 GEMglBegin; #X obj 86 100 GLdefine GL_LINE_STRIP; #X obj 31 13 inlet; #X obj 86 77 loadbang; #X obj 159 13 inlet; #X obj 221 12 inlet; #X obj 31 200 GEMglEnd; #X obj 31 151 GEMglVertex3fv; #X obj 31 175 GEMglVertex3fv; #X connect 0 0 7 0; #X connect 1 0 0 1; #X connect 2 0 0 0; #X connect 3 0 1 0; #X connect 4 0 7 1; #X connect 5 0 8 1; #X connect 7 0 8 0; #X connect 8 0 6 0; --- NEW FILE: arial.ttf --- (This appears to be a binary file; contents omitted.) --- NEW FILE: mytri.pd --- #N canvas 0 0 773 622 10; #X obj 271 316 cnv 15 100 30 empty empty empty 20 12 0 14 -24198 -66577 0; #X msg 222 209 draw line; #X msg 222 230 draw fill; #X msg 222 252 draw point; #X msg 309 242 0 0 1; #X msg 302 223 0 1 0; #X msg 294 204 1 0 0; #X text 335 204 (XYZ)1; #X text 347 222 (XYZ)2; #X text 357 242 (XYZ)3; #X msg 334 302 0 0 1; #X msg 327 283 0 1 0; #X msg 319 264 1 0 0; #X text 362 264 (XYZ)1; #X text 372 282 (XYZ)2; #X text 382 302 (XYZ)3; #X obj 280 323 primTri; #X obj 327 75 r MSD-OUT-GLOBAL; #X obj 314 148 route massesPos; #X obj 383 187 route \$1 \$2 \$3; #X obj 113 170 gemhead; #X obj 173 169 r RENDER-PRIMTRI; #X obj 113 215 spigot 0; #X obj 322 115 spigot 0; #X connect 1 0 16 0; #X connect 2 0 16 0; #X connect 3 0 16 0; #X connect 4 0 16 3; #X connect 5 0 16 2; #X connect 6 0 16 1; #X connect 10 0 16 6; #X connect 11 0 16 5; #X connect 12 0 16 4; #X connect 17 0 23 0; #X connect 18 0 19 0; #X connect 19 0 16 1; #X connect 19 1 16 3; #X connect 19 2 16 2; #X connect 20 0 22 0; #X connect 21 0 22 1; #X connect 21 0 23 1; #X connect 22 0 16 0; #X connect 23 0 18 0; --- NEW FILE: countto.pd --- #N canvas 0 0 450 300 10; #X obj 110 106 until; #X obj 108 141 f 0; #X obj 140 141 + 1; #X obj 110 193 outlet; #X text 207 35 from \, to; #X obj 113 34 inlet; #X obj 112 59 t a a; #X msg 111 80 \$2; #X msg 177 110 \$1; #X connect 0 0 1 0; #X connect 1 0 2 0; #X connect 1 0 3 0; #X connect 2 0 1 1; #X connect 5 0 6 0; #X connect 6 0 7 0; #X connect 6 1 8 0; #X connect 7 0 0 0; #X connect 8 0 1 1; --- NEW FILE: cone.obj --- # Exported from Wings 3D 0.98.29b mtllib cone.mtl o cone1 #17 vertices, 30 faces v 1.00000000 -1.00000000 0.0000000e+0 v 0.92387953 -1.00000000 0.38268343 v 0.70710678 -1.00000000 0.70710678 v 0.38268343 -1.00000000 0.92387953 v 6.1230318e-17 -1.00000000 1.00000000 v -0.38268343 -1.00000000 0.92387953 v -0.70710678 -1.00000000 0.70710678 v -0.92387953 -1.00000000 0.38268343 v -1.00000000 -1.00000000 1.2246064e-16 v -0.92387953 -1.00000000 -0.38268343 v -0.70710678 -1.00000000 -0.70710678 v -0.38268343 -1.00000000 -0.92387953 v -1.8369095e-16 -1.00000000 -1.00000000 v 0.38268343 -1.00000000 -0.92387953 v 0.70710678 -1.00000000 -0.70710678 v 0.92387953 -1.00000000 -0.38268343 v 0.0000000e+0 1.00000000 0.0000000e+0 vn 0.99770979 -6.7640061e-2 -1.2578715e-16 vn 0.59046943 -0.76910745 0.24458044 vn 0.45192573 -0.76910745 0.45192573 vn 0.24458044 -0.76910745 0.59046943 vn 0.0000000e+0 -0.76910745 0.63911950 vn -0.24458044 -0.76910745 0.59046943 vn -0.45192573 -0.76910745 0.45192573 vn -0.77971445 -0.53641108 0.32296830 vn -0.99770979 -6.7640061e-2 1.4151054e-16 vn -0.59046943 -0.76910745 -0.24458044 vn -0.45192573 -0.76910745 -0.45192573 vn -0.24458044 -0.76910745 -0.59046943 vn -8.0577559e-17 -0.76910745 -0.63911950 vn 0.24458044 -0.76910745 -0.59046943 vn 0.45192573 -0.76910745 -0.45192573 vn 0.77971445 -0.53641108 -0.32296830 vn -3.1518972e-17 1.00000000 9.0617045e-17 g cone1_default usemtl default f 1//1 17//17 2//2 f 2//2 16//16 1//1 f 2//2 17//17 3//3 f 3//3 15//15 2//2 f 3//3 17//17 4//4 f 4//4 14//14 3//3 f 4//4 17//17 5//5 f 5//5 13//13 4//4 f 5//5 17//17 6//6 f 6//6 12//12 5//5 f 6//6 17//17 7//7 f 7//7 11//11 6//6 f 7//7 17//17 8//8 f 8//8 10//10 7//7 f 8//8 17//17 9//9 f 9//9 10//10 8//8 f 9//9 17//17 10//10 f 10//10 17//17 11//11 f 11//11 7//7 10//10 f 11//11 17//17 12//12 f 12//12 6//6 11//11 f 12//12 17//17 13//13 f 13//13 5//5 12//12 f 13//13 17//17 14//14 f 14//14 4//4 13//13 f 14//14 17//17 15//15 f 15//15 3//3 14//14 f 15//15 17//17 16//16 f 16//16 2//2 15//15 f 16//16 17//17 1//1 --- NEW FILE: obj-render.pd --- #N canvas 296 110 918 736 10; #X obj 258 140 textfile; #N canvas 550 94 450 300 tri 0; #X restore 258 617 pd tri; #X msg 634 126 rewind; #X obj 258 100 until; #X obj 258 586 s pd-tri; #X msg 95 532 clear; #X obj 258 415 s2l /; #X obj 258 377 unpack s s s; #X msg 258 446 \$1; #X obj 302 415 s2l /; #X msg 302 448 \$1; #X obj 340 414 s2l /; #X msg 340 447 \$1; #X obj 258 518 pack 0 0 0; #X obj 258 482 - 1; #X obj 302 480 - 1; #X obj 340 482 - 1; #X obj 258 219 route f v; #X msg 465 358 mass 0-m 1 100 \$1 \$2 \$3; #X msg 475 431 link 0-l \$1 \$2 10 2.5 1.5; #X msg 475 402 \$1 \$2 \, \$2 \$3 \, \$3 \$1; #X msg 488 478 reset; #X obj 258 68 t b b; #N canvas 282 359 730 665 find-min-max 0; #X obj 166 448 outlet; #X obj 100 66 inlet; #X obj 182 26 inlet; #X obj 235 133 inlet; #X obj 182 124 abs; #X obj 182 223 spigot; #X obj 182 158 t f f; #X obj 166 388 pack 0 0; #X msg 166 414 Xmin \$1 \, Xmax \$2 \, Ymin \$1 \, Ymax \$2 \, Zmin \$1 \, Zmax \$2; #X obj 166 347 * -1; #X obj 166 323 t f f; #X obj 166 265 f 4; #X obj 219 197 > 4; #X msg 235 168 4; #X text 251 221 find maximum of all x \, y \, z; #X text 293 134 rest; #X text 216 326 at end \, send max to msd3D; #X obj 166 291 + 1; #X obj 182 52 t a a a; #X msg 251 80 \$1; #X msg 217 80 \$2; #X msg 182 82 \$3; #X connect 1 0 11 0; #X connect 2 0 18 0; #X connect 3 0 13 0; #X connect 4 0 6 0; #X connect 5 0 11 1; #X connect 6 0 5 0; #X connect 6 1 12 0; #X connect 7 0 8 0; #X connect 8 0 0 0; #X connect 9 0 7 0; #X connect 10 0 9 0; #X connect 10 1 7 1; #X connect 11 0 17 0; #X connect 12 0 5 1; #X connect 13 0 12 1; #X connect 17 0 10 0; #X connect 18 0 21 0; #X connect 18 1 20 0; #X connect 18 2 19 0; #X connect 19 0 4 0; #X connect 20 0 4 0; #X connect 21 0 4 0; #X restore 368 267 pd find-min-max; #X obj 316 101 s \$0-obj-import-init; #X obj 468 237 r \$0-obj-import-init; #X obj 488 457 r \$0-obj-import-init; #X obj 95 507 r \$0-obj-import-init; #X obj 107 100 r \$0-ob-import-file; #X obj 492 158 s \$0-ob-import-file; #X obj 492 60 openpanel; #X obj 492 38 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X msg 511 125 print; #X msg 492 103 read \$1 cr \, rewind; #X msg 578 127 bang; #X msg 258 33 bang; #X obj 634 100 r \$0-obj-import-init; #X msg 364 182 \; pd-tri loadbang; #X msg 258 543 obj 0 0 mytri \$1 \$2 \$3; #X obj 466 82 t b a; #X obj 492 13 inlet; #X obj 655 547 inlet; #X obj 258 564 spigot; #X obj 465 510 outlet; #X connect 0 0 17 0; #X connect 0 1 3 1; #X connect 0 1 23 0; #X connect 0 1 37 0; #X connect 2 0 29 0; #X connect 3 0 0 0; #X connect 5 0 4 0; #X connect 6 0 8 0; #X connect 7 0 6 0; #X connect 7 1 9 0; #X connect 7 2 11 0; #X connect 8 0 14 0; #X connect 9 0 10 0; #X connect 10 0 15 0; #X connect 11 0 12 0; #X connect 12 0 16 0; #X connect 13 0 38 0; #X connect 13 0 20 0; #X connect 14 0 13 0; #X connect 15 0 13 1; #X connect 16 0 13 2; #X connect 17 0 7 0; #X connect 17 1 18 0; #X connect 17 1 23 1; #X connect 18 0 43 0; #X connect 19 0 43 0; #X connect 20 0 19 0; #X connect 21 0 43 0; #X connect 22 0 3 0; #X connect 22 1 24 0; #X connect 23 0 43 0; #X connect 25 0 23 2; #X connect 26 0 21 0; #X connect 27 0 5 0; #X connect 28 0 0 0; #X connect 30 0 39 0; #X connect 31 0 30 0; #X connect 32 0 29 0; #X connect 33 0 29 0; #X connect 34 0 29 0; #X connect 35 0 22 0; #X connect 36 0 2 0; #X connect 38 0 42 0; #X connect 39 0 35 0; #X connect 39 1 33 0; #X connect 40 0 31 0; #X connect 41 0 42 1; #X connect 42 0 4 0;

1 0

externals/nusmuk/editor gem_links.pd, 1.1, 1.2 gem_masses.pd, 1.1, 1.2 morelinks.pd, 1.1, 1.2 msd-editor.pd, 1.1, 1.2 msd_append.pd, 1.1, 1.2 structures.pd, 1.1, 1.2
by Frank Barknecht 20 Jun '05

20 Jun '05

Update of /cvsroot/pure-data/externals/nusmuk/editor In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28903 Modified Files: gem_links.pd gem_masses.pd morelinks.pd msd-editor.pd msd_append.pd structures.pd Log Message: Lots of changes, first batch Index: gem_masses.pd =================================================================== RCS file: /cvsroot/pure-data/externals/nusmuk/editor/gem_masses.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** gem_masses.pd 17 May 2005 17:16:17 -0000 1.1 --- gem_masses.pd 20 Jun 2005 19:03:15 -0000 1.2 *************** *** 1,3 **** ! #N canvas 308 314 667 612 10; #X obj 141 31 inlet; #X obj 150 424 translateXYZ; --- 1,3 ---- ! #N canvas 28 301 667 612 10; #X obj 141 31 inlet; #X obj 150 424 translateXYZ; *************** *** 38,44 **** #X obj 192 44 r MSD-TYPE; #X obj 238 104 unpack 0 0 0 0; ! #X obj 150 453 sphere 0.05; #X connect 0 0 13 0; ! #X connect 1 0 16 0; #X connect 2 0 4 1; #X connect 3 0 1 0; --- 38,52 ---- #X obj 192 44 r MSD-TYPE; #X obj 238 104 unpack 0 0 0 0; ! #X floatatom 308 400 5 0 0 0 - - -; ! #X obj 126 479 square 0.025; ! #X msg 259 469 text \$1; ! #X obj 279 561 text3d; ! #X obj 388 503 loadbang; ! #X msg 385 528 2; ! #X obj 391 395 inlet mass-id; ! #X obj 211 516 spigot; #X connect 0 0 13 0; ! #X connect 1 0 17 0; ! #X connect 1 0 23 0; #X connect 2 0 4 1; #X connect 3 0 1 0; *************** *** 47,50 **** --- 55,59 ---- #X connect 5 1 1 1; #X connect 7 0 6 0; + #X connect 8 0 18 0; #X connect 8 1 5 0; #X connect 8 2 1 2; *************** *** 56,60 **** --- 65,77 ---- #X connect 13 1 15 0; #X connect 14 0 13 1; + #X connect 15 0 18 0; #X connect 15 1 5 0; #X connect 15 2 1 2; #X connect 15 3 1 3; + #X connect 16 0 17 1; + #X connect 18 0 19 0; + #X connect 20 0 21 0; + #X connect 21 0 19 1; + #X connect 22 0 23 1; + #X connect 22 0 19 1; + #X connect 23 0 19 0; Index: msd_append.pd =================================================================== RCS file: /cvsroot/pure-data/externals/nusmuk/editor/msd_append.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** msd_append.pd 17 May 2005 17:16:17 -0000 1.1 --- msd_append.pd 20 Jun 2005 19:03:15 -0000 1.2 *************** *** 6,34 **** #X obj 34 29 bng 15 250 50 0 empty empty fix 0 -6 0 8 -258699 -1 -1 ; ! #N canvas 355 457 863 719 guts 0; ! #X obj 252 139 pointer; ! #X obj 66 179 random 100; ! #X msg 252 102 traverse pd-data \, bang; ! #X obj 105 126 random 100; ! #X obj 70 24 inlet; ! #X obj 177 24 inlet; ! #X obj 385 351 + 1; ! #X obj 355 291 r \$0-counter-bng; ! #X obj 355 393 s \$0-nextmass; ! #X obj 145 153 r \$0-nextmass; ! #X obj 70 97 s \$0-counter-bng; ! #X obj 70 71 t b b b b b f b; ! #X msg 70 47 0; ! #X text 111 24 mobile; ! #X text 223 24 fixed mass; ! #X msg 177 46 900; ! #X obj 355 351 f 0; ! #X obj 391 316 loadbang; ! #X obj 255 294 r \$0-counter; ! #X msg 296 384 set \$1; ! #X obj 296 425 s \$0-counter-in; ! #X obj 66 203 + 20; ! #X obj 105 148 + 20; ! #X obj 208 133 r \$0-M; #X obj 553 175 f \$1; #X obj 553 199 select 0; --- 6,29 ---- #X obj 34 29 bng 15 250 50 0 empty empty fix 0 -6 0 8 -258699 -1 -1 ; ! #N canvas 355 305 863 719 guts 0; ! #X obj 289 340 pointer; ! #X msg 289 303 traverse pd-data \, bang; ! #X obj 107 89 inlet; ! #X obj 214 89 inlet; ! #X obj 679 378 + 1; ! #X obj 649 318 r \$0-counter-bng; ! #X obj 649 420 s \$0-nextmass; ! #X obj 182 354 r \$0-nextmass; ! #X obj 107 298 s \$0-counter-bng; ! #X msg 107 112 0; ! #X text 148 89 mobile; ! #X text 260 89 fixed mass; ! #X msg 214 111 900; ! #X obj 649 378 f 0; ! #X obj 685 343 loadbang; ! #X obj 549 321 r \$0-counter; ! #X msg 590 411 set \$1; ! #X obj 590 452 s \$0-counter-in; ! #X obj 245 334 r \$0-M; #X obj 553 175 f \$1; #X obj 553 199 select 0; *************** *** 36,91 **** #X msg 552 224 100; #X obj 558 152 loadbang; ! #X obj 21 135 r \$0-geos; ! #X obj 252 77 r \$0-start-traverse; ! #X obj 179 204 f 0; ! #X obj 21 158 t a b; ! #X obj 195 173 r \$0-mfds; ! #X obj 233 198 r \$0-msid; ! #X obj 68 231 append mass x y mid mob M sid; #X obj 678 195 loadbang; #X obj 678 249 s \$0-msid; #X msg 678 221 0; ! #X connect 0 0 35 6; ! #X connect 1 0 21 0; ! #X connect 2 0 0 0; ! #X connect 3 0 22 0; ! #X connect 4 0 12 0; ! #X connect 5 0 15 0; ! #X connect 6 0 16 1; ! #X connect 7 0 16 0; ! #X connect 9 0 35 2; ! #X connect 11 0 10 0; ! #X connect 11 1 1 0; ! #X connect 11 3 3 0; ! #X connect 11 5 35 3; ! #X connect 11 6 2 0; ! #X connect 12 0 11 0; ! #X connect 15 0 11 0; ! #X connect 16 0 6 0; ! #X connect 16 0 8 0; ! #X connect 16 0 19 0; ! #X connect 17 0 16 0; ! #X connect 18 0 16 0; #X connect 19 0 20 0; ! #X connect 21 0 35 0; ! #X connect 22 0 35 1; ! #X connect 23 0 35 4; ! #X connect 24 0 25 0; ! #X connect 25 0 27 0; ! #X connect 25 1 26 0; ! #X connect 27 0 26 0; ! #X connect 28 0 24 0; ! #X connect 29 0 32 0; ! #X connect 30 0 2 0; ! #X connect 31 0 35 3; ! #X connect 32 0 35 0; ! #X connect 32 1 31 0; ! #X connect 33 0 31 1; ! #X connect 34 0 35 5; #X connect 36 0 38 0; ! #X connect 38 0 37 0; #X restore 105 79 pd guts; ! #X obj 126 6 inlet; ! #X obj 169 5 inlet; #X obj 25 59 nbx 5 14 -1e+37 1e+37 0 0 \$0-counter \$0-counter-in id -22 8 0 10 -262144 -1 -1 0 256; --- 31,115 ---- #X msg 552 224 100; #X obj 558 152 loadbang; ! #X obj 40 316 r \$0-geos; ! #X obj 289 278 r \$0-start-traverse; ! #X obj 216 405 f 0; ! #X obj 40 339 t a b; ! #X obj 232 374 r \$0-mfds; ! #X obj 270 399 r \$0-msid; ! #X obj 105 432 append mass x y mid mob M sid; #X obj 678 195 loadbang; #X obj 678 249 s \$0-msid; #X msg 678 221 0; ! #X msg 197 376 \$1; ! #X obj 141 172 random 100; ! #X obj 227 172 random 100; ! #X obj 141 196 + 20; ! #X obj 227 194 + 20; ! #X obj 107 272 t b a b b b a b; ! #X msg 123 356 \$2 \$3; ! #X obj 128 150 t f b; ! #X obj 107 230 pack 0 0 0; ! #X obj 363 90 inlet; ! #X text 410 91 another mass: list of "mob \, x \, y"; ! #X obj 105 477 outlet; ! #X text 159 480 last mass created; ! #X obj 338 531 append hole x y; ! #X obj 438 505 pointer; ! #X msg 438 468 traverse pd-data \, bang; ! #X obj 438 443 r \$0-start-traverse; ! #X msg 338 479 10 10; ! #X connect 0 0 30 6; ! #X connect 1 0 0 0; ! #X connect 2 0 9 0; ! #X connect 3 0 12 0; ! #X connect 4 0 13 1; ! #X connect 5 0 13 0; ! #X connect 7 0 30 2; ! #X connect 9 0 41 0; ! #X connect 12 0 41 0; ! #X connect 13 0 4 0; ! #X connect 13 0 6 0; ! #X connect 13 0 16 0; ! #X connect 14 0 13 0; ! #X connect 15 0 13 0; ! #X connect 16 0 17 0; ! #X connect 18 0 30 4; #X connect 19 0 20 0; ! #X connect 20 0 22 0; ! #X connect 20 1 21 0; ! #X connect 22 0 21 0; ! #X connect 23 0 19 0; ! #X connect 24 0 27 0; ! #X connect 25 0 1 0; ! #X connect 26 0 30 3; ! #X connect 27 0 30 0; ! #X connect 27 1 26 0; ! #X connect 28 0 26 1; ! #X connect 29 0 30 5; ! #X connect 30 0 45 0; ! #X connect 31 0 33 0; ! #X connect 33 0 32 0; ! #X connect 34 0 30 3; ! #X connect 35 0 37 0; #X connect 36 0 38 0; ! #X connect 37 0 42 1; ! #X connect 38 0 42 2; ! #X connect 39 0 8 0; ! #X connect 39 1 40 0; ! #X connect 39 5 34 0; ! #X connect 39 6 1 0; ! #X connect 40 0 30 0; ! #X connect 41 0 42 0; ! #X connect 41 1 35 0; ! #X connect 41 1 36 0; ! #X connect 42 0 39 0; ! #X connect 43 0 42 0; ! #X connect 48 0 47 2; ! #X connect 49 0 48 0; ! #X connect 50 0 49 0; ! #X connect 51 0 47 0; #X restore 105 79 pd guts; ! #X obj 105 6 inlet; ! #X obj 148 5 inlet; #X obj 25 59 nbx 5 14 -1e+37 1e+37 0 0 \$0-counter \$0-counter-in id -22 8 0 10 -262144 -1 -1 0 256; *************** *** 100,104 **** #X obj 48 33 r \$0-make-rect; #X msg 93 67 bang; ! #N canvas 449 480 450 300 1024-geos 0; #X obj 48 82 bng 24 250 50 0 \$0-make-rect empty make-rect 0 -6 0 8 -24198 -1 -1; --- 124,128 ---- #X obj 48 33 r \$0-make-rect; #X msg 93 67 bang; ! #N canvas 449 480 450 300 1015-geos 0; #X obj 48 82 bng 24 250 50 0 \$0-make-rect empty make-rect 0 -6 0 8 -24198 -1 -1; *************** *** 130,134 **** #X obj 48 66 t b b; #X obj 78 226 s \$0-start-traverse; ! #N canvas 0 0 930 534 1024-sixpack 0; #X obj 250 282 r \$0-x0; #X text 452 208 Args; --- 154,158 ---- #X obj 48 66 t b b; #X obj 78 226 s \$0-start-traverse; ! #N canvas 0 0 930 534 1015-sixpack 0; #X obj 250 282 r \$0-x0; #X text 452 208 Args; *************** *** 151,155 **** #X obj 524 45 r \$0-show-geos; #X obj 63 322 r \$0-make-circ; ! #N canvas 0 0 930 534 1024-fourpack 0; #X text 452 208 Args; #X obj 320 310 sixpack --------------------; --- 175,179 ---- #X obj 524 45 r \$0-show-geos; #X obj 63 322 r \$0-make-circ; ! #N canvas 0 0 930 534 1015-fourpack 0; #X text 452 208 Args; #X obj 320 310 sixpack --------------------; *************** *** 209,220 **** #X connect 29 0 28 0; #X connect 30 0 28 0; ! #X restore 113 41 pd geos; #X obj 59 29 bng 15 250 50 0 \$0-show-geos \$0-show-geos geos 0 -6 0 8 -225271 -1 -1; #X obj 35 111 nbx 4 14 -1e+37 1e+37 0 0 \$0-msid \$0-msid SID -30 8 0 10 -261681 -1 -1 0 256; #X connect 1 0 3 0; #X connect 2 0 3 1; #X connect 4 0 3 0; #X connect 5 0 3 1; #X coords 0 0 1 1 82 130 1; --- 233,248 ---- #X connect 29 0 28 0; #X connect 30 0 28 0; ! #X restore 106 122 pd geos; #X obj 59 29 bng 15 250 50 0 \$0-show-geos \$0-show-geos geos 0 -6 0 8 -225271 -1 -1; #X obj 35 111 nbx 4 14 -1e+37 1e+37 0 0 \$0-msid \$0-msid SID -30 8 0 10 -261681 -1 -1 0 256; + #X obj 200 1 inlet; + #X obj 105 103 outlet; #X connect 1 0 3 0; #X connect 2 0 3 1; + #X connect 3 0 13 0; #X connect 4 0 3 0; #X connect 5 0 3 1; + #X connect 12 0 3 2; #X coords 0 0 1 1 82 130 1; Index: morelinks.pd =================================================================== RCS file: /cvsroot/pure-data/externals/nusmuk/editor/morelinks.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** morelinks.pd 17 May 2005 17:16:17 -0000 1.1 --- morelinks.pd 20 Jun 2005 19:03:15 -0000 1.2 *************** *** 1,3 **** ! #N canvas 225 469 135 205 10; #N canvas 375 417 614 523 left-right-links 0; #X obj 192 225 pointer mass; --- 1,3 ---- ! #N canvas 225 469 146 202 10; #N canvas 375 417 614 523 left-right-links 0; #X obj 192 225 pointer mass; *************** *** 44,51 **** #X connect 18 0 20 1; #X connect 19 0 0 0; ! #X restore 141 68 pd left-right-links; ! #X obj 2 19 cnv 15 130 80 empty empty empty 20 12 0 14 -233017 -66577 0; ! #X obj 10 53 bng 15 250 50 0 empty empty left-to-right 20 8 0 8 -241291 -1 -1; #N canvas 487 247 771 749 one-to-many 0; --- 44,51 ---- #X connect 18 0 20 1; #X connect 19 0 0 0; ! #X restore 141 67 pd left-right-links; ! #X obj 2 18 cnv 15 140 80 empty empty empty 20 12 0 14 -233017 -66577 0; ! #X obj 10 52 bng 15 250 50 0 empty empty left-to-right 20 8 0 8 -241291 -1 -1; #N canvas 487 247 771 749 one-to-many 0; *************** *** 86,105 **** #X connect 13 0 15 1; #X connect 14 0 5 0; ! #X restore 143 95 pd one-to-many; ! #X obj 10 76 tgl 15 0 empty empty one2many-Start 20 8 0 8 -262131 -1 -1 0 1; ! #X obj 10 31 bng 15 250 50 0 empty empty all_selected 20 8 0 8 -241291 -1 -1; ! #X obj 109 30 tgl 15 0 empty empty Keys -3 -6 0 8 -24198 -1 -1 0 1 ; ! #X obj 211 6 keyup; ! #X obj 211 27 spigot; ! #X obj 2 101 cnv 15 130 100 empty empty Link_Params 10 10 0 10 -195568 -1 0; ! #X obj 20 121 nbx 4 14 -1e+37 1e+37 0 0 \$0-K \$0-K K -12 8 0 10 -225271 -1 -1 10 256; ! #X obj 46 182 nbx 5 14 -1e+37 1e+37 0 0 \$0-lsid \$0-lsid SID -30 8 0 10 -261681 -1 -1 0 256; ! #X obj 20 138 nbx 4 14 -1e+37 1e+37 0 0 \$0-D \$0-D D -12 8 0 10 -225271 -1 -1 2.5 256; #N canvas 374 319 746 411 linkparam 0; --- 86,105 ---- #X connect 13 0 15 1; #X connect 14 0 5 0; ! #X restore 143 94 pd one-to-many; ! #X obj 10 75 tgl 15 0 empty empty one2many-Start 20 8 0 8 -262131 -1 -1 0 1; ! #X obj 10 30 bng 15 250 50 0 empty empty all_selected 20 8 0 8 -241291 -1 -1; ! #X obj 115 31 tgl 15 0 empty empty Keys -3 -6 0 8 -24198 -1 -1 0 1 ; ! #X obj 211 5 keyup; ! #X obj 211 26 spigot; ! #X obj 2 100 cnv 15 140 100 empty empty Link_Params 10 10 0 10 -195568 -1 0; ! #X obj 20 120 nbx 4 14 -1e+37 1e+37 0 0 \$0-K \$0-K K -12 8 0 10 -225271 -1 -1 10 256; ! #X obj 46 181 nbx 5 14 -1e+37 1e+37 0 0 \$0-lsid \$0-lsid SID -30 8 0 10 -261681 -1 -1 0 256; ! #X obj 20 142 nbx 4 14 -1e+37 1e+37 0 0 \$0-D \$0-D D -12 8 0 10 -225271 -1 -1 2.5 256; #N canvas 374 319 746 411 linkparam 0; *************** *** 139,142 **** --- 139,144 ---- #X obj 195 53 r \$0-Lmin; #X obj 235 78 r \$0-Lmax; + #X obj 49 315 outlet; + #X obj 49 287 r \$0-link-param; #X connect 1 0 30 0; #X connect 1 1 30 1; *************** *** 179,183 **** #X connect 33 0 31 0; #X connect 34 0 32 0; ! #X restore 145 127 pd linkparam; #N canvas 0 0 483 507 ilinker 0; #X obj 195 306 pointer mass; --- 181,186 ---- #X connect 33 0 31 0; #X connect 34 0 32 0; ! #X connect 36 0 35 0; ! #X restore 145 126 pd linkparam; #N canvas 0 0 483 507 ilinker 0; #X obj 195 306 pointer mass; *************** *** 210,221 **** #X connect 9 0 1 0; #X connect 10 0 0 0; ! #X restore 137 46 pd ilinker; ! #X obj 210 47 select 108 114; ! #X obj 68 132 nbx 3 14 0 1e+37 0 0 \$0-Lmin \$0-Lmin Lmin 0 -8 0 10 -225271 -1 -1 0 256; ! #X obj 20 155 nbx 3 14 -1e+37 1e+37 0 0 \$0-P \$0-P P -12 8 0 10 -225271 -1 -1 1 256; ! #X obj 67 162 nbx 6 14 0 1e+37 0 0 \$0-Lmax \$0-Lmax Lmax 0 -8 0 10 ! -225271 -1 -1 0 256; #X connect 2 0 0 0; #X connect 3 0 4 0; --- 213,225 ---- #X connect 9 0 1 0; #X connect 10 0 0 0; ! #X restore 137 45 pd ilinker; ! #X obj 210 46 select 108 114; ! #X obj 77 132 nbx 3 14 0 1e+37 0 0 \$0-Lmin \$0-Lmin Lmin 0 -8 0 10 -225271 -1 -1 0 256; ! #X obj 20 161 nbx 3 14 -1e+37 1e+37 0 0 \$0-P \$0-P P -12 8 0 10 -225271 -1 -1 1 256; ! #X obj 76 162 nbx 6 14 0 1e+37 0 0 \$0-Lmax \$0-Lmax Lmax 0 -8 0 10 ! -225271 -1 -1 1e+10 256; ! #X obj 145 156 outlet; #X connect 2 0 0 0; #X connect 3 0 4 0; *************** *** 225,229 **** #X connect 7 0 8 0; #X connect 8 0 15 0; #X connect 15 0 14 0; #X connect 15 1 0 0; ! #X coords 0 0 1 1 132 200 1; --- 229,234 ---- #X connect 7 0 8 0; #X connect 8 0 15 0; + #X connect 13 0 19 0; #X connect 15 0 14 0; #X connect 15 1 0 0; ! #X coords 0 0 1 1 142 200 1; Index: structures.pd =================================================================== RCS file: /cvsroot/pure-data/externals/nusmuk/editor/structures.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** structures.pd 17 May 2005 17:16:17 -0000 1.1 --- structures.pd 20 Jun 2005 19:03:15 -0000 1.2 *************** *** 1,4 **** #N canvas 752 10 450 300 10; ! #N canvas 389 332 664 321 mass 0; #X obj 62 182 drawnumber mid 0 -18 0 m; #X obj 61 136 filledpolygon mob mob 1 -5 0 -4 4 0 5 4 4 5 0 4 -4 0 --- 1,4 ---- #N canvas 752 10 450 300 10; ! #N canvas 470 500 664 321 mass 0; #X obj 62 182 drawnumber mid 0 -18 0 m; #X obj 61 136 filledpolygon mob mob 1 -5 0 -4 4 0 5 4 4 5 0 4 -4 0 *************** *** 13,14 **** --- 13,20 ---- Lmax float sid; #X restore 132 147 pd liaison; + #N canvas 749 676 450 300 hole 0; + #X obj 79 73 struct hole float x float y; + #X text 93 162 Green cross; + #X obj 79 97 drawpolygon 50 2 -5 -5 5 5; + #X obj 79 122 drawpolygon 50 2 -5 5 5 -5; + #X restore 132 170 pd hole; Index: gem_links.pd =================================================================== RCS file: /cvsroot/pure-data/externals/nusmuk/editor/gem_links.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** gem_links.pd 17 May 2005 17:16:17 -0000 1.1 --- gem_links.pd 20 Jun 2005 19:03:15 -0000 1.2 *************** *** 5,9 **** #X obj 109 337 any; #X obj 147 166 t b f; - #X obj 156 432 curve 2; #X obj 178 210 pack 0 0 0; #X obj 269 213 pack 0 0 0; --- 5,8 ---- *************** *** 38,64 **** #X obj 192 37 r MSD-TYPE; #X obj 280 97 unpack 0 0 0 0 0 0 0; ! #X connect 0 0 13 0; #X connect 1 0 3 1; ! #X connect 2 0 5 0; ! #X connect 3 0 10 0; #X connect 4 0 3 0; ! #X connect 4 1 6 0; ! #X connect 6 0 5 1; ! #X connect 7 0 5 2; ! #X connect 8 1 4 0; ! #X connect 8 2 6 1; ! #X connect 8 3 7 0; ! #X connect 8 4 7 1; ! #X connect 9 0 10 1; ! #X connect 10 0 2 0; ! #X connect 11 0 10 1; ! #X connect 12 0 11 0; ! #X connect 13 0 8 0; ! #X connect 13 1 15 0; ! #X connect 14 0 13 1; ! #X connect 15 1 4 0; ! #X connect 15 2 6 1; ! #X connect 15 3 6 2; ! #X connect 15 4 7 0; ! #X connect 15 5 7 1; ! #X connect 15 6 7 2; --- 37,64 ---- #X obj 192 37 r MSD-TYPE; #X obj 280 97 unpack 0 0 0 0 0 0 0; ! #X obj 156 432 curve2; ! #X connect 0 0 12 0; #X connect 1 0 3 1; ! #X connect 2 0 15 0; ! #X connect 3 0 9 0; #X connect 4 0 3 0; ! #X connect 4 1 5 0; ! #X connect 5 0 15 1; ! #X connect 6 0 15 2; ! #X connect 7 1 4 0; ! #X connect 7 2 5 1; ! #X connect 7 3 6 0; ! #X connect 7 4 6 1; ! #X connect 8 0 9 1; ! #X connect 9 0 2 0; ! #X connect 10 0 9 1; ! #X connect 11 0 10 0; ! #X connect 12 0 7 0; ! #X connect 12 1 14 0; ! #X connect 13 0 12 1; ! #X connect 14 1 4 0; ! #X connect 14 2 5 1; ! #X connect 14 3 5 2; ! #X connect 14 4 6 0; ! #X connect 14 5 6 1; ! #X connect 14 6 6 2; Index: msd-editor.pd =================================================================== RCS file: /cvsroot/pure-data/externals/nusmuk/editor/msd-editor.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** msd-editor.pd 17 May 2005 17:16:17 -0000 1.1 --- msd-editor.pd 20 Jun 2005 19:03:15 -0000 1.2 *************** *** 1,435 **** ! #N canvas 416 29 415 616 10; ! #X obj 9 50 cnv 15 400 200 empty empty EDIT 20 12 1 14 -233017 -66577 0; ! #X obj 9 256 cnv 15 400 60 empty empty CREATE 20 12 1 14 -195568 -66577 0; ! #X obj 10 321 cnv 15 400 140 empty empty CONTROL 20 12 1 14 -233017 -66577 0; ! #N canvas 740 0 1022 952 data 0; ! #X restore 323 192 pd data; ! #X obj 221 276 bng 24 250 50 0 \$0-generate \$0-generate generate 0 [...2066 lines suppressed...] ! #X connect 3 0 5 0; ! #X connect 4 0 3 1; ! #X coords 0 0 1 1 102 44 1; ! #X restore 304 489 pd obj; ! #X text 229 537 Save MSD; ! #X text 314 538 Load *.obj; ! #X text 112 537 Save or Load DS; ! #X connect 4 0 5 0; ! #X connect 4 1 6 0; ! #X connect 5 0 4 0; ! #X connect 6 0 4 1; ! #X connect 7 0 4 2; ! #X connect 11 0 10 0; ! #X connect 14 0 41 0; ! #X connect 25 0 9 1; ! #X connect 26 0 9 2; ! #X connect 27 0 9 0; ! #X connect 33 0 9 3; ! #X connect 40 0 14 2; ! #X connect 43 0 42 0;

1 0

extensions/gui/ix mat.wid,1.9,1.10
by carmen rocco 20 Jun '05

20 Jun '05

Update of /cvsroot/pure-data/extensions/gui/ix In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31177 Modified Files: mat.wid Log Message: ... Index: mat.wid =================================================================== RCS file: /cvsroot/pure-data/extensions/gui/ix/mat.wid,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** mat.wid 19 Jun 2005 08:34:31 -0000 1.9 --- mat.wid 20 Jun 2005 17:04:34 -0000 1.10 *************** *** 2,5 **** --- 2,6 ---- namespace eval ::ix { proc rc {} {return [format "\#%06x" [expr "int(floor(rand() * 16))"]]} + proc mat_note {p t item} { variable _ *************** *** 8,12 **** set vel [$p.m itemcget $item -fillopacity] pd [concat $t.rp _cb note [dict get $_($t) $id y] $vel $len \;]} ! proc mat_action {p t a x y} {puts gah} proc mat_draw {p t a x y} { variable _ --- 9,36 ---- set vel [$p.m itemcget $item -fillopacity] pd [concat $t.rp _cb note [dict get $_($t) $id y] $vel $len \;]} ! ! proc mat_action {p t a x y} { ! } ! ! proc mat_scroll {p t a x y} { ! } ! ! proc mat_sel {a p t x y} { ! variable _ ! switch $a { ! start { ! foreach xy {x y} {set _($t:c$xy) [set $xy];set _($t:f$xy) [set $xy]} ! $p.m create path [::tkpath::coords rect $_($t:cx) $_($t:cy) 0 0 -rx 16 -ry 16] -tags sel -fill cyan -fillopacity 0.2 ! } ! motion { ! if {$x >= $_($t:cx)} {set xa $_($t:fx);set xb $x} else {set xa $x;set xb $_($t:fx)} ! if {$y >= $_($t:cy)} {set ya $_($t:fy);set yb $y} else {set ya $y;set yb $_($t:fy)} ! set w [expr abs($xb - $xa)] ! set h [expr abs($yb - $ya)] ! $p.m coords sel [::tkpath::coords rect $xa $ya $w $h -rx 16 -ry 16] ! } ! } ! } ! proc mat_draw {p t a x y} { variable _ *************** *** 14,18 **** motion { if {$x >= $_($t:cx)} {set xa $_($t:fx);set xb $x} else {set xa $x;set xb $_($t:fx)} ! $p.m coords drawing [::tkpath::coords rect $xa $y [expr $xb - $xa] [mat_tr $p $t y id 1] -rx 3 -ry 3] set yi [mat_tr $p $t y i $y] dict set _($t) $_($t:i) x [mat_tr $p $t x i $xa] --- 38,44 ---- motion { if {$x >= $_($t:cx)} {set xa $_($t:fx);set xb $x} else {set xa $x;set xb $_($t:fx)} ! set w [expr abs($xb - $xa)] ! set h [mat_tr $p $t y id 1] ! $p.m coords drawing [::tkpath::coords rect $xa $y $w $h -rx 3 -ry 3] set yi [mat_tr $p $t y i $y] dict set _($t) $_($t:i) x [mat_tr $p $t x i $xa] *************** *** 26,30 **** release { $p.m itemconfigure drawing -tags [list item $_($t:i)] -matrix {{1.0 0.0} {0.0 1.0} {0.0 0.0}} ! incr _($t:i) 2}}} proc mat_resize_canvas {p t a x y} { --- 52,56 ---- release { $p.m itemconfigure drawing -tags [list item $_($t:i)] -matrix {{1.0 0.0} {0.0 1.0} {0.0 0.0}} ! incr _($t:i)}}} proc mat_resize_canvas {p t a x y} { *************** *** 47,50 **** --- 73,77 ---- mat_gridlines $p $t } + proc mat_object_trans {p t a x y} { variable _ *************** *** 57,60 **** --- 84,88 ---- } } + proc mat_move_canvas {p t a x y} { variable _ *************** *** 83,102 **** } proc mat_click {m button action p t x y} { variable _ set clicked [$p.m find overlapping $x $y $x $y] set a [$p.m itemcget mode -text] switch $action { - hover { - foreach item $clicked { - if {[lindex [$p.m itemcget $item -tags] 0] eq "item"} { - mat_note $p $t $item - } - } - - set junk "" - foreach cfg [$p.m itemconfigure $clicked] {set junk "$junk\n$cfg"} - mat_info $p $t $junk - } first { set _($t:cl) $clicked --- 111,144 ---- } + proc mat_hover {p t x y} { + variable _ + if {[$p.m find withtag sel] ne ""} { + set clicked [$p.m find overlapping $x $y $_($t:fx) $_($t:fy)] + puts sel + mat_sel motion $p $t $x $y + } else { + set clicked [$p.m find overlapping $x $y $x $y] + } + set n 0 + $p.m delete hover + foreach item $clicked { + if {[lindex [$p.m itemcget $item -tags] 0] eq "item"} { + set id [lindex [$p.m itemcget $item -tags] 1] + mat_note $p $t $item + $p.m create text "[expr [winfo width $p.m] - 8.0 ] [expr [winfo height $p.m] - 8.0 - 16 * $n.0]" -fill "#ff0022" -justify right -anchor se -font {{bitstream vera sans} 12} -tags hover -text [dict get $_($t) $id] + incr n + } + } + # set junk $clicked + # foreach cfg [$p.m itemconfigure $clicked] {set junk "$junk\n$cfg"} + # mat_info $p $t $junk + } + proc mat_click {m button action p t x y} { variable _ + # puts "$m $button $action" set clicked [$p.m find overlapping $x $y $x $y] set a [$p.m itemcget mode -text] switch $action { first { set _($t:cl) $clicked *************** *** 104,109 **** switch $button { 1 { ! # mat_mode $p $t move_canvas ! if {$a eq "draw"} {mat_draw $p $t $action $x $y} else { if {$clicked ne "" && [lindex [$p.m itemcget [lindex $clicked 0] -tags] 0] eq "item"} { mat_mode $p $t move_object --- 146,152 ---- switch $button { 1 { ! if {$a eq "draw"} {mat_draw $p $t $action $x $y} elseif {$m eq "double"} { ! mat_sel start $p $t $x $y ! } else { if {$clicked ne "" && [lindex [$p.m itemcget [lindex $clicked 0] -tags] 0] eq "item"} { mat_mode $p $t move_object *************** *** 115,118 **** --- 158,163 ---- 2 {mat_mode $p $t resize_canvas} 3 {mat_mode $p $t object_trans} + 4 {mat_mode $p $t scroll} + 5 {mat_mode $p $t scroll} } } *************** *** 178,184 **** bind $path.m <Key> "::ix::mat_key $path $target %k 1" bind $path.m <KeyRelease> "::ix::mat_key $path $target %k 0" ! bind $path.m <Motion> "::ix::mat_click {} 0 hover $path $target %x %y" ! foreach m {"Control-" "" "Shift-"} { ! foreach bn {1 2 3} { set b [list [concat $bn first] [concat B${bn}-Motion motion] [concat ButtonRelease-$bn release]] foreach ba {0 1 2} { --- 223,229 ---- bind $path.m <Key> "::ix::mat_key $path $target %k 1" bind $path.m <KeyRelease> "::ix::mat_key $path $target %k 0" ! bind $path.m <Motion> "::ix::mat_hover $path $target %x %y" ! foreach m {"Control-" "" "Shift-" "Double-"} { ! foreach bn {1 2 3 4 5} { set b [list [concat $bn first] [concat B${bn}-Motion motion] [concat ButtonRelease-$bn release]] foreach ba {0 1 2} { *************** *** 187,190 **** --- 232,236 ---- $path configure -bg gray -width [expr [winfo width $path.m] + $bd] -height [expr [winfo height $path.m] + $bd] $path.m create text {20 20} -fill blue -justify left -anchor w -font {{bitstream vera sans} 18} -tags mode -text action + $path.m create text "10 $h" -fill red -justify left -anchor sw -font {{bitstream vera sans} 12 bold} -fill red -tags snap -text "snap (off)" $path.m create text {20 32} -fill gray49 -justify left -anchor nw -font {{bitstream vera sans} 12} -tags info mat_gridlines $path $target}}

1 0

externals/ann SConscript,NONE,1.1
by carmen rocco 20 Jun '05

20 Jun '05

Update of /cvsroot/pure-data/externals/ann In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31882/ann Added Files: SConscript Log Message: moving docs out of 5.reference, adding ann --- NEW FILE: SConscript --- import glob import os import re Import('env prefix') ann = env.SharedLibrary(target='ann', source = glob.glob('src/*.c')) env.Alias('install', env.Install(os.path.join(prefix, 'extra'), ann)) Default(ann) for subann in glob.glob('src/ann_*.c'): ann = env.SharedLibrary(re.sub("\.c$","",os.path.basename(subann)), source = subann) env.Alias('install', env.Install(os.path.join(prefix, 'extra'), ann)) Default(ann) env.Alias('install', env.Install(os.path.join(prefix, 'doc/ann'), glob.glob('helps/*.pd'))) for example in glob.glob('examples/ann*'): env.Alias('install', env.Install(os.path.join(prefix, 'doc/ann/' + example), glob.glob(example+'/*.*')))

1 0

externals/zexy SConscript,1.3,1.4
by carmen rocco 20 Jun '05

20 Jun '05

Update of /cvsroot/pure-data/externals/zexy In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31882/zexy Modified Files: SConscript Log Message: moving docs out of 5.reference, adding ann Index: SConscript =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/SConscript,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** SConscript 12 Apr 2005 09:11:02 -0000 1.3 --- SConscript 20 Jun 2005 06:04:52 -0000 1.4 *************** *** 1,5 **** import glob import os - import re Import('env prefix') --- 1,4 ---- *************** *** 10,14 **** zexy = env.SharedLibrary(target = 'zexy', source = zexy_src) ! env.Alias('install', env.Install(os.path.join(prefix, 'extra'), zexy)) ! env.Alias('install', env.Install(os.path.join(prefix, 'doc/5.reference/zexy'), glob.glob('examples/*.pd'))) Default(zexy) --- 9,13 ---- zexy = env.SharedLibrary(target = 'zexy', source = zexy_src) ! env.Alias('install', env.Install(os.path.join(prefix, 'extra'), [zexy, glob.glob('abs/*.pd')])) ! env.Alias('install', env.Install(os.path.join(prefix, 'doc/zexy'), ['zexy.pd', glob.glob('examples/*.pd')])) Default(zexy)

1 0

externals/unauthorized SConscript,1.2,1.3
by carmen rocco 20 Jun '05

20 Jun '05

Update of /cvsroot/pure-data/externals/unauthorized In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31882/unauthorized Modified Files: SConscript Log Message: moving docs out of 5.reference, adding ann Index: SConscript =================================================================== RCS file: /cvsroot/pure-data/externals/unauthorized/SConscript,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** SConscript 12 Apr 2005 15:31:12 -0000 1.2 --- SConscript 20 Jun 2005 06:04:50 -0000 1.3 *************** *** 3,7 **** import re Import('env prefix') - #env.Append(CPPPATH = '/usr/include/speex') for tk in glob.glob('*/*.tk'): --- 3,6 ---- *************** *** 16,20 **** Default(unauthorized) ! env.Alias('install', env.Install(os.path.join(prefix, 'doc/5.reference'), glob.glob('*/*.pd'))) ! ! --- 15,17 ---- Default(unauthorized) ! env.Alias('install', env.Install(os.path.join(prefix, 'doc/unauthorized'), glob.glob('*/*.pd')))

1 0

externals/miXed SConscript,1.6,1.7
by carmen rocco 20 Jun '05

20 Jun '05

Update of /cvsroot/pure-data/externals/miXed In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31882/miXed Modified Files: SConscript Log Message: moving docs out of 5.reference, adding ann Index: SConscript =================================================================== RCS file: /cvsroot/pure-data/externals/miXed/SConscript,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** SConscript 11 May 2005 20:34:54 -0000 1.6 --- SConscript 20 Jun 2005 06:04:50 -0000 1.7 *************** *** 40,44 **** env.Alias('install', env.Install(os.path.join(prefix, 'extra'), external)) Default(external) ! toxy_src = glob.glob('shared/toxy/*.c') for toxy_extra in Split('tot plustot tow widget'): --- 40,44 ---- env.Alias('install', env.Install(os.path.join(prefix, 'extra'), external)) Default(external) ! toxy_src = glob.glob('shared/toxy/*.c') for toxy_extra in Split('tot plustot tow widget'): *************** *** 50,52 **** env.Alias('install', env.Install(os.path.join(prefix, 'extra'), glob.glob('test/toxy/*.wid'))) ! env.Alias('install', env.Install(os.path.join(prefix, 'doc/5.reference/'), glob.glob('doc/help/*/*.pd'))) --- 50,52 ---- env.Alias('install', env.Install(os.path.join(prefix, 'extra'), glob.glob('test/toxy/*.wid'))) ! env.Alias('install', env.Install(os.path.join(prefix, 'doc/miXed/'), glob.glob('doc/help/*/*.pd')))

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
22
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs June 2005