t = 0.11 (slider from -0.5 to 0.5, step 0.01)
s: t - sin(((t * 2) * π)) / 2 / π
r: 0.05
nEck1 = Polygon((sin(((2 * t) * π / 6)), cos(((2 * t) * π / 6))), (sin(((2 * t) * π / 6) - (2 * π / 6)), cos(((2 * t) * π / 6) - (2 * π / 6))), 6)
Ursprung: (0, 0)
U2: (((2 * 6) * sin(π / 6)), 0)
u = Vector(Ursprung, U2)
nEck1' = Translate(nEck1, u)
Ketteoben = Sequence(Circle[(sin(((2 * t) * π / 6)) + ((2 * k) * sin(π / 6)), cos(((2 * t) * π / 6))), r], k, 0, 6, 1)
Ketteunten = Sequence(Circle[(sin(((2 * t) * π / 6) + π) + ((2 * k) * sin(π / 6)), cos(((2 * t) * π / 6) + π)), r], k, 0, 6, 1)
Zahnrad2 = Sequence(Circle[(sin(((k * 2) * π / 6) + ((t * 2) * π / 6)) + ((2 * 6) * sin(π / 6)), cos(((k * 2) * π / 6) + ((t * 2) * π / 6))), r], k, 1, 6 / 2, 1)
nEck1a = Sequence(Segment[((-sin(((2 * π / 6) * (k - 1)) - t)), cos(((2 * π / 6) * (k - 1)) - t)), ((-sin(((2 * π / 6) * k) - t)), cos(((2 * π / 6) * k) - t))], k, 1, 6 / 2)
nEck2a = Sequence(Segment[((-sin(((2 * π / 6) * (k - 1)) - t)) + 6, cos(((2 * π / 6) * (k - 1)) - t)), ((-sin(((2 * π / 6) * k) - t)) + 6, cos(((2 * π / 6) * k) - t))], k, 6 / 2 + 1, 6)
Bandunten = Segment((sin(((2 * t) * π / 6) + π), cos(((2 * t) * π / 6) + π)), (sin(((2 * t) * π / 6) + π) + ((2 * 6) * sin(π / 6)), cos(((2 * t) * π / 6) + π)))
Bandoben = Segment((sin(((2 * t) * π / 6)), cos(((2 * t) * π / 6))), (sin(((2 * t) * π / 6)) + ((2 * 6) * sin(π / 6)), cos(((2 * t) * π / 6))))
Zahnrad1 = Sequence(Circle[(sin(((k * 2) * π / 6) + ((t * 2) * π / 6)), cos(((k * 2) * π / 6) + ((t * 2) * π / 6))), r], k, 6 / 2, 6, 1)