AV
или frames
Size: a a a
2020 November 18
МШ
и ещё здесь переменная time используется - текущее время. Не знаю как это сделано на Спектруме и можно ли там так вообще. В крайнем случае, можно тупо секундомером измерить
Имеется ввиду реал тайм клок?
RG
Народ, а может кто-нибудь набить на спектрумовском Бейсике программу фрактала и измерить реальную производительность?
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если еще никто в это не погрузился, то давайте я адаптирую
AV
если еще никто в это не погрузился, то давайте я адаптирую
валяй :)
MS
Имеется ввиду реал тайм клок?
ага
MS
если еще никто в это не погрузился, то давайте я адаптирую
ура!
RG
ага
замерялку я уже делал и обкатывал
МШ
Я тока юзер 0 знаю.
МШ
И то от деда мма 😜
RG
RG
пойду пока пообедаю )
MS
MS
картинка должна обновляться в реальном времени прямо в Телеграме :)
RG
AV
мне кажется что-то тут не так :)
L
это новая волна =)
RG
так, кажется я знаю, у спектрум-бейсика свои нюансы во всем
RG
ща
L
так, кажется я знаю, у спектрум-бейсика свои нюансы во всем
Y и X перепутаны?)
RG
в синклер-бейсике
for x=0 to w посчитает от 0 до w включительно, а не до w-1 включительно