Scrolling Grid background v4

Post Reply
DrChip
Posts: 167
Joined: Wed Oct 22, 2014 3:26 pm
My devices: iPhone 4 to 6+,iPad mini to iPad air 2

Scrolling Grid background v4

Post by DrChip »

REM Background - Scrolling grid v4
REM iPhone 6 Plus / iOS 8.3 b1
REM you can add the touch command or
REM accely to move forward and
REM backward.
REM or you can use it as a background!
REM v2 - scrolls up and down automatically
REM v3 - adjust size 60,120,180,240...
REM you can make it go left and right too!
REM v4 - adjust the scroll length
REM enjoy!

graphics
sw=Screen_Width()
sh=Screen_Height()
DIM trix(4),triy(4)

speed = 10 'pos forward 10, neg backward -10
deltaspeed = 1 ' rate of inc...
stepp = 160 ' block size
ste = stepp/2
scrollmin=80
scrollmax=80

loop:
speed=speed+deltaspeed
IF speed > scrollmin OR speed < -scrollmax THEN
deltaspeed = -deltaspeed
END IF

'Draw Background
refresh off

'clear screen
graphics clear 0,0,0

z=z+speed
IF z>=0 THEN
z=z-speed
END IF

FOR h=z TO sh STEP stepp
FOR w=0 TO sw STEP stepp
fill COLOR 15/255,15/255,60+(h/3)/255
fill RECT w,h to w+ste,h+ste
fill RECT w+ste,h+ste to w+stepp,h+stepp
NEXT w
NEXT h
refresh on
GOTO loop
Attachments
image.jpg
image.jpg (113.5 KiB) Viewed 1857 times
image.jpg
image.jpg (115.71 KiB) Viewed 1857 times
image.jpg
image.jpg (117.01 KiB) Viewed 1857 times
image.jpg
image.jpg (109.75 KiB) Viewed 1857 times

Post Reply