bar3d.pas

{Bar3d.PAS} 
 
  {Пример программы для процедуры Bar3D } 
 
  Uses Graph;
 
  Var          Gd, Gm : Integer; 
   Y0, Y1, Y2, X1, X2 : Integer;
 
  Begin
   Gd:=Detect;
   InitGraph(Gd, Gm, '');
   If GraphResult <> grOk Then Halt(1);
   Y0:=10;
   Y1:=60;
   Y2:=110;
   X1:=10;
   X2:=50;
   Bar3D(X1, Y0, X2, Y1, 10, TopOn); 
   Bar3D(X1, Y1, X2, Y2, 10, TopOff);
   ReadLn;
  CloseGraph;
END.