Модуль Graph

1. Модуль Graph

2. Экран в графическом режиме представляет собой прямоугольник, заполненный точками – пикселями. Для построения изображения используется система координат. Отсчет начинается от верхнего левого угла, который имеет координаты – (0,0). x Значение x увеличивается слева направо. Значение y увеличивается сверху вниз. X (0,0) y Y

3. Текущий указатель Текущий указатель в графическом режиме играет ту же роль, что и курсор в текстовом режиме, однако, в отличие от курсора, онневидим.

4. Подключение модуля Graph uses Graph; var gd,gm:integer; begin gd:=Detect;{автоматическое определение типа графического драйвера и режима работы адаптера} InitGraph(gd, gm, ‘путь к файлу драйвера’); Операторы; CloseGraph; end.

5. PutPixel(x,y,color); Выводит на экран точку с координатами(x,y) ицветом color. X x (0,0) y (x,y) Y

6. Line(x1,y1,x2,y2); Проводит прямую линиюиз точки с координатами (x1,y1) в точку с координатами (x2,y2). Положение текущего указателя не изменяется X x1 x2 (0,0) y1 y2 Y

7. Rectangle(x1,y1,x2,y2); Рисует прямоугольник с координатами (x1,y1)— верхний левый угол и (x2,y2)— нижний правый угол uses graph; var gd,gm,x,y,color:integer; Begin gd:=detect; InitGraph(gd,gm,'D:\TPascal.71\tp\BGI'); write('x,y: '); readln(x,y); clearDevice; Rectangle(x1,y1,x2,y2); readln; end. X x1 x2 y1 y2 Y

8. Circle(x,y,radius) Рисует окружность с центром в точке (x,y) и радиусом radius X (0,0) x y radius Y

9. Bar(x1,y1,x2y2) Рисует заштрихованный прямоугольник с координатами (x1,y1) — верхний левый угол и (x2,y2) — нижний правый угол. Используется стандартный цвет и стиль заливки X x1 x2 y1 y2 Y

10. X (0,0) Y Arc(X,Y,StAngle,EndAngle,Xradius,Yradius) Дуга окружности от угла StАngleдо угла ЕndAngle с центром в точке (x,y) и радиусом radius. x Углы задаются в градусах по направлению против часовой стрелки StАngle y ЕndAngle

11. (0,0) Bar3d(x1,y1,x2,y2,h,top) Выводит объемную (трехмерную) прямоугольную полосу толщиной h, Top—логический параметр, принимающий значения TopOnили, TopOff, указывает, нужно ли изображать верхнюю грань TopOn TopOff

12. LineTo(x,y); Проводит прямую линию из точки,где находится текущий указатель, в точку с координатами (x,y). Текущий указатель перемещается в точку (x,y). X x (0,0) y Y

13. LineRel(dx,dy); Проводит прямую линиюиз точки,где находится текущий указатель, в точку с приращением dxпо осиXиdyпо осиY. Текущий указатель перемещается в точку (x+dx,y+dy). X X (0,0) x x x+dx x+dx dy dy y y dx dx y+dy y+dy Y Y

14. MoveTo(x,y); Проводит прямую линию из точки,где находится текущий указатель, в точку с координатами (x,y). Перемещает текущий указатель в точку (x,y). X x (0,0) y Y

15. X (0,0) Y Ellipse(x,y,StAnge,EndAngle,Xradius,Yradius) Дуга эллипса с центром в точке (x, y)и с радиусом Xradius(по оси Х),Yradius(по оси Y) от начального угла StАngleдо конечного угла ЕndAngle. Значения StАngle=0 и ЕndAngle=360 приведут к вычерчиванию полного эллипса.

16. X (0,0) Y FillEllipse(x,y,Xradius,Yradius) Эллипс, заштрихованный текущим цветом и типом штриховки.

17. x X (0,0) y ЕndAngle StАngle Y PieSlice(x,y,StAnge,EndAngle,radius) Заштрихованный сектор круга с центром в точке(x,y). Начальный - StAnge, и конечный – EndAngleуглы задаютсяв градусах

18. X (0,0) Y Sector(x,y,StAnge,EndAngle,Xradius,Yradius) Заштрихованный сектор эллипса, параметры те же, что у процедуры Ellipse.

19. (0,0) DrawPoly(N,ArrayOfPoint) Ломаная линия, которая имеет Nвершин, координаты которых заданы в массиве записей ArrayOfPoint.

20. X (0,0) Y FillPoly(N,ArrayOfPoint) Заштрихованная замкнутая фигура, параметры те же.

21. (0,0) Заливка областей FloodFill(X,Y, Border­_Color) Заливка произвольной замкнутой области с цветом границ Border_Color, (Х,Y)— координаты любой внутренней точки. Заливка области выполняется установленными стилем и цветом. x y

22. Установка цветов и стилей Процедуры установки цветов и стилей должны предшествовать процедурам для изображения примитивов. Установленные цвета и стили используются процедурами для вывода всех графических примитивов (кроме точки). Текущие установки сохраняются до тех пор пока не будут изменены другими процедурами установки.

23. Для графического режима текущие цвета – черный для фона и белый для линий и штриховок, текущие стили – сплошная линия и заливка. Всего имеется 12 стандартных стилей для штриховок и 4 для линий.

24. SetColor(Color); Устанавливает цвет выводимого изображения, задаваемый параметром Color. SetBkColor(Color); Устанавливаетцветфона.

25. SetLineStyle( style, pattern, thickness) устанавливает стиль линии SolidLn DottedLn CenterLn DashedLn

26. SetFillStyle (style,color) устанавливает стиль заливки

27. (0,0)20 40 60 80 100 120 140 160 180 200 220 240 260 280 300 320 340 360 380 400 420 440 460 480 500  520  540 560 580 600 620 639 X Y Y