1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
|
#N canvas 194 88 620 614 10;
#X obj 78 213 sys_gui;
#X text 136 59 open the help browser;
#X msg 51 93 set text_color #f0f;
#X text 180 93 set variables;
#X msg 91 140 bang;
#X obj 304 115 colorpanel;
#X obj 303 90 bng 17 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 333 89 choose a color;
#N canvas 0 22 454 304 generate 0;
#X obj 101 15 inlet;
#X obj 103 275 outlet;
#X obj 103 58 unpack float float float;
#X obj 103 82 * 255;
#X obj 103 105 int;
#X obj 103 128 makefilename %x;
#X obj 203 82 * 255;
#X obj 203 105 int;
#X obj 203 128 makefilename %x;
#X obj 303 82 * 255;
#X obj 303 105 int;
#X obj 303 128 makefilename %x;
#X obj 103 163 pack symbol symbol symbol;
#X obj 103 187 zexy/makesymbol #%s%s%s;
#X msg 103 212 set set obj_box_fill \$1;
#X obj 103 238 trigger bang anything;
#X connect 0 0 2 0;
#X connect 2 0 3 0;
#X connect 2 1 6 0;
#X connect 2 2 9 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 12 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 12 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 12 2;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 1 0;
#X connect 15 1 1 0;
#X restore 304 141 pd generate web color;
#X msg 303 165 set obj_box_fill #a3cfb5;
#X obj 38 302 pddp/pddplink http://pure-data.cvs.sourceforge.net/pure-data/pd/src
;
#X text 24 257 You can find things to mess with by looking thru the
Pd code \, look for things that have "sys_gui" and "sys_vgui". These
are Tcl/Tk commands from the pd to the Pg GUI process.;
#X obj 170 548 sys_gui;
#X obj 257 405 loadbang;
#X obj 317 467 canvas_name;
#X msg 199 453 black;
#X msg 156 453 green;
#X obj 33 392 colorpanel;
#N canvas 685 90 416 325 generate 0;
#X obj 81 23 inlet;
#X obj 82 262 outlet;
#X obj 83 66 unpack float float float;
#X obj 83 90 * 255;
#X obj 83 113 int;
#X obj 83 136 makefilename %x;
#X obj 183 90 * 255;
#X obj 183 113 int;
#X obj 183 136 makefilename %x;
#X obj 283 90 * 255;
#X obj 283 113 int;
#X obj 283 136 makefilename %x;
#X obj 83 171 pack symbol symbol symbol;
#X obj 83 195 zexy/makesymbol #%s%s%s;
#X connect 0 0 2 0;
#X connect 2 0 3 0;
#X connect 2 1 6 0;
#X connect 2 2 9 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 12 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 12 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 12 2;
#X connect 12 0 13 0;
#X connect 13 0 1 0;
#X restore 33 413 pd generate web color;
#X obj 33 348 bng 35 250 50 0 empty empty empty 17 7 0 10 -204786 -1
-1;
#X text -29 325 change the highlight color:;
#X msg 170 518 \$3 configure -highlightcolor \$1 -highlightthickness
\$2;
#X obj 246 350 hsl 128 15 0 127 0 1 empty empty empty -2 -8 0 10 -262144
-1 -1 500 1;
#X obj 243 378 int;
#X floatatom 275 378 5 0 0 0 - - -;
#N canvas 1009 401 454 304 pak 0;
#X obj 25 16 inlet;
#X obj 167 15 inlet;
#X obj 305 16 inlet;
#X obj 122 241 outlet;
#X obj 83 150 pack symbol 0 symbol;
#X obj 78 69 trigger bang float;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 2 0 4 2;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 5 1 4 1;
#X restore 170 489 pd pak ------------------;
#N canvas 278 183 494 344 META 0;
#X text 12 65 PLATFORM windows macosx gnulinux;
#X text 12 145 HELP_PATCH_AUTHORS "pd meta" information added by Jonathan
Wilkes for Pd version 0.42.;
#X text 12 25 LICENSE GPL v3;
#X text 12 125 AUTHOR Hans-Christoph Steiner;
#X text 12 45 DESCRIPTION send raw Tcl directly to the Pd GUI process
;
#X text 12 85 INLET_0 anything;
#X text 12 105 OUTLET_0;
#X text 12 5 KEYWORDS control pd_op;
#X restore 512 562 pd META;
#X obj 78 236 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 257 427 trigger bang bang;
#X text 99 236 <-- bang when command finished;
#X text 135 215 DANGER! You can crash Pd with this!! :D;
#X msg 27 61 menu_helpbrowser;
#X text -24 17 This object gives you the ability to send raw Tcl commands
directly to the 'pd-gui' process just like GUI objects do.;
#X text 127 139 run previous command;
#X obj 170 572 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X connect 0 0 27 0;
#X connect 2 0 0 0;
#X connect 4 0 0 0;
#X connect 5 0 8 0;
#X connect 6 0 5 0;
#X connect 8 0 9 0;
#X connect 9 0 0 0;
#X connect 12 0 34 0;
#X connect 13 0 28 0;
#X connect 14 0 25 2;
#X connect 15 0 25 0;
#X connect 16 0 25 0;
#X connect 17 0 18 0;
#X connect 18 0 25 0;
#X connect 19 0 17 0;
#X connect 21 0 12 0;
#X connect 22 0 23 0;
#X connect 22 0 24 0;
#X connect 23 0 25 1;
#X connect 25 0 21 0;
#X connect 28 0 15 0;
#X connect 28 1 14 0;
#X connect 31 0 0 0;
|
