Heart Beat

[bplus]

Ah! Here is the animation we were trying to duplicate at JB:

Code: (Select All)

_Title "Heart Code Animation by tsh73" 'b+ 2022-09-03 playing with Heart graphic code at JB
'    https://justbasiccom.proboards.com/thread/883/heart-shapes
Screen _NewImage(600, 350, 32)
Color &HFFFF0000, &HFFEEEEEE
M = 313
P = 100
J = 1
Dim h(1 To 10) As Long
For k = 0 To 9
    Cls
    J = 1
    For I = 0 To 1.567 Step 0.0005 '.5/(P*5+k/60)
        x = Int(Abs(P * (J * I + 3)))
        J = 0 - J
        Circle (x, Int(P * (2 + (I ^ .01 * (Abs(Cos(I)) ^ .5 * Cos(M * I + k / 30)) - I ^ .3)))), 1, &HFF990000
    Next
    h(k + 1) = _NewImage(600, 350, 32)
    _PutImage , 0, h(k + 1)
Next
k = 0: dk = 1
While 1
    k = (k + 1) Mod 10 + 1
    _PutImage , h(k), 0
    _Limit 10
Wend

Much smoother!