new years update

setups/vestibular chair/vPrime/core/experiment/block/vc/pb_vCheckVelSignal.m

@@ -9,7 +9,7 @@ function [safe,threshold] = pb_vCheckVelSignal(signal)
 % PBToolbox (2018): JJH: j.heckman@donders.ru.nl
    
    safe        = true;
-   threshold   = 50;       % Should be 50 d/s: DO NOT CHANGE!! 
+   threshold   = 60;       % Should be 50 d/s: DO NOT CHANGE!! 
    SR          = 10;
    
    mvel = SR * max(abs(diff(signal))); 

setups/vestibular chair/vPrime/core/experiment/pb_vReadExp.m

@@ -224,16 +224,10 @@ function signal = readVest(line)
    n = str2num(erase(sscanf(line,'%s',2),sscanf(line,'%s',1)));
    type  = types{n};
    signal.type = type;
-   
-   if ~strcmp(type,'none')
-      signal.amplitude  = str2double(erase(sscanf(line,'%s',3),sscanf(line,'%s',2)));
-      signal.duration   = str2double(erase(sscanf(line,'%s',4),sscanf(line,'%s',3)));
-      signal.frequency  = str2double(erase(sscanf(line,'%s',5),sscanf(line,'%s',4)));
-   else 
-      signal.amplitude  = 0;
-      signal.duration   = 0;
-      signal.frequency  = 0.1;
-   end
+
+   signal.amplitude  = str2double(erase(sscanf(line,'%s',3),sscanf(line,'%s',2)));
+   signal.duration   = str2double(erase(sscanf(line,'%s',4),sscanf(line,'%s',3)));
+   signal.frequency  = str2double(erase(sscanf(line,'%s',5),sscanf(line,'%s',4)));
 end
 
 % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % 

utilities/graphics/desgin/pb_defsubplot.m

@@ -22,6 +22,7 @@ function [n,p] = pb_defsubplot(fig)
       length(findobj(h(i),'Type','Bar')) + ...
       length(findobj(h(i),'Type','Area')) + ...
       length(findobj(h(i),'Type','ErrorBar')) + ...
+      length(findobj(h(i),'Type','Stem')) + ...
       length(findobj(h(i),'Type','Histogram'));
    end
 end

utilities/graphics/desgin/pb_nicegraph.m

@@ -159,6 +159,19 @@ function pb_nicegraph(varargin)
          'EdgeColor'         , [0 0 0]  , ...
          'FaceAlpha'         , 0.3);
       end
+      
+      % STEM:
+      %
+      % Use as 'primary' data
+      h_stem = pb_fobj(ax(i),'Type','Stem');
+
+      for iStem=1:length(h_stem)
+         set(h_stem(length(h_stem)+1-iStem), ...
+         'Color'         , col(iStem,:)  , ...
+         'MarkerFaceColor', col(iStem,:)  , ...
+         'LineWidth'     , linewidth*1.5         );
+      end
+      
    end
 end