Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
a little tutorial STEP by STEP on scrolling in 2D graphic mode
#6
(12-01-2024, 10:53 PM)bplus Wrote: Background image BIGGER than the display screen:
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?
@Bplus
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
Reply


Messages In This Thread
RE: a little tutorial STEP by STEP on scrolling in 2D graphic mode - by TempodiBasic - 12-02-2024, 12:08 AM



Users browsing this thread: 13 Guest(s)