figure(fignum)
clf

subplot(1,3,1)
plot(Dcata(:,2),Dcata(:,1),'r-')
hold on
plot(Dvein(:,2),Dvein(:,1),'b-')
axis('ij');axis([0 4 0 1420])
title('Cataclasis & veining')
xlabel('Intensity'); ylabel('Depth, mbsf')

subplot(1,3,2)
load vein_dg.dat;vdg=vein_dg;
plot(vdg(:,2),vdg(:,1),'ro')
hold on
load vein_g.dat;vg=vein_g;
plot(vg(:,2),vg(:,1),'b*')
axis('ij');axis([0 90 0 1420])
xlabel('Dip')

subplot(1,3,3)
load vein_pg.dat;vpg=vein_pg;
plot(vpg(:,2),vpg(:,1),'ro')
hold on
load vein_white.dat;vw=vein_white;
plot(vw(:,2),vw(:,1),'b*')
axis('ij');axis([0 90 0 1420])
xlabel('Dip')

subplot(1,3,1)
load vein_sulfide.dat; vs=vein_sulfide;
plot(4*vs(:,1)./vs(:,1),vs(:,1),'k<')

    