ajout tsg_util/display_QC.m oublié au commit précédent

tsg_util/display_QC.m

+function display_QC( hGUI, hAxes )
+%
+% Function to plot the Water Sample measurements
+%
+% Input
+% -----
+% hGUI ............... Handel to the user interface
+% hAxes .............. Handels to the graphic axes
+%
+% Output
+% ------
+%
+
+% Retrieve named application data
+% -------------------------------
+tsg    = getappdata( hGUI, 'tsg_data');
+
+% set panel visible
+% -----------------
+hdlPanel = findobj(hGUI, 'tag', 'TAG_QC_DISPLAY_PANEL');
+set(hdlPanel, 'visible', 'on');
+
+% get list of keys from hashtable tsg.qc.hash, defined inside
+% tsg_initialisation.m
+% -----------------------------------------------------------
+qc_list = get(tsg.qc.hash);
+
+% Plot the Salinity with the right color code
+% -------------------------------------------
+%bgColor = get(hAxes(1), ');
+
+% 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};
+  code = get(tsg.qc.hash, key, 'code');
+  
+  % get the uicontrol handle from tag construct with key
+  % ----------------------------------------------------
+  hdlText = findobj(hGUI, 'tag', ['TAG_QC_TEXT_' key]);
+  
+  % find number of sample flag with this QC code
+  % --------------------------------------------
+  ind = find(tsg.SSPS_QC == code);
+  
+  % if index empty, no data with this flag, set field to zero (char)
+  % ----------------------------------------------------------------
+  if isempty(ind)
+    set(hdlText, 'String', '0');
+  else
+    set(hdlText, 'String', num2str(numel(ind)));
+  end
+  
+end
+
+