- Процедура FloodFill.
- Заливка замкнутой области
- Решение
- Pascal: Занятие № 4 часть II. Графика в Паскале
- Графика в Паскале
- Управление цветом
- Точки, отрезки и ломаные
- Рисование фигур
- Функция random для использования окраски
- Анимация в Паскале
- Машинная графика языка Паскаль. Закрашивание замкнутых областей
- Ход урока
- 1. Организационный момент. 3 мин.
- 2. Проверка знаний учащихся по теме “Машинная графика”; Устная работа. 7 мин. programm primer uses graf, crt; var grdriver,grmode:integer; begin grdriver:=detect Init graph (grdriver,grmode,”); repeat until keypresed; clozegraph; end. – Ваша задача нарисовать точку. (изображение см. выше) Ответы учащихся: PutPixel с английского дословный перевод Поставить точку. Всем понятно? Вот! Координаты точки и укажем цвет. Проще оператора, поверьте, просто нет! PutPixel (100,40,2); Чтоб окружность нам нарисовать Слово Circle следует набрать В круглых скобках три числа укажем: Точку центра – х и у, радиус покажем. Circle (100,40,40); Отрезок мы рисуем так: line набираем – это ведь пустяк, А дальше в круглых скобках отразим Концов координаты. Помним! запятыми разделим! Line (100,80,60,140); Чтоб квадрат нарисовать 4 оператора не будем набирать! Rectangle нам его поможет получить Осталось лишь координаты диагонали определить. Rectangle (60,0,140,80); 3. Компьютерное тестирование. 7 мин. (pril1 и pril2 – 2 варианта электронного теста) Возможен бумажный вариант тестирования – Приложение 1 4. Объяснение нового материала Закрасить область нам не сложно, Лишь только б замкнута была. Два друга нам помогут это сделать FloodFill и SetFillStyle. Первым на помощь идет SetFillStyle Цвет краски и стиль выбирать помогает, А следом за ним и FloodFill Замкнутую область нужной краской залил. SetFillStyle предполагает Два параметра всего Узор заливки и цвет Таблица на них прольет нам свет. Затем FloodFill мы наберем И в круглые скобки координаты точки поставим Но это еще не все! Цвет замкнутой линии компьютеру скажем. Вы видите, что для закрашивания нам цвет границы будет необходим! Добавим оператор, чтобы построить красную окружность setcolor (4), желтый квадрат setcolor(14) и синий треугольник setcolor (1). Для закрашивания квадрата укажем SetFillStyle (1,14); FloodFill (100,40,14); Вопросы по закрашиванию замкнутых областей или по графическим операторам есть? Нет, тогда прежде чем приступить к практической работе проведем физминутку. 5. Физкультминутка 2 мин. Сейчас мы поиграем с вами. Я буду называть графические операторы, а вы будете определять нужны ли они при написании программы. Если нет, то будете моргать глазами, если да, то выполнять действие соответствующее оператору. SetBkColor (цвет) Шаг вперед Закрасить красный квадрат синим цветом.
Процедура FloodFill.
Процедура FloodFill закрашивает замкнутую область. Данная процедура имеет 3 параметра. Первые 2 параметра определяют точку с координатами, откуда начинается закраска. 3-й параметр определяет границу закраски.
Строка №19. Устанавливаем красный цвет для окружности.
Строка №20. Устанавливаем тип и цвет закраски.
Строка №21. Рисуем окружность.
Строка №22. Устанавливаем зеленый цвет для 2-ой окружности.
Строка №23. Рисуем 2-ую окружность.
Строка №24. Процедура FloodFill закрашивает замкнутую область. Первые 2 параметра являются координатой и определяют, какая область будет закрашена. В нашем примере эти параметры имеют значения 150 пикселей,150 пикселей. Эта точка входит в обе окружности, которые мы нарисовали. Поэтому какая-то из этих окружностей будет закрашена. Какая именно – зависит от 3-го параметра процедуры. Он определяет цветовую границу закраски. В нашем примере этот параметр равен 2, т.е. имеет зеленую цветовую границу. Поэтому будет закрашена зеленая окружность (та, что в строке №23).
Тип и цвет закраски установлен в строке №20.
Теперь поменяем строку №24, установив в качестве цветовой границы красный цвет (строка №24 будет иметь вид FloodFill (150,150, 4)). После этих изменений границей закраски будет красная окружность.
После запуска программы получится:
Если первые 2 параметра будут иметь другие координаты, которые выходят за пределы окружностей, то закрашена будет вся область, которая лежит за пределами окружностей.
Изменим строку №24 на такую: FloodFill(300,300, 4). В результате, будет закрашена область, лежащая за пределами обоих окружностей. Причем границей закраски будет красная окружность.
Теперь изменим строку №24 на такую FloodFill(300,300, 2). В результате будет закрашена область, лежащая за пределами зеленой окружности.
Если в качестве 3-го параметра указать несуществующую цветовую границу, то будет зарисован весь экран. Например, запишем строку №24 в таком виде FloodFill (300,300, 1). Здесь в качестве цветовой границы указан синий цвет, но в нашей программе нет замкнутых областей, имеющих синюю границу, поэтому будет зарисован весь экран.
Заливка замкнутой области
Заливка замкнутой области
Не могу понять функцию Floodfill. Ну как с ее помощью можно з акрасить необходимую область.
Заливка замкнутой области
Всем привет. Суть такова: создать по окружности 2 синусоиды с периодом 7 (на произвольном.
Заливка замкнутой фигуры.
Нужно реализовать алгоритм заливки с затравкой. Вроде бы приведённый ниже алгоритм вполне логичен.
(ТФКП) Вычислить интеграл по замкнутой области
Делитесь соображениями! В первую очередь нужны 2,5,6 и 9, остальные после.
Решение
А если вынести данное действие в процедуру, то вот так:
Определить принадлежность точки замкнутой 3D области
Здравствуйте. Как определить находится ли точка внутри замкнутой односвязной 3D области.
находится ли точка на плоскости в замкнутой области
С помощью условного оператора определить, находится ли точка на плоскости в замкнутой области. Если.
Определить, находится ли точка на плоскости в замкнутой области
С помощью условного оператора определить, находится ли точка на плоскости в замкнутой области.
Определить, находится ли точка на плоскости в замкнутой области
Помогите пожалуйста арифметическими выражениями и условными операторами и вычислениями сумм и.
Pascal: Занятие № 4 часть II. Графика в Паскале
Графика в Паскале
Для работы с графикой в pascal abc используется модуль GraphABC. Для его подключения используется следующий код:
Система координат в Паскале соответствует экранной системе координат и выглядит следующим образом:
Управление цветом
Для того, чтобы использовать цвет, необходимо применить этот цвет к инструменту перо:
или использовать для заливки:
После чего можно использовать процедуры для рисования геометрических фигур.
clBlack – черный
clPurple – фиолетовый
clWhite – белый
clMaroon – темно-красный
clRed – красный
clNavy – темно-синий
clGreen – зеленый
clBrown – коричневый
clBlue – синий
clSkyBlue – голубой
clYellow – желтый
clCream – кремовый
clAqua – бирюзовый
clOlive – оливковый
clFuchsia – сиреневый
clTeal – сине-зеленый
clGray – темно-серый
clLime – ярко-зеленый
clMoneyGreen – цвет зеленых денег
clLtGray – светло-серый
clDkGray – темно-серый
clMedGray – серый
clSilver – серебряный
Точки, отрезки и ломаные
Для отображения точки в паскале используется процедура:
uses GraphABC; begin SetPixel(300,200,clred); end.
Для рисования линии используется:
uses GraphABC; begin SetPenColor(clgreen); line(100,50,500,250); end.
[Название файла: L4_2task0.pas ]
Для установки размеров графического окна используется процедура
Рисование фигур
uses GraphABC; begin Rectangle(50,50,200,200); end.
uses GraphABC; begin Rectangle(50,50,200,200); FloodFill(100,100,clBlue); end.
Line(x1,y1,x2,y2);
LineTo(x,y);
uses GraphABC; begin setpenwidth(20); setpencolor(clred); moveTo(300,100); lineTo(500,300); lineto(100,300); lineto(300,100); floodfill(300,200,clgreen); end.
uses GraphABC; begin Circle(500,200,100); FloodFill(500,200,clred); end.
uses GraphABC; Begin SetPenWidth(10); Arc(300,250,150,45,135); end.
[Название файла: L4_2task1.pas ]
[Название файла: L4_2task2.pas ]
Функция random для использования окраски
* раскрасить круги случайным цветом
[Название файла: L4_2task3.pas ]
[Название файла: L4_2task4.pas ]
[Название файла: L4_2task5.pas ]
Нарисовать штриховку на Паскале можно, используя процедуры рисования прямоугольника и линии: 
Программа будет выглядеть следующим образом:
[Название файла: L4_2task6.pas ]
Анимация в Паскале
Анимация в программировании заключается в том, что сначала рисуется фигура цветным инструментом, затем с тем же координатами рисуется та же фигура белым цветом. После чего происходит сдвиг фигуры и действия повторяются.
uses GraphABC; var x:integer; begin x:=40; repeat SetPenColor(clWhite); Circle(x,100,10); <Рисуем белую окружность>SetPenColor(clBlack); Circle(x,100,10); <Рисуем черную окружность>x:=x+1 <Перемещаемся немного направо>until x>600; end.
Машинная графика языка Паскаль. Закрашивание замкнутых областей
Продолжительность: 45 минут
Вид урока: комбинированный урок систематизации изученного материала и изучения нового материала.
Формы работы: фронтальные, индивидуальные, групповые.
Технологии обучения: личностно-ориентированные, развивающие, здоровьесберегающие.
Оборудование: магниты 8 шт., зрительные тренажеры, карточки-задания, распечатка “Таблицы графических параметров”.
Ход урока
1. Организационный момент. 3 мин.
1) Проверка посещаемости и готовности класса к уроку.
2) Сообщение темы, целей и хода урока.
Сегодня в ходе урока мне бы хотелось поговорить с вами о событиях в жизни людей, над которыми не властно время, они навсегда останутся в памяти народной. Как вы считаете, какие события я имею в виду? Вы правы, таким событием является Великая Отечественная война 1941-1945 годов. Она вошла в историю нашей страны, в историю человечества как эпопея, небывалая по своим масштабам героизма на полях сражений, самоотверженного подвига народа на трудовом фронте. Тема войны всегда нас будет волновать – она принесла великую беду. Эта война унесла двадцать миллионов жизней нашего народа. В этом году мы будем праздновать 65-летие Великой Победы. Ребята, мы с вами не вправе забывать тех, кто отдал свою жизнь за наше будущее, за мир на Земле. Вы, наверное, знаете, что 7 мая на территории нашей школы будет открыта мемориальная доска в память о героях-карболитовцах. А вы знаете, чьи имена будут высечены на ней? Об этих людях мы сегодня с вами еще поговорим, но позже. А сейчас перейдем непосредственно к теме нашего урока “Машинная графика языка Паскаль”. Сегодня нам предстоит создать титульную страницу викторины о Великой Отечественной войне.
В процессе выполнения данной работы мы с вами должны закрепить навыки создания графических примитивов: точка, отрезок, окружность, прямоугольник и изучить и отработать навыки закрашивания замкнутых областей.
А на следующий урок в качестве домашнего задания я вам предлагаю продумать по 3 вопроса этой викторины. Это будет ваш первый опыт серьезного программирования. Помните, что наша работа будет коллективной, т.е. от вклада каждого будет зависеть конечный результат. Мы с вами выполним коллективный проект, с помощью которого в итоге любой желающий сможет на уроке истории проверить свои знания о Великой Отечественной войне.
2. Проверка знаний учащихся по теме “Машинная графика”; Устная работа. 7 мин. programm primer
uses graf, crt;
var grdriver,grmode:integer;
begin
grdriver:=detect
Init graph (grdriver,grmode,”); repeat until keypresed;
clozegraph;
end.
– Ваша задача нарисовать точку. (изображение см. выше)
Ответы учащихся:
PutPixel с английского дословный перевод
Поставить точку. Всем понятно? Вот!
Координаты точки и укажем цвет.
Проще оператора, поверьте, просто нет!
PutPixel (100,40,2);
Чтоб окружность нам нарисовать
Слово Circle следует набрать
В круглых скобках три числа укажем:
Точку центра – х и у, радиус покажем.
Circle (100,40,40);
Отрезок мы рисуем так:
line набираем – это ведь пустяк,
А дальше в круглых скобках отразим
Концов координаты. Помним! запятыми разделим!
Line (100,80,60,140);
Чтоб квадрат нарисовать
4 оператора не будем набирать!
Rectangle нам его поможет получить
Осталось лишь координаты диагонали определить.
Rectangle (60,0,140,80);
3. Компьютерное тестирование. 7 мин.
( pril1 и pril2 – 2 варианта электронного теста) Возможен бумажный вариант тестирования – Приложение 1
4. Объяснение нового материала
Закрасить область нам не сложно,
Лишь только б замкнута была.
Два друга нам помогут это сделать
FloodFill и SetFillStyle.
Первым на помощь идет SetFillStyle
Цвет краски и стиль выбирать помогает,
А следом за ним и FloodFill
Замкнутую область нужной краской залил.
SetFillStyle предполагает
Два параметра всего
Узор заливки и цвет
Таблица на них прольет нам свет.
Затем FloodFill мы наберем
И в круглые скобки координаты точки поставим
Но это еще не все!
Цвет замкнутой линии компьютеру скажем.
Вы видите, что для закрашивания нам цвет границы будет необходим!
Добавим оператор, чтобы построить красную окружность setcolor (4), желтый квадрат setcolor(14) и синий треугольник setcolor (1).
Для закрашивания квадрата укажем SetFillStyle (1,14); FloodFill (100,40,14);
Вопросы по закрашиванию замкнутых областей или по графическим операторам есть? Нет, тогда прежде чем приступить к практической работе проведем физминутку.
5. Физкультминутка 2 мин.
Сейчас мы поиграем с вами. Я буду называть графические операторы, а вы будете определять нужны ли они при написании программы. Если нет, то будете моргать глазами, если да, то выполнять действие соответствующее оператору.
SetBkColor (цвет) Шаг вперед Закрасить красный квадрат синим цветом. Шаг назад
Поморгать
Поморгать
Приседание
Наклон вправо
Наклон влево
SetColor (цвет) Шаг назад Line (x1, y1, x2, y2) Руки вверх Circle (x, y, r) Руки в стороны Rectangle (x1, y1, x2, y2) Приседание SetFilleStyle (штриховка, цвет) Наклон вправо FloodFill (x, y, цвет границы) Наклон влево
6. Закрепление нового материала Практическая работа за компьютером 15 мин.
Сколько операторов нужно набрать, чтобы построить закрашенный прямоугольник? 4
Кто-нибудь из вас знает, какую награду мы сейчас с вами будем рисовать? Приложение 2.
Это звезда героя Советского Союза. Четверо карболитовцев удостоены этого звания. Одного из них вы хорошо знаете, его именем названа улица, на которой стоит наша школа. Кто это? Правильно, Владимир Илларионович Бондаренко. Звание Героя Советского Союза ему присвоили посмертно. Он участвовал в рейдах партизан по маршруту Брянск—Гомель, подрывал вражеские эшелоны. 6 ноября 1943 года группа подрывников соединения черниговских партизан, возвращаясь на базу после выполнения боевого задания, попала в засаду. Входивший в состав группы В.И. Бондаренко погиб в бою, прикрывая отход товарищей.
Графика на Pascal. Основные процедуры (команды)
В чем заключается вопрос: Как начать работать с графикой на языке Pascal. Основные процедуры(команды).
Сложность: средняя.
Сразу стоит сказать что если вы будите использовать для графики программу PascalABC, то эта статья вам не много не подойдет, за исключение нескольких процедур(команд). Для этой статьи могут использоваться программы Turbo и FreePascal.
Для того чтобы рисовать в Паскале всякие графики, линии, круги и т.д., нужен определенный модуль uses graph, который подключается в самом начале программы:
Дальше в программе нужно открыть окно где мы будет рисовать, т.е. когда мы запустим программу откроется окно графического режима где будет отображено, то что мы нарисовали.
Не надо сильно думать над этой строкой, она практически всегда одинакова. Но про неё расскажу. Как я и сказал это процедура используется для открытия графического режима. У неё 3 параметра:
Графический драйвер Константа режима Растр Палитра Число страниц Имя Значение Имя Значение Detect 0 Выбор драйвера автоматически CGA 1 CgaC0 0 320*200 C0 1 CgaC1 1 320*200 C1 1 CgaC2 2 320*200 C2 1 CgaC3 3 320*200 C3 1 CgaHi 4 640*200 2 цвета 1 MCGA 2 McgaC0 0 320*200 C0 1 McgaC1 1 320*200 C1 1 McgaC2 2 320*200 C2 1 McgaC3 3 320*200 C3 1 mcgaMed 4 640*200 2 цвета 1 McgaHi 5 640*480 2 цвета 1 EGA 3 EgaLo 0 640*200 16 цвет. 4 EgaHi 1 640*350 16 цвет. 2 VGA 9 VgaLo 0 640*200 16 цвет. 2 VgaMed 1 640*350 16 цвет. 2 VgaHi 2 640*480 16 цвет. 1
Вот это стандарт, т.е. написав вот это, только поменяв путь к файлу вы сможете спокойно работать, не думая ни о чем, режим у вас установится автоматически, если вы хотите свой режим то присвойте переменным d и m цифры из таблицы.
Если напишете так, будет ошибка:
Ну а дальше осталось только рисовать. В принципе дальше можно не читать всё равно не запомните)). Дальнейший материал поможет вам в решение задач, которые мы вскоре разберем и будем обращаться сюда.
Основные процедуры(команды)
Установка цвета.
Имя константы Номер цвета Цвет Black 0 Черный Blue 1 Темно-синий Green 2 Темно-зеленый Cyan 3 Бирюзовый Red 4 Красный Magenta 5 Фиолетовый Brown 6 Коричневый LightGray 7 Светло-серый DarkGray 8 Темно-серый LightBlue 9 Синий LightGreen 10 Светло — зеленый LightCyan 11 Светло-бирюзовый LightRed 12 Розовый LightMagenta 13 Малиновый Yellow 14 Желтый White 15 Белый
Например цвет линий которые будут отображаться на экране можно задать так:
Установка цвета фона.
Чтобы установить цвет фона для всего экрана, используется процедура:
Если процедура установки цвета фона не вызвана, экран будет черным.
Установка указателя вывода.
Процедура MoveTo ( x, y: integer) перемещает указатель в точку с координатами x, y.
Процедура MoveRel ( dx, dy: integer) перемещает указатель на dx, dy пикселей относительно последнего положения.
Функции GetX и GetY возвращают координаты x, y указателя вывода.
Установка точки
Процедура PutPixel ( x, y: integer; color: word) устанавливает точку с координатами ( x, y) и закрашивает ее указанным цветом color.
Функция GetPixel ( x, y: integer): word возвращает значение цвета, в который окрашена точка с координатами ( x, y).
Рисование линий
Процедура Line ( x1, y1, x2, y2: integer) вычерчивает линию между двумя точками экрана с координатами ( x1, y1) и ( x2, y2).
Процедура LineTo ( x, y: integer) вычерчивает линию от последнего положения указателя до точки с координатами ( x, y).
Окружность, эллипс, дуга, сектор
Процедура Circle ( x, y: integer; r: word) вычерчивает окружность радиуса r с центром в точке с координатами ( x, y).
Процедура Arc ( x, y, ugol_ begin, ugol_ end, r: integer) вычерчивает дугу окружности радиуса r с центром в точке с координатами ( x, y). Параметры ugol_ begin и ugol_ end задают угловые координаты начала и конца дуги. Отсчет углов ведется против часовой стрелки. Значения угловых координат задается в градусах.
Процедура Ellips ( x, y: integer; ugol_ begin, ugol_ end, rx, ry: word) вычерчивает эллипс или дугу эллипса с центром в точке с координатами ( x, y). Параметры ugol_ begin и ugol_ end задают угловые координаты начала и конца дуги. Параметры rx и ry определяют горизонтальный и вертикальный радиусы эллипса.
Процедура PieSlice ( x, y: integer; ugol_ begin, ugol_ end, r: word) вычерчивает сектор окружности радиуса r с центром в точке с координатами ( x, y ). Параметры ugol_ begin и ugol_ end задают угловые координаты начала и конца сектора.
Сектор может быть закрашен в соответствии со стилем, заданным процедурой SetFillStyle (о ней читайте ниже).
Процедура Sector ( x, y: integer; ugol_ begin, ugol_ end, rx, ry: word) вычерчивает сектор эллипса с центром в точке с координатами ( x, y) и горизонтальным радиусом rx, вертикальным — ry. Параметры ugol_ begin и ugol_ end задают угловые координаты начала и конца сектора.
Сектор может быть закрашен в соответствии со стилем, заданным процедурой SetFillStyle.
Прямоугольник, закрашенный прямоугольник, параллелепипед
Процедура Rectangle ( x1, y1, x2, y2: integer) вычерчивает контур прямоугольника. Параметры x1, y1 задают положение левого верхнего угла, x2, y2 – правого нижнего.
Процедура Bar ( x1, y1, x2, y2: integer) вычерчивает закрашенный прямоугольник. Параметры x1, y1 задают положение левого верхнего угла, x2, y2 – правого нижнего. Стиль и цвет заливки определяется процедурой SetFillStyle.
Процедура Bar3 D ( x1, y1, x2, y2: integer; глубина: word; граница: boolean) вычерчивает параллелепипед. Параметры x1, y1 задают положение левого верхнего угла, x2, y2 – правого нижнего угла ближней грани. Параметр глубина задает расстояние между передней и задней гранями в пикселях. Параметр граница определяет, нужно ли вычерчивать верхнюю границу задней грани параллелепипеда. Стиль и цвет заливки ближней грани определяется процедурой SetFillStyle.
Вывод текста в графическом режиме.
Процедура OutText ( text: string) выводит строку символов text от текущей позиции указателя вывода и перемещает указатель в точку, расположенную за последним выведенным символом.
Процедура OutTextXY ( x, y: integer; text: string) выводит строку символов text, начиная с точки с координатами ( x, y), при этом указатель своего положения не меняет, т.е. остается в точке ( x, y ).
Стиль вычерчиваемых линий, контуров
Процедура SetLineStyle ( type, pattern, thick: word) устанавливает стиль вычерчиваемых линий. Здесь type, pattern, thick – соответственно тип, образец и толщина линии.
Тип линии может быть задан с помощью одной из следующих констант:
Параметр Pattern учитывается только для линий, вид которых определяется пользователем, т.е. если type=4. Во всех остальных случаях можно поставить любое значение типа word (но обязательно поставить, все-таки это параметр процедуры, значит должен быть).
Каким образом можно задать пользовательский тип линии? Под тип линии отводится переменная типа word, т.е. два байта. Эти два байта и определяют образец линии: каждый установленный в единицу бит этого слова соответствует светящейся точке, нулевой бит — несветящийся пиксель. Таким образом, задается отрезок линии длиной в 16 пикселей. Этот образец периодически повторяется по всей длине линии.
Параметр thick может принимать одно из двух значений:
Стиль и цвет заливки
Процедура SetFillStyle ( style, color: word) устанавливает стиль и цвет заливки (закрашивания) областей ( Bar, Bar3 D, Sector и др.). В качестве параметра style используют одну из констант:
Стиль вывода текста
Процедура SetTextStyle ( font, orient, size: word) устанавливает шрифт font, ориентацию orient и размер size текста, выводимого на экран. Параметр font может принимать одну из констант:
В 7.0 версии Паскаля набор шрифтов значительно расширен, но для новых шрифтов не придуманы мнемонические константы, поэтому можно использовать такие номера шрифтов:
Замечание: все шрифты, кроме стандартного (матричного), являются векторными, что позволяет изменять их размеры без ухудшения качества. Каждый из этих шрифтов размещается в отдельном файле. Для использования этих шрифтов необходимо разместить соответствующий файл в рабочем каталоге, в противном случае вызов этого шрифта игнорируется и подключается стандартный шрифт.
Параметр orient задает ориентацию выводимого текста:
Каждый шрифт способен десятикратно изменять свои размеры. Размер шрифта задается параметром size, который может иметь значения от 1 до 10 (точечный или матричный шрифт – в диапазоне от 1 до 32).
Заполнение (закрашивание) произвольной замкнутой фигуры
Процедура FloodFill ( x, y: integer; border: word) заполняет произвольную замкнутую фигуру, используя текущий стиль и цвет заполнения. Координаты точки ( x, y ) указывают, начиная с какой точки будет производиться заливка. Если точка находится внутри замкнутой фигуры, то будет закрашена внутренняя область. Если фигура не замкнута, то заливка разольется по всему экрану. Параметр border указывает цвет граничной линии.
Очистка графического экрана
Процедура ClearDevise очищает графический экран, устанавливает указатель в левый верхний угол.
Сразу вы естественно это не поймёте, нужна практика и еще раз практика иначе не как. Удачи. Спасибо за внимание.
Как перепрошить планшет андроид самостоятельно без Узнать какая видеокарта на компьютере windows 10 Узнать Adblock
detector
| programm primer uses graf, crt; var grdriver,grmode:integer; begin grdriver:=detect Init graph (grdriver,grmode,”); repeat until keypresed; | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| SetBkColor (цвет) | Шаг вперед | Закрасить красный квадрат синим цветом. Шаг назад |
| SetColor (цвет) | Шаг назад | |
| Line (x1, y1, x2, y2) | Руки вверх | |
| Circle (x, y, r) | Руки в стороны | |
| Rectangle (x1, y1, x2, y2) | Приседание | |
| SetFilleStyle (штриховка, цвет) | Наклон вправо | |
| FloodFill (x, y, цвет границы) | Наклон влево |
6. Закрепление нового материала Практическая работа за компьютером 15 мин.
Сколько операторов нужно набрать, чтобы построить закрашенный прямоугольник? 4
Кто-нибудь из вас знает, какую награду мы сейчас с вами будем рисовать? Приложение 2.
Это звезда героя Советского Союза. Четверо карболитовцев удостоены этого звания. Одного из них вы хорошо знаете, его именем названа улица, на которой стоит наша школа. Кто это? Правильно, Владимир Илларионович Бондаренко. Звание Героя Советского Союза ему присвоили посмертно. Он участвовал в рейдах партизан по маршруту Брянск—Гомель, подрывал вражеские эшелоны. 6 ноября 1943 года группа подрывников соединения черниговских партизан, возвращаясь на базу после выполнения боевого задания, попала в засаду. Входивший в состав группы В.И. Бондаренко погиб в бою, прикрывая отход товарищей.
Графика на Pascal. Основные процедуры (команды)
В чем заключается вопрос: Как начать работать с графикой на языке Pascal. Основные процедуры(команды).
Сложность: средняя.
Сразу стоит сказать что если вы будите использовать для графики программу PascalABC, то эта статья вам не много не подойдет, за исключение нескольких процедур(команд). Для этой статьи могут использоваться программы Turbo и FreePascal.
Для того чтобы рисовать в Паскале всякие графики, линии, круги и т.д., нужен определенный модуль uses graph, который подключается в самом начале программы:
Дальше в программе нужно открыть окно где мы будет рисовать, т.е. когда мы запустим программу откроется окно графического режима где будет отображено, то что мы нарисовали.
Не надо сильно думать над этой строкой, она практически всегда одинакова. Но про неё расскажу. Как я и сказал это процедура используется для открытия графического режима. У неё 3 параметра:
| Графический драйвер | Константа режима | Растр | Палитра | Число страниц | ||
| Имя | Значение | Имя | Значение | |||
| Detect | 0 | Выбор драйвера автоматически | ||||
| CGA | 1 | CgaC0 | 0 | 320*200 | C0 | 1 |
| CgaC1 | 1 | 320*200 | C1 | 1 | ||
| CgaC2 | 2 | 320*200 | C2 | 1 | ||
| CgaC3 | 3 | 320*200 | C3 | 1 | ||
| CgaHi | 4 | 640*200 | 2 цвета | 1 | ||
| MCGA | 2 | McgaC0 | 0 | 320*200 | C0 | 1 |
| McgaC1 | 1 | 320*200 | C1 | 1 | ||
| McgaC2 | 2 | 320*200 | C2 | 1 | ||
| McgaC3 | 3 | 320*200 | C3 | 1 | ||
| mcgaMed | 4 | 640*200 | 2 цвета | 1 | ||
| McgaHi | 5 | 640*480 | 2 цвета | 1 | ||
| EGA | 3 | EgaLo | 0 | 640*200 | 16 цвет. | 4 |
| EgaHi | 1 | 640*350 | 16 цвет. | 2 | ||
| VGA | 9 | VgaLo | 0 | 640*200 | 16 цвет. | 2 |
| VgaMed | 1 | 640*350 | 16 цвет. | 2 | ||
| VgaHi | 2 | 640*480 | 16 цвет. | 1 | ||
Вот это стандарт, т.е. написав вот это, только поменяв путь к файлу вы сможете спокойно работать, не думая ни о чем, режим у вас установится автоматически, если вы хотите свой режим то присвойте переменным d и m цифры из таблицы.
Если напишете так, будет ошибка:
Ну а дальше осталось только рисовать. В принципе дальше можно не читать всё равно не запомните)). Дальнейший материал поможет вам в решение задач, которые мы вскоре разберем и будем обращаться сюда.
Основные процедуры(команды)
Установка цвета.
| Имя константы | Номер цвета | Цвет |
| Black | 0 | Черный |
| Blue | 1 | Темно-синий |
| Green | 2 | Темно-зеленый |
| Cyan | 3 | Бирюзовый |
| Red | 4 | Красный |
| Magenta | 5 | Фиолетовый |
| Brown | 6 | Коричневый |
| LightGray | 7 | Светло-серый |
| DarkGray | 8 | Темно-серый |
| LightBlue | 9 | Синий |
| LightGreen | 10 | Светло — зеленый |
| LightCyan | 11 | Светло-бирюзовый |
| LightRed | 12 | Розовый |
| LightMagenta | 13 | Малиновый |
| Yellow | 14 | Желтый |
| White | 15 | Белый |
Например цвет линий которые будут отображаться на экране можно задать так:
Установка цвета фона.
Чтобы установить цвет фона для всего экрана, используется процедура:
Если процедура установки цвета фона не вызвана, экран будет черным.
Установка указателя вывода.
Процедура MoveTo ( x, y: integer) перемещает указатель в точку с координатами x, y.
Процедура MoveRel ( dx, dy: integer) перемещает указатель на dx, dy пикселей относительно последнего положения.
Функции GetX и GetY возвращают координаты x, y указателя вывода.
Установка точки
Процедура PutPixel ( x, y: integer; color: word) устанавливает точку с координатами ( x, y) и закрашивает ее указанным цветом color.
Функция GetPixel ( x, y: integer): word возвращает значение цвета, в который окрашена точка с координатами ( x, y).
Рисование линий
Процедура Line ( x1, y1, x2, y2: integer) вычерчивает линию между двумя точками экрана с координатами ( x1, y1) и ( x2, y2).
Процедура LineTo ( x, y: integer) вычерчивает линию от последнего положения указателя до точки с координатами ( x, y).
Окружность, эллипс, дуга, сектор
Процедура Circle ( x, y: integer; r: word) вычерчивает окружность радиуса r с центром в точке с координатами ( x, y).
Процедура Arc ( x, y, ugol_ begin, ugol_ end, r: integer) вычерчивает дугу окружности радиуса r с центром в точке с координатами ( x, y). Параметры ugol_ begin и ugol_ end задают угловые координаты начала и конца дуги. Отсчет углов ведется против часовой стрелки. Значения угловых координат задается в градусах.
Процедура Ellips ( x, y: integer; ugol_ begin, ugol_ end, rx, ry: word) вычерчивает эллипс или дугу эллипса с центром в точке с координатами ( x, y). Параметры ugol_ begin и ugol_ end задают угловые координаты начала и конца дуги. Параметры rx и ry определяют горизонтальный и вертикальный радиусы эллипса.
Процедура PieSlice ( x, y: integer; ugol_ begin, ugol_ end, r: word) вычерчивает сектор окружности радиуса r с центром в точке с координатами ( x, y ). Параметры ugol_ begin и ugol_ end задают угловые координаты начала и конца сектора.
Сектор может быть закрашен в соответствии со стилем, заданным процедурой SetFillStyle (о ней читайте ниже).
Процедура Sector ( x, y: integer; ugol_ begin, ugol_ end, rx, ry: word) вычерчивает сектор эллипса с центром в точке с координатами ( x, y) и горизонтальным радиусом rx, вертикальным — ry. Параметры ugol_ begin и ugol_ end задают угловые координаты начала и конца сектора.
Сектор может быть закрашен в соответствии со стилем, заданным процедурой SetFillStyle.
Прямоугольник, закрашенный прямоугольник, параллелепипед
Процедура Rectangle ( x1, y1, x2, y2: integer) вычерчивает контур прямоугольника. Параметры x1, y1 задают положение левого верхнего угла, x2, y2 – правого нижнего.
Процедура Bar ( x1, y1, x2, y2: integer) вычерчивает закрашенный прямоугольник. Параметры x1, y1 задают положение левого верхнего угла, x2, y2 – правого нижнего. Стиль и цвет заливки определяется процедурой SetFillStyle.
Процедура Bar3 D ( x1, y1, x2, y2: integer; глубина: word; граница: boolean) вычерчивает параллелепипед. Параметры x1, y1 задают положение левого верхнего угла, x2, y2 – правого нижнего угла ближней грани. Параметр глубина задает расстояние между передней и задней гранями в пикселях. Параметр граница определяет, нужно ли вычерчивать верхнюю границу задней грани параллелепипеда. Стиль и цвет заливки ближней грани определяется процедурой SetFillStyle.
Вывод текста в графическом режиме.
Процедура OutText ( text: string) выводит строку символов text от текущей позиции указателя вывода и перемещает указатель в точку, расположенную за последним выведенным символом.
Процедура OutTextXY ( x, y: integer; text: string) выводит строку символов text, начиная с точки с координатами ( x, y), при этом указатель своего положения не меняет, т.е. остается в точке ( x, y ).
Стиль вычерчиваемых линий, контуров
Процедура SetLineStyle ( type, pattern, thick: word) устанавливает стиль вычерчиваемых линий. Здесь type, pattern, thick – соответственно тип, образец и толщина линии.
Тип линии может быть задан с помощью одной из следующих констант:
Параметр Pattern учитывается только для линий, вид которых определяется пользователем, т.е. если type=4. Во всех остальных случаях можно поставить любое значение типа word (но обязательно поставить, все-таки это параметр процедуры, значит должен быть).
Каким образом можно задать пользовательский тип линии? Под тип линии отводится переменная типа word, т.е. два байта. Эти два байта и определяют образец линии: каждый установленный в единицу бит этого слова соответствует светящейся точке, нулевой бит — несветящийся пиксель. Таким образом, задается отрезок линии длиной в 16 пикселей. Этот образец периодически повторяется по всей длине линии.
Параметр thick может принимать одно из двух значений:
Стиль и цвет заливки
Процедура SetFillStyle ( style, color: word) устанавливает стиль и цвет заливки (закрашивания) областей ( Bar, Bar3 D, Sector и др.). В качестве параметра style используют одну из констант:
Стиль вывода текста
Процедура SetTextStyle ( font, orient, size: word) устанавливает шрифт font, ориентацию orient и размер size текста, выводимого на экран. Параметр font может принимать одну из констант:
В 7.0 версии Паскаля набор шрифтов значительно расширен, но для новых шрифтов не придуманы мнемонические константы, поэтому можно использовать такие номера шрифтов:
Замечание: все шрифты, кроме стандартного (матричного), являются векторными, что позволяет изменять их размеры без ухудшения качества. Каждый из этих шрифтов размещается в отдельном файле. Для использования этих шрифтов необходимо разместить соответствующий файл в рабочем каталоге, в противном случае вызов этого шрифта игнорируется и подключается стандартный шрифт.
Параметр orient задает ориентацию выводимого текста:
Каждый шрифт способен десятикратно изменять свои размеры. Размер шрифта задается параметром size, который может иметь значения от 1 до 10 (точечный или матричный шрифт – в диапазоне от 1 до 32).
Заполнение (закрашивание) произвольной замкнутой фигуры
Процедура FloodFill ( x, y: integer; border: word) заполняет произвольную замкнутую фигуру, используя текущий стиль и цвет заполнения. Координаты точки ( x, y ) указывают, начиная с какой точки будет производиться заливка. Если точка находится внутри замкнутой фигуры, то будет закрашена внутренняя область. Если фигура не замкнута, то заливка разольется по всему экрану. Параметр border указывает цвет граничной линии.
Очистка графического экрана
Процедура ClearDevise очищает графический экран, устанавливает указатель в левый верхний угол.
Сразу вы естественно это не поймёте, нужна практика и еще раз практика иначе не как. Удачи. Спасибо за внимание.
detector