Pd-cvs June 2006

pd-cvs@lists.iem.at

13 participants
225 discussions

externals/mapping/help curve-help.pd,1.4,1.5
by Hans-Christoph Steiner 15 Jun '06

15 Jun '06

Update of /cvsroot/pure-data/externals/mapping/help In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9871/help Modified Files: curve-help.pd Log Message: fixed up to use only floats; help displays 0-1 now instead of -1-1 Index: curve-help.pd =================================================================== RCS file: /cvsroot/pure-data/externals/mapping/help/curve-help.pd,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** curve-help.pd 14 Apr 2006 17:32:33 -0000 1.4 --- curve-help.pd 15 Jun 2006 02:20:38 -0000 1.5 *************** *** 1,3 **** ! #N canvas 177 113 494 443 10; #X obj 5 2 cnv 15 450 20 empty empty [curve] 2 11 1 18 -233017 -66577 0; --- 1,3 ---- ! #N canvas 177 113 498 447 10; #X obj 5 2 cnv 15 450 20 empty empty [curve] 2 11 1 18 -233017 -66577 0; *************** *** 15,21 **** #N canvas 0 22 450 300 graph1 0; #X array \$0-curve 200 float 0; ! #X coords 0 1 199 -1 200 200 1; #X restore 254 92 graph; ! #N canvas 721 196 407 397 draw_array 0; #X msg 54 82 bang; #X obj 54 103 until; --- 15,21 ---- #N canvas 0 22 450 300 graph1 0; #X array \$0-curve 200 float 0; ! #X coords 0 1 199 0 200 200 1; #X restore 254 92 graph; ! #N canvas 786 75 423 413 draw_array 0; #X msg 54 82 bang; #X obj 54 103 until; *************** *** 24,28 **** #X obj 83 125 + 1; #X obj 54 43 loadbang; - #X text 96 257 mapping output range: -1 to 1; #X obj 54 180 trigger float float; #X obj 127 127 select 0; --- 24,27 ---- *************** *** 31,56 **** #X obj 153 32 send \$0-to-numbox; #X obj 139 53 trigger bang float; - #X obj 53 283 curve; #X obj 83 147 mod 200; ! #X obj 53 229 - 100; ! #X obj 54 257 / 100; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 3 0 4 0; ! #X connect 3 0 7 0; ! #X connect 4 0 14 0; #X connect 5 0 0 0; ! #X connect 7 0 15 0; ! #X connect 7 1 9 1; ! #X connect 8 0 1 1; ! #X connect 10 0 11 0; ! #X connect 10 0 12 0; ! #X connect 12 0 0 0; ! #X connect 12 1 13 1; ! #X connect 13 0 9 0; ! #X connect 14 0 3 1; ! #X connect 14 0 8 0; ! #X connect 15 0 16 0; ! #X connect 16 0 13 0; #X restore 127 207 pd draw_array; #X text 17 39 This object maps the input range to a exponential curve --- 30,54 ---- #X obj 153 32 send \$0-to-numbox; #X obj 139 53 trigger bang float; #X obj 83 147 mod 200; ! #X obj 54 257 / 200; ! #X text 96 257 mapping output range: 0 to 1; ! #X obj 53 283 mapping/curve; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 3 0 4 0; ! #X connect 3 0 6 0; ! #X connect 4 0 12 0; #X connect 5 0 0 0; ! #X connect 6 0 13 0; ! #X connect 6 1 8 1; ! #X connect 7 0 1 1; ! #X connect 9 0 10 0; ! #X connect 9 0 11 0; ! #X connect 11 0 0 0; ! #X connect 11 1 15 1; ! #X connect 12 0 3 1; ! #X connect 12 0 7 0; ! #X connect 13 0 15 0; ! #X connect 15 0 8 0; #X restore 127 207 pd draw_array; #X text 17 39 This object maps the input range to a exponential curve *************** *** 61,65 **** #X obj 342 338 curve_log; #X obj 117 166 hsl 128 15 -1 1 0 0 empty empty empty -2 -6 0 8 -262144 ! -1 -1 0 0; #X floatatom 192 184 7 0 0 0 - #0-to-numbox -; #X obj 259 319 sinusoid; --- 59,63 ---- #X obj 342 338 curve_log; #X obj 117 166 hsl 128 15 -1 1 0 0 empty empty empty -2 -6 0 8 -262144 ! -1 -1 12700 0; #X floatatom 192 184 7 0 0 0 - #0-to-numbox -; #X obj 259 319 sinusoid;

1 0

externals/mapping curve.pd,1.4,1.5
by Hans-Christoph Steiner 15 Jun '06

15 Jun '06

Update of /cvsroot/pure-data/externals/mapping In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9871 Modified Files: curve.pd Log Message: fixed up to use only floats; help displays 0-1 now instead of -1-1 Index: curve.pd =================================================================== RCS file: /cvsroot/pure-data/externals/mapping/curve.pd,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** curve.pd 17 Mar 2006 05:40:23 -0000 1.4 --- curve.pd 15 Jun 2006 02:20:38 -0000 1.5 *************** *** 1,3 **** ! #N canvas 458 228 512 490 10; #X obj 106 325 pow 1; #X obj 62 10 inlet; --- 1,3 ---- ! #N canvas 458 228 472 434 10; #X obj 106 325 pow 1; #X obj 62 10 inlet; *************** *** 13,23 **** #X obj 62 352 * -1; #X obj 299 10 loadbang; - #X obj 257 50 any_argument \$1; - #X obj 257 70 route float; #X obj 257 155 t f b; ! #X obj 257 117 * 10; #X connect 0 0 3 0; #X connect 1 0 8 0; ! #X connect 2 0 13 0; #X connect 4 0 0 1; #X connect 4 0 10 1; --- 13,22 ---- #X obj 62 352 * -1; #X obj 299 10 loadbang; #X obj 257 155 t f b; ! #X obj 257 50 purepd/float_argument \$1; ! #X obj 257 119 * 10; #X connect 0 0 3 0; #X connect 1 0 8 0; ! #X connect 2 0 14 0; #X connect 4 0 0 1; #X connect 4 0 10 1; *************** *** 30,37 **** #X connect 10 0 11 0; #X connect 11 0 3 0; ! #X connect 12 0 13 0; ! #X connect 13 0 14 0; ! #X connect 14 0 16 0; ! #X connect 15 0 7 0; ! #X connect 15 1 5 0; ! #X connect 16 0 15 0; --- 29,35 ---- #X connect 10 0 11 0; #X connect 11 0 3 0; ! #X connect 12 0 14 0; ! #X connect 13 0 7 0; ! #X connect 13 1 5 0; ! #X connect 14 0 15 0; ! #X connect 15 0 13 0;

1 0

externals/mapping degrees2mapping.pd, 1.1, NONE mapping2degrees.pd, 1.2, NONE mapping2radians.pd, 1.2, NONE radians2mapping.pd, 1.1, NONE
by Hans-Christoph Steiner 15 Jun '06

15 Jun '06

Update of /cvsroot/pure-data/externals/mapping In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8206 Removed Files: degrees2mapping.pd mapping2degrees.pd mapping2radians.pd radians2mapping.pd Log Message: renamed '2' objects to '->' objects using hex altnames --- degrees2mapping.pd DELETED --- --- radians2mapping.pd DELETED --- --- mapping2radians.pd DELETED --- --- mapping2degrees.pd DELETED ---

1 0

externals/mapping/help degrees2mapping-help.pd, 1.2, NONE mapping2degrees-help.pd, 1.2, NONE mapping2radians-help.pd, 1.2, NONE radians2mapping-help.pd, 1.2, NONE
by Hans-Christoph Steiner 15 Jun '06

15 Jun '06

Update of /cvsroot/pure-data/externals/mapping/help In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8206/help Removed Files: degrees2mapping-help.pd mapping2degrees-help.pd mapping2radians-help.pd radians2mapping-help.pd Log Message: renamed '2' objects to '->' objects using hex altnames --- degrees2mapping-help.pd DELETED --- --- mapping2radians-help.pd DELETED --- --- mapping2degrees-help.pd DELETED --- --- radians2mapping-help.pd DELETED ---

1 0

externals/mapping TODO, 1.2, 1.3 segment.pd, 1.2, 1.3 desegment.pd, 1.1, 1.2 stepper.pd, 1.1, 1.2
by Hans-Christoph Steiner 15 Jun '06

15 Jun '06

Update of /cvsroot/pure-data/externals/mapping In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5114 Modified Files: TODO segment.pd desegment.pd stepper.pd Log Message: implemented using 2 element lists, first the segment number, next the value; this seems to work better and makes the patches simple Index: stepper.pd =================================================================== RCS file: /cvsroot/pure-data/externals/mapping/stepper.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** stepper.pd 17 Mar 2006 05:36:36 -0000 1.1 --- stepper.pd 15 Jun 2006 02:09:21 -0000 1.2 *************** *** 1,28 **** ! #N canvas 209 56 1032 542 10; ! #X obj 99 38 inlet; ! #X obj 82 496 outlet; ! #X obj 96 390 desegment 12 -----------------------------------; ! #X obj 95 140 segment 12 ------------------------------------; ! #X obj 7 273 curve_power; ! #X obj 90 273 curve_power; ! #X obj 173 273 curve_power; ! #X obj 256 273 curve_power; ! #X obj 339 273 curve_power; ! #X obj 422 273 curve_power; ! #X obj 505 273 curve_power; ! #X obj 588 273 curve_power; ! #X obj 671 273 curve_power; ! #X obj 754 273 curve_power; ! #X obj 837 273 curve_power; ! #X obj 920 273 curve_power; ! #X obj 425 52 inlet; ! #X obj 747 60 inlet; ! #X connect 2 0 1 0; ! #X connect 4 0 2 0; ! #X connect 5 0 2 1; ! #X connect 6 0 2 2; ! #X connect 7 0 2 3; ! #X connect 8 0 2 4; ! #X connect 9 0 2 5; ! #X connect 10 0 2 6; ! #X connect 11 0 2 7; --- 1,24 ---- ! #N canvas 105 192 542 295 10; ! #X obj 48 33 inlet; ! #X obj 49 245 outlet; ! #X obj 154 32 inlet; ! #X obj 48 105 segment; ! #X obj 155 72 purepd/float_argument \$1; ! #X obj 357 29 inlet; ! #X obj 358 69 purepd/float_argument \$2; ! #X obj 169 155 mapping/curve; ! #X obj 48 134 unpack float float; ! #X obj 48 180 pack float float; ! #X obj 48 206 desegment; ! #X connect 0 0 3 0; ! #X connect 2 0 4 0; ! #X connect 3 0 8 0; ! #X connect 4 0 3 1; ! #X connect 4 0 10 1; ! #X connect 5 0 6 0; ! #X connect 6 0 7 1; ! #X connect 7 0 9 1; ! #X connect 8 0 9 0; ! #X connect 8 1 7 0; ! #X connect 9 0 10 0; ! #X connect 10 0 1 0; Index: desegment.pd =================================================================== RCS file: /cvsroot/pure-data/externals/mapping/desegment.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** desegment.pd 17 Mar 2006 05:36:36 -0000 1.1 --- desegment.pd 15 Jun 2006 02:09:21 -0000 1.2 *************** *** 1,14 **** ! #N canvas 410 221 692 329 10; ! #X obj 83 58 inlet; ! #X obj 75 266 outlet; ! #X obj 123 58 inlet; ! #X obj 163 58 inlet; ! #X obj 203 58 inlet; ! #X obj 243 58 inlet; ! #X obj 283 58 inlet; ! #X obj 323 58 inlet; ! #X obj 363 58 inlet; ! #X obj 403 58 inlet; ! #X obj 443 58 inlet; ! #X obj 483 58 inlet; ! #X obj 523 58 inlet; --- 1,17 ---- ! #N canvas 98 301 426 336 10; ! #X obj 21 15 inlet; ! #X obj 127 279 outlet; ! #X obj 198 81 purepd/float_argument \$1 1; ! #X obj 198 15 inlet; ! #X obj 231 44 loadbang; ! #X obj 21 113 unpack float float; ! #X obj 126 184 +; ! #X obj 127 224 /; ! #X connect 0 0 5 0; ! #X connect 2 0 7 1; ! #X connect 3 0 2 0; ! #X connect 4 0 2 0; ! #X connect 5 0 6 0; ! #X connect 5 1 6 1; ! #X connect 6 0 7 0; ! #X connect 7 0 1 0; Index: TODO =================================================================== RCS file: /cvsroot/pure-data/externals/mapping/TODO,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** TODO 4 Jun 2006 15:27:08 -0000 1.2 --- TODO 15 Jun 2006 02:09:21 -0000 1.3 *************** *** 4,16 **** - - implement [spiral clockwise], (cart2pol is counter-clockwise) - - - - implement [desegment] - - - - debug [segment] - - - merge ds_ list objects with abstractions/footils/list-abs --- 4,7 ---- Index: segment.pd =================================================================== RCS file: /cvsroot/pure-data/externals/mapping/segment.pd,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** segment.pd 17 Mar 2006 05:53:30 -0000 1.2 --- segment.pd 15 Jun 2006 02:09:21 -0000 1.3 *************** *** 1,133 **** ! #N canvas 328 208 865 565 10; ! #X obj 8 28 inlet; ! #X obj 6 4 namecanvas \$0-segment; ! #X obj 360 290 pack float float; ! #X obj 467 270 *; ! #X msg 459 223 1; ! #X obj 360 311 trigger list list; ! #X obj 274 185 +; ! #X msg 274 165 1; ! #X msg 305 165 0; ! #X obj 274 145 until; ! #X obj 167 4 inlet; ! #X obj 360 262 * 125; ! #X obj 360 240 - 1; ! #N canvas 407 40 498 348 clear 0; ! #X obj 21 28 inlet; ! #X text 72 28 do it bang; ! #X obj 21 71 trigger bang bang bang bang; ! #X obj 26 260 outlet; ! #X text 80 259 to namecanvas [send]; ! #X msg 306 203 vis 1 \, editmode 1; ! #X msg 153 167 cut; ! #X msg 216 157 mouse 5 480 0 0 \, mouseup 2000 435 0; ! #X msg 30 165 editmode 0; ! #X connect 0 0 2 0; ! #X connect 2 0 8 0; ! #X connect 2 1 6 0; ! #X connect 2 2 7 0; ! #X connect 2 3 5 0; ! #X connect 5 0 3 0; ! #X connect 6 0 3 0; ! #X connect 7 0 3 0; ! #X connect 8 0 3 0; ! #X restore 287 65 pd clear dynamic objects; ! #X obj 320 401 send \$0-segment; ! #X obj 287 84 send \$0-segment; ! #X obj 167 46 trigger float bang; ! #X obj 167 25 route float; ! #X text -3 416 ----------------------------------------------------------- ! ; ! #X text -3 481 ----------------------------------------------------------- ! keep the above area clear for automatic editing; ! #X text 411 416 ----------------------------------------------------------- ! ; ! #X text 412 481 ----------------------------------------------------------- ! ; ! #X obj 304 185 float; ! #X msg 333 334 obj \$1 460 outlet; ! #X msg 473 333 obj \$1 440 disjoin \$2; ! #N canvas 0 22 567 496 connect 0; ! #X obj 290 16 inlet; ! #X obj 234 398 outlet; ! #X obj 339 238 pack float float; ! #X msg 338 262 connect \$1 0 \$2 0; ! #X obj 446 218 + 1; ! #X obj 289 181 trigger float float; ! #X obj 289 134 * 2; ! #X obj 199 239 pack float float; ! #X msg 199 263 connect \$2 1 \$1 0; ! #X obj 306 218 - 2; ! #X text 117 119 object count; ! #X obj 289 161 +; ! #X obj 141 218 select 0; ! #X msg 60 263 connect 0 0 \$1 0; ! #X msg 60 243 32; ! #X msg 61 199 set \$1; ! #X obj 193 158 + 2; ! #X obj 208 95 loadbang; ! #X msg 208 118 30; ! #X connect 0 0 6 0; ! #X connect 2 0 3 0; ! #X connect 3 0 1 0; ! #X connect 4 0 2 1; ! #X connect 5 0 2 0; ! #X connect 5 0 12 0; ! #X connect 5 1 4 0; ! #X connect 5 1 9 0; ! #X connect 6 0 11 0; #X connect 7 0 8 0; ! #X connect 8 0 1 0; ! #X connect 9 0 7 1; ! #X connect 11 0 5 0; ! #X connect 12 0 14 0; ! #X connect 12 1 7 0; ! #X connect 13 0 1 0; ! #X connect 14 0 13 0; ! #X connect 15 0 14 0; ! #X connect 16 0 12 1; ! #X connect 16 0 15 0; ! #X connect 17 0 18 0; ! #X connect 18 0 11 1; ! #X connect 18 0 16 0; ! #X restore 185 290 pd connect messages; ! #X obj 484 250 /; ! #X obj 521 223 expr $f2 - $f1 + 1; ! #X obj 274 204 trigger float float float bang float; ! #X obj 84 82 float_argument \$1; ! #X msg 299 45 bang; ! #X obj 274 124 trigger float bang float; ! #X connect 2 0 5 0; ! #X connect 3 0 2 1; ! #X connect 4 0 26 0; ! #X connect 5 0 23 0; ! #X connect 5 1 24 0; ! #X connect 6 0 22 0; ! #X connect 6 0 28 0; ! #X connect 7 0 6 0; ! #X connect 8 0 22 0; ! #X connect 9 0 7 0; ! #X connect 10 0 17 0; ! #X connect 11 0 2 0; ! #X connect 12 0 11 0; ! #X connect 13 0 15 0; ! #X connect 16 0 31 0; ! #X connect 16 1 13 0; ! #X connect 17 0 16 0; ! #X connect 22 0 6 1; ! #X connect 23 0 14 0; ! #X connect 24 0 14 0; ! #X connect 25 0 14 0; ! #X connect 26 0 3 1; ! #X connect 27 0 26 1; ! #X connect 28 0 25 0; ! #X connect 28 1 12 0; ! #X connect 28 2 3 0; ! #X connect 28 3 4 0; ! #X connect 28 4 27 0; ! #X connect 29 0 31 0; ! #X connect 30 0 13 0; ! #X connect 30 0 8 0; ! #X connect 31 0 9 0; ! #X connect 31 1 8 0; ! #X connect 31 2 27 1; --- 1,25 ---- ! #N canvas 310 147 544 471 10; ! #X obj 21 15 inlet; ! #X obj 57 430 outlet; ! #X obj 172 80 purepd/float_argument \$1 1; ! #X obj 172 14 inlet; ! #X obj 205 43 loadbang; ! #X obj 58 162 *; ! #X obj 58 296 pack float float; ! #X obj 58 188 trigger bang float float; ! #X obj 58 277 float; ! #X obj 221 213 int; ! #X obj 165 276 -; ! #X connect 0 0 5 0; ! #X connect 2 0 5 1; ! #X connect 3 0 2 0; ! #X connect 4 0 2 0; ! #X connect 5 0 7 0; ! #X connect 6 0 1 0; #X connect 7 0 8 0; ! #X connect 7 1 10 0; ! #X connect 7 2 9 0; ! #X connect 8 0 6 0; ! #X connect 9 0 10 1; ! #X connect 9 0 8 1; ! #X connect 10 0 6 1;

1 0

externals/mapping/help stepper-help.pd, NONE, 1.1 desegment-help.pd, NONE, 1.1 segment-help.pd, 1.1, 1.2
by Hans-Christoph Steiner 15 Jun '06

15 Jun '06

Update of /cvsroot/pure-data/externals/mapping/help In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5114/help Modified Files: segment-help.pd Added Files: stepper-help.pd desegment-help.pd Log Message: implemented using 2 element lists, first the segment number, next the value; this seems to work better and makes the patches simple Index: segment-help.pd =================================================================== RCS file: /cvsroot/pure-data/externals/mapping/help/segment-help.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** segment-help.pd 29 Jan 2006 05:43:33 -0000 1.1 --- segment-help.pd 15 Jun 2006 02:09:22 -0000 1.2 *************** *** 1,21 **** ! #N canvas 15 380 668 314 10; ! #X obj 62 198 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 ! -1 -1 11010 1; ! #X obj 195 198 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 ! -1 -1 97 1; ! #X obj 328 198 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 ! -1 -1 21 1; ! #X obj 461 198 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 ! -1 -1 8322 1; #X obj 62 28 hsl 527 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 ! -1 -1 11400 1; #X msg 189 88 2; #X msg 250 87 6; #X msg 219 87 4; ! #X floatatom 60 222 5 0 0 0 - - -; ! #X floatatom 196 220 5 0 0 0 - - -; ! #X floatatom 328 222 5 0 0 0 - - -; ! #X floatatom 459 220 5 0 0 0 - - -; #X floatatom 46 51 5 0 0 0 - - -; #X obj 154 123 segment 4; #X connect 0 0 8 0; --- 1,22 ---- ! #N canvas 389 127 680 326 10; ! #X obj 66 238 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 ! -1 -1 6674 1; ! #X obj 199 238 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 ! -1 -1 4029 1; ! #X obj 332 238 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 ! -1 -1 3204 1; ! #X obj 465 238 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 ! -1 -1 2986 1; #X obj 62 28 hsl 527 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 ! -1 -1 7700 1; #X msg 189 88 2; #X msg 250 87 6; #X msg 219 87 4; ! #X floatatom 64 262 5 0 0 0 - - -; ! #X floatatom 200 260 5 0 0 0 - - -; ! #X floatatom 332 262 5 0 0 0 - - -; ! #X floatatom 463 260 5 0 0 0 - - -; #X floatatom 46 51 5 0 0 0 - - -; + #X obj 153 182 route 0 1 2 3; #X obj 154 123 segment 4; #X connect 0 0 8 0; *************** *** 24,33 **** #X connect 3 0 11 0; #X connect 4 0 12 0; ! #X connect 4 0 13 0; ! #X connect 5 0 13 1; ! #X connect 6 0 13 1; ! #X connect 7 0 13 1; #X connect 13 0 0 0; #X connect 13 1 1 0; #X connect 13 2 2 0; #X connect 13 3 3 0; --- 25,35 ---- #X connect 3 0 11 0; #X connect 4 0 12 0; ! #X connect 4 0 14 0; ! #X connect 5 0 14 1; ! #X connect 6 0 14 1; ! #X connect 7 0 14 1; #X connect 13 0 0 0; #X connect 13 1 1 0; #X connect 13 2 2 0; #X connect 13 3 3 0; + #X connect 14 0 13 0; --- NEW FILE: desegment-help.pd --- #N canvas 490 146 676 322 10; #X obj 66 28 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 12700 1; #X obj 199 28 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 12700 1; #X obj 332 28 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 12700 1; #X obj 465 28 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 10800 1; #X obj 62 248 hsl 527 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 40987 1; #X msg 331 138 2; #X msg 392 137 6; #X msg 361 137 4; #X floatatom 74 50 5 0 0 0 - - -; #X floatatom 210 50 5 0 0 0 - - -; #X floatatom 339 49 5 0 0 0 - - -; #X floatatom 472 50 5 0 0 0 - - -; #X floatatom 46 271 5 0 0 0 - - -; #X obj 242 166 desegment 4; #X msg 56 76 0 \$1; #X msg 190 71 1 \$1; #X msg 331 70 2 \$1; #X msg 462 69 3 \$1; #X connect 0 0 8 0; #X connect 0 0 14 0; #X connect 1 0 9 0; #X connect 1 0 15 0; #X connect 2 0 10 0; #X connect 2 0 16 0; #X connect 3 0 11 0; #X connect 3 0 17 0; #X connect 4 0 12 0; #X connect 5 0 13 1; #X connect 6 0 13 1; #X connect 7 0 13 1; #X connect 13 0 4 0; #X connect 14 0 13 0; #X connect 15 0 13 0; #X connect 16 0 13 0; #X connect 17 0 13 0; --- NEW FILE: stepper-help.pd --- #N canvas 263 162 512 393 10; #X obj 5 2 cnv 15 450 20 empty empty [stepper] 2 11 1 18 -233017 -66577 0; #X msg 422 3 pddp; #X text 27 320 (C) Copyright 2004 Hans-Christoph Steiner <hans(a)at.or.at> ; #X text 244 334 released under the GNU GPL; #X floatatom 25 133 8 0 0 0 - - -; #X floatatom 25 264 8 0 0 0 - - -; #X obj 28 281 hsl 200 15 0 1 0 0 empty empty empty 22 8 1 12 -262144 -1 -1 0 1; #X obj 28 113 hsl 200 15 0 1 0 0 empty empty empty 22 8 1 12 -225271 -1 -1 0 1; #N canvas 0 22 450 300 graph1 0; #X array \$0_ 200 float 0; #X coords 0 1 199 0 200 200 1; #X restore 261 111 graph; #N canvas 266 69 439 429 draw_array 0; #X msg 54 82 bang; #X obj 54 103 until; #X text 85 82 start; #X obj 54 125 f; #X obj 83 125 + 1; #X obj 54 43 loadbang; #X obj 298 9 receive \$0-type; #X obj 54 180 trigger float float; #X obj 127 127 select 0; #X obj 53 343 tabwrite \$0_; #X text 96 257 mapping output range: 0 to 1; #X obj 16 5 inlet; #X obj 299 32 float; #X obj 54 257 / 200; #X obj 83 147 mod 200; #X obj 53 313 stepper; #X obj 149 34 receive \$0-segments; #X obj 299 53 trigger bang float; #X obj 149 53 trigger bang float; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 3 0 4 0; #X connect 3 0 7 0; #X connect 4 0 14 0; #X connect 5 0 0 0; #X connect 6 0 12 0; #X connect 7 0 13 0; #X connect 7 1 9 1; #X connect 8 0 1 1; #X connect 11 0 0 0; #X connect 12 0 17 0; #X connect 13 0 15 0; #X connect 14 0 3 1; #X connect 14 0 8 0; #X connect 15 0 9 0; #X connect 16 0 18 0; #X connect 17 0 0 0; #X connect 17 1 15 2; #X connect 18 0 0 0; #X connect 18 1 15 1; #X restore 321 79 pd draw_array; #X msg 321 59 bang; #X obj 72 199 hsl 128 15 -1 1 0 0 \$0-type empty curve_factor 5 8 1 11 -257472 -1 -1 8000 1; #X floatatom 81 219 5 0 0 0 - - -; #X obj 25 243 stepper; #X obj 50 159 hsl 128 15 1 64 0 1 \$0-segments empty segments 5 8 1 11 -262131 -1 -1 2217 1; #X floatatom 56 180 5 0 0 0 - - -; #X connect 4 0 13 0; #X connect 5 0 6 0; #X connect 7 0 4 0; #X connect 10 0 9 0; #X connect 11 0 12 0; #X connect 11 0 13 2; #X connect 13 0 5 0; #X connect 14 0 15 0; #X connect 14 0 13 1;

1 0

externals/hcs stat-help.pd, 1.2, 1.3 stat.c, 1.3, 1.4 uname.c, 1.1, 1.2 usbhid.c, 1.4, 1.5
by Hans-Christoph Steiner 15 Jun '06

15 Jun '06

Update of /cvsroot/pure-data/externals/hcs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv806 Modified Files: stat-help.pd stat.c uname.c usbhid.c Log Message: ported [stat] to MinGW; #ifdef'ed out uname since there is no unam e with MinGW; ifdefed out [usbhid] since libhid hasn't been ported to MinGW yet Index: stat.c =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/stat.c,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** stat.c 13 Jun 2006 14:24:04 -0000 1.3 --- stat.c 14 Jun 2006 23:38:05 -0000 1.4 *************** *** 37,41 **** #include <sys/types.h> #include <sys/stat.h> ! #include <sys/errno.h> static char *version = "$Revision$"; --- 37,41 ---- #include <sys/types.h> #include <sys/stat.h> ! #include <errno.h> static char *version = "$Revision$"; *************** *** 51,55 **** --- 51,59 ---- static t_class *stat_class; + #ifdef _WIN32 + typedef struct _stat_win { + #else typedef struct _stat { + #endif /* _WIN32 */ t_object x_obj; t_symbol *x_filename; *************** *** 126,129 **** --- 130,134 ---- SETSYMBOL(output_atoms, gensym("io_error")); break; + #ifndef _WIN32 case ELOOP: error("[stat]: A loop exists in symbolic links in %s", *************** *** 131,134 **** --- 136,140 ---- SETSYMBOL(output_atoms, gensym("symlink_loop")); break; + #endif case ENAMETOOLONG: error("[stat]: The filename %s is too long", *************** *** 145,148 **** --- 151,155 ---- SETSYMBOL(output_atoms, gensym("not_folder")); break; + #ifndef _WIN32 case EOVERFLOW: error("[stat]: %s caused overflow in stat struct", *************** *** 150,153 **** --- 157,161 ---- SETSYMBOL(output_atoms, gensym("internal_overflow")); break; + #endif case EFAULT: error("[stat]: fault in stat struct (%s)", x->x_filename->s_name); *************** *** 170,178 **** { DEBUG(post("stat_output");); struct stat stat_buffer; int result; #ifdef _WIN32 ! result = _stat(x->x_filename, &stat_buffer); #else result = stat(x->x_filename->s_name, &stat_buffer); --- 178,190 ---- { DEBUG(post("stat_output");); + #ifdef _WIN32 + struct _stat stat_buffer; + #else struct stat stat_buffer; + #endif int result; #ifdef _WIN32 ! result = _stat(x->x_filename->s_name, &stat_buffer); #else result = stat(x->x_filename->s_name, &stat_buffer); *************** *** 191,198 **** add_float_to_output(x, (t_float) stat_buffer.st_rdev); add_float_to_output(x, (t_float) stat_buffer.st_size); add_float_to_output(x, (t_float) stat_buffer.st_blocks); add_float_to_output(x, (t_float) stat_buffer.st_blksize); /* 86400 seconds == 24 hours == 1 day */ ! #ifdef _POSIX_C_SOURCE add_float_to_output(x, (t_float) (stat_buffer.st_atime / 86400)); add_float_to_output(x, (t_float) (stat_buffer.st_atime % 86400)); --- 203,215 ---- add_float_to_output(x, (t_float) stat_buffer.st_rdev); add_float_to_output(x, (t_float) stat_buffer.st_size); + #ifdef _WIN32 + add_float_to_output(x, (t_float) 0); + add_float_to_output(x, (t_float) 0); + #else add_float_to_output(x, (t_float) stat_buffer.st_blocks); add_float_to_output(x, (t_float) stat_buffer.st_blksize); + #endif /* 86400 seconds == 24 hours == 1 day */ ! #if defined(_POSIX_C_SOURCE) || defined(_WIN32) add_float_to_output(x, (t_float) (stat_buffer.st_atime / 86400)); add_float_to_output(x, (t_float) (stat_buffer.st_atime % 86400)); Index: uname.c =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/uname.c,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** uname.c 12 Jun 2006 20:01:35 -0000 1.1 --- uname.c 14 Jun 2006 23:38:05 -0000 1.2 *************** *** 24,37 **** /* --------------------------------------------------------------------------*/ #include <m_pd.h> - #ifdef _WIN32 - #define _WIN32_WINNT 0x0400 - #include <windows.h> - #include <stdio.h> - #else #include <sys/utsname.h> #include <stdlib.h> - #endif static char *version = "$Revision$"; --- 24,34 ---- /* --------------------------------------------------------------------------*/ + /* sadly, there is no uname in Windows, Cygwin has it tho */ + #ifndef _WIN32 + #include <m_pd.h> #include <sys/utsname.h> #include <stdlib.h> static char *version = "$Revision$"; *************** *** 115,116 **** --- 112,115 ---- } + + #endif /* NOT _WIN32 */ Index: stat-help.pd =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/stat-help.pd,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** stat-help.pd 13 Jun 2006 01:28:48 -0000 1.2 --- stat-help.pd 14 Jun 2006 23:38:05 -0000 1.3 *************** *** 1,98 **** ! #N canvas 139 93 642 522 10; ! #X msg 108 68 bang; ! #X text 150 68 run on current folder; ! #X symbolatom 6 470 0 0 0 3 filename - -; ! #X floatatom 29 365 0 0 0 3 file_mode - -; ! #X floatatom 175 365 0 0 0 3 User_ID - -; ! #X floatatom 271 365 0 0 0 3 Group_ID - -; ! #X floatatom 338 365 0 0 0 3 Device_ID - -; ! #X obj 163 165 route error; ! #X symbolatom 163 201 0 0 0 0 error - -; ! #X floatatom 419 386 0 0 0 3 File_Size - -; ! #X floatatom 419 353 0 0 0 3 Blocks_Allocated - -; ! #X floatatom 419 317 0 0 0 3 preferred_block_size - -; ! #X obj 17 36 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 -1 ! ; ! #X obj 17 63 openpanel; ! #X text 46 31 try it on any file (it doesn't change anything \, just ! reads data from the file system).; ! #X text 127 146 <-- set filename by cold inlet or object argument; ! #X obj 270 405 gid->group_name; ! #X symbolatom 270 434 0 0 0 3 group_name - -; ! #X obj 163 183 symbol; ! #X floatatom 98 365 0 0 0 3 hard_links - -; ! #X symbolatom 174 434 0 0 0 3 group_name - -; ! #X obj 174 405 uid->username; ! #X obj 91 147 stat; ! #X obj 9 203 list; ! #X obj 9 223 list split 9; ! #X obj 9 282 unpack symbol float float float float float float float ! float; ! #N canvas 0 22 466 316 time 0; ! #X obj 136 34 inlet; ! #X floatatom 19 193 6 0 0 3 days - -; ! #X floatatom 66 193 6 0 0 3 seconds - -; ! #X text 26 223 last access; ! #X floatatom 158 192 6 0 0 3 days - -; ! #X floatatom 205 192 6 0 0 3 seconds - -; ! #X text 144 220 last modification; ! #X floatatom 305 194 6 0 0 3 days - -; ! #X floatatom 352 194 6 0 0 3 seconds - -; ! #X text 290 222 last status change; ! #X obj 49 137 unpack float float float float float float; ! #X connect 0 0 10 0; ! #X connect 10 0 1 0; ! #X connect 10 1 2 0; ! #X connect 10 2 4 0; ! #X connect 10 3 5 0; ! #X connect 10 4 7 0; ! #X connect 10 5 8 0; ! #X restore 48 253 pd time stamps; ! #X msg 132 118 symbol /usr/bin/gcc; ! #X text 158 251 <-- open this to see the timestamps; ! #X obj 94 175 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 ! -1; ! #X msg 121 94 symbol /tmp/this_file_doesn't_exist; ! #X text 249 181 <-- errors are reported in Pd space and the Pd window ! ; ! #N canvas 0 22 458 308 possible 0; ! #X text 47 62 access_denied; ! #X text 47 82 io_error; ! #X text 47 102 symlink_loop; ! #X text 47 122 name_too_long; ! #X text 47 142 does_not_exist; ! #X text 47 162 not_folder; ! #X text 47 182 internal_overflow; ! #X text 47 202 internal_fault; ! #X text 19 21 Here are the possible errors that [stat] will report ! on its right outlet:; ! #X text 47 222 invalid; ! #X text 47 242 unknown; ! #X restore 400 209 pd possible errors; ! #X text 8 3 [stat] gets information about files; ! #X connect 0 0 22 0; ! #X connect 4 0 21 0; ! #X connect 5 0 16 0; ! #X connect 7 0 18 0; ! #X connect 12 0 13 0; ! #X connect 13 0 22 0; ! #X connect 16 0 17 0; ! #X connect 18 0 8 0; ! #X connect 21 0 20 0; ! #X connect 22 0 23 0; ! #X connect 22 0 29 0; ! #X connect 22 1 7 0; ! #X connect 23 0 24 0; ! #X connect 24 0 25 0; ! #X connect 24 1 26 0; ! #X connect 25 0 2 0; ! #X connect 25 1 3 0; ! #X connect 25 2 19 0; ! #X connect 25 3 4 0; ! #X connect 25 4 5 0; ! #X connect 25 5 6 0; ! #X connect 25 6 9 0; ! #X connect 25 7 10 0; ! #X connect 25 8 11 0; ! #X connect 27 0 22 0; ! #X connect 30 0 22 0; --- 1,98 ---- ! #N canvas 291 47 646 526 10; ! #X msg 108 68 bang; ! #X text 150 68 run on current folder; ! #X symbolatom 6 470 0 0 0 3 filename - -; ! #X floatatom 29 365 0 0 0 3 file_mode - -; ! #X floatatom 175 365 0 0 0 3 User_ID - -; ! #X floatatom 271 365 0 0 0 3 Group_ID - -; ! #X floatatom 338 365 0 0 0 3 Device_ID - -; ! #X obj 163 175 route error; ! #X symbolatom 163 213 0 0 0 0 error - -; ! #X floatatom 419 386 0 0 0 3 File_Size - -; ! #X floatatom 419 353 0 0 0 3 Blocks_Allocated - -; ! #X floatatom 419 317 0 0 0 3 preferred_block_size - -; ! #X obj 17 36 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 -1 ! ; ! #X obj 17 63 openpanel; ! #X text 46 31 try it on any file (it doesn't change anything \, just ! reads data from the file system).; ! #X text 117 146 <-- set filename by cold inlet or object argument; ! #X obj 270 405 gid->group_name; ! #X symbolatom 270 434 0 0 0 3 group_name - -; ! #X obj 163 194 symbol; ! #X floatatom 98 365 0 0 0 3 hard_links - -; ! #X symbolatom 174 434 0 0 0 3 username - -; ! #X obj 174 405 uid->username; ! #X obj 81 147 stat; ! #X obj 9 203 list; ! #X obj 9 223 list split 9; ! #X obj 9 285 unpack symbol float float float float float float float ! float; ! #N canvas 0 22 470 320 time 0; ! #X obj 136 34 inlet; ! #X floatatom 19 193 6 0 0 3 days - -; ! #X floatatom 66 193 6 0 0 3 seconds - -; ! #X text 26 223 last access; ! #X floatatom 158 192 6 0 0 3 days - -; ! #X floatatom 205 192 6 0 0 3 seconds - -; ! #X text 144 220 last modification; ! #X floatatom 305 194 6 0 0 3 days - -; ! #X floatatom 352 194 6 0 0 3 seconds - -; ! #X text 290 222 last status change; ! #X obj 49 137 unpack float float float float float float; ! #X connect 0 0 10 0; ! #X connect 10 0 1 0; ! #X connect 10 1 2 0; ! #X connect 10 2 4 0; ! #X connect 10 3 5 0; ! #X connect 10 4 7 0; ! #X connect 10 5 8 0; ! #X restore 48 253 pd time stamps; ! #X msg 132 118 symbol /usr/bin/gcc; ! #X text 139 251 <-- open this to see the timestamps; ! #X obj 84 175 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 ! -1; ! #X msg 121 94 symbol /tmp/this_file_doesn't_exist; ! #X text 249 191 <-- errors are reported in Pd space and the Pd window ! ; ! #N canvas 0 22 458 308 possible 0; ! #X text 47 62 access_denied; ! #X text 47 82 io_error; ! #X text 47 102 symlink_loop; ! #X text 47 122 name_too_long; ! #X text 47 142 does_not_exist; ! #X text 47 162 not_folder; ! #X text 47 182 internal_overflow; ! #X text 47 202 internal_fault; ! #X text 19 21 Here are the possible errors that [stat] will report ! on its right outlet:; ! #X text 47 222 invalid; ! #X text 47 242 unknown; ! #X restore 398 218 pd possible errors; ! #X text 8 3 [stat] gets information about files; ! #X connect 0 0 22 0; ! #X connect 4 0 21 0; ! #X connect 5 0 16 0; ! #X connect 7 0 18 0; ! #X connect 12 0 13 0; ! #X connect 13 0 22 0; ! #X connect 16 0 17 0; ! #X connect 18 0 8 0; ! #X connect 21 0 20 0; ! #X connect 22 0 23 0; ! #X connect 22 0 29 0; ! #X connect 22 1 7 0; ! #X connect 23 0 24 0; ! #X connect 24 0 25 0; ! #X connect 24 1 26 0; ! #X connect 25 0 2 0; ! #X connect 25 1 3 0; ! #X connect 25 2 19 0; ! #X connect 25 3 4 0; ! #X connect 25 4 5 0; ! #X connect 25 5 6 0; ! #X connect 25 6 9 0; ! #X connect 25 7 10 0; ! #X connect 25 8 11 0; ! #X connect 27 0 22 0; ! #X connect 30 0 22 0; Index: usbhid.c =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/usbhid.c,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** usbhid.c 25 May 2006 12:33:33 -0000 1.4 --- usbhid.c 14 Jun 2006 23:38:05 -0000 1.5 *************** *** 24,27 **** --- 24,30 ---- /* --------------------------------------------------------------------------*/ + /* libhid hasn't been ported to Win32 yet */ + #ifndef _WIN32 + #include <usb.h> #include <hid.h> *************** *** 777,778 **** --- 780,782 ---- } + #endif /* NOT _WIN32 */

1 0

pd/src TODO,1.1.2.7,1.1.2.8
by chunlee 14 Jun '06

14 Jun '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14059 Modified Files: Tag: devel_0_39 TODO Log Message: updating the TODO a bit.... Index: TODO =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/TODO,v retrieving revision 1.1.2.7 retrieving revision 1.1.2.8 diff -C2 -d -r1.1.2.7 -r1.1.2.8 *** TODO 21 May 2006 05:34:18 -0000 1.1.2.7 --- TODO 14 Jun 2006 20:21:38 -0000 1.1.2.8 *************** *** 13,20 **** [m] fix GDB connection problem [m] fix test.pd [bng] segfault problem ! [h] fix the new canvas default so that its in edit mode when created -done ! [h] get the object box to render correctly after editing/recreating -done ! [h] make moving object work again and shorten the necessary procs as i said i would before ! [h] wires LATER: --- 13,35 ---- [m] fix GDB connection problem [m] fix test.pd [bng] segfault problem ! ! server: ! ! [] dirty_list (so that the draw methods at the client knows which part of the object to draw) ! [] messagebox ($1 = (struct _class *) 0x0) ! [] pd_upload optimisation ! [] differential upload engine ! [] file save ! ! client: ! ! [] history undo/redo ! [h] font stuff ! [h] different wire types ! [h] canvas properties ! [] GOP ! [] rest of iem_gui (canvas/panel, vu, array, comment, symbol, floatatom) ! [h] Path... dialog ! LATER:

1 0

pd/src desire.tk,1.1.2.244,1.1.2.245
by chunlee 14 Jun '06

14 Jun '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27697 Modified Files: Tag: devel_0_39 desire.tk Log Message: more changes/fixes for the properties dialog... Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.244 retrieving revision 1.1.2.245 diff -C2 -d -r1.1.2.244 -r1.1.2.245 *** desire.tk 13 Jun 2006 23:18:59 -0000 1.1.2.244 --- desire.tk 14 Jun 2006 18:20:46 -0000 1.1.2.245 *************** *** 1796,1800 **** if {[llength [$c gettags lnew]]} { mset {ox1 oy1 ox2 oy2} [lrange [$c coords lnew] end-3 end] ! puts "ox1=$ox1 oy1=$oy1 x=$x y=$y" set l [$c coords lnew] if {[llength $l]<4 || [distance [list $ox1 $oy1] [list $x $y]] < 30} { --- 1796,1800 ---- if {[llength [$c gettags lnew]]} { mset {ox1 oy1 ox2 oy2} [lrange [$c coords lnew] end-3 end] ! #puts "ox1=$ox1 oy1=$oy1 x=$x y=$y" set l [$c coords lnew] if {[llength $l]<4 || [distance [list $ox1 $oy1] [list $x $y]] < 30} { *************** *** 2952,2955 **** --- 2952,2990 ---- class_new IEMPropertiesDialog {PropertiesDialog} + def* IEMPropertiesDialog cancel {} {$self _delete} + + def* IEMPropertiesDialog apply {} { + global fields classinfo + set class $_($@of:class) + if {![info exists fields($class)]} {set class obj} + puts "this is a $_($@of:class) class" + set orig {} + set props ".$@of reload" + set props2 {} + foreach var [lrange $fields($class) 5 end] { + + #puts "$var --from-- $_($@of:$var) --to-- $@$var" + lappend orig $_($@of:$var) + lappend props2 $@$var + + switch $var { + is_log {if {$@$var == "linear"} {set val 1} else { set val 0}} + isa {if {$@$var == "yes"} {set val 1} else { set val 0}} + steady {if {$@$var == "jump"} {set val 1} else { set val 0}} + fstyle {if {$@$var == "yes"} {set val 1} else { set val 0}} + default {set val $@$var} + } + if {[regexp -nocase {^([a-z])col$} $var]} {set val [unparse_color $val]; puts "color ---- > $val"} + switch -- $val { {} {set val "empty"}} + set props "$props $val" + + } + + puts "orig props:: $orig" + puts "inter props:: $props2" + puts "real props:: $props" + pd $props + } + def* IEMPropertiesDialog init {of} { global classinfo fields *************** *** 2968,2972 **** steady {if {$_($of:$var)} {set val "jump"} else { set val "steady"}} fstyle {if {$_($of:$var)} {set val "yes"} else { set val "no"}} ! default {set val $_($of:$var); puts "here............."} } #set val $_($of:$var) --- 3003,3007 ---- steady {if {$_($of:$var)} {set val "jump"} else { set val "steady"}} fstyle {if {$_($of:$var)} {set val "yes"} else { set val "no"}} ! default {set val $_($of:$var)} } #set val $_($of:$var) *************** *** 3011,3016 **** rcv {properties_dialog $self .$self iemgui_ok [list $propertie [say $propertie] entry {-width 20}]} lab {properties_dialog $self .$self iemgui_ok [list $propertie [say $propertie] entry {-width 20}]} ! labx {properties_dialog $self .$self iemgui_ok [list $propertie [say $propertie] entry {-width 5}]} ! laby {properties_dialog $self .$self iemgui_ok [list $propertie [say $propertie] entry {-width 5}]} fstyle { set options [list [say $propertie] "courier" "helvetica" "times"] --- 3046,3051 ---- rcv {properties_dialog $self .$self iemgui_ok [list $propertie [say $propertie] entry {-width 20}]} lab {properties_dialog $self .$self iemgui_ok [list $propertie [say $propertie] entry {-width 20}]} ! ldx {properties_dialog $self .$self iemgui_ok [list $propertie [say $propertie] entry {-width 5}]} ! ldy {properties_dialog $self .$self iemgui_ok [list $propertie [say $propertie] entry {-width 5}]} fstyle { set options [list [say $propertie] "courier" "helvetica" "times"] *************** *** 4132,4174 **** ############ properties_dialog ######### - - proc color_popup_select {self name c} { - global _ preset_colors - #set _($self:$name) $c - set fg_color [complement [format #%6.6x $c]] - .$self.$name configure \ - -background [format #%6.6x $c] -foreground $fg_color -text [format #%6.6x $c] - #-background [format #%6.6x $_($self:$name)] -foreground $fg_color - # somehow this hilites one more pixel outside of what it should be - #-highlightbackground [format #%6.6x $_($self:$name)] - } - - proc* color_popup {self w name i} { - set self [string trimleft $self .] - set old_w $w.$name - set w $w.$name.popup - if [winfo exists $w] {destroy $w} - menu $w -tearoff false - global preset_colors - for {set i 0} {$i<[llength $preset_colors]} {incr i} { - set c [lindex $preset_colors $i] - $w add command -label " " \ - -background "#$c" -activebackground "#$c" \ - -command [list color_popup_select $self $name [expr 0x$c]] - } - tk_popup $w [expr [winfo rootx $old_w]] [expr [winfo rooty $old_w]] - } - - proc iemgui_choose_col {id var title} { - set self [string trimleft $id .] - global _ look - set c 0xFFFFFF - set color [tk_chooseColor -title $title -initialcolor $title] - if {$color != ""} { - $id.$var configure -text $color - color_popup_select $self $var [expr [string replace $color 0 0 "0x"]&0xFFFFFF] - } - } - proc change_entry {self val} { set v [expr [$self get]+$val] --- 4167,4170 ---- *************** *** 4206,4214 **** set text_color [complement $_($self:$name)] button $f.color -text $_($self:$name) -font {Courier 10} -width 10 -pady 2 -fg $text_color \ ! -command [list iemgui_choose_col $w $name.color $_($self:$name)] \ -relief sunken -background $_($self:$name) \ -highlightbackground [format #%6.6x $c] -activebackground [darker $_($self:$name)] set i 10 ! button $f.preset -text "..." -pady 2 -font {Helvetica 8} -command [list color_popup $w $w $name.color $i] pack $f.label $f.color $f.preset -side left } --- 4202,4210 ---- set text_color [complement $_($self:$name)] button $f.color -text $_($self:$name) -font {Courier 10} -width 10 -pady 2 -fg $text_color \ ! -command [list $self choose_col $f $name $_($self:$name)] \ -relief sunken -background $_($self:$name) \ -highlightbackground [format #%6.6x $c] -activebackground [darker $_($self:$name)] set i 10 ! button $f.preset -text "..." -pady 2 -font {Helvetica 8} -command [list $self color_popup $f $name $i] pack $f.label $f.color $f.preset -side left } *************** *** 4221,4228 **** set m [menu $f.$name -tearoff 0] foreach part [lrange $label 1 end] { ! $m add command -label [say $part] -command [list dropmenu_set $f [say $part]] } - puts "name ________ $name" label $f.label_set -text [say $_($self:$name)] -relief raised -width 20 balloon $f.label_set "click to change setting" --- 4217,4223 ---- set m [menu $f.$name -tearoff 0] foreach part [lrange $label 1 end] { ! $m add command -label [say $part] -command [list $self dropmenu_set $f $name $part] } label $f.label_set -text [say $_($self:$name)] -relief raised -width 20 balloon $f.label_set "click to change setting" *************** *** 4342,4349 **** } - proc dropmenu_set {frame name} { - $frame.label_set configure -text $name - puts "$name is selected in the drop down menu!!!" - } # this makes the tooltip --- 4337,4340 ---- *************** *** 4375,4384 **** class_new Dialog #what's the difference between ok and apply? ! def Dialog ok {} {$self apply; $self cancel} def Dialog cancel {} {} def Dialog apply {} {} def* Dialog _delete {} {destroy .$self} ! def Dialog init {} { set f .$self set @max_label 0 --- 4366,4375 ---- class_new Dialog #what's the difference between ok and apply? ! def* Dialog ok {} {$self apply; $self cancel} def Dialog cancel {} {} def Dialog apply {} {} def* Dialog _delete {} {destroy .$self} ! def* Dialog init {} { set f .$self set @max_label 0 *************** *** 4395,4398 **** --- 4386,4429 ---- } + def* Dialog dropmenu_set {frame var val} { + $frame.label_set configure -text [say $val] + set _($self:$var) $val + } + + + def* Dialog color_popup_select {frame var color} { + global _ preset_colors + #puts " --------------- self:$self name:$var c:$color" + set @$var $color + set fg_color [complement [format #%6.6x $color]] + $frame.color configure \ + -background [format #%6.6x $color] -foreground $fg_color -text [format #%6.6x $color] + } + + def* Dialog color_popup {frame var i} { + set w $frame.color.popup + if [winfo exists $w] {destroy $w} + menu $w -tearoff false + global preset_colors + for {set i 0} {$i<[llength $preset_colors]} {incr i} { + set c [lindex $preset_colors $i] + $w add command -label " " \ + -background "#$c" -activebackground "#$c" \ + -command [list $self color_popup_select $frame $var [expr 0x$c]] + } + tk_popup $w [expr [winfo rootx .$self.$var.color]] [expr [winfo rooty $frame.color]] + } + + def* Dialog choose_col {frame var val} { + global _ look + set c 0xFFFFFF + set color [tk_chooseColor -title $val -initialcolor $val] + if {$color != ""} { + $frame.color configure -text $color + $self color_popup_select $frame $var [expr [string replace $color 0 0 "0x"]&0xFFFFFF] + } + } + + class_new PagedDialog {Dialog}

1 0

extensions Makefile,1.5,1.6
by Hans-Christoph Steiner 14 Jun '06

14 Jun '06

Update of /cvsroot/pure-data/extensions In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23407 Modified Files: Makefile Log Message: quick stab at getting gripd integrated into Pd-extended, needs more work... Index: Makefile =================================================================== RCS file: /cvsroot/pure-data/extensions/Makefile,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Makefile 28 Apr 2006 15:58:06 -0000 1.5 --- Makefile 14 Jun 2006 17:02:16 -0000 1.6 *************** *** 45,52 **** GRIPD_NAME = gripd gripd: ! gripd_install: install -d $(helpdir) install -p $(extensions_src)/gripd/examples/gripd.pd \ $(helpdir)/gripd-help.pd --- 45,55 ---- GRIPD_NAME = gripd gripd: ! make -C $(extensions_src)/gripd/src -f Makefile.Linux all gripd_install: install -d $(helpdir) + install -p $(extensions_src)/gripd/*.$(EXTENSION) \ + $(extensions_src)/gripd/*.so \ + $(externalsdir)/$(GRIPD_NAME) install -p $(extensions_src)/gripd/examples/gripd.pd \ $(helpdir)/gripd-help.pd *************** *** 59,62 **** --- 62,69 ---- + gripd_clean: + make -C $(extensions_src)/gripd/src clean + + #------------------------------------------------------------------------------#

1 0

← Newer
1
...
7
8
9
10
11
12
13
...
23
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 2006