Раскрашивание
Раскрасить замкнутую область можно с помощью оператора PAINT:
PAINT (x,y),цвет,цвет границы
|
Рассмотрим следующую картинку рыбы:
SCREEN 12
CIRCLE (190, 100), 100, 1,,,.3 'синий эллипс –тело рыбы
CIRCLE (265, 92), 5, 1,,,.7 'синий эллипс – глаз рыбы
'ограниченное синим тело рыбы станет зелёным
PAINT (190, 100), 2, 1
LINE (40, 120)-(40, 80), 2 'зелёный контур
LINE (40,80)-(100, 100), 2 'рыбий хвост
LINE (100,100)-(40, 120), 2'рисунок
'хвост с зелёным контуром становится синим
PAINT (50, 100), 1, 2
Ниже даётся эффектная программа с использованием операторов
| PAINT и CIRCLE:
RANDOMIZE TIMER 'мешаем случайные числа
SCREEN 12
DO
X = RND * 640 'случайный центр
Y = RND * 480
Raadius = RND * 100 'случайный радиус
C = INT(RND * 14 + 1) 'случайный цвет C
CIRCLE (X, Y), Raadius, 15 'круг с белым контуром
PAINT (X, Y), C, 15 'закрашиваем белый круг цветом C
CIRCLE (X, Y), Raadius, C 'рисуем круг цветом С
LOOP UNTIL INKEY$ <> ""
|
Ещё одна интересная программа:
INPUT "Введи радиус"; R
'выбираем местоположение и направление движения
d 'направление движения
MI = 1: NI = 1
'центр
M = 100: N = 100
'включаем графический экран и начинаем рисовать
SCREEN 12
DO
'проверяем, что не выходим за пределы
IF M < R OR M > 640 - R THEN MI = -MI
IF N < R OR N > 480 - R THEN NI = -NI
CIRCLE (M, N), R, 0 'закрашиваем чёрным (для стирания)
M = M + MI
N = N + NI
CIRCLE (M, N), R 'белый цвет
'далее стоит задержка (число 200 может быть увеличено)
FOR pidur = 1 TO 200
NEXT pidur
LOOP UNTIL INKEY$ <> ""
|
Расчетные и графические задания Равновесный объем - это объем, определяемый равенством спроса и предложения...
|
Кардиналистский и ординалистский подходы Кардиналистский (количественный подход) к анализу полезности основан на представлении о возможности измерения различных благ в условных единицах полезности...
|
Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит. Multisim оперирует с двумя категориями...
|
Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...
|
|
Значення творчості Г.Сковороди для розвитку української культури Важливий внесок в історію всієї духовної культури українського народу та її барокової літературно-філософської традиції зробив, зокрема, Григорій Савич Сковорода (1722—1794 pp...
Постинъекционные осложнения, оказать необходимую помощь пациенту I.ОСЛОЖНЕНИЕ: Инфильтрат (уплотнение). II.ПРИЗНАКИ ОСЛОЖНЕНИЯ: Уплотнение...
Приготовление дезинфицирующего рабочего раствора хлорамина Задача: рассчитать необходимое количество порошка хлорамина для приготовления 5-ти литров 3% раствора...
|
|
Плейотропное действие генов. Примеры. Плейотропное действие генов - это зависимость нескольких признаков от одного гена, то есть множественное действие одного гена...
Методика обучения письму и письменной речи на иностранном языке в средней школе. Различают письмо и письменную речь.
Письмо – объект овладения графической и орфографической системами иностранного языка для фиксации языкового и речевого материала...
Классификация холодных блюд и закусок. Урок №2 Тема: Холодные блюда и закуски. Значение холодных блюд и закусок. Классификация холодных блюд и закусок. Кулинарная обработка продуктов...
|
|