plot_Tsg.m

function plot_Tsg( hTsgGUI, hAxes, PlotNum, X, Y, QC, para, colVal, lineType, markType, markSize )
%
% Function to plot TSG parameters
% The program can plot parameter of style SSPS or SSPS_ADJUSTED
% in that last case we need to extract the name of the parameter
%
% Input
% -----
% hTsgGUI ........ Handle to the user interface
% hAxes   ........ Handle to the graphic axes
% PlotNum ........ Plot Number (used for the TAG)
% X
% Y
% QC ............. QC array - If empty plot using  Color specification
% para
% colVal .......... []       - Draw Para taking into account color QC code
%                  'k''b'... - Draw Para using Color code 
% lineType ...... Matlab type : 'none', '-', '--', ':', '.-'
% markType ......... Matlab type
% markSize ...... Integer
% Para ........... Parametre whose difference with TSG data is plot

% Get the data from the application GUI
% -------------------------------------
tsg = getappdata( hTsgGUI, 'tsg_data');

if ~isempty( X ) && ~isempty( Y )
  
  axes( hAxes(PlotNum) );
  set( hAxes(PlotNum), 'Box', 'on' );
  hold on

  % Plot using QC
  % -------------
  if ~isempty(QC)

    % get list of keys from hashtable tsg.qc.hash, defined inside
    % tsg_initialisation.m
    % -----------------------------------------------------------
    qc_list = get(tsg.qc.hash);

    % Plot Sample/TSG differences on axe 2
    % iterate (loop) on each key store inside hastable
    % ------------------------------------------------
    for i=1:numel(qc_list)

      % get key and some values in hashtable
      % ------------------------------------
      key   = qc_list{i};
      qcState = get(tsg.qc.hash, key, 'state');
      qcCode  = get(tsg.qc.hash, key, 'code');
      qcColor = get(tsg.qc.hash, key, 'color');

      % plot only for valid context menu (set to 'on')
      % ----------------------------------------------
      % if strcmp( qcState, 'on')

        % plot tsg salinity sample with right code/color
        % ----------------------------------------------
        ind = find( QC == qcCode );
        if ~isempty( ind )

          line( X(ind), Y(ind), ...
                'Tag', ['TAG_PLOT' num2str(PlotNum) '_LINE_' para '_' key],...
                'LineStyle', lineType, ...
                'Marker', markType, 'MarkerSize', markSize, 'Color', qcColor);

        end
      %end
    end

  else

    line( X, Y, 'Tag', ['TAG_PLOT' num2str(PlotNum) '_LINE_' para], ...
                'LineStyle', lineType, ...
                'Marker', markType, 'MarkerSize', markSize, 'Color', colVal);
  end

  hold off;

  % Write some 'Y' label
  % ------------------
  set(get(hAxes(PlotNum), 'Ylabel'), 'Interpreter', 'none', 'String', para);

end