A bigger bouncing ball demo - collision with vector reflection

[sbblank]

Hey @sbblank. Yeh, things are a little different for us Mac users. I had the same issue with another Dav program here: 
https://qb64phoenix.com/forum/showthread...1#pid28011

Thanks... that's a heck of a nice Dav program also (after adjusting for the Mac)!

[GareBear]

Dav,

I like your Bigball Demo.

GareBear

[Dav]

Could some of you mac users please run this code and see if SQR causes the same error there?  I've been wondering about all my graphics programs that use SQR now.

Thanks!

- Dav

Code: (Select All)

'Imageball.bas

'Draws a ball with image& on it

'By Dav for QB64



Screen _NewImage(800, 600, 32)



'Make sample texture& image to use

texture& = _NewImage(250, 250, 32)

'point to the image

_Dest texture&

'draw something there

Cls , _RGB(33, 66, 99)

For x = 0 To _Width Step 25

    For y = 0 To _Height Step 25

        Line (x, y)-Step(50, 50), _RGBA(Rnd * 255, Rnd * 255, Rnd * 255, Rnd * 255), BF

        Circle (Rnd * _Width, Rnd * _Height), 5 + Rnd * 20, _RGB(Rnd * 255, Rnd * 255, 255)

        Line (x, y)-Step(50, 50), _RGB(0, 0, 0, 0), B

    Next

Next



'go back to main screen

_Dest 0





Do

    ImageBall Rnd * _Width, Rnd * _Height, 75 + Rnd * 75, texture&

    _Limit 60

Loop Until _KeyHit



End



Sub ImageBall (x, y, size, image&)

    'puts image& on a ball.



    'To make it look better, make a temp image to match the size of the ball

    temp& = _NewImage(size * 2, size * 2, 32)

    'put the image& into temp&, stretch to fill

    _PutImage (0, 0)-(_Width(temp&), _Height(temp&)), image&, temp&

    orig& = _Source 'save current _source

    _Source temp& 'switch to temp&

    For y2 = y - size To y + size

        For x2 = x - size To x + size

            If Sqr((x2 - x) ^ 2 + (y2 - y) ^ 2) <= size Then

                clr = (size - (Sqr((x2 - x) * (x2 - x) + (y2 - y) * (y2 - y)))) / size

                c& = Point(x2 - x + size, y2 - y + size): r = _Red32(c&): g = _Green32(c&): b = _Blue32(c&)

                PSet (x2, y2), _RGB(clr * r, clr * g, clr * b)

            End If

        Next

    Next

    _FreeImage temp&

    _Source orig&

End Sub

[NakedApe]

Runs like a charm on my M1 and M2 Mac, @Dav. You da man - with snazzy balls.  

[sbblank]

Runs like a charm on my M1 and M2 Mac, @Dav. You da man - with snazzy balls.  

Same here on my M1 Max... nice!