09-01-2022, 04:06 PM
Code: (Select All)
_Title "Heart Beat" 'b+ 2022-09-01 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 4) As Long
For stepper = .0005 To .0005004 Step .0000001
k = k + 1
Cls
For I = 0 To 1.567 Step stepper
J = 0 - J
Circle (Abs(P * (J * I + 3)), P * (2 + (I ^ .01 * (Abs(Cos(I)) ^ .5 * Cos(M * I)) - I ^ .3))), 1
Next
h(k) = _NewImage(600, 350, 32)
_PutImage , 0, h(k)
Next
k = 0: dk = 1
While 1
k = k + dk
If k > 4 Then k = 1
_PutImage , h(k), 0
toggle = 1 - toggle
If toggle Then _Delay .8 Else _Delay .08
Wendhttps://www.youtube.com/watch?v=xos2MnVxe-c
b = b + ...