Private Sub Draw_Hearts (Progress As Float)
Dim MaxR As Float = (cvs.TargetRect.Width / 2 - 30dip) / 2
Dim r As Float = 15dip + MaxR + MaxR * Sin(Progress * 2 * cPI)
For i = 0 To 2
Dim alpha As Int = i * 120 + Progress * 360
Dim fnt As B4XFont = xui.CreateFont(Typeface.FONTAWESOME, 18)
cvs.DrawText(Chr(0xF004), cvs.TargetRect.CenterX + r * SinD(alpha), cvs.TargetRect.CenterY + r * CosD(alpha), fnt, clr, "CENTER")
Next
End Sub