blob: cabfc00e38dd450cae170dad02e02ac4a8e0609f (
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
|
#N canvas 121 272 642 509 10;
#X obj 136 401 pddp/print;
#X obj 95 342 tgl 15 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0
1;
#X obj 74 370 cursor;
#X msg 70 318 bang;
#X text 111 339 poll the mouse pointer position;
#X text 101 318 get the current mouse position;
#X obj 346 278 pddp/pddplink http://tcl.tk/man/tcl8.4/TkCmd/cursors.htm
;
#X text 231 261 Here's a complete list of the available cursors:;
#X msg 169 229 runmode_disconnect gumby;
#X msg 322 151 boat;
#X msg 282 151 clock;
#X msg 428 151 dot;
#X msg 505 151 gumby;
#X msg 548 151 gobbler;
#X msg 357 151 coffee_mug;
#X msg 458 151 pirate;
#X msg 42 44 runmode_nothing;
#N canvas 0 22 462 312 make 0;
#X obj 95 9 inlet;
#X obj 114 258 outlet;
#X obj 116 168 pack symbol symbol;
#X obj 221 147 symbol;
#X obj 94 51 symbol;
#X obj 329 19 inlet;
#X obj 126 111 trigger bang anything;
#X msg 116 192 set \$1 \$2;
#X obj 115 220 trigger bang anything;
#X connect 0 0 4 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 2 0;
#X connect 5 0 6 0;
#X connect 6 0 2 0;
#X connect 6 1 3 0;
#X connect 7 0 8 0;
#X connect 8 0 1 0;
#X connect 8 1 1 0;
#X restore 169 205 pd make message;
#X msg 59 63 runmode_clickme;
#X msg 75 82 runmode_thicken;
#X msg 92 101 runmode_addpoint;
#X obj 67 440 pddp/print;
#X msg 110 120 editmode_nothing;
#X msg 126 139 runmode_connect;
#X msg 143 158 runmode_disconnect;
#X text 312 128 now pick a cursor:;
#X obj 169 266 cursor;
#X text 295 229 <-- this is the actual message to send;
#X obj 25 244 metro 100;
#X obj 25 218 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X text 15 18 set your mouse cursors for this patch:;
#X text 201 81 <-- choose your cursor mode;
#X text 237 293 Here are some pictures of the cursors:;
#X obj 345 309 pddp/pddplink http://www.lehigh.edu/~sol0/ptk/cursors.gif
;
#X connect 1 0 2 0;
#X connect 2 0 21 0;
#X connect 2 1 0 0;
#X connect 3 0 2 0;
#X connect 8 0 26 0;
#X connect 9 0 17 1;
#X connect 10 0 17 1;
#X connect 11 0 17 1;
#X connect 12 0 17 1;
#X connect 13 0 17 1;
#X connect 14 0 17 1;
#X connect 15 0 17 1;
#X connect 16 0 17 0;
#X connect 17 0 8 0;
#X connect 18 0 17 0;
#X connect 19 0 17 0;
#X connect 20 0 17 0;
#X connect 22 0 17 0;
#X connect 23 0 17 0;
#X connect 24 0 17 0;
#X connect 28 0 2 0;
#X connect 29 0 28 0;
|
