12-02-2024, 12:08 AM
(12-01-2024, 10:53 PM)bplus Wrote: Background image BIGGER than the display screen:@Bplus
Code: (Select All)_Title "Image bigger than screen" ' b+ 2024-12-30
Randomize Timer
Screen _NewImage(800, 600, 32)
_ScreenMove 100, 20
Dim bg&
bgw = 2400
bgh = 600
bg& = _NewImage(bgw, bgh, 32)
_Dest bg&
For i = 1 To 100
Line (Rnd * bgw, Rnd * bgh)-Step(Rnd * 100 + 50, Rnd * 75 + 25), _RGB32(Rnd * 255, Rnd * 255, Rnd * 255), BF
Next
_Dest 0
d = 1
While _KeyDown(27) = 0
Cls
k$ = UCase$(InKey$)
If k$ = "A" Then d = -1
If k$ = "D" Then d = 1
If d Then
If le + 800 > bgw Then
d = -d
te = bgw - le
_PutImage (0, 0)-(te, bgh), bg&, 0, (bgw - te, 0)-(bgw, bgh)
_PutImage (te, 0)-(800, bgh), bg&, 0, (0, 0)-(800 - te, bgh)
Beep
Else
_PutImage (0, 0)-(800, bgh), bg&, 0, (le, 0)-(le + 800, bgh)
End If
End If
le = le + d
If le < 0 Then le = 0: d = -d: Beep
_Display
_Limit 120
Wend
This is just left and right, A and D, maybe @TempodiBasic can add up and down?
Hi man
so you're using filled rectangles into your BIGGER image!
And what? Do you like put the scrolling working in automation, it does not matter about user input!
These concepts are over mine knowledge so I cannot UP/DOWN scrolling.
Buuut if you add this you can add to this scrolling the stop & go feature like the ecological car.
Code: (Select All)
S = 1
while _keydown(27) = 0
...
...
IF k$ = "S" THEN S = S * -1
...
....
...
IF S>0 THEN le = le +d
...
...
wend
![Rolleyes Rolleyes](https://qb64phoenix.com/forum/images/smilies/rolleyes.png)