vh180477, основная программа не включает много действий, чтобы так тормозило. Можешь скомпиленную прогу кинуть, для дроида или винды, как4 сможешь?

Я не умею в апк переводить пока. Я прямо в телефоне нажал run и она выполняется с тормозами в отличии от того же mobile basic. Там подобное просто летает.

vh180477, значит интерепретатор языка автор написал с криволинейными руками хотя наперед сразу утверждать не буду

Этот Бейсик меня привлёк тем что поддерживает блютус (в отличии от mobile basic). Но к сожалению действительно графика в нём очень медленная

vh180477, попробуй загружаемые гели использовать вместо рисованных системой кубиков

Прочитал форум с самого начала и немного изменил программу выдаёт ошибку в строке с gr.modify . Что я там напортачил ? Вроде всё по правилам написал.

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

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

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

1. REM Start of BASIC! Program
2. gr.open 100,0,0,0
3. gr.orientation 1
4. gr.color 255,255,255,0,1
5. sp=5
6. kol=20
7. dim cr[kol],cg[kol],cb[kol]
8.  
9. dim xx[kol],ys[kol],xs[kol],yy[kol],ob[kol]
10. for q=1 to kol
11.  if rnd()>=0.5 then cr[q]=255 else cr[q]=0
12.  if rnd()>=0.5 then cg[q]=255 else cg[q]=0
13.  if rnd()>=0.5 then cb[q]=255 else cb[q]=0
14.  if cr[q]+cg[q]+cb[q]=0 then q=q-1
15. next
16.  
17. for q=1 to kol
18.  xx[q]=rnd()*450+5
19.  yy[q]=rnd()*770+5
20.  if rnd()>=0.5 then ys [q] =sp else ys [q] =sp*-1
21.  if rnd()>=0.5 then xs [q] =sp else xs [q] =sp*-1
22.  gr.rect ob[q],xx[q],yy[q],xx[q]+20,yy[q]+20
23. next
24.  
25.  
26.  
27. do
28.  !gr.cls
29.  for q=1 to kol
30.   xx[q]=xx[q]+xs[q]
31.   yy[q]=yy[q]+ys[q]
32.   if xx[q]<5 then xs[q]=xs[q]*-1
33.   if xx[q]>455 then xs[q]=xs[q]*-1
34.   if yy[q]<5 then ys[q]=ys[q]*-1
35.   if yy[q]>775 then ys[q]=ys[q]*-1
36.   gr.color 255,cr[q],cg[q],cb[q],1
37.   gr.modify ob[q],"x",xx[q]
38.   gr.modify ob[q],"y",yy[q]
39.  
40.   !gr.show ob[q]
41.  next
42.  gr.render
43.  
44.  !for q=1 to kol
45.  ! gr.hide ob[q]
46.  !next
47. until 1=2

Странно но в таком виде всё работает. Почему? В чём разница для gr.modify между спрайтом и rect-ом?

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

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

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

1. REM Start of BASIC! Program
2. gr.open 100,0,0,0
3. gr.orientation 1
4. gr.color 255,255,255,0,1
5. sp=5
6. kol=100
7.  
8. dim xx[kol],ys[kol],xs[kol],yy[kol],ob[kol]
9. GR.BITMAP.LOAD obj, "Cartman.png"
10. for q=1 to kol
11.     xx[q]=rnd()*450+5
12.     yy[q]=rnd()*770+5
13.     if rnd()>=0.5 then ys [q] =sp else ys [q] =sp*-1
14.     if rnd()>=0.5 then xs [q] =sp else xs [q] =sp*-1
15.     gr.bitmap.draw ob[q],obj,xx[q],yy[q]
16. next
17.  
18. do
19.     for q=1 to kol
20.         xx[q]=xx[q]+xs[q]
21.         yy[q]=yy[q]+ys[q]
22.         if xx[q]<5 then xs[q]=xs[q]*-1
23.         if xx[q]>455 then xs[q]=xs[q]*-1
24.         if yy[q]<5 then ys[q]=ys[q]*-1
25.         if yy[q]>775 then ys[q]=ys[q]*-1
26.         gr.modify ob[q],"x",xx[q],"y",yy[q]
27.     next
28.     gr.render
29. until 1=2

О, ребята подтянулись

Компилировать просто, нужно

- на комп поставить http://mougino.free.fr/zip/quick-apk-setup.exe
- на андроид поставить https://play.google.com/store/apps/details?id=com.rfo.quickapk

http://vk.com/65watgames?w=wall-97344238_39 здесь о сборке и тестах


По графике - меня терзают подозрения, что так оно и есть, т.к. язык интерпретируемый.
Лично мне вынесло разум то, что все граф. объекты попадают в спец-список; если закрасить экран 1000 случайными пикселями, полная информация о всех пикселях будет занимать время RFO при дальнейших граф. операциях. Выбор - сохранение экрана в теневой буфер (bitmap), очистка списка граф. объектов через gr.cls, + можно оперировать через bitmap.draw, впрочем на примере выше вижу так и делаете.

Откомпиленный вариант значительно шустрее. И если использовать не rect a bitmap то скорость взлетает в разы !!! Все точки можно отображать одним объектом через gr.set.pixels
Синтаксис такой :
gr.set.pixels q,m[],x,y
q - указатель на объект
m[] - массив координат где m[1] - x координата первой точки m[2] - y координата первой точки и так далее.
x,y соответственно координаты всего сборища точек

далее это всё можно двигать с помощью modify

В списке на отображение будет всего один обьект