Вроде хорошо.
Сейчас добавлю стирание!

Нет не стоит. Тут стирание это добавляет новый объект в лист отрисовки. Плюс тут каждый раз идёт добавление массива в список и он становится безразмерным. Тут надо менять значения элементов списка напрямую.

Что то не получается?
Посмотри может я чего не в ехал?

Может использовать gr.cls?

С gr.cls прикольно пошло!
Посмотри.

Вот получилось !!!

Открыть спойлер

Закрыть спойлер

[копировать] [скачать]

1. REM Start of BASIC!Program
2. GR.OPEN 255,255,255,255
3. GR.ORIENTATION 1
4. GR.SCREEN w,h
5. GR.SET.ANTIALIAS 0
6. GR.SET.STROKE 1
7. GR.COLOR 255,255,0,0,1
8. LIST.CREATE N,list1
9. FOR q=1 TO 14
10.     LIST.ADD list1,10
11. NEXT
12. DO
13.     GR.POLY pt,list1
14.     GR.RENDER
15.     FOR q=1 TO 14
16.         LIST.GET list1,q,x
17.         LIST.REPLACE list1,q,x+RND()*5
18.     NEXT
19. UNTIL 1=2

Ну да! Получилось!
Как и в том , что я скинул.
Большое спасибо!!!

Разные варианты - это хорошо!

На здоровье .
Этот вариант лучше. Тут список не раздувается меняются значения прямо в списке. Не надо стирать просто модифицируется сам объект.
Просто не знал что тут списки есть, думал только массивы как в обычном Бейсике.

vh180477 а ты в ВК ?