Amazing Fireball

BlitzMax Forums/BlitzMax Programming/Amazing Fireball

dw817 (Posted 2016) [#1]

I have with me some code I've been working on and off for a-while now, originally in PICO, I ported it to BlitzMAX. As you can see it is a marvelous fireball routine - with the exception of the center being square instead of round. ' FIREBALL - CONVERSION FROM MY PICO CODE - dw817 - (10-23-16) Strict Global pic:TPixmap=CreatePixmap(400,300,pf_rgb888),colr[5],colg[5],colb[5] ClearPixels pic Local a,b,x=200,y=150,i,j,c,t$ colr[0]=0 colg[0]=0 colb[0]=0 colr[1]=128 colg[1]=0 colb[1]=0 colr[2]=255 colg[2]=0 colb[2]=0 colr[3]=255 colg[3]=128 colb[3]=0 colr[4]=255 colg[4]=255 colb[4]=0 SetGraphicsDriver GLMax2DDriver(),0 ' zero forces front buffer Graphics 800,600 SetBlend alphablend Cls SetColor(255,255,255) SetScale 2,2 t$="F I R E B A L L" DrawText(t$,400-TextWidth(t$),240) t$="Written by David W (dw817)" DrawText(t$,400-TextWidth(t$),290) t$="-- October 23 2016 --" DrawText(t$,400-TextWidth(t$),340) Flip WaitChar SetScale 2,2 Cls Repeat For i=-15 To 15 For j=-15 To 15 pst(x+j,y+i,4) Next Next Cls DrawImage LoadImage(pic,0),0,0 Flip For i=1 To 9000 a=fnr(400) b=fnr(300) c=pnt(a,b) pst(a-1+fnr(3),b-2+fnr(4),c) If c>0 Then pst(a,b,c-1) Next If KeyDown(37) Then x:-2 If KeyDown(38) Then y:-2 If KeyDown(39) Then x:+2 If KeyDown(40) Then y:+2 Until KeyDown(27) Function pst(x,y,c) Local n=x*3+y*1200 If x<0 Or x>399 Or y<0 Or y>299 Then Return pic.pixels[n]=colr[c] pic.pixels[n+1]=colg[c] pic.pixels[n+2]=colb[c] EndFunction Function pnt(x,y) Local n=x*3+y*1200,r,g,b,i If x<0 Or x>399 Or y<0 Or y>299 Then Return r=pic.pixels[n] g=pic.pixels[n+1] b=pic.pixels[n+2] For i=0 To 4 If r=colr[i] And g=colg[i] And b=colb[i] Then Return i Next EndFunction Function fnr(a) Return Rand(0,a-1) EndFunction My question is, is there some way I can plot directly to a PIXMAP such as DrawOval() and other niceties - so I can make the yellow square a circle instead ? And to be able to use drawpixmap() to update the screen.