253 bytes:
I thought I'd be able to do a lot more with it, but it turned out to be a real challenge squeezing this into that amount of space!
I could probably get it smaller if I changed it to use setcolor and plot instead of createpixmap, writepixel, and drawpixmap, but that probably wouldn't give me enough leeway to do any sort of animation with it. I was hoping when I started that I could make it do a realtime zoom.
Graphics 800,600,32I:TPixmap=CreatePixmap(800,600,5)For Y=0To 599For X=0To 799P#=0Q#=0N=0While(P*P+Q*Q<4)&(N<50)R#=P*P-Q*Q-2+X*.0035S#=2*P*Q-1.2+Y*.004P=R Q=S N:+1Wend I.WritePixel X,Y,N*2^19*(N<50)Next Next Repeat DrawPixmap I,0,0Flip 1Until KeyHit(27)
I thought I'd be able to do a lot more with it, but it turned out to be a real challenge squeezing this into that amount of space!
I could probably get it smaller if I changed it to use setcolor and plot instead of createpixmap, writepixel, and drawpixmap, but that probably wouldn't give me enough leeway to do any sort of animation with it. I was hoping when I started that I could make it do a realtime zoom.