t = 2.251474735072685 rad (slider from 0 to 6.283185307179586, step 1°)
Einheitskreis = Circle((0, 0), 1)
Kardioide = CurveCartesian((2 * sin(t)) + sin((2 * t)), (-((2 * cos(t)) + cos((2 * t)))), t, 0, (2 * π))
Circle = Circle((sin((-t)), cos((-t))), (0, 1))
Rollkreis = Circle(((2 * sin((-t))), (2 * cos((-t)))), 1)
Rollradius = Segment(((2 * sin((-t))), (2 * cos((-t)))), ((2 * sin((-t))) + sin((-2 * t) + 180°), (2 * cos((-t))) + cos((-2 * t) + 180°)))
A = Intersect(Rollkreis, Rollradius, 1)
f = Tangent(A, Kardioide)
g = OrthogonalLine(A, f)
Kardioide2 = CurveCartesian((1 / 3 * ((2 * sin(t)) + sin((2 * t)))), (1 / 3 * ((2 * cos(t)) + cos((2 * t)))), t, 0, (2 * π))
Radiuss = Segment((sin((-t)), cos((-t))), (0, 1))
B = Intersect(Einheitskreis, Radiuss, 1)