blob: 7686b23c53b1a89533b1d6207068d51edfb4f759 (
plain)
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
|
#N canvas 449 123 590 584 10;
#X obj 78 223 sys_gui;
#X msg 27 61 menu_doc_browser;
#X text 136 59 open the help browser;
#X msg 51 93 set text_color #f0f;
#X text 180 93 set variables;
#X msg 81 120 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;
#X text 135 225 DANGER! You can mess up Pd big time with this!! :D
;
#X text -24 17 This objects give you the ability to send raw Tcl directly
to the Pd GUI process just like C objects do.;
#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 528 sys_gui;
#X obj 317 425 loadbang;
#X obj 317 447 canvas_name;
#X msg 179 433 black;
#X msg 136 433 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 498 \$3 configure -highlightcolor \$1 -highlightthickness
\$2;
#X obj 253 370 hsl 128 15 0 127 0 1 empty empty empty -2 -8 0 10 -262144
-1 -1 500 1;
#X obj 250 398 int;
#X floatatom 282 398 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 469 pd pak ------------------;
#X obj 179 410 loadbang;
#X connect 1 0 0 0;
#X connect 3 0 0 0;
#X connect 5 0 0 0;
#X connect 6 0 11 0;
#X connect 7 0 6 0;
#X connect 11 0 12 0;
#X connect 12 0 0 0;
#X connect 16 0 17 0;
#X connect 17 0 28 2;
#X connect 18 0 28 0;
#X connect 19 0 28 0;
#X connect 20 0 21 0;
#X connect 21 0 28 0;
#X connect 22 0 20 0;
#X connect 24 0 15 0;
#X connect 25 0 26 0;
#X connect 25 0 27 0;
#X connect 26 0 28 1;
#X connect 28 0 24 0;
#X connect 29 0 18 0;
|
