Write : Background Swirls

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|609\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Mini Challenges -> Write : Background Swirls
Fri, 02 Oct 2009, 04:58
Jayenkai	Create a nice neat swirly graphical effect that can go into the backgrounds of menus, titlescreens, and maybe even some kinds of games. ---- The Write Rhyme Print text and draw boxes, draw circles and lines. Use things that within your language you'd find. If you need a package for painting to do it, You haven't quite managed to keep in the spirit. -=-=- ''Load, Next List!''
Fri, 02 Oct 2009, 11:56
Eikon	AppTitle "Unravel" Graphics 640, 480, 16, 2 SetBuffer BackBuffer() Type Obj Field X#, Y#, R#, A#, C, S# End Type A = 0: R = 0: C = 250: S# = 150 For i = 1 To 150 o.Obj = New Obj o\X = 260: o\Y = 200: o\R = R: o\A = A: o\C = C: o\S = S: A = A + 10: R = R + 3: S = S - .05 If C >= 20 Then C = C - 20 Else C = 255 Next While Not KeyDown(1) For o.Obj = Each Obj Color 0, 0, o\C: Rect o\R * Cos(o\A) + o\X, o\R * Sin(o\A) + o\Y, o\S, o\S o\A = o\A + 5: o\R = o\R + .1 Next Flip: Cls Wend: End --v
Sat, 03 Oct 2009, 04:37
Jayenkai	I'M FALLING!!!! -- Here's mine.. SeedRnd MilliSecs() Graphics 800,600,32,2 SetBuffer BackBuffer() Global bbuff=CreateImage(800,800) Global bx,by,bw,bh,br#,bg#,bb#,brg#,bgg#,bbg# Global bang# Global Contrast=30 Repeat Cls Background() Flip Until KeyDown(1) Function background() SetBuffer ImageBuffer(bbuff) ; Set random If Rand(1,15)=1 Then bx=bx+Rand(-15,15):by=by+Rand(-15,15):bw=bw+Rand(-15,15):bh=bh+Rand(-15,15):br=br0.9:bg=bg0.9:bb=bb0.9 If Rand(1,40)=5 Then bx=Rand(-400,400):by=Rand(-400,400):bw=Rand(400):bh=Rand(400):br=0:bg=0:bb=0:brg=Rnd(2):bgg=Rnd(2):bbg=Rnd(2) ; Make Bigger bx=bx-1:by=by-1:bh=bh+1:bw=bw+1 ; Don't go too far If bx+bw>400 Then bx=400-bw If by+bh>400 Then by=400-bh If bx+bw<0 Then bx=0-bw If by+bh<0 Then by=0-bh ; Add Color br=br+brg:bg=bg+bgg:bb=bb+bbg ; But not too much If br>Contrast Then br=Contrast If bg>Contrast Then bg=Contrast If bb>Contrast Then bb=Contrast ; Work out mirrors bx2=800-(bx+bw) by2=800-(by+bh) ; Doodle Color br,bg,bb Rect bx,by,bw,bh,1 Rect bx2,by,bw,bh,1 Rect bx,by2,bw,bh,1 Rect bx2,by2,bw,bh,1 SetBuffer BackBuffer() ; Add angle bang#=bang#+0.025 If bang>360 Then bang=bang-360 ; Tile at circular co-ord by angle. TileImage bbuff,Sin(bang)1200,-Cos(bang)*1200 End Function --v -=-=- ''Load, Next List!''
Sun, 04 Oct 2009, 13:47
JL235	I like the idea behind Jay's, I just don't like the execution. Eikon's is well executed, but I don't like the idea of something that crazy for a menu.
Sun, 04 Oct 2009, 14:49
Jayenkai	.. So write one! That's the point of the thread!! -=-=- ''Load, Next List!''