from png tile, create symmetrical screen image

[bplus]

Dammit menn, this is a programmers forum, not a quilting circle!!!!

Don't you know QB stands for Quilting Bee!

Code: (Select All)

_Title "PutImage Demo 7" ' b+ 2025-08-21
' modify demo 5 by tiling screen with an image and 3 rotations

Screen _NewImage(800, 600, 32) ' screen width, height, 32 is _RGBA colors
_Delay .2
Logo& = _LoadImage("qb64.png")

scale = 1 ' we are going to magnify the image by .755 and preserve the ratio of width to height
scaleW = scale * _Width(Logo&) '
scaleH = scale * _Height(Logo&)

' make an image Tile by
' put image, the actual size, into the middle of our screen

' then flip image mirror on x and y axis
_PutImage (_Width / 2, _Height / 2 - scaleH)-Step(scaleW, scaleH), Logo&, 0
_PutImage (_Width / 2, _Height / 2 - scaleH)-Step(-scaleW, scaleH), Logo&, 0
_PutImage (_Width / 2, _Height / 2 + scaleH)-Step(scaleW, -scaleH), Logo&, 0
_PutImage (_Width / 2, _Height / 2 + scaleH)-Step(-scaleW, -scaleH), Logo&, 0

myTile& = _NewImage(2 * scaleW, 2 * scaleH)
_PutImage (0, 0), 0, myTile&, (_Width / 2 - scaleW, _Height / 2 - scaleH)-Step(2 * scaleW, 2 * scaleH)
Cls
_PutImage (0, 0), myTile&, 0 ' check tile  'OK
For y = 0 To 600 Step 100
    For x = 0 To 800 Step 100
        _PutImage (x, y)-Step(100, 100), myTile&, 0
    Next
Next
Sleep

   

qb64.png