smooth scroll

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

wedoe

Same scroller, cleaned up and half speed:

Open in online IDE

Graphics 640,480,16,2
Dim scroll$(100):Color 255,255,255
Type scr 
Field x#,y#,txt$ 
End Type
Global a
.scrollread:a=a+1:
Read scroll$(a)
If Not scroll$(a)="EOF" Goto scrollread
a=a-1
SetBuffer BackBuffer()
Repeat
For b=1 To a
ln.scr=New scr:ln\x=200
ln\y=490:ln\txt$=scroll$(b)
 For c=1 To 30
  For ln.scr=Each scr
   ln\y=ln\y-.5
	Text ln\x,ln\y,ln\txt$
	 If ln\y<-10 Then Delete ln.scr
  Next
   Flip
   Cls
 Next
Next
Until KeyDown(1)

Data "Hello world":Data"Line two":Data"Line three":Data "EOF":End