My Best Analog Chiming Clock

[SierraKen]

Really cool StXaXtic! especially like the fading circular loop.

[_vince]

@_vince maybe we could work something up from this?

Code: QB64: [Select]

1. _TITLE "Beating Cardiod" 'B+ 2019-02-16
2. '2019-02-28 random magnify and beat, redder heart
3.  
4.  
5. CONST xmax = 800
6. CONST ymax = 600
7. SCREEN _NEWIMAGE(xmax, ymax, 32)
8. _SCREENMOVE (1280 - xmax) / 2 + 30, (760 - ymax) / 2
9.  
10. 'center of screen
11. CX = xmax / 2
12. CY = ymax / 2 - 50
13.  
14. WHILE _KEYDOWN(27) = 0
15.     CLS
16.     loopCount = (loopCount + 1) MOD 2
17.     IF loopCount THEN magnify = 10 ELSE magnify = RND * 10 + 12
18.     FOR a = -_PI TO _PI STEP _PI(1 / 360)
19.         x = CX + magnify * xCard(a)
20.         y = CY - magnify * yCard(a)
21.         IF a <> -_PI THEN
22.             LINE (x, y)-(lastx, lasty), _RGB(140, 0, 0)
23.         END IF
24.         lastx = x: lasty = y
25.     NEXT
26.     PAINT (CX, CY), _RGB(180, 0, 0), _RGB(140, 0, 0)
27.     _DISPLAY
28.     IF loopCount THEN _DELAY 40 / 60 ELSE _DELAY (30 + RND * 15) / 65
29. WEND
30.  
31. 'Reference and thanks to:
32. ' http://mathworld.wolfram.com/HeartCurve.html
33. ' find the 6th heart curve equations #7, 8
34. FUNCTION xCard (t)
35.     xCard = 16 * SIN(t) ^ 3
36. END FUNCTION
37.  
38. FUNCTION yCard (t)
39.     yCard = 13 * COS(t) - 5 * COS(2 * t) - 2 * COS(3 * t) - COS(4 * t)
40. END FUNCTION
41.  

I'm not so sure it would work, bplus, I'd prefer to remain as just friends

[bplus]

LOL!

[STxAxTIC]

I could never fix your heart, but I can improve your cardioid:

Code: QB64: [Select]

1. _TITLE "Beating Cardiod" 'B+ 2019-02-16
2. '2019-02-28 random magnify and beat, redder heart
3. '2020-11-21 better heartbeat
4.  
5. CONST xmax = 800
6. CONST ymax = 600
7. SCREEN _NEWIMAGE(xmax, ymax, 32)
8. _SCREENMOVE (1280 - xmax) / 2 + 30, (760 - ymax) / 2
9.  
10. 'center of screen
11. CX = xmax / 2
12. CY = ymax / 2 - 50
13.  
14. WHILE _KEYDOWN(27) = 0
15.     CLS
16.     magnify = 10 + COS(TIMER * 2 * 3.14159)
17.  
18.     FOR a = -_PI TO _PI STEP _PI(1 / 360)
19.         x = CX + magnify * xCard(a)
20.         y = CY - magnify * yCard(a)
21.         IF a <> -_PI THEN
22.             LINE (x, y)-(lastx, lasty), _RGB(140, 0, 0)
23.         END IF
24.         lastx = x: lasty = y
25.     NEXT
26.     PAINT (CX, CY), _RGB(180, 0, 0), _RGB(140, 0, 0)
27.     _DISPLAY
28.  
29. WEND
30.  
31. 'Reference and thanks to:
32. ' http://mathworld.wolfram.com/HeartCurve.html
33. ' find the 6th heart curve equations #7, 8
34. FUNCTION xCard (t)
35.     xCard = 16 * SIN(t) ^ 3
36. END FUNCTION
37.  
38. FUNCTION yCard (t)
39.     yCard = 13 * COS(t) - 5 * COS(2 * t) - 2 * COS(3 * t) - COS(4 * t)
40. END FUNCTION
41.  

[bplus]

https://blog.cardiogr.am/what-do-normal-and-abnormal-heart-rhythms-look-like-on-apple-watch-7b33b4a8ecfa

Normal Heart Rhythm is Irregular
Sometimes people say “irregular pulse” as a shorthand for an abnormal heart rhythm. That’s not quite right, because a normal pulse is irregular. In fact, it’s regularly irregular: your heart rate varies periodically due to your breathing rate and autonomic nervous system. The frequency and depth of variation reflects nearly everything that happens in your life, including your level of physical activity, emotional state, and whether you’re sleeping or waking.

[STxAxTIC]

Consider the bar raised, but you're holding the apple. Model something a little better using the same code ^