(09-18-2024, 08:43 AM)NakedApe Wrote: 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.php?tid=2989&pid=28011#pid28011

'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

(09-19-2024, 04:59 PM)NakedApe Wrote: Runs like a charm on my M1 and M2 Mac, @Dav. You da man - with snazzy balls.