Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Trasparent color not being set correctly here...
#8
(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 Blush )

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!  Smile
Of all the places on Earth, and all the planets in the Universe, I'd rather live here (Perth, W.A.) Big Grin
Please visit my Website at: http://oldendayskids.blogspot.com/
Reply


Messages In This Thread
RE: Trasparent color not being set correctly here... - by PhilOfPerth - 11-10-2024, 12:35 AM



Users browsing this thread: 1 Guest(s)