Набери в Маркете - RFO-Basic или. Basic! - и что ты получишь?
Наверно разочарование!
Нет его там!

По моей информации - это группа под этим псевдонимом.
Да собственно какая разница!
Главное делают нужную вещь!
И мы им благодарны за это. Или ему?

По квадрату-5:

программа импортирована из 920editor, в привычном Notepad++ открывается с полями NUL,NUL..
при закачке ее в 920, там не запускается, у тебя gr.open 4*255,0,0
при исправлении gr.open пусть на 4*0, все равно syntax error, видимо что-то в файле все же не так

еще, у меня нет 34.jpg
еще, мне далеко до текстурирования ребят, я от вас отстаю.

На 37 странице висят текстуры.
Очень классные. Я думал ты их себе скачал?
Но все поправимо.

Она и без нового редактора выдавала ошибку.
Не могу понять почему?

Алексей(Ewo) Привет для тебя хорошая и плохая новость одновременно. Хорошая получился огонь. Плохая - тормозит жутко !!! Короче вот ...

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

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

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

1. GR.OPEN 255,0,0,0,0,0
2. GR.SET.ANTIALIAS 0
3. GR.SET.STROKE 1
4. DIM r[255],g[255],b[255]
5. !Разрешение пламени в данном случае 30 на 35
6. xsize=30
7. ysize=35
8. DIM mas[xsize,ysize],mas2[xsize,ysize]
9. !Это плитра горения
10. FOR q=1 TO 25
11.     r[q]=q*10
12.     g[q]=0
13.     b[q]=0
14. NEXT
15. FOR q=26 TO 85
16.     r[q]=255
17.     g[q]=ABS((q-25)*4.2)
18.     b[q]=0
19. NEXT
20. FOR q=86 TO 141
21.     r[q]=255
22.     g[q]=255
23.     b[q]=ABS((q-86)*4.51)
24. NEXT
25. FOR q=142 TO 255
26.     r[q]=255
27.     g[q]=255
28.     b[q]=255
29. NEXT
30. GR.COLOR 255,0,0,0
31. !Вообщето это лишнее но просто чтоб видно было колличество проходов
32. !Будет выводиться счётчик.
33. GR.COLOR 255,255,255,255,1
34. GR.TEXT.SIZE 90
35. GR.TEXT.ALIGN 2
36. GR.TEXT.DRAW txt,100,100," "
37. ! Основной цикл
38. DO
39.     ++sc
40.     GR.MODIFY txt,"text",STR$(sc)
41.     ! Начальные языки пламени
42.     FOR q=1 TO 5
43.         q1=ABS(RND()*(xsize-2))
44.         mas[q1+1,2]=255
45.     NEXT
46.     !Считаем деградацию пламени
47.     FOR yy=2 TO ysize-1
48.         FOR xx=2 TO  xsize-1
49.         !Упростил до умопомрачнения считаем среднее арифметическое из 4 клеток а в классике положено из 8
50.         ARRAY.LOAD vr[],mas[xx-1,yy],mas[xx+1,yy],mas[xx,yy-1],mas[xx,yy+1]
51.         ARRAY.AVERAGE sz,vr[]
52.         mas2[xx,yy+1]=ABS(sz)
53.         UNDIM vr[]
54.         !Выводим огонь пока так. Но вообщето так не правильно. Не используйте такой вывод графики в своих программах.
55.         IF mas2[xx,yy]>1 THEN
56.             f=mas2[xx,yy]  
57.             GR.COLOR 255,r[f],g[f],b[f],0
58.             GR.POINT p,xx,yy
59.         END IF
60.         NEXT
61.     NEXT
62.     GR.RENDER
63.     ARRAY.COPY mas2[],mas[]
64. UNTIL 2=4

Возможно что то можно оптимизировать ещё но знаний языка маловато . Работает жутко медленно на моём могучем телефоне (мегафон логин). Ты прав алгоритм эффекта [url=]http://jstsch.com/post/old-skool_fire_demo_effect_in_javascriptcanvas[/url] оказался жутко простым и эффективным но у меня выдает в разрешении 30 на 35 1 кадр в 5 сек !!! Хотя я упростил его до жути. Завтра переделаю его на freeBasic может я де то ошибся.

Uvg:
- скачивание "переменных" может быть сделано не людьми, это поисковые системы индексируют интернет.
- по квадрату-5. я думаю нужно его вообще с нуля набрать, там что-то в файле присутствует (нулевые байты)

Vh:
а вы еще крестиком вышивать умеете и FreeBasic знаете, это очень радостно на самом деле, потому что у меня он тоже в списке интересов

Виктор (1961uvg) Привет смотрел твою программу часы и не смог разобраться. Вообще разбирать чужой код дело не благодарное. Я не знаю несколько команд которые ты применил. А на робате инета не было поэтому наваял свои.
Вот.

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

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

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

1. REM Start of BASIC! Program
2. GR.OPEN 255,0,0,0,0,1
3. GR.SCREEN xres,yres
4. GR.COLOR 255,255,255,255,1% Циферблат
5. GR.CIRCLE nb,xres/2,yres/2,xres*0.48
6. GR.COLOR 255,0,255,255,1
7. FOR q=1 TO 12
8. GR.CIRCLE cif,xres*0.44*SIN(q*30/180*3.14)+xres/2,xres*0.44*COS(q*30/180*3.14)+yres/2,xres*0.01
9. NEXT
10. FOR q=1 TO 60
11. GR.CIRCLE cif,xres*0.44*SIN(q*6/180*3.14)+xres/2,xres*0.44*COS(q*6/180*3.14)+yres/2,xres*0.005
12. NEXT
13. LIST.CREATE N,ch% Стрелки с помощью полигонов
14. LIST.CREATE N,mn
15. LIST.CREATE N,sk
16. FOR q=1 TO 6 %Шесть координат иначе ошибка. Полигон минимум треугольник.
17.     LIST.ADD ch,0
18.     LIST.ADD mn,0
19.     LIST.ADD sk,0
20. NEXT
21. GR.COLOR 255,255,0,0,0
22. GR.POLY rtr,sk,xres/2,yres/2
23. GR.COLOR 255,0,0,255,0
24. GR.POLY rt,mn,xres/2,yres/2
25. GR.COLOR 255,0,0,0,0
26. GR.POLY r,ch,xres/2,yres/2
27. GR.COLOR 255,0,0,255,1%Рядом обычные часы
28. GR.TEXT.ALIGN 2
29. GR.TEXT.SIZE xres*0.1
30. GR.TEXT.DRAW tx,xres/2,yres*0.9,"5566"
31. DO% Основной цикл
32.     TIME g$,m$,d$,chas$,mnt$,sek$
33.     ch1=VAL(chas$)
34.     mn1=VAL(mnt$)
35.     sk1=VAL(sek$)
36.     IF ch1>12 THEN ch1=ch1-12
37.     LIST.REPLACE sk,3,xres*0.4*COS((VAL(sek$)*6+90)/180*3.14)*-1
38.     LIST.REPLACE sk,4,xres*0.4*SIN((VAL(sek$)*6+90)/180*3.14)*-1
39.     LIST.REPLACE mn,3,xres*0.3*COS((VAL(mnt$)*6+90)/180*3.14)*-1
40.     LIST.REPLACE mn,4,xres*0.3*SIN((VAL(mnt$)*6+90)/180*3.14)*-1
41.     LIST.REPLACE ch,3,xres*0.2*COS((ch1*30+90+(VAL(mnt$)/2))/180*3.14)*-1
42.     LIST.REPLACE ch,4,xres*0.2*SIN((ch1*30+90+(VAL(mnt$)/2))/180*3.14)*-1
43.     vrem$=chas$+":"+mnt$+":"+sek$
44.     GR.MODIFY tx,"text",vrem$
45.     GR.RENDER
46. UNTIL 2=3

Тут правильный вывод графики. Хочу по этому поводу изменить главу в руководстве которое ты выложил. То руководство просто бесценно. Никогда не понимал как сделана программа для андроид поиск в kinopoisk.ru пока не прочитал твоё руководство. Но машинный перевод лучше всё же удалить !!! Оно даже по смыслу не верно переведено.

Ну кому то помогает!

Ты получил доступ к книге?