11-10-2024, 12:35 AM
(11-09-2024, 06:11 PM)Dav Wrote: Ah.. Just got it working. I needed to put _ClearColor AFTER printing the text. Now it's scrolling.
- Dav (still holding the idiot of the day award )
Code: (Select All)Screen _NewImage(800, 800, 32)
credits& = _NewImage(800, 800, 32)
_Dest credits&
'just some sample text for now
For t = 1 To 1000
Print Rnd;
Next
_ClearColor _RGB(0, 0, 0), credits&
_Dest 0
For x = 1 To _Width
For y = 1 To _Height
PSet (x, y), _RGB(Rnd * 100, Rnd * 100, Rnd * 100)
Next
Next
back& = _CopyImage(_Display)
y = _Height
Do
_PutImage (0, 0), back&
_PutImage (0, y), credits&
y = y - 10
_Display
_Limit 30
Loop Until y < -_Height
Hah! I challenge that award!
I can't even make sense out of a lot of that code, but it all works!
I wish I had half of your skills!
Of all the places on Earth, and all the planets in the Universe, I'd rather live here (Perth, W.A.)
Please visit my Website at: http://oldendayskids.blogspot.com/
Please visit my Website at: http://oldendayskids.blogspot.com/