% do_plots
%
% This program does all the plots... as follows
%
% need to swith on and off the do## values (1 to do the plot, other values
% to skip it
%

% loading data
clear;clf
load U1309D_averages5m
load U1309D_cleandata

% figures to plot (1) or not (other, 0 for example)
t=cputime
do01=1;% magmatic and plastic foliation
do02=1;% open and drill fractures
do03=1;% serpentinite foliation
do04=1;% Magmatic, plastic, vein and other dips
do05=1;% cataclastic and veining
do06=1;% Vein faults and dip + plunge info
do07=1;% Columns/bars of cataclasis vs lithology
do08=1;% Vein  and dip 

% start figure counter for run
fignum=0;

% start plotting figures

% Figure 1
if do01==1,fignum=fignum+1;
    display ('Start do_fig01.m'); do_fig1;    display ('done do_fig01.m');end

% Figure 2
if do02==1,fignum=fignum+1;
    display ('Start do_fig02.m');do_fig2;    display ('done do_fig02.m');end

% Figure 3
if do03==1,fignum=fignum+1;
    display ('Start do_fig03.m');do_fig3;    display ('done do_fig03.m');end

% Figure 4
if do04==1,fignum=fignum+1;
    display ('Start do_fig04.m');do_fig4;    display ('done do_fig04.m');end

% Figure 5
if do05==1,fignum=fignum+1;
    display ('Start do_fig05.m');do_fig5;    display ('done do_fig05.m');end

% Figure 6
if do06==1,fignum=fignum+1;
    display ('Start do_fig06.m');do_fig6;    display ('done do_fig06.m');end

% Figure 7
if do07==1,fignum=fignum+1;
    display ('Start do_fig07.m');do_fig7;    display ('done do_fig07.m');end

% Figure 8
if do08==1,fignum=fignum+1;
    display ('Start do_fig08.m');do_fig8;    display ('done do_fig08.m');end
cputime-t