program grafikaszoveg;
{Mese: grafikuskepernyo-kezeles Pascal-ban}
uses graph;


procedure graf_init;
var gd,gm:integer; {graphdiver,graphmode}
path:string; {Hol az "egavga.bgi"?}
begin
  Detectgraph(gd,gm); {"beme'ri" a TP a graf-kartyat}
  path:='c:\1\bgi';
  initgraph(gd,gm,path); {innentol graf-kepernyot kezel...}
  closegraph; {...egeszen eddig}
  cleardevice; {azaz cls}
end;

procedure rajzelemek;
var x,x1,x2,y,y1,y2,r:integer;
szin, hatar:byte;
begin
  bar(x1,y1,x2,y2); {kitoltott teglalap}
  circle(x,y,r); {ko:r}
  line(x1,x2,y1,y2); {vonal}
  putpixel(x,y,szin); {egy pont - szin:=(1..15)}
  {0-fekete, 1-kek, 2-zold, 4-piros, 14-sarga, 15-feher}
  rectangle(x1,x2,y1,y2); {nem kitoltott teglalap}
  floodfill(x,y,hatar); {kitoltes}
end;

procedure szinek;
var szin, hatar:byte;
begin
  setbkcolor(szin); {hatterszin}
  setcolor(szin); {rajzszin}
  setfillpattern(minta, szin); {ld. alabb}
  setfillstyle(minta,szin); {minta: 0-nincs, 1-egyenletes halvany,
  2-vizszintes vonalas, 3-jobbfent-ballent vonalas, 4-a 3 vastaggal,
  4-a 4 forditva, 6-a 3 forditva, 7-sok kettoskereszt,
  8-ferde hashmark, 9-egyenletes, 10-egyenletes gyenge,
  11-egyenletesen meggyengebb 12-felhasznalo altal def.}
end;

procedure fuggvenyek;
var x,y:integer;
begin
  getcolor; {akt.rajzolo szin}
  getbkcolor; {akt.hatterszin}
  getpixel(x,y); {Milyen szinu a P(x,y)?}
  getmaxx; getmaxy; {Legfeljebb meddig rajzolgathatunk?}
end;

procedure szovegkiiras;
var s:string;
begin
  outtext(x,y,s); {hova(x,y), mit}
  settextstyle(betutip,irany,meret);
  {betutip: 0-alap, 1-haromvonalas, 2-kisbetu, 3-sansseriff, 4-gotikus}
  {irany: 0-balrol_jobbra, 1-lentrol_felfele illetve meret:1..10}
  settextjustify(v,f); {vizszintes, fuggoleges}
  {V: 0-balra, 1-kozepre, 2-jobbra ill. F: 0-alulra, 1-kozepre, 2-felulre}
end;

begin
end.