Simplistic Scrolling

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|538\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Graphical Effects

Jayenkai	Created : 01 October 2007 Edited : 01 October 2007 System : Windows Language : Blitz Simplistic Scrolling Scroll to the right place!
Global ScrW=800 Global ScrH=600 Graphics ScrW,ScrH,32,2 SetBuffer BackBuffer() Type dot Field ang#,dist# End Type a.dot=New Dot a\ang=0:a\dist=0 For n=1 To 10 a.dot=New dot a\ang=Rand(0,360) a\dist=Rand(25,600) Next ScrollX#=0 ScrollY#=0 AimX#=0 AimY#=0 Aim.Dot=First Dot SpeedofScroll#=8 ;Try playing with this.. Lower = Faster, Higher = Slower Repeat Cls ;Here's the magic.. ScrollX=ScrollX-((ScrollX-AimX)/SpeedofScroll) ScrollY=ScrollY-((ScrollY-AimY)/SpeedofScroll) Color 255,255,255 For a.dot=Each dot If KeyDown(203) Then a\ang=a\ang-(2.5-(a\dist/240)) If KeyDown(205) Then a\ang=a\ang+(2.5-(a\dist/240)) x=(400+Sin(a\ang)a\dist) ;Find real location of object y=(300-Cos(a\ang)a\dist) ;And again.. If Aim.dot = a.dot ;If this is the one we're aiming at, center it.. aimx=x - (ScrW/2) ; Center the X aimy=y - (ScrH/2) ; Center the Y Color 255,0,0 EndIf x=x-ScrollX ;Add on Scroll amount for drawing y=y-ScrollY ;And again.. Rect x-2,y-2,4,4,1 Color 0,180,255 Next ; This is our switch. If spacebar then flip to next dot, unless we're on the last dot, in which case flip to the first dot. nextone=1 If aim.dot=Last dot Then nextone=0 If KeyHit(57) If nextone=1 Then aim.dot=After aim.dot If nextone=0 Then aim.dot=First dot EndIf Flip Until KeyDown(1) --v Basically. Set the Aim position to where you want to scroll to. Let the simple 2 line maths move Scroll position towards Aim. Use Scroll when offsetting your graphics.

Comments

Comments