clear all
close all
clc

%MCTools behoevend
rtk_dir = 'D:\werf_je\Werk\1.201.819-Proefsuppletie_Galgeplaat_2e_evaluatie\Data\RTK';

for file = dir(fullfile(rtk_dir,'*.shp'))',
    clear data
    FI = shape('open',fullfile(rtk_dir,file.name));
    data = shape('read',FI,0,'points');
   
    figure
    plot(data(:,1),data(:,2),'k.')
    axis equal
    axis([0.548 0.564 3.972 3.988]*1e5)
    title(file.name)
end