Cat's tail

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|539\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Misc

Jayenkai	Created : 19 February 2008 System : Windows Language : Blitz Cat's tail There's no point to this
No point.. Originally planned as some kind of strange "Arrows follow each other" type thing, but went a bit weird. Not sure what it is, but it moves a bit like a cat's tail. Keep your mouse near the bottom, and shift it around to make the tail move. That's about all it does. shrugs Graphics 800,600,32,2 SetBuffer BackBuffer() Dim arrowang#(100) Repeat Cls LockBuffer BackBuffer() wx#=mx#-0.01 wy#=my# mx#=Float(MouseX()) my#=Float(MouseY())+600 x#=400:y#=200 ang#=ATan2(wx-x,wy-y) Line x,y,x+Sin(ang)8,y+Cos(ang)8 For n=100 To 1 Step -1 arrowang(n)=arrowang(n-1) Next arrowang(1)=ang For n=1 To 100 x#=x#+Sin(ang)9 y#=y#+Cos(ang)9 ang#=ang#+arrowang#(n) Line x,y,x+Sin(ang)8,y+Cos(ang)8 Next UnlockBuffer BackBuffer() Flip Repeat:Until MouseDown(1)=0 If KeyDown(1) Then endofgame=99 Until endofgame<>0 --v

Comments
Tuesday, 19 February 2008, 05:32
Jayenkai	Graphics 800,600,32,2 SetBuffer BackBuffer() Dim arrowang#(100) Repeat Cls LockBuffer BackBuffer() wx#=mx#-0.01 wy#=my# mx#=Float(MouseX()) my#=Float(MouseY())+600 x#=400:y#=200 ang#=ATan2(wx-x,wy-y) For n=100 To 1 Step -1 arrowang(n)=arrowang(n-1) Next arrowang(1)=ang For n=1 To 100 x#=x#+Sin(ang)10 y#=y#+Cos(ang)10 ang#=ang#+arrowang#(n) Line x,y,x+Sin(ang)8,y+Cos(ang)8 Line x,y,x+Sin(ang+34)4,y+Cos(ang+34)4 Line x,y,x+Sin(ang-34)4,y+Cos(ang-34)4 Next UnlockBuffer BackBuffer() Flip Repeat:Until MouseDown(1)=0 If KeyDown(1) Then endofgame=99 Until endofgame<>0 --v Just as useless, but now with the originally planned arrows. .. .. shrugs
Tuesday, 19 February 2008, 05:42
Phoenix	Cool effect, but I don't see how this could be turned into a game (without spending lots of time on it). \|edit\| Sorry, I though this was in the campfire section. \|edit\|
Tuesday, 19 February 2008, 12:44
blanko1324	Odd...but a really cool accident.
Tuesday, 19 February 2008, 13:41
spinal	I like it!

Comments