Раскрашивание
Раскрасить замкнутую область можно с помощью оператора 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$ <> ""
|
Картограммы и картодиаграммы Картограммы и картодиаграммы применяются для изображения географической характеристики изучаемых явлений...
|
Практические расчеты на срез и смятие При изучении темы обратите внимание на основные расчетные предпосылки и условности расчета...
|
Функция спроса населения на данный товар Функция спроса населения на данный товар: Qd=7-Р. Функция предложения: Qs= -5+2Р,где...
|
Аальтернативная стоимость. Кривая производственных возможностей В экономике Буридании есть 100 ед. труда с производительностью 4 м ткани или 2 кг мяса...
|
Тема: Кинематика поступательного и вращательного движения. 1. Твердое тело начинает вращаться вокруг оси Z с угловой скоростью, проекция которой изменяется со временем
1. Твердое тело начинает вращаться вокруг оси Z с угловой скоростью...
Условия приобретения статуса индивидуального предпринимателя. В соответствии с п. 1 ст. 23 ГК РФ гражданин вправе заниматься предпринимательской деятельностью без образования юридического лица с момента государственной регистрации в качестве индивидуального предпринимателя. Каковы же условия такой регистрации и...
Седалищно-прямокишечная ямка Седалищно-прямокишечная (анальная) ямка, fossa ischiorectalis (ischioanalis) – это парное углубление в области промежности, находящееся по бокам от конечного отдела прямой кишки и седалищных бугров, заполненное жировой клетчаткой, сосудами, нервами и...
|
Примеры решения типовых задач. Пример 1.Степень диссоциации уксусной кислоты в 0,1 М растворе равна 1,32∙10-2
Пример 1.Степень диссоциации уксусной кислоты в 0,1 М растворе равна 1,32∙10-2. Найдите константу диссоциации кислоты и значение рК.
Решение. Подставим данные задачи в уравнение закона разбавления
К = a2См/(1 –a) =...
Экспертная оценка как метод психологического исследования Экспертная оценка – диагностический метод измерения, с помощью которого качественные особенности психических явлений получают свое числовое выражение в форме количественных оценок...
В теории государства и права выделяют два пути возникновения государства: восточный и западный Восточный путь возникновения государства представляет собой плавный переход, перерастание первобытного общества в государство...
|
|
