PG
Size: a a a
PG
O
O
DS
O
ОС
MS
100 rem a basic, ascii mandelbrot
110 rem
120 rem this implementation copyright (c) 2019, gordon henderson
130 rem
140 rem permission to use/abuse anywhere for any purpose granted, but
150 rem it comes with no warranty whatsoever. good luck!
160 rem
170 c$ = ".,'~=+:;[/<&?oxOX# " : rem 'pallet' lightest to darkest...
180 so = 1 : rem set to 0 if your mid$() indexes from 0.
190 mi = len(c$)
200 mx = 4
210 ls = -2.0
220 tp = 1.25
230 xs = 2.5
240 ys = -2.5
250 w = 38
260 h = 21
270 sx = xs / w
280 sy = ys / h
290 q = time
300 for y = 0 to h
310 cy = y * sy + tp
320 for x = 0 to w
330 cx = x * sx + ls
340 zx = 0
350 zy = 0
360 cc = so
370 x2 = zx * zx
380 y2 = zy * zy
390 if cc > mi then goto 460
400 if (x2 + y2) > mx then goto 460
410 t = x2 - y2 + cx
420 zy = 2 * zx * zy + cy
430 zx = t
440 cc = cc + 1
450 goto 370
460 print mid$(c$, cc - so, 1);
470 next
480 print
490 next
500 print
510 print (time - q) / 60
520 end
МШ
L
MS
МШ
L
MS
L
L
МШ
MS
AV
МШ