%%
tr = jarkus_transects(...
    'output', {'id'},...
    'url', fullfile(fileparts(which(mfilename)), '..', 'data', 'jarkus.nc'));

tr = jarkus_transects(...
    'url', 'http://opendap.tudelft.nl/thredds/dodsC/data2/deltares/rijkswaterstaat/jarkus/profiles/transect.nc',...
    'id', tr.id,...
    'output', {'id' 'rsp_x' 'rsp_y' 'rsp_lon' 'rsp_lat'});

%%
ph = jarkus_plot_locations_on_map(tr);

%%
lbdh = findobj(ph, 'marker', 'None');
set(lbdh, 'color', [.5 .5 .5])

lh = findobj(ph, 'marker', 'o');
set(lh, 'color', [0 0 0])

%%
figureStyle(@styleThesis,...
    {'figure', 'Units', 'Points', 'Position', [200 200 350 250]})
tightenfigure
axis equal
[fpath fname] = fileparts(which(mfilename));
figurepath = fullfile(fpath, '..', 'figures');
set(gcf, 'tag', '$HeadURL$ $Revision$')
print(gcf, '-depsc2', fullfile(figurepath, [fname '.eps']))
if ispc
    saveas(gcf, fullfile(figurepath, [fname '.emf']))
end
saveas(gcf, fullfile(figurepath, [fname '.fig']))