set display mode 1920,1080,32
sync on :sync rate 60
set text font "times new roman"
tt$="This is a test for a new scroller in 2022, yahooo ! Using plains "
create bitmap 1,2730,100,32
cls 0
set text size 96
ink rgb(2,2,2)
text 4,4,tt$
ink rgb(60,180,60)
text 0,0,tt$
get image 1,0,0,1930,57,1
cls
ink rgb(2,2,2)
text 4,4,tt$
ink rgb(60,200,60)
text 0,0,tt$
paste image 1,0,0
for f=0 to 420
make object box f+100,0.5,100,5
set object transparency f+100,5
next f
set current bitmap 0
set text size 16
aa=40
color backdrop 0
set ambient light 50
`````````````````````````````````
do
position camera 0,0,-100
point camera 0,0,0
dec gg:if gg<0 then gg=1:inc aa:inc aa:if aa>2729 then aa=0
a=aa
bb=100
b=bb
c#=0.0
tx=txt
set current bitmap 1
d=delay*0.5
for f=0 to 420
y#=50*sin(f+d):inc d
if tx=0 then hide object b
show object b
get image b,a,0,a+1,98,1
texture object b,b
position object b,txt-136+c#,-10+y#*0.5,20+(y#*0.2)
scale object b,100,y#+121,100
inc b
inc a:if a>2729 then a=0
inc c#,0.7
inc tx
next f
set current bitmap 0
inc delay
ink rgb(0,200,0)
text 20,20,str$(screen fps())+" "+str$(a)+" "+str$(txt)
ttt:
if inkey$()=" " then goto ttt
sync
loop