1961uvg, По моему, помимо 3 цветов, которая скорей всего яркость, есть еще на rgb уровень контраста, одним смешанием трех цветов белый цвет не получишь, нужно еще у каждого канала, то есть r, g, b выставить уровень контраста под 255, в общем получается r,ярк-255 g, ярк-255, b ярк-255 r контр-255, g контр-255, b контр-255
Для наглядного примера откройте в опере мод 4.20 в режиме ввода текста функцию цвета.
Только там 16 пьяная система вместо десятичной.

Из оф. дока

Colors also have what is called an Alpha Channel. The Alpha Channel describes the level of opaqueness
of the color. An Alpha value of 255 is totally opaque. No object of any color can show through an object
with an Alpha value of 255. An Alpha value of zero will render the object invisible.

по-русски, ерунда эта ваша альфа.

и,

Gr.get.bmpixel <bitmap_ptr_nvar>, x, y, alpha, red, green, blue
Returns the color data for the pixel of the specified bitmap at the specified x, y coordinate.

Get есть, а Set не вижу. Был бы Set, смогли бы вручную работу над цветом производить. Но и тогда были бы нужны несколько битмапов, по 1 на каждый объект, из которых мы бы читали цвета пикселей, производили между ними и пикселями экрана работу, и записывали обратно на экран. И это бы тормозило.

пример тормозов http://annimon.com/forum/?act=post&id=432687

Кароче, тут имеет место субстрактивная модель, по сути CMYK, и получить белый не возможно в принципе. Для этого нужно реализовать аддитивная модель - RGB. Может пробовать битовые операции? ...но тут этр наверно бкдет медленно...

Что тут происходит, какой CMYK? Белый цвет: r=255, g=255, b=255. Если так не получается, то и через другие модели не выйдет, потому что RGB - основа в данном случае. И никакого RGB-контраста нет и быть не может.

В исходниках Бейсика этот метод нормально возвращает alpha, red, green, blue.

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

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

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

1. private boolean getTheBMpixel(Bitmap b) {
2.     int[] xy = getArgsII(); // get x and y
3.     if (xy == null) return false; // error getting coordinate values
4.     if (!isNext(',')) return false;
5.     Var.Val[] argb = getArgs4NVar(); // [a, r, g, b]
6.     if (argb == null) return false; // error getting variables
7.     if (!checkEOL()) return false; // end of syntax checks
8.  
9.     if (!checkBitmapPoint(b, xy)) return false; // is point in bitmap?
10.     int pixel = b.getPixel(xy[0], xy[1]); // get the pixel from the bitmap
11.  
12.     argb[0].val(Color.alpha(pixel)); // get the components of the pixel
13.     argb[1].val(Color.red(pixel));
14.     argb[2].val(Color.green(pixel));
15.     argb[3].val(Color.blue(pixel));
16.  
17.     return true;
18. }

Единственный метод, который затрагивает установку пикселей в изображении, это gr.bitmap.fill - заливка. Но работает она медленно, так что просите автора set.bmpixel делать.


19Ram84, RFO-Basic тоже интерпретируемый. "Компиляция", как и в OwnLang, сводится к добавлению bas-файла в assets.


1961uvg, Пост #469884, а у тебя и не получится, потому что ты круги просто поверх рисуешь. Тут нужны операции над пикселями, коих просто нет - взять r, g, b в данной точке и сложить с r, g, b того пикселя, который рисуешь.

Создан отдельный сайт по TooBasic ( RFO-Basic для Windows )!
http://toobasic.jimdo.com/
Хорошо сделанная игрушка OTHELLO!
А также новая программа Graphoid v.10! Но что она делает с графикой ( типа компилирует ) я ни как не пойму зачем? Ссылка на программы:
http://65wat.ru/forum/viewtopic.php?f=4&t=2&p=1538#p1538
В новом компиляторе нашли ошибки и на маркете вылаживается новая версия.

Я все таки получил белый цвет!
Но при смешении четырёх цветов и создании
смещения r g b ( по пиксельно ). Конечно вариант не лучший.
С тремя цветами получается какой то сероватый.
Привожу пример:

aNNIMON спасибо за подсказку!

Маленькая программка показывающая пример использования функций replace и insert ( одна добавляет символ в текст, а другая удаляет ).
  А также раздел из мануала по команде GR.MODIFY : с таблицей использования с разными командами и примером.
Четыре страницы - английский две и русский машинный перевод две.
Распечатать на одном листе английский , а на другом русский вариант и сравнивая очень хорошо понятно!
  Думаю пригодится!

Всем того! Коротко о себе. Давно использую рфо для быстрой разработки прикладных программ. Наткнулся случайно на форум, прочитал, в примерах есть много нового. Так я вот о чем, чтоб разработка и отладка прог проходила быстрей можно подключать в basы свои библиотеки. Например у меня выглядит так include ../functions/graphics. Файл graphics можно пополнять своими различными функциями. Следующий пример я побырому накатал для сынишки, который просил Крестики-Нолики для игры вдвоем. Многим мой код покажется очень непривычным, но! Например функция text(....) умеет выравнивать текст не только по горизонтали, но и по вертикали. Молчу уже про функцию (процедуру) которая как объект диалогового окна выхода, удобно применять извне, как в java и c++ библиотеках, а не кодить заново. Вобщем держите, может моя концепция в рфо кому пригодится. Выдернул некоторые функции из своего кровного graphicsA и положил в качестве примера в гоусубку func: ... return

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

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

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

1. REM Крестики-нолики
2. gosub func
3. gr.open 255,0,0,0,0,1
4. dim so[9],cli[9]
5. gr.screen sw,sh
6. cw=sw/2
7. ch=sh/2
8.  
9.  
10.  
11. f(255,255,255)
12. rcr_b(0,sh/15,sw,sh+20,20)
13. textk(sw/15,sh/30,"Крестики-нолики",sh/30,1,2)
14.  
15. c(255,0,0,2)
16. text(sw-sw/15,sh/30,"X",sh/30,2,2)
17. !gr.rect ff,sw-sw/8,0,sw,sh/15
18. bex=regtch(sw-sw/8,0,sw,sh/15)
19.  
20. lt=sw/20
21. tp=ch-cw+sw/20
22. rt=sw-sw/20
23. bt=ch+cw-sw/20
24. w=rt-lt
25. q=w/3
26.  
27. f(0,0,255)
28. a(100)
29. rcr_b(lt,tp,rt,bt,5)
30. f(255,255,255)
31. a(200)
32. rcr_b(lt+2,tp+2,rt-2,bt-2,3)
33.  
34. c(0,0,255,2)
35. a(80)
36.  
37. gr.line oline,lt+q,tp+q/5,lt+q,bt-q/5
38. gr.line oline,lt+q*2,tp+q/5,lt+q*2,bt-q/5
39. gr.line oline,lt+q/5,tp+q,rt-q/5,tp+q
40. gr.line oline,lt+q/5,tp+q*2,rt-q/5,tp+q*2
41.  
42.  
43.  
44.  
45. a(150)
46. c(0,0,0,2)
47. dim tx[9],to[9]
48. f=0
49. for i=0 to 2
50. for j=0 to 2
51. f++
52. tx[f]=text(lt+q/2+q*j+3,tp+q/2+i*q-q/10,"x",q,2,2)
53. to[f]=text(lt+q/2+q*j+3,tp+q/2+i*q-q/10,"o",q,2,2)
54. gr.hide tx[f]
55. gr.hide to[f]
56. next j
57. next i
58.  
59.  
60. dim ln[8]
61. c(255,0,0,7)
62. for i=0 to 2
63.  gr.line ln[i+4],lt+q/2+q*i+3,tp+q/5, lt+q/2+q*i+3,bt-q/5
64. gr.line ln[i+1],lt+q/5+3,tp+q/2+q*i, rt-q/5+3,tp+q/2+q*i
65. next i
66. gr.line ln[7],lt+q/3,tp+q/3, rt-q/3,bt-q/3
67. gr.line ln[8],lt+q/3,bt-q/3,rt-q/3,tp+q/3
68.  
69. for i=1 to 8
70.  gr.hide ln[i]
71. next i
72.  
73. f(0,0,0)
74. a(255)
75. ht=text(cw,ch-cw/0.85,"Первый ход Х",w/10,2,2)
76.  
77. f(255,0,0)
78. a(255)
79. dim tch[9]
80. f=0
81. for i=0 to 2
82. for j=0 to 2
83. f++
84.  tch[f]=regtch(lt+j*q,tp+i*q,lt+q+j*q,tp+q+i*q)
85. next j
86. next i
87. !Debug.show.watch
88. sct= text(cw,bt+sh/10,"",sh/40,2,2)
89.  
90. f(0,0,0)
91. a(255)
92. gr.rect wall,0,0,sw,sh
93. f(255,255,255)
94. caps=text(cw,ch,"Крестики-нолики",sw/15,2,2)
95. about=text(cw,sh-sh/40,"@ CH.A.D 2016", sh/40,2,2)
96. gr.render
97. pause 1000
98.  
99. for i=1 to 255 step 20
100. gr.modify wall,"alpha",255-i
101. gr.modify caps,"alpha",255-i
102. gr.modify about,"alpha",255-i
103. gr.render
104. next i
105.  
106. gr.render
107. resreg=regtch(0,0,sw,sh)
108. do
109. gosub ev
110. onbackkey=0
111. until e_n_d=1
112. end "До встречи!"
113.  
114. OnError:
115. end "Игра завершена с ошибкой!"
116.  
117. ev:
118. ex=click(bex,ex)
119. if ex=2 then  
120.  gr.modify sct,"text","Счет сброшен!"
121.  sco=0
122.  scx=0
123.  gr.render
124. endif
125.  
126. for i=1 to 9
127.  cli[i]=click(tch[i],cli[i])
128. if cli[i]=1 & so[i]=0 then
129.  if boo=0 then
130.   gr.show tx[i]
131.   gr.modify ht,"text","Ходят О"
132.    so[i]=1
133.    gosub win
134.   boo=1
135.   elseif boo=1 then
136.    gr.show to[i]
137.    gr.modify ht,"text","Ходят X"
138.    so[i]=2
139.    boo=0
140.    gosub win
141.  endif
142. endif
143. next i
144. return
145.  
146.  
147. win:
148. for j=1 to 2
149. for i=0 to 2
150. if so[i*3+1]=j & so[i*3+2]=j & so[i*3+3]=j then
151.  
152.  gr.show ln[i+1]
153.  gosub score
154.  F_N.break
155. endif
156. if so[1+i]=j & so[4+i]=j & so[7+i]=j then
157.  gr.show ln[i+4]
158.  gosub score
159.  F_N.break
160. endif
161. next i
162. if so[1]=j & so[5]=j & so[9]=j then
163.  gr.show ln[7]
164.  gosub score
165.  endif
166. if so[3]=j & so[5]=j & so[7]=j then
167. gr.show ln[8]
168.  gosub score
169. endif
170. next j
171.  
172. if so[1]<>0 & so[2]<>0 & so[3]<>0 & so[4]<>0 & so[5]<>0 & so[6]<>0 & so[7]<>0 & so[8]<>0 & so[9]<>0 then
173. gr.modify sct,"text","Игра завершена!"
174. gr.render
175. pause 1000
176.  do
177.  resclick=click(resreg,resclick)
178.  if resclick=2 then gosub reset
179. until resclick=2
180. gosub score
181. endif
182.  gr.render
183. return
184.  
185. score:
186.  if j=1 then scx++
187.  if j=2 then sco++
188. if scx>sco then gr.modify sct,"text","Крестики выигрывают со счетом "+int$(scx)+":"+int$(sco)
189. if sco>scx then gr.modify sct,"text","Нолики выигрывают со счетом "+int$(sco)+":"+int$(scx)
190. if sco=scx then gr.modify sct,"text", "Ничья со счетом "+int$(sco)+":"+int$(scx)
191.  gr.render
192. pause 500
193.  do
194.  resclick=click(resreg,resclick)
195.  if resclick=2 then gosub reset
196. until resclick=2
197. return
198.  
199. reset:
200. for i=1 to 9
201.  gr.hide tx[i]
202.  gr.hide to[i]
203.  if i<9 then gr.hide ln[i]
204. so[i]=0
205. next i
206. gr.render
207. return
208.  
209. func:
210.  
211. fn.def c(r,g,b,ss)
212. gr.set.stroke ss
213. gr.color ,r,g,b,0
214. fn.end
215.  
216. fn.def f(r,g,b)
217. gr.set.stroke 1
218. gr.color ,r,g,b,1
219. fn.end
220.  
221. fn.def a(a)
222. gr.color a
223. fn.end
224.  
225. fn.def text(x,y,s$,s,ag,av)
226. gr.text.align ag
227. gr.text.size s
228. if av=1 then v=0
229. if av=2 then v=-(s*(0.29/2))+s/2
230. if av=3 then v=-(s*0.29)+s
231. gr.text.draw oTx,x,y+v,s$
232. fn.rtn oTx
233. fn.end
234.  
235. fn.def textk(x,y,s$,s,ag,av)
236. gr.text.align ag
237. gr.text.size s
238. Gr.text.skew -0.5
239. if av=1 then v=0
240. if av=2 then v=-(s*(0.29/2))+s/2
241. if av=3 then v=-(s*0.29)+s
242. gr.text.draw oTx,x,y+v,s$
243. Gr.text.skew 0
244. fn.rtn oTx
245. fn.end
246.  
247. fn.def rcr_b(lt,tp,rt,bt,r)
248. w=rt-lt
249. h=bt-tp
250. list.create n,lst_rcr_b
251. array.load z[],-1,1,1,-1,     -1,-1,1,1
252. for i=0 to 3 step 1
253. for g=90*(i+2) to 90*(i+3) step 90/10
254. mx=cos(toradians(g))*r+(w/2-r)*z[i+1]
255. my=sin(toradians(g))*r+(h/2-r)*z[i+5]
256. list.add lst_rcr_b,mx,my
257. next g
258. next i
259. gr.poly oP,lst_rcr_b,rt-(rt-lt)/2,bt-(bt-tp)/2
260. fn.rtn oP
261. fn.end
262.  
263. fn.def click(lst,f)
264. List.get lst,1,lt
265. List.get lst,2,tp
266. List.get lst,3,rt
267. List.get lst,4,bt
268. gr.bounded.touch btc,lt,tp,rt,bt
269. gr.touch tc,x,y
270. if f=1 then c=1
271. if f=2 then c=0
272. if f=10 then c=10
273. if tc=1 & btc=0 & f=0 then c=10
274. if btc=1 & f<10 then c=1
275. if btc=0 & tc=0 & f=10 then c=0
276. if f=1 & btc=0 & tc=0 then c=2
277. if f=1 & btc=0 & tc=1 then c=0
278. fn.rtn c
279. fn.end
280.  
281. fn.def regtch(lt,tp,rt,bt)
282.   List.create N, lst
283.   list.add lst, lt,tp,rt,bt
284.   fn.rtn lst
285. fn.end
286.  
287. fn.def dialog_2wt(s$,sl$,sr$)
288. gr.screen sw,sh
289. list.create n, lstobj
290.   gx=sw/12
291.   gy=sh/20
292.   q=gx
293.   cw=sw/2
294.   ch=sh/2
295.   dim btd[2]
296.    gr.color 150,0,0,0,1
297.    gr.rect fon,0,0,sw,sh
298.    list.add lstobj,fon
299.    !Рисуем окно
300.    gr.set.stroke 2
301.    gr.color 255,255,255,255,1
302.   !w1=rcr_b(gx-1,gy*7-1,gx*11,gy*13,q/2+3)
303.    gr.rect w1,gx-1,gy*7-1,gx*11,gy*13
304. gr.set.stroke 2
305.    gr.color 130,0,0,0,1
306.    !w2= rcr_b(gx,gy*7,gx*11+2,gy*13+2,q/2+2)
307.    gr.rect w2,gx,gy*7,gx*11+2,gy*13+2
308.    gr.set.stroke 2
309.    gr.color 210,255,255,255,1
310. !w3=rcr_b(gx+1,gy*7+1,gx*11+1,gy*13+1,q/2+2)
311. gr.rect w3,gx+1,gy*7+1,gx*11+1,gy*13+1
312.    gr.color 255,170,170,170,1
313. !w4=rcr_b(gx+1,gy*7+1,gx*11-1,gy*13-1,q/2)
314. gr.rect w4,gx+1,gy*7+1,gx*11-1,gy*13-1
315.    list.add lstobj,w1,w2,w3,w4
316.     !Рисуем линии
317.     gr.color 130,0,0,0,0
318.     gr.set.stroke 1
319.     gr.line line1,gx*1.5,gy*11,gx*10.5,gy*11
320.     gr.line line2,gx*6,gy*11.3,gx*6,gy*12.7
321.     gr.color 170,255,255,255,0
322.     gr.line line3,gx*1.5-1,gy*11-1,gx*10.5-1,gy*11-1
323.     gr.line line4,gx*6-1,gy*11.3-1,gx*6-1,gy*12.7-1
324.      list.add lstobj,line1,line2,line3,line4
325.   !Рисуем нажатую левую кнопку
326.     gr.color 0,255,255,255,1  %alpha 175
327.     gr.rect btd[1],gx*1.5,gy*11.3,gx*5.5,gy*12.7
328.     !Рисуем нажатую правую кнопку
329.     gr.color 0,255,255,255,1  %alpha 175
330.     gr.rect btd[2],gx*6.5,gy*11.3,gx*10.5,gy*12.7
331.      list.add lstobj,btd[1],btd[2]
332.    !Рисуем главный текст
333.    gr.text.align 2
334.    size=q
335.    gr.text.size size
336.    gr.color 170,255,255,255,1
337.    gr.text.draw t1,gx*6-1,(gy*9-1)-size*(0.29/2)+size/2,s$
338.    gr.color 170,0,0,0,1
339.    gr.text.draw t2,gx*6+1,(gy*9+1)-size*(0.29/2)+size/2,s$
340.    gr.color 255,100,100,200,1
341.    gr.text.draw t3,gx*6,(gy*9)-size*(0.29/2)+size/2,s$
342.    !!
343.    gr.color 170,255,255,255,1
344.    t1=text(gx*6-1,gy*9-1,s$,q,2,2)
345.    gr.color 170,0,0,0,1
346.    t2=text(gx*6+1,gy*9+1,s$,q,2,2)
347.    gr.color 255,100,100,200,1
348.    t3=text(gx*6,gy*9,s$,q,2,2)
349.    !!
350.   !Рисуем текст левой кнопки
351.   gr.text.align 2
352.    size=q/1.3
353.    gr.text.size size
354.    gr.color 170,255,255,255,1
355.    gr.text.draw t4,gx*3.5-1,(gy*12-1)-size*(0.29/2)+size/2,sl$
356.    gr.color 170,0,0,0,1
357.    gr.text.draw t5,gx*3.5+1,(gy*12+1)-size*(0.29/2)+size/2,sl$
358.    gr.color 255,100,100,200,1
359.    gr.text.draw t6,gx*3.5,(gy*12)-size*(0.29/2)+size/2,sl$
360.   !!
361.    gr.color 170,255,255,255,1
362.    t4=text(gx*3.5-1,gy*12-1,sl$,q/1.3,2,2)
363.    gr.color 170,0,0,0,1
364.    t5=text(gx*3.5+1,gy*12+1,sl$,q/1.3,2,2)
365.    gr.color 255,100,100,200,1
366.    t6=text(gx*3.5,gy*12,sl$,q/1.3,2,2)
367.    !!
368.   !Рисуем текст правой кнопки
369.    gr.text.align 2
370.    size=q/1.3
371.    gr.text.size size
372.    gr.color 170,255,255,255,1
373.    gr.text.draw t7,gx*8.5-1,(gy*12-1)-size*(0.29/2)+size/2,sr$
374.    gr.color 170,0,0,0,1
375.    gr.text.draw t8,gx*8.5+1,(gy*12+1)-size*(0.29/2)+size/2,sr$
376.    gr.color 255,100,100,200,1
377.    gr.text.draw t9,gx*8.5,(gy*12)-size*(0.29/2)+size/2,sr$
378.    !!
379.    -((size*(0.29/2)+size/2))
380.    t7=text(gx*8.5-1,gy*12-1,sr$,q/1.3,2,2)
381.    gr.color 170,0,0,0,1
382.    t8=text(gx*8.5+1,gy*12+1,sr$,q/1.3,2,2)
383.    gr.color 255,100,100,200,1
384.    t9=text(gx*8.5,gy*12,sr$,q/1.3,2,2)
385.    !!
386.    list.add lstobj,t1,t2,t3,t4,t5,t6,t7,t8,t9
387.   !Создаем невидимый курсор
388.   gr.color  0,0,0,0,1
389.   gr.circle cur,-100,-100,q/4
390.   list.add lstobj,cur
391.   Gr.group.list objs, lstobj
392.    !Стартовое значение таймера
393.   sttime=int(clock()+11000)
394.  
395.   do
396.    et$=int$((sttime-clock())/1000)
397.     et=val(et$)
398.     if et=0 then
399.       gr.modify t4,"text",sl$
400.       gr.modify t5,"text",sl$
401.       gr.modify t6,"text",sl$
402.       gr.render
403.       pause 500
404.       gr.modify btd[1],"alpha",175
405.       gr.render
406.       pause 500
407.       gr.hide objs
408.        List.clear lstobj
409.        d_o_e_n_d=1:rtn=10
410.     elseif et>0 & et<10 then
411.          gr.modify t4,"text",sl$+chr$(9311+et)
412.          gr.modify t5,"text",sl$+chr$(9311+et)
413.          gr.modify t6,"text",sl$+chr$(9311+et)
414.     endif
415.    gr.touch fl,xtch,ytch
416.    gr.render
417.   IF fl=1 THEN
418.    do
419.    et$=int$((sttime-clock())/1000)
420.    et=val(et$)
421.     if et=0 then
422.       gr.modify t4,"text",sl$
423.       gr.modify t5,"text",sl$
424.       gr.modify t6,"text",sl$
425.       gr.render
426.       pause 500
427.       gr.modify btd[1],"alpha",175
428.      gr.render
429.       pause 500
430.       gr.hide objs
431.        List.clear lstobj
432.        d_o_e_n_d=1:rtn=10
433.     elseif et>0 & et<10 then
434.          gr.modify t4,"text",sl$+chr$(9311+et)
435.          gr.modify t5,"text",sl$+chr$(9311+et)
436.          gr.modify t6,"text",sl$+chr$(9311+et)
437.     endif
438.    gr.touch fl,xtch,ytch
439.    gr.modify cur,"x",xtch,"y",ytch
440.   for i=1 to 2
441.     if gr_collision(cur,btd[i]) & fl=1 then
442.       gr.modify btd[i],"alpha",175
443.     elseif gr_collision(cur,btd[i]) & fl=0 then
444.        if i=1 then rtn=i
445.        if i=2 then rtn=i
446.        gr.hide objs
447.        List.clear lstobj
448.        d_o_e_n_d=1
449.        f_n.break
450.     else
451.        gr.modify btd[i],"alpha",0
452.     endif
453.   next
454.   gr.render
455.   until d_o_e_n_d=1
456.   ENDIF
457.   until d_o_e_n_d=1
458. fn.rtn rtn
459. fn.end
460. return
461.  
462. OnBackKey:
463.   if  onbackkey=0 then
464.       onbackkey=1
465.       diaex=dialog_2wt("Выход?","Да","Нет")
466.       if diaex=1 | diaex=10 then e_n_d=1
467.    endif
468. Back.resume

Да еще добавлю. Для быстрого кодинга (чтоб не заморачиваться с цветом) использую такую конструкцию:

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

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

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

1. !Например мне нужно создать закрашеный синий круг
2. ! Незакрашеный красный квадрат
3. !И это все на зеленом фоне
4. !Выглядит так
5.  
6. ! gr.open 255,0,0,0,0,1 Последние две цифры отвечают за ориентацию и шторку
7. ! Это чтоб не писать gr.orientation... и так далее и тому подобное
8. ! Сколько примеров видел, так делаю пока только я :)
9.  
10. REM ПРИМЕР ИСПОЛЬЗОВАНИЯ ПРОСТЫХ ЦВЕТОВ
11. gosub gr_functions     % У себя на аппарате подключаю извне include ../functions/graphics
12. gr.open 255,0,0,0,0,1
13. gr.screen sw,sh
14.  
15. gr.color 255  %Для альфа-канала тоже есть отдельная функция, но здесь задал его отдельно
16.  
17. fon_l(green) % Устанавливаю зеленый фон
18.  
19. fl(blue)
20. gr.circle objCirc,x,y,radius
21.  
22. cl(red,2)  % Тут задаю красный цвет, с шириной линии 2 пиксела
23. sq(x,y,St) % Квадрат со стороной St     функция объявлена ниже
24.  
25. Do
26. Until 0
27.  
28. end
29.  
30. gr_functions:
31.  
32. ! Добавляем наши цвета
33. ! Тут я вырвал самые основные для примера
34. ! В гугле запрос  "цвета RGB" и можно ускорить подбор цвета в разы
35. list.create n, white
36. list.add white, 255,255,255
37.  
38. list.create n, black
39. list.add black,0,0,0
40.  
41. list.create n,red
42. list.add red,255,0,0
43.  
44. list.create n,blue
45. list.add blue,0,0,255
46.  
47. list.create n,green
48. list.add green,0,255,0
49.  
50. fn.def fl(lst)
51. list.get lst,1,r
52. list.get lst,2,g
53. list.get lst,3,b
54. gr.color ,r,g,b,1
55. fn.end
56.  
57. fn.def cl(lst,a)
58. list.get lst,1,r
59. list.get lst,2,g
60. list.get lst,3,b
61. gr.set.stroke a
62. gr.color ,r,g,b,0
63. fn.end
64.  
65. fn.def fon_l(lst)
66. list.get lst,1,r
67. list.get lst,2,g
68. list.get lst,3,b
69. gr.color 255,r,g,b,1
70. gr.screen sw,sh
71. gr.rect or,0,0,sw,sh
72. fn.end
73.  
74. fn.def sq(x,y,w)
75. gr.rect or,x-w/2,y-w/2,x+w/2,y+w/2
76. fn.rtn or
77. fn.end
78.  
79. Return
80. !!
81. *************
82. Можно было конечно цвета указать в строковых переменных,
83. но тут мне важно было избавиться от кавычек,
84. поисков и нажатий лишних знаков.