Post Reply 
Just another Mandelbrot Set plot.
05-19-2021, 09:02 PM (This post was last modified: 05-19-2021 09:29 PM by matalog.)
Post: #1
Just another Mandelbrot Set plot.
Here is a little Mandelbrot I wrote on the ZX Spectrum years ago, and just added a bit of colour so it looks better on the calc. It will save itself if you have the patience to let it finish.

Code:
EXPORT mand()
BEGIN
 LOCAL a,b,i,h,q,v,w;
 LOCAL x,y,t;
RECT();
 i:=20;
 FOR b FROM 0 TO 240 DO
  FOR a FROM 0 TO 320 DO
   h:=a/120-1.7;
   v:=b/120-1;
   x:=h;
   y:=v;
   q:=0;
  t:=0;
   REPEAT
  t:=t+1;
    w:=x*x-y*y;
    IF (x*x+y*y)>4 THEN BREAK(1); END;
    IF q>=i THEN PIXON_P(a,b,0); BREAK(1); END;
      y:=2*x*y+v;
      x:=w+h;
      q:=q+1;
    PIXON_P(a,b,q*8000);
   UNTIL 0;
  END;
 END;
AFiles("mandel2.png"):=G0;
END;


Attached File(s) Thumbnail(s)
   
Find all posts by this user
Quote this message in a reply
05-19-2021, 10:43 PM
Post: #2
RE: Just another Mandelbrot Set plot.
Thanks for the program.

I've had the prime for just a week now and got your program into it
via hp connectivity kit.

I stall have my ts1000. It looks like it would be interesting to port it
to atari 800 emulator.

Thanks again.
Find all posts by this user
Quote this message in a reply
Post Reply 




User(s) browsing this thread: 2 Guest(s)