Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Раскрашивание





 

Раскрасить замкнутую область можно с помощью оператора 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$ <> ""

 







Дата добавления: 2015-09-07; просмотров: 362. Нарушение авторских прав; Мы поможем в написании вашей работы!




Кардиналистский и ординалистский подходы Кардиналистский (количественный подход) к анализу полезности основан на представлении о возможности измерения различных благ в условных единицах полезности...


Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит. Multisim оперирует с двумя категориями...


Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...


Важнейшие способы обработки и анализа рядов динамики Не во всех случаях эмпирические данные рядов динамики позволяют определить тенденцию изменения явления во времени...

Признаки классификации безопасности Можно выделить следующие признаки классификации безопасности. 1. По признаку масштабности принято различать следующие относительно самостоятельные геополитические уровни и виды безопасности. 1.1. Международная безопасность (глобальная и...

Прием и регистрация больных Пути госпитализации больных в стационар могут быть различны. В цен­тральное приемное отделение больные могут быть доставлены: 1) машиной скорой медицинской помощи в случае возникновения остро­го или обострения хронического заболевания...

ПУНКЦИЯ И КАТЕТЕРИЗАЦИЯ ПОДКЛЮЧИЧНОЙ ВЕНЫ   Пункцию и катетеризацию подключичной вены обычно производит хирург или анестезиолог, иногда — специально обученный терапевт...

Весы настольные циферблатные Весы настольные циферблатные РН-10Ц13 (рис.3.1) выпускаются с наибольшими пределами взвешивания 2...

Хронометражно-табличная методика определения суточного расхода энергии студента Цель: познакомиться с хронометражно-табличным методом опреде­ления суточного расхода энергии...

ОЧАГОВЫЕ ТЕНИ В ЛЕГКОМ Очаговыми легочными инфильтратами проявляют себя различные по этиологии заболевания, в основе которых лежит бронхо-нодулярный процесс, который при рентгенологическом исследовании дает очагового характера тень, размерами не более 1 см в диаметре...

Studopedia.info - Студопедия - 2014-2026 год . (0.007 сек.) русская версия | украинская версия