'mandelbrot
'
'inspired by Matt Heffernan s 8-BIT BATTLE
'https://www.youtube.com/watch?v=DC5wi6iv9io
'for PicoMite is a Raspberry Pi Pico running the free MMBasic interpreter.
'and Putty or other VT100 emulation
'2022 by M. Herhaus
'
'clear screen, home and cursor off
Print Chr$(27);"[2J";Chr$(27);"[H";Chr$(27);"[?25l";Chr$(27);"(0";
Time$="00"
' max x and max y
DX=32:DY=22
For py=0 To DY-1
 For px=0 To DX-1
   xz=px*3.5/DX-2.5
   yz=py*2/DY-1
   x=0
   y=0
   For i=0 To 14
     If x*x+y*y>4 Then Exit For
     xt = x*x - y*y + xz
     y= 2 * x * y + yz
     x=xt
   Next i
   Print Chr$(27);"[";Str$(py+1);"H";Chr$(27);"[";Str$(px+1);"G";
   'at py+1,px+1
If i<8Then
   Print Chr$(27);"[";Str$(39+i);"m ";
 Else
   Print Chr$(27);"[";Str$(32+i);"ma";
EndIf
 Next px
Next py
'cursor on
Print Chr$(27);"[40m";Chr$(27);"[?25h";Chr$(27);"(B":Print Time$

'mandelbrot
'
'inspired by Matt Heffernan s 8-BIT BATTLE
'https://www.youtube.com/watch?v=DC5wi6iv9io
'for PicoMite is a Raspberry Pi Pico running the free MMBasic interpreter.
'2022 by M. Herhaus
'2022 adaptation for picomiteVGA by Volhout
'
'clear screen, home and cursor off
MODE 2
CLS

'read colours
Dim color(15)
For i=0 To 15
 Read color(i)
Next i

'MANDELBROTH
Timer =0
' max x and max y
DX=32:DY=22
For py=0 To DY-1
For px=0 To DX-1
  xz=px*3.5/DX-2.5
  yz=py*2/DY-1
  x=0
  y=0
  For i=0 To 14
    If x*x+y*y>4 Then Exit For
    xt = x*x - y*y + xz
    y= 2 * x * y + yz
    x=xt
  Next i
  Box px*10,py*10,10,10,1,0,color(i)
Next px
Next py

Print @(10,230) "time = ";Timer;
Do :Loop While Inkey$=""
End

'indexing the colors
Data RGB(white),RGB(yellow),RGB(lilac),RGB(brown),RGB(fuchsia),RGB(rust)
Data RGB(magenta),RGB(red),RGB(cyan),RGB(green),RGB(cerulean),RGB(midgreen)
Data RGB(cobalt),RGB(myrtle),RGB(blue),RGB(black)