Программирование на smart BASIC. Урок 2

[Dedjto]

Флаг это не сложно.

graphics
fill color 1,1,1
fill rect 100,100 to 700,200
fill color 0,0,1
fill rect 100,200 to 700,300
fill color 1,0,0
fill rect 100,300 to 700,400

Или так:

Code: Select all

GRAPHICS
maxx = screen_width()
maxy = screen_height()

fill color 1,1,1
fill rect 0,0 to maxx,maxy/3

fill color 0,0,1
fill rect 0,maxy/3 to maxx,maxy*2/3

fill color 1,0,0
fill rect 0,maxy*2/3 to maxx,maxy

[Dedjto]

https://ru.wikipedia.org/wiki/%D0%A1%D0 ... 0%BE%D0%B2
Если значения каждой из трех позиций могут быть от 0 до 255, а в документации к программе сказано, что эти значения могут быть от 0 до 1.

Спасибо. Теперь играюсь с цветом.

[DmitryiS]

https://ru.wikipedia.org/wiki/%D0%A1%D0 ... 0%BE%D0%B2
Если значения каждой из трех позиций могут быть от 0 до 255, а в документации к программе сказано, что эти значения могут быть от 0 до 1.

Спасибо. Теперь играюсь с цветом.

Да не за что. Я попробовал задавать цвета трехзначными значениями по системе RGB, у меня фигня какая-то получилась. Может пока еще не разобрался. Программирование - дело для меня новое. Опыта никакого.

[Mr. Kibernetik]

А как задавать сложные цвета по системе RGB?
Как в этом списке: https://ru.wikipedia.org/wiki/%D0%A1%D0 ... 0%BE%D0%B2
Если значения каждой из трех позиций могут быть от 0 до 255, а в документации к программе сказано, что эти значения могут быть от 0 до 1.

Если 0 - это 0, а 255 - это 1, то нужно цвет из этой таблицы разделить на 255, чтобы получить цвет для программы.
То есть RGB цвет 93,138,168 в программе будет 93/255,138/255,168/255.

[DmitryiS]

Спасибо! Работает. Цвет соответствует таблице.

graphics
fill color 1,168/255,18/255
fill rect 100,100 to 400,400

[Dedjto]

Спасибо! Работает. Цвет соответствует таблице.

graphics
fill color 1,168/255,18/255
fill rect 100,100 to 400,400

А если вставить 205,0,205 то тоже цвет аналогичен таблице, а с остальными не получается(правда, не все попробовала )

[GriVas]

graphics ! graphics clear
SHADOW ON
1
r=r+0.001
g=g+0.001
b=b+0.001
fill color r,g,b
FILL RECT 520,120 SIZE 400,100
on r goto 12
12
on g goto 13
13
on b goto 2
goto 1
2
a=a+0.001
FILL COLOR 0,0,.a
FILL RECT 520,325 SIZE 400,100
on a goto 3
goto 2

3
c=c+0.0001
FILL COLOR .r,0,0
FILL RECT 520,530 SIZE 400,100
on c goto 4
goto 3
4
end


Как-то длинно получилось

[Mr. Kibernetik]

Как-то длинно получилось

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

[GriVas]

желание было не просто создать 3 прямоугольника , а увидеть их " появление " .
через for x... to ... step
... ( соответственно делал 3 цикла не путая ( например внешний r - потом g ,и b " закрывал " их соответственно в обратном порядке -b , g , r не путая последовательности )
if x=1 to ... ( сейчас с рабочего пишу точно не помню название команды останавливающей цикл )
но результатом я как-то не был доволен . ( не было видно плавного смешения цветов, хоть и уменьшал шаги )
да и на каждый прямоугольник создавать циклы ...
next x
как-то не задалось .
это просто проба понимание механики ,
а то что задумал , получилось .
сначала прирост по "r" до 1
потом "g"
ну и "b"
согласен на практике немного не то получилось .
но главное получилось
если по длинней расписать ,
как с синим и красным цветом по отдельности то работает .
хотя может и проще можно ...

[Фант]

Появление флага

Code: Select all

graphics
maxx=screen_width()
maxy=screen_height()
cvet=1
1 
if cvet=2 then draw color 0,0,1
if cvet=3 then draw color 1,0,0
while n<maxy/3*cvet
n+=1
pause .01
draw line 0,n to maxx,n
end while
cvet+=1
goto 1

подкорректировал