Метод Фонга и Гуро (Gouraud shading и Phong shading)

procedure TModel.Draw(w,h:Integer);
var
  i:Integer;
  a,b,c:TPoint;
  r:Integer;
begin
  with bmp do
  begin
    Width:=w;
    Height:=h;
    with Canvas do
    begin
      Brush.Color:=clBtnFace;
      Rectangle(0,0,w,h);
    end;
    if arr2.hsize>0 then
    begin
    hh:=1;
      i:=-3;
      arr2.Sort;
      while i<arr2.hsize-3 do
      begin
        i:=i+3;
        a.X:=Floor(arr2.arr[i,0]);
        a.Y:=Floor(arr2.arr[i,1]);
        b.X:=Floor(arr2.arr[i+1,0]);
        b.Y:=Floor(arr2.arr[i+1,1]);
        c.X:=Floor(arr2.arr[i+2,0]);
        c.Y:=Floor(arr2.arr[i+2,1]);
        begin
            randomize;
            r:=random(255);
            Canvas.Brush.Color:=RGB(r,r,r);
            Canvas.Pen.Color:= RGB(r,r,r);
            Canvas.Polygon([a,b,c]);
          with Canvas do
          begin
            MoveTo(a.X,a.Y);
            LineTo(b.X,b.Y);
            LineTo(c.X,c.Y);
            LineTo(a.X,a.Y);
          end;
        end;
      end;
    end;
  end;
  cvs.Draw(0,0,bmp);
end;

procedure TModel.Draw(w,h:Integer);
var
  i:Integer;
  a,b,c:TPoint;
  r:Integer;
  ax,ay,az,bx,by,bz,nx,ny,nz,d,hh:Extended;
begin
  with bmp do
  begin
    Width:=w;
    Height:=h;
    with Canvas do
    begin
      Brush.Color:=clBtnFace;
      Rectangle(0,0,w,h);
    end;
    if arr2.hsize>0 then
    begin
    hh:=1;
      i:=-3;
      arr2.Sort;
      while i<arr2.hsize-3 do
      begin
        i:=i+3;
        a.X:=Floor(arr2.arr[i,0]);
        a.Y:=Floor(arr2.arr[i,1]);
        b.X:=Floor(arr2.arr[i+1,0]);
        b.Y:=Floor(arr2.arr[i+1,1]);
        c.X:=Floor(arr2.arr[i+2,0]);
        c.Y:=Floor(arr2.arr[i+2,1]);
        ax:=arr2.arr[i,0];
        ay:=arr2.arr[i,1];
        az:=arr2.arr[i,2];
        bx:=arr2.arr[i+1,0];
        by:=arr2.arr[i+1,1];
        bz:=arr2.arr[i+1,2];
        nx:=ay*bz-az*by;
        ny:=az*bx-ax*bz;
        nz:=ax*by-ay*bx;
        d:=sqrt(nx*nx+ny*ny+nz*nz);
        nx:=nx/d;
        nx:=Abs(nx);
        r:=Round(nx*255);
        r:=Abs(r);
        if r>255 then r:=255;
        r:=255-r;
        begin
            Canvas.Brush.Color:=RGB(r,r,r);
            Canvas.Pen.Color:= RGB(r,r,r);
            Canvas.Polygon([a,b,c]);
          with Canvas do
          begin
            MoveTo(a.X,a.Y);
            LineTo(b.X,b.Y);
            LineTo(c.X,c.Y);
            LineTo(a.X,a.Y);
          end;
        end;
      end;
    end;
  end;
  cvs.Draw(0,0,bmp);
end;