FPC графика

gotoxy(координата x, координата y)

window(X1,Y1,X2,Y2);

textbackground(номер цвета
или название цвета);

(Цвета символов и фона)
Black 0 { Чёрный }
Blue 1

Blink (128)

textcolor (номер цвета);

delay (аргумент в микросекундах)

GRAPH

Var
g,h:integer;
.
.
.
g:=detect;
Initgraph(g,h,’’);

setcolor(цвет);

line(x1,y1,x2,y2);

putpixel(x,y,цвет);

Circle(x,y,r);

rectangle(x1,y1,x2,y2);

Setfillstyle(стиль, цвет);
Bar(x1,y1,x2,y2);

Setfillstyle(стиль, цвет);
fillellipse(x,y,r1,r2);

GetMaxX и GetMaxY

OutTextXY(x,y,текст);

OutText(текст);