Возможное ускорение CIRCLE

[yevrowl]

Знаю, конечно, что интерпретируемый Бейсик — та ещё тормозная колодка. Но круги рисует уж слишком медленно, а в моей программе этих геометрических фигур больше сотни.
Если ли способ ускорения, не требующий изучения ассемблера и тому подобных премудростей?

[Advertiser]

[Shiny]

алгоритм Брезенхема, наверное.

[yevrowl]

алгоритм Брезенхема, наверное.

Даже ромбы этот алгоритм медленней рисует, чем DRAW, не говоря уже за круги...

1000 FOR Y=166 TO 10 STEP -12
1010 FOR X=11 TO 47 STEP 12
1020 GO SUB 2000
1030 NEXT X
1040 NEXT Y
1050 STOP
2000 LET A=0
2010 LET B=4
2020 LET C=3-2*4
2040 PLOT X+A,Y+B
2050 PLOT X-A,Y+B
2060 PLOT X+A,Y-B
2070 PLOT X-A,Y-B
2080 PLOT X+B,Y+A
2090 PLOT X-B,Y+A
2100 PLOT X+B,Y-A
2110 PLOT X-B,Y-A
2120 IF A>=B THEN RETURN
2130 IF C<0 THEN LET C=C+4*A+6
2140 IF C>=0 THEN LET C=C+4*(A-B)+10: LET B=B-1
2150 LET A=A+1
2160 GO TO 2040

[Shiny]

Даже ромбы этот алгоритм медленней рисует, чем DRAW, не говоря уже за круги...

Этот алгоритм линии, а не окружности.
есть другой вариант:
http://members.chello.at/easyfilter/bresenham.html
или Minsky Circle:
https://zx-pk.ru/threads/35718-agon-...=1#post1197805

[yevrowl]

Учитывая, что большинство кружков состоит из 20 пикселей, перерисовал при помощи PLOT/DRAW, теперь выводится на экран гораздо быстрей.

[Shiny]

тогда Ассемблер в помощь.