{$A+,B-,D+,E+,F-,G+,I+,L+,N+,O-,P-,Q+,R+,S+,T-,V+,X+}
{$M 16384,0,655360}
program infalk1be2;
{Irta: Szamoskozi Peter - szamosp(a)inf.elte.hu, 2000. december 10.}
uses crt,graph;
const n=300; m=200; {Mekkora legyen a fuggveny kepe (n*m)}
var fgv:array[1..n,1..m] of shortint; {eddig befert: byte}

{Pszeudoplasztikus abrazolas-Mikrologia 16/38-39.o}
{Egy oldalrol - most balrol - megvilagitva:
     Valtozas(i,j):=fgv(i,j)-fgv(i,j-1)}

Procedure Grafikusra;
Var gd,gm:integer; {a graf-inic-hez}
   i,hiba:integer; {a hibajavitashoz}
   path:string; {Hol a graph.tpu?}
   procedure kiirinic;
   begin
     writeln('Elokeszuletek a program inditasahoz...'); writeln;
   end; {--a kiirinic vege--}
   procedure inic;
   begin
{     path  = 'c:\tp\70\bgi\egavga.bgi';}
     DetectGraph(gd,gm);    {detektalja a grafikus eszkozt}
     InitGraph(gd,gm,path); {inicializalja a grafikus rendszert}
     hiba:=graphresult; {sikeres volt-e az inicializalas}
   end; {--inic vege--}

begin {-grafikusra valtas eleje-}
  i:=1; kiirinic;
  repeat
     inic;
     if (hiba<>grok) then begin
     writeln('Hol az egavga.bgi? '); readln(path); inc(i); end;
  until (((i=4) or (hiba=grok)));
end; {-Szovegesrol grafikusra vege-}

Procedure Szovegesre;
begin
  CloseGraph;         {lezarja a grafikus uzemmodot}
  RestoreCrtMode;     {Visszaallitja az InitGraph elotti uzemmodot}
end; {-Grafikusrol szovegesre vege-}

procedure fomenu; forward; {a forward a visszatereshez kell}
procedure almenu; forward; {melyik fuggvenyt akarjuk abrazolni}

procedure rajz(const melyik:integer);
var i,j:integer; feny:shortint; szoveg,sszam:string;
  procedure diszites;
  begin
    cleardevice; {alias cls}
    szoveg:='A(z) '; str(melyik,sszam); {A kiseroszoveg osszerakasa}
    szoveg:=szoveg+sszam; szoveg:=szoveg+'. fggv‚ny k‚pe';
    outtextxy(230,80,szoveg); {A kiseroszoveg kiirasa}
  end; {--diszites vege--}

begin {-A rajzolas eleje-}
  diszites; {Igy a felhasznalo tudni fogja, hol tart}
  for i:=1 to n do begin
    for j:=2 to m do begin
      if (fgv[i,j]>fgv[i,j-1]) then feny:=white {innen jon a feny}
        else if (fgv[i,j]<fgv[i,j-1]) then feny:=(black) {ez meg az arnyek}
           else feny:=1; {ilyen szinuek lesznek az azonos magassagu pontok}
         {fekete(0),kek,zold.., piros(4),..,sarga,feher(15)}
      putpixel(i+160,j+120,feny); {a pont szinezese}
    end;
  end;
  outtextxy(260,400,'Vissza: ENTER'); readkey;
end; {-rajz vege-}

procedure feltolt(const melyik:integer);
var i,j:integer; sv,ii,jj:real;
begin
  for i:=1 to n do begin
    for j:=1 to m do begin
       ii:=-3+i*0.06; jj:=-3+j*0.06;
       case melyik of
         1: sv:=sin(ii*ii+jj*jj);
         2: sv:=sin(ii*ii*ii-jj*jj*jj);
         3: sv:=sin(ii-jj);
         4: sv:=sin(ii*ii*ii*ii-jj*jj*jj*jj);
         5: sv:=sin(sin(i+j)-cos(i+j));
         6: sv:=sin(random(i+j));
       end;
      fgv[i,j]:=round(sv); {az esetleges tipuskonverziok miatt}
     end;
  end;
  rajz(melyik);
end; {-adatfeltoltes vege-}

procedure almenu;
var ch:char; {a menu vezerlesehez}
   kilep2:boolean; {a program vegere}
   sdb,odb:word; ok,sk,sx,sy:integer;
   okfva:integer; {a val ok-ja (FV-Almenu)}
   fvmelyik:integer; {melyik fv-t valasztotta'k}
  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; {--init vege--}

begin {-a menu2 eleje-}
  kilep2:=false;
  repeat
    sdb:=n; odb:=m; ok:=round(sx/odb);
    repeat
      clearviewport;
      outtextxy(80,60,'V lassza ki az  br zoland˘ fggv‚nyt');
      outtextxy(200,120,'Fggv‚ny - almen');
      outtextxy(140,150,'1. fv - csobban s');
      outtextxy(140,180,'2. fv - hanghull mok');
      outtextxy(140,210,'3. fv - fennsĄkok');
      outtextxy(140,240,'4. fv - m gneses hull mok (1/x)-el');
      outtextxy(140,270,'5. fv - csikok');
      outtextxy(140,300,'6. fv - hangy k');
{      outtextxy(140,330,'7. fv -  bra neve');}
{      outtextxy(140,360,'8. fv -  bra neve');}
{      outtextxy(140,390,'9. fv -  bra neve');}
      outtextxy(140,420,'0. Vissza a f‹menbe');
      ch:=readkey;
    until ch in ['0'..'9'];
    val(ch,fvmelyik,okfva);
    if fvmelyik=0 then kilep2:=true
        else feltolt(fvmelyik);
 until kilep2;
end; {-almenu vege-}

Procedure fomenu;
var ch:char; {a menu vezerlesehez}
   kilep:boolean; {a program vegere}
   sdb,odb:word; ok,sk,sx,sy:integer;
  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; {--init vege--}

begin {-a menu eleje-}
  kilep:=false;
  repeat
    sdb:=n; odb:=m; ok:=round(sx/odb);
    repeat
      clearviewport;
      outtextxy(75,80,'K‚tv ltoz˘s fggv‚ny  br zol sa pszeudoplasztikus m˘dszerrel');
      outtextxy(75,88,'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
      outtextxy(140,120,'Irta: Szamosk”zi P‚ter - 2000. december 10');
      outtextxy(280,180,'Men');
      outtextxy(180,210,'1. A fggv‚ny kiv laszt sa');
{      outtextxy(100,240,'2. '); - ujabb lehetoseghez -}
      outtextxy(180,240,'2. Kil‚p‚s'); {ujabb menupontnal: 240->300}
      ch:=readkey;
    until ch in ['1'..'2'];
    case ch of
      '1': begin almenu; end;
      '2': begin kilep:=true; end;
    end;
 until kilep;
end; {-fomenu vege-}

begin
grafikusra;
cleardevice;
fomenu;
cleardevice;
szovegesre;
end.