Incenter Spirographs

Change the speeds the points will travel around the circle

set equilateral

Speed A

Speed B

Speed C

Go/Stop

Clear Traces

set timer angle to 0

timer angle speed

A = (2.811395107218416, 3.2363274486482285)
c = Circle(A, 1)
B = Point(c)
d = Circle(B, A)
C = Intersect(c, d, 1)
e = Circle(C, A)
D = Intersect(c, e, 1)
f = Circle(D, A)
E = Intersect(c, f, 1)
g = Circle(E, A)
F = Intersect(c, g, 1)
h = Circle(F, A)
G = Intersect(c, d, 2)
k = Circle(G, A)
list1: {B, C, D, E, F, G}
H = Point(c)
I = Point(c)
J = Point(c)
poly1, j, h_1, i = Polygon(H, I, J)
l, m = AngularBisector(i, j)
n, p = AngularBisector(i, h_1)
K = Intersect(m, p)
q = OrthogonalLine(K, i)
L = Intersect(q, i)
r = Circle(K, L)
s_A = 0 (slider from 0 to 20, step 1)
s_B = 1 (slider from 0 to 20, step 1)
s_C = 0 (slider from 0 to 20, step 1)
InputBox1 = Textfield(s_A)
InputBox2 = Textfield(s_B)
InputBox3 = Textfield(s_C)
anim = true
notAnim: ¬anim
T = Point(c)
a = Angle(C, A, T)
s_t: 2
InputBox4 = Textfield(s_t)