Pd-cvs November 2007

pd-cvs@lists.iem.at

14 participants
212 discussions

externals/mapping/help smooth-help.pd, NONE, 1.1 smooth_double-help.pd, NONE, 1.1 smooth_triple-help.pd, NONE, 1.1
by Hans-Christoph Steiner 28 Nov '07

28 Nov '07

Update of /cvsroot/pure-data/externals/mapping/help In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27076/help Added Files: smooth-help.pd smooth_double-help.pd smooth_triple-help.pd Log Message: - added single, double and triple exponential smoothing objects based on NIST alorgithms (the links are included in the patches). This was originally inspired by Fredrik Olofsson's f0.smooth and f0.smooth2, but I added triple exponential smoothing, and made them as Pd patches. --- NEW FILE: smooth_double-help.pd --- #N canvas 330 215 710 386 10; #X obj 241 157 mapping/timeroll; #X obj 20 157 mapping/timeroll; #N canvas 0 22 450 300 get 0; #X obj 115 19 inlet; #X obj 125 250 outlet; #X obj 108 100 cyclone/MouseState; #X msg 108 73 poll; #X obj 160 127 mapping/autoscale; #X obj 160 152 mapping/reverse; #X msg 144 73 nopoll; #X obj 114 44 select 1; #X connect 0 0 7 0; #X connect 2 2 4 0; #X connect 3 0 2 0; #X connect 4 0 5 0; #X connect 5 0 1 0; #X connect 6 0 2 0; #X connect 7 0 3 0; #X connect 7 1 6 0; #X restore 278 72 pd get mouse Y; #X obj 278 50 tgl 15 0 empty empty empty 17 7 0 10 -204786 -1 -1 1 1; #X text 22 309 (idea from Fredrik Olofsson); #X obj 413 72 hsl 128 15 0 1 0 0 empty empty empty -2 -8 0 10 -262130 -1 -1 0 1; #X floatatom 425 92 5 0 0 0 - - -; #X text 23 14 Double Exponential Smoothing (des); #X obj 40 333 pddp/pddplink http://www.itl.nist.gov/div898/handbook/pmc/section4/pmc433.htm ; #X obj 461 157 mapping/timeroll; #X obj 339 114 smooth_double; #X text 498 132 trend (+-1):; #X connect 2 0 1 0; #X connect 2 0 10 0; #X connect 3 0 2 0; #X connect 5 0 6 0; #X connect 5 0 10 1; #X connect 10 0 0 0; #X connect 10 1 9 0; --- NEW FILE: smooth-help.pd --- #N canvas 654 331 475 374 10; #X obj 241 157 mapping/timeroll; #X obj 20 157 mapping/timeroll; #X obj 40 333 pddp/pddplink http://www.itl.nist.gov/div898/handbook/pmc/section4/pmc431.htm ; #N canvas 0 22 450 300 get 0; #X obj 115 19 inlet; #X obj 125 250 outlet; #X obj 108 100 cyclone/MouseState; #X msg 108 73 poll; #X obj 160 127 mapping/autoscale; #X obj 160 152 mapping/reverse; #X msg 144 73 nopoll; #X obj 114 44 select 1; #X connect 0 0 7 0; #X connect 2 2 4 0; #X connect 3 0 2 0; #X connect 4 0 5 0; #X connect 5 0 1 0; #X connect 6 0 2 0; #X connect 7 0 3 0; #X connect 7 1 6 0; #X restore 180 75 pd get mouse Y; #X obj 180 53 tgl 15 0 empty empty empty 17 7 0 10 -204786 -1 -1 0 1; #X text 22 309 (idea from Fredrik Olofsson); #X obj 277 92 hsl 128 15 0 1 0 0 empty empty empty -2 -8 0 10 -262130 -1 -1 0 1; #X floatatom 289 112 5 0 0 0 - - -; #X text 23 14 Single Exponential Smoothing (ses); #X obj 241 117 smooth; #X text 329 114 (default: 0.15); #X connect 3 0 1 0; #X connect 3 0 9 0; #X connect 4 0 3 0; #X connect 6 0 7 0; #X connect 6 0 9 1; #X connect 9 0 0 0; --- NEW FILE: smooth_triple-help.pd --- #N canvas 608 255 867 373 10; #X obj 231 157 mapping/timeroll; #X obj 20 157 mapping/timeroll; #N canvas 0 22 450 300 get 0; #X obj 115 19 inlet; #X obj 125 250 outlet; #X obj 108 100 cyclone/MouseState; #X msg 108 73 poll; #X obj 160 127 mapping/autoscale; #X obj 160 152 mapping/reverse; #X msg 144 73 nopoll; #X obj 114 44 select 1; #X connect 0 0 7 0; #X connect 2 2 4 0; #X connect 3 0 2 0; #X connect 4 0 5 0; #X connect 5 0 1 0; #X connect 6 0 2 0; #X connect 7 0 3 0; #X connect 7 1 6 0; #X restore 278 72 pd get mouse Y; #X obj 278 50 tgl 15 0 empty empty empty 17 7 0 10 -204786 -1 -1 1 1; #X obj 401 57 hsl 60 15 0 1 0 0 empty empty alpha -2 -8 0 10 -262130 -1 -1 1900 1; #X floatatom 398 77 5 0 0 0 - - -; #X obj 441 157 mapping/timeroll; #X obj 651 157 mapping/timeroll; #X obj 407 338 pddp/pddplink http://www.itl.nist.gov/div898/handbook/pmc/section4/pmc435.htm ; #X obj 339 114 smooth_triple; #X text 23 14 Triple Exponential Smoothing (tes); #X text 316 338 For more info:; #X text 61 310 original signal; #X text 291 310 smoothed signal; #X text 713 306 periodicity; #X text 503 309 trend (+-1); #X obj 471 57 hsl 60 15 0 1 0 0 empty empty gamma -2 -8 0 10 -262130 -1 -1 0 1; #X floatatom 468 77 5 0 0 0 - - -; #X obj 541 57 hsl 60 15 0 1 0 0 empty empty beta -2 -8 0 10 -262130 -1 -1 0 1; #X floatatom 538 77 5 0 0 0 - - -; #X obj 611 57 hsl 60 15 1 20 0 0 empty empty number_of_periods -2 -8 0 10 -262130 -1 -1 2300 1; #X floatatom 608 77 5 0 0 0 - - -; #X connect 2 0 1 0; #X connect 2 0 9 0; #X connect 3 0 2 0; #X connect 4 0 5 0; #X connect 4 0 9 1; #X connect 9 0 0 0; #X connect 9 1 6 0; #X connect 9 2 7 0; #X connect 16 0 17 0; #X connect 16 0 9 2; #X connect 18 0 19 0; #X connect 18 0 9 3; #X connect 20 0 21 0; #X connect 20 0 9 4;

1 0

externals/mapping smooth.pd, NONE, 1.1 smooth_double.pd, NONE, 1.1 smooth_triple.pd, NONE, 1.1
by Hans-Christoph Steiner 28 Nov '07

28 Nov '07

Update of /cvsroot/pure-data/externals/mapping In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27076 Added Files: smooth.pd smooth_double.pd smooth_triple.pd Log Message: - added single, double and triple exponential smoothing objects based on NIST alorgithms (the links are included in the patches). This was originally inspired by Fredrik Olofsson's f0.smooth and f0.smooth2, but I added triple exponential smoothing, and made them as Pd patches. --- NEW FILE: smooth_double.pd --- #N canvas 860 490 765 388 10; #X obj 61 6 inlet; #X obj 300 6 inlet; #X obj 300 60 purepd/float_argument \$1 0.15; #X obj 311 33 loadbang; #X obj 99 345 outlet; #X text 135 220 St = a*Yt1+(1-a)*St1; #X obj 61 51 trigger float bang; #X obj 166 147 float; #X text 202 147 St1; #X obj 300 96 clip 0 1; #X obj 257 312 pddp/pddplink http://www.itl.nist.gov/div898/handbook/pmc/section4/pmc433.htm ; #X obj 215 345 outlet; #X obj 490 6 inlet; #X obj 501 33 loadbang; #X obj 490 96 clip 0 1; #X text 233 277 bt = y * (St - St1) + (1 - y) * bt1; #X text 549 96 y; #X text 359 96 a; #X obj 216 259 expr $f4 * ($f1 - $f2) + (1 - $f4) * $f3; #X obj 334 148 float; #X text 372 147 bt1; #X obj 490 60 purepd/float_argument \$2 0.3; #X obj 99 201 expr $f4*$f1+(1-$f4) * ($f2 + $f3); #X connect 0 0 6 0; #X connect 1 0 2 0; #X connect 2 0 9 0; #X connect 3 0 2 0; #X connect 6 0 22 0; #X connect 6 1 7 0; #X connect 6 1 19 0; #X connect 7 0 18 1; #X connect 7 0 22 1; #X connect 9 0 22 3; #X connect 12 0 21 0; #X connect 13 0 21 0; #X connect 14 0 18 3; #X connect 18 0 19 1; #X connect 18 0 11 0; #X connect 19 0 18 2; #X connect 19 0 22 2; #X connect 21 0 14 0; #X connect 22 0 4 0; #X connect 22 0 7 1; #X connect 22 0 18 0; --- NEW FILE: smooth_triple.pd --- #N canvas 122 353 991 458 10; #X obj 21 12 inlet; #X obj 260 12 inlet; #X obj 260 66 purepd/float_argument \$1 0.15; #X obj 271 39 loadbang; #X obj 59 421 outlet; #X obj 21 57 trigger float bang; #X obj 126 153 float; #X text 162 153 St1; #X obj 260 102 clip 0 1; #X obj 175 421 outlet; #X obj 450 12 inlet; #X obj 461 39 loadbang; #X obj 450 102 clip 0 1; #X text 428 265 bt = y * (St - St1) + (1 - y) * bt1; #X text 509 102 y; #X text 319 102 a; #X obj 176 265 expr $f4 * ($f1 - $f2) + (1 - $f4) * $f3; #X obj 294 154 float; #X text 332 153 bt1; #X obj 450 66 purepd/float_argument \$2 0.3; #X obj 59 207 expr $f4*$f1+(1-$f4) * ($f2 + $f3); #X obj 302 391 pddp/pddplink http://www.itl.nist.gov/div898/handbook/pmc/section4/pmc435.htm ; #X obj 245 421 outlet; #X obj 630 12 inlet; #X obj 641 39 loadbang; #X obj 630 102 clip 0 1; #X text 689 102 B; #X text 274 208 St = a*(Yt / It1+(1-a)*St1; #X text 524 223 we are only using 2L as the "season"; #X obj 245 349 expr $f4 * ($f2/$f1) + (1 - $f4) * $f3; #X text 482 351 It = B * (Yt/St) + (1 - B) * It1; #X text 467 311 It; #X obj 630 66 purepd/float_argument \$3 0.6; #X obj 810 12 inlet; #X obj 821 39 loadbang; #X obj 810 102 int; #X obj 810 127 min 1; #X text 857 99 how many periods; #X obj 810 66 purepd/float_argument \$4 1; #N canvas 198 494 450 300 keep 0; #X obj 313 36 inlet; #X obj 214 255 outlet; #X obj 71 34 inlet; #X obj 71 92 list append; #X obj 186 165 list split; #X connect 0 0 4 1; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 4 0 3 1; #X connect 4 1 1 0; #X connect 4 2 3 1; #X restore 334 309 pd keep old It values; #X connect 0 0 5 0; #X connect 1 0 2 0; #X connect 2 0 8 0; #X connect 3 0 2 0; #X connect 5 0 20 0; #X connect 5 1 6 0; #X connect 5 1 17 0; #X connect 6 0 16 1; #X connect 6 0 20 1; #X connect 8 0 20 3; #X connect 10 0 19 0; #X connect 11 0 19 0; #X connect 12 0 16 3; #X connect 16 0 17 1; #X connect 16 0 9 0; #X connect 16 0 29 1; #X connect 17 0 16 2; #X connect 17 0 20 2; #X connect 19 0 12 0; #X connect 20 0 4 0; #X connect 20 0 6 1; #X connect 20 0 16 0; #X connect 20 0 29 0; #X connect 23 0 32 0; #X connect 24 0 32 0; #X connect 25 0 29 3; #X connect 29 0 22 0; #X connect 29 0 39 0; #X connect 32 0 25 0; #X connect 33 0 38 0; #X connect 34 0 38 0; #X connect 35 0 36 0; #X connect 36 0 39 1; #X connect 38 0 35 0; #X connect 39 0 29 2; --- NEW FILE: smooth.pd --- #N canvas 595 579 651 338 10; #X obj 113 13 inlet; #X obj 363 13 inlet; #X obj 363 67 purepd/float_argument \$1 0.15; #X obj 374 40 loadbang; #X obj 189 311 outlet; #X obj 189 116 float; #X text 325 251 St = a*Yt1+(1-a)*St1; #X obj 114 40 trigger float bang; #X text 166 117 Yt1; #X obj 262 116 float; #X text 295 115 St1; #X obj 189 170 expr $f3*$f1+(1-$f3)*$f2; #X obj 242 282 pddp/pddplink http://www.itl.nist.gov/div898/handbook/pmc/section4/pmc431.htm ; #X obj 363 103 clip 0 1; #X connect 0 0 7 0; #X connect 1 0 2 0; #X connect 2 0 13 0; #X connect 3 0 2 0; #X connect 5 0 11 0; #X connect 7 0 5 1; #X connect 7 1 5 0; #X connect 7 1 9 0; #X connect 9 0 11 1; #X connect 11 0 4 0; #X connect 11 0 9 1; #X connect 13 0 11 2;

1 0

scripts/auto-build auto-build-common,1.1,1.2
by IOhannes m zmölnig 27 Nov '07

27 Nov '07

Update of /cvsroot/pure-data/scripts/auto-build In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1086 Modified Files: auto-build-common Log Message: disabled the RECIPIENT by default and added some notes on how to enable it Index: auto-build-common =================================================================== RCS file: /cvsroot/pure-data/scripts/auto-build/auto-build-common,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** auto-build-common 18 Oct 2006 15:42:12 -0000 1.1 --- auto-build-common 27 Nov 2007 21:01:01 -0000 1.2 *************** *** 6,10 **** TIME=`date +%H.%M.%S` # recipient of any emails set from the scripts ! RECIPIENT=pd-cvs(a)iem.at --- 6,29 ---- TIME=`date +%H.%M.%S` + ## the following creates a spam-bot that sends emails to an address that has not asked for it + ## because of the spam-problem, i (jmz) have disabled it # recipient of any emails set from the scripts ! #RECIPIENT=pd-cvs(a)iem.at ! + ## if you want to send emails about the success of your build, + ## please create a file "auto-build-common.local" in this directory + ## and set the "RECIPIENT" address to some valid email-address + # + ## please do NOT check your auto-build-common.local into the CVS + # + ## another possibility is to set the "RECIPIENT" environmental variable before running + ## the autobuilder + + if [ -e ${SCRIPT_DIR}/auto-build-common.local ]; then + . ${SCRIPT_DIR}/auto-build-common.local + else + echo "Could not find local configuration in \"${SCRIPT_DIR}/auto-build-common.local\"" + echo "Skipping... (see ${SCRIPT_DIR}/auto-build-common for instructions)" + echo + fi

1 0

scripts/auto-build mail-mingw-log-hack.sh, 1.3, 1.4 run-automated-builder, 1.20, 1.21
by IOhannes m zmölnig 27 Nov '07

27 Nov '07

Update of /cvsroot/pure-data/scripts/auto-build In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29220 Modified Files: mail-mingw-log-hack.sh run-automated-builder Log Message: only send emails if RECIPIENT is defined Index: run-automated-builder =================================================================== RCS file: /cvsroot/pure-data/scripts/auto-build/run-automated-builder,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** run-automated-builder 27 Nov 2007 03:03:40 -0000 1.20 --- run-automated-builder 27 Nov 2007 20:49:22 -0000 1.21 *************** *** 37,42 **** --- 37,44 ---- completion_test=`tail -1 ${LOGFILE}` if [ "x${completion_test}" != "xSUCCESS" ]; then + if [ "x${RECIPIENT}" != "x" ]; then SUBJECT="autobuild: $distro $HOSTNAME $DATE $TIME" tail -20 ${LOGFILE} | mail -s "${SUBJECT}" ${RECIPIENT} + fi fi } Index: mail-mingw-log-hack.sh =================================================================== RCS file: /cvsroot/pure-data/scripts/auto-build/mail-mingw-log-hack.sh,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** mail-mingw-log-hack.sh 22 Oct 2007 22:41:47 -0000 1.3 --- mail-mingw-log-hack.sh 27 Nov 2007 20:49:22 -0000 1.4 *************** *** 12,17 **** --- 12,19 ---- completion_test=`tail -1 ${logfile}` if [ "x${completion_test}" != "xSUCCESS" ]; then + if [ "x${RECIPIENT}" != "x" ]; then SUBJECT="autobuild: $distro $HOSTNAME $DATE $TIME" tail -20 ${logfile} | mail -s "autobuild: $logfile" ${RECIPIENT} + fi fi done

1 0

externals/hcs keyboard_layout.c, 1.1, 1.2 keyboard_layout-help.pd, 1.1, 1.2
by Hans-Christoph Steiner 27 Nov '07

27 Nov '07

Update of /cvsroot/pure-data/externals/hcs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1420 Modified Files: keyboard_layout.c keyboard_layout-help.pd Log Message: fixed some minor bugs, should be ready to use; I added a [popup] to the help patch Index: keyboard_layout.c =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/keyboard_layout.c,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** keyboard_layout.c 27 Nov 2007 19:05:36 -0000 1.1 --- keyboard_layout.c 27 Nov 2007 19:31:19 -0000 1.2 *************** *** 4,11 **** */ - #ifdef __APPLE__ - #include "m_pd.h" #include <Carbon/Carbon.h> static t_class *keyboard_layout_class; --- 4,11 ---- */ #include "m_pd.h" + #ifdef __APPLE__ #include <Carbon/Carbon.h> + #endif static t_class *keyboard_layout_class; *************** *** 17,36 **** } t_keyboard_layout; ! /* ! void keyboard_layout_assist(t_keyboard_layout *x, Object *m, long msg, long arg, char *dst) { ! if(msg==ASSIST_INLET) { ! sprintf(dst, "bang to get current, symbol to set"); ! } else if(msg==ASSIST_OUTLET) { ! switch(arg) { ! case 0: ! sprintf(dst, "current keyboard layout (symbol)"); ! break; ! case 1: ! sprintf(dst, "dump outlet (for menu)"); ! break; ! } ! } ! } ! */ //---------------------------------------------------------------------------------------------- --- 17,21 ---- } t_keyboard_layout; ! #ifdef __APPLE__ //---------------------------------------------------------------------------------------------- *************** *** 45,49 **** CFStringGetCString(keyboardName, cKeyboardName, 100, kCFStringEncodingASCII); ! outlet_anything(x->x_data_outlet, gensym(cKeyboardName), 0, NULL); } --- 30,34 ---- CFStringGetCString(keyboardName, cKeyboardName, 100, kCFStringEncodingASCII); ! outlet_symbol(x->x_data_outlet, gensym(cKeyboardName)); } *************** *** 109,116 **** class_addmethod(keyboard_layout_class, (t_method)keyboard_layout_menu, gensym("menu"), 0); - // class_addmethod(keyboard_layout_class, (t_method)keyboard_layout_assist, - // gensym("assist"), A_CANT, 0); ! post("f0.keyboard_layout v1.1-ub; distributed under GNU GPL license"); //target specific } --- 94,99 ---- class_addmethod(keyboard_layout_class, (t_method)keyboard_layout_menu, gensym("menu"), 0); ! post("f0.keyboard_layout v1.1-ub; distributed under GNU GPL license"); } Index: keyboard_layout-help.pd =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/keyboard_layout-help.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** keyboard_layout-help.pd 27 Nov 2007 19:05:36 -0000 1.1 --- keyboard_layout-help.pd 27 Nov 2007 19:31:19 -0000 1.2 *************** *** 1,10 **** ! #N canvas 246 251 576 362 10; ! #X obj 206 158 keyboard_layout; ! #X obj 279 239 pddp/print; ! #X obj 92 247 pddp/print; ! #X msg 205 94 bang; ! #X msg 233 125 menu; ! #X connect 0 0 2 0; ! #X connect 0 1 1 0; ! #X connect 3 0 0 0; ! #X connect 4 0 0 0; --- 1,20 ---- ! ..#N canvas 94 505 576 362 10; ! #X obj 116 144 keyboard_layout; ! #X msg 118 32 bang; ! #X msg 146 63 menu; ! #X obj 242 244 flatspace/popup 124 25 #ffffff language; ! #X msg 179 205 options; ! #X obj 179 182 route clear; ! #X symbolatom 116 277 0 0 0 0 - - -; ! #X text 185 64 see all options in the popup menu; ! #X obj 308 111 symbol; ! #X text 250 283 select a new input method with the popup menu; ! #X connect 0 0 6 0; ! #X connect 0 1 5 0; ! #X connect 1 0 0 0; ! #X connect 2 0 0 0; ! #X connect 3 1 8 0; ! #X connect 4 0 3 0; ! #X connect 5 0 4 0; ! #X connect 5 1 3 0; ! #X connect 8 0 0 0;

1 0

externals/hcs keyboard_layout.c, NONE, 1.1 keyboard_layout-help.pd, NONE, 1.1 keyboard_layout.libs, NONE, 1.1
by Hans-Christoph Steiner 27 Nov '07

27 Nov '07

Update of /cvsroot/pure-data/externals/hcs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24270 Added Files: keyboard_layout.c keyboard_layout-help.pd keyboard_layout.libs Log Message: ported f0.keyboard_layout to Pd, I commented out the 'assist' method because A_CANT is a mytery to me --- NEW FILE: keyboard_layout.c --- /* Copyright 2006 Fredrik Olofsson * Copyright 2007 Free Software Foundation * ported to Pd by Hans-Christoph Steiner <hans(a)at.or.at> from f0.keyboard_layout.c */ #ifdef __APPLE__ #include "m_pd.h" #include <Carbon/Carbon.h> static t_class *keyboard_layout_class; typedef struct _keyboard_layout { t_object x_obj; t_outlet* x_data_outlet; t_outlet* x_status_outlet; } t_keyboard_layout; /* void keyboard_layout_assist(t_keyboard_layout *x, Object *m, long msg, long arg, char *dst) { if(msg==ASSIST_INLET) { sprintf(dst, "bang to get current, symbol to set"); } else if(msg==ASSIST_OUTLET) { switch(arg) { case 0: sprintf(dst, "current keyboard layout (symbol)"); break; case 1: sprintf(dst, "dump outlet (for menu)"); break; } } } */ //---------------------------------------------------------------------------------------------- void keyboard_layout_bang(t_keyboard_layout *x) { //OSStatus err; KeyboardLayoutRef currentLayoutRef; CFStringRef keyboardName; char cKeyboardName[100]; KLGetCurrentKeyboardLayout(&currentLayoutRef); KLGetKeyboardLayoutProperty(currentLayoutRef, kKLName, (const void **)&keyboardName); CFStringGetCString(keyboardName, cKeyboardName, 100, kCFStringEncodingASCII); outlet_anything(x->x_data_outlet, gensym(cKeyboardName), 0, NULL); } void keyboard_layout_menu(t_keyboard_layout *x) { //OSStatus err; KeyboardLayoutRef currentLayoutRef; CFStringRef keyboardName; char cKeyboardName[100]; CFIndex countOfLayouts; CFIndex i; t_atom name; // TODO this should probably output [menu clear( so other messages work too outlet_anything(x->x_status_outlet, gensym("clear"), 0, NULL); KLGetKeyboardLayoutCount(&countOfLayouts); for(i= 0; i<countOfLayouts; i++) { KLGetKeyboardLayoutAtIndex(i, &currentLayoutRef); KLGetKeyboardLayoutProperty(currentLayoutRef, kKLName, (const void **)&keyboardName); CFStringGetCString(keyboardName, cKeyboardName, 100, kCFStringEncodingASCII); SETSYMBOL(&name, gensym(cKeyboardName)); // TODO this should probably output [menu append( so other messages work too outlet_anything(x->x_status_outlet, gensym("append"), 1, &name); } } void keyboard_layout_anything(t_keyboard_layout *x, t_symbol *s, short argc, t_atom *argv) { //OSStatus err; KeyboardLayoutRef currentLayoutRef; CFStringRef keyboardName; char cKeyboardName[100]; keyboardName= CFStringCreateWithCString(NULL, s->s_name, kCFStringEncodingASCII); KLGetKeyboardLayoutWithName(keyboardName, &currentLayoutRef); KLGetKeyboardLayoutProperty(currentLayoutRef, kKLName, (const void **)&keyboardName); CFStringGetCString(keyboardName, cKeyboardName, 100, kCFStringEncodingASCII); KLSetCurrentKeyboardLayout(currentLayoutRef); //outlet_anything(x->t_out, s, 0, NULL); keyboard_layout_bang(x); } void *keyboard_layout_new(void) { t_keyboard_layout *x = (t_keyboard_layout *)pd_new(keyboard_layout_class); x->x_data_outlet = outlet_new(&x->x_obj, &s_float); x->x_status_outlet = outlet_new(&x->x_obj, &s_symbol); return (x); } //---------------------------------------------------------------------------------------------- void keyboard_layout_setup(void) { keyboard_layout_class = class_new(gensym("keyboard_layout"), (t_newmethod)keyboard_layout_new, NULL, sizeof(t_keyboard_layout), 0, A_GIMME, 0); class_addbang(keyboard_layout_class, (t_method)keyboard_layout_bang); class_addanything(keyboard_layout_class, (t_method)keyboard_layout_anything); class_addmethod(keyboard_layout_class, (t_method)keyboard_layout_menu, gensym("menu"), 0); // class_addmethod(keyboard_layout_class, (t_method)keyboard_layout_assist, // gensym("assist"), A_CANT, 0); post("f0.keyboard_layout v1.1-ub; distributed under GNU GPL license"); //target specific } #else /* GNU/Linux and Windows */ void keyboard_layout_new(void) { post("f0.keyboard_layout v1.1-ub; distributed under GNU GPL license"); post("ERROR: this objectclass is currently only for Mac OS X"); } void keyboard_layout_setup(void) { keyboard_layout_class = class_new(gensym("text"), (t_method)keyboard_layout_new, NULL, sizeof(t_keyboard_layout), 0, 0); } #endif /* __APPLE__ */ --- NEW FILE: keyboard_layout-help.pd --- #N canvas 246 251 576 362 10; #X obj 206 158 keyboard_layout; #X obj 279 239 pddp/print; #X obj 92 247 pddp/print; #X msg 205 94 bang; #X msg 233 125 menu; #X connect 0 0 2 0; #X connect 0 1 1 0; #X connect 3 0 0 0; #X connect 4 0 0 0; --- NEW FILE: keyboard_layout.libs --- -framework Carbon

1 0

externals/tkwidgets checkbutton.c, 1.12, 1.13 checkbutton-help.pd, 1.5, 1.6
by Hans-Christoph Steiner 27 Nov '07

27 Nov '07

Update of /cvsroot/pure-data/externals/tkwidgets In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv645 Modified Files: checkbutton.c checkbutton-help.pd Log Message: - added [query id( message to get the Tk ID of the checkbutton widget so people can do Tcl madness directly using [sys_gui] Index: checkbutton.c =================================================================== RCS file: /cvsroot/pure-data/externals/tkwidgets/checkbutton.c,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** checkbutton.c 26 Nov 2007 23:38:01 -0000 1.12 --- checkbutton.c 27 Nov 2007 06:07:07 -0000 1.13 *************** *** 22,26 **** /* TODO rectify char and pixel widths/heights ug */ ! /* TODO bind to <Configure> so that things are redrawn when the text changes */ /* TODO add float method to set state based on == 0 and everything else */ --- 22,26 ---- /* TODO rectify char and pixel widths/heights ug */ ! /* TODO bind to <Configure> so that things are redrawn when the label changes */ /* TODO add float method to set state based on == 0 and everything else */ *************** *** 103,106 **** --- 103,112 ---- }; + /* -------------------- common symbols to preload --------------------------- */ + + static t_symbol *id_symbol; + static t_symbol *query_callback_symbol; + static t_symbol *size_symbol; + /* -------------------- function prototypes --------------------------------- */ *************** *** 151,161 **** /* --------------------- query functions ------------------------------------ */ static void query_size(t_checkbutton *x) { t_atom coords[3]; ! SETSYMBOL(coords, gensym("size")); SETFLOAT(coords + 1, (t_float)x->width); SETFLOAT(coords + 2, (t_float)x->height); ! checkbutton_query_callback(x, gensym("query_callback"), 3, coords); } --- 157,176 ---- /* --------------------- query functions ------------------------------------ */ + static void query_id(t_checkbutton *x) + { + t_atom id[2]; + t_symbol *widget_id = x->widget_id; + SETSYMBOL(id, id_symbol); + SETSYMBOL(id + 1, widget_id); + checkbutton_query_callback(x, query_callback_symbol, 2, id); + } + static void query_size(t_checkbutton *x) { t_atom coords[3]; ! SETSYMBOL(coords, size_symbol); SETFLOAT(coords + 1, (t_float)x->width); SETFLOAT(coords + 2, (t_float)x->height); ! checkbutton_query_callback(x, query_callback_symbol, 3, coords); } *************** *** 168,174 **** sizeof(checkbutton_tk_options)/sizeof(char *), checkbutton_tk_options); query_size(x); } ! else if(s == gensym("size")) query_size(x); else --- 183,192 ---- sizeof(checkbutton_tk_options)/sizeof(char *), checkbutton_tk_options); + query_id(x); query_size(x); } ! else if(s == id_symbol) ! query_id(x); ! else if(s == size_symbol) query_size(x); else *************** *** 434,437 **** --- 452,460 ---- class_addbang(checkbutton_class, (t_method)checkbutton_bang_output); class_addfloat(checkbutton_class, (t_method)checkbutton_float_output); + + /* common symbols to preload */ + id_symbol = gensym("id"); + query_callback_symbol = gensym("query_callback"); + size_symbol = gensym("size"); /* methods for pd space */ *************** *** 449,453 **** gensym("output"), A_DEFFLOAT, 0); class_addmethod(checkbutton_class, (t_method)checkbutton_query_callback, ! gensym("query_callback"), A_GIMME, 0); class_addmethod(checkbutton_class, (t_method)checkbutton_store_callback, gensym("store_callback"), A_GIMME, 0); --- 472,476 ---- gensym("output"), A_DEFFLOAT, 0); class_addmethod(checkbutton_class, (t_method)checkbutton_query_callback, ! query_callback_symbol, A_GIMME, 0); class_addmethod(checkbutton_class, (t_method)checkbutton_store_callback, gensym("store_callback"), A_GIMME, 0); Index: checkbutton-help.pd =================================================================== RCS file: /cvsroot/pure-data/externals/tkwidgets/checkbutton-help.pd,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** checkbutton-help.pd 24 Nov 2007 17:39:44 -0000 1.5 --- checkbutton-help.pd 27 Nov 2007 06:07:07 -0000 1.6 *************** *** 1,28 **** ! #N canvas 13 257 467 404 10; ! #X obj 166 173 checkbutton 90 20; ! #X msg 20 111 query; ! #X obj 263 255 print QUERY; ! #X msg 24 80 query size; ! #X obj 144 168 cnv 15 160 80 empty empty empty 20 12 0 14 -233017 -66577 0; ! #X obj 69 259 print DATA; ! #X msg 204 144 cursor gumby; ! #X obj 155 262 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; ! #X msg 192 121 text gumby; ! #X msg 159 53 size 90 20; ! #X msg 184 102 text "blah blah"; #X obj 51 337 pddp/pddplink http://tcl.tk/man/tcl8.4/TkCmd/checkbutton.htm ; ! #X msg 141 21 onvalue 5; ! #X msg 347 116 fg blue; ! #X msg 349 138 bg pink; ! #X msg 367 188 anchor w; ! #X msg 116 117 bang; ! #X obj 127 94 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; ! #X msg 125 3 offvalue 3; ! #X msg 172 78 options; ! #X msg 29 140 set 5; #X connect 0 0 5 0; #X connect 0 0 7 0; --- 1,28 ---- ! #N canvas 12 208 467 404 10; ! #X obj 171 211 checkbutton 90 20; ! #X msg 20 131 query; ! #X obj 263 275 print QUERY; ! #X msg 24 100 query size; ! #X obj 144 188 cnv 15 160 80 empty empty empty 20 12 0 14 -233017 -66577 0; ! #X obj 69 279 print DATA; ! #X msg 204 164 cursor gumby; ! #X obj 155 282 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; ! #X msg 192 141 text gumby; ! #X msg 159 73 size 90 20; ! #X msg 184 122 text "blah blah"; #X obj 51 337 pddp/pddplink http://tcl.tk/man/tcl8.4/TkCmd/checkbutton.htm ; ! #X msg 141 41 onvalue 5; ! #X msg 347 136 fg blue; ! #X msg 349 158 bg pink; ! #X msg 348 182 anchor w; ! #X msg 116 137 bang; ! #X obj 127 114 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; ! #X msg 125 23 offvalue 3; ! #X msg 172 98 options; ! #X msg 29 160 set 1; #X connect 0 0 5 0; #X connect 0 0 7 0;

1 0

externals/tkwidgets text-help.pd, 1.4, 1.5 text-test.pd, 1.5, 1.6 text.c, 1.19, 1.20
by Hans-Christoph Steiner 27 Nov '07

27 Nov '07

Update of /cvsroot/pure-data/externals/tkwidgets In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32405 Modified Files: text-help.pd text-test.pd text.c Log Message: - created text_binbuf to store the text when the text widget doesn't exist so that loadbanging [set( messages can work. The same logic needs to be applied to the options messages too... Index: text-test.pd =================================================================== RCS file: /cvsroot/pure-data/externals/tkwidgets/text-test.pd,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** text-test.pd 22 Nov 2007 02:53:22 -0000 1.5 --- text-test.pd 27 Nov 2007 06:05:48 -0000 1.6 *************** *** 1,51 **** ! #N canvas 137 196 721 672 10; ! #X obj 256 77 text 400 200 1; ! #X msg 47 29 size 100 100; ! #X obj 48 470 text 130 60 0; ! #X msg 130 30 size 400 200; ! #X obj 310 11 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 ! 1; ! #X msg 655 333; ! #X msg 23 245 highlightthickness \$1; ! #X obj 26 219 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 ! -1 -1 0 1; ! #X msg 49 290 padx \$1; ! #X obj 52 269 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 ! -1 -1 0 1; ! #X msg 110 405 font "Lucida Sans" 18 bold; ! #X msg 124 429 font Arial 16; ! #X obj 200 542 print QUERY; ! #X floatatom 309 550 5 0 0 0 - - -; ! #X obj 309 526 route highlightthickness font; ! #X obj 396 554 pddp/print; ! #X obj 309 572 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 ! -1 -1; ! #X msg 68 321 query highlightthickness; ! #X msg 78 345 query; ! #X msg 309 31 scrollbars \$1; ! #X msg 85 367 query size; ! #X msg 342 369; ! #X obj 310 335 prepend set; ! #X msg 250 41 bang; ! #X connect 0 0 22 0; ! #X connect 0 1 5 0; #X connect 1 0 0 0; ! #X connect 2 1 14 0; ! #X connect 2 1 12 0; ! #X connect 3 0 0 0; ! #X connect 4 0 19 0; #X connect 6 0 2 0; ! #X connect 7 0 6 0; ! #X connect 8 0 2 0; ! #X connect 9 0 8 0; ! #X connect 10 0 2 0; ! #X connect 11 0 2 0; ! #X connect 13 0 16 0; ! #X connect 14 0 13 0; ! #X connect 14 1 15 0; ! #X connect 17 0 2 0; ! #X connect 18 0 2 0; ! #X connect 19 0 0 0; ! #X connect 20 0 2 0; ! #X connect 22 0 21 0; ! #X connect 23 0 0 0; --- 1,21 ---- ! #N canvas 88 197 538 519 10; ! #X obj 165 127 text 227 97 1; ! #X msg 174 40 bang; ! #X msg 289 83 key \$1; ! #X msg 273 48 123; ! #X msg 305 48 124; ! #X msg 335 48 125; ! #X msg 242 49 10; ! #X msg 368 47 92; ! #X obj 177 367 text 200 60 0; ! #X obj 190 283 loadbang; ! #X msg 182 319 set blah blah blah; #X connect 1 0 0 0; ! #X connect 2 0 0 0; ! #X connect 3 0 2 0; ! #X connect 4 0 2 0; ! #X connect 5 0 2 0; #X connect 6 0 2 0; ! #X connect 7 0 2 0; ! #X connect 9 0 10 0; ! #X connect 10 0 8 0; Index: text.c =================================================================== RCS file: /cvsroot/pure-data/externals/tkwidgets/text.c,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** text.c 27 Nov 2007 05:22:32 -0000 1.19 --- text.c 27 Nov 2007 06:05:48 -0000 1.20 *************** *** 24,28 **** #include "shared/tkwidgets.h" ! /* TODO: set message doesnt work with a loadbang */ /* TODO: window name "handle1376fc00" already exists in parent */ /* TODO: figure out window vs. text width/height */ --- 24,28 ---- #include "shared/tkwidgets.h" ! /* TODO: append options messages to options_binbuf if not visible */ /* TODO: window name "handle1376fc00" already exists in parent */ /* TODO: figure out window vs. text width/height */ *************** *** 49,52 **** --- 49,53 ---- t_glist* x_glist; /* glist that owns this widget */ t_binbuf* options_binbuf;/* binbuf to save options state in */ + t_binbuf* text_binbuf; /* store text on copy/paste and [loadbang] set*/ int width; *************** *** 207,210 **** --- 208,213 ---- static void drawme(t_textwidget *x, t_glist *glist) { + char *buf; + int bufsize; DEBUG(post("drawme: firsttime %d canvas %lx glist %lx", x->x_canvas, glist);); set_tkwidgets_ids(x,glist_getcanvas(glist)); *************** *** 222,225 **** --- 225,232 ---- x->width, x->height); tkwidgets_restore_options(x->widget_id, x->options_binbuf); + binbuf_gettext(x->text_binbuf, &buf, &bufsize); + buf[bufsize] = 0; // binbuf_gettext() doesn't terminate the string + post("%s insert end {%s}\n", x->widget_id->s_name, buf); + sys_vgui("%s insert end {%s}\n", x->widget_id->s_name, buf); } *************** *** 469,474 **** DEBUG(post("textwidget_set");); ! textwidget_clear(x); ! textwidget_append(x, s, argc, argv); } --- 476,489 ---- DEBUG(post("textwidget_set");); ! if(glist_isvisible(x->x_glist)) ! { ! textwidget_clear(x); ! textwidget_append(x, s, argc, argv); ! } ! else ! { ! binbuf_clear(x->text_binbuf); ! binbuf_add(x->text_binbuf, argc, argv); ! } } *************** *** 669,672 **** --- 684,688 ---- x->options_binbuf = binbuf_new(); + x->text_binbuf = binbuf_new(); x->x_selected = 0; Index: text-help.pd =================================================================== RCS file: /cvsroot/pure-data/externals/tkwidgets/text-help.pd,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** text-help.pd 27 Nov 2007 05:22:31 -0000 1.4 --- text-help.pd 27 Nov 2007 06:05:48 -0000 1.5 *************** *** 1,8 **** ! #N canvas 343 45 785 704 10; #X obj 52 -43 text 130 60 0; #X obj 53 -193 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 12 65 print; ! #X msg 89 -178 clear; #X msg 107 -157 set one two three four five six; #X obj 36 142 text 130 60 0; --- 1,8 ---- ! #N canvas 245 42 785 704 10; #X obj 52 -43 text 130 60 0; #X obj 53 -193 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 12 65 print; ! #X msg 78 -197 clear; #X msg 107 -157 set one two three four five six; #X obj 36 142 text 130 60 0; *************** *** 173,176 **** --- 173,177 ---- #X connect 14 0 0 0; #X restore 199 -200 pd adding with the key message; + #X obj 107 -177 loadbang; #X connect 0 0 2 0; #X connect 0 0 7 0; *************** *** 245,246 **** --- 246,248 ---- #X connect 92 0 88 0; #X connect 93 0 88 0; + #X connect 95 0 4 0;

1 0

externals/tkwidgets text-help.pd, 1.3, 1.4 text.c, 1.18, 1.19
by Hans-Christoph Steiner 27 Nov '07

27 Nov '07

Update of /cvsroot/pure-data/externals/tkwidgets In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15869 Modified Files: text-help.pd text.c Log Message: - added [query id( to get the Tk id string for the widget (i.e. .x6b1820.c.frame6b1b50.widget6b1b50) This will allow people to use [sys_gui] to send Tcl commands to the widget in order to manipulate the insert cursor and the tags, among other things. - made the [key( message work with all ASCII 127 except { arg, I need to find how on earth to escape it. Also, it would be good to support beyond ASCII 127, i.e. accents, umlauts, etc. Index: text.c =================================================================== RCS file: /cvsroot/pure-data/externals/tkwidgets/text.c,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -d -r1.18 -r1.19 *** text.c 26 Nov 2007 23:38:41 -0000 1.18 --- text.c 27 Nov 2007 05:22:32 -0000 1.19 *************** *** 28,31 **** --- 28,34 ---- /* TODO: figure out window vs. text width/height */ /* TODO: add x scrollbar */ + /* TODO: make "insert" function based on the text widget "insert" */ + /* TODO: make [key( support chars > 127 */ + #define TEXT_DEFAULT_COLOR "grey90" *************** *** 110,124 **** /* common symbols to preload */ - static t_symbol *scrollbars_symbol; - static t_symbol *size_symbol; static t_symbol *backspace_symbol; ! static t_symbol *return_symbol; ! static t_symbol *space_symbol; ! static t_symbol *tab_symbol; static t_symbol *escape_symbol; static t_symbol *left_symbol; static t_symbol *right_symbol; static t_symbol *up_symbol; - static t_symbol *down_symbol; /* -------------------- function prototypes --------------------------------- */ --- 113,129 ---- /* common symbols to preload */ static t_symbol *backspace_symbol; ! static t_symbol *down_symbol; static t_symbol *escape_symbol; + static t_symbol *id_symbol; static t_symbol *left_symbol; + static t_symbol *query_callback_symbol; + static t_symbol *return_symbol; static t_symbol *right_symbol; + static t_symbol *scrollbars_symbol; + static t_symbol *size_symbol; + static t_symbol *space_symbol; + static t_symbol *tab_symbol; static t_symbol *up_symbol; /* -------------------- function prototypes --------------------------------- */ *************** *** 129,132 **** --- 134,147 ---- /* -------------------- widget helper functions ----------------------------- */ + + static void query_id(t_textwidget *x) + { + t_atom id[2]; + t_symbol *widget_id = x->widget_id; + SETSYMBOL(id, id_symbol); + SETSYMBOL(id + 1, widget_id); + textwidget_query_callback(x, query_callback_symbol, 2, id); + } + static void query_scrollbars(t_textwidget *x) { *************** *** 134,138 **** SETSYMBOL(state, scrollbars_symbol); SETFLOAT(state + 1, (t_float)x->have_scrollbars); ! textwidget_query_callback(x, gensym("query_callback"), 2, state); } --- 149,153 ---- SETSYMBOL(state, scrollbars_symbol); SETFLOAT(state + 1, (t_float)x->have_scrollbars); ! textwidget_query_callback(x, query_callback_symbol, 2, state); } *************** *** 143,147 **** SETFLOAT(coords + 1, (t_float)x->width); SETFLOAT(coords + 2, (t_float)x->height); ! textwidget_query_callback(x, gensym("query_callback"), 3, coords); } --- 158,162 ---- SETFLOAT(coords + 1, (t_float)x->width); SETFLOAT(coords + 2, (t_float)x->height); ! textwidget_query_callback(x, query_callback_symbol, 3, coords); } *************** *** 421,448 **** DEBUG(post("textwidget_key");); t_symbol *tmp_symbol = s; /* <-- this gets rid of the unused variable warning */ ! t_int tmp_int; tmp_symbol = atom_getsymbolarg(0, argc, argv); if(tmp_symbol == &s_) { ! tmp_int = (t_int) atom_getfloatarg(0, argc , argv); ! if(tmp_int < 10) ! { ! sys_vgui("%s insert end %d\n", x->widget_id->s_name, tmp_int); ! } ! else if(tmp_int == 10) ! { ! sys_vgui("%s insert end {\n}\n", x->widget_id->s_name); ! } ! else ! { ! sys_vgui("%s insert end [format \"%c\" %d]\n", x->widget_id->s_name, tmp_int); ! } } else { ! sys_vgui("%s insert end %s\n", x->widget_id->s_name, tmp_symbol->s_name ); } ! sys_vgui("%s yview end-2char \n", x->widget_id->s_name ); } --- 436,465 ---- DEBUG(post("textwidget_key");); t_symbol *tmp_symbol = s; /* <-- this gets rid of the unused variable warning */ ! char charbuf; tmp_symbol = atom_getsymbolarg(0, argc, argv); if(tmp_symbol == &s_) + charbuf = (t_int) atom_getfloatarg(0, argc , argv); + else + charbuf = tmp_symbol->s_name[0]; + if(charbuf < 10) { ! sys_vgui("%s insert end %d\n", x->widget_id->s_name, charbuf); } else { ! switch(charbuf) ! { ! case '\\': ! sys_vgui("%s insert end \"\\\\\"\n", x->widget_id->s_name); break; ! case '{': ! sys_vgui("%s insert end {\\{}\n", x->widget_id->s_name); break; ! case '}': ! sys_vgui("%s insert end \"}\"\n", x->widget_id->s_name); break; ! default: ! sys_vgui("%s insert end {%c}\n", x->widget_id->s_name, charbuf); ! } } ! sys_vgui("%s yview end-2char\n", x->widget_id->s_name ); } *************** *** 471,477 **** --- 488,497 ---- sizeof(textwidget_tk_options)/sizeof(char *), textwidget_tk_options); + query_id(x); query_scrollbars(x); query_size(x); } + else if(s == id_symbol) + query_id(x); else if(s == scrollbars_symbol) query_scrollbars(x); *************** *** 731,744 **** /* commonly used symbols */ - size_symbol = gensym("size"); - scrollbars_symbol = gensym("scrollbars"); backspace_symbol = gensym("backspace"); ! return_symbol = gensym("return"); ! space_symbol = gensym("space"); ! tab_symbol = gensym("tab"); escape_symbol = gensym("escape"); left_symbol = gensym("left"); right_symbol = gensym("right"); up_symbol = gensym("up"); - down_symbol = gensym("down"); } --- 751,766 ---- /* commonly used symbols */ backspace_symbol = gensym("backspace"); ! down_symbol = gensym("down"); escape_symbol = gensym("escape"); + id_symbol = gensym("id"); left_symbol = gensym("left"); + query_callback_symbol = gensym("query_callback"); + return_symbol = gensym("return"); right_symbol = gensym("right"); + size_symbol = gensym("size"); + scrollbars_symbol = gensym("scrollbars"); + space_symbol = gensym("space"); + tab_symbol = gensym("tab"); up_symbol = gensym("up"); } Index: text-help.pd =================================================================== RCS file: /cvsroot/pure-data/externals/tkwidgets/text-help.pd,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** text-help.pd 24 Nov 2007 05:57:15 -0000 1.3 --- text-help.pd 27 Nov 2007 05:22:31 -0000 1.4 *************** *** 78,82 **** #X msg 202 250 gobbler; #X obj 404 -212 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 10 -262144 ! -1 -1 200 1; #X obj 470 -90 tgl 15 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0 1; --- 78,82 ---- #X msg 202 250 gobbler; #X obj 404 -212 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 10 -262144 ! -1 -1 0 1; #X obj 470 -90 tgl 15 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0 1; *************** *** 100,104 **** #X msg 582 -192 relief \$1; #X msg 582 -58 wrap \$1; ! #X msg 328 -70 insertwidth \$1; #X msg 557 305 undo \$1; #X msg 652 304 state \$1; --- 100,104 ---- #X msg 582 -192 relief \$1; #X msg 582 -58 wrap \$1; ! #X msg 329 -70 insertwidth \$1; #X msg 557 305 undo \$1; #X msg 652 304 state \$1; *************** *** 142,145 **** --- 142,176 ---- #X msg 435 75 grey; #X msg 471 75 black; + #N canvas 410 182 450 300 adding 0; + #X obj 90 229 text 200 60 0; + #X text 53 23 You can add text one character at a time using the "key" + message. It works either with the character itself or the ASCII value + of the character:; + #X msg 90 102 key \$1; + #X obj 94 77 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 + -1 -1 0 1; + #X msg 126 202 key "; + #X msg 169 202 key a; + #X msg 215 202 key B; + #X msg 145 102 key 10; + #X msg 259 202 key [; + #X msg 145 122 key 32; + #X text 198 103 carriage return; + #X text 198 122 space; + #X msg 145 142 key 100; + #X text 198 142 letter "d"; + #X msg 145 163 key 92; + #X text 199 161 backslash; + #X connect 2 0 0 0; + #X connect 3 0 2 0; + #X connect 4 0 0 0; + #X connect 5 0 0 0; + #X connect 6 0 0 0; + #X connect 7 0 0 0; + #X connect 8 0 0 0; + #X connect 9 0 0 0; + #X connect 12 0 0 0; + #X connect 14 0 0 0; + #X restore 199 -200 pd adding with the key message; #X connect 0 0 2 0; #X connect 0 0 7 0;

1 0

scripts parse-help-patches.pl,1.8,1.9
by Hans-Christoph Steiner 27 Nov '07

27 Nov '07

Update of /cvsroot/pure-data/scripts In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6546 Modified Files: parse-help-patches.pl Log Message: this is the script used for the first Japanese import Index: parse-help-patches.pl =================================================================== RCS file: /cvsroot/pure-data/scripts/parse-help-patches.pl,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** parse-help-patches.pl 14 Nov 2007 17:09:15 -0000 1.8 --- parse-help-patches.pl 27 Nov 2007 04:52:11 -0000 1.9 *************** *** 75,112 **** my $caption = ""; - #------------------------------------------------------------------------------# ! # wikipedia terms - Russian/Русский ! my $stub = "Заготовка"; ! my $template = "Шаблон"; ! my $category = "Категория"; ## или раздел ? ! my $infobox = "Инфорамка"; - # термины pdpedia - my $objectclass = "Объект-класс"; - my $inlets = "Впуски"; ## по словарю а. мюллера - my $outlets = "Выпуски"; - my $arguments = "Параметры"; - my $messages = "Сообщения"; # infobox ! my $name = "Название"; ! my $description = "Описание"; ! my $abbreviation = "Сокращение"; ! my $library = "Библиотека"; ! my $author = "Автор"; ! my $developer = "Разработчик"; ! my $releaseVersion = "Версия релиза"; ! my $releaseDate = "Дата выпуска"; ! my $dependencies = "Зависимости"; ! my $license = "Лицензия"; ! my $website = "Домашняя страница"; ! my $programmingLanguage = "Язык программирования"; ! my $platform = "Платформа"; ! my $operatingSystem = "Операционная Система"; ! my $language = "Язык"; ! my $dataType = "Тип данных"; ! my $distribution = "Дистрибутивы"; ! my $status = "Статус"; --- 75,121 ---- my $caption = ""; #------------------------------------------------------------------------------# ! # Japanese/Nihongo/日本語 ! ! # wikipedia terms ! my $stub = "スタブ"; ! my $template = "テンプレート"; ! my $category = "カテゴリー"; ! my $infobox = "Infobox"; ! my $topLevel = "トップレベル"; ! ! ! # pdpedia terms ! my $objectclass = "オブジェクト・クラス"; ! ! ! # page headers ! my $inlets = "インレット"; ! my $outlets = "アウトレット"; ! my $arguments = "引数"; ! my $messages = "メッセージ"; # infobox ! my $name = "名前"; ! my $description = "説明"; ! my $abbreviation = "省略形"; ! my $library = "ライブラリ"; ! my $author = "作者"; ! my $developer = "開発者"; ! my $releaseVersion = "リリース・バージョン"; ! my $releaseDate = "リリース日付"; ! my $dependencies = "依存関係"; ! my $license = "ライセンス"; ! my $website = "ウェブサイト"; ! my $programmingLanguage = "プログラミング言語"; ! my $platform = "プラットフォーム"; ! my $operatingSystem = "OS"; ! my $language = "言語"; ! my $dataType = "データ型"; ! my $distribution = "ディストリビューション"; ! my $status = "ステータス"; ! ! *************** *** 234,238 **** print(OBJECTCLASS "[[nl:$pageName]]\n"); print(OBJECTCLASS "[[pt:$pageName]]\n"); ! # print(OBJECTCLASS "[[ru:$pageName]]\n"); print(OBJECTCLASS "[[tr:$pageName]]\n"); print(OBJECTCLASS "\n\n"); --- 243,247 ---- print(OBJECTCLASS "[[nl:$pageName]]\n"); print(OBJECTCLASS "[[pt:$pageName]]\n"); ! print(OBJECTCLASS "[[ru:$pageName]]\n"); print(OBJECTCLASS "[[tr:$pageName]]\n"); print(OBJECTCLASS "\n\n");

1 0

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 November 2007