use of tsg.qc.hash quality object to dynamically plot SSPS_QC

tsg_util/plot_SalTempVel.m

@@ -19,28 +19,60 @@ tsg = getappdata( hTsgGUI, 'tsg_data');
 % -------------------------------------------
 axes( hAxes(1));
 
-ind = find(tsg.SSPS_QC <= tsg.qc.Code.NO_CONTROL );
-plot(hAxes(1), tsg.DAYD(ind), tsg.SSPS(ind), ...
-               strcat('.',tsg.qc.Color.NO_CONTROL));
+% plot all data in white to draw first axes before hold on if ind of
+% tsg.SSPS_QC == NO_CONTROL is empty
+% ----------------------------------
+plot(hAxes(1), tsg.DAYD, tsg.SSPS, '.w');
 
 hold on;
 
-ind = find(tsg.SSPS_QC == tsg.qc.Code.GOOD );
-plot(hAxes(1), tsg.DAYD(ind), tsg.SSPS(ind), ...
-               strcat('.',tsg.qc.Color.GOOD));
-           
-ind = find(tsg.SSPS_QC == tsg.qc.Code.PROBABLY_GOOD );
-plot(hAxes(1), tsg.DAYD(ind), tsg.SSPS(ind), ...
-               strcat('.',tsg.qc.Color.PROBABLY_GOOD));
-           
-ind = find(tsg.SSPS_QC == tsg.qc.Code.PROBABLY_BAD );
-plot(hAxes(1), tsg.DAYD(ind), tsg.SSPS(ind), ...
-               strcat('.',tsg.qc.Color.PROBABLY_BAD));
-           
-ind = find(tsg.SSPS_QC == tsg.qc.Code.BAD );
-plot(hAxes(1), tsg.DAYD(ind), tsg.SSPS(ind), ...
-               strcat('.',tsg.qc.Color.BAD));
-hold off;             
+% get list of keys from hashtable tsg.qc.hash, defined inside
+% tsg_initialisation.m
+% -----------------------------------------------------------
+qc_list = get(tsg.qc.hash);
+
+% 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};
+  state = get(tsg.qc.hash, key, 'state');
+  code  = get(tsg.qc.hash, key, 'code');
+  color = get(tsg.qc.hash, key, 'color');
+  
+  % plot only for valid context menu (set to 'on')
+  % -------------------------------_______-------
+  if strcmp( state, 'on')
+    
+    % plot tsg salinity sample with right code/color
+    % ----------------------------------------------
+    ind = find(tsg.SSPS_QC == code );
+    plot(hAxes(1), tsg.DAYD(ind), tsg.SSPS(ind), ...
+               strcat('.', color));
+  end
+end
+% ind = find(tsg.SSPS_QC == tsg.qc.Code.GOOD );
+% plot(hAxes(1), tsg.DAYD(ind), tsg.SSPS(ind), ...
+%                strcat('.',tsg.qc.Color.GOOD));
+%            
+% ind = find(tsg.SSPS_QC == tsg.qc.Code.PROBABLY_GOOD );
+% plot(hAxes(1), tsg.DAYD(ind), tsg.SSPS(ind), ...
+%                strcat('.',tsg.qc.Color.PROBABLY_GOOD));
+%            
+% ind = find(tsg.SSPS_QC == tsg.qc.Code.PROBABLY_BAD );
+% plot(hAxes(1), tsg.DAYD(ind), tsg.SSPS(ind), ...
+%                strcat('.',tsg.qc.Color.PROBABLY_BAD));
+%            
+% ind = find(tsg.SSPS_QC == tsg.qc.Code.BAD );
+% plot(hAxes(1), tsg.DAYD(ind), tsg.SSPS(ind), ...
+%                strcat('.',tsg.qc.Color.BAD));
+hold off;         
+
+% set HandleVisibility 'On' to 'Callback' on first axes
+% -----------------------------------------------------
+% set(hAxes(1), 'HandleVisibility', 'Callback');
 
 % Plot Temperature and ship velocity with no qc color code
 % ---------------------------------------------------------