Sine Lines

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

Phoenix	Created : 12 December 2006 Edited : 15 January 2009 Language : Blitz Sine Lines An old effect I found on my computer
I was digging around a little on my harddrive and found a pretty cool effect. Graphics 800,600,16,2 SetBuffer BackBuffer() While Not KeyHit(1) angle = angle + 1 Color 50Sin(angle)+200,50Sin(angle)+100,10Sin(angle)+20 For i = 0 To 120 Line 200-Sin(i+(Cos(angle)200))+400, 200-Sin(i+(Sin(angle)200))+300 ,200Sin(i+(Cos(angle)200))+400, 200Cos(i+(Sin(angle)*200))+300 Next Flip Cls Wend --v

Comments
Wednesday, 13 December 2006, 20:16
garand	Just goes to show how easy it is for Microsoft to make those ugly screensavers that they use. It s a cool effect dont get me wrong but it gets annoying.
Thursday, 14 December 2006, 06:25
HoboBen	Fancy!
Monday, 01 October 2007, 05:23
spinal	with slight modding... Graphics 800,600,0,1 ;SetBuffer BackBuffer() r=255 ox1=200-Sin(i+(Cos(angle)400))+400 oy1=20-Sin(i+(Sin(angle)400))+580 ox2=200Sin(i+(Cos(angle)200))+400 oy2=20Cos(i+(Sin(angle)200))+580 For t=0 To 45 Print Next While Not KeyHit(1) angle = angle + 1 r=r+Rand(-20,20) g=g+Rand(-20,20) b=b+Rand(-20,20) If r<80 Then r=80 If r>255 Then r=255 If g<80 Then g=80 If g>255 Then g=255 If b<80 Then b=80 If b>255 Then b=255 Color r,g,b x1=200-Sin(i+(Cos(angle)400))+400 y1=20-Sin(i+(Sin(angle)400))+580 x2=200Sin(i+(Cos(angle)200))+400 y2=20Cos(i+(Sin(angle)200))+580 If y1>599 Then y1=599 If y2>599 Then y2=599 Line x1,y1,x2,y2 Line ox1,oy1,x1,y1 Line ox2,oy2,x2,y2 ox1=x1:oy1=y1-14 ox2=x2:oy2=y2-14 Print VWait() VWait() ; Flip 1 ; Cls Wend End --v note - they are probably better ways to do this.
Thursday, 04 October 2007, 15:02
Clyde	Nice one dudes

Comments