program ketvaltozosfgv;
{szintvonalas abrazolas}

uses newdelay,crt,graph;
const n=100;
      m=100;
      path  = 'c:\langs\tp70\bgi';
      ax=3;   {teglalap x iranyu arnyeka}
      ay=3;   {teglalap y iranyu arnyeka}
      kn=400; {maximalis oszlopmagassag}
      nz=200; {nagyitasi tenyezo}

var fgv:array[1..n,1..m] of real;
    i,j:integer;
    sx,sy,sdb,odb:word;
    sk,ok:integer;
    sor,oszlop:integer;

Procedure Szovegesre;
  begin
    CloseGraph;         {lezarja a grafikus uzemmodot}
    RestoreCrtMode;     {Visszaallitja az InitGraph meghivasa elotti
                        kepernyokezelesi modot}
  end;

  Procedure Grafikusra;
    Var
       gd,gm : integer;
  Begin
    DetectGraph(gd,gm);    {detektalja a grafikus eszkozt}
    InitGraph(gd,gm,path); {inicializalja a grafikus rendszert}
  End;

Procedure init;   {inicializalja a kezdoertekeket}
begin
 randomize;
 sx:=getmaxx;
 sy:=getmaxy;
 sdb:=n;
 odb:=m;
 sk:=round(sy/sdb);
 ok:=round(sx/odb);
 rectangle(0,0,(odb-1)*ok,sy);
end;

Procedure adatfeltoltes;  {feltolti az fgv tombot adatokkal}
var ii,jj:real;
 begin
   for i:=1 to n do
     for j:=1 to m do
       begin
         ii:=-3+i*0.06;
         jj:=-3+j*0.06;
{        fgv[i,j]:=sin(ii*ii*ii-jj*jj*jj);}
{        fgv[i,j]:=sin(ii*ii+jj*jj);}
{        fgv[i,j]:=sin(ii-jj);}
{        fgv[i,j]:=cos(ii*ii+jj*jj);}
         fgv[i,j]:=sin(ii*ii*ii*ii-jj*jj*jj*jj);
       end;
 end;



Procedure kirajzolas(x:real);
{az x erteknel nagyobb fuggvenyertekek helyen kirajzol egy pontot}
 begin
   for i:=1 to n do
     for j:=1 to m do
       begin
        if fgv[i,j]>=x then
            begin
              putpixel(ok*j-(ok div 2),sk*i-(sk div 2),2);
           end;
       end;
 end;



function szint(f1,f2,x:real):boolean;
begin
 szint:=((f1<x) and (f2>=x)) or ((f1>=x) and (f2<x));
end;

procedure fuggoleges(i,j:integer);
begin
  sor:=i*sk;
  oszlop:=j*ok;
  line(oszlop,sor,oszlop,sor-sk);
end;

procedure vizszintes(i,j:integer);
begin
  sor:=i*sk;
  oszlop:=j*ok;
  line(oszlop,sor,oszlop-ok,sor);
end;

procedure szintvonal(x:real);
{szintvonalas abrazolas}
begin
 sk:=round(sy/sdb);
 ok:=round(sx/odb);
 For i:=1 to sdb-1 do
  For j:=1 to odb-1 do
    Begin
      If szint(Fgv[i,j],fgv[i,j+1],x) then fuggoleges(i,j);
      If szint(fgv[i,j],fgv[i+1,j],x) then vizszintes(i,j);
    End;
end;

Function nemszinezett(i,j:integer):boolean;
Begin
 If (getbkcolor=getpixel(i,j)) then nemszinezett:=true
                               else nemszinezett:=false;
End;

procedure szinezett_abrazolas;
var sz:integer;
begin
 sk:=round(sy/sdb);
 ok:=round(sx/odb);
 For i:=1 to sdb-1 do
  Begin
  For j:=1 to odb-1 do
    Begin
      If  nemszinezett(i*ok,j*sk) then
        Begin
         {sz:=szinmeghatarozas(fgv[i,j])}
         randomize;
         sz:=random(16);
         setfillstyle(1,sz);
         floodfill(i*ok,j*sk,white);
        End;
    End;
    End;
end;

procedure teglalaptorles(sor1,oszlop1,sor2,oszlop2:integer);
Begin
 setfillstyle(1,black);
 bar(sor1,oszlop1,sor2,oszlop2);
 setfillstyle(1,white);
End;

procedure arnyekolt_teglalap;
{arnnyekolt teglalapos abrazolasi modszer}
var sor0:integer;
begin
{ sk:= (sy-kn) mod sdb;
  ok:= (sx-sk*sdb) mod odb;}
  sk:=round((sy-kn)/sdb);
  ok:=round((sx-sk*sdb)/odb);
  For i:=sdb downto 1 do
   Begin
     sor0:=sy-i*sk;
     For j:=odb downto 1 do
       Begin
         oszlop:=i*sk + j*ok;
         sor:=round(sor0 - fgv[i,j]*nz);
         teglalaptorles(oszlop+ax-ok,sor-ay,oszlop+ax,sor0-ay);
         bar(oszlop-ok,sor,oszlop,sor0);
       End;
   End;
end;

Procedure menu;
var ch:char;
begin
repeat
 clearviewport;
 outtextxy(100,60,'K�tv�ltoz�s f�ggv�ny�br�zol�s');
 outtextxy(200,130,'Men�');
 outtextxy(100,160,'1. Szintvonalas �br�zol�s');
 outtextxy(100,190,'2. Sz�nezett szintvonalas �br�zol�s');
 outtextxy(100,220,'3. �rny�kolt t�glalapos �br�zol�s');
 outtextxy(100,250,'4. Kil�p�s');

 ch:=readkey;
until ch in ['1'..'4'];
  clearviewport;
  rectangle(0,0,(odb-1)*ok,sy);
case ch of
 '1': szintvonal(0.3);
 '2': begin
       szintvonal(0.3);
       szinezett_abrazolas;
      end;
 '3': arnyekolt_teglalap;
  end;
end;


Begin
Adatfeltoltes;
Grafikusra;
init;
menu;
readkey;
szovegesre;
End.