0 Members and 4 Guests are viewing this topic.
For(B,X,X+7For(C,Y+1,Y+15pxl-Test(C,B→Apxl-Off(C-1,BIf rand^8pxl-On(C-1,BEndEnd
For(B,X,X+7For(C,Y+1,Y+15pxl-Off(C-1,BIf rand^8*pxl-Test(C,Bpxl-On(C-1,BEndEnd
44->X-16->YRepeat getkey(15) Pt-On(X,Y,[FFFFFFFFFFFFFFFF For(B,X,X+7) For(C,Y+1,Y+15) Pxl-Off(C-1,B If rand^8*pxl-Test(C,B) Pxl-On(C-1,B End End End DispGraphEnd
44->X-16->YRepeat getkey(15) Pt-On(X,Y,[FFFFFFFFFFFFFFFF For(B,X,X+7) For(C,Y-7,Y+7) //I changed this line Pxl-Off(C-1,B If rand^8*pxl-Test(C,B) Pxl-On(C-1,B End End End DispGraphEnd
44->X-16->YRepeat getkey(15) Pt-On(X,Y,[FFFFFFFFFFFFFFFF For(B,X,X+7) For(C,Y-7,Y+7) //I changed this line Pxl-Off(B,C-1 <----------------------- Here If rand^8*pxl-Test(B,C) <---------------- Here Pxl-On(B,C-1 <------------------------ and Here End End End DispGraphEnd
Yes, that's a great code, thanks and you can make the flame longer by changing the second For loop (and I found that rand^6 is better than rand^8)
For(C,Y-15,Y+7)
If rand^10*pxl-Test(B,C) //High density = more particles...If rand^4*pxl-Test(B,C) //Low density = less particles