• Szerző: Sallai András
• Copyright © Sallai András, 2013, 2014, 2015
• Licenc: GNU Free Documentation License 1.3
• Web: https://szit.hu

A Dga könyvtárak telepítésével Linuxon is használhatók a graph unit utasításai, kis kiegészítéssel. A DGA a Direct Graphics Access szavakból alkotott betűszó. Az X11 DGA kiterjesztése Debian alapú rendszereken libxxf86dga1 csomagban található.

Telepítés:

apt-get install libxxf86dga-dev libxxf86dga1

Program01.pas

program program01;
 
uses ptccrt, ptcgraph;
var
	gd, gm : integer;
	x, y, i : integer;
	sz : string;
BEGIN
	gd := detect;
	InitGraph(gd, gm, ' ');
	PTCGraph.Line(0,240,640,240);
	PTCGraph.Line(320,0,320,480);
	for i:= 0 to 18 do begin
		PTCGraph.Line(315,15+i*25,325,15+i*25);
		str(9-i, sz);
		OutTextXY(290, 15+i*25, sz);
	end;
	for i := 0 to 25 do begin
		PTCGraph.Line(20+i*25,235,20+i*25,245);
		str(-12+i, sz);
		outTextXY(16+i*25, 255, sz);
	end;
	ReadKey;
END.