close all
clear all

%zone I=     6   J=     6  F=POINT
%       1.168       0.000       0.000
%       1.168       0.037       0.000
%       1.166       0.073       0.000
%       1.163       0.110       0.000
%       1.159       0.146       0.000
%       1.154       0.183       0.000

figure('Position', [100 100 1000 400])
set(gcf,'color','white');
hold on


fid = fopen('test27b_pan.dat');


while (1)
  C = textscan(fid, '%*s %*s %d %*s %d %*s', 1);
  if(isempty(C{1})) 
      break;
  end
  I = C{1};
  J = C{2};
  clear C;
  for i = 1:I
    C = textscan(fid, '%f %f %f', J);
     x = C{1};
     y = C{2};
     z = C{3};
    plot3([x;x(1)],[y;y(1)],[z;z(1)],'b-');
  end
end


xlim([-3 3])

axis equal
fclose(fid);
