visualizza cardioide

A = Intersect(xAxis, yAxis)
B = (1, 0)
c = Circle(A, B)
α = 4.014257279586958 rad (slider from 0 to 6.283185307179586, step 5*°)
C = Rotate(B, α, A)
β = Angle(B, A, C)
D = Rotate(B, (2 * α), A)
γ = Angle(B, A, D)
b = Segment(A, C)
d = Segment(A, D)
e = CurveCartesian((1 / 3 * ((2 * cos(t)) + cos((2 * t)))), (1 / 3 * ((2 * sin(t)) + sin((2 * t)))), t, 0, 6.283185307179586)
f = false
a = Segment(D, C)