Реферат: Графические средства языка Паскаль
15. PROCEDURE MoveRel(Dx,Dy: Integer);- перемещает графический курсор на Dx по горизонтали и на Dy по вертикали.
16. PROCEDURE LineRel(Dx,Dy: Integer); - рисует отрезок от текущей точки до точки со смещением Dx,Dy.
17. FUNCTION GetX: Integer; и
18. FUNCTION GetY: Integer; - возвращают текущие координаты графического курсора.
19. PROCEDURE Rectangle(x1,y1,x2,y2: Integer); - рисует прямоугольник, x1,y1 - координаты левого верхнего угла, x2,y2 - координаты правого нижнего угла.
20. PROCEDURE Circle(X,Y: Integer; R: Word); - рисует окружность радиуса R с центром в точке X,Y.
21. PROCEDURE Ellipse(X,Y: Integer; f1,f2,Rx,Ry: Word); - рисует дугу эллипса с полуосями Rx,Ry и центром в точке X,Y от угла f1 до угла f2 (углы задаются в градусах).
22. PROCEDURE Arc(X,Y: Integer; f1,f2,R: Word); - рисует дугу окружности радиуса R с центром в точке X,Y от угла f1 до угла f2.
23. PROCEDURE SetFillStyle(Pattern,Color: Word); - устанавливает способ закраски. Параметр Pattern может принимать следующие значения: 0 - EmptyFill - не закрашивать, 1 - SolidFill - сплошная закраска, 2 - LineFill, 3 - LtSlashFill,
4 - SlashFill, 5 - BkSlashFill, 6 - LtBkSlashFill,7 - HatchFill, 8 - XHatchFill,
9 - InterleaveFill, 10 - WideDotFill, 11 - CloseDotFill.
24. PROCEDURE Bar(x1,y1,x2,y2: Integer); - рисует закрашенный прямоугольник, используя способ закраски, установленный процедурой SetFillStyle.
25. PROCEDURE FillEllipse(X,Y: Integer; Rx,Ry: Word); - рисует закрашенный эллипс.
26. PROCEDURE Sector(X,Y: Integer; f1,f2,Rx,Ry: Word); - рисует закрашенный эллиптический сектор.
27. PROCEDURE PieSlice(X,Y: Integer; f1,f2,R: Word); - рисует закрашенный круговой сектор.
28. PROCEDURE FloodFill(X,Y: Integer; Border: Word); - закрашивает замкнутую область, ограниченную линией цвета Border, X,Y - координаты любой внутренней точки области. Используется способ закраски "заливка жидкостью", поэтому, если ограничивающая линия имеет разрывы, "жидкость" выльется и закрасит все области экрана, которые сможет. Автор рекомендует самостоятельно провести эксперимент с этой процедурой.
29. PROCEDURE SetTextStyle(Font,Direction,Size: Word); - устанавливает способ вывода текста. Font - номер графического шрифта, принимающий значения 0 - DefaultFont , 1 - TriplexFont , 2 - SmallFont , 3 - SansSerifFont ,
4 - GothicFont. Нулевой шрифт - стандартный и поддерживается всегда. Если вы используете штриховые шрифты с 1-го по 4-й, то должны иметь в вашей рабочей директории шрифтовые файлы TRIP.CHR , LITT.CHR , SANS.CHR , GOTH.CHR (те из них, которые вам нужны). Параметр Direction определяет направление вывода текста (слева направо или сверху вниз) и принимает значения 0 - HorizDir ,1 - VertDir. Параметр Size определяет размер символов и изменяется от 1 до 10.
30. PROCEDURE OutText(S: STRING); - выводит текст на графический экран, используя текущие координаты графического курсора (процедура WRITE[LN] в графическом режиме не работает).
31. PROCEDURE OutTextXY(X,Y: Integer; S: STRING); - выводит текст на графический экран, используя координаты X,Y.
32. PROCEDURE SetTextJustify(Horiz, Vert: Word); - устанавливает способ позиционирования текста. Параметр Horiz может принимать значения:
0 - LeftText - по левому краю,
1 - CenterText - по середине текста,
2 - RightText - по правому краю.
Параметр Vert может принимать значения:
0 - BottomText - по нижнему краю,
1 - CenterText - по середине текста,
2 - TopText - по верхнему краю.
Не пренебрегайте этой процедурой, если хотите аккуратно вывести подписи к вашему рисунку.