Uses MyCrt, Graph, {Bgi_Inc,} DiagTpu;

{
Kb. egy hasonl� k�perny�-feloszt�st k�ne megval�s�tani : (ASCII-art rulez :)

.--------------------------------------------------------.
|		      Szimul�ci� neve			 |
|---------------------------------------.----------------|
|					|Szim.l�p�s sz�ma|
|					|----------------|
|	      Szimul�ci�s t�r		|		 |
|					|		 |
|					|		 |
|					|  Param�terek	 |
|---------------------------------------|		 |
|					|		 |
|		 Grafikon		|		 |
|					|		 |
|					|		 |
|---------------------------------------^----------------|
|		          Men�				 |
|--------------------------------------------------------|
|		       St�tusz-sor			 |
`--------------------------------------------------------'

Men�pontok:
 norm�l - csendes - grafikon - l�p�senk�nt - param�terek - kil�p�s - (seg�ts�g)
 - norm�l:	szim.t�r be, grafikon be, folyamatos be
 - csendes:	szim.t�r ki, grafikon ki, folyamatos be
 - grafikon:	grafikon ki/bekapcsol�s�ra val�
 - l�p�senk�nt:	folyamatos ki
 - param�terek, seg�ts�g: folyamatos ki

Szimul�ci�s t�r friss�t�se
Grafikon friss�t�se (cs�sztat�ssal)	<- 2 darab, egyik a cs�sztat�s, m�sik
						ha �j adat �rkezett
Szimul�ci�s l�p�s sz�m�nak friss�t�se
Param�terek friss�t�se

Szimul�ci�s t�r, ill. grafikon "k�d�s�t�se"

Sz�nek �tprogramoz�sa - ChangeColors - csak VGA-n

Men�kezel� rutin

"f�l-delay" rutin : sz�ml�l�-figyel�s

40:6C


******************************************************************************

F�rutin:

Ha billencs �rkezett -->>
Ha eltelt egy id�egys�g az utols� friss�t�s �ta
	�j szim. l�p�s kisz�m�t�sa
	Szimul�ci�s t�r friss�t�se
	Grafikon friss�t�se
	Param�terek friss�t�se
k�l�nben
	vretr figyel�s
	Grafikon id�ar�nyos cs�sztat�s
	vagy Szimul�ci�s t�r �s/vagy Grafikon k�d�s�t�se
E.v.

}


Type
    TAblak = Record
		bfx,bfy,jax,jay : Integer;
		hatter, szin : Byte;
	     End;
Const
	Cim = 0;
	SzimTer = 1;
	Grafikon = 2;
	Menu = 3;
	LepesSzam = 4;
	Parameterek = 5;
Var	Ablakok : Array[0..5] of TAblak;

Const
	sz_hatter = 1;
	sz_fejlec = 3;
	sz_statusz = 3;
	sz_ablak_hatter = 7;
	sz_ablak_arnyek = 12;



Procedure Grafikusra;
Var
 grDriver: Integer;
 grMode: Integer;
 ErrCode: Integer;
begin
 DetectGraph(grDriver, grMode);
{ grDriver := Detect;}
 InitGraph(grDriver, grMode,' ');
 ErrCode := GraphResult;
 if not ErrCode = grOk then
   Writeln('Graphics error:', GraphErrorMsg(ErrCode));
end;



Procedure Teglalap(bfx,bfy,jax,jay : integer; szin : byte);
Begin
  SetFillStyle(1,szin);
  Bar(bfx, bfy, jax, jay);
End;

Procedure Ablak(bfx,bfy,xm,ym : integer; hatter, szin : byte; nev:string);
Var
 i : integer;
Begin
  Teglalap(bfx+6,bfy+5,bfx+xm+4,bfy+ym+5,12);
  Teglalap(bfx+5,bfy+6,bfx+xm+5,bfy+ym+4,12);
  SetPalette(12,56);

  Teglalap(bfx+1,bfy,bfx+xm-1,bfy+ym,hatter);
  Teglalap(bfx,bfy+1,bfx+xm,bfy+ym-1,hatter);

{  SetColor(8);
  For i:=0 to 3 do
  Begin
    SetLineStyle(i,0,0);
    Line(bfx+1+(i and 2)-(i and 1)*(i and 2),jay+1+i,jax+5-i,jay+1+i);
  End;}

{  SetFillStyle(1,szin);}
  SetColor(szin);
  SetTextStyle(0,0,0);
  SetTextJustify(1,1);
  outtextxy(bfx+(xm*2 + 1)shr 2,bfy+(ym*2 + 1)shr 2,nev);
End;


Procedure RakdKiAzAblakokat;
Var
  Xmin, Ymin, Xmax,Ymax : Integer;
  x,y : Integer;
  s,s2 : string;
  paramx,paramy : Integer;
Const
  koz = 18;
  diagr : Array [0..9] of Integer = (10,2,3,1,4,2,1,3,4,1);
Begin
  Xmax:=GetMaxX; Ymax:=GetMaxY;
  Teglalap(0,0,Xmax,Ymax,1);


  Ymin:=TextHeight('Hj')*2;
  Teglalap(0,0,Xmax,Ymin,3);
  SetTextJustify(1,1);
  OutTextXY(Xmax div 2, TextHeight('Hj'),'Szimul�ci� neve');

  Teglalap(0,Ymax-TextHeight('H')-2,Xmax,Ymax,3);
  Ymax:=Ymax-TextHeight('H')-2;
  SetTextJustify(0,2);
  SetColor(0);
  OutTextXY(0,Ymax+1,'St�tusz-sor - abcdefghijklmnopqrstuvwxyz');


{  Ablak(GetMaxX div 3,GetMaxY div 3,GetMaxX div 3,GetMaxY div 3,7,15,'Ablak');}
{ *** ide m�g j�n a men� ***********}
  y:=TextHeight('Hj')+3;
  Ablak(koz, Ymax-y-koz, Xmax-2*koz,y,7,0,
		'Men� : norm�l csendes grafikon l�p�senk�nt param�terek kil�p�s');
  Ymax:=Ymax-y-koz;

  YMax:=Ymax-Ymin;

  y:=(Ymax-3*koz) div 2;
  x:=(y*207) shr 7;


{	x:=(Xmax-x) shr 1;
	y:=Ymin+koz;

	str(x,s2);
	str(y,s);
	s2:=s2+','+s;
        outtextxy(GetMaxX div 2,GetMaxY div 2,s2);}

  paramx:=x*2 div 3;
  paramy:=(paramx*207) shr 7;

  Ablak((Xmax-x-paramx) div 3,Ymin+koz,x,y,7,15,'Szimul�ci�s t�r ablakja');
  diagram((Xmax-x-paramx) div 3+10,Ymin+koz+10,(Xmax-x-paramx) div 3+x-20,Ymin+koz+10+y-20,diagr,9,true,true,9{szin});
{  Ablak((Xmax-x)shr 1,Ymin+2*koz+y,x,y,7,15,'Grafikon');}
  Ablak((Xmax-x-paramx) div 3,Ymin+2*koz+y,x,y,7,3,'Grafikon ablak�ja kikapcsolva');
  Ablak(Xmax-paramx-(Xmax-x-paramx) div 3,Ymin+((Ymax-paramy) shr 1),paramx,paramy,7,0,'Param�terek ablaka');


{  Ablak(20,Ymin+220,350,200,7,15,'Grafikon');}
End;

Var
  c : Char;
  b : ShortInt;

BEGIN
  Grafikusra;
  RakdKiAzAblakokat;

  b:=1;
  Repeat
    c:=ReadKey;
    If c=#0 then
    Begin
      c:=ReadKey;
      Case c of
	#72 : if b<63 then inc(b);
	#80 : if b>0 then dec(b);
      End;
      SetPalette(1,b);
    End;
  Until c=#27;
  
  CloseGraph;
END.