Small graphics programming challenge

[Richard Frost]

' Small programming challenge contained at:
'

' It's a boring hour and a half of some guy creating CSS code for a simple animation to:
' 1) Have 8 icons/pictures rotating in a circle, while pulsing
' 2) when one selected, stop all rotation, the pulsing of the selected item, and
'    identify the selected item
' Use any 8 pix you've got handy, or the flags I've attached here.

Code: QB64: [Select]

1. Data albania,britain,canada,eu,us,japan,israel,china
2. Screen _NewImage(800, 600, 32)
3. For i = 1 To 8
4.     Read name$(i)
5.     pix(i) = _LoadImage("f_" + name$(i) + ".png")
6. Next i
7. td = 1 '                                         throb direction
8. Do: _Limit 10
9.     While _MouseInput
10.         mx = _MouseX
11.         my = _MouseY
12.         mb = _MouseButton(1)
13.     Wend
14.     Cls
15.     hl = 0 '                                     highlight
16.     For i = 1 To 8
17.         r = _D2R(i * 45 + aa) '                  angle in radians
18.         x = 400 + 200 * Cos(r)
19.         y = 300 + 200 * Sin(r)
20.         tt = th '                                temporary throb = current
21.         If mb And (Abs(x - mx) < 30) And (Abs(y - my) < 30) Then ' selected
22.             tt = 0 '                             temporary throb off
23.             hl = 1 '                             highlight on
24.             _PrintString (x - 26, y - 50), name$(i)
25.         End If
26.         _PutImage (x - 30 + tt, y - 30 + tt)-(x + 30 - tt, y + 30 - tt), pix(i), 0
27.     Next i
28.     _Display '                                   optional, eliminates flickering
29.     aa = (aa - (hl = 0)) Mod 360 '               angle advance
30.     th = th + td '                               throb
31.     If Abs(th) = 3 Then td = -td '               throb direction
32. Loop Until Len(InKey$)
33.  

[SMcNeill]

He stopped halfway...  I've got this on here somewhere, except my version lets you click on the circles and use them as a pop-up menu.  :P

[bplus]

Hi @Richard Frost

There is naming problem with the Flag files see attached snap
  [ You are not allowed to view this attachment ]  

[Richard Frost]

Attachment fixed.  Sorry for posting the message twice.  Mornings......

[bplus]

Attachment fixed.  Sorry for posting the message twice.  Mornings......

Yeah mornings, flag file names are the same.