Pd-cvs September 2006

pd-cvs@lists.iem.at

19 participants
346 discussions

doc Makefile,1.21,1.22
by Hans-Christoph Steiner 20 Sep '06

20 Sep '06

Update of /cvsroot/pure-data/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23230 Modified Files: Makefile Log Message: changed PDDP tutorials layout and used local file for pd_fileformat Index: Makefile =================================================================== RCS file: /cvsroot/pure-data/doc/Makefile,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -d -r1.21 -r1.22 *** Makefile 25 Apr 2006 15:40:13 -0000 1.21 --- Makefile 20 Sep 2006 03:12:52 -0000 1.22 *************** *** 149,153 **** pd_fileformat_install: $(manualsdir) install -d $(manualsdir)/$(PD_FILEFORMAT_NAME) ! -curl http://student-kmt.hku.nl/%7Etjeerd/pd/pd_fileformat.html > \ $(manualsdir)/$(PD_FILEFORMAT_NAME)/Pd_File_Format.html --- 149,153 ---- pd_fileformat_install: $(manualsdir) install -d $(manualsdir)/$(PD_FILEFORMAT_NAME) ! install -p $(doc_src)/additional/pd-fileformat.html $(manualsdir)/$(PD_FILEFORMAT_NAME)/Pd_File_Format.html *************** *** 177,199 **** install -p $(doc_src)/tutorials/playnow/*.* $(manualsdir)/PlayNow # intro ! install -d $(manualsdir)/Intro ! install -p $(doc_src)/tutorials/intro/*.* $(manualsdir)/Intro ! install -p $(abstractions_src)/pddp/0-pager.pd $(manualsdir)/Intro # sound ! install -d $(manualsdir)/Sound ! install -p $(doc_src)/tutorials/sound/*.* $(manualsdir)/Sound ! install -p $(abstractions_src)/pddp/0-pager.pd $(manualsdir)/Sound # visual ! install -d $(manualsdir)/Visual ! install -p $(doc_src)/tutorials/visual/*.* $(manualsdir)/Visual ! install -p $(abstractions_src)/pddp/0-pager.pd $(manualsdir)/Visual # networking ! install -d $(manualsdir)/Networking ! install -p $(doc_src)/tutorials/networking/*.* $(manualsdir)/Networking ! install -p $(abstractions_src)/pddp/0-pager.pd $(manualsdir)/Networking # physical ! install -d $(manualsdir)/Physical ! install -p $(doc_src)/tutorials/physical/*.* $(manualsdir)/Physical ! install -p $(abstractions_src)/pddp/0-pager.pd $(manualsdir)/Physical tutorials_clean: --- 177,199 ---- install -p $(doc_src)/tutorials/playnow/*.* $(manualsdir)/PlayNow # intro ! install -d $(manualsdir)/0.Intro/Intro ! install -p $(doc_src)/tutorials/intro/*.* $(manualsdir)/0.Intro/Intro ! install -p $(abstractions_src)/pddp/0-pager.pd $(manualsdir)/0.Intro/Intro # sound ! install -d $(manualsdir)/0.Intro/Sound ! install -p $(doc_src)/tutorials/sound/*.* $(manualsdir)/0.Intro/Sound ! install -p $(abstractions_src)/pddp/0-pager.pd $(manualsdir)/0.Intro/Sound # visual ! install -d $(manualsdir)/0.Intro/Visual ! install -p $(doc_src)/tutorials/visual/*.* $(manualsdir)/0.Intro/Visual ! install -p $(abstractions_src)/pddp/0-pager.pd $(manualsdir)/0.Intro/Visual # networking ! install -d $(manualsdir)/0.Intro/Networking ! install -p $(doc_src)/tutorials/networking/*.* $(manualsdir)/0.Intro/Networking ! install -p $(abstractions_src)/pddp/0-pager.pd $(manualsdir)/0.Intro/Networking # physical ! install -d $(manualsdir)/0.Intro/Physical ! install -p $(doc_src)/tutorials/physical/*.* $(manualsdir)/0.Intro/Physical ! install -p $(abstractions_src)/pddp/0-pager.pd $(manualsdir)/0.Intro/Physical tutorials_clean: *************** *** 202,215 **** -rm -f -- $(manualsdir)/PlayNow/*.* -rmdir -- $(manualsdir)/PlayNow ! -rm -f -- $(manualsdir)/Intro/*.* ! -rmdir -- $(manualsdir)/Intro ! -rm -f -- $(manualsdir)/Sound/*.* ! -rmdir -- $(manualsdir)/Sound ! -rm -f -- $(manualsdir)/Visual/*.* ! -rmdir -- $(manualsdir)/Visual ! -rm -f -- $(manualsdir)/Networking/*.* ! -rmdir -- $(manualsdir)/Networking ! -rm -f -- $(manualsdir)/Physical/*.* ! -rmdir -- $(manualsdir)/Physical --- 202,215 ---- -rm -f -- $(manualsdir)/PlayNow/*.* -rmdir -- $(manualsdir)/PlayNow ! -rm -f -- $(manualsdir)/0.Intro/Intro/*.* ! -rmdir -- $(manualsdir)/0.Intro/Intro ! -rm -f -- $(manualsdir)/0.Intro/Sound/*.* ! -rmdir -- $(manualsdir)/0.Intro/Sound ! -rm -f -- $(manualsdir)/0.Intro/Visual/*.* ! -rmdir -- $(manualsdir)/0.Intro/Visual ! -rm -f -- $(manualsdir)/0.Intro/Networking/*.* ! -rmdir -- $(manualsdir)/0.Intro/Networking ! -rm -f -- $(manualsdir)/0.Intro/Physical/*.* ! -rmdir -- $(manualsdir)/0.Intro/Physical

1 0

doc/tutorials/visual 13.movies.pd,1.1,1.2
by Hans-Christoph Steiner 20 Sep '06

20 Sep '06

Update of /cvsroot/pure-data/doc/tutorials/visual In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23191/tutorials/visual Modified Files: 13.movies.pd Log Message: fixed bug that prevented looping Index: 13.movies.pd =================================================================== RCS file: /cvsroot/pure-data/doc/tutorials/visual/13.movies.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** 13.movies.pd 7 May 2006 22:50:38 -0000 1.1 --- 13.movies.pd 20 Sep 2006 03:12:11 -0000 1.2 *************** *** 1,3 **** ! #N canvas 10 40 620 460 10; #X obj 8 10 cnv 15 400 40 empty empty movies 20 12 0 24 -228992 -66577 0; --- 1,3 ---- ! #N canvas 10 40 624 464 10; #X obj 8 10 cnv 15 400 40 empty empty movies 20 12 0 24 -228992 -66577 0; *************** *** 8,15 **** -1; #X text 173 95 movie-clip; ! #X obj 147 314 unpack 0 0 0; ! #X floatatom 133 337 5 0 0 3 length - -; ! #X floatatom 182 337 5 0 0 3 width - -; ! #X obj 187 295 bng 15 250 50 0 empty empty end_reached 20 7 0 10 -262144 -1 -1; #X floatatom 176 260 5 0 10000 1 frame# - -; --- 8,15 ---- -1; #X text 173 95 movie-clip; ! #X obj 145 325 unpack 0 0 0; ! #X floatatom 131 348 5 0 0 3 length - -; ! #X floatatom 180 348 5 0 0 3 width - -; ! #X obj 185 306 bng 15 250 50 0 empty empty end_reached 20 7 0 10 -262144 -1 -1; #X floatatom 176 260 5 0 10000 1 frame# - -; *************** *** 17,29 **** #X msg 130 169 open \$1; #X msg 136 212 auto \$1; ! #X obj 136 194 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1 ; #X msg 147 236 colorspace Grey; ! #X floatatom 229 338 5 0 0 0 - - -; #X obj 118 278 pix_film; ! #X obj 120 374 pix_texture; #X text 14 58 You can also uses videos as textures:; ! #X obj 120 424 cuboid 4 3 3; ! #X obj 120 399 translateXYZ 0 0 -3; #X connect 3 0 17 0; #X connect 4 0 11 0; --- 17,30 ---- #X msg 130 169 open \$1; #X msg 136 212 auto \$1; ! #X obj 136 194 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 0 1 ; #X msg 147 236 colorspace Grey; ! #X floatatom 227 349 5 0 0 0 - - -; #X obj 118 278 pix_film; ! #X obj 118 385 pix_texture; #X text 14 58 You can also uses videos as textures:; ! #X obj 118 435 cuboid 4 3 3; ! #X obj 118 410 translateXYZ 0 0 -3; ! #X msg 182 278 0; #X connect 3 0 17 0; #X connect 4 0 11 0; *************** *** 40,43 **** --- 41,46 ---- #X connect 17 1 6 0; #X connect 17 2 9 0; + #X connect 17 2 22 0; #X connect 18 0 21 0; #X connect 21 0 20 0; + #X connect 22 0 17 1;

1 0

doc/additional pd-fileformat.html,NONE,1.1
by Hans-Christoph Steiner 20 Sep '06

20 Sep '06

Update of /cvsroot/pure-data/doc/additional In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21715 Added Files: pd-fileformat.html Log Message: added HTML file from puredata.org since the creators don't seem to be maintaining this --- NEW FILE: pd-fileformat.html --- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <title>Unofficial PD v0.37 fileformat specification</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><style type="text/css"></style></head><body><div align="center"> <p align="center"><span class="Title"><a name="0"></a>Unofficial PD v0.37 fileformat specification</span><br> <span class="subTitle">by <a href="mailto:simon3@student-kmt.hku.nl">Simon Asselbergs</a> and <a href="mailto:tjeerd@student-kmt.hku.nl">Tjeerd Sietsma</a><br> Hogeschool voor de Kunsten Utrecht<br> Faculty of Art Media and Technology <br> October 23rd 2004<br><br> Copyright (c) 2005 Free Software Foundation. Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.2 or any later version published by the Free Software Foundation; with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. A copy of the license is online at <a href="http://www.gnu.org/licenses/fdl.html">http://www.gnu.org/licenses/fdl.html</a>. Initial authors: Simon Asselbergs and Tjeerd Sietsma. </span></p></div><hr width="100%" size="2" noshade><div align="center"><a href="#1">introduction</a> | <a href="#2">records</a> | <a href="#3">wiring</a> | <a href="#4">elements and objects</a> | <a href="#5">common parameters</a> | <strong><a href="#6">reference</a></strong> | <a href="pd_fileformat.ebnf">EBNF version</a></div><hr width="100%" size="2" noshade><P class="Head"><a name="1"></a>Introduction</P><blockquote> <p>This file describes the fileformat of patchfiles (*.pd) of Miller Puckette's PureData.</p> <p> It is released because:</p></blockquote><ul> <li>PureData's patchfile format is officially undocumented.</li> <li>It may serve as a partial tutorial to help readers understand PureData better.</li></ul><blockquote> <p>This documents is currently unofficial, beware that there is no warranty whatsoever.<br> If you find this document incorrect or incomplete please send us an e-mail using the links at the top of this document.<br> There are a few things still unknown, we don't exclude the possibility those things are used for compatibility with Max.</p> <p><a href="#0">back to top</a> </p></blockquote><P class="Head"><br> <a name="2"></a>Records</P><blockquote> <p>The PD fileformat is a genuine custom textfile format, not to be confused with XML.<br> It consists of one ore more records.<br> Each record may cover multiply lines but they all have thesame syntax:</p> <p> <span class="code"><strong>#</strong>[data]<strong>;</strong>\r\n</span></p> <p>where[data] holds the record data, \r represents an ASCII code 13 carriage return character, and \n represents an ASCII code 10 line-feed character.<br> Let us take a closer look on the records contents.</p> <p>Each record consists of a chunk type, element type and optional parameters like this:</p> <p class="code"><strong>#</strong>[chunk_type] [element_type] [p1] [p2] [p3] [...]<strong>;\r\n</strong></p> <p>[chunk_type] is a sinlge character with only three possible values: "X" for an object, "N" for a new window, and finally "A" for array data.</p> <p>[element_type] is a predefined PD element. This declaration is also used for wires. <em>Object </em>elements are numbered in order of appearance in the file, all other elements are excluded from numbering. These numbers are pure virtual and can not be seen directly in the file.</p> <p>[p1] [p2] [p3] [...] are the required parameters for each element, this differences per element.</p> <p><a href="#0">back to top</a> </p></blockquote><P class="style13"><br> <span class="Head"><a name="3"></a>Wiring</span></P><blockquote> <p>Almost all objects can be interconnected with wires in PureData. Each wire is stored in the file using the following syntax: </p> <p class="code"><strong>#X connect</strong> [source] [outlet_number] [sink] [inlet_number]<strong>;\r\n</strong></p> <p>[source] Is the number of the object the data is coming from. [outlet-number] Represents the number of the outlet of the source object where the wire starts. Sequentially, [sink] is the number of the target object, and finally [inlet_number] specifies inlet of the target object to which the wired is connected.<br> Logically, the objects (again, <strong>connect</strong>s excluded) are numbered from 0 to the total number of objects in the file using the integer format. The inlets and outlets are numbered likewise.<br> Please keep this in mind, to prevent making often made off-by-one errors.</p> <p><a href="#0">back to top</a> </p></blockquote><P class="style13"><br> <span class="Head"><a name="4"></a>Elements and objects </span></P><blockquote> <p>There's a difference between elements and objects. Elements are the parts that together make up the entire layout of a patch, including windowsizes and position. Objects are the building blocks of PureData that contain functionality, gui-related or not. </p> <p>All other <strong>elements</strong> are used to build actual PureData objects:</p></blockquote><ul> <li>array - visual two dimensional array</li> <li>canvas - specifications for the windowsizes and position </li> <li>coords - used for graphs </li> <li>floatatom - number</li> <li>msg - message</li> <li>obj - object, empty, subpatch or gui: <ul> <li>bang</li> <li>toggle</li> <li>nbx</li> <li>vslider</li> <li>hslider</li> <li>vu</li> <li>canvas - gui element</li> <li>pd [name]</li> <li>[name]</li> </ul> </li> <li>restore - for exiting subwindows and graphs </li> <li>symbolatom - symbol</li> <li>text - comment</li></ul><blockquote> <p><a href="#0">back to top</a></p></blockquote><p><br> <span class="Head"><a name="5"></a>Common parameters</span></p><ul> <li><em>Positions and size</em>: As PureData uses a graphical interface every gui-related element (object, message, number, symbol, comment, bang, toggle, number2, vslider, hslider, vradio, hradio, vu, canvas, graph, array) have a horizontal and vertical position in the window that holds the (sub)patch.<br> Records of gui elements that have adjustable sizes also contain the horizontal and/or vertical size.<br> Positions and sizes are stored in pixels.<br> Note that in graphs (element: coords) the pixel sizes of its canvas are relative of the coordinates of the graph, when the option "graph on parent" is selected.</li> <li><em>Color</em>: Some graphical elements have color attributes. Per color only one signed integer value is stored that contains the three 8-bit color components (RGB).<br> Formula to calculate color attribute values:<br> <br> <strong>color = ( </strong>[red]<strong> * -65536) + ( </strong>[green]<strong> * -256) + ( </strong>[blue]<strong> * -1)<br> <br> </strong>Where [red], [green], [blue] obviously represent the three color components, their values range from 0 to 255.<br> They apply to the attributes [background color], [front color], [label color] of various elements.</li> <li><em>Fonts</em>: elements that have a unsigned integer [font] attribute (e.g. the element <strong>text</strong>) have a choice out of three different fonts:<br> 0 = Courier, 1 = Helvetica, 2 = Times. Courier is the only available fixed width font.<br> The [fontsize] attribute contains the font size in pixels.</li> <li><em>Labels</em>: the many GUI-elements that have a [label] attribute can be named. In its label string no spaces ASCII code 32 is allowed. It will generally be recognized as a seperator character for the next parameter/attribute.</li> <li><em>Other parameters</em>: Because of the difference between element parameters there is no default syntax for all elements. They may or may not look much like other elements, depending on their visual and functional similarities.</li></ul><blockquote> <p><a href="#0">back to top</a></p> </blockquote><br><hr width="100%" size="2" noshade><p> <span class="Head"><a name="6"></a>Reference</span></p><ul> <li><a href="#r1">A</a></li> <li><a href="#r2">N</a><ul> <li><a href="#r21">canvas</a></li> </ul> </li> <li><a href="#r3">X</a><ul> <li><a href="#r31">array</a></li> <li><a href="#r32">connect</a></li> <li><a href="#r33">coords</a></li> <li><a href="#r34">floatatom</a></li> <li><a href="#r35">msg</a></li> <li><a href="#r36">obj</a> <ul> <li><a href="#r361">bng</a></li> <li><a href="#r362">tgl</a></li> <li><a href="#r363">nbx</a></li> <li><a href="#r364">vsl</a></li> <li><a href="#r365">hsl</a></li> <li><a href="#r366">vradio</a></li> <li><a href="#r367">hradio</a></li> <li><a href="#r368">vu</a></li> <li><a href="#r369">cnv</a></li> </ul> </li> <li><a href="#r37">[name]</a></li> <li><a href="#r38">pd [name]</a></li> <li><a href="#r39">restore</a></li> <li><a href="#r3A">symbolatom</a></li> <li><a href="#r3B">text</a></li> </ul> </li></ul><blockquote><p><a href="#0">back to top</a></p></blockquote><br><hr width="100%" size="2" noshade><br><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td colspan="2"><a name="r1"></a>A</td> </tr> <tr> <td valign="top"><div align="right">Description:</div></td> <td>Announces array data </td> </tr> <tr> <td width="85" valign="top"><div align="right">Syntax:</div></td> <td><span class="code"><strong>#A </strong>[p1] [p2] [p3] [...]<strong>;\r\n</strong></span></td> </tr> <tr> <td width="85" valign="top"><div align="right">Parameters:</div></td> <td>[p1] [p2] [p3] [...] floating point variables representing array elements</td> </tr> <tr> <td width="85" valign="top"><div align="right">Example:</div></td> <td>See Array</td> </tr> <tr> <td valign="top"><div align="right">Remarks:</div></td> <td>Used only in combination of an array definition </td> </tr></table><blockquote> <p><a href="#6">back to reference index</a></p> <p> </p></blockquote><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td colspan="2"><a name="r2"></a>N</td> </tr> <tr> <td valign="top"><div align="right">Description:</div></td> <td>Announces a frameset</td> </tr> <tr> <td width="85" valign="top"><div align="right">Syntax:</div></td> <td><span class="code"><strong>#N </strong>[new_frame]<strong>;\r\n</strong></span></td> </tr> <tr> <td width="85" valign="top"><div align="right">Parameters:</div></td> <td>[new_frame] new frameset, currently only a new patchwindow can be defined</td> </tr> <tr> <td width="85" valign="top"><div align="right">Example:</div></td> <td>see canvas</td> </tr> <tr> <td valign="top"><div align="right">Remarks:</div></td> <td>Currently used only for new canvas definitions</td> </tr></table><blockquote> <p><a href="#6">back to reference index</a></p> <p> </p></blockquote><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td colspan="2"><a name="r21" id="r21"></a>canvas</td> </tr> <tr> <td valign="top"><div align="right">Description:</div></td> <td>Defines window properties</td> </tr> <tr> <td width="85" valign="top"><div align="right">Syntax:</div></td> <td><span class="code"><strong>#N canvas </strong>[x_pos] [y_pos] [x_size] [y_size] [name] [open_on_load]<strong>;\r\n</strong></span></td> </tr> <tr> <td width="85" valign="top"><div align="right">Parameters:</div></td> <td>[x_pos] - horizontal position offset of frameset (window)<br> [y_pos] - vertical position offset of frameset (window)<br> [x_size] - horizontal size of frameset (window)<br> [y_size] - vertical size of frameset (window)<br> [name] - name / handle of frameset <br> [open_on_load] - when flag is set the canvas is opened when the patch is loaded</td> </tr> <tr> <td valign="top"><div align="right">Example:</div></td> <td class="code">#N canvas 0 0 452 302 12;</td> </tr> <tr> <td width="85" valign="top"><div align="right">Example:</div></td> <td class="code"> #N canvas 0 0 452 302 thiscanvas 0;<br> #X restore 41 136 pd thiscanvas;</td> </tr> <tr> <td valign="top"><div align="right">Remarks:</div></td> <td>In this example patch there are two canvas definitions.<br> The first example has a special syntax, the attributes [name] and [open_on_load] have been replaced by a [font_size] attribute. This is only the case when the canvas definition is the first record in the patchfile, to define the position and size of the main patcher window, and set the default font size. When a first canvas definition is absent the default values of PureData are used. Note that in this case you can alter the default font size with a command line parameter.<br> The second example shows a regular internal subpatch definition. Normally a canvas defintion is always postceeded with a restore element to define the position within the canvas, and the name of the subpatch.<br> Presumably, the canvas name in the canvas defintion and restore definition should be thesame.</td> </tr></table><blockquote> <p><a href="#6">back to reference index</a></p> <p> </p></blockquote><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td colspan="2"><a name="r3"></a>X</td> </tr> <tr> <td valign="top"><div align="right">Description:</div></td> <td>Announces regular elements </td> </tr> <tr> <td width="85" valign="top"><div align="right">Syntax:</div></td> <td class="code"><strong>#X </strong>[element]<strong>;\r\n</strong></td> </tr> <tr> <td width="85" valign="top"><div align="right">Parameters:</div></td> <td>[element] - element definition</td> </tr> <tr> <td width="85" valign="top"><div align="right">Example:</div></td> <td class="code">#X obj 50 36;</td> </tr> <tr> <td valign="top"><div align="right">Remarks:</div></td> <td>Used with <em>every</em> element definition except canvas definitions</td> </tr></table><blockquote> <p><a href="#6">back to reference index</a></p> <p> </p></blockquote><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td colspan="2"><a name="r31"></a>array</td> </tr> <tr> <td valign="top"><div align="right">Description:</div></td> <td>Array</td> </tr> <tr> <td width="85" valign="top"><div align="right">Syntax:</div></td> <td class="code"><strong>#X array </strong>[array_name] [array_size] <strong>float </strong>[save_flag]<strong>;\r\n</strong></td> </tr> <tr> <td width="85" valign="top"><div align="right">Parameters:</div></td> <td>[array_name] - name / handle of the array <br> [array_size] - total number of elements of an array<br> [save_flag] - with this flag set the array data is stored in the patch</td> </tr> <tr> <td width="85" valign="top"><div align="right">Example:</div></td> <td class="code">#N canvas 0 0 450 300 graph4 0;<br> #X array array3 10 float 1;<br> #A 0 0 0 0 0 0 0 0 0 0;<br> #X coords 0 1 99 -1 200 140 1;<br> #X restore 270 193 graph;</td> </tr> <tr> <td valign="top"><div align="right">Remarks:</div></td> <td>An array is a gui-form of a table, always visualised using a graph. Optionally the array data can be saved in the patch - which can be <strong>very</strong> space-consuming and CPU intensive when you want to store a large number of floating point values typed out in a textfile.</td> </tr></table><blockquote> <p><a href="#6">back to reference index</a></p> <p> </p></blockquote><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td colspan="2"><a name="r32"></a>connect</td> </tr> <tr> <td valign="top"><div align="right">Description:</div></td> <td>Wires GUI-elements</td> </tr> <tr> <td width="85" valign="top"><div align="right">Syntax:</div></td> <td class="code"><strong>#X connect </strong> [source] [outlet] [target] [inlet]<strong>;\r\n</strong></td> </tr> <tr> <td width="85" valign="top"><div align="right">Parameters:</div></td> <td>[source]<br> [outlet]<br> [target]<br> [inlet]</td> </tr> <tr> <td width="85" valign="top"><div align="right">Example:</div></td> <td class="code">#X obj 30 27 midiin;<br> #X obj 26 59 midiout;<br> #X connect 0 0 1 0;<br> #X connect 0 1 1 1;</td> </tr> <tr> <td valign="top"><div align="right">Remarks:</div></td> <td><p><strong>Obj</strong>ects are virtually numbered in order of appearance in the file, starting from zero. Inlets and outlets of the objects are numbered likewise. <strong><br> </strong></p></td> </tr></table><blockquote> <p><a href="#6">back to reference index</a></p> <p> </p></blockquote><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td colspan="2"><a name="r33"></a>coords</td> </tr> <tr> <td valign="top"><div align="right">Description:</div></td> <td>Visual ranges of a frameset (window) </td> </tr> <tr> <td width="85" valign="top"><div align="right">Syntax:</div></td> <td class="code"><strong>#X coords</strong> [x_from] [y_to] [x_to] [y_from] [width] [heigth] [graph_on_parent]<strong>;\r\n</strong></td> </tr> <tr> <td width="85" valign="top"><div align="right">Parameters:</div></td> <td>[x_from] - first index to display <br> [y_to] - dynamic range of graph upper border<br> [x_to] - last index to display<br> [y_from] - dynamic range of graph lower border <br> [width] - relative horizontal size of graph <br> [heigth] - relative vertical size of graph <br> [graph_on_parent] - when set displayes child path, when unset graph is displayed like an object</td> </tr> <tr> <td width="85" valign="top"><div align="right">Example:</div></td> <td class="code">#N canvas 0 0 452 302 graph1 0;<br> #X coords 0 1 100 -1 200 140 1;<br> #X restore 58 26 graph;</td> </tr> <tr> <td valign="top"><div align="right">Remarks:</div></td> <td><p>A coords statement must always be preceded with a canvas statement which also holds the graph name. <br> A coords statement must always be terminated with a restore statement that has the reserved handle <strong>graph<br> </strong>Off limit values will be displayed outside the graph in the PureData GUI.<strong><br> </strong></p> </td> </tr></table><blockquote> <p><a href="#6">back to reference index</a></p> <p> </p></blockquote><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td colspan="2"><a name="r34"></a>floatatom</td> </tr> <tr> <td valign="top"><div align="right">Description:</div></td> <td>Defines a number box </td> </tr> <tr> <td width="85" valign="top"><div align="right">Syntax:</div></td> <td class="code"><strong>#X floatatom </strong> [x_pos] [y_pos] [width] [lower_limit] [upper_limit] [label_pos] [label] [receive] [send]<strong>;\r\n</strong></td> </tr> <tr> <td width="85" valign="top"><div align="right">Parameters:</div></td> <td>[x_pos] - horizontal position within window <br> [y_pos] - vertical position within window<br> [width] - number of digits <br> [lower_limit] - minimal value<br> [upper_limit] - maximum value <br> [label_pos] - label position relative to floatatom position. 0 = left, 1 = right, 2 = top, 3 = bottom <br> [label] - floatatom label/name<br> [receive] - receive symbol name <br> [send] - send symbol name</td> </tr> <tr> <td width="85" valign="top"><div align="right">Example:</div></td> <td class="code">#X floatatom 32 26 5 0 0 0 - - -;</td> </tr> <tr> <td valign="top"><div align="right">Remarks:</div></td> <td><p>When the value of [upper_limit] minus the value of [lower_limit] is less than one, or the [width] attribute is set to one, PureData resets these values both to zero.<br> Floatatom and symbolatom are the only elements that uses "-" characters to indicate that no value has been assigned to its attributes [label], [receive] and [send].<strong><br> </strong></p></td> </tr></table><blockquote> <p><a href="#6">back to reference index</a></p> <p> </p></blockquote><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td colspan="2"><a name="r35"></a>msg</td> </tr> <tr> <td valign="top"><div align="right">Description:</div></td> <td>Defines a message </td> </tr> <tr> <td width="85" valign="top"><div align="right">Syntax:</div></td> <td class="code"><strong>#X msg </strong> [x_pos] [y_pos] [p1] [p2] [p3] [...]<strong>;\r\n</strong></td> </tr> <tr> <td width="85" valign="top"><div align="right">Parameters:</div></td> <td>[x_pos] - horizontal position within the window <br> [y_pos] - vertical position within the window<br> [p1] [p2] [p3] [...] the content of the message</td> </tr> <tr> <td width="85" valign="top"><div align="right">Example:</div></td> <td class="code">#X msg 61 48 read audio.wav;</td> </tr> <tr> <td valign="top"><div align="right">Remarks:</div></td> <td><p>-<strong><br> </strong></p></td> </tr></table><blockquote> <p><a href="#6">back to reference index</a></p> <p> </p></blockquote><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td colspan="2"><a name="r36"></a>obj</td> </tr> <tr> <td valign="top"><div align="right">Description:</div></td> <td>Defines an object </td> </tr> <tr> <td width="85" valign="top"><div align="right">Syntax:</div></td> <td class="code"><strong>#X obj </strong> [x_pos] [y_pos] [object_name] [p1] [p2] [p3] [...]<strong>;\r\n</strong></td> </tr> <tr> <td width="85" valign="top"><div align="right">Parameters:</div></td> <td>[x_pos] - horizontal position within the window <br> [y_pos] - vertical position within the window<br> [object_name] - name of the object (optional) <br> [p1] [p2] [p3] [...] the parameters of the object (optional)</td> </tr> <tr> <td width="85" valign="top"><div align="right">Example:</div></td> <td class="code">#X obj 55 50;<br> #X obj 132 72 trigger bang float;</td> </tr> <tr> <td valign="top"><div align="right">Remarks:</div></td> <td><p>The first line is an example of an empty object. The second line describes a trigger object with its parameters<strong>.<br> </strong></p></td> </tr></table><blockquote> <p><a href="#6">back to reference index</a></p> <p> </p></blockquote><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td colspan="2"><a name="r361"></a>bng</td> </tr> <tr> <td valign="top"><div align="right">Description:</div></td> <td>Defines a bang </td> </tr> <tr> <td width="85" valign="top"><div align="right">Syntax:</div></td> <td class="code"><strong>#X obj </strong> [x_pos] [y_pos] <strong>bng</strong> [size] [hold] [interrupt] [init] [send] [receive] [label] [x_off] [y_off] [font] [fontsize] [bg_color] [fg_color] [label_color] <strong>;\r\n</strong></td> </tr> <tr> <td width="85" valign="top"><div align="right">Parameters:</div></td> <td>[x_pos] - horizontal position within the window<br> [y_pos] - vertical position within the window <br> [size] - square size of the gui element<br> [hold] - hold time in milliseconds, ranges from 50 to 1000000000<br> [interrupt] - interrupt time in milliseconds, ranges from 10 to 250<br> [init] - bang on load <br> [send] - send symbol name <br> [receive] - receive symbol name <br> [label] - label<br> [x_off] - horizontal position of the label text relative to the upperleft corner of the object <br> [y_off] - vertical position of the label text relative to the upperleft corner of the object <br> [font] - font type <br> [fontsize] - font size<br> [bg_color] - background color <br> [fg_color] - foreground color <br> [label_color] - label color</td> </tr> <tr> <td width="85" valign="top"><div align="right">Example:</div></td> <td class="code">#X obj 27 32 bng 15 10000 100 1 empty empty empty 0 -6 0 8 -262144 -1 -1;</td> </tr> <tr> <td valign="top"><div align="right">Remarks:</div></td> <td><p>Hold time is for how long you see a flash when you click on the bang, interrupt time is for how long you don't see it flash when you click on this object while it's flashing.<strong><br> </strong>[send], [receive] and [label] cannot be named "empty", this is a reserved name for when no value is assigned. <strong><br> </strong></p></td> </tr></table><blockquote> <p><a href="#6">back to reference index</a></p> <p> </p></blockquote><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td colspan="2"><a name="r362"></a>tgl</td> </tr> <tr> <td valign="top"><div align="right">Description:</div></td> <td>Defines a toggle </td> </tr> <tr> <td width="85" valign="top"><div align="right">Syntax:</div></td> <td class="code"><strong>#X obj </strong> [x_pos] [y_pos] <strong>tgl</strong> [size] [init] [send] [receive] [label] [x_off] [y_off] [font] [fontsize] [bg_color] [fg_color] [label_color] [init_value] [default_value] <strong>;\r\n</strong></td> </tr> <tr> <td width="85" valign="top"><div align="right">Parameters:</div></td> <td>[x_pos] - horizontal position within the window<br> [y_pos] - vertical position within the window <br> [size] - square size of the gui element<br> [init] - set on load <br> [send] - send symbol name <br> [receive] - receive symbol name <br> [label] - label<br> [x_off] - horizontal position of the label text relative to the upperleft corner of the object <br> [y_off] - vertical position of the label text relative to the upperleft corner of the object <br> [font] - font type <br> [fontsize] - font size<br> [bg_color] - background color <br> [fg_color] - foreground color <br> [label_color] - label color<br> [init_value] - value sent when the [init] attribute is set<br> [default_value] - default value when the [init] attribute is not set</td> </tr> <tr> <td width="85" valign="top"><div align="right">Example:</div></td> <td class="code">#X obj 29 44 tgl 15 1 empty empty empty 0 -6 192 8 -262144 -1 -1 234 234;</td> </tr> <tr> <td valign="top"><div align="right">Remarks:</div></td> <td><p>[send], [receive] and [label] cannot be named "empty", this is a reserved name for when no value is assigned.<br> The [default_value] attribute can be changed in a patch and saved, this is why there are different values for [init_value] and [default_value]<strong><br> </strong></p></td> </tr></table><blockquote> <p><a href="#6">back to reference index</a></p> <p> </p></blockquote><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td colspan="2"><a name="r363"></a>nbx</td> </tr> <tr> <td valign="top"><div align="right">Description:</div></td> <td>Defines a Number2 number box </td> </tr> <tr> <td width="85" valign="top"><div align="right">Syntax:</div></td> <td class="code"><strong>#X obj </strong> [x_pos] [y_pos] <strong>nbx</strong> [size] [height] [min] [max] [log] [init] [send] [receive] [label] [x_off] [y_off] [font] [fontsize] [bg_color] [fg_color] [label_color] [log_height]<strong>;\r\n</strong></td> </tr> <tr> <td width="85" valign="top"><div align="right">Parameters:</div></td> <td>[x_pos] - horizontal position within the window<br> [y_pos] - vertical position within the window <br> [size] - number of digits the element displays <br> [height] - vertical size of element in pixels<br> [min] - minimum value, typically -1e+037<br> [max] - maximum value, typically 1e+037<br> [log] - linear when unset, logarithmic when set<br> [init] - when set outputs <br> [send] - send symbol name <br> [receive] - receive symbol name<br> [label] - label <br> [x_off] - horizontal position of the label text relative to the upperleft corner of the object<br> [y_off] - vertical position of the label text relative to the upperleft corner of the object<br> [font] - font type <br> [fontsize] - font size in pixels<br> [bg_color] - background color<br> [fg_color] - foreground color<br> [label_color] - label color <br> [log_height] - logarithmic steps, accepts values from 10 to 2000, default is 256</td> </tr> <tr> <td width="85" valign="top"><div align="right">Example:</div></td> <td class="code">#X obj 39 48 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0 256;</td> </tr> <tr> <td valign="top"><div align="right">Remarks:</div></td> <td><p>This element resembles the floatatom element, but is extended with gui and logarithmic parameters and (probably) more accurate.<br> The attributes [font], [font_size] and [fg_color] also apply to the digits.<strong><br> </strong></p></td> </tr></table><blockquote> <p><a href="#6">back to reference index</a></p> <p> </p></blockquote><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td colspan="2"><a name="r364"></a>vsl</td> </tr> <tr> <td valign="top"><div align="right">Description:</div></td> <td>Defines a vertical slider </td> </tr> <tr> <td width="85" valign="top"><div align="right">Syntax:</div></td> <td class="code"><strong>#X obj </strong> [x_pos] [y_pos] <strong>vsl</strong> [width] [height] [bottom] [top] [log] [init] [send] [receive] [label] [x_off] [y_off] [font] [fontsize] [bg_color] [fg_color] [label_color] [default_value] [steady_on_click]<strong>;\r\n</strong></td> </tr> <tr> <td width="85" valign="top"><div align="right">Parameters:</div></td> <td>[x_pos] - horizontal position within the window<br> [y_pos] - vertical position within the window <br> [width] - horizontal size of gui element <br> [height] - vertical size of gui element <br> [bottom] - minimum value <br> [top] - maximum value<br> [log] - when set the slider range is outputted logarithmically, otherwise it's output is linair<br> [init] - sends default value on patch load <br> [send] - send symbol name <br> [receive] - receive symbol name <br> [label] - label <br> [x_off] - horizontal position of the label text relative to the upperleft corner of the object<br>[y_off] - vertical position of the label text relative to the upperleft corner of the object<br> [font] - font type <br> [fontsize] - font size <br> [bg_color] - background color <br> [fg_color] - foreground color<br> [label_color] - label color <br> [default_value] - default value times hundred<br> [steady_on_click] - when set, fader is steady on click, otherwise it jumps on click</td> </tr> <tr> <td width="85" valign="top"><div align="right">Example:</div></td> <td class="code">#X obj 50 38 vsl 15 128 0 127 0 0 empty empty empty 0 -8 0 8 -262144 -1 -1 0 1;</td> </tr> <tr> <td valign="top"><div align="right">Remarks:</div></td> <td><p>The vertical slider object and the horizontal slider are the only objects which have a default value multiplied by hundred. This purpose is unknown.<strong><br> </strong></p></td> </tr></table><blockquote> <p><a href="#6">back to reference index</a></p> <p> </p></blockquote><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td colspan="2"><a name="r365"></a>hsl</td> </tr> <tr> <td valign="top"><div align="right">Description:</div></td> <td>Defines a horizontal slider </td> </tr> <tr> <td width="85" valign="top"><div align="right">Syntax:</div></td> <td class="code"><strong>#X obj </strong> [x_pos] [y_pos] <strong>hsl</strong> [width] [height] [bottom] [top] [log] [init] [send] [receive] [label] [x_off] [y_off] [font] [fontsize] [bg_color] [fg_color] [label_color] [default_value] [steady_on_click]<strong>;\r\n</strong></td> </tr> <tr> <td width="85" valign="top"><div align="right">Parameters:</div></td> <td>[x_pos] - horizontal position within the window<br> [y_pos] - vertical position within the window <br> [width] - horizontal size of gui element <br> [height] - vertical size of gui element <br> [bottom] - minimum value <br> [top] - maximum value<br> [log] - when set the slider range is outputted logarithmically, otherwise it's output is linair<br> [init] - sends default value on patch load <br> [send] - send symbol name <br> [receive] - receive symbol name <br> [label] - label <br> [x_off] - horizontal position of the label text relative to the upperleft corner of the object<br> [y_off] - vertical position of the label text relative to the upperleft corner of the object<br> [font] - font type <br> [fontsize] - font size <br> [bg_color] - background color <br> [fg_color] - foreground color<br> [label_color] - label color <br> [default_value] - default value times hundred<br> [steady_on_click] - when set, fader is steady on click, otherwise it jumps on click</td> </tr> <tr> <td width="85" valign="top"><div align="right">Example:</div></td> <td class="code">#X obj 53 44 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1;</td> </tr> <tr> <td valign="top"><div align="right">Remarks:</div></td> <td><p>The horizontal slider object and the vertical slider are the only objects which have a default value multiplied by hundred. This purpose is unknown.<br> </p></td> </tr></table><blockquote> <p><a href="#6">back to reference index</a></p> <p> </p></blockquote><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td colspan="2"><a name="r366"></a>vradio</td> </tr> <tr> <td valign="top"><div align="right">Description:</div></td> <td>Defines a vertical radio button selector</td> </tr> <tr> <td width="85" valign="top"><div align="right">Syntax:</div></td> <td class="code"><strong>#X obj </strong> [x_pos] [y_pos] <strong>vradio</strong> [size] [new_old] [init] [number] [send] [receive] [label] [x_off] [y_off] [font] [fontsize] [bg_color] [fg_color] [label_color] [default_value]<strong>;\r\n</strong></td> </tr> <tr> <td width="85" valign="top"><div align="right">Parameters:</div></td> <td>[x_pos] - horizontal position within the window<br> [y_pos] - vertical position within the window <br> [size] - horizontal size and vertical size, depending on the number of radio buttons <br> [new_old] - send new and old value, or only the new value<br> [init] - send default value on init <br> [number] - amount of radio buttons <br> [send] - send symbol name <br> [receive] - receive symbol name <br> [label] - label <br> [x_off] - horizontal position of the label text relative to the upperleft corner of the object<br>[y_off] - vertical position of the label text relative to the upperleft corner of the object<br>[font] - font type <br>[fontsize] - font size <br>[bg_color] - background color <br>[fg_color] - foreground color<br>[label_color] - label color<br> [default_value] - default value to be sent on patch load when the [init] attribute has been set.</td> </tr> <tr> <td width="85" valign="top"><div align="right">Example:</div></td> <td class="code">#X obj 48 42 vradio 15 1 0 8 empty empty empty 0 -6 0 8 -262144 -1 -1 0;</td> </tr> <tr> <td valign="top"><div align="right">Remarks:</div></td> <td><p>The purpose of the [new_old] switch is unknown.<strong><br> </strong></p></td> </tr></table><blockquote> <p><a href="#6">back to reference index</a></p> <p> </p></blockquote><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td colspan="2"><a name="r367"></a>hradio</td> </tr> <tr> <td valign="top"><div align="right">Description:</div></td> <td>Defines a horizontal radio button selector</td> </tr> <tr> <td width="85" valign="top"><div align="right">Syntax:</div></td> <td class="code"><strong>#X obj </strong> [x_pos] [y_pos] <strong>hradio</strong> [size] [new_old] [init] [number] [send] [receive] [label] [x_off] [y_off] [font] [fontsize] [bg_color] [fg_color] [label_color] [default_value]<strong>;\r\n</strong></td> </tr> <tr> <td width="85" valign="top"><div align="right">Parameters:</div></td> <td>[x_pos] - horizontal position within the window<br> [y_pos] - vertical position within the window <br> [size] - vertical size and horizontal size, depending on the number of radio buttons <br> [new_old] - send new and old value, or only the new value<br> [init] - send default value on init <br> [number] - amount of radio buttons <br> [send] - send symbol name <br> [receive] - receive symbol name <br> [label] - label <br> [x_off] - horizontal position of the label text relative to the upperleft corner of the object<br> [y_off] - vertical position of the label text relative to the upperleft corner of the object<br> [font] - font type <br> [fontsize] - font size <br> [bg_color] - background color <br> [fg_color] - foreground color<br> [label_color] - label color<br> [default_value] - default value to be sent on patch load when the [init] attribute has been set.</td> </tr> <tr> <td width="85" valign="top"><div align="right">Example:</div></td> <td class="code">#X obj -50 54 hradio 15 1 0 8 empty empty empty 0 -6 0 8 -262144 -1 -1 0;</td> </tr> <tr> <td valign="top"><div align="right">Remarks:</div></td> <td><p>The purpose of the [new_old] switch is unknown.<strong><br> </strong></p></td> </tr></table><blockquote> <p><a href="#6">back to reference index</a></p> <p> </p></blockquote><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td colspan="2"><a name="r368"></a>vu</td> </tr> <tr> <td valign="top"><div align="right">Description:</div></td> <td>Defines a VU-meter </td> </tr> <tr> <td width="85" valign="top"><div align="right">Syntax:</div></td> <td class="code"><strong>#X obj </strong> [x_pos] [y_pos] <strong>vu</strong> [width] [height] [receive] [label] [x_off] [y_off] [font] [fontsize] [bg_color] [label_color] [scale] [?]<strong>;\r\n</strong></td> </tr> <tr> <td width="85" valign="top"><div align="right">Parameters:</div></td> <td>[x_pos] - horizontal position within the window<br> [y_pos] - vertical position within the window <br> [width] - horizontal size of element <br> [height] - vertical size of element <br> [receive] - receive symbol name <br> [label] - label<br> [x_off] - horizontal position of the label text relative to the upperleft corner of the object<br>[y_off] - vertical position of the label text relative to the upperleft corner of the object<br>[font] - font type <br>[fontsize] - font size <br>[bg_color] - background color <br> [label_color] - label color <br> [scale] - when set the logarithmic scale is displayed <br> [?] - unknown value, default is zero</td> </tr> <tr> <td width="85" valign="top"><div align="right">Example:</div></td> <td>#X obj 40 44 vu 15 120 empty empty -1 -8 0 8 -66577 -1 1 0;</td> </tr> <tr> <td valign="top"><div align="right">Remarks:</div></td> <td><p>We looked inside the source code but still couldn't see the purpose of the final value.<strong><br> </strong></p></td> </tr></table><blockquote> <p><a href="#6">back to reference index</a></p> <p> </p></blockquote><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td colspan="2"><a name="r369"></a>cnv</td> </tr> <tr> <td valign="top"><div align="right">Description:</div></td> <td>Defines a canvas, a gui component </td> </tr> <tr> <td width="85" valign="top"><div align="right">Syntax:</div></td> <td class="code"><strong>#X obj </strong> [x_pos] [y_pos] <strong>cnv</strong> [size] [width] [height] [send] [receive] [label] [x_off] [y_off] [font] [font_size] [bg_color] [label_color] [?]<strong>;\r\n</strong></td> </tr> <tr> <td width="85" valign="top"><div align="right">Parameters:</div></td> <td>[x_pos] - horizontal position within the window<br>[y_pos] - vertical position within the window<br> [size] - size of selectable square<br>[width] - horizontal size of the GUI-element<br>[height] - vertical size of the GUI-element<br>[send] - send symbol name <br>[receive] - receive symbol name <br>[label] - label <br>[x_off] - horizontal position of the label text relative to the upperleft corner of the object<br>[y_off] - vertical position of the label text relative to the upperleft corner of the object<br>[font] - font type <br>[fontsize] - font size <br>[bg_color] - background color<br>[label_color] - foreground color <br>[?] - unknown value, default is zero</td> </tr> <tr> <td width="85" valign="top"><div align="right">Example:</div></td> <td class="code">#X obj 27 40 cnv 15 100 60 empty empty empty 20 12 0 14 -233017 -66577 0;</td> </tr> <tr> <td valign="top"><div align="right">Remarks:</div></td> <td><p>We couldn't find the purpose of the final value.<strong><br> </strong></p></td> </tr></table><blockquote> <p><a href="#6">back to reference index</a></p> <p> </p></blockquote><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td colspan="2"><a name="r37"></a>[name]</td> </tr> <tr> <td valign="top"><div align="right">Description:</div></td> <td>Defines an external subpatch or library patch </td> </tr> <tr> <td width="85" valign="top"><div align="right">Syntax:</div></td> <td class="code"><strong>#X obj </strong> [x_pos] [y_pos] [name] [p1] [p2] [p3] [...] <strong>;\r\n</strong></td> </tr> <tr> <td width="85" valign="top"><div align="right">Parameters:</div></td> <td>[x_pos] - horizontal position within the window<br>[y_pos] - vertical position within the window<br> [name] - name of the subpatch / library patch<br> [p1] [p2] [p3] [...] - optional parameters</td> </tr> <tr> <td width="85" valign="top"><div align="right">Example:</div></td> <td class="code">#X obj 121 102 subpatch; </td> </tr> <tr> <td valign="top"><div align="right">Remarks:</div></td> <td><p>If the external object isn't in the loaded libraries PureData searches in the folder of the main frame (window) to locate the object. <strong><br> </strong></p></td> </tr></table><blockquote> <p><a href="#6">back to reference index</a></p> <p> </p></blockquote><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td colspan="2"><a name="r38"></a>pd</td> </tr> <tr> <td valign="top"><div align="right">Description:</div></td> <td>Defines an internal subpatch </td> </tr> <tr> <td width="85" valign="top"><div align="right">Syntax:</div></td> <td class="code"><strong>#X restore </strong> [x_pos] [y_pos] <strong>pd</strong> [name]<strong>;\r\n</strong></td> </tr> <tr> <td width="85" valign="top"><div align="right">Parameters:</div></td> <td>[x_pos] - horizontal position within the window<br>[y_pos] - vertical position within the window<br> [size] - size of selectable square<br> [width] - horizontal size of the GUI-element<br> [name] - name of the subpatch</td> </tr> <tr> <td width="85" valign="top"><div align="right">Example:</div></td> <td class="code">#N canvas 0 0 454 304 inc 0;<br> #X obj 34 40 inlet;<br> #X obj 34 95 outlet;<br> #X obj 34 67 + 1;<br> #X connect 0 0 2 0;<br> #X connect 2 0 1 0;<br> #X restore 90 124 pd inc;<br> #X floatatom 90 99 5 0 0 0 - - -;<br> #X floatatom 90 151 5 0 0 0 - - -;<br> #X connect 0 0 2 0;<br> #X connect 1 0 0 0;</td> </tr> <tr> <td valign="top"><div align="right">Remarks:</div></td> <td><p>Naturally the restore element which invokes a subpatch is preceded with a canvas element and the subpatch elements. <br> Objects within a subpatch are counted seperately from a parent frame (window).<strong><br> </strong></p></td> </tr></table><blockquote> <p><a href="#6">back to reference index</a></p> <p> </p></blockquote><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td colspan="2"><a name="r39"></a>restore</td> </tr> <tr> <td valign="top"><div align="right">Description:</div></td> <td>Ends a canvas definition</td> </tr> <tr> <td width="85" valign="top"><div align="right">Syntax:</div></td> <td class="code"><strong>#X restore </strong> [x_pos] [y_pos] [type] [name]<strong>;\r\n</strong></td> </tr> <tr> <td width="85" valign="top"><div align="right">Parameters:</div></td> <td>[x_pos] - horizontal position within the window<br> [y_pos] - vertical position within the window<br> [type] - type of canvas, values are either "graph" or "pd"<br> [name] - name of the subpatch, only used when the [type] attribute is set to "pd"</td> </tr> <tr> <td valign="top"><div align="right">Example:</div></td> <td class="code">#N canvas 0 0 450 300 graph2 0;<br> #X coords 0 1 100 -1 200 140 1;<br> #X restore 27 30 graph;</td> </tr> <tr> <td width="85" valign="top"><div align="right">Example:</div></td> <td class="code">#N canvas 0 0 452 302 subpatch 0;<br> #X restore 64 69 pd subpatch;</td> </tr> <tr> <td valign="top"><div align="right">Remarks:</div></td> <td><p>The restore element is used only in combination with canvas elements. There are two uses:<br> In the first example it defines a graph, in this case a coords element is required.<br> In the second example it defines a subpatch. In this case only the canvas attribute [name] and the restore attribute [name] should correlate.<strong><br> </strong></p> </td> </tr></table><blockquote> <p><a href="#6">back to reference index</a></p> <p> </p></blockquote><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td colspan="2"><a name="r3A"></a>symbolatom</td> </tr> <tr> <td valign="top"><div align="right">Description:</div></td> <td>Defines an symbol box </td> </tr> <tr> <td width="85" valign="top"><div align="right">Syntax:</div></td> <td class="code"><strong>#X symbolatom </strong> [x_pos] [y_pos] [width] [lower_limit] [upper_limit] [label_pos] [label] [receive] [send]<strong>;\r\n</strong></td> </tr> <tr> <td width="85" valign="top"><div align="right">Parameters:</div></td> <td><p>[x_pos] - horizontal position within the window<br> [y_pos] - vertical position within the window<br> [width] - amount of digits/characters<br>[lower_limit] - minimum value <br> [upper_limit] - maximum value <br> [label_pos] - label position relative to floatatom position. 0 = left, 1 = right, 2 = top, 3 = bottom <br> [label] - label <br> [receive] - receive symbol value <br> [send] - send symbol value</p> </td> </tr> <tr> <td valign="top"><div align="right">Example:</div></td> <td class="code">#X symbolatom 36 37 10 0 0 0 - - -;</td> </tr> <tr> <td valign="top"><div align="right">Remarks:</div></td> <td><p>When the value of [upper_limit] minus the value of [lower_limit] is less than one, PureData resets these values both to zero.<br> Symbolatom and floatatom are the only elements that uses "-" characters to indicate that no value has been assigned to its attributes [label], [receive] and [send].<strong></strong><strong><br> </strong></p></td> </tr></table><blockquote> <p><a href="#6">back to reference index</a></p> <p> </p></blockquote><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td colspan="2"><a name="r3B"></a>text</td> </tr> <tr> <td valign="top"><div align="right">Description:</div></td> <td>Defines a comment </td> </tr> <tr> <td width="85" valign="top"><div align="right">Syntax:</div></td> <td class="code"><strong>#X text </strong> [x_pos] [y_pos] [comment]<strong>;\r\n</strong></td> </tr> <tr> <td width="85" valign="top"><div align="right">Parameters:</div></td> <td><p>[x_pos] - horizontal position within the window<br> [y_pos] - vertical position within the window<br> [comment] - custom string, spaces allowed<br> </p></td> </tr> <tr> <td valign="top"><div align="right">Example:</div></td> <td class="code">#X text 28 25 comment;</td> </tr> <tr> <td valign="top"><div align="right">Remarks:</div></td> <td><p>ASCII return codes 13 and 10 are not stored, a semicolon character is preceded with the escape character backslash. <strong><br> </strong></p></td> </tr></table><blockquote> <p><a href="#6">back to reference index</a></p></blockquote><p> <br> <hr width="100%" size="2" noshade> <p> <a href="http://validator.w3.org/check?uri=referer"><img border="0" src="http://www.w3.org/Icons/valid-html401" alt="Valid HTML 4.01!" height="31" width="88"></a> </p> </body> </html>

1 0

externals/ggee/gui envgen-help.pd,1.2,1.3
by Hans-Christoph Steiner 20 Sep '06

20 Sep '06

Update of /cvsroot/pure-data/externals/ggee/gui In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20951/gui Modified Files: envgen-help.pd Log Message: made a functional example Index: envgen-help.pd =================================================================== RCS file: /cvsroot/pure-data/externals/ggee/gui/envgen-help.pd,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** envgen-help.pd 23 Feb 2006 05:21:13 -0000 1.2 --- envgen-help.pd 20 Sep 2006 03:06:33 -0000 1.3 *************** *** 1,29 **** ! #N canvas 298 25 460 501 10; ! #X obj 115 276 envgen 203 123 1 0 ; #X text 21 6 envgen:; #X text 22 27 Envelope generator. This external delivers value for line~ if it is banged. When numbers are sent to its input it delivers the corresponding value of the envelope; ! #X msg 136 136 motion 4 4; ! #X msg 91 137 key 4; ! #X msg 167 183 duration 5000; ! #X floatatom 112 427 5 0 0 0 - - -; ! #X floatatom 319 426 5 0 0 0 - - -; ! #X msg 42 158 bang; ! #X msg 155 160 sustain 5; ! #X msg 185 207 freeze 5; ! #X msg 186 236 release; ! #X msg 37 221 resize 22; ! #X text 21 73 arguments; ! #X text 51 82 xsize ysize xmax ymax send_symbol receive_symbol ... ; ! #X connect 0 0 6 0; ! #X connect 0 1 7 0; ! #X connect 3 0 0 0; ! #X connect 4 0 0 0; #X connect 5 0 0 0; #X connect 8 0 0 0; #X connect 9 0 0 0; #X connect 10 0 0 0; ! #X connect 11 0 0 0; ! #X connect 12 0 0 0; --- 1,83 ---- ! #N canvas 91 22 484 479 10; ! #X obj 101 182 envgen 203 123 1 0 ; #X text 21 6 envgen:; #X text 22 27 Envelope generator. This external delivers value for line~ if it is banged. When numbers are sent to its input it delivers the corresponding value of the envelope; ! #X msg 79 145 bang; ! #X text 21 75 arguments; ! #X text 51 84 xsize ysize xmax ymax send_symbol receive_symbol ... ; ! #X obj 124 144 metro 2000; ! #X obj 124 120 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1 ! ; ! #X obj 192 124 hsl 128 15 20 2000 0 0 empty empty empty -2 -6 0 8 -262144 ! -1 -1 0 1; ! #X msg 345 183 \; pd dsp 1; ! #N canvas 0 22 462 312 guts 0; ! #X obj 151 62 osc~ 250; ! #X obj 151 101 *~; ! #X obj 241 101 *~; ! #X obj 241 61 noise~; ! #X obj 177 172 *~; ! #X obj 133 150 line~; ! #X obj 188 235 dac~; ! #X obj 215 188 hsl 128 15 0.01 1 1 0 empty empty master_amplitude -2 ! -6 0 8 -262144 -1 -1 10500 1; ! #X obj 254 11 inlet; ! #X obj 393 18 inlet; ! #X obj 157 15 inlet; ! #X obj 6 8 inlet; ! #X obj 196 207 *~ 0.6; ! #X connect 0 0 1 0; ! #X connect 1 0 4 1; ! #X connect 2 0 4 1; ! #X connect 3 0 2 0; ! #X connect 4 0 12 0; ! #X connect 5 0 4 0; ! #X connect 7 0 12 1; ! #X connect 8 0 1 1; ! #X connect 9 0 2 1; ! #X connect 10 0 0 0; ! #X connect 11 0 5 0; ! #X connect 12 0 6 1; ! #X connect 12 0 6 0; ! #X restore 168 380 pd guts; ! #X obj 183 353 tgl 15 0 empty empty empty 0 -6 0 8 -225271 -1 -1 1 ! 1; ! #X obj 206 353 tgl 15 1 empty empty empty 0 -6 0 8 -225271 -1 -1 1 ! 1; ! #X obj 170 329 hsl 128 15 100 1000 0 0 empty empty empty -2 -6 0 8 ! -262144 -1 -1 6600 1; ! #N canvas 0 22 454 304 all 0; ! #X obj 124 116 envgen 203 123 1 0 ; ! #X msg 177 36 motion 4 4; ! #X msg 183 78 duration 5000; ! #X floatatom 120 267 5 0 0 0 - - -; ! #X floatatom 327 266 5 0 0 0 - - -; ! #X msg 74 11 bang; ! #X msg 183 57 sustain 5; ! #X msg 286 78 freeze 5; ! #X msg 356 78 release; ! #X msg 30 73 resize 2; ! #X msg 31 52 key 4; ! #X connect 0 0 3 0; ! #X connect 0 1 4 0; ! #X connect 1 0 0 0; ! #X connect 2 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 10 0 0 0; ! #X restore 195 413 pd all messages; ! #X text 95 413 For more info:; ! #X connect 0 0 10 0; ! #X connect 3 0 0 0; ! #X connect 6 0 0 0; ! #X connect 7 0 6 0; ! #X connect 8 0 6 1; ! #X connect 11 0 10 2; ! #X connect 12 0 10 3; ! #X connect 13 0 10 1;

1 0

extensions/gui/ix/desire - New directory
by carmen rocco 20 Sep '06

20 Sep '06

Update of /cvsroot/pure-data/extensions/gui/ix/desire In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv636/desire Log Message: Directory /cvsroot/pure-data/extensions/gui/ix/desire added to the repository

1 0

extensions/gui/ix dd-demo.pd, 1.1, NONE dd.wid, 1.1, NONE dm-demo.pd, 1.1, NONE dm.wid, 1.2, NONE filter-demo.pd, 1.1, NONE filter.wid, 1.2, NONE grid-demo.pd, 1.1, NONE grid.wid, 1.2, NONE img-demo.pd, 1.1, NONE img.wid, 1.1, NONE kbd-demo.pd, 1.4, NONE kbd.wid, 1.5, NONE knob-demo.pd, 1.2, NONE knob.wid, 1.1, NONE lg-demo.pd, 1.1, NONE lg.wid, 1.1, NONE mat-demo.pd, 1.7, NONE mat.wid, 1.22, NONE ngrid-demo.pd, 1.3, NONE ngrid.wid, 1.2, NONE nob-demo.pd, 1.1, NONE nob.wid, 1.1, NONE q-demo.pd, 1.1
by carmen rocco 20 Sep '06

20 Sep '06

Update of /cvsroot/pure-data/extensions/gui/ix In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31899 Removed Files: dd-demo.pd dd.wid dm-demo.pd dm.wid filter-demo.pd filter.wid grid-demo.pd grid.wid img-demo.pd img.wid kbd-demo.pd kbd.wid knob-demo.pd knob.wid lg-demo.pd lg.wid mat-demo.pd mat.wid ngrid-demo.pd ngrid.wid nob-demo.pd nob.wid q-demo.pd q.wid sp-demo.pd sp.wid spectrum-demo.pd spectrum.wid tile-demo.pd tile.wid tree-demo.pd tree.wid Log Message: --- mat.wid DELETED --- --- tile-demo.pd DELETED --- --- lg-demo.pd DELETED --- --- ngrid.wid DELETED --- --- lg.wid DELETED --- --- ngrid-demo.pd DELETED --- --- q.wid DELETED --- --- mat-demo.pd DELETED --- --- dd.wid DELETED --- --- kbd.wid DELETED --- --- grid.wid DELETED --- --- filter-demo.pd DELETED --- --- sp.wid DELETED --- --- dd-demo.pd DELETED --- --- kbd-demo.pd DELETED --- --- sp-demo.pd DELETED --- --- dm-demo.pd DELETED --- --- dm.wid DELETED --- --- grid-demo.pd DELETED --- --- tree.wid DELETED --- --- tree-demo.pd DELETED --- --- q-demo.pd DELETED --- --- spectrum.wid DELETED --- --- spectrum-demo.pd DELETED --- --- filter.wid DELETED --- --- img-demo.pd DELETED --- --- knob.wid DELETED --- --- nob.wid DELETED --- --- tile.wid DELETED --- --- knob-demo.pd DELETED --- --- nob-demo.pd DELETED --- --- img.wid DELETED ---

1 0

20 Sep '06

Update of /cvsroot/pure-data/extensions/gui/ix/toxy In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31899/toxy Added Files: dd-demo.pd dd.wid dm-demo.pd dm.wid filter-demo.pd filter.wid grid-demo.pd grid.wid img-demo.pd img.wid kbd-demo.pd kbd.wid knob-demo.pd knob.wid lg-demo.pd lg.wid mat-demo.pd mat.wid ngrid-demo.pd ngrid.wid nob-demo.pd nob.wid q-demo.pd q.wid sp-demo.pd sp.wid spectrum-demo.pd spectrum.wid tile-demo.pd tile.wid tree-demo.pd tree.wid Log Message: --- NEW FILE: mat.wid --- foreach package {snack tkdnd tkpath} {package require $package} namespace eval ::ix { proc rc {} {return [format "\#%06x" [expr "int(floor(rand() * 16777216))"]]} proc rgb {} {return [list [expr "int(floor(rand() * 256))"] [expr "int(floor(rand() * 256))"] [expr "int(floor(rand() * 256))"]]} proc lighten {rgb r} {set l {}; foreach c $rgb {lappend l [expr {(256 - $c) * $r + $c}]}; return $l} proc darken {rgb r} {set l {}; foreach c $rgb {lappend l [expr {$c - ($c * $r)}]}; return $l} proc color {rgb} {return [format "\#%02x%02x%02x" [expr int([lindex $rgb 0])] [expr int([lindex $rgb 1])] [expr int([lindex $rgb 2])]]} proc random_txt {n} { set i 0 set text "" while {$i < $n} { set int [expr "int(floor(rand()*62))"] if {$int < 10} {incr int 48} elseif {$int < 36} {incr int 55} else {incr int 61} set text "$text[format %c $int]" incr i } return $text } proc mat_sel {p t a x y} { variable _ set _($t:sc) [rc] switch $a { first { foreach xy {x y} {set _($t:c$xy) [set $xy];set _($t:f$xy) [set $xy]} $p.m create path [::tkpath::coords rect $_($t:cx) $_($t:cy) 0 0 -rx 12 -ry 12] \ -tags sel -stroke $_($t:sc) -strokewidth 12 -strokeopacity 0.3} release {$p.m delete sel} motion { mat_updatesel $p $t [mat_cleansel $p $t [$p.m find overlapping $_($t:fx) $_($t:fy) $x $y]] if {$x >= $_($t:cx)} {set xa $_($t:fx);set xb $x} else {set xa $x;set xb $_($t:fx)} if {$y >= $_($t:cy)} {set ya $_($t:fy);set yb $y} else {set ya $y;set yb $_($t:fy)} set w [expr {abs($xb - $xa)}] set h [expr {abs($yb - $ya)}] $p.m coords sel [::tkpath::coords rect $xa $ya $w $h -rx 12 -ry 12] $p.m itemconfigure sel -stroke $_($t:sc)}}} proc mat_item_new {p t id d} { variable _ if {$id eq "-"} { if {[dict keys $_($t)] eq ""} {set id 0} else { set id -1 while true {if {[lsearch -integer [dict keys $_($t)] [incr id]] == -1} {break}} } } set _($t:ci) $id mat_item_ua $p $t $id abs {x 0 xx 0 y 0 yy 0 g 0 v 1} 0 mat_item_ua $p $t $id abs $d 0 mat_item_draw $p $t $id } proc mat_item_draw {p t is} { variable _ if {$is eq "all"} {set is [dict keys $_($t)]} foreach id $is { set tags [list item i$id $id] set color [dict get $_($t:g) $_($t:cg) color] switch [dict get $_($t) $id type] { note { $p.m create path [::tkpath::coords rect 0 0 0 0 -rx 3 -ry 3] -tags [concat $tags r] -stroke [color [lighten $color 0.4]] -strokeopacity 1.0 -fill [color $color] -fillopacity 0.08 $p.m create path [::tkpath::coords rect 0 0 0 0 -rx 3 -ry 3] -tags [concat $tags q] -fill [color $color] -strokewidth 0 -fillopacity 0.8 } sound { snack:::sound s$id set filename [dict get $_($t) $id filename] s$id read $filename $p.m create path [::tkpath::coords rect 0 0 0 0 -rx 3 -ry 3] -tags [concat $tags r] -strokewidth 0 -fill [color $color] -fillopacity 0.08 $p.m create waveform 0 0 -tags [concat $tags w] -sound s$id -fill white set length [expr [s$id length] / ($_($t:samplerate) + 0.0) * 1000] mat_item_ua $p $t $id abs [dict create xx [expr [dict get $_($t) $id x] + $length]] 0 $p.m create text 0 0 -tags [concat $tags tl] -font {{bitstream vera sans} 8} -fill HotPink -anchor nw -justify left -text "[string range $length 0 10] s" $p.m create rectangle 0 0 0 0 -tags [concat $tags tlr] -fill LightGreen -width 0 $p.m raise [$p.m find withtag "i$id && tl"] $p.m create text 0 0 -tags [concat $tags tf] -font {{bitstream vera sans} 8} -fill NavyBlue -anchor ne -justify right -text $filename $p.m create rectangle 0 0 0 0 -tags [concat $tags tfr] -fill gray90 -width 0 $p.m raise [$p.m find withtag "i$id && tf"] } } mat_redraw $p $t $id } } proc mat_item_delete {p t} { variable _ foreach item $_($t:sel) { foreach i [$p.m find withtag i$item] { $p.m delete $i } dict unset _($t) $item set _($t:sel) {} mat_item_info $p $t "" pd [concat $t.rp _cb delete $item \;] } } proc mat_quant {p t y v} { variable _ if {$y eq "xx"} {set y x}; if {$y eq "yy"} {set y y} if {$y eq "x" || $y eq "y"} { set v [expr {int( ($v + $_($t:q$y) / 2.0 ) / ($_($t:q$y) + 0.0))*$_($t:q$y)}] } return $v } proc mat_item_pos {p t item r x y xx yy} { mat_item_ua $p $t $item $r [dict create x $x y $y xx $xx yy $yy] 1} proc mat_item_ua {p t item r u redraw} { variable _ foreach a [dict keys $u] { switch $r {abs {dict set _($t) $item $a [dict get $u $a]} rel {dict set _($t) $item $a [expr {[dict get $_($t) $item $a] + [dict get $u $a]}]}} pd [concat $t.rp _cb update $item $a [pdtk_enquote [dict get $_($t) $item $a]] \;] } if {$redraw == 1} {mat_redraw $p $t $item} } proc mat_draw {p t a x y} { variable _ switch $a { motion { if {$_($t:af) == 1} { mat_item_pos $p $t $_($t:ci) abs [mat_tr $p $t y i $y] [mat_tr $p $t x i $x] [mat_tr $p $t y i $_($t:fy)] [mat_tr $p $t x i $x] } else { mat_item_pos $p $t $_($t:ci) abs [mat_tr $p $t x i $x] [mat_tr $p $t y i $y] [mat_tr $p $t x i $_($t:fx)] [mat_tr $p $t y i $y] } } first {mat_item_new $p $t - [dict create type note g $_($t:cg) x 0 y 0 xx 0 yy 0 v 1]}}} proc mat_resize_canvas {p t a x y} {mat_viewpoint $p $t [dict create action resize x $x y $y]} proc mat_redraw {p t items} { variable _ if {$_($t:af) == 1} { array set a {x y y x xx yy yy xx} } else { array set a {x x y y xx xx yy yy} } switch $items { all {set items [dict keys $_($t)]} default {}} foreach id $items { set x [mat_tr $p $t x t [dict get $_($t) $id $a(x)]] set y [mat_tr $p $t y t [dict get $_($t) $id $a(y)]] set qx [mat_tr $p $t x t [mat_quant $p $t x [dict get $_($t) $id $a(x)]]] set qy [mat_tr $p $t y t [mat_quant $p $t y [dict get $_($t) $id $a(y)]]] set wx [expr {[dict get $_($t) $id $a(xx)] - [dict get $_($t) $id $a(x)]}] if {$wx == 0} {set wx 1} set sx [expr abs([mat_tr $p $t x id $wx])] set qsx [expr int(abs([mat_tr $p $t x id [expr {[mat_quant $p $t x [dict get $_($t) $id $a(xx)]] - [mat_quant $p $t x [dict get $_($t) $id $a(x)]]}]]))] set wy [expr {[dict get $_($t) $id $a(yy)] - [dict get $_($t) $id $a(y)]}] if {$wy == 0} {set wy 1} set sy [expr abs([mat_tr $p $t y id $wy])] set qsy [expr int(abs([mat_tr $p $t y id [expr {[mat_quant $p $t y [dict get $_($t) $id $a(yy)]] - [mat_quant $p $t y [dict get $_($t) $id $a(y)]]}]]))] set ro [expr {int( [set s$a(y)] / 2.0 )}] if {[lsearch -integer $_($t:sel) $id] >= 0} { set color $_($t:sc) } else { set color [color [dict get $_($t:g) [dict get $_($t) $id g] color]] } switch [dict get $_($t) $id type] { note { set r [$p.m find withtag "i$id && r"] set q [$p.m find withtag "i$id && q"] $p.m coords $r [::tkpath::coords rect $x $y $sx $sy -rx $ro -ry $ro] $p.m coords $q [::tkpath::coords rect $qx $qy $qsx $qsy -rx $ro -ry $ro] $p.m itemconfigure $q -fillopacity [dict get $_($t) $id v] -fill $color } sound { set waveform [$p.m find withtag "i$id && w"] set r [$p.m find withtag "i$id && r"] # set ro [expr int($ro / 2.)] set ro 6 $p.m coords $r [::tkpath::coords rect $x $y $sx $sy -rx $ro -ry $ro] $p.m itemconfigure $r -fillopacity [dict get $_($t) $id v] -fill $color $p.m coords $waveform $x $y $p.m itemconfigure $waveform -width $sx -height [expr int($sy)] # $p.m itemconfigure $waveform -width $sx $p.m coords [$p.m find withtag "i$id && tl"] [expr $x + 4] [expr $y + 4] $p.m coords [$p.m find withtag "i$id && tlr"] [$p.m bbox [$p.m find withtag "i$id && tl"] ] $p.m coords [$p.m find withtag "i$id && tf"] [expr $x + $sx] [expr $y + 4] $p.m coords [$p.m find withtag "i$id && tfr"] [$p.m bbox [$p.m find withtag "i$id && tf"] ] } } } } proc mat_item_v {p t a x y} { variable _ foreach item $_($t:sel) { mat_item_ua $p $t $item rel [dict create v [expr {($x - $_($t:cx)) / 100.0}]] 1 } mat_item_info $p $t $_($t:sel) } proc mat_move_canvas {p t a x y} {mat_viewpoint $p $t [dict create action move x $x y $y]} proc mat_move_object {p t a x y} { variable _ set mx [mat_tr $p $t x d [expr {$x - $_($t:cx)}]] set my [mat_tr $p $t y d [expr {$y - $_($t:cy)}]] if {$_($t:af) == 1} { foreach item $_($t:sel) {mat_item_pos $p $t $item rel $my $mx $my $mx} } else { foreach item $_($t:sel) {mat_item_pos $p $t $item rel $mx $my $mx $my} } mat_item_info $p $t $_($t:sel) } proc mat_resize_left {p t a x y} {mat_resize_object $p $t x $x $y} proc mat_resize_right {p t a x y} {mat_resize_object $p $t xx $x $y} proc mat_resize_top {p t a x y} {mat_resize_object $p $t y $x $y} proc mat_resize_bottom {p t a x y} {mat_resize_object $p $t yy $x $y} proc mat_resize_tl {p t a x y} {mat_resize_object $p $t x $x $y; mat_resize_object $p $t y $x $y} proc mat_resize_tr {p t a x y} {mat_resize_object $p $t x $x $y; mat_resize_object $p $t yy $x $y} proc mat_resize_bl {p t a x y} {mat_resize_object $p $t xx $x $y; mat_resize_object $p $t y $x $y} proc mat_resize_br {p t a x y} {mat_resize_object $p $t xx $x $y; mat_resize_object $p $t yy $x $y} proc mat_resize_object {p t e x y} { variable _ if {$_($t:af) == 1} { array set ax {x y xx y y x yy x} } else { array set ax {x x xx x y y yy y} } set m [mat_tr $p $t $ax($e) d [expr $$ax($e) - $_($t:c$ax($e))]] foreach item $_($t:sel) {mat_item_ua $p $t $item rel [dict create $e $m] 1} mat_item_info $p $t $_($t:sel) } proc mat_cleansel {p t sel} { set clean {} foreach item $sel {if {[lindex [$p.m itemcget $item -tags] 0] eq "item"} {lappend clean [lindex [$p.m itemcget $item -tags] 2]}} set clean [lsort -integer -unique $clean] return $clean } proc mat_loc {p t si x y} { variable _ if {$si == 1} { set sy $y set sx $x set x [mat_tr $p $t x i $x] set y [mat_tr $p $t y i $y] } else { set sy [mat_tr $p $t y t $y] set sx [mat_tr $p $t x t $x] } $p.m coords lY [concat M 0 $sy L [winfo width $p.m] $sy] $p.m coords lX [concat M $sx 0 L $sx [winfo height $p.m]] $p.m itemconfigure loc -text [list $x $y] } proc mat_hover {p t x y} { variable _ # mat_loc $p $t 1 $x $y if {[$p.m find withtag sel] ne ""} { mat_sel $p $t motion $x $y } else { set clicked [mat_cleansel $p $t [$p.m find overlapping [expr $x - 2] [expr $y - 2] [expr $x + 2] [expr $y + 2]]] if {$clicked ne ""} { mat_resize_modes $p $t $x $y [lindex $clicked end] if {[llength $_($t:sel)] <= 1} {mat_updatesel $p $t [lindex $clicked end]} } else { mat_mode $p $t move_canvas } } } proc mat_resize_modes {p t x y id} { variable _ set d 3 set dx [expr {abs([mat_tr $p $t x t [dict get $_($t) $id x]] - $x)}] set dxx [expr {abs([mat_tr $p $t x t [dict get $_($t) $id xx]] - $x)}] set dy [expr {abs([mat_tr $p $t y t [dict get $_($t) $id y]] - $y)}] set dyy [expr {abs([mat_tr $p $t y t [dict get $_($t) $id yy]] - $y)}] if {$dx < $d && $dy < $d} { mat_mode $p $t resize_tl } elseif {$dxx < $d && $dy < $d} { mat_mode $p $t resize_tr } elseif {$dx < $d && $dyy < $d} { mat_mode $p $t resize_bl } elseif {$dxx < $d && $dyy < $d} { mat_mode $p $t resize_br } elseif {$dx < 5} { mat_mode $p $t resize_left } elseif {$dxx < 5} { mat_mode $p $t resize_right } elseif {$dy < 1} { mat_mode $p $t resize_top } elseif {$dyy < 1} { mat_mode $p $t resize_bottom } else { mat_mode $p $t move_object } } proc mat_item_info {p t clicked} { variable _ set n 0;$p.m delete hover foreach item $clicked { set info "" set data [dict get $_($t) $item] foreach d $data {lappend info [string range $d 0 7]} $p.m create text [list [expr [winfo width $p.m] - 8.0] [expr [winfo height $p.m] - 8.0 - 11 * $n.0]] -fill $_($t:sc) -justify right -anchor se -font {{bitstream vera sans mono} 10} -tags hover -text $info incr n }} proc mat_togglesel {p t d} { variable _ if {[lsearch -integer $_($t:sel) $d] < 0} { set _($t:sel) [concat $_($t:sel) $d] } else { set _($t:sel) [lsearch -inline -not -all -integer $_($t:sel) $d] } mat_redraw $p $t $d } proc mat_updatesel {p t ns} { variable _ set os $_($t:sel) set _($t:sel) $ns mat_redraw $p $t [lsort -unique -integer [concat $os $ns]] mat_item_info $p $t $ns } proc mat_click {m button action p t x y X Y} { variable _ set clicked [mat_cleansel $p $t [$p.m find overlapping $x $y $x $y]] set a [$p.m itemcget mode -text] switch $action { first { foreach xy {x y} {set _($t:f$xy) [set $xy]} switch $button { 1 {if {$m eq "control"} { mat_mode $p $t draw; mat_draw $p $t $action $x $y } elseif {$m eq "double" || $m eq "shift"} { if {[llength $clicked] > 0} { mat_togglesel $p $t $clicked } else { mat_sel $p $t first $x $y mat_mode $p $t sel } } elseif {[$p.m find withtag sel] ne ""} { mat_sel $p $t release $x $y } elseif {[llength $_($t:sel)] > 1 && [llength $clicked] > 0 && [lsearch $_($t:sel) $clicked] == -1} { mat_updatesel $p $t $clicked}} 2 {mat_mode $p $t resize_canvas} 3 {if {$clicked ne ""} { mat_mode $p $t item_v } else {mat_rmenu $p $t $X $Y}}}} motion {eval mat_$a $p $t $action $x $y} release { switch $button { 1 {if {$a eq "draw" || ($a eq "sel" && [expr {abs($_($t:fx) - $x)}] >13)} {eval mat_$a $p $t $action $x $y}} 2 {mat_mode $p $t move_canvas} 3 {mat_mode $p $t move_canvas} } } } foreach xy {x y} {set _($t:c$xy) [set $xy]} } proc mat_rmenu {p t x y} { variable _ if {[winfo exists $p.rmenu] != 1} { set m [menu $p.rmenu -tearoff no] $m add command -label "zoom to fit" -command "::ix::mat_viewpoint $p $t {action fit}" $m add command -label "reset zoom" -command "::ix::mat_viewpoint $p $t {action reset}" $m add command -label "add group" -command "::ix::mat_group_new $p $t -" $m add cascade -label "sel to group" -menu [menu $p.rmenu.seltogroup -tearoff no] $m add command -label "flip axes" -command "::ix::mat_flipaxe $p $t" } else { # $p.rmenu entryconfigure 0 -label $x } $p.rmenu.seltogroup delete 0 end foreach group [dict keys $_($t:g)] { $p.rmenu.seltogroup add command -label [dict get $_($t:g) $group name] -command "::ix::mat_group_assign $p $t $group" } tk_popup $p.rmenu $x $y } proc mat_tr {p t d inv v} { variable _ array set dm {x width y height} switch $inv { t {return [expr {($v - $_($t:${d}a)) / ($_($t:${d}b) - $_($t:${d}a) + 0.0) * [winfo $dm($d) $p.m]}]} i {return [expr {($_($t:${d}b) - $_($t:${d}a)) * $v /([winfo $dm($d) $p.m] + 0.0) + $_($t:${d}a)}]} d {return [expr {($_($t:${d}b) - $_($t:${d}a)) * $v /([winfo $dm($d) $p.m] + 0.0)}]} id {return [expr {$v / ($_($t:${d}b) - $_($t:${d}a) + 0.0) * [winfo $dm($d) $p.m]}]}}} proc mat_viewpoint {p t opts} { variable _ switch [dict get $opts action] { fit { set i 0 dict for {s xy} $_($t) { dict with xy { if {$i == 0} { set xa $x set xb $x set ya $y set yb $y } if {$x > $xb} {set xb $x} if {$x < $xa} {set xa $x} if {$y > $yb} {set yb $y} if {$y < $ya} {set ya $y} if {$xx > $xb} {set xb $xx} if {$xx < $xa} {set xa $xx} if {$yy > $yb} {set yb $yy} if {$yy < $ya} {set ya $yy} incr i } } set _($t:xa) $xa set _($t:xb) $xb set _($t:ya) $ya set _($t:yb) $yb } reset { set _($t:ya) $_($t:yao);set _($t:yb) $_($t:ybo);set _($t:xa) $_($t:xao);set _($t:xb) $_($t:xbo) } move { foreach xy {x y} { set mvt [mat_tr $p $t $xy d [expr {[dict get $opts $xy] - $_($t:c$xy)}]] foreach ab {a b} {set _($t:${xy}$ab) [expr {$_($t:${xy}$ab) - $mvt}]}} } zoom { array set dir {in 0.5 out 1.5} foreach xy [dict get $opts axe] { set radius [expr {($_($t:${xy}b) - $_($t:${xy}a)) / 2. * $dir([dict get $opts dir])}] set center [mat_tr $p $t $xy i [dict get $opts $xy]] set _($t:${xy}a) [expr {$center - $radius}] set _($t:${xy}b) [expr {$center + $radius}] } } resize { foreach xy {x y} { set mvt [mat_tr $p $t $xy d [expr {[dict get $opts $xy] - $_($t:c$xy)}]] set _($t:${xy}a) [expr {$_($t:${xy}a) - $mvt}] set _($t:${xy}b) [expr {$_($t:${xy}b) + $mvt}]} } scroll { set xy [dict get $opts axis] set mv [expr {($_($t:${xy}b) - $_($t:${xy}a)) / 4.0}] foreach ab {a b} {set _($t:${xy}$ab) [expr {[dict get $opts units] > 0 ? $_($t:${xy}$ab) + $mv : $_($t:${xy}$ab) - $mv }]} } } mat_redraw $p $t all mat_gridlines $p $t } proc mat_flipaxe {p t} { variable _ set _($t:af) [expr $_($t:af) == 1 ? 0 : 1] set ya $_($t:ya) set xa $_($t:xa) set xb $_($t:xb) set yb $_($t:yb) set qx $_($t:qx) set qy $_($t:qy) set mx $_($t:mx) set my $_($t:my) set _($t:ya) $xa set _($t:xa) $ya set _($t:yb) $xb set _($t:xb) $yb set _($t:qx) $qy set _($t:qy) $qx set _($t:mx) $my set _($t:my) $mx mat_gridlines $p $t mat_redraw $p $t all } proc mat_clip {p t action} { variable _ switch $action { selecta { mat_updatesel $p $t [dict keys $_($t)] } cut { set _($t:c) [dict create] set i 0 foreach item $_($t:sel) { dict set _($t:c) $i [dict get $_($t) $item] incr i } mat_item_delete $p $t } copy { set _($t:c) [dict create] set i 0 foreach item $_($t:sel) { dict set _($t:c) $i [dict get $_($t) $item] incr i } } paste { set pasted {} foreach item [dict keys $_($t:c)] { mat_item_new $p $t - [dict get $_($t:c) $item] } } } } proc mat_mode {p t m} { array set cursor {draw pencil move_canvas fleur move_object dotbox item_v box_spiral resize_canvas bogosity sel cross_reverse resize_left left_side resize_right right_side resize_top top_side resize_bottom bottom_side resize_tl top_left_corner resize_tr top_right_corner resize_bl bottom_left_corner resize_br bottom_right_corner} $p.m itemconfigure mode -text $m $p.m configure -cursor $cursor($m) } proc mat_group_assign {p t group} { variable _ foreach item $_($t:sel) { mat_item_ua $p $t $item abs [dict create g $group] 0 } } proc mat_group_new {p t grp} { variable _ set exists 0 dict for {key val} $_($t:g) {if {[dict get $val name] eq $grp} {set exists 1}} if {$exists == 0} { if {$grp eq "-"} {set grp [random_txt [expr "int(floor(rand() * 10 + 2))"]]} set n -1 while true { if {[lsearch -integer [dict keys $_($t:g)] [incr n]] == -1} {break}} dict set _($t:g) $n name $grp dict set _($t:g) $n color [rgb] set _($t:cg) $n mat_groups_view $p $t mat_group_active $p $t $n } } proc mat_groups_view {p t} { variable _ $p.m delete [$p.m find withtag group] foreach i [dict keys $_($t:g)] { set id [$p.m create text [concat 68.0 [expr {38.0 + 11 * $i}]] -fill [color [dict get $_($t:g) $i color]] -justify right -anchor e -font {{bitstream vera sans mono} 10} -tags [concat group $i lb] -text [dict get $_($t:g) $i name]] $p.m bind $id <Enter> "::ix::mat_group_active $p $t $i" $p.m bind $id <1> "::ix::mat_group_assign $p $t $i" set bx [$p.m bbox $id] $p.m lower [$p.m create path [::tkpath::coords rect [lindex $bx 0] [lindex $bx 1] [expr [lindex $bx 2] - [lindex $bx 0]] [expr [lindex $bx 3] - [lindex $bx 1]] -rx 6 -ry 6] -tags [concat group $i bg] -strokewidth 1 -stroke white -fill white -fillopacity 0.5] } } proc mat_group_active {p t g} { variable _ set _($t:cg) $g foreach n [dict keys $_($t:g)] { if {$g == $n} {set cb black; set cl white; set tl 1} {set cb white; set cl [color [dict get $_($t:g) $n color]]; set tl 0.5} set idb [$p.m find withtag "group && $n && bg"] $p.m itemconfigure $idb -fill $cb -fillopacity $tl -stroke $cl set idl [$p.m find withtag "group && $n && lb"] $p.m itemconfigure $idl -fill $cl; if {$g == $n} {$p.m raise $idb;$p.m raise $idl;} } } proc mat_key {p t k b} { puts $k switch $b { 1 { switch $k { 22 {mat_item_delete $p $t} 38 {mat_clip $p $t selecta} 53 {mat_clip $p $t cut} 54 {mat_clip $p $t copy} 55 {mat_clip $p $t paste} 97 {mat_viewpoint $p $t {action reset}} 98 {mat_viewpoint $p $t {action scroll units -1 axis y}} 100 {mat_viewpoint $p $t {action scroll units -1 axis x}} 102 {mat_viewpoint $p $t {action scroll units 1 axis x}} 104 {mat_viewpoint $p $t {action scroll units 1 axis y}} 107 {mat_item_delete $p $t} } } # 0 { # switch $k { # } # } } } proc mat_drop {p t dropped x y} { # foreach d $dropped { foreach d [split $dropped "\n"] { set x [mat_tr $p $t x i $x] set y [mat_tr $p $t y i $y] mat_item_new $p $t - [dict create type sound g 1 v 1 x $x y $y xx $x yy $y filename [regsub -- {^file:[/]+} $d "/"]] } } proc mat_new {p t w h bg ln xa xb ya yb qx qy mx my samplerate} { variable _ set sc orange foreach xy {x y} {foreach ab {a b} {set ${xy}${ab}o [set ${xy}${ab}]}} foreach a {sc ln xa xb ya yb xao xbo yao ybo qx qy mx my samplerate} {set _($t:$a) [set $a]} if {[winfo exists $p.m] != 1} { canvas $p.m -bg $bg -width $w -height $h pack $p.m -side left bind $p.m <Key> "::ix::mat_key $p $t %k 1" bind $p.m <KeyRelease> "::ix::mat_key $p $t %k 0" # dnd bindtarget $p.m text/uri-list <Drop> "::ix::mat_drop $p $t %D %x %y" dnd bindtarget $p.m text/plain <Drop> "::ix::mat_drop $p $t %D %x %y" bind $p.m <Motion> "::ix::mat_hover $p $t %x %y" bind $p.m <4> "::ix::mat_viewpoint $p $t {action scroll units 1 axis x}" bind $p.m <5> "::ix::mat_viewpoint $p $t {action scroll units -1 axis x}" bind $p.m <Control-4> "::ix::mat_viewpoint $p $t {action zoom dir in axe x x %x y %y}" bind $p.m <Control-5> "::ix::mat_viewpoint $p $t {action zoom dir out axe x x %x y %y}" bind $p.m <Alt-4> "::ix::mat_viewpoint $p $t {action zoom dir in axe {x y} x %x y %y}" bind $p.m <Alt-5> "::ix::mat_viewpoint $p $t {action zoom dir out axe {x y} x %x y %y}" bind $p.m <Control-Shift-4> "::ix::mat_viewpoint $p $t {action zoom dir in axe y x %x y %y}" bind $p.m <Control-Shift-5> "::ix::mat_viewpoint $p $t {action zoom dir out axe y x %x y %y}" bind $p.m <Shift-4> "::ix::mat_viewpoint $p $t {action scroll units -1 axis y}" bind $p.m <Shift-5> "::ix::mat_viewpoint $p $t {action scroll units 1 axis y}" foreach m {"Control-" "" "Shift-" "Double-"} { foreach bn {1 2 3} { set b [list [concat $bn first] [concat B${bn}-Motion motion] [concat ButtonRelease-$bn release]] foreach ba {0 1 2} { bind $p.m <$m[lindex [lindex $b $ba] 0]> "::ix::mat_click [list [string tolower [string trimright $m -1]]] $bn [lindex [lindex $b $ba] 1] $p $t %x %y %X %Y"}}} set bd [expr {[$p cget -bd] * 2}] # update $p configure -bg gray -width [expr {[winfo width $p.m] + $bd}] -height [expr {[winfo height $p.m] + $bd}] $p.m create text {20 20} -fill blue -justify left -anchor w -font {{bitstream vera sans} 18} -tags mode -text move_canvas $p.m create text [list [expr {$w / 2.}] 5] -fill red -justify center -anchor n -font {{bitstream vera sans} 14} -tags q -text q $p.m create path "M 0 0" -tags lX -stroke black -strokeopacity 0.5 $p.m create path "M 0 0" -tags lY -stroke black -strokeopacity 0.5 $p.m create text "10 $h" -fill red -justify left -anchor sw -font {{bitstream vera sans} 12 bold} -fill purple -tags loc -text "" if {[info exists _($t)] != 1} { set _($t) {} set _($t:g) {} set af 0; set i -1; set sel {} foreach a {af i sel} {set _($t:$a) [set $a]} mat_group_new $p $t default mat_group_new $p $t wavs } } mat_gridlines $p $t mat_item_draw $p $t all mat_groups_view $p $t } proc mat_gridlines {p t} { variable _ set w $p.m $w delete gridlines set gh [winfo height $w] set gw [winfo width $w] foreach item [$w find withtag gridline] {$w delete $item} foreach xy {x y} { array set ta {x n y w} array set tj {x center y left} array set igx {y width x height} set range [expr {abs($_($t:${xy}b) - $_($t:${xy}a))}] set numshits [expr {$range / $_($t:q$xy)}] if {$numshits > $_($t:m${xy})} {set factor [expr {int($numshits / ($_($t:m${xy}) + 0.0) + 1)}]} else { set factor [expr {1. / (int(1./($numshits / ($_($t:m${xy}) + 0.0) + 0.0)) + 0.0)}] } set increment [expr {$_($t:q${xy}) * $factor}] for {set x [expr {int($_($t:${xy}a) / ($increment + 0.0) + 1)*($increment + 0.0)}]} {[expr {$_($t:${xy}a) > $_($t:${xy}b) ? $x >= $_($t:${xy}b) : $x <= $_($t:${xy}b)}]} {set x [expr {$_($t:${xy}a) > $_($t:${xy}b) ? $x - $increment : $x + $increment}]} { set og [mat_tr $p $t $xy t $x] set invgeo [winfo $igx($xy) $w] switch $xy { y {set coords [concat M [expr {int(rand()*23)}] $og L $invgeo $og]} x {set coords [concat M $og [expr {int(rand()*16)}] L $og $invgeo]}} # y {set coords [concat M 0 $og L $invgeo $og]} # x {set coords [concat M $og 0 L $og $invgeo]}} $w lower [$w create text [lrange $coords 1 2] -font {{Bitstream Vera Sans} 8} -fill [rc] -anchor $ta($xy) -text [string range $x 0 7] -justify $tj($xy) -tags gridline] $w lower [$w create path $coords -stroke $_($t:ln) -strokedasharray [expr {int(rand()*42 + 1)}] -tags gridline -strokewidth 1] }}}} #> mat frame #. -bd 3 #w 384 #h 144 #bg gray86 #ln white #. #samplerate 44100 #. #Xa 123 #Xb 2000 #Ya 127 #Yb 0 #qx 50 #qy 1 #mx 12 #my 64 #. @add ::ix::mat_item_new .- .| .#1 {type .#2} #. @update ::ix::mat_item_ua .- .| .#1 abs {.#2 .#3} 1 #. @updaterel ::ix::mat_item_ua .- .| .#1 rel {.#2 .#3} 1 #. @up ::ix::mat_item_ua .- .| .#1 abs {.#2 .#3} 0 #. @uprel ::ix::mat_item_ua .- .| .#1 rel {.#2 .#3} 0 puts "mat .- .|" ::ix::mat_new .- .| .#w .#h .#bg .#ln .#Xa .#Xb .#Ya .#Yb .#qx .#qy .#mx .#my .#samplerate #bind .-.m <Enter> {focus .-.m} bind .-.m <Leave> {focus .^.c} --- NEW FILE: tile-demo.pd --- #N canvas 265 374 607 366 12; #X obj 135 73 widget tile t1 #e non -colwidth -13 -rows 12 -cols 16 -width 16 -height 12 -rowheight -13 -bd 1 -bg red; #X msg 80 87 redefine; #X msg 198 53 clr; #X msg 100 54 #e \$1; #X obj 137 46 widget dm #items #items .(rows columns non.) #arrows 0 -bg pink; #X floatatom 428 3 2 0 64 0 - - -; #X floatatom 271 14 5 0 0 0 - - -; #X floatatom 271 -2 5 0 0 0 - - -; #X obj 459 9 * -1; #X msg 419 27 -colwidth \$1 \, -rowheight \$1; #X msg 271 30 -cols \$1 \, -width \$1 \, clr; #X msg 270 49 -rows \$1 \, -height \$1 \, clr; #X obj 199 -10 bng 55 250 50 0 empty empty empty 0 -6 0 8 -241291 -1 -1; #X obj 441 277 osc~ 440; #X obj 462 165 mtof; #X obj 499 297 line~; #X obj 465 325 dac~ 1 2; #X obj 466 302 *~; #X obj 462 106 - 12; #X obj 462 125 abs; #X obj 422 78 unpack f f f; #X obj 436 188 pack 0 0 0; #X obj 440 254 pipe 0 0 1000; #X obj 422 100 * 100; #X msg 438 210 \$2 \$3 \$1; #X obj 438 231 unpack f f f; #X obj 462 144 + 48; #X obj 495 154 * 0.25; #X msg 538 277 0 2; #X obj 540 258 del 98; #X msg 503 276 \$1 2; #X obj 540 236 t b; #X connect 0 0 20 0; #X connect 1 0 0 0; #X connect 2 0 0 0; #X connect 3 0 0 0; #X connect 4 0 3 0; #X connect 5 0 8 0; #X connect 6 0 10 0; #X connect 7 0 11 0; #X connect 8 0 9 0; #X connect 9 0 0 0; #X connect 10 0 0 0; #X connect 11 0 0 0; #X connect 12 0 0 0; #X connect 13 0 17 0; #X connect 14 0 21 1; #X connect 15 0 17 1; #X connect 17 0 16 0; #X connect 17 0 16 1; #X connect 18 0 19 0; #X connect 19 0 26 0; #X connect 20 0 23 0; #X connect 20 1 18 0; #X connect 20 2 27 0; #X connect 21 0 24 0; #X connect 22 0 13 0; #X connect 22 1 31 0; #X connect 22 1 30 0; #X connect 23 0 21 0; #X connect 24 0 25 0; #X connect 25 0 22 0; #X connect 25 1 22 1; #X connect 25 2 22 2; #X connect 26 0 14 0; #X connect 27 0 21 2; #X connect 28 0 15 0; #X connect 29 0 28 0; #X connect 30 0 15 0; #X connect 31 0 29 0; --- NEW FILE: lg-demo.pd --- #N canvas 138 75 1019 727 12; #X obj 5 87 widget lg lga -width 940 -height 440 -bg green; #X obj 92 -48 bng 28 250 50 0 empty empty view 0 -6 0 8 -62784 -1 -1 ; #X msg 58 34 clear; #X obj 142 34 getall lga; #X obj 366 62 srec lga; #X msg -2 52 cmd axis configure y -logscale \$1; #X obj -3 38 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 ; #X msg 421 -36 190 lolp 0 \, 140 lolp 4; #X msg 398 -18 1 kgoga 2 3 6 \, 190 kgoga 0 4 3; #X obj 70 216; #X msg 75 211; #X msg 335 -28 delete lolp; #X msg 322 -46 delete kgoga; #X msg 25 34 dump; #X msg 395 1 1 juba 2 3 4 5 \, 200 juba 5 6 7 8; #X obj 9 607 pool lga; #X obj 74 546 + 1; #X obj 47 546 i; #X obj 9 563 prepend; #X obj 5 528 t a b; #X obj 8 585 prepend set; #X msg 106 11 reset; #X obj 83 -12 t b b; #X msg 118 -9 0; #X obj 123 -49 bng 32 250 50 0 empty empty write-+ 0 -6 0 8 -24198 -1 -1; #X obj 144 6 t b b; #X obj 426 27 tow . lg lga; #X msg 217 20 redefine; #X msg 227 61 -width \$1; #X msg 286 61 -height \$1; #X floatatom 227 43 5 0 0 0 - - -; #X floatatom 286 43 5 0 0 0 - - -; #X connect 0 0 19 0; #X connect 1 0 25 0; #X connect 2 0 0 0; #X connect 3 0 0 0; #X connect 5 0 0 0; #X connect 6 0 5 0; #X connect 7 0 26 0; #X connect 8 0 26 0; #X connect 11 0 26 0; #X connect 12 0 26 0; #X connect 13 0 0 0; #X connect 14 0 26 0; #X connect 16 0 17 1; #X connect 17 0 16 0; #X connect 17 0 18 1; #X connect 18 0 20 0; #X connect 19 0 18 0; #X connect 19 1 17 0; #X connect 20 0 15 0; #X connect 21 0 15 0; #X connect 22 0 13 0; #X connect 22 1 21 0; #X connect 22 1 23 0; #X connect 23 0 17 1; #X connect 24 0 22 0; #X connect 25 0 3 0; #X connect 25 1 2 0; #X connect 27 0 0 0; #X connect 28 0 0 0; #X connect 29 0 0 0; #X connect 30 0 28 0; #X connect 31 0 29 0; --- NEW FILE: ngrid.wid --- namespace eval ::ix { proc random_int {} {return [expr "int(floor(rand()*16))"]} proc random_clr {} { return [format "\#%1X%1X%1X%1X%1X%1X" [random_int] [random_int] [random_int] [random_int] [random_int] [random_int]] } variable _ proc ngrid_new {path target w h bg ln div move spread radius max} { variable _ if {[winfo exists $path.ngrid] != 1} { canvas $path.ngrid -bg $bg -width $w -height $h pack $path.ngrid -side left bind $path.ngrid <1> "::ix::ngrid_click $path $target %x %y" bind $path.ngrid <B1-Motion> [bind $path.ngrid <1>] ngrid_gridlines $path $target $ln $div set bd [expr {[$path cget -bd] * 2}] $path configure -bg $bg -width [expr [winfo width $path.ngrid] + $bd] -height [expr [winfo height $path.ngrid] + $bd] } set _($target:recent) 0 set _($target:n) 0 set _($target:move) $move set _($target:spread) $spread set _($target:radius) $radius set _($target:max) $max} proc ngrid_find {which path target what udata} { variable _ array set dm {x width y height} for {set n 0 } {$n <= $_($target:n)} {incr n} { foreach xy {x y} { if {[$path.ngrid find withtag name_${xy}_$n] ne "" && [string match "$what*" [lindex $_($target:box$n:$xy) 0]]} { set x [expr [lindex [$path.ngrid coords sqr_$n] 0] + $_($target:radius)] set y [expr [lindex [$path.ngrid coords sqr_$n] 1] + $_($target:radius)] set $xy [expr ($udata - [lindex $_($target:box$n:$xy) 1 ] + 0.0) / ([lindex $_($target:box$n:$xy) 2] - [lindex $_($target:box$n:$xy) 1 ] + 0.0) * [winfo $dm($xy) $path.ngrid]] switch $which { setpos {$path.ngrid coords sqr_$n [expr $x - $_($target:radius)] [expr $y - $_($target:radius)] [expr $x + $_($target:radius)] [expr $y + $_($target:radius)]} pos { set _($target:recent) $n ngrid_click $path $target $x $y } remove { $path.ngrid delete name_${xy}_$n if {[$path.ngrid find withtag name_x_$n] eq "" && [$path.ngrid find withtag name_x_$n] eq ""} { $path.ngrid delete sqr_$n; $path.ngrid delete hist_$n}}}}}}} proc ngrid_vset {path target what where} {variable _; set _($target:$what) $where} proc ngrid_add {path target name cur min max} { variable _ if {$max == $min} {set max 1.0; set min 0.0} array set justify {x left y right} array set anchor {y e x w} for {set n 0 } {$n <= $_($target:n)} {incr n} {foreach xy {x y} { if {[$path.ngrid itemcget name_${xy}_$n -text] eq $name} {return}}} for {set n 0 } {$n <= $_($target:n)} {incr n} {foreach xy {x y} { if {[$path.ngrid find withtag name_x_$n] eq "" && [$path.ngrid find withtag name_y_$n] eq ""} { set fill [set _($target:box$n:fill) [random_clr]] $path.ngrid create oval 0 0 0 0 -tags sqr_$n -fill $fill -outline white -width 2 set rx [expr rand() * [winfo width $path.ngrid]]; set ry [expr rand() * [winfo height $path.ngrid]] $path.ngrid create line $rx $ry $rx $ry -tags hist_$n -fill $fill $path.ngrid bind sqr_$n <1> "set ::ix::_($target:recent) $n; ::ix::ngrid_click $path $target %x %y" $path.ngrid bind sqr_$n <B1-Motion> [$path.ngrid bind sqr_$n <1>] $path.ngrid bind sqr_$n <Enter> "::ix::ngrid_highlight $path $target $n grey96" $path.ngrid bind sqr_$n <Leave> "::ix::ngrid_highlight $path $target $n -" ngrid_move $path $target $n $rx $ry incr _($target:n) } if {[$path.ngrid find withtag name_${xy}_$n] eq ""} { set _($target:box$n:$xy) [list $name $min $max] puts "adding $xy $n $name $min $max" switch $xy { x { set tl [concat 0 [expr 5 + $n * 8.0]] set qx [expr ($cur - $min) / ($max - $min + 0.0) * [winfo width $path.ngrid]] set qy [expr [lindex [$path.ngrid coords sqr_$n] 1] + $_($target:radius)]} y { set tl [concat [winfo width $path.ngrid] [expr 5 + $n * 8.0]] set qx [expr [lindex [$path.ngrid coords sqr_$n] 0] + $_($target:radius)] set qy [expr ($cur - $min) / ($max - $min + 0.0) * [winfo height $path.ngrid]]}} $path.ngrid create text $tl -tags name_${xy}_$n -fill $_($target:box$n:fill) -font {{Bitstream Vera Sans} 8} -text $name -anchor $anchor($xy) -justify $justify($xy) $path.ngrid lower name_${xy}_$n $path.ngrid bind name_${xy}_$n <Enter> "::ix::ngrid_highlight $path $target $n grey96" $path.ngrid bind name_${xy}_$n <Leave> "::ix::ngrid_highlight $path $target $n -" ngrid_move $path $target $n $qx $qy return}}}} proc ngrid_highlight {path target n color} { variable _ foreach el [list name_y_$n name_x_$n sqr_$n] { if {$color eq "-"} {set color $_($target:box$n:fill)} $path.ngrid itemconfigure $el -fill $color set _($target:recent) $n}} proc ngrid_click {path target x y} { variable _ switch $_($target:move) { swarm { for {set n 0} {$n <= $_($target:n)} {incr n} { ngrid_move $path $target $n [expr rand() * $_($target:spread) - [expr $_($target:spread) / 2.0] + $x] [expr rand() * $_($target:spread) - [expr $_($target:spread) / 2.0] + $y]}} trails { for {set n 0} {$n <= $_($target:n)} {incr n} { if {[expr rand() > 0.96] == 1} { ngrid_move $path $target $n [expr rand() * $_($target:spread) - [expr $_($target:spread) / 2.0] + $x] [expr rand() * $_($target:spread) - [expr $_($target:spread) / 2.0] + $y]}}} error {ngrid_move $path $target $_($target:recent) [expr rand() * $_($target:spread) - [expr $_($target:spread) / 2.0] + $x] [expr rand() * $_($target:spread) - [expr $_($target:spread) / 2.0] + $y]} default {ngrid_move $path $target $_($target:recent) $x $y}}} proc ngrid_move {path target n px py} { variable _ $path.ngrid coords sqr_$n [expr $px - $_($target:radius)] [expr $py - $_($target:radius)] [expr $px + $_($target:radius)] [expr $py + $_($target:radius)] set h [winfo height $path.ngrid] set w [winfo width $path.ngrid] foreach xy {x y} { if {[$path.ngrid find withtag name_${xy}_$n] ne ""} { set l $_($target:box$n:$xy) set name [lindex $l 0] set min [lindex $l 1] set max [lindex $l 2] if {[expr $min == 0] && [expr $max == 0]} {set max $_($target:max)} pd "$target.rp _cb [pdtk_enquote $name] [expr ($max - $min) * [set p$xy] / $w.0 + $min] \;"}}} proc ngrid_gridlines {path target ln lines} { variable _ puts "gridlines $ln $lines" set w $path.ngrid $w delete gridlines set gh [winfo height $w] set gw [winfo width $w] for {set x 1} {$x <= $lines} {incr x} { if {$lines < 16 && $lines > 0} { set oh [expr $gh.0 * $x.0 / $lines.0] set ow [expr $gw.0 * $x.0 / $lines.0] $w create line $ow 0 $ow $gh -fill $ln -tags gridlines $w create line 0 $oh $gw $oh -fill $ln -tags gridlines}}}} #> ngrid frame #. -bd 3 #w 384 #h 144 #bg gray10 #ln gray35 #div 6 #n 3 #. #move normal #spread 96 #radius 9 #max 1 #. @list ::ix::ngrid_add .- .| {.#1} .#2 .#3 .#4 #. @add ::ix::ngrid_add .- .| {.#1} .#2 .#3 .#4 #. @pos ::ix::ngrid_find pos .- .| {.#1} .#2 #. @setpos ::ix::ngrid_find setpos .- .| {.#1} .#2 #. @delete ::ix::ngrid_find remove .- .| {.#1} 0 #. @clear ::ix::ngrid_clear .- .| all #. @radius ::ix::ngrid_vset .- .| radius .#1 #. @spread ::ix::ngrid_vset .- .| spread .#1 #. @move ::ix::ngrid_vset .- .| move .#1 #. @max ::ix::ngrid_vset .- .| max .#1 puts "ngrid .- .|" ::ix::ngrid_new .- .| .#w .#h .#bg .#ln .#div .#move .#spread .#radius .#max --- NEW FILE: lg.wid --- package require BLT namespace import blt:: namespace eval ::ix { variable _ proc random_int {} { return [expr "int(floor(rand()*16))"] } proc random_clr {} { return [format "\#%1X%1X%1X%1X%1X%1X" [random_int] [random_int] [random_int] [random_int] [random_int] [random_int]] } proc lg_add {path tg args} { variable _ set e [lindex $args 1] set l [llength $args] for {set n 2} {$n < $l} {incr n} { if {$l > 3} {set nm $e:[expr $n - 1]} else {set nm $e} set _($path:$nm:e) [expr $n - 1] set _($path:$nm:p) $e set _($path:$e:n) [expr $l - 2] lg_list $path $tg $nm [lindex $args 0] [lindex $args $n] } } proc lg_dumper {path tg args} { variable _ foreach e [$path element names] { if {$_($path:$e:e) == 1} { lg_dump $path $tg $e } } } proc lg_dump {path tg e} { variable _ set p $_($path:$e:p) set el $_($path:$e:e) set n $_($path:$p:n) for {set i 0} {$i < [$tg:x$e length]} {incr i} { set out {} lappend out [$tg:x$e index $i] lappend out $p if {$n > 1} { for {set x 1} {$x <= $n} {incr x} { lappend out [$tg:y$p:$x index $i] } } else { lappend out [$tg:y$e index $i] } set out [join $out " "] # puts $out pd "$tg.rp _cb $out;" } } proc lg_list {path tg e i1 i2} { if {[$path element exists $e] != 1} {lg_nv $path $tg $e} $tg:y$e append $i2 $tg:x$e append $i1 } proc lg_zoom {path tg d x y} { puts "$path $tg $d" if {$d eq "in"} {set dn 4} {set dn 1} set lx [$path axis limits x] set dx [expr ([lindex $lx 1] - [lindex $lx 0]) / $dn] set cx [$path axis invtransform x $x] set cy [$path axis invtransform y $y] set ly [$path axis limits y] set dy [expr ([lindex $ly 1] - [lindex $ly 0]) / $dn] $path axis configure x -min [expr $cx - $dx] -max [expr $cx + $dx] $path axis configure y -min [expr $cy - $dy] -max [expr $cy + $dy] } proc lg_dr {path tg e x y} { variable _ if {[$path element closest $x $y cl -halo 666 -interpolate 1 -along x $e] == 1} { set new [$path axis invtransform y $y] set n $tg:y$cl(name) set io $_($path:clickd) set ic $cl(index) $n index $ic $new if {$io != -1 && [expr abs($io - $ic)] > 1} {lg_smooth $io $ic $n} set _($path:clickd) $ic } } proc lg_smooth {io ic n} { # puts "smoothing $n from $io to $ic" set vo [$n index $io] set vc [$n index $ic] if {$ic > $io} {set is $io; set vs $vo} else {set is $ic; set vs $vc} set ne [expr [$n length] - 1] if {$ic != $ne && $io != $ne} { for {set i 1} {$i < [expr abs($io - $ic)]} {incr i} { set nv [expr $vs + (($vc - $vo) * $i / ($ic - $io))] set ni [expr $is + $i] $n index $ni $nv } } } proc lg_sl {path tg e x y} { variable _ set t [$path invtransform $x $y] if {$_($path:clickd) != -1} { set dx [expr [lindex $t 0] - [lindex $_($path:clcord) 0]] set dy [expr [lindex $t 1] - [lindex $_($path:clcord) 1]] set p $_($path:$e:p) set el $_($path:$e:e) set n $_($path:$p:n) if {$n > 1} { for {set i 1} {$i <= $n} {incr i} { set tx $tg:x$p:$i set ty $tg:y$p:$i $tx expr "$tx + $dx" if {$el == $i} {$ty expr "$ty + $dy"} } } else { $tg:x$e expr "$tg:x$e + $dx" $tg:y$e expr "$tg:y$e + $dy" } } set _($path:clcord) $t set _($path:clickd) 1 } proc lg_draw {path tg e x y} { variable _ if {[$path element closest $x $y cl -halo 666 -interpolate 1 -along x $e] == 1} { set t [$path invtransform $x $y] set p $_($path:$e:p) set el $_($path:$e:e) set n $_($path:$p:n) set io $_($path:clickd) set ic $cl(index) if {$n > 1} { for {set i 1} {$i <= $n} {incr i} { set tx $tg:x$p:$i set ty $tg:y$p:$i if {$el == $i} {set ny [lindex $t 1]} else { if {[$ty length] == $ic} {set tc [expr $ic - 1]} else {set tc $ic} set ny [$ty index $tc] } set nx [lindex $t 0] $ty append $ny $tx append $nx $tx sort $ty if {$i == 1} { if {$ic < $io} {incr io} incr ic } if {$io != -1 && [expr abs($io - $ic)] > 1} {lg_smooth $io $ic $ty} } } else { $tg:y$e append [lindex $t 1] $tg:x$e append [lindex $t 0] $tg:x$e sort $tg:y$e if {$ic < $io} {incr io} incr ic if {$io != -1 && [expr abs($io - $ic)] > 1} {lg_smooth $io $ic $tg:y$e} } set _($path:clickd) $ic } } proc lg_trim {path tg e x y} { variable _ if {[$path element closest $x $y cl -halo 666 -interpolate 1 -along x $e] == 1} { # foreach name [array names cl] {puts "$name $cl($name)"} if {[expr abs([$path axis transform x [$tg:x$e index $cl(index)]] - $x.0)] < 32} { set p $_($path:$cl(name):p) set n $_($path:$p:n) if {$n > 1} { for {set i 1} {$i <= $n} {incr i} { $tg:y$p:$i delete $cl(index) $tg:x$p:$i delete $cl(index) } } else { $tg:y$cl(name) delete $cl(index) $tg:x$cl(name) delete $cl(index) } } } } proc lg_cl {path tg} { foreach e [$path element names] {lg_dv $path $tg $e} # pd "$tg.rp _cb symbol clear;" } proc lg_de {path tg e} { variable _ set n $_($path:$e:n) if {$n > 1} { for {set i 1} {$i <= $n} {incr i} { lg_dv $path $tg $e:$i } } else { lg_dv $path $tg $e } } proc lg_dv {path tg e} { blt::vector destroy $tg:x$e blt::vector destroy $tg:y$e $path element delete $e # pd "$tg.rp _cb delete $e;" } proc lg_nv {path tg e} { variable _ blt::vector create $tg:x$e -variable "" blt::vector create $tg:y$e -variable "" set _($path:clickd) -1 $path element create $e -x $tg:x$e -y $tg:y$e -symbol "circle" -pixels 2 -linewidth 2 -color [random_clr] -hide 0 # puts "creating: $path $e -x $tg:x$e -y $tg:y$e -color [random_clr] -hide 0" $path element bind $e <B1-Motion> "::ix::lg_dr $path $tg $e %x %y" $path element bind $e <Shift-B1-Motion> "::ix::lg_sl $path $tg $e %x %y" $path element bind $e <Control-B1-Motion> "::ix::lg_draw $path $tg $e %x %y" $path element bind $e <Alt-B1-Motion> "::ix::lg_trim $path $tg $e %x %y" # $path element bind $e <1> "::ix::lg_dr $path $tg $e %x %y" $path element bind $e <ButtonRelease-1> "set ::ix::_($path:clickd) -1" # $path element bind $e <Shift-ButtonRelease-1> "set ::ix::_($path:clickd) -1" } proc lg_new {path tg} { bind $path <ButtonPress-3> {} bind $path <Button-4> "::ix::lg_zoom $path $tg in %x %y" bind $path <Button-5> "::ix::lg_zoom $path $tg out %x %y" bind $path <Control-Button-4> "$path axis configure x -min {} -max {}; $path axis configure y -min {} -max {}" bind $path <Control-Button-5> [bind $path <Control-Button-4>] Blt_ZoomStack $path "2" "Control-2" $path axis configure x -background [$path cget -bg] $path axis configure y -background [$path cget -bg] } } #> lg blt::graph #. -bg yellow -halo 16 #. @clear ::ix::lg_cl .- .| #. @delete ::ix::lg_de .- .| .#1 #. @list ::ix::lg_add .- .| .#args #. @add ::ix::lg_add .- .| .#args #. @dump ::ix::lg_dumper .- .| .#args #. @cmd eval ".- .#args" ::ix::lg_new .- .| puts "lg .- .|" --- NEW FILE: ngrid-demo.pd --- #N canvas 1333 136 79 124 12; #X msg 785 -536 -height 26 -width 26 -bg gray95; #N canvas 0 0 595 500 intro 1; #X obj 9 418 osc~; #X obj 9 456 dac~; #X obj 9 399 line; #X obj 9 -29 widget ngrid n1 #w 382 #h 382 #move 0 #radius 8; #X floatatom 360 365 3 2 233 0 - - -; #X floatatom 381 382 2 4 32 0 - - -; #X msg 394 381 radius \$1; #X msg 382 362 spread \$1; #X obj 403 337 bng 23 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 -1; #X obj 61 418 osc~; #X obj 35 418 osc~; #X obj 87 418 osc~; #X obj 113 418 osc~; #X obj 139 418 osc~; #X obj 35 399 line; #X obj 61 399 line; #X obj 87 399 line; #X obj 113 399 line; #X obj 139 399 line; #X obj 165 418 osc~; #X obj 191 418 osc~; #X obj 9 380 route 0x 0y 1x 1y 2x 2y 3x 3y 4x 4y; #X obj 296 405 until; #X obj 328 422 + 1; #X obj 296 424 i; #X msg 330 405 0; #X obj 217 418 osc~; #X obj 243 418 osc~; #X obj 165 399 line; #X obj 191 399 line; #X obj 217 399 line; #X obj 243 399 line; #X obj 355 446 tow . ngrid n1; #X obj 9 360 Append 100; #X msg 258 363 move swarm; #X msg 312 385 5; #X msg 326 363 move; #X obj 86 437 prepend set; #X obj 86 454 prepend set; #X obj 160 442 hsl 128 15 0 2000 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 2100 1; #X obj 160 458 hsl 128 15 0 2000 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X obj 423 50 widget ngrid m #w 64 #h 64; #X msg 407 451 add x 1 0 10 \, add y 2 0 10; #X obj 425 127 route x y; #X obj 468 146 prepend set; #X obj 400 147 prepend set; #X obj 435 166 hsl 128 15 0 10 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 12700 1; #X obj 435 181 hsl 128 15 0 10 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 385 1; #X obj 496 50 widget ngrid m #w 64 #h 64; #X obj 510 212 widget ngrid m #w 64 #h 64; #X obj 514 286 widget ngrid m #w 64 #h 64; #X obj 501 367 widget ngrid m #w 64 #h 64; #X obj 512 264 prepend pos; #X obj 503 371 prepend pos; #X obj 425 57 prepend setpos; #X obj 476 59 prepend setpos; #X msg 353 406 add \$1x 1000 0 2000; #X msg 353 425 add \$1y 1000 0 2000; #X msg 301 465 pos 4y \$1; #X obj 9 437 *~ 0.033; #X obj 513 215 prepend pos; #X obj 417 198 prepend x; #X obj 472 197 prepend y; #X msg 409 414 add x 1 10 0 \, add y 2 10 0; #X msg 407 434 add x 1 0 10 \, add y 2 10 0; #X msg 407 470 add x 1 10 0 \, add y 2 0 10; #X msg 303 446 pos 4x \$1; #X msg 240 472 pos 3x \$1; #X msg 168 472 pos 3y \$1; #X msg 195 363 move error; #X obj 406 219 sin; #X obj 410 240 hsl 99 15 0 6.28 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X msg 404 297 pos 0x \$1; #X obj 458 220 cos; #X msg 456 295 pos 0y \$1; #X obj 413 259 * 500; #X obj 466 258 * 500; #X obj 412 279 + 1000; #X obj 468 278 + 1000; #X obj 414 311 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1; #X msg 451 315 6.28 1000; #X obj 446 334 line; #X obj 449 370 select 6.28 0; #X obj 448 352 spigot; #X msg 472 333 0 2000; #X obj 49 480 switch~; #X obj 430 324 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1; #X obj 63 363 hsl 128 15 0 2000 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 12700 1; #X obj 78 368 prepend set; #X connect 0 0 59 0; #X connect 2 0 0 0; #X connect 3 0 33 0; #X connect 4 0 7 0; #X connect 5 0 6 0; #X connect 6 0 32 0; #X connect 7 0 32 0; #X connect 8 0 35 0; #X connect 8 0 42 0; #X connect 8 0 63 0; #X connect 8 0 65 0; #X connect 8 0 64 0; #X connect 8 0 86 0; #X connect 9 0 59 0; #X connect 10 0 59 0; #X connect 11 0 59 0; #X connect 12 0 59 0; #X connect 13 0 59 0; #X connect 14 0 10 0; #X connect 15 0 9 0; #X connect 16 0 11 0; #X connect 17 0 12 0; #X connect 18 0 13 0; #X connect 19 0 59 0; #X connect 20 0 59 0; #X connect 21 0 2 0; #X connect 21 1 14 0; #X connect 21 2 15 0; #X connect 21 3 16 0; #X connect 21 4 17 0; #X connect 21 5 18 0; #X connect 21 6 28 0; #X connect 21 7 29 0; #X connect 21 8 30 0; #X connect 21 8 37 0; #X connect 21 9 31 0; #X connect 21 9 38 0; #X connect 22 0 24 0; #X connect 23 0 24 1; #X connect 24 0 23 0; #X connect 24 0 56 0; #X connect 24 0 57 0; #X connect 25 0 24 1; #X connect 26 0 59 0; #X connect 27 0 59 0; #X connect 28 0 19 0; #X connect 29 0 20 0; #X connect 30 0 26 0; #X connect 31 0 27 0; #X connect 33 0 21 0; #X connect 34 0 32 0; #X connect 35 0 25 0; #X connect 35 0 22 0; #X connect 36 0 32 0; #X connect 37 0 39 0; #X connect 38 0 40 0; #X connect 39 0 66 0; #X connect 39 0 68 0; #X connect 40 0 58 0; #X connect 40 0 67 0; #X connect 41 0 43 0; #X connect 41 0 55 0; #X connect 41 0 60 0; #X connect 42 0 41 0; #X connect 42 0 51 0; #X connect 43 0 45 0; #X connect 43 1 44 0; #X connect 44 0 47 0; #X connect 45 0 46 0; #X connect 46 0 61 0; #X connect 47 0 62 0; #X connect 48 0 43 0; #X connect 48 0 54 0; #X connect 48 0 60 0; #X connect 49 0 52 0; #X connect 50 0 53 0; #X connect 52 0 50 0; #X connect 53 0 51 0; #X connect 54 0 41 0; #X connect 55 0 48 0; #X connect 56 0 32 0; #X connect 57 0 32 0; #X connect 58 0 32 0; #X connect 59 0 1 0; #X connect 59 0 1 1; #X connect 60 0 49 0; #X connect 61 0 60 0; #X connect 61 0 55 0; #X connect 61 0 54 0; #X connect 62 0 60 0; #X connect 62 0 54 0; #X connect 62 0 55 0; #X connect 63 0 48 0; #X connect 64 0 50 0; #X connect 65 0 49 0; #X connect 66 0 32 0; #X connect 67 0 32 0; #X connect 68 0 32 0; #X connect 69 0 32 0; #X connect 70 0 75 0; #X connect 71 0 70 0; #X connect 71 0 73 0; #X connect 72 0 32 0; #X connect 73 0 76 0; #X connect 74 0 32 0; #X connect 75 0 77 0; #X connect 76 0 78 0; #X connect 77 0 72 0; #X connect 78 0 74 0; #X connect 79 0 83 1; #X connect 79 0 80 0; #X connect 80 0 81 0; #X connect 81 0 83 0; #X connect 82 0 84 0; #X connect 82 1 80 0; #X connect 83 0 82 0; #X connect 83 0 71 0; #X connect 84 0 81 0; #X connect 86 0 85 0; #X connect 87 0 88 0; #X connect 88 0 33 0; #X restore 18 35 pd intro; #N canvas 0 0 442 580 om 0; #X obj 306 502 sendOSC; #X msg 307 426 connect localhost 16180; #X obj 306 483 prepend send; #X obj 23 382 dumpOSC 3339; #X obj 22 -8 widget ngrid n2 #w 382 #h 382 #move 0 #radius 8; #X obj 23 403 OSCroute /om; #X obj 23 422 OSCroute /new_port; #X obj 23 441 niagara 4; #X obj 23 460 niagara 1; #X obj 23 498 glue; #X obj 23 555 prepend add; #X obj 23 479 a2l; #X obj 406 407 t b b b; #X msg 306 464 /om/request/all_objects 5; #X obj 207 388 widget dm dmngr #items .(error normal swarm trails.) ; #X msg 154 394 move \$1; #X msg 351 503 disconnect; #X obj 99 459 prepend /om/synth/set_port_value 1; #X msg 305 445 /om/engine/register_client 0 localhost 3339; #X obj 72 479 niagara 1; #X obj 23 517 spigot; #X msg 72 517 1; #X msg 92 517 0; #X obj 72 498 route CONTROL; #X obj 146 421 OSCroute /control_change; #X obj 146 438 prepend setpos; #X obj 102 401 spigot; #X obj 133 387 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1; #X obj 165 478 OSCroute /node_removal; #X obj 112 517 niagara 1; #X obj 23 536 spigot; #X msg 72 536 1; #X msg 92 536 0; #X obj 112 536 route INPUT; #X obj 166 497 prepend delete; #X obj 354 406 loadbang; #X text 266 546 www.nongnu.org/om-synth/; #X obj 199 532 print NOSHIT; #X connect 1 0 0 0; #X connect 2 0 0 0; #X connect 3 0 5 0; #X connect 3 0 37 0; #X connect 4 0 17 0; #X connect 5 0 6 0; #X connect 5 0 26 0; #X connect 5 0 28 0; #X connect 6 0 7 0; #X connect 7 0 8 0; #X connect 7 1 9 1; #X connect 8 0 11 0; #X connect 8 1 19 0; #X connect 9 0 20 0; #X connect 10 0 4 0; #X connect 11 0 9 0; #X connect 12 0 13 0; #X connect 12 1 18 0; #X connect 12 2 1 0; #X connect 13 0 2 0; #X connect 14 0 15 0; #X connect 15 0 4 0; #X connect 16 0 0 0; #X connect 17 0 2 0; #X connect 18 0 2 0; #X connect 19 0 23 0; #X connect 19 1 29 0; #X connect 20 0 30 0; #X connect 21 0 20 1; #X connect 22 0 20 1; #X connect 23 0 21 0; #X connect 23 1 22 0; #X connect 24 0 25 0; #X connect 25 0 4 0; #X connect 26 0 24 0; #X connect 27 0 26 1; #X connect 28 0 34 0; #X connect 29 0 33 0; #X connect 30 0 10 0; #X connect 31 0 30 1; #X connect 32 0 30 1; #X connect 33 0 31 0; #X connect 33 1 32 0; #X connect 34 0 4 0; #X connect 35 0 12 0; #X restore 18 59 pd om; --- NEW FILE: q.wid --- #console show package require tkdnd namespace eval ::ix { proc qo {p t e} { set s [$p get $e] if {$s ne ""} { pd [concat $t.rp _cb symbol [pdtk_enquote $s] \;] } else {pd [concat $t.rp _cb bang \;]} } proc qi {p t i} { $p selection clear 0 end $p selection set $i qo $p $t $i } proc q_go {p t d} { array set direction "next 1 prev -1" array set edge "next end prev 0" set cs [$p curselection] if {$cs eq "" && [$p index end] != 0} { set go 0 } else { set go [expr $direction($d) + [lindex $cs $edge($d)]]} if {$go >= [$p index end]} {set go 0} if {$go < 0} {set go [expr [$p index end] - 1]} qi $p $t $go } } #> q listbox #. -selectmode extended -font {{Bitstream Vera Sans} 8} -exportselection 0 #. -relief flat -borderwidth 0 -selectborderwidth 0 -bg "#ccffcc" -fg black #. @list foreach x [list .#args] {.- insert end $x} #. @add .- insert end [join [lrange [list .#args] 0 end] " "] #. @scroll .- yview scroll .#1 units #. @symbol .- insert end {.#1} #. @float ::ix::qi .- .| .#1 #. @clear .- delete 0 end #. @next ::ix::q_go .- .| next #. @prev ::ix::q_go .- .| prev #. @cmd eval ".- .#args" bind .- <Enter> {focus .-} bind .- <Leave> {focus .^.c} bind .- <4> { pd [concat .|.rp _cb scroll -5 \;]} bind .- <5> { pd [concat .|.rp _cb scroll 5 \;]} bind .- <Shift-MouseWheel> {.- xview scroll [expr {- (%D / 120) * 4}] units} bind .- <ButtonPress-3> {} bind .- <Button3-Leave> {dnd drag %W} dnd bindtarget .- text/plain <Drop> { foreach l [split %D "\n"] {.- insert end [regsub -- {^file:[/]+} $l "/"]} } dnd bindtarget .- text/uri-list <Drop> {foreach d %D {.- insert end [regsub -- {^file:[/]+} $d "/"]}} dnd bindsource .- text/uri-list { set sel [.- curselection] if {$sel ne ""} { set dd {} foreach el $sel { lappend dd [.- get $el] } return $dd } } bind .- <<ListboxSelect>> { set sel [.- curselection] if {$sel ne ""} { ::ix::qo .- .| [lindex $sel end] # foreach el $sel { # ::ix::qo .- .| $el # } } } bind .- <<delete>> { set sel [.- curselection] if {$sel ne ""} { for {set i [expr [llength $sel] - 1]} {0 <= $i} {incr i -1} { .- delete [lindex $sel $i] } } } bind .- <<selectAll>> { .- selection set 0 end } event add <<selectAll>> <KeyPress-a> event add <<delete>> <Delete> event add <<delete>> <BackSpace> event add <<delete>> <KeyPress-d> puts "q .- .|" --- NEW FILE: mat-demo.pd --- #N canvas 80 85 910 775 12; #X obj 15 29 widget mat n1 #w 881 #bg gray83 #divX 8 #divY 5 #h 494 #Yb 1 #Ya 88 #qYv 2 #qYa 8 #ln white; #X msg 1080 -13 -height 26 -width 26 -bg gray95; #X msg 184 648 redefine; #X obj 131 646 * 127; #X obj 95 644 + 36; #X obj 587 565 rr ss; #X obj 587 546 rg; #X obj 20 603 unpack f f f; #X obj 47 638 * 127; #X obj 26 668 pack f f f; #X obj 49 692 makenote 99 250; #X obj 102 728 noteout; #X obj 77 559 rp ss kbd; #X obj 158 583 rp ss kb2; #X obj 138 537 widget kbd k1 #bg blue #fg green #ln gray50 -height 32; #X obj 138 570 widget kbd k2 #bg orange #fg red #ln gray50 -height 32; #X obj 108 622 unpack 0 0 0; #X obj 108 603 Append 1; #X obj 158 602 Append 2; #X msg 74 575 1; #X obj 3 533 widget dd dd1 -bg green -fg red; #X obj 3 493 a2l; #X obj 3 549 widget dd s2 #symbol 0; #X connect 0 0 21 0; #X connect 2 0 0 0; #X connect 3 0 11 1; #X connect 4 0 11 0; #X connect 6 0 5 0; #X connect 7 0 9 0; #X connect 7 1 8 0; #X connect 7 2 9 2; #X connect 8 0 9 1; #X connect 9 0 10 0; #X connect 10 0 11 0; #X connect 10 1 11 1; #X connect 12 0 17 0; #X connect 13 0 18 0; #X connect 14 0 17 0; #X connect 14 0 12 0; #X connect 15 0 18 0; #X connect 15 0 13 0; #X connect 16 0 4 0; #X connect 16 1 3 0; #X connect 16 2 11 2; #X connect 17 0 16 0; #X connect 18 0 16 0; #X connect 19 0 9 2; #X connect 21 0 20 0; #X connect 22 0 20 0; --- NEW FILE: dd.wid --- namespace eval ::ix { proc dd {path target symbol args} { set sym [join [lrange $args 0 end] " "] $path delete 0 end $path insert 0 $sym ddp $target $symbol $sym } proc ddp {target symbol stuff} { if {$symbol == 1} { pd "$target.rp _cb symbol [pdtk_enquote $stuff];" } else { pd "$target.rp _cb $stuff;" } } } #> dd entry #. -selectforeground black -selectbackground green #. -bg blue -font .(helvetica 10.) -width 24 -borderwidth 0 #. #symbol 1 #. @bang ::ix::ddp .| .#symbol [.- get] #. @list ::ix::dd .- .| 0 .#args #. @symbol ::ix::dd .- .| 1 .#1 #. @clear .- delete 0 end package require tkdnd puts "dd .- .|" bind .- <ButtonPress-1> {focus .-} dnd bindtarget .- text/uri-list <Drop> {foreach i %D {::ix::dd .- .| .#symbol [regsub -- "^file://" $i ""]}} dnd bindtarget .- text/plain <Drop> {::ix::dd .- .| .#symbol %D} dnd bindsource .- text/plain {return [.- get]} dnd bindsource .- text/uri-list {return "\{[.- get]\}"} bind .- <Button1-Leave> {dnd drag %W} bind .- <Return> {::ix::ddp .| .#symbol [.- get]} --- NEW FILE: kbd.wid --- namespace eval ::ix { proc kbd_list {p t args} { variable _ set w $p.f[expr [lindex $args 0] / 12].[lindex $args 0] if {[llength $args] == 1} {set v 1;if {$_($t:lp) != -1 && $_($t:lp) ne $w} {kbd_action $_($t:lp) $t 0}} {set v [lindex $args 1]} kbd_action $w $t $v set _($t:lp) $w} proc kbd_play {t m b x y} { variable _ foreach a {{rs {0 sunken 1 raised}} {v {0 0 1 {($y - [winfo rooty $w]) / ([winfo height $w] + 0.0)}}}} {array set [lindex $a 0] [lindex $a 1]} set w [winfo containing $x $y] if {$m != 1 && $_($t:lp) != -1 && $_($t:lp) ne $w} {kbd_action $_($t:lp) $t 0} if {[$w cget -relief] eq $rs($b)} {kbd_action $w $t [eval expr $v($b)]} set _($t:lp) $w} proc kbd_action {w t v} { if {$v == 0} {set relief raised} {set relief sunken} $w config -relief $relief pd [concat $t.rp _cb [winfo name $w] $v \;]} proc kbd_off {p t octaves} { for {set o 0} {$o < $octaves} {incr o} { for {set on 0} {$on < 12} {incr on} { set w $p.f$o.[expr $o * 12 + $on] if {[$w cget -relief] eq "sunken"} {kbd_action $w $t 0}}}} proc kbd {path t octaves b f} { $path config -width [expr $octaves * 66] if {![winfo exists $path.f0]} { variable _ set _($t:lp) -1 set bw {0 1 0 1 0 0 1 0 1 0 1 0} ; set npl {0 1 1 2 2 3 4 4 5 5 6 6} foreach a {{bg "0 $b 1 $f"} {fg "1 $b 0 $f"} {an {0 ";lower $wk" 1 "-anchor n"}} {rw {0 {[expr 1 / 7.]} 1 {[expr 1 / 10.]}}} {rh {0 {[expr 1.]} 1 {[expr 6 / 10.]}}}} {array set [lindex $a 0] [lindex $a 1]} for {set o 0} {$o < $octaves} {incr o} { set w $path.f$o ; frame $w -bd 0 -height 66 -width 66 for {set on 0} {$on < 12} {incr on} { set wk $w.[expr $o * 12 + $on] ; set n [lindex $bw $on] eval "label $wk -bg $bg($n) -fg $fg($n) -bd 1 -relief raised;place $wk -relx [expr [lindex $npl $on] / 7.] -y 0 -relwidth $rw($n) -relheight $rh($n) $an($n)" bind $wk <1> "::ix::kbd_play $t 0 1 %X %Y"; bind $wk <B1-Motion> [bind $wk <1>];bind $wk <ButtonRelease-1> "::ix::kbd_play $t 0 0 %X %Y"; bind $wk <Enter> "::ix::kbd_play $t 1 0 %X %Y"; bind $wk <3> "::ix::kbd_play $t 1 1 %X %Y"; bind $wk <B3-Motion> [bind $wk <3>]; bind $wk <2> "::ix::kbd_off $path $t $octaves"} place $w -y 0 -relheight 1.0 -relx [expr $o / $octaves.0] -relwidth [expr 1 / $octaves.0]}}}} #> kbd frame #. -height 100 -width 60 #. #octaves 6 #bg black #fg white #. @list ::ix::kbd_list .- .| .#args #. @float ::ix::kbd_list .- .| .#args ::ix::kbd .- .| .#octaves .#bg .#fg --- NEW FILE: grid.wid --- namespace eval ::ix { proc grid_click {w target r hy hx hh ww size} { switch $r { 0 { set y [expr $hy / $hh.0] set x [expr $hx / $ww.0]} 1 { set x $hx set y $hy set hx [expr $ww * $hx] set hy [expr $hh * $hy]}} set rs [expr $size / 2] $w coords ${target}sqr [expr $hx - $rs] [expr $hy - $rs] [expr $hx + $rs] [expr $hy + $rs] pd "$target.rp _cb $x $y;" } proc grid_new {path target w h bg fg ln div shape size} { if {[winfo exists $path.grid] != 1} { canvas $path.grid -bg $bg $path configure -width $w -height $h place $path.grid -anchor nw -relwidth 1 -relheight 1 $path.grid create $shape 0 0 0 0 -fill $fg -tags ${target}sqr grid_click $path.grid $target 1 0.5 0.5 $h $w $size grid_lines $path.grid $target $div $w $h $ln bind $path.grid <1> "::ix::grid_click %W $target 0 %y %x $h $w $size" bind $path.grid <B1-Motion> "::ix::grid_click %W $target 0 %y %x $h $w $size" } } proc grid_lines {w target lines ww hw color} { $w delete gridlines for {set x 1} {$x <= $lines} {incr x} { if {$lines < 64} { set oh [expr $hw.0 * $x.0 / $lines.0] set ow [expr $ww.0 * $x.0 / $lines.0] $w create line $ow 0 $ow $hw -fill $color -tags gridlines $w create line 0 $oh $ww $oh -fill $color -tags gridlines } } $w raise ${target}sqr } } #> grid frame #. -bd 3 #. #w 128 #h 128 #x 0.5 #y 0.5 #. #fg red #bg blue #ln yellow #. #shape rectangle #size 12 #div 5 #. @list ::ix::grid_click .-.grid .| 1 .#2 .#1 .#h .#w .#size ::ix::grid_new .- .| .#w .#h .#bg .#fg .#ln .#div .#shape .#size --- NEW FILE: filter-demo.pd --- #N canvas 218 245 450 232 10; #X obj 51 67 widget filter f1 #div 8 #log 6.53061 #rate 44100 #n 5 ; #X msg 11 42 redefine; #X obj 185 259 biquad~; #X obj 223 259 biquad~; #X obj 261 259 biquad~; #X obj 298 259 biquad~; #X obj 336 259 biquad~; #X obj 52 276 multiplex~ 0 99 23 44 88 22; #X msg 35 18 #log \$1; #X obj 23 7 hsl 50 10 5 10 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X msg 41 -10 10; #X msg 20 -10 0; #X floatatom 80 29 3 1 5 0 - - -; #X obj 189 278 biquad~; #X obj 225 278 biquad~; #X obj 263 278 biquad~; #X obj 300 278 biquad~; #X obj 337 278 biquad~; #X obj 52 293 multiplex~ 0 99 23 44 88 22; #X obj 51 225 route n params; #X msg 80 43 #n \$1; #X obj 206 242 route 1 2 3 4 5; #X obj 184 242 adc~; #X obj 52 310 dac~; #X connect 0 0 19 0; #X connect 1 0 0 0; #X connect 2 0 3 0; #X connect 2 0 7 1; #X connect 3 0 4 0; #X connect 3 0 7 2; #X connect 4 0 5 0; #X connect 4 0 7 3; #X connect 5 0 6 0; #X connect 5 0 7 4; #X connect 6 0 7 5; #X connect 7 0 23 0; #X connect 8 0 0 0; #X connect 9 0 8 0; #X connect 10 0 9 0; #X connect 11 0 8 0; #X connect 12 0 20 0; #X connect 13 0 14 0; #X connect 13 0 18 1; #X connect 14 0 15 0; #X connect 14 0 18 2; #X connect 15 0 16 0; #X connect 15 0 18 3; #X connect 16 0 17 0; #X connect 16 0 18 4; #X connect 17 0 18 5; #X connect 18 0 23 1; #X connect 19 0 7 0; #X connect 19 0 18 0; #X connect 19 1 21 0; #X connect 20 0 0 0; #X connect 21 0 2 0; #X connect 21 0 13 0; #X connect 21 1 3 0; #X connect 21 1 14 0; #X connect 21 2 4 0; #X connect 21 2 15 0; #X connect 21 3 5 0; #X connect 21 3 16 0; #X connect 21 4 6 0; #X connect 21 4 17 0; #X connect 22 0 7 0; #X connect 22 0 2 0; #X connect 22 1 18 0; #X connect 22 1 13 0; --- NEW FILE: sp.wid --- #console show namespace eval ::ix { variable _ proc sp {p t} { variable _ image create photo $t $p configure -image $t set _($t:loc) 0 } proc spl {t args} { variable _ incr _($t:loc) if {$_($t:loc) > 511} {set _($t:loc) 0} set draw {} foreach pixel $args { set pixel [expr int($pixel)] lappend draw [format #%02x%02x%02x $pixel $pixel $pixel] } $t put $draw -to $_($t:loc) 0 } proc spd {t args} { variable _ incr _($t:loc) if {$_($t:loc) > 511} {set _($t:loc) 0} $t put $args -to $_($t:loc) 0 } } #> sp label #. @list ::ix::spl .| .#args #. @draw ::ix::spd .| .#args #. @clear .- delete 0 end #. @img eval ".| .#args" #. @cmd eval ".- .#args" bind .- <B1-Motion> {.| put #eeeeee -to %x %y} ::ix::sp .- .| puts "setup" --- NEW FILE: dd-demo.pd --- #N canvas 170 459 559 300 12; #X obj 11 9 widget dd dt -bg black -width 38 -fg orange; #X obj 9 99 dac~; #X obj 10 77 *~ 0.3; #X obj 52 77 *~ 0.3; #X msg 11 33 open \$1 \, 1; #X obj 11 55 readsf~ 2; #X obj 290 33 widget dd df -bg purple -fg white -width 11; #X obj 99 65 widget dd dl2 -bg green -fg purple -width 22; #X symbolatom 93 96 30 0 0 0 - - -; #X obj 114 110 print; #X text 98 50 drop some files here..; #X obj 3 184 widget dd d12; #X msg 4 162 list la la la la; #X floatatom 326 82 5 0 0 0 - - -; #X msg 372 88 -width \$1; #X obj 344 114 tow . dd df; #X text 329 10 < drag amongst widgets; #X msg 273 96 clear; #X obj 169 137 widget q q -width 64 -height 12 -bg gray90 -fg blue ; #X connect 0 0 4 0; #X connect 2 0 1 0; #X connect 3 0 1 1; #X connect 4 0 5 0; #X connect 5 0 2 0; #X connect 5 1 3 0; #X connect 7 0 8 0; #X connect 7 0 9 0; #X connect 7 0 18 0; #X connect 12 0 11 0; #X connect 13 0 14 0; #X connect 14 0 15 0; --- NEW FILE: kbd-demo.pd --- #N canvas 360 12 574 324 12; #X obj 56 57 widget kbd k1 #octaves 7 -width 444.094 -height 63.4421 ; #X obj 56 134 unpack; #X floatatom 56 155 5 0 0 0 - - -; #X floatatom 90 155 5 0 0 0 - - -; #X floatatom 98 135 5 0 0 0 - - -; #X obj 56 29 pack 0 1; #X floatatom 56 13 5 0 0 0 - - -; #X obj 99 14 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 ; #X floatatom 21 32 5 0 0 0 - - -; #X obj 56 217 osc~ 440; #X obj 56 196 mtof; #X obj 110 217 line~; #X msg 110 195 \$1 100; #X obj 80 265 dac~ 1 2; #X obj 81 242 *~; #X obj 92 173 * 0.4; #X floatatom 149 21 5 0 12 0 - - -; #X msg 148 38 #octaves \$1; #X obj 143 134 widget kbd k2 #octaves 3 #bg hotpink #fg orange -height 32; #X obj 56 174 + 36; #X obj 345 134 widget kbd k2 #octaves 3 #bg blue #fg cyan -height 32 ; #X obj 207 232 * 127; #X obj 171 230 + 36; #X obj 171 265 noteout; #X obj 170 203 unpack 0 0 0; #X obj 160 172 Append 1; #X obj 232 173 Append 2; #X connect 0 0 1 0; #X connect 0 0 4 0; #X connect 1 0 2 0; #X connect 1 1 3 0; #X connect 2 0 19 0; #X connect 3 0 15 0; #X connect 5 0 0 0; #X connect 6 0 5 0; #X connect 7 0 5 1; #X connect 8 0 0 0; #X connect 9 0 14 0; #X connect 10 0 9 0; #X connect 11 0 14 1; #X connect 12 0 11 0; #X connect 14 0 13 0; #X connect 14 0 13 1; #X connect 15 0 12 0; #X connect 16 0 17 0; #X connect 17 0 0 0; #X connect 18 0 25 0; #X connect 19 0 10 0; #X connect 20 0 26 0; #X connect 21 0 23 1; #X connect 22 0 23 0; #X connect 24 0 22 0; #X connect 24 1 21 0; #X connect 24 2 23 2; #X connect 25 0 24 0; #X connect 26 0 24 0; --- NEW FILE: sp-demo.pd --- #N canvas 387 298 580 364 10; #X obj 40 102 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 ; #X obj -196 21 loadbang; #X obj -196 111 until; #X obj -299 225 textfile; #X obj -299 207 prepend add2; #X msg -307 171 clear; #X msg -307 171 bang; #X obj -299 243 prepend draw; #X obj -307 153 t b b b; #X obj -196 129 f 512; #X obj -196 147 mod 512; #X obj -196 147 - 1; #X obj -176 75 samplerate~; #X obj -251 71 * 1000; #X obj -196 75 /; #X obj -273 89 metro 46; #X msg -77 218 img configure -height \$1 \, -height \$1; #X obj -196 93 i 512; #X obj 63 33 hsl 128 15 0 1000 0 1 empty empty hue -2 -6 0 8 -1 -262144 -1 6200 1; #X obj -149 200 exp; #X obj 42 32 tgl 15 1 empty empty empty 0 -6 0 8 -99865 -195568 -1 1 1; #X obj -174 165 demux; #X obj -129 182 log; #X obj -149 182 *; #X obj -129 164 t f f; #X obj -129 200 /; #X msg -248 129 -1; #X msg -225 129 1; #X obj 197 33 hsl 128 15 30 300 0 1 empty empty gain -2 -6 0 8 -262144 -1 -1 4200 1; #X obj -129 254 +; #X obj 59 49 widget sp sp1 -height 303; #X obj -162 236 sqrt; #X obj -157 272 mod 1000; #X obj -157 290 demux; #X obj 42 50 tgl 15 1 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 ; #X obj -129 326 abs; #X obj -129 308 - 1000; #X obj -129 236 * 110; #X msg -196 39 512; #X obj -147 129 i; #X obj -196 57 t f b; #X obj 3 75 nbx 5 14 -1e+37 1e+37 0 1 empty empty empty 0 -6 0 10 -262144 -1 -1 303 256; #X obj -322 17 mp3amp~; #X msg -271 -1 disconnect; #X msg -209 -1 connecturl live365.com:80/play/wfmu1; #X obj 61 -5 widget dd d1 #width 25 -width 73; #X obj -271 37 readsf~ 2; #X msg -271 17 open \$1 \, 1; #X obj -329 55 dac~; #X text 6 30 log/lin; #X text 11 100 start; #X text 2 52 palette; #X text 3 44 inverse; #N canvas 845 38 435 259 1000sp 0; #X obj 96 113 inlet; #X obj 12 -13 inlet~; #X obj 11 68 rfft~; #X obj 5 103 *~; #X obj 12 135 sqrt~; #X obj 32 103 *~; #X obj 94 27 loadbang; #X obj 94 48 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 ; #X obj 105 65 prepend set; #X obj 122 47 pack 1 1 1; #X obj 166 21 inlet; #X obj 95 83 switch~ 512 1 1; #X obj 247 1 table \$0sp 512; #X obj 11 166 tabwrite~ \$0sp; #X obj 36 9 tabreceive~ \$0w; #X obj 338 1 table \$0w; #X msg 310 112 0; #X obj 267 130 osc~; #X obj 267 83 samplerate~; #X obj 267 107 / 256; #X obj 267 152 *~ -0.5; #X obj 267 174 +~ 0.5; #X obj 253 41 loadbang; #X obj 23 31 *~; #X obj 252 203 tabwrite~ \$0w; #X obj 338 25 pack f \$0; #X msg 338 43 \; \$2w resize \$1; #X obj 193 45 t b f; #X msg 253 63 bang; #X obj 338 101 pack f \$0; #X msg 338 119 \; \$2sp resize \$1; #X obj 338 83 / 2; #X connect 0 0 13 0; #X connect 1 0 23 0; #X connect 2 0 3 1; #X connect 2 0 3 0; #X connect 2 1 5 1; #X connect 2 1 5 0; #X connect 3 0 4 0; #X connect 4 0 13 0; #X connect 5 0 4 0; #X connect 6 0 7 0; #X connect 7 0 11 0; #X connect 8 0 11 0; #X connect 9 0 8 0; #X connect 10 0 9 0; #X connect 10 0 27 0; #X connect 14 0 23 1; #X connect 16 0 17 1; #X connect 17 0 20 0; #X connect 18 0 19 0; #X connect 19 0 17 0; #X connect 20 0 21 0; #X connect 21 0 24 0; #X connect 22 0 28 0; #X connect 23 0 2 0; #X connect 25 0 26 0; #X connect 27 0 28 0; #X connect 27 1 19 1; #X connect 27 1 25 0; #X connect 27 1 31 0; #X connect 28 0 16 0; #X connect 28 0 18 0; #X connect 28 0 24 0; #X connect 29 0 30 0; #X connect 31 0 29 0; #X restore -285 112 pd \$0sp; #X obj -162 218 tabread4 \$0sp; #X msg -170 39 1024; #X obj -157 343 * 0.255; #N canvas 0 0 356 499 hsv2rgb 0; #X obj 152 455 sprintf symbol #%02x%02x%02x; #X obj 41 14 inlet; #X obj 153 471 outlet; #X obj 53 75 / 42.5; #X obj 18 55 t f f; #X obj 31 33 unpack f f f; #X obj 16 85 / 42.5; #X obj 23 115 -; #X obj 56 97 i; #X obj 115 78 / 255; #X obj 96 112 *; #X obj 70 143 *; #X text 14 39 h; #X text 58 46 s; #X text 88 42 v; #X text 75 102 i; #X text 16 120 f; #X text 145 83 vf; #X text 115 117 vs; #X text 90 148 vsf; #X text 147 185 p; #X text 73 225 q; #X text 132 212 t; #X obj 122 139 t b f; #X obj 124 162 f; #X obj 126 183 -; #X obj 52 192 f; #X obj 52 169 t b f; #X obj 54 220 -; #X obj 112 207 +; #X obj 131 272 f; #X obj 162 271 f; #X obj 197 272 f; #X obj 231 271 f; #X text 250 277 v; #X text 218 275 p; #X text 146 279 t; #X text 182 278 q; #X obj 92 278 i; #X obj 214 293 prepend add2; #X msg 193 321 96.8999 0 255; #X obj 77 325 t b b b; #X obj 79 252 t b b f b; #X msg 191 295 set; #X obj 90 345 t b b b; #X obj 116 367 t b b b; #X obj 138 387 t b b b; #X obj 153 414 t b b b; #X obj 167 435 t b b b; #X obj 79 300 route 1 2 3 4 5; #X connect 0 0 2 0; #X connect 1 0 5 0; #X connect 3 0 8 0; #X connect 4 0 6 0; #X connect 4 1 3 0; #X connect 5 0 4 0; #X connect 5 1 10 0; #X connect 5 2 9 0; #X connect 5 2 24 1; #X connect 5 2 26 1; #X connect 5 2 33 1; #X connect 6 0 7 0; #X connect 7 0 11 0; #X connect 8 0 7 1; #X connect 8 0 38 1; #X connect 9 0 10 1; #X connect 10 0 11 1; #X connect 10 0 23 0; #X connect 11 0 27 0; #X connect 23 0 24 0; #X connect 23 1 25 1; #X connect 24 0 25 0; #X connect 25 0 29 1; #X connect 25 0 32 1; #X connect 26 0 28 0; #X connect 27 0 26 0; #X connect 27 1 28 1; #X connect 27 1 29 0; #X connect 28 0 42 0; #X connect 29 0 30 1; #X connect 30 0 39 0; #X connect 31 0 39 0; #X connect 32 0 39 0; #X connect 33 0 39 0; #X connect 38 0 49 0; #X connect 39 0 40 0; #X connect 40 0 0 0; #X connect 41 0 32 0; #X connect 41 1 33 0; #X connect 41 2 31 0; #X connect 42 0 40 0; #X connect 42 1 38 0; #X connect 42 2 31 1; #X connect 42 3 43 0; #X connect 43 0 40 0; #X connect 44 0 30 0; #X connect 44 1 33 0; #X connect 44 2 32 0; #X connect 45 0 33 0; #X connect 45 1 31 0; #X connect 45 2 32 0; #X connect 46 0 33 0; #X connect 46 1 32 0; #X connect 46 2 30 0; #X connect 47 0 31 0; #X connect 47 1 32 0; #X connect 47 2 33 0; #X connect 48 0 32 0; #X connect 48 1 30 0; #X connect 48 2 33 0; #X connect 49 0 41 0; #X connect 49 1 44 0; #X connect 49 2 45 0; #X connect 49 3 46 0; #X connect 49 4 47 0; #X connect 49 5 48 0; #X restore -268 186 pd hsv2rgb; #X obj -313 74 adc~; #X obj -268 167 pack 0 255 255; #X connect 0 0 15 0; #X connect 1 0 38 0; #X connect 2 0 9 0; #X connect 3 0 7 0; #X connect 4 0 3 0; #X connect 5 0 3 0; #X connect 6 0 3 0; #X connect 7 0 30 0; #X connect 8 0 6 0; #X connect 8 1 17 0; #X connect 8 2 5 0; #X connect 9 0 11 0; #X connect 10 0 9 1; #X connect 10 0 21 0; #X connect 11 0 10 0; #X connect 12 0 14 1; #X connect 13 0 15 1; #X connect 14 0 13 0; #X connect 15 0 53 1; #X connect 15 0 8 0; #X connect 16 0 30 0; #X connect 17 0 2 0; #X connect 18 0 29 1; #X connect 19 0 54 0; #X connect 20 0 21 1; #X connect 21 0 54 0; #X connect 21 1 23 0; #X connect 22 0 25 0; #X connect 23 0 19 0; #X connect 24 0 22 0; #X connect 24 1 25 1; #X connect 25 0 23 1; #X connect 26 0 11 1; #X connect 27 0 11 1; #X connect 28 0 37 1; #X connect 29 0 32 0; #X connect 31 0 37 0; #X connect 32 0 33 0; #X connect 33 0 56 0; #X connect 33 1 36 0; #X connect 34 0 33 1; #X connect 35 0 56 0; #X connect 36 0 35 0; #X connect 37 0 29 0; #X connect 38 0 40 0; #X connect 39 0 10 1; #X connect 39 0 9 1; #X connect 39 0 16 0; #X connect 39 0 17 1; #X connect 39 0 24 0; #X connect 40 0 14 0; #X connect 40 0 53 2; #X connect 40 1 12 0; #X connect 41 0 39 0; #X connect 42 0 48 0; #X connect 42 0 53 0; #X connect 42 1 48 1; #X connect 42 1 53 0; #X connect 43 0 42 0; #X connect 44 0 42 0; #X connect 45 0 47 0; #X connect 46 0 48 0; #X connect 46 0 53 0; #X connect 46 1 48 1; #X connect 46 1 53 0; #X connect 47 0 46 0; #X connect 54 0 31 0; #X connect 55 0 40 0; #X connect 56 0 59 0; #X connect 57 0 4 0; #X connect 58 0 53 0; #X connect 59 0 57 0; #X coords 0 0 2.71716e-06 4.15856e-06 535 500 0; --- NEW FILE: dm-demo.pd --- #N canvas 45 442 370 233 10; #X msg 190 127 clear; #X symbolatom 187 203 10 0 0 0 - - -; #X obj 187 155 widget dm dm1 #items .( zero one two three four five six seven eight nine ten eleven twelve thirteen i14 i15 i16 i17 i18 i19 i20 i21 i22 i23 i24 i25 i26 i27 i28 i29 i30.) #arrows 0; #X obj 140 17 widget dm dm1 #items .(0 1 2 3 4 5 6 7 8 9 10 11 12.) -bg gray; #X obj 187 185 l2s; #X obj 56 119 l2s; #X msg 56 76 zero one two three four five six seven eight nine ten eleven twelve thirteen i14 i15 i16 i17 i18 i19 i20 i21 i22 i23 i24 i25 i26 i27 i28 i29 i30; #X msg 4 60 list ichi ni san chi; #X msg 56 136 #items .( \$1.); #X msg 92 25 5; #X msg 89 8 12; #X msg 259 138 #arrows \$1; #X obj 258 122 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1; #X connect 0 0 2 0; #X connect 2 0 4 0; #X connect 3 0 2 0; #X connect 4 0 1 0; #X connect 5 0 8 0; #X connect 6 0 5 0; #X connect 7 0 2 0; #X connect 8 0 2 0; #X connect 9 0 3 0; #X connect 10 0 3 0; #X connect 11 0 2 0; #X connect 12 0 11 0; --- NEW FILE: dm.wid --- #console show namespace eval ::ix { variable _ proc spin_resize {w} { # update $w config -height [winfo height $w] -width [winfo width $w] } proc spin {c w t bg fg font items arrows} { if {[winfo exists $w.m] != 1} { variable _ set _($t:p) 0 array set arrow "up \u25b2 dn \u25bc"; array set anchor "up n dn s" menubutton $w.m -menu $w.m.m -textvariable _($t:t) -relief raised \ -bg $bg -fg $fg -font $font -padx 0 -pady 0 menu $w.m.m -bd 0 -bg $bg -fg $fg; pack $w.m -side left -fill y if {$arrows == 1} { foreach i {up dn} { button $w.$i -padx 0 -pady 0 -text $arrow($i) \ -command "::ix::spinclick $w $t $i" \ -bd 0 -bg $bg -fg $fg -font {Times 6} pack $w.$i -anchor $anchor($i) } } spin_resize $w foreach item $items {spinitem $w $t $item} $w.m.m activate 0; $w.m.m invoke 0 } } proc spinitem {w t item} { variable _ set len [$w.m.m index end]; if {$len ne "none"} {set n [expr $len + 1]} else {set n 0} $w.m.m add radiobutton -selectcolor green -font {Tahoma 8} -label $item -variable _($t:t) -command "::ix::spinout $w $t $n" set wider [string length $item]; set wide [$w.m cget -width] if {$wide < $wider && $wider <= 31 } { $w.m configure -width $wider spin_resize $w } $w.m.m activate $n } proc spinout {w t i} { set sym [$w.m.m entrycget $i -label] pd [concat $t.rp _cb $sym \;] $w.m.m activate $i } proc spinclick {w t d} { variable _ array set shift "up -1 dn 1" set len [$w.m.m index end]; set pos $_($t:p) if {$pos != "none"} { incr pos $shift($d) if {$pos > $len} {set pos 0} if {$pos < 0} {set pos $len} $w.m.m activate $pos $w.m.m invoke $pos } set _($t:p) $pos } proc spinclear {w} { $w.m.m delete 0 end $w.m configure -width 0 } } #> dm frame #. -bg green -padx 4 -pady 4 -height 40 -width 86 #arrows 1 #. #bg black #fg "#8888ff" #items {} #font {Tahoma 10} #. @list foreach x [list .#args] {::ix::spinitem .- .| $x} #. @symbol ::ix::spinitem .- .| {.#1} #. @float .-.m.m invoke .#1 .: set ::ix::_(.|:p) .#1 #. @clear ::ix::spinclear .- puts "dm .- .|" ::ix::spin .^ .- .| .#bg .#fg .#font .#items .#arrows bind .- <Enter> {focus .-} bind .- <Leave> {focus .^.c} bind .- <<spin-dn>> {::ix::spinclick .- .| dn} bind .- <<spin-up>> {::ix::spinclick .- .| up} event add <<spin-dn>> <Key-space> <Key-Down> <Key-Right> event add <<spin-up>> <Key-Up> <Key-Left> foreach el {.- .-.m} { bind $el <MouseWheel> {if {%D > 0} {::ix::spinclick .- .| up} else {::ix::spinclick .- .| dn}} bind $el <Button-4> {::ix::spinclick .- .| up} bind $el <Button-5> {::ix::spinclick .- .| dn} } --- NEW FILE: grid-demo.pd --- #N canvas 361 266 709 441 12; #X obj 88 210 pack 0 0; #X floatatom 151 352 7 0 0 0 - - -; #X floatatom 200 351 7 0 0 0 - - -; #X obj 151 331 unpack; #X obj 151 228 widget grid g5a #bg white #fg purple #div 5 #shape rectangle #w 95 #h 95 #ln pink #x 0.889764 #size 56 -width 55 -height 55; #X obj 270 184 widget grid g3; #X obj 402 154 widget grid g4 #fg orange #bg black #w 264 #h 159 #div 0; #X obj 269 53 widget grid gg #shape oval #bg orange #fg pink #ln white #div 2 #size 67; #X obj 136 53 widget grid bllldie #bg red #fg white #ln gray #shape arc #size 44 #div 22; #X floatatom 131 12 5 0 0 0 - - -; #X msg 131 30 #div \$1; #X msg 269 31 #size \$1; #X floatatom 269 13 5 0 0 0 - - -; #X floatatom 403 110 5 0 0 0 - - -; #X msg 403 129 #w \$1; #X floatatom 442 110 5 0 0 0 - - -; #X msg 442 129 #h \$1; #X obj 66 174 random 100; #X obj 43 133 t b b; #X obj 29 157 random 100; #X obj 44 198 * 0.01; #X obj 43 97 bng 33 250 50 0 empty empty empty 0 -6 0 8 -225271 -1 -1; #X obj 135 186 / 100; #X text 426 25 #w #h #bg #fg #ln #div #shape #size; #X obj 530 81 tot .; #X msg 529 57 tot console show; #X obj 199 370 * 200; #X obj 339 315 widget grid g3902 #bg green #fg gray #ln yellow #div 3 #w 97 #h 97; #X obj 456 376 widget grid #bg #fg gray #w 32 #h 32; #X obj 149 395 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0.66 256; #X obj 35 71 metro 333; #X obj 40 46 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 ; #X connect 0 0 4 0; #X connect 2 0 26 0; #X connect 3 0 1 0; #X connect 3 0 29 0; #X connect 3 1 2 0; #X connect 4 0 3 0; #X connect 5 0 8 0; #X connect 6 0 5 0; #X connect 7 0 5 0; #X connect 9 0 10 0; #X connect 10 0 8 0; #X connect 11 0 7 0; #X connect 12 0 11 0; #X connect 13 0 14 0; #X connect 14 0 6 0; #X connect 15 0 16 0; #X connect 16 0 6 0; #X connect 17 0 22 0; #X connect 18 0 19 0; #X connect 18 1 17 0; #X connect 19 0 20 0; #X connect 20 0 0 0; #X connect 21 0 18 0; #X connect 22 0 0 1; #X connect 25 0 24 0; #X connect 30 0 21 0; #X connect 31 0 30 0; #X coords 0 0 1 1 200 140 1; --- NEW FILE: tree.wid --- package require treectrl package require tkdnd namespace eval ::ix { variable _ proc tree {t target title auto echo path delim} { variable _ puts "$t $target $title $echo $path $delim" if {[$t element names] != "el1"} { $t column create -text $title $t element create el1 text -fill [list green {selected focus}] $t style create s1 $t style elements s1 el1 } bind $t <Button1-Leave> {dnd drag %W} bind $t <ButtonPress-1> { set id [lindex [%W identify %x %y] 1] if {$id ne "" && $id ne "tail"} { %W activate $id ::ix::tree_click %W [winfo name %W] } } dnd bindsource $t text/plain "return \[::ix::tree_get $t $target -1 -1\]" bind $t <Tab> "::ix::tree_out $t $target -1" bind $t <KeyPress-Right> "::ix::tree_out $t $target -1" bind $t <Double-1> "::ix::tree_out $t $target -1" bind $t <ButtonPress-3> {} bind $t <ButtonPress-3> { variable _ focus %W set target [winfo name %W] set id [lindex [%W identify %x %y] 1] if {$id ne ""} { %W activate $id %W selection clear all %W selection add $id set path [::ix::tree_get %W $target 1 -1] if {[winfo exists %W.rc] != 1} { set m [menu %W.rc -tearoff no] $m add command -label "path [::ix::tree_get %W $target -1 $id]" -state disabled $m add command -label delete -command { ::ix::tree_msg $target "delete [pdtk_enquote $path]" set p [%W item parent $id] %W item delete $id if {[%W item numchildren $p] < 1} { %W item configure $p -button no } } $m add command -label new -command { ::ix::tree_nameitem %W $target $path $id } $m add command -label copy -command {::ix::tree_msg $target "copy [pdtk_enquote $path]"} $m add command -label cut -command {::ix::tree_msg $target "cut [pdtk_enquote $path]"} $m add command -label paste -command {::ix::tree_msg $target "paste [pdtk_enquote $path]"} } else { %W.rc entryconfigure 0 -label "path [::ix::tree_get %W $target -1 $id]" } tk_popup %W.rc %X %Y } else { if {[winfo exists %W.rroot] != 1} { set m [menu %W.rroot -tearoff no] $m add command -label "new root" -command { ::ix::tree_nameitem %W $target "" 0 } } tk_popup %W.rroot %X %Y } } set _($target:parentList) [list root {} {} {} {} {} {}] set _($target:auto) $auto set _($target:echo) $echo set _($target:path) $path set _($target:delim) $delim } proc tree_nameitem {t target path id} { set path "$path/" destroy .$path toplevel .$path entry .$path.entry -textvariable send_textvariable .$path.entry delete 0 end .$path.entry insert 0 [::ix::random_txt 6] .$path.entry select from 0 .$path.entry select adjust end # if {$path == "/"} {set pathname ""} else {set pathname path} set submit "::ix::tree_msg $target \"new \[pdtk_enquote \"$path\$send_textvariable\"\]\";::ix::tree_item $t $id \$send_textvariable;destroy .$path" bind .$path.entry <KeyPress-Return> $submit button .$path.ok -text "OK" -command $submit button .$path.cancel -text cancel -command "destroy .$path" pdtk_standardkeybindings .$path.entry grid .$path.entry -sticky news -columnspan 2 grid .$path.ok .$path.cancel -sticky news grid columnconfigure .$path 1 -weight 1 focus .$path.entry } proc random_txt {n} { set i 0 set text "" while {$i < $n} { set int [expr "int(floor(rand()*62))"] if {$int < 10} {incr int 48} elseif {$int < 36} {incr int 55} else {incr int 61} set text "$text[format %c $int]" incr i } return $text } proc tree_item {t p text} { set ti [$t item create] $t item style set $ti 0 s1 $t item text $ti 0 $text $t item lastchild $p $ti $t item configure $p -button yes return $ti } proc tree_add {t target args} { variable _ set depth [lindex $args 0] set text [lrange $args 1 end] set p [lindex $_($target:parentList) $depth] set ti [tree_item $t $p $text] incr depth set _($target:parentList) [lreplace $_($target:parentList) $depth $depth $ti] # if {$_($target:auto) == 1} { # tree_msg $target "new [tree_get $t $target -1 $ti]" # } } proc tree_click {t target} { variable _ if {$_($target:auto) == 1} {tree_out $t $target -1} } proc tree_cmd {t target args} { variable _ puts "$t $args" set r [eval "$t $args"] if {$_($target:echo) == 1} {pd "$target.rp _cb $r;"} } proc tree_out {t target rec} { tree_msg $target [tree_get $t $target $rec -1] } proc tree_msg {target msg} { pd "$target.rp _cb $msg;" } proc tree_get {t target rec it} { variable _ if {$it < 0} {set it [$t index active]} if {$rec < 0} {set rec $_($target:path)} if {$rec > 0} {return [tree_getrec $t $target $it ""]} else { set item [$t item text $it 0] return $item } } proc tree_getrec {t target tr dl} { variable _ if {$tr > 0} { lappend dl $tr tree_getrec $t $target [$t item parent $tr] $dl } else { set tr "" for {set i [expr [llength $dl] - 1]} {0 <= $i} {incr i -1} { set tr "$tr$_($target:delim)[$t item text [lindex $dl $i] 0]" } return $tr } } proc tree_cfg {target item arg} { variable _ set _($target:$item) $arg } } #> tree treectrl #. -height 400 -width 200 #. #title 1 #auto 1 #echo 0 #path 1 #delim "/" #. -font {tahoma 8} -showroot yes -showrootbutton no -selectmode single #. @list ::ix::tree_list .- .| .#args #. @clear .- item delete all #. @add ::ix::tree_add .- .| .#args #. @cmd ::ix::tree_cmd .- .| .#args #. @auto ::ix::tree_cfg .| auto .#1 #. @echo ::ix::tree_cfg .| echo .#1 #. @path ::ix::tree_cfg .| path .#1 #. @delim ::ix::tree_cfg .| delim .#1 ::ix::tree .- .| .#title .#auto .#echo .#path .#delim --- NEW FILE: tree-demo.pd --- #N canvas 402 155 495 621 10; #X obj 36 131 widget tree t1 -height 300 -selectmode single -width 205 -bd 2 -border 1 -font .(verdana 8.) -bg yellow -fg blue; #X obj 215 16 tow . tree t1; #X msg 13 8 0 juice; #X msg 21 24 1 coffee; #X msg 32 41 2 apples; #X msg 43 58 3 plantains; #X msg 27 74 2 arugula; #X msg 22 90 1 byte; #X obj 251 117 bng 15 250 50 0 empty empty empty 0 -6 0 8 -260818 -1 -1; #X msg 107 101 clear; #X msg 178 113 path \$1; #X msg 178 93 auto \$1; #X obj 224 78 tgl 15 0 empty empty empty 0 -6 0 8 -225271 -1 -1 0 1 ; #X obj 225 98 tgl 15 0 empty empty empty 0 -6 0 8 -225280 -1 -1 0 1 ; #X obj 266 168 widget dd dt -bg gray -fg pink; #X obj 11 113 prepend add; #X msg 171 0 cmd collapse -recurse all \, cmd expand 0; #X msg 255 -16 cmd expand all; #X obj 17 -10 t b b b b b; #X msg 80 -23 16; #X obj 81 -8 until; #X obj 78 9 random 6; #X obj 73 24 route 0 1 2 3 4 5; #X obj 24 -47 bng 31 250 50 0 empty empty empty 0 -6 0 8 -193787 -1 -1; #X obj 56 -48 bng 27 250 50 0 empty empty empty 0 -6 0 8 -258699 -1 -1; #X obj 146 453 s2l /; #X msg 240 453 resynth \; supatrigga \;; #X msg 215 473 set; #X msg 201 453 add \$1; #X obj 176 453 drip; #X symbolatom 40 492 39 0 0 0 - - -; #X obj 96 453 l2s; #X obj 116 453 t s b; #N canvas 17 433 316 238 pooledit 1; #X obj 18 50 prepend mkchdir; #X obj 18 9 inlet; #X obj 28 66 prepend rmdir; #X obj 168 173 outlet; #X obj 89 103 l2s; #X obj 48 82 niagara 1; #X obj 61 139 glue; #X obj 89 123 s2l /; #X obj 48 101 a2l; #X obj 61 158 route list; #X obj 61 174 pool tt; #X obj 197 66 prepend chdir; #X obj 18 26 route new delete cut copy paste; #X msg 169 66 paste; #X msg 132 66 copyall; #X msg 100 66 cutall; #X obj 100 50 t a a; #X obj 132 50 t a a; #X obj 169 50 t a a; #X connect 0 0 5 0; #X connect 1 0 12 0; #X connect 2 0 5 0; #X connect 4 0 7 0; #X connect 5 0 8 0; #X connect 5 1 4 0; #X connect 6 0 9 0; #X connect 7 0 6 1; #X connect 8 0 6 0; #X connect 9 0 10 0; #X connect 11 0 5 0; #X connect 12 0 0 0; #X connect 12 1 2 0; #X connect 12 2 16 0; #X connect 12 3 17 0; #X connect 12 4 18 0; #X connect 12 5 3 0; #X connect 13 0 10 0; #X connect 14 0 10 0; #X connect 15 0 10 0; #X connect 16 0 15 0; #X connect 16 1 11 0; #X connect 17 0 14 0; #X connect 17 1 11 0; #X connect 18 0 13 0; #X connect 18 1 11 0; #X restore 37 437 pd pooledit; #N canvas 185 447 106 167 poolview 1; #X obj 3 84 packel -1; #X msg 4 23 chdir \, getsub -1; #X obj 53 84 length; #X obj 11 63 t a a; #X obj 3 137 outlet; #X obj 4 3 inlet; #X obj 62 2 inlet; #X obj 4 44 pool tt; #X obj 3 119 prepend; #X obj 53 102 - 1; #X connect 0 0 8 0; #X connect 1 0 7 0; #X connect 2 0 9 0; #X connect 3 0 0 0; #X connect 3 1 2 0; #X connect 5 0 1 0; #X connect 6 0 7 0; #X connect 7 1 3 0; #X connect 8 0 4 0; #X connect 9 0 8 1; #X restore 267 116 pd poolview; #X text 266 154 drag an item here; #X obj 158 -33 tot .; #X msg 136 -50 tot console show; #X obj 267 79 widget dd dfd -width 19; #X msg 282 -43 -bg yellow -fg blue; #X msg 317 101 reset \, load \$1; #X msg 118 64 0 jip jop; #X obj 348 281 pool tt; #X obj 272 225 prepend chdir; #X msg 348 260 getall; #X obj 272 244 t b b a; #X msg 317 278 set; #X msg 253 333 ins 2 \; name supatrigga \; synth 0 \; vendor Bram @ Smartelectronix \; version 1 \; dll c:/local/wbin/vst/resynth/supatrigga.dll \; editor 0 \; outs 2 \;; #X obj 306 317 prepend add2; #X obj 368 317 prepend add; #X connect 0 0 33 0; #X connect 2 0 15 0; #X connect 3 0 15 0; #X connect 4 0 15 0; #X connect 5 0 15 0; #X connect 6 0 15 0; #X connect 7 0 15 0; #X connect 8 0 34 0; #X connect 9 0 0 0; #X connect 10 0 0 0; #X connect 11 0 0 0; #X connect 12 0 11 0; #X connect 13 0 10 0; #X connect 15 0 0 0; #X connect 16 0 1 0; #X connect 17 0 1 0; #X connect 18 0 19 0; #X connect 18 1 5 0; #X connect 18 2 4 0; #X connect 18 3 3 0; #X connect 18 4 2 0; #X connect 19 0 20 0; #X connect 20 0 21 0; #X connect 21 0 22 0; #X connect 22 0 2 0; #X connect 22 1 3 0; #X connect 22 2 4 0; #X connect 22 3 5 0; #X connect 22 4 6 0; #X connect 22 5 7 0; #X connect 23 0 18 0; #X connect 24 0 9 0; #X connect 25 0 29 0; #X connect 25 0 43 0; #X connect 27 0 26 0; #X connect 28 0 26 0; #X connect 29 0 28 0; #X connect 31 0 32 0; #X connect 32 0 25 0; #X connect 32 0 30 0; #X connect 32 1 27 0; #X connect 33 0 31 0; #X connect 34 0 15 0; #X connect 37 0 36 0; #X connect 38 0 40 0; #X connect 39 0 1 0; #X connect 40 0 34 1; #X connect 41 0 15 0; #X connect 42 0 49 0; #X connect 42 1 48 0; #X connect 43 0 45 0; #X connect 44 0 42 0; #X connect 45 0 44 0; #X connect 45 1 46 0; #X connect 45 2 42 0; #X connect 46 0 47 0; #X connect 48 0 47 0; #X connect 49 0 47 0; --- NEW FILE: q-demo.pd --- #N canvas 46 0 792 949 12; #X obj 20 352 widget q q1 -width 37 -height 56 -font .(Tahoma 8.) -bg white -fg cyan; #X obj 58 332 popen; #X msg 58 313 grep \$1 wavs.d; #X obj 56 276 widget dd d1 -width 30; #X msg 16 313 clear; #X obj 18 278 t s b; #X obj 312 363 player w; #X obj 353 242 loadbang; #X msg 387 313 \; pd dsp 1; #X floatatom 258 335 5 0 0 0 - - -; #X obj 210 584 widget q lb2 -width 24 -height 26; #X obj 17 56 widget q x0; #X obj 148 56 widget q x1; #X obj 278 57 widget q x2; #X obj 408 57 widget q x3; #X obj 537 57 widget q x5; #X obj 19 32 pool w; #X msg 19 11 chdir \, getsub; #X obj 280 238 l2s; #X msg 306 260 symbol /; #X obj 19 210 ndx; #X obj 670 57 widget q q5; #X msg 384 352 load wavs.dat; #X obj 280 211 ndx; #X obj 150 210 ndx; #X obj 411 211 ndx; #X obj 539 211 ndx; #X obj 672 211 ndx; #X text 54 263 search; #X text 220 564 <-right click starts drag; #X obj 310 409 widget q -bg -fg white -width 41 -bg black; #X obj 212 409 widget q -width -bg "#2f3351" -fg "#ff8617" -width 16 ; #X msg 151 296 clear; #X msg 102 259 bang; #X obj 348 382 outlet~; #X obj 394 382 outlet~; #X msg 222 352 next; #X msg 222 334 prev; #X msg 263 362 stop; #X connect 0 0 6 1; #X connect 1 0 0 0; #X connect 2 0 1 0; #X connect 3 0 5 0; #X connect 4 0 0 0; #X connect 5 0 2 0; #X connect 5 1 4 0; #X connect 6 2 30 0; #X connect 6 3 31 0; #X connect 6 4 36 0; #X connect 6 5 34 0; #X connect 6 6 35 0; #X connect 7 0 8 0; #X connect 7 0 19 0; #X connect 7 0 22 0; #X connect 9 0 0 0; #X connect 11 0 20 1; #X connect 12 0 24 1; #X connect 13 0 23 1; #X connect 14 0 25 1; #X connect 15 0 26 1; #X connect 16 1 11 0; #X connect 17 0 16 0; #X connect 18 0 6 1; #X connect 19 0 18 1; #X connect 20 0 18 0; #X connect 20 0 24 0; #X connect 20 1 12 0; #X connect 21 0 27 1; #X connect 22 0 6 2; #X connect 23 0 18 0; #X connect 23 0 25 0; #X connect 23 1 14 0; #X connect 24 0 18 0; #X connect 24 0 23 0; #X connect 24 1 13 0; #X connect 25 0 18 0; #X connect 25 0 26 0; #X connect 25 1 15 0; #X connect 26 0 18 0; #X connect 26 0 27 0; #X connect 26 1 21 0; #X connect 27 0 18 0; #X connect 32 0 3 0; #X connect 33 0 3 0; #X connect 36 0 0 0; #X connect 37 0 0 0; #X connect 38 0 6 0; --- NEW FILE: spectrum.wid --- #console show package require Tkzinc 3.3 package require zincGraphics namespace eval ::ix { variable _ proc spectrum_sub {t sub} { variable _ set _($t:use) $sub } proc spectrum_floats {path t w h args} { variable _ set coords "0 $h" set i 0 foreach num $args { incr i lappend coords $i $num } lappend coords $w $h $path coords $t:sub$_($t:use) $coords } proc spectrum {path t w h bg c1 c2 t1 t2} { if {[winfo exists $path.nob] != 1} { zinc $path.nob -render 1 -width $w -height $h -borderwidth 1 -lightangle 140 -backcolor $bg $path configure -width $w -height $h place $path.nob -anchor nw -relwidth 1 -relheight 1 $path.nob remove * $path.nob add curve 1 {1 1 8 4} -filled 1 -linewidth 0 -fillcolor "$c1;$t1" -closed 1 -tags $t:sub1 $path.nob add curve 1 {1 1 8 4} -filled 1 -linewidth 0 -fillcolor "$c2;$t2" -closed 1 -tags $t:sub2 } } } #> spectrum frame #. -height 160 -width 480 -bd 1 -bg "#cccccc" #. #h 160 #w 480 #bg gray20 #ca yellow #cb red #ta 100 #tb 50 #. @list ::ix::spectrum_floats .-.nob .| .#w .#h .#args #. @use ::ix::spectrum_sub .| .#1 #. @cmd eval ".-.nob .#args" bind .- <Enter> {focus .-} bind .- <Leave> {focus .^.c} ::ix::spectrum .- .| .#w .#h .#bg .#ca .#cb .#ta .#tb puts "spectrum .- .|" --- NEW FILE: spectrum-demo.pd --- #N canvas 62 98 623 209 10; #X obj -28 29 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 ; #X obj -115 21 loadbang; #X obj -95 69 samplerate~; #X obj -115 85 * 1000; #X obj -115 69 /; #X obj -115 101 metro 46; #X obj 86 29 tgl 15 1 \$0loglin empty empty 0 -6 0 8 -99865 -195568 -1 0 1; #X obj 112 30 hsl 128 15 1 100 0 1 \$0gain empty empty -2 -6 0 8 -262144 -1 -1 3500 1; #X obj -28 46 widget spectrum sp1 #ca "#ffff4c" #cb "#0ebcd8" #tb 57 #w 480 #h 160 -height 269; #X obj -115 53 t f b; #X text 57 30 log/lin; #N canvas 755 38 493 259 1000sp 0; #X obj 96 113 inlet; #X obj 12 -13 inlet~; #X obj 11 68 rfft~; #X obj 5 103 *~; #X obj 12 135 sqrt~; #X obj 32 103 *~; #X obj 94 27 loadbang; #X obj 94 48 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 ; #X obj 105 65 prepend set; #X obj 122 47 pack 1 1 1; #X obj 166 21 inlet; #X obj 95 83 switch~ 512 1 1; #X obj 36 9 tabreceive~ \$0w; #X obj 338 1 table \$0w; #X msg 310 112 0; #X obj 267 130 osc~; #X obj 267 83 samplerate~; #X obj 267 107 / 256; #X obj 267 152 *~ -0.5; #X obj 267 174 +~ 0.5; #X obj 253 41 loadbang; #X obj 16 32 *~; #X obj 252 203 tabwrite~ \$0w; #X obj 338 25 pack f \$0; #X msg 338 43 \; \$2w resize \$1; #X obj 193 45 t b f; #X msg 253 63 bang; #X obj 338 101 pack f \$0; #X obj 338 83 / 2; #X obj 51 -14 inlet~; #X obj 53 68 rfft~; #X obj 47 103 *~; #X obj 54 135 sqrt~; #X obj 74 103 *~; #X obj 58 32 *~; #X obj 94 166 tabwrite~ \$0sp1; #X obj 11 166 tabwrite~ \$0sp0; #X msg 338 119 \; \$2sp0 resize \$1 \; \$2sp1 resize \$1; #X obj 247 1 table \$0sp0 512; #X obj 247 17 table \$0sp1 512; #X connect 0 0 36 0; #X connect 0 0 35 0; #X connect 1 0 21 0; #X connect 2 0 3 1; #X connect 2 0 3 0; #X connect 2 1 5 1; #X connect 2 1 5 0; #X connect 3 0 4 0; #X connect 4 0 36 0; #X connect 5 0 4 0; #X connect 6 0 7 0; #X connect 7 0 11 0; #X connect 8 0 11 0; #X connect 9 0 8 0; #X connect 10 0 9 0; #X connect 10 0 25 0; #X connect 12 0 21 1; #X connect 12 0 34 1; #X connect 14 0 15 1; #X connect 15 0 18 0; #X connect 16 0 17 0; #X connect 17 0 15 0; #X connect 18 0 19 0; #X connect 19 0 22 0; #X connect 20 0 26 0; #X connect 21 0 2 0; #X connect 23 0 24 0; #X connect 25 0 26 0; #X connect 25 1 17 1; #X connect 25 1 23 0; #X connect 25 1 28 0; #X connect 26 0 14 0; #X connect 26 0 16 0; #X connect 26 0 22 0; #X connect 27 0 37 0; #X connect 28 0 27 0; #X connect 29 0 34 0; #X connect 30 0 31 1; #X connect 30 0 31 0; #X connect 30 1 33 1; #X connect 30 1 33 0; #X connect 31 0 32 0; #X connect 32 0 35 0; #X connect 33 0 32 0; #X connect 34 0 30 0; #X restore -144 155 pd \$0sp; #X msg -115 37 2048; #X text -10 31 power; #X obj -145 76 adc~; #X msg 289 30 #ca \$1; #X obj 358 30 tot .; #X msg 353 15 query tk_chooseColor; #X obj 387 31 makefilename "%s"; #X obj 289 14 demux; #X obj 338 15 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 ; #X msg 323 30 #cb \$1; #X floatatom 258 17 5 33 100 0 - - -; #X msg 249 30 #tb \$1; #X floatatom 7 1 5 30 500 0 - - -; #X floatatom -20 1 5 64 640 0 - - -; #X msg 94 15 #w \$1; #X obj 22 14 spr \$0 \$0sp1 2; #X msg 125 15 #h \$1; #X obj -50 14 spr \$0 \$0sp0 1; #X msg -115 5 480; #X msg -92 5 160; #X obj -132 132 biquad~; #X obj -103 135 notch 4000 42; #X obj -139 118 hsl 106 15 0 10000 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 8600 1; #X connect 0 0 5 0; #X connect 1 0 12 0; #X connect 1 0 30 0; #X connect 1 0 31 0; #X connect 2 0 4 1; #X connect 3 0 5 1; #X connect 4 0 3 0; #X connect 5 0 11 2; #X connect 5 0 27 0; #X connect 5 0 29 0; #X connect 9 0 4 0; #X connect 9 0 11 3; #X connect 9 1 2 0; #X connect 12 0 9 0; #X connect 14 0 11 0; #X connect 14 1 32 0; #X connect 15 0 8 0; #X connect 16 0 18 0; #X connect 17 0 16 0; #X connect 18 0 19 0; #X connect 19 0 15 0; #X connect 19 1 21 0; #X connect 20 0 19 1; #X connect 21 0 8 0; #X connect 22 0 23 0; #X connect 23 0 8 0; #X connect 24 0 28 0; #X connect 24 0 29 2; #X connect 24 0 27 2; #X connect 25 0 26 0; #X connect 25 0 27 1; #X connect 25 0 29 1; #X connect 26 0 8 0; #X connect 27 0 8 0; #X connect 28 0 8 0; #X connect 29 0 8 0; #X connect 30 0 25 0; #X connect 31 0 24 0; #X connect 32 0 11 1; #X connect 33 0 32 0; #X connect 34 0 33 0; #X coords 0 0 2.71716e-06 4.15856e-06 535 500 0; --- NEW FILE: filter.wid --- namespace eval ::ix { proc random_int {} { return [expr "int(floor(rand()*16))"] } proc random_clr {} { return [format "\#%1X%1X%1X%1X%1X%1X" [random_int] [random_int] [random_int] [random_int] [random_int] [random_int]] } variable _ proc filter_update {path target n} { set type [$path.filter itemcget type_$n -text] set q [$path.filter itemcget q_$n -text] set loc [$path.filter coords sqr_$n] set x [expr 5 + [lindex $loc 0]] set y [expr 5 + [lindex $loc 1]] set inv [filter_invtr $path $target $x $y] set freq [lindex $inv 0] set mag [lindex $inv 1] filter_bqp $path $target $n $type $freq $mag $q } proc filter_bqp {path target n type f0 dBgain Q} { variable _ set A [expr pow(10,($dBgain/40.0))] set Fs $_($target:rate) set pi [expr {atan(1) * 4}] set w0 [expr 2 * $pi * $f0 / $Fs] set alpha [expr sin($w0) / (2 * $Q)] switch $type { notch { set b0 1 set b1 [expr -2 * cos($w0)] set b2 1 set a0 [expr 1 + $alpha] set a1 $b1 set a2 [expr 1 - $alpha] } lowpass { set b0 [expr (1 - cos($w0))/2] set b1 [expr 1 - cos($w0)] set b2 $b0 set a0 [expr 1 + $alpha] set a1 [expr -2 * cos($w0)] set a2 [expr 1 - $alpha] } highpass { set b0 [expr (1 + cos($w0))/2] set b1 [expr -(1 + cos($w0))] set b2 $b0 set a0 [expr 1 + $alpha] set a1 [expr -2 * cos($w0)] set a2 [expr 1 - $alpha] } qbandpass { set b0 [expr sin($w0)/2] set b1 0 set b2 [expr -$b0] set a0 [expr 1 + $alpha] set a1 [expr -2 * cos($w0)] set a2 [expr 1 - $alpha] } bandpass { set b0 $alpha set b1 0 set b2 [expr -$alpha] set a0 [expr 1 + $alpha] set a1 [expr -2 * cos($w0)] set a2 [expr 1 - $alpha] } allpass { set b0 [expr 1 - $alpha] set b1 [expr -2 * cos($w0)] set b2 [expr 1 + $alpha] set a0 $b2 set a1 $b1 set a2 $b0 } peakingEQ { set b0 [expr 1 + $alpha * $A] set b1 [expr -2 * cos($w0)] set b2 [expr 1 - $alpha * $A] set a0 [expr 1 + $alpha / $A] set a1 $b1 set a2 [expr 1 - $alpha / $A] } lowShelf { set b0 [expr $A*(($A+1)-($A-1)*cos($w0)+2*sqrt($A)*$alpha)] set b1 [expr 2*$A*(($A-1)-($A+1)*cos($w0))] set b2 [expr $A*(($A+1)-($A-1)*cos($w0)-2*sqrt($A)*$alpha)] set a0 [expr ($A+1)+($A-1)*cos($w0)+2*sqrt($A)*$alpha] set a1 [expr -2*(($A-1)+($A+1)*cos($w0))] set a2 [expr ($A+1)+($A-1)*cos($w0) - 2*sqrt($A)*$alpha ] } highShelf { set b0 [expr $A*(($A+1)+($A-1)*cos($w0)+2*sqrt($A)*$alpha)] set b1 [expr -2*$A*(($A-1)+($A+1)*cos($w0))] set b2 [expr $A*(($A+1)+($A-1)*cos($w0)-2*sqrt($A)*$alpha)] set a0 [expr ($A+1)-($A-1)*cos($w0)+2*sqrt($A)*$alpha] set a1 [expr 2*(($A-1)-($A+1)*cos($w0))] set a2 [expr ($A+1)-($A-1)*cos($w0) - 2*sqrt($A)*$alpha ] } } set f 0 set fr {} set _($target:fmag_$n) {1} set h [winfo height $path.filter] set h2 [expr $h / 2] while {$f < [winfo width $path.filter]} { incr f set w [expr $pi * [filter_invtr_x $path $target $f] / $_($target:nyquist)] set mag [expr sqrt(pow(($b0+$b1*cos($w)+$b2*cos(2*$w)),2)+pow(($b1*sin($w)+$b2*sin(2*$w)),2))/sqrt(pow(($a0+$a1*cos($w)+$a2*cos(2*$w)),2)+pow(($a1*sin($w)+$a2*sin(2*$w)),2))] lappend fr $f [expr $h - $h2 * $mag] lappend _($target:fmag_$n) $mag } $path.filter coords resp_$n $fr pd [concat $target.rp _cb params $n [expr -1 * $a1 / $a0] [expr -1 * $a2 / $a0] [expr $b0 / $a0] [expr $b1 / $a0] [expr $b2 / $a0] \;] filter_resp $path $target } proc filter_resp {path target} { variable _ if {$_($target:init) == 1} { set f 0 set fr {} set h [winfo height $path.filter] set h2 [expr $h / 2] while {$f < [winfo width $path.filter]} { incr f set cx 0 set ci 1 while {$cx < $_($target:n)} { incr cx set ci [expr $ci * [lindex $_($target:fmag_$cx) $f]] } lappend fr $f [expr $h - $h2 * $ci] } $path.filter coords resp $fr } } proc filter_motion {path target x y} { set v [filter_invtr $path $target $x $y] $path itemconfigure freq -text "[expr int([lindex $v 0])] hz" # $path itemconfigure dB -text "[expr int([lindex $v 1])] dB" } proc filter_invtr {path target x y} { return [list [filter_invtr_x $path $target $x] [filter_invtr_y $path $target $y]] } proc filter_invtr_x {path target x} { variable _ set gw [winfo width $path] if {$_($target:log) > 0} { return [expr $_($target:scale) * exp($_($target:log) * $x / $gw.0)] } else { return freq [expr $_($target:nyquist) * $x / $gw.0] } } proc filter_invtr_y {path target y} { set gh [winfo height $path] return [expr (12 * ($y / $gh.0 - 0.5) * - 1.0)] } proc filter_new {path target w h bg div log rate n} { variable _ set _($target:init) 0 set _($target:n) $n set _($target:log) $log set _($target:rate) $rate set _($target:nyquist) [expr $rate / 2] set _($target:scale) [expr $_($target:nyquist) / exp($_($target:log))] if {[winfo exists $path.filter] != 1} { canvas $path.filter -bg $bg -width $w -height $h pack $path.filter -side left bind $path.filter <Motion> "::ix::filter_motion %W $target %x %y" # bind $path.filter <ButtonRelease> "::ix::filter_resp $path $target" bind $path.filter <Leave> { %W itemconfigure freq -text "" %W itemconfigure dB -text "" } bind $path.filter <1> "::ix::filter_click $path $target %x %y" bind $path.filter <B1-Motion> [bind $path.filter <1>] filter_gridlines $path $target $div filter_filters $path $target $n $path.filter create text 2 1 -tags freq -text "" -anchor nw -justify left -font {{Bitstream Vera Sans} 9} # $path.filter create text 96 1 -tags dB -text "" -anchor ne -justify right -font {{Bitstream Vera Sans} 9} $path.filter create line 0 0 0 0 -tags resp -fill grey44 -width 1.6 set fn 0 while {$fn < $n} { incr fn foreach a [list sqr_$fn type_$fn q_$fn] {$path.filter raise $a} } set bd [expr {[$path cget -bd] * 2}] $path configure -bg $bg -width [expr [winfo width $path.filter] + $bd] -height [expr [winfo height $path.filter] + $bd] } pd "$target.rp _cb n $n;" set _($target:init) 1 } proc filter_filters {path target n} { set gh [winfo height $path.filter] set gw [winfo width $path.filter] set fn 0 while {$fn < $n} { incr fn set px [expr $gw.0 * $fn.0 / $n.0] set py [expr $gh.0 / 2.0] set fill [random_clr] $path.filter create rectangle 0 0 0 0 -tags sqr_$fn -fill $fill $path.filter create line 0 0 0 0 -tags resp_$fn -fill $fill $path.filter create text 0 0 -tags type_$fn -fill grey33 -font {{Bitstream Vera Sans} 8} -text "peakingEQ" -anchor e -justify right $path.filter create text 0 0 -tags q_$fn -fill white -font {{Bitstream Vera Sans} 8} -text "1.0" -anchor w -justify left set b1 "::ix::filter_move $path $target $fn %x %y" set b2 "::ix::filter_menu $path $target $fn %X %Y" set b3 "::ix::filter_move_q $path $target $fn %x %y" set b4 "::ix::filter_locus $path $target $fn %x %y" foreach a [list sqr_$fn type_$fn q_$fn] { $path.filter bind $a <1> $b1 $path.filter bind $a <2> $b2 $path.filter bind $a <3> $b4 $path.filter bind $a <B3-Motion> $b3 $path.filter bind $a <B1-Motion> $b1 } filter_move $path $target $fn $px $py } } proc filter_menu {path target n x y} { if {[winfo exists $path.ft] == 1} { destroy $path.ft} set m [menu $path.ft -tearoff no] foreach ft {lowpass highpass qbandpass bandpass notch allpass peakingEQ lowShelf highShelf} { $m add command -label $ft -command "::ix::filter_type $path $target $n $ft" } tk_popup $path.ft $x $y } proc filter_type {path target n type} { $path.filter itemconfigure type_$n -text "$type" filter_update $path $target $n } proc filter_click {path target x y} { variable _ filter_move $path $target $_($target:recent) $x $y } proc filter_move {path target n px py} { variable _ $path.filter coords sqr_$n [expr $px - 5] [expr $py - 5] [expr $px + 5] [expr $py + 5] $path.filter coords type_$n [expr $px - 9] [expr $py] $path.filter coords q_$n [expr $px + 9] [expr $py] filter_motion $path.filter $target $px $py set _($target:recent) $n filter_update $path $target $n } proc filter_locus {path target n px py} { variable _ set _($target:lx) $px } proc filter_move_q {path target n px py} { variable _ set delta [expr ($px.0 - $_($target:lx).0) / 25] set move [expr [$path.filter itemcget q_$n -text] + $delta] if {$move > 0} { $path.filter itemconfigure q_$n -text $move } filter_update $path $target $n set _($target:lx) $px } proc filter_gridlines {path target lines} { variable _ puts "gridlines" set color white set w $path.filter $w delete gridlines set gh [winfo height $w] set gw [winfo width $w] for {set x 1} {$x <= $lines} {incr x} { if {$lines < 16 && $lines > 0} { set oh [expr $gh.0 * $x.0 / $lines.0] set ow [expr $gw.0 * $x.0 / $lines.0] $w create line $ow 0 $ow $gh -fill $color -tags gridlines $w create line 0 $oh $gw $oh -fill $color -tags gridlines set fontsize [expr int(80.0/$lines.0)] $w create text $ow [expr $gh - $fontsize] -font [list {Bitstream Vera Sans} $fontsize] -tags gridlines -text [expr int([filter_invtr_x $path $target $ow])] } } $w raise ${target}sqr } } #> filter frame #. -bd 3 #w 384 #h 144 #bg gray90 #div 6 #n 3 #. #log 1 #rate 44100 #. @div ::ix::filter_gridlines .- .| .#1 #. @params ::ix::filter_lp .- .| .#args puts "filter .- .|" ::ix::filter_new .- .| .#w .#h .#bg .#div .#log .#rate .#n --- NEW FILE: img-demo.pd --- #N canvas 0 0 818 675 12; #X obj 134 121 widget img i1; #X obj 328 135 widget img img__guns #src /var/www/_/_i/p/_guns.gif ; #X obj 328 167 widget img img__lunch #src /var/www/_/_i/p/_lunch.gif ; #X obj 308 205 widget img img__roast #src /var/www/_/_i/p/_roast.gif ; #X obj 328 231 widget img img__door #src /var/www/_/_i/p/_door.gif ; #X obj 328 263 widget img img__fruit #src /var/www/_/_i/p/_fruit.gif ; #X obj 328 295 widget img img__crop #src /var/www/_/_i/p/_crop.gif ; #X obj 328 327 widget img img__twogirls #src /var/www/_/_i/p/_twogirls.gif #mouseover 1; #X obj 328 359 widget img img__345 #src /var/www/_/_i/p/_345.gif; #X obj 328 391 widget img img__machinery #src /var/www/_/_i/p/_machinery.gif ; #X obj 175 252 route _roast _guns; #X obj 175 280 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 224 275 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 170 222 a2l; #X obj 172 174 print wtf; #X obj 189 131 a2l; #X obj 381 -297 widget img img_guns #src /var/www/_/_i/p/guns.jpg; #X obj 96 132 widget img img__pissers #src /var/www/_/_i/p/_pissers.gif ; #X obj 96 164 widget img img__w3 #src /var/www/_/_i/p/_w3.gif; #X obj 96 196 widget img img__w1 #src /var/www/_/_i/p/_w1.gif; #X obj 96 228 widget img img__db #src /var/www/_/_i/p/_db.gif; #X obj 96 260 widget img img__w4 #src /var/www/_/_i/p/_w4.gif; #X obj 96 292 widget img img__scream #src /var/www/_/_i/p/_scream.gif ; #X obj 96 324 widget img img__chair #src /var/www/_/_i/p/_chair.gif ; #X obj 96 356 widget img img__dog #src /var/www/_/_i/p/_dog.gif; #X obj 96 388 widget img img__w2 #src /var/www/_/_i/p/_w2.gif; #X obj 96 420 widget img img__h #src /var/www/_/_i/p/_h.gif; #X obj 96 452 widget img img__shitters #src /var/www/_/_i/p/_shitters.gif ; #X obj 96 484 widget img img__violation #src /var/www/_/_i/p/_violation.gif ; #X obj 96 516 widget img img__melt #src /var/www/_/_i/p/_melt.gif; #X msg 206 326 #mouseover \$1; #X obj 209 303 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1; #X connect 1 0 13 0; #X connect 3 0 13 0; #X connect 3 0 15 0; #X connect 7 0 14 0; #X connect 10 0 11 0; #X connect 10 1 12 0; #X connect 13 0 10 0; #X connect 15 0 14 0; #X connect 16 0 14 0; #X connect 30 0 7 0; #X connect 31 0 30 0; --- NEW FILE: knob.wid --- namespace eval ::ix { variable _ proc nobfloat {path t num} { variable _ $path itemconfigure $t:num -text $num pd [concat $t.rp _cb $num \;] set _($t:num) $num } proc nob_mover {w t f x y} { variable _ if {$::ix::_($t:clickd) > 0} { set move [expr (($x - $::ix::_($t:lx)) + (-1 * ($y - $::ix::_($t:ly)))) / ([winfo width $w].0 + [winfo height $w].0) * $f] nob_move $w $t $move } set ::ix::_($t:clickd) 1 set ::ix::_($t:lx) $x set ::ix::_($t:ly) $y } proc nob_move {w t move} { variable _ set on [$w itemcget $t:num -text] set no [expr $on + $_($t:range) * $move * 2] if {$_($t:min) != $_($t:max)} { if {$no > $_($t:max)} {set no $_($t:max);set move 0} if {$no < $_($t:min)} {set no $_($t:min);set move 0} } nobfloat $w $t $no foreach e {1 10 100} { set a [expr [$w itemcget $t:nob$e -start] + int($move * $e * 90)] $w itemconfigure $t:nob$e -start $a set _($t:a$e) $a } } proc nob {path t w h range bg c1 c2 c3 cn th nx ny max min} { variable _ set _($t:lx) 32 set _($t:clickd) -1 set _($t:max) $max set _($t:min) $min if {$_($t:min) != $_($t:max)} { set _($t:range) [expr abs($min - $max)] } else { set _($t:range) $range } if {[winfo exists $path.nob] != 1} { canvas $path.nob -width $w -height $h -borderwidth 1 -bg $bg $path configure -width $w -height $h place $path.nob -anchor nw -relwidth 1 -relheight 1 $path.nob delete * set i 0 set colors [list $c1 $c2 $c3] set ratios {1 10 0.1} set edge 10 $path.nob create rectangle {1 1 8 4} -fill "#555555" $path.nob create rectangle "1 $h 8 [expr $h - 5]" -fill "#555555" foreach e {1 10 100} { $path.nob create arc \ "[expr $w / $edge / ($i + 1) + ($edge / 2)] [expr $h / $edge / ($i + 1) + ($edge / 2)] [expr $w - $w / $edge / ($i + 1) - ($edge / 2)] [expr $h - $h / $edge / ($i + 1) - ($edge / 2)]" \ -extent [expr int(300 / $e)] -start 90 \ -outline "[lindex $colors $i]" \ -style arc \ -width [expr int($h / $th)] \ -tags $t:nob$e bind $path.nob <B[expr $i + 1]-Motion> \ "::ix::nob_mover $path.nob $t [lindex $ratios $i] %x %y" incr i bind $path.nob <ButtonRelease-$i> "set ::ix::_($t:clickd) -1" } bind $path <MouseWheel> {::ix::nob_move %W.nob [winfo name %W] [expr %D / 2400.]} bind $path <Shift-MouseWheel> {::ix::nob_move %W.nob [winfo name %W] [expr %D / 24000.]} bind $path <Control-MouseWheel> {::ix::nob_move %W.nob [winfo name %W] [expr %D / 240.]} bind $path.nob <Shift-B1-Motion> "::ix::nob_mover $path.nob $t 10 %x %y" bind $path.nob <Control-B1-Motion> "::ix::nob_mover $path.nob $t 0.1 %x %y" if {$nx == 0} { set nx [expr $w / 2] set ny [expr $h - 20] } $path.nob create text $nx $ny -text "0.0" -tags $t:num -fill "$cn" -font {{Bitstream Vera Sans} 8} } if {[info exists _($t:num)]} { $path.nob itemconfigure $t:num -text $_($t:num) foreach e {1 10 100} { $path.nob itemconfigure $t:nob$e -start $_($t:a$e) } } else { foreach e {1 10 100} {set _($t:a$e) 90} set _($t:num) 0.0} } } #> knob frame #. -bd 1 -bg "#cccccc" #. -highlightbackground red #. #max 0 #min 0 #. #w 128 #h 128 #th 5 #range 100 #nx 0 #ny 0 #. #bg purple #ca blue #cb yellow #cc green #cn orange #. @float ::ix::nobfloat .-.nob .| .#1 #. @cmd eval ".-.nob .#args" bind .- <Enter> {focus .-} bind .- <Leave> {focus .^.c} ::ix::nob .- .| .#w .#h .#range .#bg .#ca .#cb .#cc .#cn .#th .#nx .#ny .#max .#min --- NEW FILE: nob.wid --- #console show package require Tkzinc 3.3 package require zincGraphics namespace eval ::ix { variable _ proc nobfloat {path t num} { variable _ $path itemconfigure $t:num -text $num pd [concat $t.rp _cb $num \;] set _($t:num) $num } proc nob_mover {w t f x y} { variable _ if {$::ix::_($t:clickd) > 0} { set move [expr (($x - $::ix::_($t:lx)) + (-1 * ($y - $::ix::_($t:ly)))) / ([winfo width $w].0 + [winfo height $w].0) * $f] nob_move $w $t $move } set ::ix::_($t:clickd) 1 set ::ix::_($t:lx) $x set ::ix::_($t:ly) $y } proc nob_move {w t move} { variable _ set on [$w itemcget $t:num -text] set no [expr $on + $_($t:range) * $move * 2] if {$_($t:min) != $_($t:max)} { if {$no > $_($t:max)} {set no $_($t:max);set move 0} if {$no < $_($t:min)} {set no $_($t:min);set move 0} } nobfloat $w $t $no foreach e {1 10 100} { set a [expr [$w itemcget $t:nob$e -startangle] + int($move * $e * 90)] $w itemconfigure $t:nob$e -startangle $a set _($t:a$e) $a } } proc nob {path t w h range bg c1 c2 c3 cn trans th nx ny max min} { variable _ set _($t:lx) 32 set _($t:clickd) -1 set _($t:max) $max set _($t:min) $min if {$_($t:min) != $_($t:max)} { set _($t:range) [expr abs($min - $max)] } else { set _($t:range) $range } if {[winfo exists $path.nob] != 1} { zinc $path.nob -render 1 -width $w -height $h -borderwidth 1 -lightangle 140 -backcolor $bg $path configure -width $w -height $h place $path.nob -anchor nw -relwidth 1 -relheight 1 $path.nob remove * set i 0 set colors [list $c1 $c2 $c3] set ratios {1 10 0.1} set edge 10 $path.nob add rectangle 1 {1 1 8 4} -filled 1 -fillcolor "#555555" $path.nob add rectangle 1 "1 $h 8 [expr $h - 5]" -filled 1 -fillcolor "#555555" foreach e {1 10 100} { $path.nob add arc 1 \ "[expr $w / $edge / ($i + 1) + ($edge / 2)] [expr $h / $edge / ($i + 1) + ($edge / 2)] [expr $w - $w / $edge / ($i + 1) - ($edge / 2)] [expr $h - $h / $edge / ($i + 1) - ($edge / 2)]" \ -closed 0 -filled 0 -extent [expr int(300 / $e)] -startangle 90 \ -linecolor "[lindex $colors $i];$trans" \ -linewidth [expr int($h / $th)] \ -tags $t:nob$e bind $path.nob <B[expr $i + 1]-Motion> \ "::ix::nob_mover $path.nob $t [lindex $ratios $i] %x %y" incr i bind $path.nob <ButtonRelease-$i> "set ::ix::_($t:clickd) -1" } bind $path <MouseWheel> {::ix::nob_move %W.nob [winfo name %W] [expr %D / 2400.]} bind $path <Shift-MouseWheel> {::ix::nob_move %W.nob [winfo name %W] [expr %D / 24000.]} bind $path <Control-MouseWheel> {::ix::nob_move %W.nob [winfo name %W] [expr %D / 240.]} bind $path.nob <Shift-B1-Motion> "::ix::nob_mover $path.nob $t 10 %x %y" bind $path.nob <Control-B1-Motion> "::ix::nob_mover $path.nob $t 0.1 %x %y" if {$nx == 0} { set nx [expr $w / 2] set ny [expr $h - 20] } $path.nob add text 1 -text "0.0" \ -position "$nx $ny" -tags $t:num -color "$cn;$trans" } if {[info exists _($t:num)]} { $path.nob itemconfigure $t:num -text $_($t:num) foreach e {1 10 100} { $path.nob itemconfigure $t:nob$e -startangle $_($t:a$e) } } else { foreach e {1 10 100} {set _($t:a$e) 90} set _($t:num) 0.0} } } #> nob frame #. -height 128 -width 128 -bd 1 -bg "#cccccc" #. -highlightbackground red #. #max 0 #min 0 #. #w 128 #h 128 #trans 70 #th 5 #range 100 #nx 0 #ny 0 #. #bg purple #ca blue #cb yellow #cc green #cn orange #. @float ::ix::nobfloat .-.nob .| .#1 #. @cmd eval ".-.nob .#args" bind .- <Enter> {focus .-} bind .- <Leave> {focus .^.c} ::ix::nob .- .| .#w .#h .#range .#bg .#ca .#cb .#cc .#cn .#trans .#th .#nx .#ny .#max .#min --- NEW FILE: tile.wid --- #console show package require Tktable namespace eval ::ix { variable _ proc tile {t tg bg fg ac sb sf e} { variable _ $t tag configure active -bg $ac $t tag configure OFF -bg $bg -relief ridge $t tag configure ON -bg $fg -relief sunken $t tag configure sel -bg $sb -fg $sf -relief flat if {$e eq "columns"} { bind $t <Motion> { %W selection clear all set sel [%W index @%x,%y row] %W selection set $sel,0 $sel,[%W cget -cols] } } elseif {$e eq "rows"} { bind $t <Motion> { %W selection clear all set sel [%W index @%x,%y col] %W selection set 0,$sel [%W cget -rows],$sel } } else { bind $t <Motion> { %W selection clear all %W selection set @%x,%y } } set _($t:e) $e bind $t <Leave> {%W selection clear all} bind $t <2> {%W configure -state [if {[%W cget -state] eq "normal"} {list disabled} {list normal}]} bind $t <3> {::ix::tile_clk %W %x %y OFF} bind $t <1> {::ix::tile_clk %W %x %y ON} bind $t <B3-Motion> [bind $t <3>] bind $t <B1-Motion> [bind $t <1>] tile_clr $t } proc tile_dump {t id} { puts "$t $id" for {set c 0} {$c < [$t cget -cols]} {incr c} { for {set r 0} {$r < [$t cget -rows]} {incr r} { if {[$t tag includes ON $r,$c] == 1} { pd [concat $id.rp _cb $c $r 1\;] } } } } proc tile_clk {t x y v} { variable _ if {[$t cget -state] eq "disabled"} { switch $_($t:e) { rows { for {set row 0} {$row < [$t cget -rows]} {incr row} { $t tag celltag OFF $row,[$t index @$x,$y col] } } columns { for {set col 0} {$col < [$t cget -cols]} {incr col} { $t tag celltag OFF [$t index @$x,$y row],$col } } } $t tag celltag $v [$t index @$x,$y] } } proc tile_clr {t} { for {set i 0} {$i < [$t cget -rows]} {incr i} { for {set j 0} {$j < [$t cget -cols]} {incr j} { $t tag celltag OFF $i,$j } } } } #> tile table #. -rows 8 -cols 16 -resizeborders none -fg blue #. -borderwidth 2 -titlerows 0 -titlecols 0 -roworigin 0 -colorigin 0 -colwidth 4 #. -width 16 -height 8 -variable tab -flashmode off -font {Tahoma 8} #. #bg "#a4e75a" #fg "#fefdff" #cb yellow #ac yellow #sb "#aaff88" #sf green #. #e none #. @bang ::ix::tile_dump .- .| #. @clear ::ix::tile_clr .- #. @clr ::ix::tile_clr .- ::ix::tile .- .| .#bg .#fg .#ac .#sb .#sf .#e puts "tile .- .|" --- NEW FILE: knob-demo.pd --- #N canvas 403 277 313 218 12; #X floatatom 157 24 5 16 1024 0 - - -; #X msg 157 42 #w \$1 \, #h \$1; #X floatatom 194 7 5 3 22 0 - - -; #X obj 13 148 nbx 8 14 -1e+37 1e+37 0 0 empty empty empty 0 -6 0 10 -262144 -1 -1 -0.0116279 256; #X obj 13 39 widget knob n1 #w 88 #h 88 #th 3 #cc purple #cb black #ca red #trans 81 #bg green #range 1 #cn navy #ny 79 #nx 43 #max 0 #min 0 #an white -bd 1; #X msg 135 109 #range \$1; #X msg 157 144 1; #X msg 184 144 10000; #X floatatom 203 94 5 0 0 0 - - -; #X msg 203 109 #ny \$1; #X floatatom 203 61 5 0 0 0 - - -; #X msg 203 76 #nx \$1; #X msg 157 170 #max 1; #X msg 202 170 #max 32 \, #min 16; #X msg 157 190 #min 0 \, #max 0; #X msg 103 107 1; #X msg 103 85 100; #X msg 104 63 1000; #X msg 104 41 0.1; #X msg 194 23 #th \$1; #X connect 0 0 1 0; #X connect 1 0 4 0; #X connect 2 0 19 0; #X connect 4 0 3 0; #X connect 5 0 4 0; #X connect 6 0 4 0; #X connect 7 0 4 0; #X connect 8 0 9 0; #X connect 9 0 4 0; #X connect 10 0 11 0; #X connect 11 0 4 0; #X connect 12 0 4 0; #X connect 13 0 4 0; #X connect 14 0 4 0; #X connect 15 0 5 0; #X connect 16 0 5 0; #X connect 17 0 5 0; #X connect 18 0 5 0; #X connect 19 0 4 0; --- NEW FILE: nob-demo.pd --- #N canvas 151 325 465 268 12; #X floatatom 234 44 5 16 1024 0 - - -; #X msg 234 62 #w \$1 \, #h \$1; #X msg 14 209 #trans \$1; #X floatatom 14 191 5 22 100 0 - - -; #X obj 356 150 widget nob n2 #w 34 #h 35 #ca "#ff4a9c" #cb "#83f735" #cc "#fff74a" #trans 100 #th 8 #bg "#446dfd" #cn "#83f735" #nx -30 #ny -30 -bd 1; #X obj 103 198 nbx 8 14 -1e+37 1e+37 0 0 empty empty empty 0 -6 0 10 -262144 -1 -1 31.6832 256; #X obj 103 89 widget nob n1 #w 100 #h 100 #th 7 #cc purple #cb black #ca red #trans 81 #bg orange #range 1 #cn yellow #ny 82 #nx 50 #max 0 #min 0 -bd 1; #X msg 225 159 #range \$1; #X msg 247 194 1; #X msg 274 194 10000; #X floatatom 234 6 5 1 50 0 - - -; #X msg 234 21 #th \$1; #X obj 338 18 tot .; #X msg 338 0 query tk_chooseColor; #X obj 333 36 makefilename "%s"; #X obj 183 29 widget nob n3 #size #1 #w 30 #h 30 #ny 87 #nx 33 #th 8 #bg orange #cc green #trans 134; #X floatatom 280 114 5 0 0 0 - - -; #X msg 280 129 #ny \$1; #X floatatom 183 11 5 0 0 0 - - -; #X floatatom 183 62 5 0 0 0 - - -; #X floatatom 280 81 5 0 0 0 - - -; #X msg 280 96 #nx \$1; #X msg 247 220 #max 1; #X obj 8 -2 widget dm color #arrows 0 #items .(bg ca cb cc cn.); #X obj 108 2 loadbang; #X obj 37 -2 widget dm bg #arrows 0 #items .(green red purple blue orange yellow black white pink.); #X obj 41 53 prepend; #X msg 108 21 bg; #X obj 285 152 widget dm range #arrow 0 #items .(1 100 1000 0.1.) #arrows 0; #X msg 292 220 #max 32 \, #min 16; #X msg 247 240 #min 0 \, #max 0; #X obj 7 29 makefilename #%s; #X text 347 87 right = 1/10th; #X text 347 76 middle = 10; #X text 357 99 left = 1; #X connect 0 0 1 0; #X connect 1 0 6 0; #X connect 2 0 6 0; #X connect 3 0 2 0; #X connect 6 0 5 0; #X connect 7 0 6 0; #X connect 8 0 6 0; #X connect 9 0 6 0; #X connect 10 0 11 0; #X connect 11 0 6 0; #X connect 12 0 14 0; #X connect 13 0 12 0; #X connect 14 0 26 0; #X connect 15 0 19 0; #X connect 16 0 17 0; #X connect 17 0 6 0; #X connect 18 0 15 0; #X connect 19 0 6 0; #X connect 20 0 21 0; #X connect 21 0 6 0; #X connect 22 0 6 0; #X connect 23 0 31 0; #X connect 24 0 27 0; #X connect 25 0 26 0; #X connect 26 0 6 0; #X connect 27 0 31 0; #X connect 28 0 7 0; #X connect 29 0 6 0; #X connect 30 0 6 0; #X connect 31 0 26 1; --- NEW FILE: img.wid --- #console show package require Img package require tkdnd namespace eval ::ix { variable _ proc drop_pics {name files x y} { set c 0 for {set n 0} {$n < [llength $files]} {incr n} { if {[regexp {.*/(.+)\.[a-zA-Z0-9]+$} [lindex $files $n] file obj] == 1} { pd [concat $name obj $x [expr $y + ($c * 32)] widget img [pdtk_enquote [string tolower "img_${obj}"]] #src [pdtk_enquote [regsub -- "^file:" [lindex $files $n] ""]] \;] incr c } } } proc pic {c p t src mouseover} { variable _ image create photo $t $p configure -image $t if {$src ne "none" && [file exists $src]} { $t configure -file $src set cb "pd \"$t _cb [lindex [regexp -inline {.*/(.+)\.[a-zA-Z0-9]+$} $src] 1] \;\"" bind $p <Enter> "$t configure -gamma 2" if {$mouseover != 0} { bind $p <Enter> +$cb } bind $p <Leave> "$t configure -gamma 1" bind $p <ButtonPress-1> "+$t configure -gamma 0.5; $cb" bind $p <ButtonRelease-> "+$t configure -gamma 1" } else { $t configure -format gif -data {R0lGODdhDgAQAKIAAICAgP///8DAwAAAAP8AAP///////////ywAAAAADgAQAAADWQi63Bi6HIIDGLocggMYuhyCAxi6HIIDEUFIEUSBIQMRGEFEhKEyoBoQUUQEykBEYBARBUbIQGAEUQQSRcggYOhyCA5g6HIIDmDocggOYOhyCA6g6LLi6HInADs=} dnd bindtarget $c.c text/uri-list <Drop> "::ix::drop_pics $c %D %x %y" } set _($t:loc) 0 } } #> img label #. -borderwidth 0 #. #src none #mouseover 1 #. @bang puts "bang" ::ix::pic .^ .- .| {.#src} .#mouseover puts "pic .- .|"

1 0

extensions/gui/ix/toxy - New directory
by carmen rocco 20 Sep '06

20 Sep '06

Update of /cvsroot/pure-data/extensions/gui/ix/toxy In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29264/toxy Log Message: Directory /cvsroot/pure-data/extensions/gui/ix/toxy added to the repository

1 0

pd/portaudio/pablio ringbuffer.c, 1.11, 1.12 ringbuffer.h, 1.12, 1.13
by Miller Puckette 20 Sep '06

20 Sep '06

Update of /cvsroot/pure-data/pd/portaudio/pablio In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12377/pd/portaudio/pablio Modified Files: ringbuffer.c ringbuffer.h Log Message: Bug fixes

1 0

pd/portaudio/pa_win_wdmks pa_win_wdmks.c,1.12,1.13
by Miller Puckette 20 Sep '06

20 Sep '06

Update of /cvsroot/pure-data/pd/portaudio/pa_win_wdmks In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12377/pd/portaudio/pa_win_wdmks Modified Files: pa_win_wdmks.c Log Message: Bug fixes

1 0

← Newer
1
...
11
12
13
14
15
16
17
...
35
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 September 2006