Snippet - Socoder

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

Hotshot	Created : 10 October 2011 Edited : 10 October 2011 System : Windows Language : Blitz Max Twisters Demo in just 9 Lines of Codes!
Const xRes = 800,yRes = 600,Pos1=175,Pos2=375;Global a#,x1#,x2#,x3#,x4#,ang#=0,amp#=7,HideMouse;Type Twister;Field X1#,X2#,X3#,X4#;Function twister();For a=1 To 600 Step 2;x1=((Sin((a/amp)+ang))100)+300;x2=((Sin((a/amp)+ang+90))100)+300;x3=((Sin((a/amp)+ang+902))100)+300;x4=((Sin((a/amp)+ang+903))100)+300;SetColor 255,0,255;If x1<x2 DrawLine x1-Pos1,a,x2-Pos1,a;DrawLine x1+Pos2,a,x2+Pos2,a;End If SetColor 0,0,255;If x2<x3 DrawLine x2-Pos1,a,x3-Pos1,a;DrawLine x2+Pos2,a,x3+Pos2,a;End If SetColor 0,255,0;If x3<x4 DrawLine x3-Pos1,a,x4-Pos1,a;DrawLine x3+Pos2,a,x4+Pos2,a;End If SetColor 255,255,0;If x4<x1 DrawLine x4-Pos1,a,x1-Pos1,a;DrawLine x4+Pos2,a,x1+Pos2,a;End If;Next;ang=ang+2;If ang=360 Then ang=0 End Function;End Type;SetGraphicsDriver GLMax2DDriver();Graphics xRes,yRes,0;Global _Draw:Twister=New Twister;Repeat;_Draw.twister();Flip;Cls;Delay 20;Until KeyDown(KEY_ESCAPE);End --v

Comments
Monday, 10 October 2011, 14:57
Jayenkai	Makes me want to eat Flumps... belly rumble
Wednesday, 12 October 2011, 21:44
Mog	More like 947 lines!
Thursday, 13 October 2011, 01:53
JL235	Yeah, it's not really 9 lines, since your using end-of-lines to compact it.
Thursday, 13 October 2011, 02:27
Jayenkai	You guys would've sucked in the 80s. 10-liners kicked ass! Pac-ed-in-10! Am I right!! That was awesome!
Friday, 12 July 2013, 20:32
dna	I converted it to B+ Const xRes = 800,yRes = 600,Pos1=175,Pos2=375:Global a#,x1#,x2#,x3#,x4#,ang#=0,amp#=7,HideMouse:Type Twister Field X1#,X2#,X3#,X4# End Type Function twister() For a=1 To 600 Step 2 x1=((Sin((a/amp)+ang))100)+300 x2=((Sin((a/amp)+ang+90))100)+300 x3=((Sin((a/amp)+ang+902))100)+300 x4=((Sin((a/amp)+ang+903))100)+300 Color 255,0,255:If x1<x2 Line x1-Pos1,a,x2-Pos1,a:Line x1+Pos2,a,x2+Pos2,a End If Color 0,0,255:If x2<x3 Line x2-Pos1,a,x3-Pos1,a:Line x2+Pos2,a,x3+Pos2,a End If Color 0,255,0:If x3<x4 Line x3-Pos1,a,x4-Pos1,a:Line x3+Pos2,a,x4+Pos2,a End If Color 255,255,0:If x4<x1 Line x4-Pos1,a,x1-Pos1,a Line x4+Pos2,a,x1+Pos2,a End If Next:ang=ang+2:If ang=360 Then ang=0 End Function ;End Type;SetGraphicsDriver GLMax2DDriver(); Graphics xRes,yRes,16;Global _Draw ;Twister=New Twister Repeat;_Draw.twister(); twister():Flip:Cls:VWait:Until KeyDown(1):End WaitKey:End --v Not a bad idea even with the flicker

Twisters Demo in just 9 Lines of Codes!

Comments