Лаборатоные 2 семестр (паскаль) / 3d модуль PABC.NET / Пример построение 3д графика

uses LGraph3dABC,GraphAbc;
var flag:string;
    i,j:integer;
    hx,hy,x1,y1,x2,y2:real;
function z(x,y:real):real;
  begin
    z:=x*x/(2)+y*y/(2);
  end;
begin

  //создание осей 
  //-10 10 (первая пара) начало и конец оси X
  //-10 10 (вторая пара) начало и конец оси Y
  //0 100  начало и конец оси Z
  //400 600 высота и ширина экрана на котором будет выводиться график 
  //40 отступы от краев экрана
  //flag служебная переменная необходимая для дальнейшего построения графиков
  drawXYZ(-10,10,-10,10,0,100,400,600,40,flag);
 
  hx:=20/100; //шаг по оси X
  hy:=20/100; //шаг по оси Y

   for i:=1 to 100 do 
    begin
      x1:=-10+(i-1)*hx;             //x1
      x2:=-10+i*hx;                 //x2
      y1:=0;
      y2:=0;                      
      for j:=1 to 100 do 
       begin
          y1:=-10+(j-1)*hy;        //y1
          y2:=-10+j*hy;            //y2
          //Вывод полигона 
          //flag служебная переменная
          //x1,y1,z(x1,y1) - первая точка
          //x2,y1,z(x2,y1) - вторая точка
          //x1,y2,z(x1,y2) - третья точка
          //x1,y2,z(x1,y2) - четвертая точка точка
          drawPolygone(flag,x1,y1,z(x1,y1),x2,y1,z(x2,y1),x1,y2,z(x1,y2),x2,y2,z(x2,y2));
          
          //построение точек плоскости 
          //x1 ,y1 , 5  координаты (x,y,z) точки
          drawPoint(flag,x1,y1,50);
       end;
     end;

end.