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

[Mr. Kibernetik]

Мой вариант


100
A = rnd(1000)
B = rnd(1000)

GRAPHICS
DRAW SIZE rnd(15)
DRAW COLOR A/255,B/255,A-B/255

IF SCREEN_WIDTH() < SCREEN_HEIGHT() THEN
DRAW LINE TO A,B
ELSE
DRAW CIRCLE B,A SIZE rnd(100)
END IF

PAUSE 0.2
GOTO 100

Вы обратили внимание на странный цвет линий и кругов?
При задании цвета величина компоненты должна быть от 0 до 1.

Если исправить ошибку с цветом и убрать паузу, то получается очень красиво:

[Alexxl]

Да обратил. Я пробовал ставить полностью случайный выбор но получается очень пестро, и как у всех.. Оставил этот светленький на который наткнулся, когда экспериментировал..)

[Alexxl]

О. Да, красиво.

[Mr. Kibernetik]

Да обратил. Я пробовал ставить полностью случайный выбор но получается очень пестро, и как у всех.. Оставил этот светленький на который наткнулся, когда экспериментировал..)

У вас случайное число берется от 0 до 1000, а при задании цвета вы величину делите только на 255. В итоге получаете величину цветовой компоненты гораздо больше 1.

[Alexxl]

[/quote]
У вас случайное число берется от 0 до 1000, а при задании цвета вы величину делите только на 255. В итоге получаете величину цветовой компоненты гораздо больше 1.[/quote]

DRAW COLOR rnd(1),rnd(1),rnd(1) вот

[Mr. Kibernetik]

DRAW COLOR rnd(1),rnd(1),rnd(1) вот

Да, НО - у вас прежде цвет и координаты были взаимосвязаны...

[Alexxl]

DRAW COLOR rnd(1),rnd(1),rnd(1) вот

Да, НО - у вас прежде цвет и координаты были взаимосвязаны...

Да. Надеюсь это не плохо? Спасибо что уделяете время на эти уроки. Я не программист) но мне интересно и хочется кое-что свое написать, мне нравится и вами разрабатываемый язык и сама идея своей простотой.
И программы написанные на нем в AppStore. Я пробовал и на ObjectC и в Codea ковырятся но что то SB ближе всего как то мне.

[Фант]

Отлично у Вас все получилось! Учитель подправил-и стало то что надо . Привязка цвета и координат получилась очень гармоничной.
Можете поэкспериментировать с цветом,фигурами,тенями и полной заливкой.

[Mr. Kibernetik]

DRAW COLOR rnd(1),rnd(1),rnd(1) вот

Да, НО - у вас прежде цвет и координаты были взаимосвязаны...

Да. Надеюсь это не плохо? Спасибо что уделяете время на эти уроки. Я не программист) но мне интересно и хочется кое-что свое написать, мне нравится и вами разрабатываемый язык и сама идея своей простотой.
И программы написанные на нем в AppStore. Я пробовал и на ObjectC и в Codea ковырятся но что то SB ближе всего как то мне.

Это скриншот вот этого варианта кода:

Code: Select all

100
A = rnd(1000)
B = rnd(1000)

GRAPHICS
DRAW SIZE rnd(15)
DRAW COLOR A/1000,B/1000,(A-B)/1000

IF SCREEN_WIDTH() < SCREEN_HEIGHT() THEN
DRAW LINE TO A,B
ELSE
DRAW CIRCLE B,A SIZE rnd(100)
END IF

'PAUSE 0.2
GOTO 100

[Alexxl]

Теперь ясно. Сам сидел как раз думал над вашим скриншотом)