Pd-cvs March 2008

pd-cvs@lists.iem.at

20 participants
221 discussions

SF.net SVN: pure-data: [9612] trunk/externals/mrpeach/net/tcpserver-help.pd
by mrpeach＠users.sourceforge.net 20 Mar '08

20 Mar '08

Revision: 9612 http://pure-data.svn.sourceforge.net/pure-data/?rev=9612&view=rev Author: mrpeach Date: 2008-03-20 08:57:09 -0700 (Thu, 20 Mar 2008) Log Message: ----------- Updated with dump message Modified Paths: -------------- trunk/externals/mrpeach/net/tcpserver-help.pd Modified: trunk/externals/mrpeach/net/tcpserver-help.pd =================================================================== --- trunk/externals/mrpeach/net/tcpserver-help.pd 2008-03-20 15:50:26 UTC (rev 9611) +++ trunk/externals/mrpeach/net/tcpserver-help.pd 2008-03-20 15:57:09 UTC (rev 9612) @@ -1,119 +1,128 @@ -#N canvas 54 184 1138 623 12; -#X msg 173 7 print; -#X obj 136 144 tcpserver 9997; -#X floatatom 176 236 5 0 0 0 - - -; -#X floatatom 216 171 5 0 0 0 - - -; -#X obj 257 190 unpack 0 0 0 0; -#X floatatom 257 213 3 0 0 0 - - -; -#X floatatom 297 213 3 0 0 0 - - -; -#X floatatom 337 213 3 0 0 0 - - -; -#X floatatom 378 213 3 0 0 0 - - -; -#X text 214 212 from; -#X text 229 235 connections; -#X obj 29 240 print received; -#X msg 173 61 client 1 1 2 3; -#X msg 173 34 broadcast 1 2 3; -#X text 225 8 list of connections; -#X text 315 34 send to all clients; -#X text 306 61 send to client 1; -#X text 129 171 on socket; -#X msg 173 88 send 504 1 2 3; -#X text 306 88 send to client on socket 504; -#X msg 589 -278 client 1 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 -18 19; -#X msg 589 -255 client 1 20 21 22 23 24 25 26 27 28 29 30 31 32 33 -34 35 36 37 38 39; -#X msg 589 -217 client 1 40 41 42 43 44 45 46 47 48 49 50 51 52 53 -54 55 56 57 58 59; -#X msg 589 -179 client 1 60 61 62 63 64 65 66 67 68 69 70 71 72 73 -74 75 76 77 78 79; -#X msg 589 -141 client 1 80 81 82 83 84 85 86 87 88 89 90 91 92 93 -94 95 96 97 98 99; -#X msg 589 -103 client 1 100 101 102 103 104 105 106 107 108 109 110 -111 112 113 114 115 116 117 118 119; -#X msg 589 -65 client 1 120 121 122 123 124 125 126 127 138 139 140 -141 142 143 144 145 146 147 148 149; -#X msg 589 -27 client 1 150 151 152 153 154 155 156 157 158 159 160 -161 162 163 164 165 166 167 168 169; -#X msg 589 11 client 1 170 171 172 173 174 175 176 177 178 179 180 -181 182 183 184 185 186 187 188 189; -#X msg 589 49 client 1 190 191 192 193 194 195 196 197 198 199 200 -201 202 203 204 205 206 207 208 209; -#X msg 589 87 client 1 210 211 212 213 214 215 216 217 218 219 220 -221 222 223 224 225 226 227 228 229; -#X msg 589 125 client 1 230 231 232 233 234 235 236 237 238 239 240 -241 242 243 244 245 246 247 248 249; -#X msg 589 163 client 1 250 251 252 253 254 255; -#X obj 24 -245 openpanel; -#X obj 24 -264 bng 15 250 50 0 empty empty empty 17 7 0 10 -24198 -241291 --1; -#X text 324 -291 send a file; -#X text 106 -246 ...any file; -#X msg -9 -290 client 1 ../doc/5.reference/test.txt; -#X msg 24 -221 client 1 \$1; -#X msg 166 -54 10 1 2 43; -#X text 256 -53 'send' prefix is optional; -#X text 187 -32 (the first number is socket number); -#X msg 194 -115 disconnectsocket \$1; -#X msg 91 -88 disconnectclient \$1; -#X obj 589 188 s toserver; -#X obj 157 121 r toserver; -#X floatatom 113 -156 5 0 0 0 - - -; -#X obj 91 -137 f; -#X obj 91 -156 bng 15 250 50 0 empty empty empty 17 7 0 10 -258699 --241291 -1; -#X floatatom 216 -156 5 0 0 0 - - -; -#X obj 194 -137 f; -#X obj 194 -156 bng 15 250 50 0 empty empty empty 17 7 0 10 -258699 --241291 -1; -#X text 62 -175 disconnect by socket or client number; -#X text 589 -303 tcpserver sends and receives bytes on [0...255]; -#X text 610 246 2007/08/02 Martin Peach; -#X text 269 143 argument is port number; -#X text 27 263 Received messages are output as lists of bytes; -#X text 26 281 ***WARNING*** Attempting to print long messages can -hang pd!; -#X obj 29 218 spigot; -#X obj 78 198 tgl 15 0 empty empty enable_print 17 7 0 10 -24198 -258699 --258699 1 1; -#X connect 0 0 1 0; -#X connect 1 0 58 0; -#X connect 1 1 2 0; -#X connect 1 2 3 0; -#X connect 1 3 4 0; -#X connect 4 0 5 0; -#X connect 4 1 6 0; -#X connect 4 2 7 0; -#X connect 4 3 8 0; -#X connect 12 0 1 0; -#X connect 13 0 1 0; -#X connect 18 0 1 0; -#X connect 20 0 44 0; -#X connect 21 0 44 0; -#X connect 22 0 44 0; -#X connect 23 0 44 0; -#X connect 24 0 44 0; -#X connect 25 0 44 0; -#X connect 26 0 44 0; -#X connect 27 0 44 0; -#X connect 28 0 44 0; -#X connect 29 0 44 0; -#X connect 30 0 44 0; -#X connect 31 0 44 0; -#X connect 32 0 44 0; -#X connect 33 0 38 0; -#X connect 34 0 33 0; -#X connect 37 0 1 0; -#X connect 38 0 1 0; -#X connect 39 0 1 0; -#X connect 42 0 1 0; -#X connect 43 0 1 0; -#X connect 45 0 1 0; -#X connect 46 0 47 1; -#X connect 47 0 43 0; -#X connect 48 0 47 0; -#X connect 49 0 50 1; -#X connect 50 0 42 0; -#X connect 51 0 50 0; -#X connect 58 0 11 0; -#X connect 59 0 58 1; +#N canvas 171 223 991 623 12; +#X msg 173 7 print; +#X floatatom 167 236 5 0 0 0 - - -; +#X floatatom 199 171 5 0 0 0 - - -; +#X obj 257 190 unpack 0 0 0 0; +#X floatatom 257 213 3 0 0 0 - - -; +#X floatatom 288 213 3 0 0 0 - - -; +#X floatatom 320 213 3 0 0 0 - - -; +#X floatatom 354 213 3 0 0 0 - - -; +#X text 214 212 from; +#X text 209 235 connections; +#X obj 29 240 print received; +#X msg 173 61 client 1 1 2 3; +#X msg 173 34 broadcast 1 2 3; +#X text 225 8 list of connections; +#X text 296 34 send to all clients; +#X text 287 61 send to client 1; +#X text 129 171 on socket; +#X msg 173 88 send 504 1 2 3; +#X text 287 88 send to client on socket 504; +#X msg 508 -278 client 1 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 +18 19; +#X msg 508 -255 client 1 20 21 22 23 24 25 26 27 28 29 30 31 32 33 +34 35 36 37 38 39; +#X msg 508 -217 client 1 40 41 42 43 44 45 46 47 48 49 50 51 52 53 +54 55 56 57 58 59; +#X msg 508 -179 client 1 60 61 62 63 64 65 66 67 68 69 70 71 72 73 +74 75 76 77 78 79; +#X msg 508 -141 client 1 80 81 82 83 84 85 86 87 88 89 90 91 92 93 +94 95 96 97 98 99; +#X msg 508 -103 client 1 100 101 102 103 104 105 106 107 108 109 110 +111 112 113 114 115 116 117 118 119; +#X msg 508 -65 client 1 120 121 122 123 124 125 126 127 138 139 140 +141 142 143 144 145 146 147 148 149; +#X msg 508 -27 client 1 150 151 152 153 154 155 156 157 158 159 160 +161 162 163 164 165 166 167 168 169; +#X msg 508 11 client 1 170 171 172 173 174 175 176 177 178 179 180 +181 182 183 184 185 186 187 188 189; +#X msg 508 49 client 1 190 191 192 193 194 195 196 197 198 199 200 +201 202 203 204 205 206 207 208 209; +#X msg 508 87 client 1 210 211 212 213 214 215 216 217 218 219 220 +221 222 223 224 225 226 227 228 229; +#X msg 508 125 client 1 230 231 232 233 234 235 236 237 238 239 240 +241 242 243 244 245 246 247 248 249; +#X msg 508 163 client 1 250 251 252 253 254 255; +#X obj 39 -245 openpanel; +#X obj 39 -264 bng 15 250 50 0 empty empty empty 17 7 0 10 -24198 -241291 +-1; +#X text 250 -290 send a file; +#X text 121 -246 ...any file; +#X msg -9 -290 client 1 ../doc/5.reference/test.txt; +#X msg 39 -221 client 1 \$1; +#X msg 166 -54 10 1 2 43; +#X text 239 -54 'send' prefix is optional; +#X text 170 -33 (the first number is socket number); +#X msg 194 -115 disconnectsocket \$1; +#X msg 91 -88 disconnectclient \$1; +#X obj 508 188 s toserver; +#X obj 157 121 r toserver; +#X floatatom 113 -156 5 0 0 0 - - -; +#X obj 91 -137 f; +#X obj 91 -156 bng 15 250 50 0 empty empty empty 17 7 0 10 -258699 +-241291 -1; +#X floatatom 216 -156 5 0 0 0 - - -; +#X obj 194 -137 f; +#X obj 194 -156 bng 15 250 50 0 empty empty empty 17 7 0 10 -258699 +-241291 -1; +#X text 62 -175 disconnect by socket or client number; +#X text 508 -303 tcpserver sends and receives bytes on [0...255]; +#X text 243 143 argument is port number; +#X text 27 263 Received messages are output as lists of bytes; +#X text 26 281 ***WARNING*** Attempting to print long messages can +hang pd!; +#X obj 29 218 spigot; +#X obj 68 198 tgl 15 0 empty empty enable_print 17 7 0 10 -24198 -258699 +-258699 0 1; +#X msg 56 124 dump \$1; +#X obj 56 104 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +1; +#X text -12 54 dump received; +#X text -12 70 characters to main; +#X text -12 85 window in hexdump; +#X text -12 101 format:; +#X obj 136 144 tcpserver 9997; +#X text 529 246 2008/03/20 Martin Peach; +#X connect 0 0 64 0; +#X connect 3 0 4 0; +#X connect 3 1 5 0; +#X connect 3 2 6 0; +#X connect 3 3 7 0; +#X connect 11 0 64 0; +#X connect 12 0 64 0; +#X connect 17 0 64 0; +#X connect 19 0 43 0; +#X connect 20 0 43 0; +#X connect 21 0 43 0; +#X connect 22 0 43 0; +#X connect 23 0 43 0; +#X connect 24 0 43 0; +#X connect 25 0 43 0; +#X connect 26 0 43 0; +#X connect 27 0 43 0; +#X connect 28 0 43 0; +#X connect 29 0 43 0; +#X connect 30 0 43 0; +#X connect 31 0 43 0; +#X connect 32 0 37 0; +#X connect 33 0 32 0; +#X connect 36 0 64 0; +#X connect 37 0 64 0; +#X connect 38 0 64 0; +#X connect 41 0 64 0; +#X connect 42 0 64 0; +#X connect 44 0 64 0; +#X connect 45 0 46 1; +#X connect 46 0 42 0; +#X connect 47 0 46 0; +#X connect 48 0 49 1; +#X connect 49 0 41 0; +#X connect 50 0 49 0; +#X connect 56 0 10 0; +#X connect 57 0 56 1; +#X connect 58 0 64 0; +#X connect 59 0 58 0; +#X connect 64 0 56 0; +#X connect 64 1 1 0; +#X connect 64 2 2 0; +#X connect 64 3 3 0; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9611] trunk/externals/mrpeach/net/tcpserver.c
by mrpeach＠users.sourceforge.net 20 Mar '08

20 Mar '08

Revision: 9611 http://pure-data.svn.sourceforge.net/pure-data/?rev=9611&view=rev Author: mrpeach Date: 2008-03-20 08:50:26 -0700 (Thu, 20 Mar 2008) Log Message: ----------- Added dump message for hexdump of received characters to main window. Added #include <sys.types.h> for u_long define. Modified Paths: -------------- trunk/externals/mrpeach/net/tcpserver.c Modified: trunk/externals/mrpeach/net/tcpserver.c =================================================================== --- trunk/externals/mrpeach/net/tcpserver.c 2008-03-20 15:14:43 UTC (rev 9610) +++ trunk/externals/mrpeach/net/tcpserver.c 2008-03-20 15:50:26 UTC (rev 9611) @@ -31,7 +31,7 @@ #include "m_imp.h" #include "s_stuff.h" -//#include <sys/types.h> +#include <sys/types.h> //#include <stdarg.h> //#include <signal.h> //#include <fcntl.h> @@ -55,6 +55,10 @@ #include <winsock2.h> #endif +#ifdef _MSC_VER +#define snprintf sprintf_s +#endif + #define MAX_CONNECT 32 /* maximum number of connections */ #define INBUFSIZE 65536L /* was 4096: size of receiving data buffer */ #define MAX_UDP_RECEIVE 65536L /* longer than data in maximum UDP packet */ @@ -84,6 +88,7 @@ t_outlet *x_connectout; t_outlet *x_sockout; t_outlet *x_addrout; + t_int x_dump; // 1 = hexdump received bytes t_symbol *x_host[MAX_CONNECT]; t_int x_fd[MAX_CONNECT]; u_long x_addr[MAX_CONNECT]; @@ -114,7 +119,42 @@ static void *tcpserver_new(t_floatarg fportno); static void tcpserver_free(t_tcpserver *x); void tcpserver_setup(void); +static void tcpserver_dump(t_tcpserver *x, t_float dump); +static void tcpserver_hexdump(unsigned char *buf, long len); +static void tcpserver_dump(t_tcpserver *x, t_float dump) +{ + x->x_dump = (dump == 0)?0:1; +} + +static void tcpserver_hexdump(unsigned char *buf, long len) +{ +#define BYTES_PER_LINE 16 + char hexStr[(3*BYTES_PER_LINE)+1]; + char ascStr[BYTES_PER_LINE+1]; + long i, j, k = 0L; +#ifdef DEBUG + post("tcpserver_hexdump %d", len); +#endif + while (k < len) + { + for (i = j = 0; i < BYTES_PER_LINE; ++i, ++k, j+=3) + { + if (k < len) + { + snprintf(&hexStr[j], 4, "%02X ", buf[k]); + snprintf(&ascStr[i], 2, "%c", ((buf[k] >= 32) && (buf[k] <= 126))? buf[k]: '.'); + } + else + { // the last line + snprintf(&hexStr[j], 4, " "); + snprintf(&ascStr[i], 2, " "); + } + } + post ("%s%s", hexStr, ascStr); + } +} + static t_tcpserver_socketreceiver *tcpserver_socketreceiver_new(void *owner, t_tcpserver_socketnotifier notifier, t_tcpserver_socketreceivefn socketreceivefn) { @@ -162,6 +202,9 @@ c = *bp++ = inbuf[indx]; y->x_msgoutbuf[i].a_w.w_float = (float)c; } + + if (y->x_dump)tcpserver_hexdump(&inbuf[intail], i); + if (i > 1) outlet_list(y->x_msgout, &s_list, i, y->x_msgoutbuf); else outlet_float(y->x_msgout, y->x_msgoutbuf[0].a_w.w_float); @@ -701,6 +744,7 @@ class_addmethod(tcpserver_class, (t_method)tcpserver_client_send, gensym("client"), A_GIMME, 0); class_addmethod(tcpserver_class, (t_method)tcpserver_client_disconnect, gensym("disconnectclient"), A_DEFFLOAT, 0); class_addmethod(tcpserver_class, (t_method)tcpserver_socket_disconnect, gensym("disconnectsocket"), A_DEFFLOAT, 0); + class_addmethod(tcpserver_class, (t_method)tcpserver_dump, gensym("dump"), A_FLOAT, 0); class_addmethod(tcpserver_class, (t_method)tcpserver_broadcast, gensym("broadcast"), A_GIMME, 0); class_addlist(tcpserver_class, (t_method)tcpserver_send); } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9610] tags/pd/pd-0.41-4/
by eighthave＠users.sourceforge.net 20 Mar '08

20 Mar '08

Revision: 9610 http://pure-data.svn.sourceforge.net/pure-data/?rev=9610&view=rev Author: eighthave Date: 2008-03-20 08:14:43 -0700 (Thu, 20 Mar 2008) Log Message: ----------- tagging 0.41-4 Added Paths: ----------- tags/pd/pd-0.41-4/ Copied: tags/pd/pd-0.41-4 (from rev 9602, trunk/pd) This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9609] tags/pd/pd-0.41-3/
by eighthave＠users.sourceforge.net 20 Mar '08

20 Mar '08

Revision: 9609 http://pure-data.svn.sourceforge.net/pure-data/?rev=9609&view=rev Author: eighthave Date: 2008-03-20 08:07:52 -0700 (Thu, 20 Mar 2008) Log Message: ----------- tagging 0.41-3 Added Paths: ----------- tags/pd/pd-0.41-3/ Copied: tags/pd/pd-0.41-3 (from rev 9590, trunk/pd) This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9608] trunk/abstractions/Makefile
by lukeiannini＠users.sourceforge.net 20 Mar '08

20 Mar '08

Revision: 9608 http://pure-data.svn.sourceforge.net/pure-data/?rev=9608&view=rev Author: lukeiannini Date: 2008-03-20 07:10:26 -0700 (Thu, 20 Mar 2008) Log Message: ----------- adding pdmtl to makefile Modified Paths: -------------- trunk/abstractions/Makefile Modified: trunk/abstractions/Makefile =================================================================== --- trunk/abstractions/Makefile 2008-03-18 00:17:29 UTC (rev 9607) +++ trunk/abstractions/Makefile 2008-03-20 14:10:26 UTC (rev 9608) @@ -27,7 +27,7 @@ # # WARNING! this MUST be all on one line because the automatic package # building scripts rely on it being that way. -LIB_TARGETS = controctopus gyre jmmmp keyboardkeys la-kitchen list-abs memento nusmuk nqpoly nsend parazit pddp pdsvn pixeltango purepd rradical rtc-lib puremeasurement timestretch semento senderfruit sssad pd-wavelet +LIB_TARGETS = controctopus gyre jmmmp keyboardkeys la-kitchen list-abs memento nusmuk nqpoly nsend parazit pddp pdmtl pdsvn pixeltango purepd rradical rtc-lib puremeasurement timestretch semento senderfruit sssad pd-wavelet # in case anything needs to be compiled or processed somehow before installing all: @@ -304,6 +304,22 @@ # install -d $(examplesdir)/$(PDDP_NAME) #------------------------------------------------------------------------------- +# pdmtl +PDMTL_NAME = pdmtl +pdmtl_install: + install -d $(objectsdir)/$(PDMTL_NAME) + svn export --force $(abstractions_src)/pdmtl \ + $(objectsdir)/$(PDMTL_NAME) + # mv $(shell find $(objectsdir)/$(PDMTL_NAME)/medias/ -mindepth 2 -type f) $(objectsdir)/$(PDMTL_NAME)/medias/ + $(scripts_src)/generate-libdir-metafile.sh $(objectsdir) $(PDMTL_NAME) \ + --author "PD Montreal List" \ + --license "GNU GPL" \ + --description "PD Montreal Abstractions" + install -d $(helpdir)/$(PDMTL_NAME) + install -p $(abstractions_src)/pdmtl/0.info.pd $(abstractions_src)/pdmtl/1.browser.pd \ + $(helpdir)/$(PDMTL_NAME) + +#------------------------------------------------------------------------------- # pdsvn PDSVN_NAME = pdsvn pdsvn_install: This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

autobuild: pd-extended debian-stable-powerpc 2008-03-19 06.30.05
by pd＠debian-stable-powerpc.idmi.poly.edu 19 Mar '08

19 Mar '08

/home/pd/auto-build/pd-extended/externals/iem/iem_tab/src/tab_conv.c:169: warning: unused parameter ‘x’ /home/pd/auto-build/pd-extended/externals/iem/iem_tab/src/tab_conv.c: In function ‘tab_conv_new’: /home/pd/auto-build/pd-extended/externals/iem/iem_tab/src/tab_conv.c:177: warning: unused variable ‘time’ /home/pd/auto-build/pd-extended/externals/iem/iem_tab/src/tab_conv.c:173: warning: unused parameter ‘s’ /home/pd/auto-build/pd-extended/externals/iem/iem_tab/src/tab_conv.c: In function ‘tab_conv_free’: /home/pd/auto-build/pd-extended/externals/iem/iem_tab/src/tab_conv.c:170: internal compiler error: Segmentation fault Please submit a full bug report, with preprocessed source if appropriate. See <URL:http://gcc.gnu.org/bugs.html> for instructions. For Debian GNU/Linux specific bug reporting instructions, see <URL:file:///usr/share/doc/gcc-4.1/README.Bugs>. The bug is not reproducible, so it is likely a hardware or OS problem. make[2]: *** [/home/pd/auto-build/pd-extended/externals/iem/iem_tab/src/tab_conv.o] Error 1 make[2]: Leaving directory `/home/pd/auto-build/pd-extended/externals' make[1]: *** [externals_install] Error 2 make[1]: Leaving directory `/home/pd/auto-build/pd-extended/packages' make: *** [install] Error 2 upload specs linux_make . deb Uploading /home/pd/auto-build/pd-extended/packages/linux_make/./Pd*.deb ls: /home/pd/auto-build/pd-extended/packages/linux_make/./Pd*.deb: No such file or directory

1 0

SF.net SVN: pure-data: [9607] branches/pd-extended/v0-40/pd/doc/3.audio. examples/I07.phase.vocoder.pd
by eighthave＠users.sourceforge.net 18 Mar '08

18 Mar '08

Revision: 9607 http://pure-data.svn.sourceforge.net/pure-data/?rev=9607&view=rev Author: eighthave Date: 2008-03-17 17:17:29 -0700 (Mon, 17 Mar 2008) Log Message: ----------- merged in changes from 0.41.2 Modified Paths: -------------- branches/pd-extended/v0-40/pd/doc/3.audio.examples/I07.phase.vocoder.pd Modified: branches/pd-extended/v0-40/pd/doc/3.audio.examples/I07.phase.vocoder.pd =================================================================== --- branches/pd-extended/v0-40/pd/doc/3.audio.examples/I07.phase.vocoder.pd 2008-03-18 00:16:27 UTC (rev 9606) +++ branches/pd-extended/v0-40/pd/doc/3.audio.examples/I07.phase.vocoder.pd 2008-03-18 00:17:29 UTC (rev 9607) @@ -1,8 +1,8 @@ -#N canvas 425 33 744 599 12; +#N canvas 164 25 744 599 12; #X floatatom 494 315 5 0 0 0 - transpo-set -; #X floatatom 167 383 3 0 0 0 - speed-set -; #X floatatom 55 385 7 0 0 0 - location-set -; -#N canvas 90 42 821 693 fft-analysis 0; +#N canvas 199 40 821 693 fft-analysis 0; #X obj 51 477 *~; #X obj 18 477 *~; #X obj 18 499 -~; @@ -39,7 +39,7 @@ #X obj 97 425 q8_rsqrt~; #N canvas 139 105 1006 799 read-windows 0; #X obj 18 693 *~; -#X obj 340 448 r window-size; +#X obj 364 448 r window-size; #X obj 156 300 f; #X obj 102 91 r window-size; #X obj 102 139 /; @@ -60,14 +60,14 @@ #X text 188 394 reading location (samples); #X obj 51 597 / 4; #X obj 288 245 * 0.01; -#X floatatom 340 498 7 0 0 0 - - -; -#X obj 340 474 *; -#X obj 499 365 r transpo; -#X obj 499 387 * 0.01; -#X obj 501 408 + 69; -#X obj 502 429 mtof; -#X obj 502 451 / 440; -#X obj 375 474 t b f; +#X floatatom 364 498 7 0 0 0 - - -; +#X obj 364 474 *; +#X obj 502 347 r transpo; +#X obj 502 369 * 0.01; +#X obj 504 390 + 69; +#X obj 505 411 mtof; +#X obj 505 433 / 440; +#X obj 399 474 t b f; #X obj 19 719 outlet~; #X obj 195 720 outlet~; #X obj 218 664 tabreceive~ \$0-hann; @@ -77,7 +77,7 @@ #X obj 768 508 r speed; #X msg 768 532 set \$1; #X obj 768 557 s speed-set; -#X text 411 498 stretched window size (samples); +#X text 432 498 stretched window size (samples); #X obj 877 507 r transpo; #X msg 877 533 set \$1; #X obj 877 558 s transpo-set; @@ -123,8 +123,8 @@ #X obj 845 684 r auto; #X obj 730 685 r no-detune; #X msg 730 707 \; detune 0; -#X text 326 275 loop to precess the location according; -#X text 325 291 to the "speed" parameter.; +#X text 321 280 loop to precess the location according; +#X text 320 296 to the "speed" parameter.; #X text 611 31 if location changes \, update number box; #X text 610 50 in main window via "location-set" \, but; #X text 613 69 taking care to limit frequency of updates.; @@ -136,6 +136,14 @@ #X text 496 527 "rewind" control takes us; #X text 499 545 to a location depending on; #X text 499 564 stretched window size.; +#X obj 593 457 t b f; +#X obj 617 395 samplerate~; +#X obj 593 348 r \$0-insamprate; +#X obj 593 418 /; +#X obj 505 455 * 1; +#X text 494 312 desired transposition and sample; +#X text 494 329 rate correction for soundfile; +#X obj 593 370 t f b; #X connect 0 0 30 0; #X connect 1 0 23 0; #X connect 2 0 11 0; @@ -171,7 +179,7 @@ #X connect 25 0 26 0; #X connect 26 0 27 0; #X connect 27 0 28 0; -#X connect 28 0 29 0; +#X connect 28 0 99 0; #X connect 29 0 23 0; #X connect 29 1 23 1; #X connect 32 0 5 1; @@ -216,6 +224,14 @@ #X connect 77 0 75 0; #X connect 79 0 78 0; #X connect 80 0 81 0; +#X connect 95 0 99 0; +#X connect 95 1 99 1; +#X connect 96 0 98 1; +#X connect 97 0 102 0; +#X connect 98 0 95 0; +#X connect 99 0 29 0; +#X connect 102 0 98 0; +#X connect 102 1 96 0; #X restore 109 133 pd read-windows; #X obj 137 543 tabsend~ prev-imag; #X obj 136 567 tabsend~ prev-real; @@ -363,8 +379,8 @@ #X obj 56 517 output~; #N canvas 0 110 565 454 hann-window 0; #N canvas 0 0 450 300 (subpatch) 0; -#X array \$0-hann 2048 float 0; -#X coords 0 1 2047 0 300 100 1; +#X array \$0-hann 4096 float 0; +#X coords 0 1 4095 0 300 100 1; #X restore 82 311 graph; #X obj 378 165 osc~; #X obj 378 190 *~ -0.5; @@ -413,8 +429,8 @@ #X restore 440 528 pd hann-window; #N canvas 388 86 694 447 insample 0; #N canvas 0 0 450 300 (subpatch) 0; -#X array \$0-sample 62079 float 0; -#X coords 0 1 62078 -1 400 150 1; +#X array \$0-sample 82301 float 0; +#X coords 0 1 82300 -1 400 150 1; #X restore 281 135 graph; #X obj 28 133 r read-sample; #X obj 28 184 unpack s f; @@ -485,7 +501,6 @@ #X obj 262 408 s rewind; #X msg 345 336 200; #X msg 345 358 100; -#X msg 345 380 20; #X text 386 335 contract; #X text 390 380 expand; #X obj 493 407 s lock; @@ -527,6 +542,7 @@ #X obj 535 460 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X text 466 458 file ->; +#X msg 345 380 20; #X connect 0 0 5 0; #X connect 1 0 21 0; #X connect 2 0 20 0; @@ -536,13 +552,13 @@ #X connect 14 0 16 0; #X connect 15 0 16 0; #X connect 17 0 11 0; -#X connect 19 0 29 0; +#X connect 19 0 28 0; #X connect 22 0 23 0; -#X connect 24 0 49 0; -#X connect 25 0 49 0; -#X connect 26 0 49 0; -#X connect 39 0 43 0; -#X connect 40 0 43 0; -#X connect 41 0 43 0; -#X connect 42 0 43 0; -#X connect 53 0 11 1; +#X connect 24 0 48 0; +#X connect 25 0 48 0; +#X connect 38 0 42 0; +#X connect 39 0 42 0; +#X connect 40 0 42 0; +#X connect 41 0 42 0; +#X connect 52 0 11 1; +#X connect 54 0 48 0; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9606] branches/pd-extended/v0-40/pd/doc/2.control. examples/24.loops.pd
by eighthave＠users.sourceforge.net 18 Mar '08

18 Mar '08

Revision: 9606 http://pure-data.svn.sourceforge.net/pure-data/?rev=9606&view=rev Author: eighthave Date: 2008-03-17 17:16:27 -0700 (Mon, 17 Mar 2008) Log Message: ----------- merged in changes from 0.41.2 Added Paths: ----------- branches/pd-extended/v0-40/pd/doc/2.control.examples/24.loops.pd Copied: branches/pd-extended/v0-40/pd/doc/2.control.examples/24.loops.pd (from rev 9605, trunk/pd/doc/2.control.examples/24.loops.pd) =================================================================== --- branches/pd-extended/v0-40/pd/doc/2.control.examples/24.loops.pd (rev 0) +++ branches/pd-extended/v0-40/pd/doc/2.control.examples/24.loops.pd 2008-03-18 00:16:27 UTC (rev 9606) @@ -0,0 +1,49 @@ +#N canvas 258 107 701 742 12; +#X obj 195 318 until; +#X obj 221 284 max 0; +#X floatatom 221 263 5 0 0 1 times - -; +#X text 229 234 times; +#X obj 195 342 print repetition; +#X msg 195 234 5; +#X obj 175 571 + 1; +#X obj 118 572 float; +#X obj 118 546 until; +#X obj 118 606 moses 10; +#X obj 233 558 bang; +#X obj 118 639 print number; +#X msg 118 524 bang; +#X msg 196 529 0; +#X text 241 529 reset; +#X text 277 560 stop "until" when counter reaches 10; +#X text 479 711 updated for Pd 0.41; +#X text 31 16 Looping with the "until" object; +#X text 52 47 It is sometimes desirable to make a loop without an embedded +delay (as in 06.more.counters.pd") but rather to make the entire loop +take place in the context of a single incoming message. The "until" +object is provided to make this possible.; +#X text 273 285 make nonnegative; +#X text 56 445 Conditional loops get started with a "bang" to until's +left inlet. Make sure you stop the loop with a "bang" to until's right +inlet \, otherwise it will try to run forever and Pd will freeze!; +#X text 48 131 "until" has two modes: It can either run automatically +for a certain number of times (a "counting" loop) or it can run forever +until stopped through its right inlet (a "conditional" loop).; +#X text 47 196 You can perform a counting loop by sending a positive +number to until:; +#X text 55 398 (As of version 0.41 \, "until" silently interprets negative +numbers to be equivalent to zero.); +#X text 62 667 In pseudo-code: "x=0 \; do print x++ until x>=10"; +#X text 57 368 In pseudo-code: "for i = 1 to 5 do print end"; +#X connect 0 0 4 0; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X connect 5 0 0 0; +#X connect 6 0 7 1; +#X connect 7 0 6 0; +#X connect 7 0 9 0; +#X connect 8 0 7 0; +#X connect 9 0 11 0; +#X connect 9 1 10 0; +#X connect 10 0 8 1; +#X connect 12 0 8 0; +#X connect 13 0 7 1; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9605] branches/pd-extended/v0-40/pd/doc/5.reference
by eighthave＠users.sourceforge.net 18 Mar '08

18 Mar '08

Revision: 9605 http://pure-data.svn.sourceforge.net/pure-data/?rev=9605&view=rev Author: eighthave Date: 2008-03-17 17:08:04 -0700 (Mon, 17 Mar 2008) Log Message: ----------- merged in changes from 0.41.2 Modified Paths: -------------- branches/pd-extended/v0-40/pd/doc/5.reference/help-intro.pd branches/pd-extended/v0-40/pd/doc/5.reference/my_canvas-help.pd branches/pd-extended/v0-40/pd/doc/5.reference/swap-help.pd branches/pd-extended/v0-40/pd/doc/5.reference/trigger-help.pd Added Paths: ----------- branches/pd-extended/v0-40/pd/doc/5.reference/declare-help.pd Copied: branches/pd-extended/v0-40/pd/doc/5.reference/declare-help.pd (from rev 9604, trunk/pd/doc/5.reference/declare-help.pd) =================================================================== --- branches/pd-extended/v0-40/pd/doc/5.reference/declare-help.pd (rev 0) +++ branches/pd-extended/v0-40/pd/doc/5.reference/declare-help.pd 2008-03-18 00:08:04 UTC (rev 9605) @@ -0,0 +1,33 @@ +#N canvas 103 177 618 583 12; +#X declare; +#X obj 48 10 declare; +#X text 120 11 - set environment for loading patch; +#X text 44 40 A declare object adds one or more directories to the +search path \, and/or pre-loads one or more libraries ("extensions") +to Pd in preparation for opening the patch from a file. Usage is "declare +[-flag value] [-flag value] ..." where the flag can be:; +#X text 31 182 -lib; +#X text 31 198 -stdlib; +#X text 31 146 -path; +#X text 31 162 -stdpath; +#X text 129 146 add to search path \, relative to the patch; +#X text 129 182 load a library \, relative to the patch; +#X text 129 199 load a library \, relative to Pd; +#X text 40 231 (for any of these you may use a full pathname such as +"/tmp/dir" or \, in Windows \, "C:/garbage" instead of a relative path). +; +#X text 39 293 For instance \, if you put abstractions and/or other +supporting files in a subdirectory "more" \, you can put an object +\, "declare -path more" to make sure Pd sees them when the patch is +loaded. Or \, if you have zexy installed in the directory extra/zexy +(in the Pd installation") you can get it using "declare -stdpath extra/zexy". +; +#X text 129 163 add to search path \, relative to Pd; +#X text 367 557 updated for Pd version 0.41; +#X text 42 395 WARNING: you might want to avoid putting "declare" statements +inside abstractions \, as their effects will extend to the calling +patch. As of version 0.41 \, "declare path" is ignored inside abstractions +\, although \, probably unwisely \, "-stdpath" takes effect (on the +calling patch as well as the abstraction.); +#X text 42 494 BUG: The name "-stdpath" is confusing \, as it has a +quite different effect from "-stdpath" on the pd command line.; Modified: branches/pd-extended/v0-40/pd/doc/5.reference/help-intro.pd =================================================================== --- branches/pd-extended/v0-40/pd/doc/5.reference/help-intro.pd 2008-03-17 20:52:14 UTC (rev 9604) +++ branches/pd-extended/v0-40/pd/doc/5.reference/help-intro.pd 2008-03-18 00:08:04 UTC (rev 9605) @@ -243,8 +243,7 @@ #X obj 18 3558 rzero~; #X text 118 3558 - raw real-valued one-zero filter; #X obj 18 3588 rzero_rev~; -#X obj 113 3588 rzero~; -#X text 166 3588 - time-reversed; +#X text 121 3588 - time-reversed; #X obj 18 3618 cpole~; #X obj 77 3618 czero~; #X text 214 3618 - corresponding complex-valued filters; Modified: branches/pd-extended/v0-40/pd/doc/5.reference/my_canvas-help.pd =================================================================== --- branches/pd-extended/v0-40/pd/doc/5.reference/my_canvas-help.pd 2008-03-17 20:52:14 UTC (rev 9604) +++ branches/pd-extended/v0-40/pd/doc/5.reference/my_canvas-help.pd 2008-03-18 00:08:04 UTC (rev 9605) @@ -1,25 +1,25 @@ -#N canvas 482 81 568 339 10; -#X obj 1 1 cnv 15 300 60 foo10_snd foo10_rcv my_canvas=cnv 63 37 192 +#N canvas 0 22 500 292 10; +#X obj 1 1 cnv 15 300 60 foo10_snd foo10_rcv my_canvas=cnv 63 37 0 17 -257472 -355 0; #X text 4 232 (c) musil(a)iem.kug.ac.at; #X text 46 245 IEM KUG; #N canvas 219 100 699 530 edit 0; #X obj 39 226 f; #X msg 17 205 bang; -#X floatatom 55 204 3 63 88; -#X floatatom 90 226 3 0 37; +#X floatatom 55 204 3 63 88 0 - - -; +#X floatatom 90 226 3 0 37 0 - - -; #X obj 39 249 pack 0 0; #X text 117 226 y-label; #X text 83 204 x-label; #X obj 297 281 f; #X msg 275 260 bang; -#X floatatom 313 259 3 -10 10; -#X floatatom 348 281 3 -10 10; +#X floatatom 313 259 3 -10 10 0 - - -; +#X floatatom 348 281 3 -10 10 0 - - -; #X obj 297 304 pack 0 0; #X obj 309 396 f; #X msg 287 375 bang; -#X floatatom 325 374 3 20 60; -#X floatatom 360 396 3 150 200; +#X floatatom 325 374 3 20 60 0 - - -; +#X floatatom 360 396 3 150 200 0 - - -; #X obj 309 419 pack 0 0; #X text 341 259 x-delta; #X text 375 281 y-delta; @@ -27,12 +27,12 @@ #X text 387 396 y-position; #X obj 59 341 f; #X msg 37 320 bang; -#X floatatom 75 319 3 0 2; -#X floatatom 110 341 3 4 36; +#X floatatom 75 319 3 0 2 0 - - -; +#X floatatom 110 341 3 4 36 0 - - -; #X obj 59 364 pack 0 0; #X text 103 319 font; #X text 139 341 height; -#X floatatom 275 183 3 2 20; +#X floatatom 275 183 3 2 20 0 - - -; #X msg 52 137 \; foo10_rcv color \$1 \$2; #X msg 39 274 \; foo10_rcv label_pos \$1 \$2; #X msg 59 390 \; foo10_rcv label_font \$1 \$2; @@ -42,8 +42,8 @@ #X msg 297 329 \; foo10_rcv delta \$1 \$2; #X obj 505 234 f; #X msg 483 213 bang; -#X floatatom 521 212 5 100 1000; -#X floatatom 556 234 4 50 500; +#X floatatom 521 212 5 100 1000 0 - - -; +#X floatatom 556 234 4 50 500 0 - - -; #X obj 505 257 pack 0 0; #X text 566 212 width; #X text 594 236 height; @@ -57,14 +57,14 @@ #X msg 509 372 \; foo10_rcv get_pos; #X obj 510 407 r foo10_snd; #X obj 510 428 unpack 0 0; -#X floatatom 510 453 4 0 0; -#X floatatom 575 452 4 0 0; +#X floatatom 510 453 4 0 0 0 - - -; +#X floatatom 575 452 4 0 0 0 - - -; #X text 490 452 x=; #X text 557 452 y=; #X obj 52 79 f; #X msg 29 31 bang; -#X floatatom 68 29 3 0 29; -#X floatatom 103 47 3 0 29; +#X floatatom 68 29 3 0 29 0 - - -; +#X floatatom 103 47 3 0 29 0 - - -; #X text 96 29 background; #X text 131 48 label-color; #X msg 290 25 back; @@ -137,9 +137,9 @@ #X connect 30 1 23 0; #X connect 30 2 28 0; #X restore 290 86 pd RGB_____________; -#X floatatom 332 55 3 0 255; -#X floatatom 375 55 3 0 255; -#X floatatom 418 56 3 0 255; +#X floatatom 332 55 3 0 255 0 - - -; +#X floatatom 375 55 3 0 255 0 - - -; +#X floatatom 418 56 3 0 255 0 - - -; #X text 39 3 preset-colors; #X text 301 0 RGB-colors; #X text 332 37 red; @@ -188,22 +188,22 @@ #X connect 68 0 66 2; #X connect 69 0 66 3; #X connect 75 0 29 0; -#X restore 305 20 pd edit; -#X floatatom 110 193 4 0 0; -#X floatatom 147 193 4 0 0; +#X restore 315 20 pd edit; +#X floatatom 110 193 4 0 0 0 - - -; +#X floatatom 147 193 4 0 0 0 - - -; #X text 121 209 x; #X text 158 209 y; #X obj 7 161 metro 100; #X obj 33 141 tgl 15 1 empty empty empty 20 8 0 10 -262144 -1 -1 1 1; #X obj 110 145 r from_K1; -#X floatatom 188 194 4 0 0; -#X floatatom 225 194 4 0 0; +#X floatatom 188 194 4 0 0 0 - - -; +#X floatatom 225 194 4 0 0 0 - - -; #X text 198 210 x; #X text 236 210 y; #X obj 188 146 r from_K2; #X msg 7 185 \; to_K get_pos; -#N canvas 0 296 395 395 room 1; +#N canvas 0 296 395 395 room 0; #X obj 1 1 cnv 1 400 400 empty empty type...ctrl+e 150 140 2 17 -33289 -24198 0; #X obj 15 16 cnv 1 1 360 empty empty move_K1_and_K2 115 160 2 17 -166441 @@ -214,9 +214,9 @@ 0; #X obj 17 375 cnv 1 358 1 empty empty empty 20 12 2 20 -99865 -66577 0; -#X obj 23 22 cnv 25 25 25 from_K1 to_K K1 1 13 194 14 -261681 -123526 +#X obj 23 22 cnv 25 25 25 from_K1 to_K K1 1 13 2 14 -261681 -123526 0; -#X obj 342 342 cnv 25 25 25 from_K2 to_K K2 1 13 194 14 -225280 -1109 +#X obj 342 342 cnv 25 25 25 from_K2 to_K K2 1 13 2 14 -225280 -1109 0; #X restore 307 147 pd room; #X obj 110 169 unpack; @@ -229,9 +229,26 @@ #X text 5 64 click the properties-dialog on the top-left corner; #X obj 361 195 r foo10_rcv; #X obj 403 215 s ggg; -#X text 172 257 updated for Pd version 0.35; #X text 21 257 graz \, austria 2002; #X obj 187 236 x_all_guis aaa bbb ccc ddd eee fff ggg hhh iii; +#X text 313 46 For cnv's creation arguments:; +#N canvas 881 440 467 369 canvas-creation-arguments 0; +#X msg 7 12 canvas: cnv selectableSize xSize ySize sendName recieveName +Label labelXOff labelYOff Font# fontSize bgColor lblColor 0; +#X text 9 169 For example \, a canvas called thusly:; +#X obj 9 248 cnv 15 200 100 myCanvas myCanvasR Canvas_Demo 20 12 2 +14 -62784 -195568 0; +#X text 9 226 will result in this:; +#X text 8 59 Canvas can be called with 13 creation arguments. These +are not "optional" - all parameters must be filled or the canvas will +not instantiate correctly.; +#X text 10 114 The function of the final "0" is unknown to me (it is +found in the textual entry for a canvas object in a .pd file) but can +be safely left off without ill effects.; +#X msg 9 191 cnv 15 200 100 myCanvas myCanvasR Canvas_Demo 20 12 2 +14 18 20; +#X restore 314 63 pd canvas-creation-arguments; +#X text 172 257 updated for Pd version 0.35; #X connect 8 0 16 0; #X connect 9 0 8 0; #X connect 10 0 18 0; Modified: branches/pd-extended/v0-40/pd/doc/5.reference/swap-help.pd =================================================================== --- branches/pd-extended/v0-40/pd/doc/5.reference/swap-help.pd 2008-03-17 20:52:14 UTC (rev 9604) +++ branches/pd-extended/v0-40/pd/doc/5.reference/swap-help.pd 2008-03-18 00:08:04 UTC (rev 9605) @@ -1,20 +1,41 @@ -#N canvas 376 130 488 326 12; -#X msg 67 124 bang; -#X floatatom 67 252; -#X floatatom 79 154; -#X floatatom 118 194; -#X obj 66 15 swap; -#X text 114 16 - SWAP TWO NUMBERS \, RESPECTING RIGHT-TO-LEFT ORDER; -#X text 284 309 updated for Pd version 0.27; -#X text 12 42 The swap object stores numbers from its left inlet to output on its right inlet -- after repeating its right hand input out the left.; -#X text 112 123 outputs 2 stored values; -#X obj 67 226 swap 6.5; -#X text 110 154 sets second value and outputs both; -#X text 150 195 sets first value; -#X text 142 226 creation argument initializes first value; -#X floatatom 118 254; -#X connect 0 0 9 0; -#X connect 2 0 9 0; -#X connect 3 0 9 1; -#X connect 9 0 1 0; -#X connect 9 1 13 0; +#N canvas 475 187 615 593 12; +#X msg 72 167 bang; +#X floatatom 72 292 0 0 0 0 - - -; +#X floatatom 84 200 0 0 0 0 - - -; +#X floatatom 139 237 0 0 0 0 - - -; +#X obj 33 15 swap; +#X text 81 16 - SWAP TWO NUMBERS \, RESPECTING RIGHT-TO-LEFT ORDER +; +#X text 117 166 outputs 2 stored values; +#X obj 72 266 swap 6.5; +#X text 115 200 sets second value and outputs both; +#X text 171 238 sets first value; +#X text 157 266 creation argument initializes first value; +#X floatatom 139 291 0 0 0 0 - - -; +#X obj 139 331 print right; +#X obj 72 367 print left; +#X text 43 427 A common use of swap is to reverse the operands in arithmetic +objects like this:; +#X obj 72 491 swap; +#X obj 72 519 -; +#X floatatom 72 541 5 0 0 0 - - -; +#X floatatom 103 469 3 0 0 0 - - -; +#X floatatom 72 469 3 0 0 0 - - -; +#X text 291 549 updated for Pd version 0.41; +#X text 32 52 The swap object swaps the positions of two incoming numbers. +The number coming in through the right inlet will be sent to the left +outlet and the number coming in left will come out right. Only the +left inlet is hot and triggers output on both outlets. Output order +is right to left as in [trigger].; +#X connect 0 0 7 0; +#X connect 1 0 13 0; +#X connect 2 0 7 0; +#X connect 3 0 7 1; +#X connect 7 0 1 0; +#X connect 7 1 11 0; +#X connect 11 0 12 0; +#X connect 15 0 16 0; +#X connect 15 1 16 1; +#X connect 16 0 17 0; +#X connect 18 0 15 1; +#X connect 19 0 15 0; Modified: branches/pd-extended/v0-40/pd/doc/5.reference/trigger-help.pd =================================================================== --- branches/pd-extended/v0-40/pd/doc/5.reference/trigger-help.pd 2008-03-17 20:52:14 UTC (rev 9604) +++ branches/pd-extended/v0-40/pd/doc/5.reference/trigger-help.pd 2008-03-18 00:08:04 UTC (rev 9605) @@ -14,7 +14,7 @@ #X text 39 59 The trigger object outputs its input from right to left \, converting to the types indicated by its creation arguments. There is also a "pointer" argument type (see the pointer object.); -#X obj 381 293 t f b l s a; +#X obj 381 293 t f b s l a; #X msg 466 167 dog my cats; #X obj 466 199 trigger bang anything; #X obj 374 242 print x5; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9604] trunk/externals/apple/sudden_motion_sensor.c
by eighthave＠users.sourceforge.net 17 Mar '08

17 Mar '08

Revision: 9604 http://pure-data.svn.sourceforge.net/pure-data/?rev=9604&view=rev Author: eighthave Date: 2008-03-17 13:52:14 -0700 (Mon, 17 Mar 2008) Log Message: ----------- got a very rough version of the sudden motion sensor/accelerometer working Modified Paths: -------------- trunk/externals/apple/sudden_motion_sensor.c Modified: trunk/externals/apple/sudden_motion_sensor.c =================================================================== --- trunk/externals/apple/sudden_motion_sensor.c 2008-03-17 20:33:44 UTC (rev 9603) +++ trunk/externals/apple/sudden_motion_sensor.c 2008-03-17 20:52:14 UTC (rev 9604) @@ -63,42 +63,105 @@ static void sudden_motion_sensor_output(t_sudden_motion_sensor* x) { DEBUG(post("sudden_motion_sensor_output");); - kern_return_t kern_result; + t_atom output_atoms[3]; + kern_return_t kern_return; + mach_port_t mach_port; + io_iterator_t io_iterator; + io_object_t io_object; + io_connect_t io_connect; + int kernel_function, sizeof_data; + IOItemCount structureInputSize; IOByteCount structureOutputSize; struct data inputStructure; struct data outputStructure; - t_atom output_atoms[3]; + kern_return = IOMasterPort(MACH_PORT_NULL, &mach_port); + if (kern_return != KERN_SUCCESS) + { + pd_error(x, "[sudden_motion_sensor]: cannot get mach_port"); + return; + } + //PowerBookG4, iBookG4 + kern_return = IOServiceGetMatchingServices(mach_port, IOServiceMatching("IOI2CMotionSensor"), &io_iterator); + if (kern_return == KERN_SUCCESS && io_iterator != 0) + { + x->sensor_name = gensym("IOI2CMotionSensor"); + sizeof_data = 60; + kernel_function = 21; + goto FOUND_SENSOR; + } + // + kern_return = IOServiceGetMatchingServices(mach_port, IOServiceMatching("PMUMotionSensor"), &io_iterator); + if(kern_return == KERN_SUCCESS && io_iterator != 0) + { + x->sensor_name = gensym("PMUMotionSensor"); + sizeof_data = 60; + kernel_function = 21; + goto FOUND_SENSOR; + } + // MacBook Pro + kern_return = IOServiceGetMatchingServices(mach_port, IOServiceMatching("SMCMotionSensor"), &io_iterator); + if(kern_return == KERN_SUCCESS && io_iterator != 0) + { + x->sensor_name = gensym("SMCMotionSensor"); + sizeof_data = 40; + kernel_function = 5; + goto FOUND_SENSOR; + } + + pd_error(x,"[sudden_motion_sensor]: cannot find motionsensor\n"); + return; - structureInputSize = x->data_size; //sizeof(struct data); - structureOutputSize = x->data_size; //sizeof(struct data); +FOUND_SENSOR: + io_object = IOIteratorNext(io_iterator); + IOObjectRelease(io_iterator); + + if(!io_object) + { + pd_error(x,"[sudden_motion_sensor]: No motion sensor available."); + return; + } + + kern_return = IOServiceOpen(io_object, mach_task_self(), 0, &io_connect); + IOObjectRelease(io_object); + + if(kern_return != KERN_SUCCESS) + { + pd_error(x,"[sudden_motion_sensor]: Could not open motion sensor device."); + return; + } + + structureInputSize = sizeof_data; //sizeof(struct data); + structureOutputSize = sizeof_data; //sizeof(struct data); + memset(&inputStructure, 0, sizeof(inputStructure)); memset(&outputStructure, 0, sizeof(outputStructure)); - - kern_result = IOConnectMethodStructureIStructureO(x->io_connect, - x->kernel_function, /* index to kernel function */ - structureInputSize, - &structureOutputSize, - &inputStructure, - &outputStructure); - - IOServiceClose(x->io_connect); - if( kern_result == KERN_SUCCESS) + + kern_return = IOConnectMethodStructureIStructureO( + io_connect, + kernel_function, /* index to kernel function */ + structureInputSize, + &structureOutputSize, + &inputStructure, + &outputStructure); + + if( kern_return == KERN_SUCCESS) { SETFLOAT(output_atoms, outputStructure.x); SETFLOAT(output_atoms + 1, outputStructure.y); SETFLOAT(output_atoms + 2, outputStructure.z); outlet_list(x->data_outlet, &s_list, 3, output_atoms); } - else if(kern_result == kIOReturnBusy) + else if(kern_return == kIOReturnBusy) pd_error(x,"[sudden_motion_sensor]: device busy"); else pd_error(x,"[sudden_motion_sensor]: could not read device"); + IOServiceClose(io_connect); } @@ -110,106 +173,11 @@ } -static int open_sensor(t_sudden_motion_sensor* x, - mach_port_t mach_port, io_iterator_t *io_iterator_ptr, - const char *sensor_string, int data_size, int kernel_function) -{ - kern_return_t kern_result; - post("trying %s", sensor_string); - kern_result = IOServiceGetMatchingServices(mach_port, IOServiceMatching("IOI2CMotionSensor"), io_iterator_ptr); - if (kern_result == KERN_SUCCESS && *io_iterator_ptr != 0) - { - post("found %s", sensor_string); - x->sensor_name = gensym(sensor_string); - x->data_size = data_size; - x->kernel_function = kernel_function; - return 1; - } - else - return 0; -} - static void *sudden_motion_sensor_new(void) { DEBUG(post("sudden_motion_sensor_new");); t_sudden_motion_sensor *x = (t_sudden_motion_sensor *)pd_new(sudden_motion_sensor_class); - io_iterator_t io_iterator; - io_object_t io_object; - kern_return_t kern_result; - mach_port_t mach_port; -/* - kern_result = IOMasterPort(MACH_PORT_NULL, &mach_port); - if (kern_result != KERN_SUCCESS) - pd_error(x, "[sudden_motion_sensor]: IOMasterPort(MACH_PORT_NULL, &mach_port)"); - else if(!open_sensor(x, mach_port, &io_iterator, "IOI2CMotionSensor", 60, 21)) - if(!open_sensor(x, mach_port, &io_iterator, "PMUMotionSensor", 60, 21)) - if(!open_sensor(x, mach_port, &io_iterator, "SMCMotionSensor", 40, 5)) - pd_error(x,"[sudden_motion_sensor]: cannot find motion sensor"); - - io_object = IOIteratorNext(io_iterator); - IOObjectRelease(io_iterator); - if (io_object) - { - kern_result = IOServiceOpen(io_object, mach_task_self(), 0, &x->io_connect); - IOObjectRelease(io_object); - if (kern_result != KERN_SUCCESS) - pd_error(x,"[sudden_motion_sensor]: could not open motion sensor"); - } - else - pd_error(x,"[sudden_motion_sensor]: motion sensor not available"); -*/ - - - - kern_result = IOMasterPort(MACH_PORT_NULL, &mach_port); - if (kern_result != KERN_SUCCESS) { - error("[sudden_motion_sensor]: IOMasterPort(MACH_PORT_NULL, &mach_port)"); - } - - //PowerBookG4, iBookG4 - kern_result = IOServiceGetMatchingServices(mach_port, IOServiceMatching("IOI2CMotionSensor"), &io_iterator); - if (kern_result == KERN_SUCCESS && io_iterator != 0) { - x->sensor_name = gensym("IOI2CMotionSensor"); - x->data_size = 60; - x->kernel_function = 21; - goto FOUND_SENSOR; - } - // - kern_result = IOServiceGetMatchingServices(mach_port, IOServiceMatching("PMUMotionSensor"), &io_iterator); - if (kern_result == KERN_SUCCESS && io_iterator != 0) { - x->sensor_name = gensym("PMUMotionSensor"); - x->data_size = 60; - x->kernel_function = 21; - goto FOUND_SENSOR; - } - // - kern_result = IOServiceGetMatchingServices(mach_port, IOServiceMatching("SMCMotionSensor"), &io_iterator); - if (kern_result == KERN_SUCCESS && io_iterator != 0) { - x->sensor_name = gensym("SMCMotionSensor"); - x->data_size = 40; - x->kernel_function = 5; - goto FOUND_SENSOR; - } - - error("can't find motionsensor\n"); - - -FOUND_SENSOR: - io_object = IOIteratorNext(io_iterator); - IOObjectRelease(io_iterator); - - if (io_object == 0) { - error("[sudden_motion_sensor]: No motion sensor available."); - } - - kern_result = IOServiceOpen(io_object, mach_task_self(), 0, &x->io_connect); - IOObjectRelease(io_object); - - if (kern_result != KERN_SUCCESS) { - error("[sudden_motion_sensor]: Could not open motion sensor device."); - } - x->data_outlet = outlet_new(&x->x_obj, &s_list); x->status_outlet = outlet_new(&x->x_obj, &s_anything); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

← Newer
1
...
5
6
7
8
9
10
11
...
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 March 2008