Практическое занятие №9

Тема: Работа с экраном в графическом режиме.

Необходимый материал:

Основные процедуры и функции модуля Graph.

I. Информационные процедуры и процедуры установки режимов работы

1. IniGraph( Var GraphDriver : Integer;

Var GraphMode : Integer;

PathToDriver : String);

Процедура инициирует графический режим работы монитора.

2. CloseGraph: - процедура, завершающая работу в графическом режиме.

3. GraphResult : Integer: - функция, позволяющая определить код ошибки при инициализации графического режима.

4. GraphErrorMsg(GraphResult : Integer) : String: - функция, которая выдает строку текста сообщения, поясняющего причину ошибки в инициализации графического режима.

5. SetGraphMode(Md : Integer): процедура, устанавливающая указанный в переменной Md графический режим.

6. SetGraphMode : Integer : - функция, с помощью которой можно получить значение установленного графического режима.

7. GetMaxX : Integer; - функция, возвращающая максимальное значение координаты экрана X.

8. GetMaxY : Integer; - функция, возвращающая максимальное значение координаты экрана Y.

9. GetX : Integer; - функция, выдающая текущее значение X.

10. GetY : Integer; - функция, выдающая текущее значение Y.

11. MoveTo(X,Y : Integer); - процедура, задающая новые текущие координаты X и Y.

II. Процедуры для работы с геометрическими объектами

12. PutPixel(X, Y : Integer; Pixel : Word); - процедура, высвечивающая на экране цветом с номером Pixel точку с координатами X Y.

13. LineTo(X, Y : Integer); - процедура, проводящая линию из точки с текущими координатами в точку с координатами X, Y текущим цветом.

14. LineDel(Dx, Dy : Integer); - процедура, проводящая линию из точки с текущими координатами в точку с приращением координат от текущих на Dx и Dy установленным цветом.

15. Line(X1, Y1, X2, Y2 : Integer); - процедура, проводящая линию из точки с координатами X1,Y1 в точку с координатами X2,Y2 текущим цветом.

16. Rectanle(X1,Y1,X2,Y2 : Integer); - процедура, рисующая прямоугольник с координатами диагонали (X1,Y1) (X2,Y2).

17. Bar(X1,Y1,X2,Y2 : Integer); - процедура, рисующая закрашенный прямоугольник с координатами диагонали (X1,Y1) (X2,Y2).

18. Arc(X, Y : Integer Ang1, Ang2, R: Word); - процедура, рисующая дугу с центром в точке (X,Y) радиуса R, начальным углом Ang1 и конечным углом Ang2.

19. Circle(X,Y : Integer: Radius : Word); - процедура, рисующая окружность с центром в точке (X,Y) радиуса R.

20. Ellipse(XY : Integer; Ang1 Ang2: Word; Xr, Yr : Word); - процедура, рисующая дугу эллипса с центром в точке (X,Y) с полуосями Xr и Yr, начальным углом Ang1 и конечным углом Ang2.

21. PieSlice(X,Y : Integer; Angle1, Angle2, R : Word); - процедура, рисующая закрашенный сектор круга с центром в точке (X,Y), радиусом R, начальным углом Ang1 и конечным углом Ang2.

22. FillEllipse(X,Y : Integer; Xr, Yr : Word); - процедура, рисующая закрашенный эллипс с полуосями Xr и Yr центром в точке (X,Y).

23. Sector(X,Y : Integer; Ang1, Ang2, Xr, Yr : Word); - процедура, рисующая закрашенный сектор эллипса с центром в точке (X,Y), полуосями Xr, Yr начальным и конечными углами Ang1 и Ang2.

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

24. SetLineStyle(LineStyle : Word; Pattern : Word; Thick : Word); - процедура, которая задает тип линии рисования.

Возможные значения параметра LineStyle: 0 – сплошная, 1 – точечная, 2 – прерывистая, штрихпунктирная, 3 – прерывистая штриховая, 4 – определяется пользователем.

Параметр Pattern задает тип линии при LineStyle = 4. Этот параметр игнорируется, если LineStyle <4.

Параметр Thick задает толщину рисуемых линий: 1 – нормальная толщина, 3 – утроенная толщина.

III. Процедуры задания цвета:

25. SetColor(Color : Word); - процедура, задающая цвет рисуемого геометрического объекта. Параметр Color принимает значения в интервале 0..15.

26. GetColor: Word; - процедура, дающая значение текущего цвета рисунка.

27. SetBkColor(Color : Word); - процедура, задающая цвет фона.

28. GetBkColor(Color : Word); - процедура, определяющая цвет фона.

IY. Процедуры закрашивания геометрических фигур

29. SetFillStyle(Pattern : Word; Color : Word); - процедура, устанавливающая образец закраски фигуры. Параметр Pattern принимает значения в интервале 0..11.

30. FloodFill(X,Y : Integer; Border): - процедура, закрашивающая замкнутую область, внутри которой лежит точка (X,Y). Border – параметр, определяющий цвет границы области.

Y. Процедура работы с текстом

31. OutText(TextString : String); - процедура вывода текста на экран, начиная с текущей позиции.

32. OutTextXY(X, Y : Integer; TextString : String); -процедура вывода текста на экран, начиная с позиции (X,Y).

33. SetUserCharSize(MX, DivX, MY, DivY : Word); - процедура, которая задает размеры символов шрифта.

34. SetTextStyle(Font, Direction, CharSize : Word); - процедура, с помощью которой устанавливается тип выводимого текста. Параметр Font имеет следующие значения: 1 – утроенный шрифт, 2 – маленький шрифт, 3 – прямой шрифт, 4 – готический шрифт. Параметр Direction имеет следующие значения 0 – вывод текста слева направо, 1 – снизу вверх. Параметр CharSize принимает значения в интервале 0..30.