#N canvas 291 154 667 345 10; #X declare -lib Gem; #X text 54 30 Class: geometric object; #X obj 479 47 cnv 15 170 250 empty empty empty 20 12 0 14 -228992 -66577 0; #X obj 544 224 cnv 15 100 60 empty empty empty 20 12 0 14 -195568 -66577 0; #N canvas 0 0 450 300 gemwin 0; #X obj 132 136 gemwin; #X obj 67 89 outlet; #X obj 67 10 inlet; #X obj 67 41 route create; #X msg 67 70 set destroy; #X msg 142 68 set create; #X msg 198 112 destroy; #X msg 132 112 create \, 1; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 3 0 7 0; #X connect 3 1 5 0; #X connect 3 1 6 0; #X connect 4 0 1 0; #X connect 5 0 1 0; #X connect 6 0 0 0; #X connect 7 0 0 0; #X restore 549 263 pd gemwin; #X msg 549 244 create; #X text 545 223 Create window:; #X text 485 29 Example:; #X obj 7 65 cnv 15 450 90 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 8 216 cnv 15 450 120 empty empty empty 20 12 0 14 -233017 -66577 0; #X text 9 221 Inlets:; #X obj 8 166 cnv 15 450 40 empty empty empty 20 12 0 14 -195568 -66577 0; #X text 17 165 Arguments:; #X text 452 8 GEM object; #X text 27 233 Inlet 1: gemlist; #X text 9 307 Outlets:; #X text 21 320 Outlet 1: gemlist; #X obj 481 81 cnv 15 165 140 empty empty empty 20 12 0 14 -24198 -66577 0; #X msg 485 95 draw line; #X msg 485 116 draw fill; #X msg 485 138 draw point; #X obj 553 54 gemhead; #X floatatom 564 102 5 0 0 1 R - -; #X floatatom 576 122 3 0 0 1 segments - -; #X floatatom 589 147 5 0 0 1 r - -; #X text 27 261 Inlet 2: float: size (= outer radius); #X text 33 14 Synopsis: [disk]; #X text 7 69 Description: Renders a disk.; #X text 14 86 The disk object renders a flat disk with a hole in the middle at the current position with current color. The look of the disk can be changed with the draw message \, its size can be changed via the second inlet \, the size of the hole via the third inlet.; #X text 26 286 Inlet 4: float: inner radius (default:0); #X obj 553 199 disk 1; #X text 27 273 Inlet 3: int: number of segments (default:10); #X text 28 177 disk size(=outer radius) \, segments \, hole size(=inner radius); #X text 29 191 defaults: 1 \, 10 \, 0; #X text 27 247 Inlet 1: message: draw [line|fill|point|default]; #X obj 548 8 declare -lib Gem; #X connect 3 0 4 0; #X connect 4 0 3 0; #X connect 17 0 29 0; #X connect 18 0 29 0; #X connect 19 0 29 0; #X connect 20 0 29 0; #X connect 21 0 29 1; #X connect 22 0 29 2; #X connect 23 0 29 3;