#N canvas 301 73 904 550 10;
#X text 158 43 epicycloid;
#X text 168 56 x(t) = (R+r) cos(t) - p*cos((R+r)t/r);
#X text 168 69 y(t) = (R+r) sin(t) - p*sin((R+r)t/r);
#X obj 24 273 #draw_polygon put 1;
#X obj 24 292 #out window;
#X obj -22 68 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 0 1
;
#X obj 297 428 pack f f f f;
#X msg 297 447 \$2 \$1 \$4 \$1 \$4 \$3 \$2 \$3;
#X text 304 403 x;
#X text 364 405 y;
#X text 391 407 y+1;
#X text 327 405 x+1;
#X floatatom 303 381 5 0 0 0 - - -;
#X obj 345 379 + 1;
#X floatatom 390 382 5 0 0 0 - - -;
#X obj 432 379 + 1;
#X obj 303 358 t f f;
#X obj 390 361 t f f;
#X obj -16 108 s met;
#X obj 258 428 r met;
#X obj 388 197 hsl 128 15 5 100 0 1 empty empty empty -2 -6 0 8 -24198
-1 -1 5500 1;
#X obj 515 238 hsl 128 15 -100 100 0 1 empty empty empty -2 -6 0 8
-44926 -1 -1 4000 1;
#X obj 665 263 hsl 128 15 -150 150 0 1 empty empty empty -2 -6 0 8
-258699 -1 -1 3200 1;
#X text 313 155 t = valeur en angles de 0 a 360;
#X obj 385 241 t f f;
#X obj 512 270 t f f;
#X obj 662 283 t f f;
#X obj 303 217 * 6.28319;
#X obj 303 196 / 360;
#X floatatom 303 178 5 0 0 0 - - -;
#X obj 303 236 t f f;
#X obj -22 273 #store;
#X obj -14 129 loadbang;
#X obj 390 323 expr ($f2+$f3)*sin($f1) - $f4*sin(($f2+$f3)*$f1/$f3)
;
#X obj 303 302 expr ($f2+$f3)*cos($f1) - $f4*cos(($f2+$f3)*$f1/$f3)
;
#X obj 303 135 + 1;
#X msg 303 111 1;
#X floatatom 335 138 5 0 0 0 - - -;
#X msg 335 119 0;
#X text 366 122 reset count;
#X text 100 147 reset image;
#X text 470 216 r = Rayon du deuxieme cercle -100 a 100;
#X obj 390 342 + 150;
#X obj 303 339 + 150;
#X floatatom 397 223 5 0 0 0 - - -;
#X floatatom 563 263 5 0 0 0 - - -;
#X floatatom 712 286 5 0 0 0 - - -;
#X obj -22 85 metro 1;
#X obj 25 68 hsl 128 15 0 15 0 0 empty empty empty -2 -6 0 8 -260818
-1 -1 0 1;
#X text 360 178 R = Rayon du premier cercle 5 a 100;
#X obj -38 515 cnv 15 900 30 empty empty empty 20 12 0 14 -200249 -66577
0;
#X text -29 522 GridFlow 0.8.0;
#X text -29 522 GridFlow 0.8.0;
#X obj -35 5 cnv 15 800 30 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 88 213 #color;
#X obj 88 175 loadbang;
#X msg 88 194 230 224 0;
#X msg -14 148 300 300 3 # 0;
#X text -22 18 Copyright 2004 Alexandre Castonguay;
#X text -22 5 epicycloid.pd;
#X text 51 128 start with a blank \, black image;
#X text 660 248 deuxieme cercle - 150 a 150;
#X text 660 233 p = distance du centre du;
#X obj 297 466 #import (4 2);
#X connect 3 0 4 0;
#X connect 3 0 31 1;
#X connect 5 0 47 0;
#X connect 6 0 7 0;
#X connect 7 0 63 0;
#X connect 12 0 6 0;
#X connect 13 0 6 2;
#X connect 14 0 6 1;
#X connect 15 0 6 3;
#X connect 16 0 12 0;
#X connect 16 1 13 0;
#X connect 17 0 14 0;
#X connect 17 1 15 0;
#X connect 19 0 6 0;
#X connect 20 0 24 0;
#X connect 20 0 44 0;
#X connect 21 0 25 0;
#X connect 21 0 45 0;
#X connect 22 0 26 0;
#X connect 22 0 46 0;
#X connect 24 0 34 1;
#X connect 24 1 33 1;
#X connect 25 0 34 2;
#X connect 25 1 33 2;
#X connect 26 0 34 3;
#X connect 26 1 33 3;
#X connect 27 0 30 0;
#X connect 28 0 27 0;
#X connect 29 0 28 0;
#X connect 30 0 34 0;
#X connect 30 1 33 0;
#X connect 31 0 3 0;
#X connect 32 0 57 0;
#X connect 33 0 42 0;
#X connect 34 0 43 0;
#X connect 35 0 37 0;
#X connect 35 0 29 0;
#X connect 36 0 35 0;
#X connect 37 0 35 1;
#X connect 38 0 37 0;
#X connect 42 0 17 0;
#X connect 43 0 16 0;
#X connect 47 0 18 0;
#X connect 47 0 31 0;
#X connect 47 0 36 0;
#X connect 48 0 47 1;
#X connect 54 0 3 1;
#X connect 55 0 56 0;
#X connect 56 0 54 0;
#X connect 57 0 31 1;
#X connect 63 0 3 2;