q = 2 (slider from 1 to 10, step 1)
p = 3 (slider from 1 to 10, step 1)
n: p / q
Rollkurve = CurveCartesian(((1 + 1 / (n)) * cos(t)) + (1 / (n) * cos(((n + 1) * t))), ((1 + 1 / (n)) * sin(t)) + (1 / (n) * sin(((n + 1) * t))), t, 0, (((2 * p) * q) * π))
Ursprung: (0, 0)
Evolute = Rotate(Dilate[Rollkurve, n / (n + 2), Ursprung], (180 * ° / (n)), Ursprung)
Schnuere = Sequence(Segment[(((1 + 1 / (n)) * cos(t)) + (1 / (n) * cos(((n + 1) * t))), ((1 + 1 / (n)) * sin(t)) + (1 / (n) * sin(((n + 1) * t)))), Rotate[Dilate[(((1 + 1 / (n)) * cos(t - π / (n))) + (1 / (n) * cos(((n + 1) * (t - π / (n))))), ((1 + 1 / (n)) * sin(t - π / (n))) + (1 / (n) * sin(((n + 1) * (t - π / (n)))))), n / (n + 2), Ursprung], (180 * ° / (n)), Ursprung]], t, 0, ((2 * p) * (π * q)), π / 24 / (n))