#N canvas 443 76 1178 736 10;
#X text 18 93 epicycloid;
#X text 18 116 x(t) = (R+r) cos(t) - p*cos((R+r)t/r);
#X text 18 140 y(t) = (R+r) sin(t) - p*sin((R+r)t/r);
#X obj 38 383 #draw_polygon put 1;
#X obj 287 438 #import ( 4 2 );
#X obj 38 406 #out window;
#X obj -22 -22 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1
;
#X obj 327 375 pack f f f f;
#X msg 327 404 \$2 \$1 \$4 \$1 \$4 \$3 \$2 \$3;
#X text 334 350 x;
#X text 394 352 y;
#X text 421 354 y+1;
#X text 357 352 x+1;
#X floatatom 327 327 5 0 0 0 - - -;
#X obj 369 325 + 1;
#X floatatom 405 327 5 0 0 0 - - -;
#X obj 447 324 + 1;
#X obj 332 297 t f f;
#X obj 417 297 t f f;
#X obj 0 50 s met;
#X obj 286 350 r met;
#X obj 468 97 hsl 128 15 5 100 0 1 empty empty empty -2 -6 0 8 -24198
-1 -1 5500 1;
#X obj 585 148 hsl 128 15 -100 100 0 1 empty empty empty -2 -6 0 8
-44926 -1 -1 4000 1;
#X obj 732 173 hsl 128 15 -150 150 0 1 empty empty empty -2 -6 0 8
-258699 -1 -1 3200 1;
#X text 439 52 t = valeur en angles de 0 a 360;
#X obj 465 153 t f f;
#X obj 582 180 t f f;
#X obj 729 193 t f f;
#X obj 333 127 * 6.28319;
#X obj 333 106 / 360;
#X floatatom 333 88 5 0 0 0 - - -;
#X obj 333 152 t f f;
#X obj -22 355 #store;
#X obj 15 205 loadbang;
#X obj 420 250 expr ($f2+$f3)*sin($f1) - $f4*sin(($f2+$f3)*$f1/$f3)
;
#X obj 333 212 expr ($f2+$f3)*cos($f1) - $f4*cos(($f2+$f3)*$f1/$f3)
;
#X obj 333 65 + 1;
#X msg 333 41 1;
#X floatatom 375 65 5 0 0 0 - - -;
#X msg 375 16 0;
#X text 406 19 reset count;
#X text 129 231 reset image;
#X text 540 126 r = Rayon du deuxieme cercle -100 a 100;
#X obj 420 275 + 150;
#X obj 333 272 + 150;
#X floatatom 477 123 5 0 0 0 - - -;
#X floatatom 633 173 5 0 0 0 - - -;
#X floatatom 779 196 5 0 0 0 - - -;
#X obj -22 7 metro 1;
#X obj 33 -21 hsl 128 15 0 15 0 0 empty empty empty -2 -6 0 8 -260818
-1 -1 0 1;
#X text 440 78 R = Rayon du premier cercle 5 a 100;
#X obj -38 525 cnv 15 900 30 empty empty empty 20 12 0 14 -200249 -66577
0;
#X text -29 532 GridFlow 0.8.0;
#X text -29 532 GridFlow 0.8.0;
#X obj -35 -85 cnv 15 940 30 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 102 317 #color;
#X obj 102 268 loadbang;
#X msg 102 292 230 224 0;
#X msg 15 232 300 300 3 # 0;
#X text -22 -72 Copyright 2004 Alexandre Castonguay;
#X text -22 -85 epicycloid.pd;
#X text 80 204 start with a blank \, black image;
#X text 727 158 deuxieme cercle - 150 a 150;
#X text 727 143 p = distance du centre du;
#X connect 3 0 5 0;
#X connect 3 0 32 1;
#X connect 4 0 3 2;
#X connect 6 0 48 0;
#X connect 7 0 8 0;
#X connect 8 0 4 0;
#X connect 13 0 7 0;
#X connect 14 0 7 2;
#X connect 15 0 7 1;
#X connect 16 0 7 3;
#X connect 17 0 13 0;
#X connect 17 1 14 0;
#X connect 18 0 15 0;
#X connect 18 1 16 0;
#X connect 20 0 7 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 23 0 27 0;
#X connect 23 0 47 0;
#X connect 25 0 35 1;
#X connect 25 1 34 1;
#X connect 26 0 35 2;
#X connect 26 1 34 2;
#X connect 27 0 35 3;
#X connect 27 1 34 3;
#X connect 28 0 31 0;
#X connect 29 0 28 0;
#X connect 30 0 29 0;
#X connect 31 0 35 0;
#X connect 31 1 34 0;
#X connect 32 0 3 0;
#X connect 33 0 58 0;
#X connect 34 0 43 0;
#X connect 35 0 44 0;
#X connect 36 0 38 0;
#X connect 36 0 30 0;
#X connect 37 0 36 0;
#X connect 38 0 36 1;
#X connect 39 0 38 0;
#X connect 43 0 18 0;
#X connect 44 0 17 0;
#X connect 48 0 19 0;
#X connect 48 0 32 0;
#X connect 48 0 37 0;
#X connect 49 0 48 1;
#X connect 55 0 3 1;
#X connect 56 0 57 0;
#X connect 57 0 55 0;
#X connect 58 0 32 1;