Snippet - Socoder

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

spinal	Created : 05 October 2007 Edited : 05 October 2007 Language : Blitz String
Here is a good old piece of string, I follows the mouse pointer. The theory behind it, is you calculate the angle between each node (starting at the mouse pointer) and drawing a line at that angle at a set length and continue on until the end of the tail. ; Mouse string, spinal. Graphics 640,480,0,2 Global tail_len = 20 ; pixel length between the nodes (10 * what we need) Global tail_nodes = 50 ; How many sections the tail is Dim nodes_x(tail_nodes) ; X position of each node Dim nodes_y(tail_nodes) ; Y position For x=1 To tail_nodes nodes_x(x) = MouseX()10 nodes_y(x) = MouseY()10 Next HidePointer SetBuffer BackBuffer() Repeat Cls move_tail() Flip 1 Until KeyHit(1) End Function move_tail() nodes_x(0) = MouseX()10 nodes_y(0) = MouseY()10 For x=1 To tail_nodes rotation = ATan2(nodes_y(x)-nodes_y(x-1),nodes_x(x)-nodes_x(x-1)) pos_x = nodes_x(x-1) + tail_len * Cos(rotation) pos_y = nodes_y(x-1) + tail_len * Sin(rotation) nodes_x(x) = pos_x nodes_y(x) = pos_y x1 = nodes_x(x-1)/10 y1 = nodes_y(x-1)/10 x2 = nodes_x(x)/10 y2 = nodes_y(x)/10 Color 255,255,255 Line x1,y1,x2,y2 Next End Function --v

Comments
Friday, 05 October 2007, 06:44
Nolan	Neat!
Friday, 05 October 2007, 07:24
Phoenix	That's very nice!
Friday, 05 October 2007, 08:45
Paul	Cool Couldn't resist to play around with it ; Mouse string, spinal. Graphics 640,480,0,2 Global tail_len = 1 ; pixel length between the nodes (10 * what we need) Global tail_nodes = 5000 ; How many sections the tail is Dim nodes_x#(tail_nodes) ; X position of each node Dim nodes_y#(tail_nodes) ; Y position For x=1 To tail_nodes nodes_x(x) = MouseX()10 nodes_y(x) = MouseY()10 Next HidePointer SetBuffer BackBuffer() Repeat Cls move_tail() Flip 1 Until KeyHit(1) End Function move_tail() nodes_x(0) = MouseX()10 nodes_y(0) = MouseY()10 For x#=1 To tail_nodes rotation = ATan2(nodes_y(x)-nodes_y(x-1),nodes_x(x)-nodes_x(x-1)) pos_x# = nodes_x(x-1) + tail_len * Cos(rotation)+Rnd(-10,10) pos_y# = nodes_y(x-1) + tail_len * Sin(rotation)+Rnd(-10,10) nodes_x(x) = pos_x nodes_y(x) = pos_y x1# = nodes_x(x-1)/10 y1# = nodes_y(x-1)/10 x2# = nodes_x(x)/10 y2# = nodes_y(x)/10 Color 255,255,255 Line x1,y1,x2,y2 Next End Function --v
Friday, 05 October 2007, 12:26
JL235	Nice. Space Snake did something similar.
Friday, 05 October 2007, 14:29
Phoenix	Didn't notice it was posted as a showcase. I've moved it to the snippet section.
Friday, 05 October 2007, 17:08
spinal	Thanks Phoenix!
Friday, 05 October 2007, 19:51
blanko1324	Ah, so cool!

String

Comments