Beating heart

[bplus]

This animation is modeled on the sound, unfortunately they go in and out of sequence. The while that they are in sequence is kinda nice.

[STxAxTIC]

Fine, I'll replace this model of the human heart with whatever nonsense I had believed previously. Bplus md.

The real question is, as I loop this program - when does Dark Side of the Moon start up?

[bplus]

when does Dark Side of the Moon start up?

LOL, That would be something to animate!

[TempodiBasic]

Hi Bplus
watching at that heart beating you let me remember this https://www.youtube.com/watch?v=_ut11U4JupI. However IMHO the routine of reloading the loop is the bad kid that let loose the synchronization between images and sound.
Cool!
I's thinking about if was there a math formula for Flutter?

[TempodiBasic]

@bplus
to be more specific I have thought about the regular atrial flutter and its fine wood saw sound...
here references: https://en.wikipedia.org/wiki/Atrial_flutter
sorry i have found no soundfile... the online bots are too good for me I find tachicardia https://it.123rf.com/audio_157818545_sound-effects-of-a-rapid-palpitating-heart-easily-loopable.html

[bplus]

OK @TempodiBasic

You can put this into same folder as zip that has the .wav sound file:

Code: QB64: [Select]

1. _TITLE "Beating heart w sound #2" 'B+ 2019-02-16
2. '2019-02-16 Beating Cardiod
3. '2019-02-28 random magnify and beat, redder heart
4. '2020-11-21 Beating heart w sound
5.  
6. ' Thanks to SoundBible for .wav file
7. ' http://soundbible.com/2162-Human-Heartbeat.html
8. '    About: Human heart beating loud and strong. could also be used to show someone is worried, afraid, or injured.
9. '    Title: Human Heartbeat
10. '    Uploaded: 4.24.17
11. '    License: Attribution 3.0
12. '    Recorded by Daniel Simion
13. '    File Size: 2.52 MB
14. '    Downloads: 174359
15.  
16. '2020-11-23 Inspired by heart animation from TempodiBasic link to Culture Club: Love is Love
17. '  [youtube]https://www.youtube.com/watch?v=_ut11U4JupI[/youtube]    maybe play this while watching heartbeat?
18.  
19. RANDOMIZE TIMER
20. CONST xmax = 800, ymax = 600, CX = xmax / 2, CY = ymax / 2 - 50 'screen stuff
21. SCREEN _NEWIMAGE(xmax, ymax, 32)
22. _DELAY .25
23. _SCREENMOVE _MIDDLE
24.  
25. REDIM SHARED reds(0 TO 100) AS _UNSIGNED LONG
26. DIM border AS _UNSIGNED LONG ' for PAINT with loads diffent sets of red based colors
27. border = _RGB32(100, 0, 55)
28. prepPalette
29. hb& = _SNDOPEN("heartbeat.wav") 'get the beat going
30. _SNDLOOP hb&
31. ri = 1 ' reds index
32. WHILE _KEYDOWN(27) = 0
33.     CLS
34.     IF LEN(INKEY$) THEN prepPalette: ri = 1
35.     loopCount = loopCount + 1
36.     SELECT CASE loopCount MOD 8
37.         CASE 0: magnify = 2.5
38.         CASE 1: magnify = 2.75
39.             ri = ri - 1
40.         CASE 2: magnify = 2.5
41.         CASE 3: magnify = 3
42.             ri = ri - 1
43.         CASE 4: magnify = 2.5
44.         CASE 5: magnify = 2.5
45.         CASE 6: magnify = 2.5
46.         CASE 7: magnify = 2.5
47.     END SELECT
48.     FOR m = 8 TO 1 STEP -1
49.         FOR a = -_PI TO _PI STEP _PI(1 / 360)
50.             x = CX + m * magnify * xCard(a)
51.             y = CY - m * magnify * yCard(a)
52.             IF a <> -_PI THEN
53.                 LINE (x, y)-(lastx, lasty), border
54.             END IF
55.             lastx = x: lasty = y
56.         NEXT
57.         PAINT (CX + (m - .5) * magnify * xCard(_PI(.7)), CY - (m - .5) * magnify * yCard(_PI(.7))), reds(ri + (17 - m)), border
58.     NEXT
59.     ri = ri + 1
60.     IF ri > 50 THEN ri = 1
61.     _DISPLAY
62.     _LIMIT 11.1
63. WEND
64.  
65. SUB prepPalette
66.     FOR i = 0 TO 100
67.         r = RND * 225 + 30
68.         reds(i) = _RGB32(r, RND * .25 * r, RND * .25 * r)
69.     NEXT
70. END SUB
71.  
72. 'Reference and thanks to:
73. ' http://mathworld.wolfram.com/HeartCurve.html
74. ' find the 6th heart curve equations #7, 8
75. FUNCTION xCard (t)
76.     xCard = 16 * SIN(t) ^ 3
77. END FUNCTION
78.  
79. FUNCTION yCard (t)
80.     yCard = 13 * COS(t) - 5 * COS(2 * t) - 2 * COS(3 * t) - COS(4 * t)
81. END FUNCTION
82.  
83.  

EDIT: added prepPalette SUB so you can press any key and change up the palette of reds.

[TempodiBasic]

@bplus
it's loveable
Thanks

[bplus]

I am sure there is easier / better way to do this besides redrawing everything all the time.

Oh I know! By February 14, 2021 Follow Your Heart, if the virus doesn't get me first.