Divide a Heart (String Art)

A B Cron
Many students want to divide a circle for string art. For a Heart:
Two sliders: n is an interger slider 1...60 r is a real value for a radius of a circle 0...4 by 0.1 curve01=Sequence[Curve[size r(t) cos(t),size r(t) sin(t), t, i, i + 2π / n], i, 0, 2π - π / n, π / n] points = Sequence[(size r(i) cos(i),size r(i) sin(i)), i, 0, 2 π, 2 π /(n-1) ]