02-15-2024, 05:20 PM
It'll map to it, it just totally ignores the updated window coordinates. (unless I'm doing something really wrong here)
Code: (Select All)
Dim tex As Long
Dim ms As Long
ms = _NewImage(500, 400, 32)
tex = _NewImage(20, 20, 32)
Randomize Timer
Screen ms
_Dest tex
For y = 0 To 19: For x = 0 To 19
PSet (x, y), _RGB32(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))
Next: Next
_Dest ms
Window Screen(-100, -100)-(100, 100)
For py = 0 To 400 Step 20: For px = 0 To 300 Step 20:
_MapTriangle (0, 0)-(19, 0)-(19, 19), tex To(px, py)-(px + 19, py)-(px + 19, py + 19), ms
_MapTriangle (0, 0)-(0, 19)-(19, 19), tex To(px, py)-(px, py + 19)-(px + 19, py + 19), ms
Next: Next
Line (-40, -40)-(40, 40), _RGB32(100, 100, 0), BF 'making sure the window instruxctions worked
PSet (0, 0), _RGB32(200, 200, 200)