Модуль растровой графики Pascal ABC

Line (X1,Y1,X2,Y2) -рисование отрезка с начало в точке (X1,Y1,X2,Y2); 1.Пример
uses graphabc;
var x,y,r:integer;
begin
Line (100,100,150,200);
end.
скачать

рис. 1

Circle(X,Y,R) - рисование окружности с центром в точке (X,Y) и радиусом R; результат выполнения этой процедуры аналогичен результату
2. Пример
uses graphabc;
var x,y,r:integer;
begin
Circle (100,100,50);
end.
скачать

рис. 2

Ellipse (X1,Y1,X2,Y2) - рисование эллипса, заданного своими описанными прямоугольником с координатами противоположных вершин (X1,Y1,X2,Y2);
3. Пример
uses graphabc;
var x,y,r:integer;
begin
Ellipse (100,100,350,200);
end.

рис. 3

Rectangle (X1,Y1,X2,Y2) - рисование прямоугольника заданного координатами противоположны вершин (X1,Y1) и (X2,Y2) ;
4. Пример
uses graphabc;
var x,y,r:integer;
begin
Rectangle(50,50,200,200);
end.

рис. 4

RoundRect (X1,Y1,X2,Y2,w,h) - рисование прямоугольника со скругленными краями; координаты (X1,Y1)и(X2,Y2) задают пару противоположных вершин, а числа w и h - ширину и высоту эллипса, используемого для скругления краев. ;
5. Пример
uses graphabc;
var x,y,r:integer;
begin
RoundRect(50,50,200,120,100,50);
end.

рис. 5

Arc (X,Y,R,A1,A2) - рисование дуги окружности с центром в точке (x,y) и радиусом r; заключенной между двумя двумя лучами, образующими углы A1 и A2 с осью OX (A1 и A2-вещественные, задаются в градусах и отсчитывается против часовой стрелки);
6. Пример
uses graphabc;
var x,y,r:integer;
begin
Arc(200,200,70,10,170);
end.

рис. 6

Pie(X,Y,R,A1,A2) - рисование сектора окружности, ограниченного дугой; смысл параметров - тот же что и
процедуры Arc;
7. Пример
uses graphabc;
var x,y,r:integer;
begin
Pie(100,100,70,20,90);
end.

рис. 7