line thing

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

spinal	Created : 12 May 2008 Edited : 12 May 2008 line thing
So I dont loose it again. Graphics 1280,768,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 3D version (need red/blue glasses) Jay gave me a hand with this, I changed his version a little, left his code commented out in case people like it better. I mnaged to get it 3D using a combination of mine and jay's ideas, but currently it only wiggles and does not rotate. I'll be working on that part doon. Graphics 800,600,0,2 ;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 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 dist = 400- Float(x1-x2)/2 If dist>12 Then dist=12 If dist<-12 Then dist=-12 If Abs(x1-x2)>4 Then fl=0 If Abs(x1-x2)<4 And fl=0 Then f=1-f:fl=1 Color 255,0,0 ;:If f=1 Then Color 0,0,255 Line x1,y1,x2,y2 Line ox1,oy1,x1,y1 Line ox2,oy2,x2,y2 Color 0,0,255 ;:If f=1 Then Color 255,0,0 Line x1-dist, y1,x2+dist,y2 Line ox1-dist,oy1,x1-dist,y1 Line ox2+dist,oy2,x2+dist,y2 ; Line x1-dist, y1+1,x2-dist,y2+1 ; Line ox1-dist,oy1+1,x1-dist,y1+1 ; Line ox2-dist,oy2+1,x2-dist,y2+1 ox1=x1:oy1=y1-14 ox2=x2:oy2=y2-14 Print VWait() : VWait() : VWait() Flip 1 ; Cls Wend End --v

Comments
Monday, 12 May 2008, 13:41
Stealth	That's pretty cool.

Comments