Информатика. Часть 1. Мойзес О.Е - 107 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

107
Для создания графических изображений модуль Graph
предоставляет широкий набор процедур и функций.
Вывод точки и линии.
PutPixel(X,Y:integer;Color:word) - ставит на экране точку с
координатами (X,Y) цвета Color.
Line(X1,Y1,X2,Y2:integer) - выводит на экран линию,
соединяющую точки с координатами (X1,Y1) и (X2,Y2).
Rectangle(X1,Y1,X2,Y2:integer) - выводит на экран изображение
прямоугольника с координатами диагонали (X1,Y1) и (X2,Y2).
Circle(X,Y:integer;Radius:word) - выводит на экран изображение
окружности с координатами центра (X,Y) и радиусом (Radius).
Ellipse(X,Y :integer; StAngle, EndAngle, XRadius, YRadius:
word)
- выводит на экран изображение эллиптической дуги с центром в
точке (X,Y) от начального угла StAngle до конечного угла EndAngle с
горизонтальной полуосью XRadius и вертикальной YRadius. Отсчет
углов осуществляется относительно горизонтальной оси в направлении
против часовой стрелки. (3 часа - 0, 12 часов - 90 и т.д.) Если StAngle=0,
а EndAngle=360, то будет выведено изображение полного эллипса.
SetColor(Color:integer) -устанавливает цвет линий.
SetLineStyle(LineStyle,Pattern,Thickness:Word)
–задает тип
(толщину) линии. Первый параметр изменяется от 0 до 4 и определяет
тип линии. В модуле Graph описаны следующие константы:
− SolidLn - 0 - непрерывная линия,
− DottedLn - 1 - точечная линия,
− CenterLn - 2 - штрихпунктирная линия,
− DashedLn - 3 - штриховая линия,
− UserBitLn - 4 - тип линии, указываемый пользователем.
Второй параметр задает тип линии, он необходим, если первый
параметр равен 4. Третий параметр задает толщину линии.
− NormWidth - 1 - тонкая линия,
− ThickWidth - 3 - толстая линия.
Рассмотрим пример:
uses Graph;
var Gd,Gm:integer;
begin
Gd:=Detect;
InitGraph(Gd,Gm,'с:\bp\bgi');
rectangle(100,50,200,100);
line(100,50,200,100);
line(100,100,200,50);
ellipse(150,75,0,360,50,25);

Страницы