Графика в Турбо Паскале — страница 3

  • Просмотров 3040
  • Скачиваний 278
  • Размер файла 22
    Кб

соответственно по горизонтали и вертикали. Процедура SetViewPort. Устанавливает прямоугольное окно на графическом экране. Заголовок: Procedure SetVievPort(X1, Y1, X2, Y2: Integer; ClipOn: Boolean); Здесь X1..Y2 – координаты левого верхнего(Х1,Y1) и правого нижнего(X2,Y2) углов окна; ClipOn – выражение типа Boolean, определяющее «отсечку» не умещающихся в окне элементов изображения. Процедура ClearDevice. Очищает графический экран. После обращения к процедуре указатель

устанавливается в левый верхний угол, а сам экран заполняется цветом фона, заданным процедурой SetBkColor. 1.3 Линии и точки Процедура PutPixel. Выводит заданным цветом точку по указанным координатам. Заголовок: Procedure PutPixel(X, Y: Inteder; Color: word); Здесь X, Y – координаты точки; Color – цвет точки. Процедура Line. Вычерчивает линию с указанными координатами начала и конца. Заголовок: Procedure Line(X1, Y1, X2, Y2: Integer); Здесь X1..Y1 – координаты начала(X1,Y1) и конца(X2,Y2)

линии. Линия вычерчивается текущем стилем и текущим цветом. Процедура SetLineStyle. Устанавливает новый стиль вычерчиваемых линий. Заголовок: Procedure SetLineStyle(Type, Pattern, Thick: Word); Здесь Type, Pattern, Thick – соответственно тип, образец и толщина линии. Тип линии может быть создан с помощью одной из следующих констант: Const SolidLn= 0; (Сплошная линия) DottedLn= 1; (Точечная линия) CenterLn= 2; (Штрих-пунктирная линия) DashedLn= 3; (Пунктирная линия) UserBitLn= 4; (Узор линии

определяемый пользователем) 1.4. Многоугольники Процедура Rectangle. Вычерчивает прямоугольник с указанными координатами углов. Заголовок: Procedure Rectangle(X1, Y1, X2, Y2: Integer); Здесь X1..Y2 – координаты левого верхнего угла(X1,Y1) и правого нижнего(X2,Y2) углов прямоугольника. Прямоугольник вычерчивается с использованием текущего цвета и текущего стиля линий. 1.5. Дуги, окружности, эллипсы Процедура Circle. Вычерчивает окружность. Заголовок: Procedure Circle(X, Y:

Integer; R: Word); Здесь X,Y – координаты центра; R – радиус в пикселях. Окружность выводится текущим цветом. Толщина линии устанавливается текущим стилем, вид линии всегда SolidLn(Сплошная). Процедура вычерчивает правильную окружность с учетом изменения линейного размера радиуса в зависимости от его направления относительно сторон графического экрана, т.е. с учетом коэффициента GetAspectRatio. В связи с этим параметр R определяет количество

пикселей в горизонтальном направлении. Процедура Arc. Чертит дугу окружности. Заголовок: Procedure Arc(X, Y: Integer; BegA, EndA, R: Word); Здесь X, Y – координаты центра; BegA, EndA –соответственно начальный и конечный углы дуги; R – радиус. Углы описываются против часовой стрелки и указываются в градусах. Нулевой угол соответствует горизонтальному направлению вектора слева направо. Если задать значения начального угла 0 и конечного – 359, то будет