qbjs evolving program #1

[bplus]

@mnrvovrfc I like an evil clown face to shoot at! LOL

So maybe make it more clownish, also the nose needs to be drawn last in face sub PLUS drawBall instead of flat filled circles.
A little mod of this:

Code: (Select All)

Sub drawBall (x, y, r, c As _Unsigned Long)

    Dim rred As Long, grn As Long, blu As Long, rr As Long, f

    rred = _Red32(c): grn = _Green32(c): blu = _Blue32(c)

    For rr = r To 0 Step -1

        f = 1 - Sin(rr / r) ' thank OldMoses for Sin ;-))

        FCirc x, y, rr, _RGB32(rred * f, grn * f, blu * f)

    Next

End Sub

https://www.chelsidermy.com/blog/Scary-p...-of-clowns
   

Like I said I will draw in a spaceship that will be more challenging to shoot at. In fact I have an idea for reverse space Invaders ie ships double in number when hit. I have no idea where that might go... "to go where no man has gone before."

Thankyou @dbox for finding and reporting the problem promptly, I haven't tested yet but I bet you added an explosion sound which goes good with photon firing. Update: Perfect!

Oh hey, maybe the DrawBall code could be improved with shaddowing! Bonus points for the lighter part too!