Balls!

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

Jayenkai	Created : 23 April 2014 Language : Blitz Max Balls! Generate lovely balls!
Randomly decided to make this, and the results are actually quite nice, so I thought I should post the source for those who may also like to make some balls! Warning, is far too slow for realtime use, but does generate 10 images for you in the prog's folder. Graphics 512,512,0 Global img=CreatePixmap(1024,1024,PF_RGBA8888) SeedRnd MilliSecs();For n=0 To 128;r=Rnd(0,10);Next For n=0 To 9 MakeWorld() SavePixmapPNG(img,"planet"+n+".png") Next Function MakeWorld() For x=0 To 1023 For y=0 To 1023 WritePixel(img,x,y,$00FF00FF) Next Next r#=0;g#=0;b#=0 Repeat rr=Rand(1,5)50 rg=Rand(1,5)50 rb=Rand(1,5)50 Until rr+rg+rb>200 And rr+rg+rb<700 And (rr>200 Or rg>200 Or rb>200) tr=Rand(1,8) tg=Rand(1,8) tb=Rand(1,8) ar#=Rnd(0.01,0.2) ag#=Rnd(0.01,0.2) ab#=Rnd(0.01,0.2) mrx#=Rnd(0.2,8) mry#=Rnd(0.2,8) mgx#=Rnd(0.2,8) mgy#=Rnd(0.2,8) mbx#=Rnd(0.2,8) mby#=Rnd(0.2,8) mr#=Rnd(40,140) mg#=Rnd(40,140) mb#=Rnd(40,140) rot#=Rnd(0,3600) For ang#=0 To 3680 If ang Mod 200=0 Cls SetScale(0.5,0.5) img_i=LoadImage(img) DrawImage(img_i,0,0) Flip img_i=Null;GCCollect() EndIf If KeyDown(KEY_ESCAPE) Then End For d#=0 To 5000 dx#=512+(Sin(((ang+rot)/10.0))(d/10.0)) dy#=512-(Cos(((ang+rot)/10.0))(d/10.0)) r=rr;g=rg;b=rb w#=2.5-(d/2500.0) Select tr Case 1 r=r+(Sin((mrx+mry)dxarw)+Cos((mry)(dy+dx)arw))mr Case 2 r=r+(Sin((mrx+mry)dxarw)-Cos((mry)(dy+dx)arw))mr Case 3 r=r-(Sin((mry)(dy+dx)arw)-Cos((mrx+mry)dxarw))mr Case 4 r=r-(Sin((mry)(dy+dx)arw)+Cos((mrx+mry)(dx)arw))mr Case 5 r=r+(Sin((mrx+mry)(dx-dy)arw)Cos((mry-mrx)(dy+dx)arw))mr End Select Select tg Case 1 g=g+(Sin((mgx+mgy)dxagw)+Cos((mgy)(dy+dx)agw))mg Case 2 g=g+(Sin((mgx+mgy)dxagw)-Cos((mgy)(dy+dx)agw))mg Case 3 g=g-(Sin((mgy)(dy+dx)agw)-Cos((mgx+mgy)dxagw))mg Case 4 g=g-(Sin((mgy)(dy+dx)agw)+Cos((mgx+mgy)(dx)agw))mg Case 5 g=g+(Sin((mgx+mgy)(dx-dy)agw)Cos((mgy-mgx)(dy+dx)agw))mg End Select Select tb Case 1 b=b+(Sin((mbx+mby)dxabw)+Cos((mby)(dy+dx)abw))mb Case 2 b=b+(Sin((mbx+mby)dxabw)-Cos((mby)(dy+dx)abw))mb Case 3 b=b-(Sin((mby)(dy+dx)abw)-Cos((mbx+mby)dxabw))mb Case 4 b=b-(Sin((mby)(dy+dx)abw)+Cos((mbx+mby)(dx)abw))mb Case 5 b=b+(Sin((mbx+mby)(dx-dy)abw)Cos((mby-mbx)(dy+dx)abw))*mb End Select If r<0 Then r=0 If g<0 Then g=0 If b<0 Then b=0 If r>255 Then r=255 If g>255 Then g=255 If b>255 Then b=255 r=r-(d/22.0) g=g-(d/22.0) b=b-(d/22.0) If d>4950 Then r=rr;g=rg;b=rb ir=Int(r);ig=Int(g);ib=Int(b) If ir<0 Then ir=0 If ig<0 Then ig=0 If ib<0 Then ib=0 If ir>255 Then ir=255 If ig>255 Then ig=255 If ib>255 Then ib=255 If ir>255 And ig<5 And ib>250 Then ir=250;ig=5;ib=250 If ig>255 And ir<5 And ib>250 Then ig=250;ir=5;ib=250 WritePixel(img,dx,dy,$FF000000+(ir Shl 16)+(ig Shl 8)+ib) Next Next End Function --v

Comments
Wednesday, 23 April 2014, 12:58
Kuron	Erm, um... Very nice looking balls you have there Jay!
Wednesday, 23 April 2014, 13:56
steve_ancell	Snippet, balls, sounds painful
Wednesday, 23 April 2014, 14:01
steve_ancell	I guess CreatePixMap is in some sort of external library?, it doesn't compile on B3D on my system.
Wednesday, 23 April 2014, 14:13
Jayenkai	BlitzMax, sorry..
Wednesday, 23 April 2014, 14:49
cyangames	Nice Stuff!

Comments