Data albania
,britain
,canada
,eu
,us
,japan
,israel
,china
td = 1 ' throb direction
hl = 0 ' highlight
r
= _D2R(i
* 45 + aa
) ' angle in radians tt = th ' temporary throb = current
tt = 0 ' temporary throb off
hl = 1 ' highlight on
_PutImage (x
- 30 + tt
, y
- 30 + tt
)-(x
+ 30 - tt
, y
+ 30 - tt
), pix
(i
), 0 _Display ' optional, eliminates flickering aa
= (aa
- (hl
= 0)) Mod 360 ' angle advance th = th + td ' throb
If Abs(th
) = 3 Then td
= -td
' throb direction