[[oktatas:programozás:pascal|< Pascal]]

====== Dga ======

  * **Szerző:** Sallai András
  * Copyright (c) Sallai András, 2013, 2014, 2015
  * Licenc: GNU Free Documentation License 1.3
  * Web: http://szit.hu
===== A Dga =====

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


===== Használat =====
<code pascal 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.
</code>